<>94R '3EDSPACE - CUSTOMER MASTER EDIT SCREEN 33 R$$JCUST[,.tpl1, \!&$$JCBILi,"R$$JSHRTw,.tpl1, x-R$$JIACT,.tpl1, 1R$$JITEM:,.tpl1, ;2Z$$CGLMSn,.tpl1,CGLMS_AX o<$"' $otherhead>Fw$95 P@R"$ 400!8003for popupsZ$SUBFUNC[\5$-]A$)9_`3set formstart and formenda!$ &PGMFUNC=CALL۩#i:$ -###,###,##0 -$#####0.00% #######0.00j+$* $###,###.00007###,###,##0.00k%$D###,###,###.00E######0A$td class="td" <>< nowrap>$ 'TRHILITE   +8 G$G?V$#-/D$$< $
 SETQTYU  LISTJIOCTU3$0A tmp/custinfo_۩(Өө.xls%$H$,HO_CREATE,O_TRUNC03^1000 "------------ main logic(3display/get the input params table$I, PEREND@'LH HO @$J Excel Version$$IJ

J$B3LET TEXT$=TEXT$+DEBUG$#(!U3----------- HANDLE THE UPDATE3THEN RE-DISPLAY4)$ADJDATEOLDVALUEH@$NEWVALUE $MUST ENTER NEW VALUEJ$DOITEM$ݨ `PADJITEMA UNREAL EOM ADMIN ADJ F$>
Changes Saved

$[pU3^1000 "--- CREATE NEW FORMz6$ chargecreateCREATECHARGEDOWU$k
V
Add Charge to Table 8$kkZ
8@3T=$.ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#^E23-------- EMAIL ERROR MESSAGE@+$/'WFDIRtmp/000_last_error.txt,O_CREATE,O_TRUNC/=$.ERROR ۩(Ө AT LINE ۩(Ө" IN ۩# L.E$0/$1' error_email2.(JBMAILTO1324506@ }$q
Order is not valid. Click and fix the problem(s).#(U39000 OUTTA HERE'')U 3^1000 "------------ MAIN REPORT LOGIC'v$PERENDLASTDAYOFMONTH$Ө' _All$_'3LET CGITPL$=FATTR(CGI$); LET CGITPL$=CGITPL$+",DOBRAND:C(1*=0)"; LET CGI1$=CGI$; DIM CGI$:CGITPL$; LET CGI$=CGI1$+BRAND1$+$00$; GOTO 10005'.sƛ'0/$qq20۩ s%Yz%Mz
EOM?'2$tt۩ s%Y%Mz01'32$ s %Mz/%Dz/%Y s%Y%Mz%Dz'4*s't[$O'$F%
Code?Name?Bldg? Storage Item?Storage
Item
Table?Storage
Rate?qrSet Qty as of

To Bill($F * 3HAVE BRAND + 73SCAN CUSTOMERS FOR ANY THAT HAVE BILLING LOCS OR SPACE+R$ASPACE +\ 3LOOP HERE+1[6\,$- @^XSAMPLE\+\.1:\+;/D3/N* x x1w\@v/Xx/X SAMPLE\/l/b @y+\/$u/sƛ/$ s%Yz%Mz31/!$|;y/$uu۩( /*s/$SETQTY`/$V&Z0 $uu3)$hN1i\3$hY4&$l8"84X$|;4n$C \\z @]+@^ ; +@v ۩(@y $####.00# u 6 $C6L 3end of loop6+\63REPORT COMPLETE6? SPACE*$A BILLING LOCS 1[+6F  BILLING LOCS*$A BILLING UNIT 1[+6E  BILLING UNIT)$A BILLINGLOCS 1[+6F  BILLINGLOCS *$A BILLINGLOCOS 1[+6E  BILLINGLOCOS)$A BILLING_100 1[+6D  BILLING_100)$A BILLING_101 1[+6D  BILLING_101)$A BILLING_102 1[+6D  BILLING_102)$A BILLING_103 1[+6D  BILLING_103)$A BILLING_104 1[+8$
9$gUpdate Location Billing for PEN001 -- When complete reload this page
9 $k
Update Location Billing for PEN003 -- When complete reload this page
9 c3IF DOBLDG$<>"" THEN LET BLDGLIST$=FNSUB$(BLDGLIST$,"