<>B:2 >33PLONTIMEH - ONTIME REPORT FOR ALBANESE RETRIEVE HEADER INFO @3******* SEE 63000 IF CHARGES MISSING/WRONG IN AX SCREEN VS 3PLC3@@"/$%

DONT USE THIS. USE 3PLONTIME

*$x$,x y4S$$OR3PLI,.tpl1, 5$jORDERID|ISCLOSED|CUSTID|SKU|DESC|PALLETQTY|LOT|EXPIRATION|LOCATION|MU|QTY|PALLETPICKS|FIRSTPICKS|SUBPICKS| 099R$TMETA$,.tpl1, :[3CALL "GETTMETA","RPDATE"+A1$,RPDATE$; IF LEN(RPDATE$) THEN LET RPDATE$=FNMDYSAVE$(RPDATE$)<$'' $otherhead>> CONFLINKXA)$R' pagetitle3PL PICKS SCREENFw$?5 P@@R"$%400&8003for popupsZ$SUBFUNC[\5$-]A$/9_`3set formstart and formenda!$ &PGMFUNC=CALL۩#i:$" -###,###,##0$ -$#####0.00* -######0.00j-$0-$###,###.0000=-###,###,##0.00k'$I-###,###,###.00J-######0A$td class="td" <>< nowrap>$ 'TRHILITE   1> G$K?V$(3/D$)< $
3$6E tmp/3PLPICKS_۩(Өө.xls%$L$,LO_CREATE,O_TRUNC6H$|||J$| 3^1000 "------------ main logic$ORDERID(3display/get the input params table$M $#u03x'0$MN

H3TEXT$=TEXT$+""$#$%$ Elapsed: ۩(
H  ccalamari/$
۫G



 $#( U3" create PROGRAM boxes D$YProgALL T$Z $[[var Y = new CheckBoxGroup(); Y.setControlBox("Y Master"); Y.setMasterBehavior("all"); L3LET STEXT$=STEXT$+BRANDGROUP$+".addToGroup("""+PROGGROUP$+"Master"");"+$0A$ 8)U3^1000 ------ HANDLE THE CREATE OF XLS,$$

Create XLS of a Cust/Period

3$F@_$ Cust/Period: F
 1F$@f@@)$6E tmp/AXINV_۩F.xls%$L$,LO_CREATE,O_TRUNC6h9$ Customer: @ Period: @
 3get details\LL `Lp@$N Excel Version $N$ utsub.wbb`  
G$

