<>e:YwN )33PLCHARGES - ACCESS THE 3PLC CHARGES API @3******* SEE 63000 IF CHARGES MISSING/WRONG IN AX SCREEN VS 3PLC3@@(R$$JSBFIq,.tpl1, r*$$, +R$$AXSUMy,.tpl1, z,R$$JCUSTe,.tpl1, f-R$$CCSMSg,.tpl1, h/S$$TSS3PL,.tpl1, 0Z$$ gl_ax_convert,.tpl1, 2R$$AXINV,.tpl1, 4R$$CH3PL,.tpl1, 5U$9TRANSID|CUSTID|WHSETRANSTYPE|PEREND|QTY|SKU|ITEMID|NOTES| 097'$$$CCNVZ,9R$TMETA$,.tpl1, :[3CALL "GETTMETA","RPDATE"+A1$,RPDATE$; IF LEN(RPDATE$) THEN LET RPDATE$=FNMDYSAVE$(RPDATE$)<$'' $otherhead>> CONFLINKXA1$S' pagetitleEOM Invoice Email 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$L?V$(3/D$)< $
3$6E tmp/3PLcreen_۩(Өө.xls%$M$,MO_CREATE,O_TRUNC6H$|||J$| 3^1000 "------------ main logic($DOCUST $L$SHOWYEARQ- !$ Ө%Y%Mz(3display/get the input params table$N $+#3x'@ B33GOTO 1700; REM ---- SKIPPING THIS SECTION FOR TESTEA tid:c(1*=۩(Ө/ ),ttype:c(1*=۩(Ө|)J2$|$r$@A| uttplcp.wbb 1u03receipts 2 u03orders@' 3" process SKULIST$5$|$y0$NO

:+ BINDᫀ BINDINVOICEN8AXDET1 !GETAXINVS+${"id": ۫| },{"id": T+  $VA${"transactionIdentifiers": [  ] }bM$:/customers/{cid}/facilities/1/invoicebinder?invoiceNumber=۩l${cid}vF BINDᫀ BINDINVOICE"GET3PLCPUTH3TEXT$=TEXT$+""$,#$-,+%$ Elapsed: ۩(-
3LET TEXT$=TEXT$+DEBUG$ $#( U3" create PROGRAM boxes D$\ProgALL T$] $^^var \ = new CheckBoxGroup(); \.setControlBox("\ Master"); \.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@c$ Cust/Period: F
 1F$@s@@)$6E tmp/AXINV_۩F.xls%$M$,MO_CREATE,O_TRUNC6h9$ Customer: @ Period: @
 3get details\LM dMp@$O Excel Version $O$ utsub.wbbd  
G$

d~#(@3T=$4ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#V$i"j 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'&$--01'$01'!/$--'"N 16 2020-01-31.$ 2020-02-013NEEDED DOER SECIAL PROBLEM'#B3 IF DOCUST$="51" THEN LET EDATE$="2020-12-01"; REM EZ ICE TESTING'$1e'&'&&1e'6f @'&'.$f'8'68$
3PLC ID:  NOT MAPPED IN JCUST YET!'BU'L/$3----- ONLY PERMIT OF AX NOT POSTED YET'`" e3CLEAR PERIOD RECORDS'tL$@
'$'' $otherhead''Z$'' ) $S' $otherhead''0$K()h3*1** 3loop here+\1J8+ @*+ ө@ *+ @ *+ @ *;$w"x<$(I $"۩(I@t$__$T9    @yQ3LET STEXT$=STEXT$+PROGGROUP$+".addToGroup(""ECODEC"+STR(ESEQ:"0000")+""");"+$0A$@;$p $p*
' $ө :C(1*),C'7$:C(20),C:C(1*)('$K 
@Q3LET STEXT$=STEXT$+PROGGROUP$+".addToGroup(""ECODEC"+STR(ESEQ:"0000")+""");"+$0A$@$@@;$$ H ۫ @$UBh $HB$@(Ө@B $@@@-@ dbo.CH3PL@ ө@/@|!$۩@/@|C$@@C* "g3ACCUMULATE THE AXSUM RECORDSC$''ܨ@FF*J83REPORT COMPLETEJK$H
۩(' TOTALS $HL,$
L5$  LC$7

N8N 93^1000 "------ handle the subtotals and grandtotals linesR#3^1000 --- javascript date handlingRV$P # R$PP R&$R' $otherheadR0R0$S' $otherheadRPR:8U3Va$Y/customers/{cid}/facilities/1/charges?beginDate={bdate}T00:00:00&endDate={edate}T23:59:59VR${cid}{bdate}{edate}W3$FILENAMEGET3PLCGETW!#,c< ls -l 1c.cW&B$#
Result File: .W$W#$.ResourceList[۩(]W$U$W  e,X>M$E.TransactionId,.WarehouseTransactionType,.ConfirmedDate,.ReferenceNumXC XH6$| U$" Y 3----- handle the Charges[] loopY$Y+$.ChargeType,.Subtotal Z2-$ .Charges[۩(] | Z<:$ | U$" ZZ null[Z$Z$ .Details[۩(]Z,$ |  | U$Z  [["$.WarehouseTransactionPriceCalcId,.NumUnits,.ChargeLabel,.UnitDescription,.ChargePerUnit,.GlAcctNum,.Sku,.PtItem,.PtItemDescription,.PtArAcct['$ [,7$ | U$" [6 [8$F@-@[:) @|$@|[@$@F[E uttplcp.wbb[J uttplcp.wbb[O uttplcp.wbb[T$@F[^$@[h L[r/$@3empty the subtotal after first detail[$Z[$Y[3----- end of cloope"$We8e-3------- create AXSUM RECORDS FOR CUST/PERIODeA3---- IF NOT UPDATED TO AX YET - REMOVE ALL AXSUM RECS - REBUILDefAXDET101 !CLEAR_3REQUEST TO CLEAR AXSUM RECORDS$fX3f8g3-------- accumulateg1͵A@gg$@@ggg$өө@g$@ix+3-------- USE THE AXDET1 PROG TO ACCUMULATEi $i($ @null$@i03---- CONVERT AX GL# TO A TSS GL TO FIT THE FLOWi1 j@3GET DEFAULTS FROM AXDET1i!$A 1ڵۼij($ڰj@  j@j 1ڵj$@j@9AXDET1013jT,3F POS("D828"=SERVICE$) THEN DUMP ; RELEASE j8u013--------- GET RECEIVERS DETAIL FOR A TRANSACTIONu293https://secure-wms.com/inventory/receivers/6639?detail=1u3,3https://secure-wms.com/orders/6523?detail=1uN$ dbo.CH3PLSKUuX8$ DELETE FROM  WHERE TRANSID = '';ubBMSSQL1SQLPROD.CHAMPLOG.COM WMSReportsDELETEugQ$dbo.MYSQL1 10.1.1.28 wmsreportsDELETEu.$/inventory/receivers/ ?detail=1u. 2!$/orders/ ?detail=1u3$FILENAMEGET3PLCGETu$v#$.ReceiveItems[۩(]v. 2!$ .OrderItems[۩(]v $U$v  xvR:$2.ItemIdentifier.Sku,.ItemIdentifier.Id,.Qty,.NotesvW v\6$| U$" w$3w)$A#w.$Aw $A@A@AAA$A%w" $@@w7 өA|$۩A|xP3----- end of cloopx$vx3----y8y#3---------- get ITEMID and store ity"3.ItemId,.Sku,.Upc,.Description,.ClassificationIdentifier.Name,.ClassificationIdentifier.Id,.Options.PackageUnit.Imperial.Weight,.Options.PackageUnit.Imperial.Length,.Options.PackageUnit.Imperial.Width,.Options.PackageUnit.Imperial.Height,.Options.Pallets.TypeIdentifier.Namey6$ dbo.SKUINFOy|&$ /customers//items/y3$FILENAMEGET3PLCGETy$z:$.ItemId,.Sku,.Upc,.Description,.ClassificationIdentifier.Name,.ClassificationIdentifier.Id,.Options.PackageUnit.Imperial.Weight,.Options.PackageUnit.Imperial.Length,.Options.PackageUnit.Imperial.Width,.Options.PackageUnit.Imperial.Height,.Options.Pallets.TypeIdentifier.Namez;I$ClassificationClass IdentifierIdz<b$ ZITEMID,CUSTID,SKU,UPC,DESCRIPTION,CLASSID,CLASSNAME,WEIGHT,LENGTH,WIDTH,HEIGHT,PALLET_TYPEz=^$OptionsOpt PackageUnitPkImperialz?   zD,$U$" { 3{p $A A A AAAA{z$A{$AAA&A{$AAAA{$AAAA{$AA {  $ @|83----- end of cloop|3----|8UV$`<$'WFDIR tmp/3plget0_۩(Өө.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$dE$dd Invoice Customer Period Brand Service Description )    Rate    '   Qty    *   Charge    GL Code1 Source AX GL AX Dim 1 AX Dim 2 1y@s& 1@s$a`b'1y<z @{@|@s<&1eJ1@sf0 $bb:& @OA$aa@~ND @}S $``@~l @@@~$@$dd @ @s  @ @ @ @ @ ۩(@~-$###,###,###.00 @ @} ><3doneF$dd
 8U3GET SUMMARY BILL TOTAL$r 1#$&1$  $h $@# OP@$@0# SH@$@05 AC@@J $@0# AC@$@0 $@\$3DONE~8337000\%3create SENDTO$ from ALERTEMAILS file3variable= ALERTEMAILS.ELIST$)$7chuck.calamari@gmail.com T  ccalamari8$77,,smichalowski@champlog.com, ar@champlog.com %$ө@v,  $ $  #$$$77,8@/340000 " TURN TEMPLATED VAR INTO COLUMNS VALUESJ&$ ,T/ N[۩(]:c(32*)$ ^$h r$ @|O$' /$V@(Өө@A$@,۫ө@,* dbo.CH3PLq$ DELETE FROM  WHERE TRANSID = '۩@' AND WHSETRANSPRICECALCID = '۩@'; Z dbo.SKUINFOC$ DELETE FROM  WHERE ITEMID = '۩A!'; X$ INSERT INTO  ( ) VALUES ();@MSSQL1SQLPROD.CHAMPLOG.COM WMSReportsO$*dbo.MYSQL1 10.1.1.28 wmsreports*)#$GG  ) 89U3^1000 "----- PARAMETERS TO START AUTO ORDER PROCESS$D: 8pt;$ reportparamK$2@
 K$AC $A]$ RO3LET DOCUST$="17"; LET CUSTNOTE$="3PLC Account forced to '17' until production"WL$%f3RESULT1$=""; GOTO 43210 $+8 , utsub.wbb+> SELECTED>#$ $$E$ &$' 9 :$) $B
CustomerC Year+MonthCAssign/BIND Invoice? 

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