Listing of file='ACCT020A' on disk='vmedia/701-2607C.wvd.zip'
# Sector 59, program filename = 'ACCT020A'
0010 REM ACCT020A RELEASE 2.1, (06/23/80) THIS PROGRAM IS A COPYRIGHT PRODUCT
OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0170 DIM I8$9,I9$1,J6$Q0,J7$(7)15,J7$15,J8$2,J8$(7)2,J9$30
: GOTO 4000
4000 SELECT @PARTS0$
: E9=7
4030 Q6$=Q1$
: GOSUB '100(" ","^",8,0,"ENTER DEFAULT TRANSACTION DATE (MM/DD/YY)",3)
: IF Q6$=HEX(1F)THEN GOSUB '31
: GOSUB '121(Q6$)
: IF Q6$<>"E"THEN 4100
: PRINT AT(3,0,80);"Invalid date, re-enter.";HEX(07)
: GOTO 4030
4100 I8=U9
: I8$=U9$
: GOSUB '100("A,C,D","AaCcDdA ",1,1,"ENTER MAINTENANCE TYPE (A,C, OR D)",2)
: IF Q6$=HEX(1F)THEN GOSUB '31
: I9$=Q6$
: Q7$="ADD CHANGEDELETE"
: Q6$=STR(Q7$,Q9*6-5,6)
: PRINT AT(0,56,24);"- ";Q6$;" ";I8$
4200 GOSUB '100(" ",HEX(7F),Q0,0,"ENTER CUSTOMER ID (OR END)",2)
: IF Q6$=HEX(1F)THEN GOSUB '31
: IF Q6$="END"OR Q6$="end"THEN 5870
: GOSUB '96(1)
: J6$=Q6$
: GOSUB '232(1,1,J6$)
: GOSUB '91
: ON J0GOTO ,,4200,,,,4200
: IF J0>0THEN 5990
: GOSUB '50(2," ")
4310 PRINT AT(E9,0,);"Customer ID ";J6$;" ";A1$;TAB(50);"A/R balance = ";
: PRINTUSING "###,###.##-",B
4340 GOSUB '100("0",HEX(7F),8,0,"ENTER INVOICE NO. (OR END)",2)
: IF Q6$=HEX(1F)THEN GOSUB '31
: IF Q6$="END"OR Q6$="end"THEN 4200
: CONVERT Q6$TO J7
: ERRORPRINT AT(3,0,80);"Invoice no. must be numeric.";HEX(07)
: GOTO 4340
4380 PRINT AT(E9+1,0,80);"Invoice";TAB(11);J7
: J7$()="Invoice Payment Debit memo Credit memo Credit
invoice Balance forwardService charge"
: J8$()=" PDMCMCIBFSC"
: PRINT AT(E9+2,0,);HEX(0D0A0D0A);TAB(12);"RETURN = ";J7$(1)
: FOR I=2TO 7
: PRINT ,J8$(I);" = ";J7$(I)
: NEXT I
4450 GOSUB '100(" ,P ,DM,CM,CI,BF,SC","BbCcDdFfIiMmPpSs",2,1,"ENTER TRANSACTI
ON TYPE ( RETURN = INV , OR P, CI, DM, CM, BF, SC)",2)
: IF Q6$=HEX(1F)THEN GOSUB '31
: J7$=J7$(Q9)
: J8$=Q6$
: J8=Q9
: IF J8<6OR J7=0THEN 4550
4520 PRINT AT(3,0,80);HEX(07);"Invoice no. must be zero for BF and SC transact
ions."
: GOTO 4340
4550 IF P3$="1"OR J8<>6THEN 4580
: PRINT AT(3,0,80);HEX(07);"Open item customer can not have 'BF' transactio
ns."
: GOTO 4340
4580 PRINT AT(E9+2,0,);"Transaction type ";J7$
: Q6$="0123409"
: $PACK(F=L2$)J9$FROMJ6$,J7,STR(Q6$,J8,1),"00"
: J3,J5=0
: GOSUB '232(2,1,J9$)
: IF Q$="N"THEN 4720
: GOSUB '91
: IF J0=7THEN 4340
: IF J0>0THEN 5990
: IF I9$="A"THEN 4750
: GOSUB '51(3,Q)
: DBACKSPACE #3,1S
: GOTO 4780
4720 IF I9$="A"THEN 5160
: PRINT AT(3,0,80);HEX(07);"A/R Record not found."
: GOTO 4340
4750 PRINT AT(3,0,80);"Record already on file. You cannot add it.";HEX(07)
: GOTO 4340
4780 IF J8$="BF"OR J8$="SC"THEN 4900
: GOSUB '123(D1(Q))
: PRINT AT(E9+3,0)
: PRINTUSING 6010,U9$
: IF J8$="P"THEN 4860
: IF J8$<>" "THEN 4830
: J5=A(Q)-A1(Q)-A2(Q)
: PRINTUSING 6030,J5
: GOTO 4970
4830 PRINTUSING 6030,A(Q)
: J5=A(Q)
: GOTO 4970
4860 PRINTUSING 6030,A2(Q)
: J5=A2(Q)
: PRINTUSING 6020,C1(Q)
: GOTO 4970
4900 PRINT AT(E9+3,0)
: PRINTUSING 6040,C1(Q)
: PRINTUSING 6050,A(Q)
: PRINTUSING 6060,A1(Q)
: PRINTUSING 6070,A2(Q)
: J5=C1(Q)+A(Q)+A1(Q)+A2(Q)
4970 IF I9$<>"D"THEN 5160
: GOSUB '100("Y,N","YyNn",1,1,"OK TO DELETE (Y OR N)",2)
: IF Q6$=HEX(1F)THEN GOSUB '31
: IF Q6$="N"THEN 5120
: GOSUB '231(2,0,J9$)
: IF Q$>" "THEN 5990
: STR(C1$(Q),,1)=HEX(FF)
: GOSUB '41(3,Q)
5070 IF J8=2OR J8=4OR J8=5THEN Q9=J5-J3
: ELSE Q9=J3-J5
: B=B+Q9
: B9=B9+Q9
: DBACKSPACE #2,1S
: GOSUB '40(2," ")
5120 PRINT AT(E9-3,0,80);"Last transaction ==> Customer ID ";J6$;", Invoice no
. ";J7;", type ";J7$
: GOSUB '238(2)
: GOTO 4310
5160 J0,J,J1,J2=0
: IF J8$="BF"OR J8$="SC"THEN 5410
: Q6$=I8$
: GOSUB '100(" ","^",8,0,"ENTER TRANSACTION DATE (MM/DD/YY)",3)
: IF Q6$=HEX(1F)THEN GOSUB '31
: GOSUB '121(Q6$)
: IF Q6$<>"E"THEN 5260
: PRINT AT(3,0,80);"Invalid date, re-enter.";HEX(07)
: GOTO 5160
5260 J9=U9
: PRINT AT(E9+3,0,80)
: PRINTUSING 6010,U9$
: GOSUB '100("0","999999.99",6,2,"ENTER AMOUNT",1)
: IF Q6$=HEX(1F)THEN GOSUB '31
: IF J8$="P"THEN J2,J3=Q9
: ELSE J,J3=Q9
: PRINT AT(E9+4,0,80)
: PRINTUSING 6030,Q9
: IF J8$<>"P"THEN 5640
: GOSUB '100("0","9999999",7,0,"ENTER CHECK NO.",1)
: IF Q6$=HEX(1F)THEN GOSUB '31
: J0=Q9
: PRINT AT(E9+5,0,80)
: PRINTUSING 6020,Q9
: GOTO 5640
5410 GOSUB '100("-99999.99","999999.99",6,2,"ENTER CURRENT AMOUNT",1)
: IF Q6$=HEX(1F)THEN GOSUB '31
: J0=Q9
: PRINT AT(E9+3,0,80)
: PRINTUSING 6040,Q9
: GOSUB '100("-99999.99","999999.99",6,2,"ENTER 31-60 AMOUNT",1)
: IF Q6$=HEX(1F)THEN GOSUB '31
: J=Q9
: PRINT AT(E9+4,0,80)
: PRINTUSING 6050,Q9
5510 GOSUB '100("-99999.99","999999.99",6,2,"ENTER 61-90 AMOUNT",1)
: IF Q6$=HEX(1F)THEN GOSUB '31
: J1=Q9
: PRINT AT(E9+5,0,80)
: PRINTUSING 6060,Q9
: GOSUB '100("-99999.99","999999.99",6,2,"ENTER OVER 90 AMOUNT",1)
: IF Q6$=HEX(1F)THEN GOSUB '31
: J2=Q9
: PRINT AT(E9+6,0,80)
: PRINTUSING 6070,Q9
: J9=I8
: J3=J0+J+J1+J2
5640 GOSUB '100("Y,N","YyY Nn",1,1,"ALL DATA OK (Y OR N)",2)
: IF Q6$=HEX(1F)THEN GOSUB '31
: IF Q6$="N"THEN 5120
: IF I9$<>"A"THEN 5710
: GOSUB '233(2,1,J9$,0)
: IF Q$<>" "THEN 5990
5710 C$(Q)=" "
: D(Q)=0
: A$(Q)="0"
: C1(Q)=J0
: A(Q)=J
: A1(Q)=J1
: A2(Q)=J2
: D1(Q)=J9
: C1$(Q)=J6$
: C(Q)=J7
: F$(Q)=STR(J9$,Q0+5,1)
: H$(Q)="00"
: GOSUB '41(3,Q)
: GOTO 5070
5870 PRINT AT(1,0,)
: GOSUB '100("M,R","MmRr",1,1,"ENTER R TO RESTART, M FOR MENU",2)
: IF Q6$="R"THEN 4000
5910 DEFFN'31
: $OPEN #4
: GOSUB '46(4,0,1)
: M(3)=M(3)+B9
: GOSUB '46(4,0,0)
: $CLOSE#4
: LOAD TM$
5990 GOSUB '254
: GOSUB '31
6010 %Transaction date ########
6020 %Check no. #######
6030 %Amount ###,###.##-
6040 %Current ###,###.##-
6050 %31-60 ###,###.##-
6060 %61-90 ###,###.##-
6070 %Over 90 ###,###.##-
9998 DEFFN'29"Q$=";HEX(22);"ACCT020A";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D
)
9999 DEFFN'30"DIM Z$57:IF STR(I0$,,1)=HEX(20)THENI0$=HEX(323135):Z$=";HEX(22);
"GBS/MVP - initialize A/R open item file.";HEX(22);":SELECT#15<I0$>:$OPEN
#15:SELECTLIST<I0$>(132): LIST Z$:LIST Z$#:LIST Z$V:LIST Z$':$CLOSE#15:SE
LECTLIST005(80)";HEX(0D)