tOpSK5BBBBBBBBBBBBBBBBBBaaaaaaaaaaaa5BBBBBBBBBBBBBBBBBBaaaaaaaaaaaaww B)5a .$2n d EO-$-O-j` O-N->4 gP-gP-Yn .. t O-t O-FilesOpened  ' @n-14Files Opened:Files Opened,w, @( !l:?FilesOpened:PromptFiles Opened:onFilesOpened@n-14qu &&FilesOpened@n-14ns@n-14-1. t O-t O-LocalResponse  + @n-14Local Response:Local Response,w, @( !lB?LocalResponse:PrompttLocal Response:LocalResponsequ@n-14-1 &LocalResponsequ@n-14-1. t O-t O-OriginalRequest  / @n-14Original Request:Original Request0w0  @( !lF?OriginalRequest:PromptOriginal Request:caOriginalRequest@n-14 &OriginalRequest@n-14GE. t O-t O-LocalRequest  ) @n-14Local Request:Local Request,w, @( !l?LocalRequest:PromptLocal Request:LocalRequest @n-14( & LocalRequest@n-14 O py ..o P-P-Container4  $ @s20Container 4:Container 4Aw4?Container4:PromptContainer4Container4Q-Container 4:l D0tainer4:Promptl < !@s20 ainer4:(@s20 ainer4:h(  .o P-4Q-Container3  $ @s20Container 3:Container 3Aw4?Container3:PromptContainer3Container3Q-Container 3:l D0tainer3:Promptl < !@s20 ainer3:(@s20 ainer3:h(  .o P-P-Container2  $ @s20Container 2:Container 2Aw4?Container2:PromptContainer2Container2Q-Container 2:l D0tainer2:Promptl < !@s20 ainer2:(@s20 ainer2:h(  .o P-*4-Container1  $ @s20Container 1:Container 1Aw4?Container1:PromptContainer1Container1Q-Container 1:l D0tainer1:Promptl < !@s20 ainer1:(@s20 ainer1:h(  . zP-zP-LastStringPosition  7 @n-14Last String Position:Last String PositionYwL?LastStringPosition:PromptLastStringPositionLastStringPositionh9=Last String Position::@tStringPosition:Promptt T !%@n-14-1StringPositioni $8%@n-14StringPositiong8 $ . zP-zP-SearchStringPosition  ; @n-14Search String Position:Search String PositionFwX?SearchStringPosition:PromptSearchStringPositionSearchStringPosition\-ASearch String Position: DrchStringPosition:Prompt \ !@n-14 chStringPosition $(<@n-14chStringPosition @ ,nge `2 e .. P-P-RecordsPerCycle  5 @n-14Records Per Cycle:Records Per Cycle0w0  @( !lF?RecordsPerCycle:PromptRecords Per Cycle:eRecordsPerCycle@n-14 &"RecordsPerCycle@n-14ed@n-14. P-P-RecordsProcessed  5 @n-14Records Processed:Records Processed,w, @( !lA?RecordsProcessed:PromptindRecords Processed:RecordsProcessed @n-14 $&RecordsProcessed#@n-14. P-P-RecordsToProcess  7 @n-14Records To Process:Records To Process,w, @( !lA?RecordsToProcess:PromptindRecords To Process:RecordsToProcess @n-14 $&RecordsToProcess#@n-14. P-P-WindowOpened  ) @n-14Window Opened:Window Opened,w, @( !lB?WindowOpened:PromptileWindow Opened:eWindowOpenedgr@n-14 & WindowOpened @n-14#@n-14. P-P-LocalResponse  + @n-14Local Response:Local Response,w, @( !lB?LocalResponse:PrompttLocal Response:LocalResponsegr@n-14 &LocalResponse3@n-14#@n-14. P-P-LocalRequest  ) @n-14Local Request:Local Request,w, @( !lB?LocalRequest:PromptptLocal Request:sLocalRequestogr@n-14 &LocalRequestn3@n-14!@n-14. P-P-RejectRecord  ) @n-14Reject Record:Reject Record,w, @( !lB?RejectRecord:PromptptReject Record:sRejectRecordogr@n-14 &RejectRecordn3@n-14#@n-14.} O-u#N-GLO:RemarkStr / @s200GLO : Remark Str:GLO : Remark Striw,GLO : Remark Str:GLO:RemarkStrO:\tr?GLO:RemarkStr:PromptGLO:RemarkStrX)-$0: Pay Str:l0:PayStr:Promptg <4 !@s200 PayStrL(@s200 PayStrh  2 0| ..r O- N-GLO:Invnbr  ' @n-14GLO : Invnbr:GLO : InvnbrQwD?GLO:Invnbr:PromptGLO:InvnbrGLO:InvnbrGLO : Invnbr:pA-$0: Rcpnbr:,0:Rcpnbr:Prompt < 4!@n-1425 Rcpnbr(@n-14 Rcpnbrh(  {.q O-O-data_chgdtl % @s255data chgdtl:data chgdtlAw4?data_chgdtl:Promptdata_chgdtldata_chgdtlQ-data chgdtl:,0a_chgdtl:Prompt < !@s25525 _chgdtl(@s255 _chgdtlh(  . O-O-data_contdtl ' @s255data contdtl:data contdtl&w@?data_contdtl:Prompt data_contdtl data_contdtltE1data contdtl:,4a_contdtl:Prompt D !@s255ld_contdtl ,@s255p_contdtlp0 ,/eplaceString(CLIt.j O-O-data_bldtl # @s255data bldtl:data bldtlAw4?data_bldtl:Promptdata_bldtldata_bldtlQ)data bldtl:,a_bldtl:Prompto 8 !@s25525 _bldtlp $@s25525 _bldtlpd( | #{.q O-O-data_rcpdta % @s255data rcpdta:data rcpdtaAw4?data_rcpdta:Promptdata_rcpdtadata_rcpdtaQ data rcpdta:0a_rcpdta:Prompt < !@s255W _rcpdta(@s255 C _rcpdtah(  #rAdd. t O-t O-ForceRefresh  ) @n-14Force Refresh:Force Refresh,w, @( !lB?ForceRefresh:PromptompForce Refresh:iForceRefreshwIn@n-14ze &CForceRefreshind@n-14iad@n-14. t O-t O-WindowInitialized  3 @n-14Window Initialized:Window Initialized,w, @( !lN?WindowInitialized:PromptndWindow Initialized:WindowInitialized@n-14 $&7WindowInitialized@n-14. t O-t O-WindowOpened  ) @n-14Window Opened:Window Opened,w, @( !lB?WindowOpened:PromptileWindow Opened:eWindowOpenedqu@n-14 & WindowOpened@n-14-1+=  ..v zP-zP-ReturnString  ) @s255Return String:Return String&w@?ReturnString:Prompt ReturnString ReturnStringtE%Return String:,urnString:Prompt < ! rnString  rnStringh0 . P-P-PRINTED::BolDtl  1 @n3PRINTED :: Bol Dtl:PRINTED :: Bol DtlMw@?PRINTED::BolDtl:PromptPRINTED::BolDtlPRINTED::BolDtltE5PRINTED :: Bol Dtl:4NTED::BolDtl:Prompt D !@n3TED::BolDtl 0@n3TED::BolDtlp0 0 . P-P-PRINT::BOLDtl  - @n3PRINT :: BOLD tl:PRINT :: BOLD tlMw@?PRINT::BOLDtl:PromptPRINT::BOLDtlPRINT::BOLDtltE5PRINT :: BOLD tl:04NT::BOLDtl:Prompt D !@n3T::BOLDtl 0@n3T::BOLDtl(p0 0 . P-P-PRINT::VGEDtl  - @n3PRINT :: VGED tl:PRINT :: VGED tlMw@?PRINT::VGEDtl:PromptPRINT::VGEDtlPRINT::VGEDtltE5PRINT :: VGED tl:04NT::VGEDtl:Prompt D !@n3T::VGEDtl 0@n3T::VGEDtl(p0 0 . P-P-FilesOpened  ' @n-14Files Opened:Files Opened,w, @( !l:?FilesOpened:PromptFiles Opened:onFilesOpened@n-14gr &"FilesOpened@n-14ns@n-14#@n-14. P-P-RecordStatus  + @n3Record Status:Record Status,w, @( !l>?RecordStatus:PromptptRecord Status:sRecordStatusogr@n3 &!RecordStatusogr@n3ycle#@n-14. P-P-PercentProgress  - @n3Percent Progress:Percent Progress,w, @( !lB?PercentProgress:PromptPercent Progress:ycPercentProgress@n3 &PercentProgress@n3ycle#@n-14. P-P-RecordsThisCycle  7 @n-14Records This Cycle:Records This Cycle,w, @( !lA?RecordsThisCycle:PromptecoRecords This Cycle:RecordsThisCycle @n-14 $&RecordsThisCycle@n-147  .. O-O-GLO:ReprintFlag 2 @s10GLO : Reprint Flag:GLO : Reprint FlagMw@?GLO:ReprintFlag:PromptGLO:ReprintFlagGLO:ReprintFlagtE5GLO : Reprint Flag:8:ReprintFlag:Prompt H !@s10usTReprintFlag 0@s10tReprintFlagt0 (.v O-O-GLO:CusTot  + @n-18.2GLO : Cus Tot:GLO : Cus TotAw4?GLO:CusTot:PromptGLO:CusTotGLO:CusTotQ-GLO : Cus Tot:A0:CusTot:Prompte < !@n-18.2 CusTot5 ( @n-18.2 CusTot h(  . O-MN-GLO:CustomerAddress ; @s250GLO : Customer Address:GLO : Customer AddressYwL?GLO:CustomerAddress:PromptGLO:CustomerAddressGLO:CustomerAddressh9=GLO : Customer Address:@:CustomerAddress:Prompt T !@s250PCCustomerAddress $8@s250toCustomerAddress8 $' sultArr[. O->N-GLO:InvCustomer P 2 @s80GLO : Inv Customer:GLO : Inv CustomerawT?GLO:InvCustomer:PromptGLO:InvCustomerGLO:InvCustomerGLO : Inv Customer:`15,8: RCPC ustomer:8:RCPCustomer:Prompt H @!@s80cpURCPCustomer 0@s80erRCPCustomert0 (+ceString(CLI.v O-rN-GLO:InvUser  * @s50GLO : Inv User:GLO : Inv UserRwT?GLO:InvUser:PromptGLO:InvUserGLO:InvUserGLO : Inv User:@s50@s50`1-$(: Rcp User:0:RcpUser:Prompt < 4!25 RcpUserD RcpUserh( L }.s O-N-GLO:InvCur ( @s10GLO : Inv Cur:GLO : Inv CurQwD?GLO:InvCur:PromptGLO:InvCurGLO:InvCurGLO : Inv Cur:pA-$0: Rcp Cur:0:RcpCur:Prompt < 4!@s1025 RcpCur(@s10 RcpCurh(  .w O-GN-GLO:InvTime  + @n-14GLO : Inv Time:GLO : Inv TimeQwD?GLO:InvTime:PromptGLO:InvTimeGLO:InvTimeGLO : Inv Time:pA-$0: Rcp Time:0:RcpTime:Prompt < 4!@n-1425 RcpTime(@n-14 RcpTimeh(  .w O- N-GLO:InvDate  + @n-14GLO : Inv Date:GLO : Inv DateQwD?GLO:InvDate:PromptGLO:InvDateGLO:InvDateGLO : Inv Date:pA-$0: Rcp Date:0:RcpDate:Prompt < 4!@n-1425 RcpDate(@n-14 RcpDateh(  DS"" dd O-ݎ:-W:\AdvantumLMS\Clarion Reports\LMSDict.dct   ':-':-PDJ'PDJ' ;Clarion$ToDoClarion TINTOOLS$TINTOOLSR%TINGLOBALVIEWER%TINGLOBALPRNPROP%TINGLOBALCALENDAR%TINGLOBALCALCULATOR%TINGLOBALTAPI"%TINGLOBALCASTLEWEBBROWSER%TINICONBUTONOFF%TINICONCHKVAR%%TINFLATBUTONOFF%TINFLATCHKVAR%%TINFLATBUTICONFILE%%TINDEFAULTICONFILE%%TINTIPSCHKONOFF%TINTIPSCHKVAR%offe O-q:-2-- Generator #noedit #system win #model clarion dll #pragma debug(vid=>full) #compile "lmsin_RD.CLW" -- GENERATED #compile "lmsin_RU.CLW" -- GENERATED #compile "lmsin_SF.CLW" -- GENERATED #compile "Tintrptv.Clw" -- GENERATED #compile "lmsinvoices.clw" /define(GENERATED=>on) -- GENERATED #compile "lmsin001.clw" /define(GENERATED=>on) -- GENERATED #pragma link("C5DOS%X%%L%.LIB") -- GENERATED #pragma link("C5ASC%X%%L%.LIB") -- GENERATED #pragma link("C5TPS%X%%L%.LIB") -- GENERATED #pragma link("WMFAS.LIB") -- GENERATED #link "lmsinvoices.EXE" KjjA O-7O-%GenerationCompleted%%Module lmsin001.clw1lmsinvoices.clw1 lmsre001.clw1lmsreceipts.clw1%LastTarget32%h%LastProgramExtension%EXE%LastApplicationDebug%1%LastApplicationLocalLibrary% = j3 O-':-!%PROGRAMAUTHOR%5%MessageDescription%GlobalExternal%GenerateEmbedComments%INIActive3%INIFile%Program Name.INI%ININame%%DefaultGenerate%DefaultCloseFile%Close the File%DefaultRILogout%WarnOnLogoutError%LockRecoverTime% %DefaultThreaded%Use File Setting%DefaultCreate%Use File Setting%DefaultExternal% None External%DefaultExternalSource%%DefaultExternalAPP%DefaultExport%DefaultOpenMode%Share%DefaultUserAccess% Read/Write%DefaultOtherAccess% Deny None%OverrideGenerate%File%OverrideCloseFile%%File Use Default BLDetails Use Default ChargesDetail Use DefaultContainerDetail Use DefaultRcpData Use Default%OverrideRILogout%%File Use Default BLDetails Use Default ChargesDetail Use DefaultContainerDetail Use DefaultRcpData Use Default%OverrideThreaded%%File Use Default BLDetails Use Default ChargesDetail Use DefaultContainerDetail Use DefaultRcpData Use Default%OverrideCreate%%File Use Default BLDetails Use Default ChargesDetail Use DefaultContainerDetail Use DefaultRcpData Use Default%OverrideExternal%%File Use Default BLDetails Use Default ChargesDetail Use DefaultContainerDetail Use DefaultRcpData Use Default%OverrideExternalSource%%File%OverrideExternalAPP%File%OverrideExport%File%OverrideOpenMode%%File Use Default BLDetails Use Default ChargesDetail Use DefaultContainerDetail Use DefaultRcpData Use Default%OverrideUserAccess%%File Use Default BLDetails Use Default ChargesDetail Use DefaultContainerDetail Use DefaultRcpData Use Default%OverrideOtherAccess%%File Use Default BLDetails Use Default ChargesDetail Use DefaultContainerDetail Use DefaultRcpData Use Defaultj t O-':- %Parameters%|%ReturnValue"%WindowOperationMode%Use WINDOW setting%INISaveWindow%ButtonAction%%ControlNo Special Action%ButtonRunName%%Control%ButtonRunParameters%%Control%ButtonProcedure %Control%ButtonThread%Control%ButtonThreadStack%%ControlHa%ButtonParameters%%Control%ButtonRequest%%ControlNone%PreLookupKey#%Control%PreLookupField$%Control%PreLookupProcedure %Control%PostLookupKey#%Control%PostLookupField$%Control%PostLookupProcedure %Control%PostLookupDuringValidate%Control%ForceWindowRefresh%Control%CheckedAssigns%Control%CheckedAssignVariable"%CheckedAssigns%CheckedAssignValue%%CheckedAssigns%CheckedHides%Control%CheckedControl%%CheckedHides%CheckedControlAction%%CheckedHides%UncheckedAssigns%Control%UncheckedAssignVariable"%UncheckedAssigns%UncheckedAssignValue%%UncheckedAssigns%UnCheckedHides%Control%UnCheckedControl%%UnCheckedHides%UnCheckedControlAction%%UnCheckedHides j O-':-;%RangeLimitType% Current Value%Parameters%(%ReturnValue"%WindowMessage%N%EnablePrintPreview%EnableQuickScan%RecordFilter%%ApproxRecordCount%%RangeField$%RangeLimit"%RangeLow"%RangeHigh"%RangeFile!%HotFields%HotField"%HotFields%HotFieldBound%HotFields%DetailFilter%%ReportControl%DetailFilterExclusive%ReportControljx bhP-':-T%Parameters%11(strInputString,strSearchString,strReplaceString);j1 >P->P- j1 YP-YP-pp O-O-#Clarion$ClarionO-Lypo EO-ݎ:-:Clarion$GENERATEDݎ:-rr EO-ݎ:-Main M7Clarion$Windows-_Pݎ:-)_rU O-:-PrintInvoice *fClarion$Reports-: TINTOOLS$TTreportviewer%TINReportViewerBox%TINReportViewerTitle%Generate Invoicer gP-xP-4ReplaceString(STRING,STRING,STRING), STRINGgWClarion$Sources-jPxP-.. b$N-'N-GLO:InvCust * @s10GLO : Inv Cust:GLO : Inv Cust,w, @( !l @s10pt@s10  'F?GLO:InvCust:PromptmptGLO : Inv Cust:GLO:InvCustGLO:InvCust@s20y.o P-P-Container6  $ @s20Container 6:Container 6Aw4?Container6:PromptContainer6Container6Q-Container 6:l D0tainer6:Promptl < !@s20 ainer6:(@s20 ainer6:h(  .o P-P-Container5  $ @s20Container 5:Container 5Aw4?Container5:PromptContainer5Container5Q-Container 5:l D0tainer5:Promptl < !@s20 ainer5:(@s20 ainer5:h(  c*44   O- O-wxD?p\ (8Receipt GenerationWindowt YesL-T  J [N-O-!w(K el(P@'.L4!|RPTreportGLO:Invnbr@P< P.GLO:InvUser@s50GLO:InvDate@D8`4d 9@s10ng3@s20s20@s20s20@s20s20@s20s20@s20s20@s20  ArialIL(  (F (VGEDtl?VGEInfo @s20BLDTL:voynum Times New RomanVoyage#:DATEper?String31be  *Times New Roman?String31at |?Line13?Line13PhhpCUSTOMERrs?String23ou *Times New Roman?String23j  l #@s10DiGLO:InvCust@s80ch\ 2Times New RomanCLIENT:clientCodeto<( 4P   -Times New RomanGLO:CreatedByxX?Line9?Line9,D( ek L SGLO:ReprintFlagGLO:ReprintFlag ArialINVOICE:invID4xX?:d,?Line14?Line14   @s10te -Times New RomanINVOICE:invDate$L}xJDebit Note?String29h Times New Roman?String29ep  #GLO:InvCustomerGLO:InvCur 2Times New RomanCLIENT:clientNameub,Ld(  H OFFICER?String32&S *Times New Roman?String32rcg  ?Line12?Line12Tlt GLO:CustomerAddress  )Times New RomanCLIENT:clientAddress @  ( e   GLO:CusTot@n15.2GLO:InvCur,,?GLO:InvCur:2@s10GLO:RemarkStrnContainer5Container6?String11:2         IbLC4    5@s10010@s25@ 6Times New RomanFOREIGNXCHANGE:fexCode X twp @s60 }BLDTL:shipnameeBLDTL:reportdateencBLDTL:bilnoCHGSDTL:chgdescCHGSDTL:amountd   b@  Amount Times New Roman  s  5Container1Container2Container3uContainer4T ! s New RomanntString  4 T L d $Item Description Times New Roman t  Pp t hBOLDtl?BOLInfoD   BLDTL:bilno =Times New Roman?Line7?Line7SHIPREPORT:shrptVoyNoArr d | "X ?String43H *Times New Roman?String43  0  G<   BLDTL:shipname .Times New RomanVESSEL:vesNameh @   \Reported:?String21L *Times New Roman?String214, 3(@  @D174L:reportdate 2Times New RomanSHIPREPORT:shrptADApP } dVessel:?String20T *Times New Roman?String20< 4H <P p \ h detail4  20?Line11BILLOFLADING:bolNumber| d #   SLBOL#:?String25 *Times New Roman?String25b  t  BOLContainer?BOLContainer%<S L CHGSDTL:chgdesc >Times New RomanRECEIPTDETAIL:recdtlDescriptionp   p #@N-15.2BDTL:amount :Times New RomanRECEIPTDETAIL:recdtlAmount\  [}t d | EORUline?Ulinep?Line8 ?Line8$D\SLd ing11:2 |  (ainer1 *Times New RomanContainer1\4 sP   ainer2@ *Times New RomanContainer2@ _4  Container3 *Times New RomanContainer3TL V H  Container48 *Times New RomanContainer4X M,  Container5 *Times New RomanContainer5L|xD@  4Container60 *Times New Romancontainer6:$$ ?Line10*tSL <x 0 Arial[T ?Line6?Line6p X ( ' .2ICE:invTotalAmountH 6Times New RomanINVOICE:invTotalAmount0 << 0 HDDDETL:Comments 2Times New RomanINVADDDETL:Commentsh s e \  |PLEASE PAY WITHIN 7 DAYS?String38l *Times New Roman?String38 T/ X8` TOTAL DUE:?String11 *Times New Roman?String11  8  IGNXCHANGE:fexCodet .Times New RomanFOREIGNXCHANGE:fexCode0D`h P8  EO-ծ:--+%DataSectionAfterWindow+*onumstar LONG StopPos LONG NewString STRING(1024) ResultArr STRING(200) DIM(11) y+%ProcedureInitialize+*data_rcpdta = 'C:\advantumreports\invdata.txt' data_bldtl = 'C:\advantumreports\bldtl.tps' data_contdtl= 'C:\advantumreports\contdtl.tps' data_chgdtl = 'C:\advantumreports\chgdtl.tps' +%BeforeWindowIniResize+*> DO ReadInvoiceData PrintInvoice() DO ProcedureReturn  M+%BeforeWindowClosing+*F REMOVE(BLDetails) REMOVE(ChargesDetail) REMOVE(ContainerDetail) A +%ProcedureRoutines+*ReadInvoiceData "ROUTINE SET(RcpData) LOOP NEXT(RcpData) IF ERRORCODE() THEN BREAK. #IF (SUB(RCPDAT:line,1,3)= 'HDR') numstar = 11 DO SplitLine 'GLO:Invnbr = DEFORMAT(ResultArr[2]) ,GLO:InvDate = DEFORMAT(ResultArr[3],@d12) +GLO:InvTime = DEFORMAT(ResultArr[4],@t4) #GLO:InvCur = CLIP(ResultArr[5]) #GLO:InvUser = CLIP(ResultArr[6]) #GLO:InvCust = CLIP(ResultArr[7]) 'GLO:InvCustomer = CLIP(ResultArr[8]) LGLO:CustomerAddress = ReplaceString(CLIP(ResultArr[9]),'&^#%','<13><10>') 'GLO:CusTot = DEFORMAT(ResultArr[10]) /GLO:ReprintFlag = UPPER(CLIP(ResultArr[11])) END "IF (SUB(RCPDAT:line,1,2)= 'BL') numstar = 8 DO SplitLine CLEAR(BLDTL:RECORD) *BLDTL:bilref = DEFORMAT(ResultArr[2]) BLDTL:bilno = CLIP(ResultArr[3]) &BLDTL:linename= CLIP(ResultArr[4]) &BLDTL:shipname = CLIP(ResultArr[5]) 0BLDTL:reportdate= DEFORMAT(ResultArr[6],@d12) 'BLDTL:voynum = CLIP(ResultArr[7]) 'BLDTL:consigname= CLIP(ResultArr[8]) ADD(BLDetails) END #IF (SUB(RCPDAT:line,1,3)= 'CTN') numstar = 3 DO SplitLine CLEAR(CONDTL:Record) )CONDTL:bilref = DEFORMAT(ResultArr[2]) &CONDTL:contnbr = CLIP(ResultArr[3]) ADD(ContainerDetail) END #IF (SUB(RCPDAT:line,1,3)= 'DTL') numstar = 5 DO SplitLine CLEAR(CHGSDTL:RECORD) *CHGSDTL:bilref = DEFORMAT(ResultArr[2]) )CHGSDTL:chgdesc = CLIP(ResultArr[3]) +CHGSDTL:amount = DEFORMAT(ResultArr[4]) .CHGSDTL:amountdc = DEFORMAT(ResultArr[5]) ADD(ChargesDetail)  END %IF (SUB(RCPDAT:line,1,5)= 'REMKS') numstar = 2 DO SplitLine %GLO:RemarkStr = CLIP(ResultArr[2]) END END SplitLine zROUTINE StopPos = 0 NewString = RCPDAT:line I# = 1 LOOP numstar TIMES IF INSTRING('*', NewString, 1, 1) MResultArr[I#] = SUB(NewString,1,INSTRING('*', NewString, 1, 1)-1) ELSE ResultArr[I#] =NewString NewString='' END I#+=1 StopPos = INSTRING('*', NewString, 1, 1) NewString = SUB(NewString,StopPos+1,len(NewString) - StopPos) END f } O-ۮ:-/+%DataSectionAfterReport+*`tmpBilref 'LONG FilledContainer LONG SaveShip STRING(60) SaveDate LONG f44+%ProcedureSetup+*]tmpBilref = 0 SaveShip='' SaveDate = 0 PrintSkipDetails = FALSE PRINTED::BolDtl = FALSE :88+%BeforePrint+*PRINT::VGEDtl = FALSE PRINT::BOLDtl = FALSE IF ~(CHGSDTL:bilref = tmpBilref) CLEAR(BLDTL:record) BLDTL:bilref = CHGSDTL:bilref GET(BLDetails,BLDTL:byBilref) IF ~ERRORCODE() PRINT::BOLDtl = TRUE PRINTED::BolDtl = TRUE CIF ~(SaveShip=BLDTL:shipname) AND ~(SaveDate = BLDTL:reportdate) PRINT::VGEDtl = TRUE SaveShip=BLDTL:shipname SaveDate = BLDTL:reportdate END END tmpBilref =CHGSDTL:bilref END OMIT('@@@END@@@') >zA+%AfterPrint+*!@@@END@@@ PrintSkipDetails = FALSE IF PRINT::VGEDtl THEN PRINT(RPT:VGEDtl) END IF PRINT::BOLDtl THEN PRINT(RPT:BOLDtl) END IF FALSE THEN PrintSkipDetails = TRUE PRINT(RPT:EORUline) END IF ~PrintSkipDetails AND CHGSDTL:amount PRINT(RPT:detail) END yB D+%BeforeTurnQuickScanOff+* IF PRINTED::BolDtl SET(ContainerDetail) FilledContainer = 0 LOOP NEXT(ContainerDetail) IF ERRORCODE() THEN BREAK. FilledContainer += 1 CASE FilledContainer OF 1 Container1 = CONDTL:contnbr OF 2 Container2 = CONDTL:contnbr OF 3 Container3 = CONDTL:contnbr OF 4 Container4 = CONDTL:contnbr OF 5 Container5 = CONDTL:contnbr OF 6 Container6 = CONDTL:contnbr OF 7 PRINT(RPT:BOLContainer) FilledContainer = 1 Container1 = CONDTL:contnbr CLEAR(Container2) CLEAR(Container3) CLEAR(Container4) CLEAR(Container5) CLEAR(Container6) END END IF FilledContainer PRINT(RPT:BOLContainer) bEND END GJ+%BeforeClosingReport+*!***TINTOOLS*** 2eNxN gP-:-+%ProcessedCode+*/ CLEAR(ReturnString) SearchStringPosition = 1 LastStringPosition = 1 LOOP SearchStringPosition = INSTRING(CLIP(strSearchString), strInputString, 1, LastStringPosition) IF SearchStringPosition ReturnString = CLIP(ReturnString) & SUB(strInputString, LastStringPosition, (SearchStringPosition-LastStringPosition)) & CLIP(strReplaceString) ILastStringPosition = SearchStringPosition + LEN(CLIP(strSearchString)) 4IF LastStringPosition > LEN(CLIP(strInputString)) BREAK END ELSE ReturnString = CLIP(ReturnString) & SUB(strInputString, LastStringPosition, (LEN(CLIP(strInputString))-LastStringPosition+1)) ;BREAK END END If SUB(ReturnString,1,2)= ' ' dReturnString = SUB(ReturnString,3,LEN(CLIP(ReturnString))-2) END RETURN(ReturnString) X[