<>PI #3MHRECR - RECEIPTS VIEW AND PRINT F3mkeyed "DATA/JARHE",[0:1:21],[13:1:10],[5:5:2]+[5:1:4]+[0:1:21],0,2103@"0#1R$$JITEMG,.tpl1, H2R$$JARHE,.tpl1, 3R$$JCUSTs,.tpl1, t4R$$JCONSu,.tpl1, v6&$$JARDE,7'$$$CCNVZ,<$(' $otherhead>Fw$F5 P@R"$&400'8003for popupsZ$SUBFUNC[\5$-]A$49_`3set formstart and formenda!$ &PGMFUNC=CALL۩#i:$" -###,###,##0% -$#####0.00- #######0.00j+$5 $###,###.0000D###,###,##0.00k%$X###,###,###.00Y######0A$td class="td" <>< nowrap>$ 'TRHILITE   6E G$[?V$+8/D$,< $
  PRINTFORMSU DUMPPSU2$;T tmp/recinfo_۩(Өө.xls%$\$,\O_CREATE,O_TRUNC;'$DOHIST YES3^1000 "------------ main logicV3$CARRIER $AAllj:$SHOWZERO $Zero Prints Onlyt/$ SORTORDER $BOL#(3display/get the input params table$]63, CALL "DUMPTPL1",CGI$,TEXT1$; LET TEXT$=TEXT$+TEXT1$@'JO3IF FNCGIVAL$("GO")="1" THEN GOSUB 10000; REM ONLY GENERATE REPORT ON GO BUTTONL\ \O @$^ Excel Version $]^

^  $0 H$* , utsub.wbb> SELECTED>3 ' utsub.wbbn $00qI$+ vF utsub.wbb>۩A۩A$V3LET TEXT$=TEXT$+DEBUG$#( U3" create PROGRAM boxes D$nProgALL T$o $ppvar n = new CheckBoxGroup(); n.setControlBox("n Master"); n.setMasterBehavior("all"); L3LET STEXT$=STEXT$+BRANDGROUP$+".addToGroup("""+PROGGROUP$+"Master"");"+$0A$ 8-U3^1000 ------ HANDLE THE PRINTING OF FORMS!$

Forms Processing

