<>|o{ )33PLCHARGES - ACCESS THE 3PLC CHARGES API @3******* SEE 63000 IF CHARGES MISSING/WRONG IN AX SCREEN VS 3PLC3@(R$$JSBFIm,.tpl1, n*$$, +R$$AXSUMt,.tpl1, u,R$$JCUSTa,.tpl1, b-R$$CCSMSc,.tpl1, d/S$$TSS3PL,.tpl1, 0Z$$ gl_ax_convert,.tpl1, 2R$$AXINV,.tpl1, 4d$$CH3PL,.tpl1, $P$,P5U$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`&$--01tC$01$--(3display/get the input params table$N $&#3F1  BINDSCANAXREVᫀ BINDINVOICE:x'@ 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ᫀ BINDINVOICE?1  BINDSCANAXREVᫀ BINDINVOICEm`D$ABAF0 |A$AANG9$|A$AAAN8AXDET1 !GETAXINVS+${"id": ۫| },{"id": T+  $VA${"transactionIdentifiers": [  ] }bM$:/customers/{cid}/facilities/1/invoicebinder?invoiceNumber=۩dO A?T123/95//$ 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%$| AF$BK ? 63$63GET DOCUMENTS AFTER INVOICE ASSIGNED$'#$('&%$ Elapsed: ۩((
^3IF POS("ccalamari"=SESSION$) THEN LET TEXT$=TEXT$+"
"+FNSUB$(DEBUG$,$0A0A$,$0A$)+"
"$  ccalamari$4J$
4-

Document Links
03TEXT$=TEXT$+STICKY$#(3retrieve the PDF documentsc$9ӫwtIds:|,~utcOffset:6~ShowDetails:No,~~ 3CHECK LENGTHm$a/reportdefs/ssrs/InvoicesConsolidated/Customer/InvoiceConsolDave/runner?customerid=17¶meters=9*$44 46$ PDFFILENAMEGET3PLCGET\6$+Eeom//_ _summary.pdff+ppK$, mkdir -p Eeom/; mv  + >/dev/null 2>&1z $,|&$44, ۩'MYSCALL1 ~W$9 parmWTID:۫|, ~utcOffset:6,~~ 3CHECK LENGTHp //3/56/51/54/96/97/102/104/106/103/75/115/110/145/169/#3-------- TOO BIG TO RETRIEVE?$3/reportdefs/ssrs/ViewTransaction/runner?parameters=9#$44 9 = 6$ PDFFILENAMEGET3PLCGET;$+Eeom//__transactions.pdf+,$,mv  + >/dev/null 2>&1 $,&$44, ۩'MYSCALL1 V$9wtIds:۫|,~utcOffset:6~ShowDetails:Yes,~~ D$8/reportdefs/ssrs/InvoicesConsolidated/runner?parameters=9#$44 9 = 3$FILENAMEGET3PLCGET6$-Eeom//_ _details.csv-,$,mv  - >/dev/null 2>&1  $, '$ dos2unix -q -33/17/2022 &$44, ۩'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< A?T/$ FacilityIDs:1 FacilityIDs:5 ~$5 2018-01-01 X${cid} {startdate}5 {enddate} $44 3$FILENAMEGET3PLCGET >$-Eeom//__eomstocksummary.csv - ,$,mv  - >/dev/null 2>&1 $, $44, (@$DEeom//__transdetailwithPO.xls 2D 4 <$$,O_CREATED FLC  3get document links 8 23------ GET DOCUMENT LINKS FOR DOCUST$ AND DOYEAR$ +$.Eeom//__ E$/=summary.pdf/details.csv/eomstocksummary.csv/transactions.pdf/ $0 !$//  &#$1/// 0)$2.1$$, 2 :F$3 1 N$003 | v  3done >8 8 )3CONVERT LONG URI TO TOKEN USING QPTOKENS $=9  98 %$7'.token=""|.value="9"' JQ1{}78 $:/properties/qptokens #GET3PLC:8POST;< Q$7'.Token'JQ1;79$99"99 8)U3^1000 ------ HANDLE THE CREATE OF XLS,$$

Create XLS of a Cust/Period

3$F@_$ Cust/Period: F
 1F$@o@@)$6E tmp/AXINV_۩F.xls%$M$,MO_CREATE,O_TRUNC6h9$ Customer: @ Period: @
 3get details\LM `Mp@$O Excel Version $O$ utsub.wbb`  
G$

`~#(@3T=$4ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#V$e"f YE2^ ERRORPAGE3-------- EMAIL ERROR MESSAGE+$5'WFDIRtmp/000_last_error.txt,O_CREATE,O_TRUNC5=$4ERROR ۩(Ө AT LINE ۩(Ө" IN ۩# L4E$65$$7chuck@tssconnect.com84(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'"N 16 2020-01-31.$ 2020-02-013NEEDED DOER SECIAL PROBLEM'#N 84 2021-09-30.$ 2021-07-013SPECIAL PER DM FOR VYMEDIC'$1a'&'&&1a'6b @'&'.$b'8'68$
3PLC ID:  NOT MAPPED IN JCUST YET!'8 NOCLEAR1R'BU'L/$3----- ONLY PERMIT OF AX NOT POSTED YET'`" e3CLEAR PERIOD RECORDS'tT$C@
C'$'' $otherhead''l3OHEAD$=OHEAD$+$0A$+""+$0A$; LET DUMMY$=STBL("$otherhead",OHEAD$)'0$K((,$CCK  )h3*1** 3loop here+\1J8+ @*+ ө@ *+ @ *+ @ *;$r"s<$(I $"۩(I@t3 LET ESEQ=ESEQ+1; LET ACTION$="    "@yQ3LET STEXT$=STEXT$+PROGGROUP$+".addToGroup(""ECODEC"+STR(ESEQ:"0000")+""");"+$0A$@;$l $l*
' $ө :C(1*),C'R$:C(10),C:C(1),C:C(6),C'7$:C(20),C:C(1*)('$K 
@Q3LET STEXT$=STEXT$+PROGGROUP$+".addToGroup(""ECODEC"+STR(ESEQ:"0000")+""");"+$0A$@$@@$
@ @ @ AR AK AS @ AT AU AV @ A# @ @ AW @ @ AX AY AZ A[ A\ @$TBh $Br $CCB$@(Ө@B $@@@-@CH3PL@ ө@/@|!$۩@/@|B7 ө@,6$66۩@,BV ө@,>@2ө@>$>>۩@,C$@@C* "g3ACCUMULATE THE AXSUM RECORDSC$""ܨ@FF*J83REPORT COMPLETEJK$H
۩(" TOTALS $HJ$CCH
 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)
>N8N 93^1000 "------ handle the subtotals and grandtotals linesR#3^1000 --- javascript date handlingRV$P # R$PP R&$R' $otherheadR0R0$S' $otherheadRPR:8R3--- CLEAR EXISTING CH3PL RECSR$NA R1PNRS4$OPS1PS> ONSSH4OSS4S8U3Va$Y/customers/{cid}/facilities/1/charges?beginDate={bdate}T00:00:00&endDate={edate}T23:59:59V< A?T/$ 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[^$@[c$AK@@[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 j8m`83---------- GET LIST OF TID FROM CH3PL FOR THE BIND STEPmbX3get the tsscustme$mj%$NA 1Nmtmt$On1m~ ONnm$$Q@QQ-Qm) Q|$Q|mmtn8u013--------- 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)$Aw.$@w8$A*w $@@@@AAAA 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 $AAAA A A A {z$A {$AAA!A{$AAAA{$AAAA{$AA{ $@|83----- end of cloop|3----|8U $EӨ#V$`<$'WFDIR tmp/3plget0_۩(Өө.jsonj $ >  2>&1t(3A=SCALL("echo -e ""\n\n"" >>"+OUTFILE$)~$$,3^10013^100F<$(Ө#E3PLCLOG(#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$`E$`` Invoice Customer Period Brand Service Description )    Rate    '   Qty    *   Charge    GL Code1 Source AX GL AX Dim 1 AX Dim 2 1t@o& 1@o$]\^'1t<u @v@w@o<&1aJ1@ob0 $^^:& @OA$]]@yND @xS $\\@yl @{@|@y$@}$`` @ @o  @~ @ @ @} @ ۩(@y-$###,###,###.00 @z @x ><3doneF$``
 8U3GET SUMMARY BILL TOTAL$n 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 %$ө@q,  $ $  #$$$77,8X#3---------- GET TSSCUST FROM 3PLCID]$b1adl&1ab @lv$b8@/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# $UŞS$./X( V M:N(1*=47),D:N(1*=47),Y:N(1*=47)b($V/// @W $@W@Wg$X@W@Y@ZŔl$U X%Y%Mz%DzŔŀŞŔ $UŞ8Uţ]Ũ< // Ų ż$' 8] ? #pH W$$ WAREHOUSEWHSE TRANSACTIONTRANSP$.,$,||:C(1*),8]8  B3$?L3$?V$ ǜ^$ǜǰn$
SHOWING  B$Excelǰ`$f$ONCLICK ?$)"@$ө'thcolor $#FFFFFFc$