<>9N3 833PLRATES - ACCESS THE 3PLC RATES API - CONTRACT SUMMARY3" " $JBB @@+R$$AXSUMg,.tpl1, h,R$$JCUST\,.tpl1, ]-R$$CCSMS^,.tpl1, _/S$$TSS3PL,.tpl1, 2R$$AXINVj,.tpl1, k4R$$CH3PLq,.tpl1, r7'$$$CCNVZl,9R$TMETA$o,.tpl1, p<$%' $otherhead>A"$S' pagetitle 3PL RATESFw$A5 P@@Z$SUBFUNC[\5$-]A$/9a!$ &PGMFUNC=CALL۩#i:$" -###,###,##0$ -$#####0.00* -######0.00j-$0-$###,###.0000?-###,###,##0.00k'$K-###,###,###.00L-######0A$td class="td" <>< nowrap>$ 'TRHILITE   1@ G$N?V$(3/D$)< $
 EPUSHU3$6H tmp/3PLRATES_۩(Өө.xls%$O$,OO_CREATE,O_TRUNC6H$i|||J$ii| 3^1000 "------------ main logic " $s63$P3U(($x.@'LO OO @$Q Excel Version $PQ

Q$I3LET TEXT$=TEXT$+DEBUG$ $i#(@3T=$4ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#V$`"a 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<@#(U 39000 OUTTA HERE#<'*U 3^1000 "------------ manual rates loops'Vg$_.PriceCalcRateId, .ChargeLabel, .UnitDescription, .ChargePerUnit, .Notes, .GlAcctNum, .Required'tc$ M '$%' $otherhead''D$M#)h3)r$)!$| .|)0 (ACCT:C(1*),INACTIVE:C(1*),ACCTNAME:C(1*))#$) @true))$s@)$@"*0U* 3loop here+R!$ .+\ $,$$J ۫| - $J.*.3----- loop to next account.@).|3REPORT COMPLETE.$
'o$tUAccount,Source,Warehouse
Transaction
Type,Charge
Type,Default
GL AcctNum,,E('$Mt 
 .8.(U3^1000 "------------ AUTO rates loops/&$.SplitPeriodStorageGlAcctNum,.RecurringStorageGlAcctNum,.DetermineRateAfterFreeDays,.RcvHandlingGlAcctNum,.OrdHandlingGlAcctNum,.SplitPeriodDay,.MinimumStorageCharge,.XactionRates,.StorageRates/Dc$ M /D$M#1831B$1!$| 6L10 (ACCT:C(1*),INACTIVE:C(1*),ACCTNAME:C(1*)1#$1 @true11$s@1$@"2]2 3loop here3"!$ 53, $3$J ۫| 5 $J5253----- loop to next account616L3REPORT COMPLETE6V$
/$tAccount,Source,Storage
Charge Period
Type,StorageMonthEndDay,StorageDayOfWeek,StorageWhichDaysToCountType,WaitDaysToGenStorageBill,Facility,,E0'$Mt 
 68N 3^1000 "U(%3------- get list of active customersU2b$Z.ResourceList[]| .ReadOnly.CustomerId,.ReadOnly.Deactivated, .CompanyInfo.CompanyName, "|"U<N$u/customers?pgsiz=99vFILENAMEGET3PLCuGETvwUF $UU8U3U$|V$$u/customers/{cid}/manualratesV$uu{cid}sW3$vFILENAMEGET3PLCuGETvwW$W'$~.XactionTypeRates[۩(]W$~U$W  UW:$~| .WarehouseTransactionTypeU$W UW$3---- loopW*$~.ChargeTypeRates[۩(]W U$W-$ | .ChargeTypeU$W3$ | .DefaultGlAcctNumU$W nullUW$3----- loopW $.Rates[۩(]W93LET DOFILTER$=RFILTER$; GOSUB GETJSON; LET rOUT4$=JQOUT$X>$yXC yXH6$| yU$" XR @nullUY3----- handle the Rates[] loop[hS$s - u۫ | [$W[U[$W[U[3----- end of cloop\&$W\0U]8]3]$|^"$u/customers/{cid}/autorates^$uu{cid}s^3$vFILENAMEGET3PLCuGETvw_(3$.StorageChargePeriodTypeU$_P$_Z'$~.XactionTypeRates[۩(]_d$~U$_n  U_s:$~| .WarehouseTransactionTypeU$_x U_}$3---- loop_*$~.ChargeTypeRates[۩(]_ U$_-$ | .ChargeTypeU$_3$ | .DefaultGlAcctNumU$_ nullU_$3----- loop_ $.Rates[۩(]_93LET DOFILTER$=RFILTER$; GOSUB GETJSON; LET rOUT4$=JQOUT$`$y` y`6$| yU$" `" @nullUa3----- handle the Rates[] loopc8S$s - u۫ | cV$_c`Uc$_cUc3----- end of cloopc$_ZdUe8UV$z`<${'WFDIR tmp/3plget0_۩(Өө.jsonj $|x > { 2>&1t(3A=SCALL("echo -e ""\n\n"" >>"+OUTFILE$)~$}$,}{3^1001}B?z3^100}n8 U3--------$($xcat v | jq -c '' U$z*89U3^1000 "----- PARAMETERS TO START AUTO ORDER PROCESS$F: 8pt;$ reportparamK$2B
 K$CC $CE$ RO3LET DOCUST$="17"; LET CUSTNOTE$="3PLC Account forced to '17' until production"WL$%f3RESULT1$=""; GOTO 43210 $+8 , utsub.wbb+> SELECTED>#$ E$ &$' 9 :$) $D
CustomerE Year+MonthE 

		 +$
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ţ]Ũ< // ? #pH nW$nn$nn WAREHOUSEWHSEnn TRANSACTIONTRANSP$n.,$,||:C(1*),8]8  B3$?L3$?V$ ǜ^$ǜǰn$
SHOWING  B$Excelǰ`$f$ONCLICK ?$)"@$ө'thcolor $#FFFFFFc$