tOpS_)PP_______________}}}}}}}}}PP_______________}}}}}}}}} _)6P}C .<Jz p EO-iC0vl O-C0>4 gP-C0Yn .. 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 @(S .. <03<0data_actdtl % @s255data actdtl:data actdtl,w, @( !l@s255t@s255  'F?data_actdtl:Promptmptdata actdtl:data_actdtldata_actdtl #@s25525y.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(  .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(  5 dy ..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.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  %X .. 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~.t O-O-GLO:PayStr ) @s200GLO : Pay Str:GLO : Pay StrAw4?GLO:PayStr:PromptGLO:PayStrGLO:PayStrQ-GLO : Pay Str:l0:PayStr:Promptg < !@s200 PayStr(@s200 PayStrh(  . 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-O-GLO:CustomerAddress ; @s250GLO : Customer Address:GLO : Customer AddressYwL?GLO:CustomerAddress:PromptGLO:CustomerAddressGLO:CustomerAddressh9=GLO : Customer Address:@:CustomerAddress:Prompt T !@s250PCCustomerAddress $8@s250toCustomerAddress8 $' sultArr[. O-O-GLO:RCPCustomer P 2 @s80GLO : RCPC ustomer:GLO : RCPC ustomerMw@?GLO:RCPCustomer:PromptGLO:RCPCustomerGLO:RCPCustomertE5GLO : RCPC ustomer:8:RCPCustomer:Prompt H !@s80cpURCPCustomer 0@s80erRCPCustomert0 (+ceString(CLI.v O-O-GLO:RcpUser  * @s20GLO : Rcp User:GLO : Rcp UserAw4?GLO+ \  .. 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-14. 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-148  .. P-P-RejectRecord  ) @n-14Reject Record:Reject Record,w, @( !lB?RejectRecord:PromptptReject Record:sRejectRecordogr@n-14 &RejectRecordn3@n-14#@n-14~.t O-O-GLO:PayStr ) @s200GLO : Pay Str:GLO : Pay StrAw4?GLO:PayStr:PromptGLO:PayStrGLO:PayStrQ-GLO : Pay Str:l0:PayStr:Promptg < !@s200 PayStr(@s200 PayStrh(  . 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-O-GLO:CustomerAddress ; @s250GLO : Customer Address:GLO : Customer AddressYwL?GLO:CustomerAddress:PromptGLO:CustomerAddressGLO:CustomerAddressh9=GLO : Customer Address:@:CustomerAddress:Prompt T !@s250PCCustomerAddress $8@s250toCustomerAddress8 $' sultArr[. O-O-GLO:RCPCustomer P 2 @s80GLO : RCPC ustomer:GLO : RCPC ustomerMw@?GLO:RCPCustomer:PromptGLO:RCPCustomerGLO:RCPCustomertE5GLO : RCPC ustomer:8:RCPCustomer:Prompt H !@s80cpURCPCustomer 0@s80erRCPCustomert0 (+ceString(CLI.v O-O-GLO:RcpUser  * @s20GLO : Rcp User:GLO : Rcp UserAw4?GLO:RcpUser:PromptGLO:RcpUserGLO:RcpUserQ-GLO : Rcp User:0:RcpUser:Prompt < !@s2025 RcpUser(@s20 RcpUserh(  }.s O-O-GLO:RcpCur ( @s10GLO : Rcp Cur:GLO : Rcp CurAw4?GLO:RcpCur:PromptGLO:RcpCurGLO:RcpCurQ-GLO : Rcp Cur:0:RcpCur:Prompt < !@s1025 RcpCur(@s10 RcpCurh(  E   O-@{90/+%DataSectionAfterReport+*~tmpBilref LONG tmpactid 'LONG FilledContainer LONG SaveShip STRING(60) SaveDate LONG f>>+%ProcedureSetup+*tmpBilref = 0 tmpactid = 0 SaveShip='' SaveDate = 0 PrintSkipDetails = FALSE PRINTED::BolDtl = FALSE PRINTED::ACTDtl =FALSE XBB+%BeforePrint+*PRINT::VGEDtl = FALSE PRINT::BOLDtl = FALSE PRINT::ACTDtl = 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 IF ~(CHGSDTL:actid = tmpactid) CLEAR(ACTDTL:record) ACTDTL:actid = CHGSDTL:actid GET(ACTDetails,ACTDTL:byActid) IF ~ERRORCODE() PRINT::ACTDtl = TRUE PRINTED::ACTDtl = TRUE END tmpactid =CHGSDTL:actid END OMIT('@@@END@@@') IM+%AfterPrint+*J!@@@END@@@ PrintSkipDetails = FALSE IF PRINT::VGEDtl THEN PRINT(RPT:VGEDtl) END IF PRINT::BOLDtl THEN PRINT(RPT:BOLDtl) END IF PRINT::ACTDtl THEN PRINT(RPT:ACTDtl) END IF FALSE THEN PrintSkipDetails = TRUE PRINT(RPT:EORUline) END IF ~PrintSkipDetails AND CHGSDTL:amount PRINT(RPT:detail) END NP+%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 SbW+%BeforeClosingReport+*!***TINTOOLS*** 2Z[ gP-{90+%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) ehR<  ..w O-O-GLO:RcpTime  + @n-14GLO : Rcp Time:GLO : Rcp TimeAw4?GLO:RcpTime:PromptGLO:RcpTimeGLO:RcpTimeQ-GLO : Rcp Time:0:RcpTime:Prompt < !@n-1425 RcpTime(@n-14 RcpTimeh(  .w O-O-GLO:RcpDate  + @n-14GLO : Rcp Date:GLO : Rcp DateAw4?GLO:RcpDate:PromptGLO:RcpDateGLO:RcpDateQ-GLO : Rcp Date:0:RcpDate:Prompt < !@n-1425 RcpDate(@n-14 RcpDateh(  |.r O-O-GLO:Rcpnbr  ' @n-14GLO : Rcpnbr:GLO : RcpnbrAw4?GLO:Rcpnbr:PromptGLO:RcpnbrGLO:RcpnbrQ-GLO : Rcpnbr:,0:Rcpnbr:Prompt < !@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-1aEk dd O-uz90W:\AdvantumLMS\Clarion Reports\LMSDict.dct   z80z80PDJ'PDJ' @Clarion$ToDoClarion TINTOOLS$TINTOOLSR%TINGLOBALVIEWER%TINGLOBALPRNPROP%TINGLOBALCALENDAR%TINGLOBALCALCULATOR%TINGLOBALTAPI"%TINGLOBALCASTLEWEBBROWSER%TINICONBUTONOFF%TINICONCHKVAR%%TINFLATBUTONOFF%TINFLATCHKVAR%%TINFLATBUTICONFILE%%TINDEFAULTICONFILE%%TINTIPSCHKONOFF%TINTIPSCHKVAR%ff O-f@0^-- Generator #noedit #system win #model clarion dll #pragma debug(vid=>full) #compile "lmsre_RD.CLW" -- GENERATED #compile "lmsre_RU.CLW" -- GENERATED #compile "lmsre_SF.CLW" -- GENERATED #compile "lmsreceiptsjc.clw" /define(GENERATED=>on) -- GENERATED #compile "lmsre001.clw" /define(GENERATED=>on) -- GENERATED #link "lmsreceiptsjc.EXE" 4jj* O-7O-%GenerationCompleted%%Module lmsre001.clw1lmsreceipts.clw1lmsreceiptsjc.clw1%LastTarget32%h%LastProgramExtension%EXE%LastApplicationDebug%1%LastApplicationLocalLibrary% E j; O-z80!%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 ACTDetails Use Default BLDetails Use Default ChargesDetail Use DefaultContainerDetail Use DefaultRcpData Use Default%OverrideRILogout%%File Use Default ACTDetails Use Default BLDetails Use Default ChargesDetail Use DefaultContainerDetail Use DefaultRcpData Use Default%OverrideThreaded%%File Use Default ACTDetails Use Default BLDetails Use Default ChargesDetail Use DefaultContainerDetail Use DefaultRcpData Use Default%OverrideCreate%%File Use Default ACTDetails Use Default BLDetails Use Default ChargesDetail Use DefaultContainerDetail Use DefaultRcpData Use Default%OverrideExternal%%File Use Default ACTDetails Use Default BLDetails Use Default ChargesDetail Use DefaultContainerDetail Use DefaultRcpData Use Default%OverrideExternalSource%%File%OverrideExternalAPP%File%OverrideExport%File%OverrideOpenMode%%File Use Default ACTDetails Use Default BLDetails Use Default ChargesDetail Use DefaultContainerDetail Use DefaultRcpData Use Default%OverrideUserAccess%%File Use Default ACTDetails Use Default BLDetails Use Default ChargesDetail Use DefaultContainerDetail Use DefaultRcpData Use Default%OverrideOtherAccess%%File Use Default ACTDetails Use Default BLDetails Use Default ChargesDetail Use DefaultContainerDetail Use DefaultRcpData Use Defaultj t O-z80 %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-uz90;%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-z80T%Parameters%11(strInputString,strSearchString,strReplaceString);j1 >P->P- j1 YP-YP-pp O-O-#Clarion$ClarionO-Lypo EO-uz90:Clarion$GENERATEDuz90rr EO-80MainClarion$Windows0iC )gr] O-uz90PrintReceipt *Clarion$Reports0uz9 TINTOOLS$TTreportviewer%TINReportViewerBox%TINReportViewerTitle%Generate Receiptr gP-C04ReplaceString(STRING,STRING,STRING), STRINGgdClarion$Sources0CC0.. >CF0HF0PRINTED::ACTDtl  2 @s20PRINTED :: ACTD tl:PRINTED :: ACTD tl,w, @( !l(mpt@s20 's@s20T::?PRINTED::ACTDtl:PromptPRINTED :: ACTD tl:PRINTED::ACTDtlPRINTED::ACTDtl. ;F0>CF0PRINT::ACTDtl  - @n3PRINT :: ACTD tl:PRINT :: ACTD tl,w, @( !l@n3@n3 '^?PRINT::ACTDtl:Prompt:P(tmpPRINT :: ACTD tl:PRINT::ACTDtlPRINT::ACTDtl&$1*1   O- O-wxD?p\ (8Receipt GenerationWindowt YesL-@"  6" PE0D80!"w"L (} P@-.L4!|RPTreport@N10ACTDTL:jobno@N10ACTDTL:actendtime?ACTInfoa?String41ACTDTL:actenddate?String37L ACTDTL:actstrtime?String36ACTDTL:actdesc BL#:4 s)(VGEDtl?VGEInfo @s20BLDTL:voynum Times New RomanVoyage#: CUSTOMERdm:?String23To *Times New Roman?String23foC  DATEeld?String33m:x *Times New Roman?String33ct@`g7Xl RECEIPT?String32n: *Times New Roman?String32xtlXC d?Line12?Line128PX X @P< >PnGLO:Rcpnbrp ArialpoINVOICE:invID8.0?Line13?Line13$  @d8GLO:RcpDate .Times New RomanINVOICE:invDatePl9hx @s10?GLO:ReprintFlag GLO:ReprintFlag?V @s80GLO:RCPCustomer| 2Times New RomanCLIENT:clientName(@` M Xp GLO:CustomerAddress )Times New RomanCLIENT:clientAddress x   &T hL9l8 .$ +@s10GLO:RcpCur,,?GLO:RcpCur:2 2Times New RomanOtherCurrencyStringT$ Amount Times New Roman `3x#Item Description Times New Roman:  <\t TBOLDtl?BOLInfoP @s25BLDTL:bilno JTimes New Roman?Line7?Line7SHIPREPORT:shrptVoyNoArrp h "d ?String43T *Times New Roman?String43 $ <  GH   @s60BLDTL:shipname .Times New RomanVESSEL:vesNamet    h Reported:?String21X *Times New Roman?String21  @ , 34 L   @D17BLDTL:reportdate 2Times New RomanSHIPREPORT:shrptADA|  }  p Vessel:?String20` *Times New Roman?String20( H  @ T  H \|h tACTDtl?String46@ Act #.:?String350 FTimes New Roman?String35BILLOFLADING:bolNumber # }L  BOL#:?String25 *Times New Roman?String25 b  x   detailp  P 4 @s100?Line11t  I  $  hAct Descr.:  X )Times New Roman?String36 4L Job ID:?String39 *Times New Roman?String39t  d T !Times New RomanACTDTL:jobno ` XH @s60?String46de$ -Times New RomanACTDTL:actdesc|5 l @s30ACTDTL:actid\ !Times New RomanACTDTL:actid  @ pP ?Line7:2?Line7L4L@Start Date:  0 )Times New Roman?String37 $ Start Time:?String38 *Times New Roman?String38XtR D @s20Times New Roman4 1Times New RomanACTDTL:actendtimexq (  @s20ACTDTL:bilno 1Times New RomanACTDTL:actenddatedaqXEnd Date:?String40H *Times New Roman?String40 0$$< End Time:< )Times New Roman?String41p( \  @s20ACTDTL:bilnoL 1Times New RomanACTDTL:actstrtime Vq$@ ( @s20ACTDTL:actstrdate 2Times New RomanACTDTL:actstrdate` qT ?Line7:3?Line7:2d$<4LH,p  t   BOLContainer?BOLContainer%$ S L@s20@s20CHGSDTL:chgdesc@ >Times New RomanRECEIPTDETAIL:recdtlDescription $ 4 @ #@N-15.2B|CHGSDTL:amount :Times New RomanRECEIPTDETAIL:recdtlAmount [   EORUline?Uline?Line8 ?Line8SL4  L Container11 *Times New RomanContainer1s T Container2| *Times New RomanContainer2"Ldp \ @s20cContainer3 *Times New RomanContainer3  d @s20Container4t *Times New RomanContainer4 <\Th l @s20Container5 *Times New RomanContainer5| t @s20}Container6l *Times New Romancontainer64TL`$ ?Line10*SL<Tx l Arial j 0 S@ db8,  Times New Roman@s10  ?Line6?Line6t | GLO:PayStrd .Times New RomanPaymentString4L  w X   @s80+GLO:RcpUser .Times New RomanGlo:CreatedBy}x  @n15.2GLO:CusToth 6Times New RomanINVOICE:invTotalAmount 0PH\CASHIER?String34 *Times New Roman?String34PhGq} `?Line14?Line144LTTotal?String11 *Times New Roman?String11z8\ D  GLO:RcpCur:4 6Times New RomanFOREIGNXCHANGE:fexCode ( )              Sd ` `&?AsciiBox''?AsciiBox8Pn\&Closer?Closep?Close x#   EO-f@0-+%DataSectionAfterWindow+*onumstar LONG StopPos LONG NewString STRING(1024) ResultArr STRING(200) DIM(10) y+%ProcedureInitialize+*data_rcpdta = 'C:\advantumreports\rcpdata.txt' data_bldtl = 'C:\advantumreports\bldtl.tps' data_contdtl= 'C:\advantumreports\contdtl.tps' data_chgdtl = 'C:\advantumreports\chgdtl.tps' data_actdtl = 'C:\advantumreports\actdtl.tps' +%BeforeWindowIniResize+*> DO ReadReceiptData PrintReceipt() DO ProcedureReturn +%BeforeWindowClosing+*c REMOVE(BLDetails) REMOVE(ChargesDetail) REMOVE(ContainerDetail) REMOVE(ACTDetails) 1 +%ProcedureRoutines+* ReadReceiptData "ROUTINE SET(RcpData) LOOP NEXT(RcpData) IF ERRORCODE() THEN BREAK. #IF (SUB(RCPDAT:line,1,3)= 'HDR') numstar = 10 DO SplitLine 'GLO:Rcpnbr = DEFORMAT(ResultArr[2]) ,GLO:RcpDate = DEFORMAT(ResultArr[3],@d12) +GLO:RcpTime = DEFORMAT(ResultArr[4],@t4) #GLO:RcpCur = CLIP(ResultArr[5]) #GLO:RcpUser = CLIP(ResultArr[6]) 'GLO:RCPCustomer = CLIP(ResultArr[7]) LGLO:CustomerAddress = ReplaceString(CLIP(ResultArr[8]),'&^#%','<13><10>') &GLO:CusTot = DEFORMAT(ResultArr[9]) /GLO:ReprintFlag = UPPER(CLIP(ResultArr[10])) 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)= 'ACT')  numstar = 9 DO SplitLine CLEAR(ACTDTL:RECORD) *ACTDTL:actid = DEFORMAT(ResultArr[2]) ACTDTL:jobno = DEFORMAT(ResultArr[3]) ACTDTL:bilno = CLIP(ResultArr[4]) &ACTDTL:actdesc= CLIP(ResultArr[5]) )ACTDTL:actstrdate = CLIP(ResultArr[6]) )ACTDTL:actstrtime = CLIP(ResultArr[7]) *ACTDTL:actenddate = CLIP(ResultArr[8]) )ACTDTL:actendtime = CLIP(ResultArr[9]) ADD(ACTDetails)  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 = 6 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]) )CHGSDTL:actid = DEFORMAT(ResultArr[6]) ADD(ChargesDetail)  END %IF (SUB(RCPDAT:line,1,5)= 'PYDTL') numstar = 2 DO SplitLine "Glo:PayStr = 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