`~#(@3T=$4ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#V$c"d YE2^ ERRORPAGE3-------- EMAIL ERROR MESSAGE+$5'WFDIRtmp/000_last_error.txt,O_CREATE,O_TRUNC5=$4ERROR ۩(Ө AT LINE ۩(Ө" IN ۩# L4E$65$7' error_email84(JBMAILTO798:;6<@ }$q
Order is not valid. Click and fix the problem(s).#(U 39000 OUTTA HERE#<$3TEXT$=TEXT$+"
"+DEBUG$+"
"#F $&')U 3^1000 "------------ MAIN REPORT LOGIC'B 3GOSUB 22000'j1'l'tL$@
' 3HEADINGS'$$ө ,FUTURE'@$3
 '!$, ('#$')$:C'($ *3+\1J8+f CANCEL*+p @*.3CALC THE PICKS:$: $  @$H ۫ 1 @ $HBh 3TOTALLINGFF*J83REPORT COMPLETEL,$
L:$LD$N8N 93^1000 "------ handle the subtotals and grandtotals linesR#3^1000 --- javascript date handlingRV$O # R$OO R&$Q' $otherheadR0R0$R' $otherheadQOR:8u0.3--------- GET ORDERs DETAIL FOR A TRANSACTIONuk$c/orders?pgsiz=100&pgnum=2&rql=readonly.CustomerIdentifier.id==73;referenceNum!=*CANCEL*&detail=noneu3$FILENAMEGET3PLCGETu$u$u $v#$.ResourceList[۩(]v $U$v  xvR$.ReadOnly.OrderId,.ReadOnly.FullyAllocated,.ReadOnly.IsClosed,.ReadOnly.ProcessDate,.ReadOnly.PickTicketPrintDate,.ReferenceNum,.PoNum,.EarliestShipDatevW v\>$| U$" w $@@w $@w$@@@@@A@ w$@@@A@ w$@@@@w Lw3--- end of allocationsxP3----- end of cloopx$vx3----y8{p3--- add next detail segment|.8UV$`=$'WFDIR tmp/3plPICKS_۩(Өө.jsonj $ >  2>&1t(3A=SCALL("echo -e ""\n\n"" >>"+OUTFILE$)~$$,3^1001B?3^100n8 U3--------$A3LET J=UNT; OPEN (J)"&1"*3READ RECORD(J,SIZ=99999)JQOUT$; CLOSE (J)($cat | jq -c '' U$*8)U3GET THE CUST/PERIOD TOTALS FROM AXSUM$`E$`` Invoice Customer Period Brand Service Description )    Rate    '   Qty    *   Charge    GL Code1 Source AX GL AX Dim 1 AX Dim 2 1h@f& 1@f$]\^'1h<i @j@k@f<&1aJ1@fb0 $^^:& @sOA$]]@mND @lS $\\@ml @o@p@m$@q$`` @ @f  @r @s @t @q @u ۩(@m-$###,###,###.00 @n @l ><3doneF$``
 8U3GET SUMMARY BILL TOTAL$we 1xw#$v{|}~&1x$y y w$h $vv@z# OP@${{@z0# SH@$||@z05 AC@@J $||@z0# AC@$}}@z0 $~~@z\$3DONE~8337000\%3create SENDTO$ from ALERTEMAILS file3variable= ALERTEMAILS.ELIST$)$7chuck.calamari@gmail.com T  ccalamari8$77,,smichalowski@champlog.com, ar@champlog.com %$ө@g,  $ $  #$$$77,8@/340000 " TURN TEMPLATED VAR INTO COLUMNS VALUESJ&$ ,T/ N[۩(]:c(32*)$ ^$h r$ @|O$' /$V@(Өө@A$@,۫ө@,* CH3PLq$ DELETE FROM  WHERE TRANSID = '۩@' AND WHSETRANSPRICECALCID = '۩@'; V SKUINFOC$ DELETE FROM  WHERE ITEMID = '۩@'; X$ INSERT INTO  ( ) VALUES ();>$MYSQL1 10.1.1.28 wmsreports#$GG   $89U3^1000 "----- PARAMETERS TO START AUTO ORDER PROCESS$D: 8pt;$ reportparamK$2@
 K$AC $AJ$ RO3LET DOCUST$="17"; LET CUSTNOTE$="3PLC Account forced to '17' until production"WM$&#$ $p$dE$ &$' 9 :$) $B
OrderIDCEmptyCUpdate? 

		 + $
8P Z&$|:C(1*=),n8x]Â ""ô þ$$8(] !$  $+$< width="۩(">8"], 6! $ @8J]T ^,$ $
h8r]| Ć ĚĐ/$//Ě8Ĥ]Į ĸ$"",8]( $, ۩5$۩ ۩ 8] $ ($ܨ8] $$$ө8&]D N# $SŞS$./X( T M:N(1*=47),D:N(1*=47),Y:N(1*=47)b($T/// @U $@U@Ug$V@U@W@XŔl$S V%Y%Mz%DzŔŀŞŔ $SŞ8Sţ]Ũ< // Ų ż$' 8] $$@8] ? #pH W$$ WAREHOUSEWHSE TRANSACTIONTRANSV$DETAIL ITEMTRAITSNAMEKEY>$ IDENTIFIERIDREADONLYP$.,$,||:C(1*),8]8  B3$?L3$?V$ ǜ^$ǜǰn$
SHOWING  B$Excelǰ`$f$ONCLICK ?$)"@$ө'thcolor $#FFFFFFc$