($U[MHBOLR1U $$LUUl$'WFDIRtmp/clg۩(.pdf.ps$Өa/wf/tmp/%$$,O_CREATE,O_TRUNC$q$qq q=$(q0000 ECODECon,$DOECODE6$@1JTJ1TT $^$h6$Generating Forms for WR: 
 3--- more formsC onᫀFORMBOL%$WSHILWLH onᫀFORMBOL2)$WBLPRPS3L3D onᫀFORMVICS%$VICSPSLE onᫀFORMXPS'$PACKCLGXL& onᫀFORMBULK$$WBPICKC LO onᫀ FORMEXPORT.$WBDETXLS$$P onᫀ FORMCOMBVICS-$ VICSPSCOMBL$3.35 &$
NO BOLs Selected!L84$ps2pdf   >/dev/null 2>&1B$

PDF Version of Document(s)
G $LI$

Start Receipt Print Screen

Q3S $V $~#(!3prompt got the print to printer !$DUMPPSDUMPPSUO$:
Print to Postscript Printer 
$Printer:P<$&$!
r8|U3" DUMP OUT TO PRINTER)$ Dumping file @ out to @-$cat @ @ >/dev/null 2>&1 $4$Output COMPLETE!



DS$

Start BOL Review Screen

$@3T=$9ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#^ ERRORPAGE3-------- EMAIL ERROR MESSAGE+$:'WFDIRtmp/000_last_error.txt,O_CREATE,O_TRUNC:=$9ERROR ۩(Ө AT LINE ۩(Ө" IN ۩# L9E$;:$<' error_email=9(JBMAILTO<>=?@;A@ }$q
Order is not valid. Click and fix the problem(s).#(U 39000 OUTTA HERE#<')U 3^1000 "------------ MAIN REPORT LOGIC'`$ireview'jM$ 
 'tL$@'$(' $otherhead''Z$(( ) $c' $otherhead(' $Z'
ActionNCustomerNBldgNReceiptNIB REF#NCarrierNWaybillNVehicleNTallyN S&H Invoice#N LocationsNItemsNPiecesNWeightNChargesNPO#(< U$Zo select allZ($Z )hs|{t*$3for the sorting logic*131=S&h INV 2=RDATE* $UU/*3loop HERE for next BOL,$"3IF LEN(SORTBL$)=0 THEN GOTO 18900,..3LET MYREC$=SORTBL$(21,21),SORTBL$=SORTBL$(32).3.$UJ8/1U/3/0$} Committed/XZ3IF CVS(DOCARRIER$,3)<>"All" THEN IF CVS(JBLHD.CNME$,7)<>CVS(DOCARRIER$,7) THEN GOTO 16900/b"3IF DOFROMDATE$="" THEN GOTO 12200/lO3LET CONFDATE$=JBLHD.DELD$+FILL(6),CONFDATE$="20"+CONFDATE$(5,2)+CONFDATE$(1,4)/vB3IF CONFDATE$DOTHRUDATE$ THEN GOTO 110000*V$20@@$Ө04'3F JUL(0,0,0)-RDATE1>60 THEN GOTO 110000p+ @u @@*2d1 t t1s2nt:3GET DETAILS:!$$TCHG::* $(Ө ###,##0.00:"$ $: All::0 Zero Prints Only :E$:4 Non-Zero Prints Only :E$:D3LET SHOWLOCS$="["+STR(LOCS)+"]"; IF LOCS=1 THEN LET SHOWLOCS$=LOCS$@Lg3IF ISADMIN OR POS("Brand"=STBL("PRPROFILE")) THEN LET ALLOCEDITOR$="  "+""+""@Q" utencode.wbb@V$"۩ @j#$""@t $qq$d9    @yJ ?$ppn.addToGroup("ECODEC۩(q0000"); @~R3LET STEXT$=STEXT$+BRANDGROUP$+".addToGroup(""ECODEC"+STR(ESEQ:"0000")+""");"+$0A$@$W d 6@ ۫@ @ @ @6@ @6۩(6۩(Ө ۩(x ۩(y 6 @$eA$$ P J83TESTINGA  $WB3LET DOCARR$=PAD(JBLHD.CNME$,30); IF POS(""+$0A$E*E1 BOL#!$Ar r E= Lines,$(w ##########۩ r E> Weight,$(y ##########۩ r E2 Service Days$Ar E1 Master BOL#$Ar E) PO#$A@r E $E0 YES! ,J83too manyE*FP3----- BRAND IS DONEIp$J83skip the future order checkingI*J83REPORT COMPLETEL,$
L6E$ &L@$' 7 LTZ$N
Warehouse Receipt:    L^T3TEXT$=TEXT$+" VICS BOLs:    "L|L$@

L5$  N8N 93^1000 "------ handle the subtotals and grandtotals linesR#3^1000 --- javascript date handlingRV$` # R$`` R&$b' $otherheadR0R0$c' $otherheadb`R:8u0#3-------- FIND MASTER BOL FOR A BOLu:$u?8uD1r uNu/$Uu U r uu 1u$ u$yuuu3v3vR8#3------------- get totals for a BOL$%$wxy1/$U< U<&) UMC1~؉0 1"(1GįH$ BILLING $$wwxxlj$yy@$Ή9 & $۩A  $ċ3* RAD:~$z~  B/O~$2<3doneF$yyLcP$Z $Ќ89U3^1000 "----- PARAMETERS TO START AUTO ORDER PROCESS$O: 8pt;$ reportparamK$7I
 K$JC $JY$ W)$`p$.he, utsub.wbb.> SELECTED>j$$.;3CALL "utsub.wbb",RESULT1$,">"+DOSORT$," SELECTED>"+DOSORT$(3LET TEXT$=TEXT$+""E$ &$' 9 :$) $M
CustomerNZero/Non-Zero PrintsNAction 
 ."+RESULT1$+"$
D DOPROG-$3WHEN SHOWING JUST 1 PROG NO OPTIONS89U3^1000 "----- PARAMETERS TO START AUTO ORDER PROCESS$O: 8pt;$ reportparamK$7I
 K$JC $J]$ 6' $J* POPUPINPUTfromdateT* POPUPINPUTthrudate^9$E$ &$' 9 @$/ r$MV
CustomerN From DateNTo DateNAction 
  $$
D DOPROG-$3WHEN SHOWING JUST 1 PROG NO OPTIONS8 !$  $+$< width="۩(">8"], 6! $ @8J]T ^,$ $
h8r]| Ć ĚĐ/$//Ě8ğ6//20Ĥ]Į ĸ$"",8]( $, ۩5$۩ ۩ 8] $ ($ܨ8] $$$ө8&]D N# $hŞX( i M:N(1*=47),D:N(1*=47),Y:N(1*=47)b($i/// @j $@j@jg$k@j@l@mŔl$h k%Y%Mz%DzŔŀŞŔ $hŞ8hţ]Ũ< // ? #8  B3$?L3$?V$ ǜ^$ǜǰn$
SHOWING  B$Excelǰ`$f$ONCLICK ?$)"@$ө'thcolor $#FFFFFFc$