<>vj h )33PLCHARGES - ACCESS THE 3PLC CHARGES API @3******* SEE 63000 IF CHARGES MISSING/WRONG IN AX SCREEN VS 3PLC3@@(R$$JSBFIp,.tpl1, q*$$, +R$$AXSUMx,.tpl1, y,R$$JCUSTd,.tpl1, e-R$$CCSMSf,.tpl1, g/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>$    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$@@| uttplcp.wbb 1u03receipts 2 u03orders@O3SEE 3PLSKUINFO IF LEN(SKULIST$)=0 THEN GOTO 1800; REM " process SKULIST$5$|$y0$NO

:+ BINDᫀ BINDINVOICED$EFEF0 |E$EENG9$|E$EEEN8AXDET1 !GETAXINVS+${"id": ۫| },{"id": T+  $VA${"transactionIdentifiers": [  ] }bM$:/customers/{cid}/facilities/1/invoicebinder?invoiceNumber=۩d< ACT/$ facilities/1/ facilities/5/l${cid}vF BINDᫀ BINDINVOICE"GET3PLCPUTxG3-- UPDATE CH3PL SET INVOICE = '999222' WHERE TRANSID IN (29721,29061);z $)UPDATE CH3PL SET INVOICE = '۩' WHERE TRANSID IN (۫|,);MYSQL1 10.1.1.28 wmsreports)(| EF$FK ? :3$:3GET DOCUMENTS AFTER INVOICE ASSIGNED$+#$,+*%$ Elapsed: ۩(,
^3IF POS("ccalamari"=SESSION$) THEN LET TEXT$=TEXT$+"
"+FNSUB$(DEBUG$,$0A0A$,$0A$)+"
"$  ccalamari$8J$
8-

Document Links
43TEXT$=TEXT$+STICKY$#(3retrieve the PDF documentsc$=ӫwtIds:|,~utcOffset:6~ShowDetails:No,~~ 3CHECK LENGTHm$a/reportdefs/ssrs/InvoicesConsolidated/Customer/InvoiceConsolDave/runner?customerid=17¶meters==*$88 46$ PDFFILENAMEGET3PLCGET\6$/Eeom//_ _summary.pdff/ppK$0 mkdir -p Eeom/; mv  / >/dev/null 2>&1z $0|&$880 ۩'MYSCALL1 ~W$= parmWTID:۫|, ~utcOffset:6,~~ 3CHECK LENGTH[ ///51/96/104/106/103/75/115/110/#3-------- TOO BIG TO RETRIEVE?$3/reportdefs/ssrs/ViewTransaction/runner?parameters==#$88 = A 6$ PDFFILENAMEGET3PLCGET;$/Eeom//__transactions.pdf/,$0mv  / >/dev/null 2>&1 $0&$880 ۩'MYSCALL1 V$=wtIds:۫|,~utcOffset:6~ShowDetails:Yes,~~ D$8/reportdefs/ssrs/InvoicesConsolidated/runner?parameters==#$88 = A 3$FILENAMEGET3PLCGET6$1Eeom//_ _details.csv1,$0mv  1 >/dev/null 2>&1  $0 '$ dos2unix -q 133/17/2022 &$880 ۩'MYSCALL1 t$/reportdefs/ssrs/StockStatus/Customer/Simple2/runner?customerid=1¶meters=CustomerIDs:{cid}~StartDate:{startdate}~EndDate:{enddate}T23:59:59~FacilityIDs:1~utcOffset:-6 v< ACT/$ FacilityIDs:1 FacilityIDs:5 ~$9 2018-01-01 X${cid} {startdate}9 {enddate} $88 3$FILENAMEGET3PLCGET >$1Eeom//__eomstocksummary.csv 1 ,$0mv  1 >/dev/null 2>&1 $0 $880 (@$HEeom//__transdetailwithPO.xls 2H 4 <$$,O_CREATEH FLG  3get document links 8 23------ GET DOCUMENT LINKS FOR DOCUST$ AND DOYEAR$ +$2Eeom//__ E$3=summary.pdf/details.csv/eomstocksummary.csv/transactions.pdf/ $4 !$/3  &#$5333 0)$625$$, 6 :F$7 5 N$447 | v  3done >8 8 )3CONVERT LONG URI TO TOKEN USING QPTOKENS $A=  =8 %$;'.token=""|.value="="' JQ1{};< $>/properties/qptokens #GET3PLC><POST?@ Q$;'.Token'JQ1?;=$=="== 8)U3^1000 ------ HANDLE THE CREATE OF XLS,$$

Create XLS of a Cust/Period

3$F@b$ Cust/Period: F
 1F$@r@@)$6E tmp/AXINV_۩F.xls%$M$,MO_CREATE,O_TRUNC6h9$ Customer: @ Period: @
 3get details\LM cMp@$O Excel Version $O$ utsub.wbbc  
G$

c~#(@3T=$4ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#V$h"i 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'#N 84 2021-09-30.$ 2021-07-013SPECIAL PER DM FOR VYMEDIC'$1d'&'&&1d'6e @'&'.$e'8'68$
3PLC ID:  NOT MAPPED IN JCUST YET!'BU'L/$3----- ONLY PERMIT OF AX NOT POSTED YET'`" e3CLEAR PERIOD RECORDS'tT$G@
G'$'' $otherhead''l3OHEAD$=OHEAD$+$0A$+""+$0A$; LET DUMMY$=STBL("$otherhead",OHEAD$)'0$K((,$GGK  )h3*1** 3loop here+\1J8+ @*+ ө@ *+ @ *+ @ *;$v"w<$(I $"۩(I@t$^^$T9    @yQ3LET STEXT$=STEXT$+PROGGROUP$+".addToGroup(""ECODEC"+STR(ESEQ:"0000")+""");"+$0A$@;$o $o*
' $ө :C(1*),C'7$:C(20),C:C(1*)('$K 
@Q3LET STEXT$=STEXT$+PROGGROUP$+".addToGroup(""ECODEC"+STR(ESEQ:"0000")+""");"+$0A$@$@@;$$ H ۫ @&$
۫ @$UBh $HBr $GGB$@(Ө@B $@@@-@CH3PL@ ө@/@|!$۩@/@|B7 ө@,:$::۩@,BV ө@,B@2ө@B$BB۩@,C$@@C* "g3ACCUMULATE THE AXSUM RECORDSC$&&ܨ@FF*J83REPORT COMPLETEJK$H
۩(& TOTALS $HJ$GGH
 L,$L@3LET TEXT$=TEXT$+XLT$L5$  LC$7

MXN$BIf recurring needs re-gen see '3PLCHARGES' at 63000 for notes.
M?$/
Outbound TRANSID LIST (see 3PLPICKSGET)
BN8N 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:59V< ACT/$ facilities/1/ facilities/5/VR${cid}{bdate}{edate}W3$FILENAMEGET3PLCGETW!#,c< ls -l 1c-cW&B$#
Result File: -W$W#$.ResourceList[۩(]W$U$W  e,X>T$L.TransactionId,.WarehouseTransactionType,.ConfirmedDate,.ReferenceNum,.PoNumXC 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"$We, 3END OF LOOPe6  3PDFSe8e-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$CH3PLSKUuX8$ DELETE FROM  WHERE TRANSID = '';ubE3ALL "MSSQL1","SQLPROD.CHAMPLOG.COM","WMSReports","DELETE",SQL$,OUT1$ug7MYSQL1 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.$Aw8$A.w $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$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 A AAA{z$A{$AAA%A{$AAAA{$AAAA{$AA{  $ @|83----- end of cloop|3----|8U $IӨ#V$`<$'WFDIR tmp/3plget0_۩(Өө.jsonj $ >  2>&1t(3A=SCALL("echo -e ""\n\n"" >>"+OUTFILE$)~$$,3^10013^100F<$,Ө#I3PLCLOG,#n8 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$cE$cc Invoice Customer Period Brand Service Description )    Rate    '   Qty    *   Charge    GL Code1 Source AX GL AX Dim 1 AX Dim 2 1x@r& 1@r$`_a'1x<y @z@{@r<&1dJ1@re0 $aa:& @OA$``@}ND @|S $__@}l @@@}$@$cc @ @r  @ @ @ @ @ ۩(@}-$###,###,###.00 @~ @| ><3doneF$cc
 8U3GET SUMMARY BILL TOTAL$q 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 %$ө@u,  $ $  #$$$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 = '۩A '; X$ INSERT INTO  ( ) VALUES ();>$)MYSQL1 10.1.1.28 wmsreports)(#$GG)  ( $+$G3JUST IN CASE TEST 4/17/2023 BREAK89U3^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$