tOpS $$$$$$$$9999999999999[[[[[[[[[[[[ $$$$$$$$9999999999999[[[[[[[[[[[[__9 $[ .> 4ѩO-ѩO-j`O-O->4gP-gP-  .. 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-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  @ly ..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.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-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~.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(  &LQ!! .. 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(  .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-1;W!&' dd O-z=1W:\AdvantumLMS\Clarion Reports\LMSDict.dct  z=13=1PDJ'PDJ' @Clarion$ToDoClarion TINTOOLS$TINTOOLSR%TINGLOBALVIEWER%TINGLOBALPRNPROP%TINGLOBALCALENDAR%TINGLOBALCALCULATOR%TINGLOBALTAPI"%TINGLOBALCASTLEWEBBROWSER%TINICONBUTONOFF%TINICONCHKVAR%%TINFLATBUTONOFF%TINFLATCHKVAR%%TINFLATBUTICONFILE%%TINDEFAULTICONFILE%%TINTIPSCHKONOFF%TINTIPSCHKVAR%ff O-z=1-- Generator #noedit #system win32 #model clarion dll #pragma debug(vid=>full) #compile "lmsre_RD.CLW" /define(GENERATED=>on) -- GENERATED #compile "lmsre_RU.CLW" /define(GENERATED=>on) -- GENERATED #compile "lmsre_SF.CLW" /define(GENERATED=>on) -- GENERATED #compile "Tintrptv.Clw" /define(GENERATED=>on) -- GENERATED #compile "lmsreceipts.clw" /define(GENERATED=>on) -- GENERATED #compile "lmsre001.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("WMFASX.LIB") -- GENERATED #link "lmsreceipts.EXE" jj  O-7O-%GenerationCompleted%%Module lmsre001.clw1lmsreceipts.clw1%LastTarget32%1%LastProgramExtension%EXE%LastApplicationDebug%1%LastApplicationLocalLibrary% E j; O-z=1!%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-z=1 %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-z=1;%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-z=1T%Parameters%11(strInputString,strSearchString,strReplaceString);j1 >P->P- j1 YP-YP-pp O-O-#Clarion$ClarionO-Hypo EO-ZA0:Clarion$GENERATEDZA0rr EO-ZA0Main M7Clarion$Windows-_PZA0)_rU O-l7-PrintReceipt*<Clarion$Reports-l7 TINTOOLS$TTreportviewer%TINReportViewerBox%TINReportViewerTitle%Generate Receiptr gP- @Q-4ReplaceString(STRING,STRING,STRING), STRINGgVClarion$Sources-A7Q @Q-y..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(  ]-Y88  .. 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- O-wxD?p\ (8Receipt GenerationWindowt YesL-@6 O-l7-!w$(} P@1.L4!|RPTreportCHGSDTL:chgdesc,?V  .@s10ng3GLO:ReprintFlagGLO:ReprintFlag $@s10s10@s10010@s254 s)(VGEDtl?VGEInfol @s20BLDTL:voynum Times New RomanVoyage#: CUSTOMERTRN?String23es *Times New Roman?String23ngC  DATE,#O?String332)x *Times New Roman?String332,@`g7Xl RECEIPT?String32  *Times New Roman?String32E,lXC d?Line12?Line128PX X @P< >PRoGLO:Rcpnbr# ArialteINVOICE:invIDRI8.0?Line13?Line13$ < @d8GLO:RcpDate .Times New RomanINVOICE:invDatehPl9hx <@s80(COGLO:RCPCustomer 2Times New RomanCLIENT:clientNamek) M  GLO:CustomerAddress 6Times New RomanCLIENT:clientAddresstheTl   &@ hL9 .4 +@s100,,GLO:RcpCur,,?GLO:RcpCur:2IL 2Times New RomanOtherCurrencyString(XxTp$ Amount0 Times New Roman3 #Item Description'Ti Times New RomanP:h| 0 <\t TBOLDtl?BOLInfo $@s60BLDTL:bilnoL JTimes New Roman?Line7?Line7SHIPREPORT:shrptVoyNoArrng2h "?String43NT *Times New Roman?String43OR  G p BLDTL:shipnamee` .Times New RomanVESSEL:vesName  $ D  ,T  Reported:0,?String21US *Times New Roman?String21an  , 3  x #@D17),UBLDTL:reportdateCOLh 2Times New RomanSHIPREPORT:shrptADA ( H } @ \  Vessel:?String205) *Times New Roman?String2015      detail x   02?Line11BILLOFLADING:bolNumber5@ 4#@d  \SL4  BOL#:OL?String25DE *Times New Roman?String25 X x bp  X  t p  BOLContainer?BOLContainer%4 S LL @s20@s20CHGSDTL:amount =Times New RomanRECEIPTDETAIL:recdtlDescription` X D #@N-15.2BmanContainer1uD4 :Times New RomanRECEIPTDETAIL:recdtlAmountS  [ ( P $ X   EORUline?Uline?Line8 ?Line8SL t <Container2id *Times New RomanContainer1 4sp X ,Container3  *Times New RomanContainer2 pLx d @s20ne84T *Times New RomanContainer3F 4H p@s20LinContainer4O *Times New RomanContainer4,h\ x@s20,10Container5aL *Times New RomanContainer514,@ @s200,,Container6: *Times New Romancontainer668$ ?Line10* $SL,  Arialx x(j  9GLO:PayStrGLO:RcpUserGLO:CusTotGLO:RcpCur    p ?Line6T?Line6,D\d   .Times New RomanPaymentString),d  w  T @s80D D .Times New RomanGlo:CreatedBy3) }$8 @n15.20 6Times New RomanINVOICE:invTotalAmount?h\CASHIER?String3423L *Times New Roman?String34414Gq},@ ?Line14?Line140$Totalin?String11ON *Times New Roman?String11IG   6Times New RomanFOREIGNXCHANGE:fexCode,X  *VOICE:invID) JLINE,AT(260,1010,1042,0),USE(?Line13),COLOR(COLOR:Black),#ORIG(?Line13) sSTRING(@d8),AT(313,1021,896,208),USE(GLO:RcpDate),TRN,CENTER,FONT('Times New Roman',10,,),#ORIG(INVOICE:invDate) STRING(@r h EO-ei=1-+%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' +%BeforeWindowIniResize+*> DO ReadReceiptData PrintReceipt() DO ProcedureReturn  M+%BeforeWindowClosing+*F REMOVE(BLDetails) REMOVE(ChargesDetail) REMOVE(ContainerDetail) A +%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)= '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)= '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 < } O-pi=1/+%DataSectionAfterReport+*`tmpBilref 'LONG FilledContainer LONG SaveShip STRING(60) SaveDate LONG 2@3+%ProcedureSetup+*]tmpBilref = 0 SaveShip='' SaveDate = 0 PrintSkipDetails = FALSE PRINTED::BolDtl = FALSE 67+%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@@@') k=?+%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 @B+%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 zEEI+%BeforeClosingReport+*!***TINTOOLS*** 2LL gP-+j=1+%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) %WTZnd EO-$-O-