>local llReTry >llReTry = .f. >try > call to the function that may cause error > >catch to loError > if loError.ErrorNo = 2027 > llReTry = .t. > else > log the error > endif >endtry > >if m.llReTry > try > one more time calling the same code > > catch to loError > * if error, just log the second time > endtry >endifOk Based on the above I Tried to make Changes in my Code. But seems to be not Okay ? I also didn't got how I will log the Error. Can you please extend your help based on my Code as mentioned below.
nRECCOUNTCONVERT=ALLTRIM(STR(RECCOUNT()))
cRECCOUNTCONVERT=' of '+ALLTRIM(STR(RECCOUNT()))
local llReTry
llReTry = .f.
Local loMyObject
loMyObject = CreateObject("MyObject")
loMyObject.Mainprocess()
Return
DEFINE CLASS MyObject AS Custom
PROCEDURE Mainprocess
Local Parallel as Parallel
Parallel = NewObject("Parallel", "ParallelFox.vcx")
Parallel.SetWorkerCount(Parallel.CPUCount)
Parallel.StartWorkers()
SCAN
oFilename=ALLTRIM(Fullpath)
iFilename=ALLTRIM(Newpath)
RCNON=Recno()
Try
Parallel.CallMethod("Pdf2Ps", This.Class, This.ClassLibrary,,,oFilename,iFilename,RCNON)
catch to loError
if loError.ErrorNo = 2027
llReTry = .t.
else
* log the error
endif
ENDTRY
if m.llReTry
try
Parallel.CallMethod("Pdf2Ps", This.Class, This.ClassLibrary,,,oFilename,iFilename,RCNON)
catch to loError
if loError.ErrorNo = 2027
llReTry = .t.
else
* log the error
endif
ENDTRY
ENDSCAN
ENDPROC
PROCEDURE PDF2PS
PARAMETERS oFilename,iFilename,RCNON
Declare INTEGER VeryPDF_PDF2Vector in pdf2vec.dll String strCommandLine
Strcmd= 'pdf2vec -$ XXXXXXXXXXXXXXXX '+CHR(34)+iFilename+CHR(34)+" "+CHR(34)+oFilename+CHR(34)
nRet = VeryPDF_PDF2Vector(strcmd)
Sys(2335, 1) && disable unattended mode, allow UI
WAIT WINDOW 'Converting to PS..'+ALLTRIM(STR(RCNON)) NOWAIT
RETURN
ENDPROC
ENDDEFINEHarsh