SET EXCL OFF
STORE 'N' TO DNETAPPEND,PWOK
STORE 1 TO SEL
STORE 1 TO CL
STORE 0 TO SC
STORE 'SCOTT' TO DBB,DB,DBBB
*PROGRAM FRIST GOES THROUGH EACH INVOICE AND TRANSFER IF IT WAS PAID OR NOT
*INTO INVMAIN SUB FILES

STORE '1297' TO SEL
STORE ' ' TO MEMP,XEMP
STORE '90000' TO PN
STORE '      ' TO SC1
store 'Y' to pc
STORE 'F' TO SS1
store 'B' TO SEL3
STORE 'N' TO CLOSE
DO WHILE .T.
CLEAR
STORE 'COMMISION CALCULATIONS' TO TOP1
DO TOP
STORE 'N' TO PWOK
@ 6,0 SAY 'ENTER PASSWORD - ' 
DO PASSWORD
IF PWOK<>'Y'
 RETURN 
ENDIF
@ 7,0 SAY 'PROGram calculates line items totals for the month '
STORE 0 TO K1,K2,K3,K4,TOTSALE,PROG,JOETOT
@ 9,0 SAY 'ENTER MONTH/YEAR (0197,0297) - ' GET SEL PICTURE '!!!!'
@ 11,0 SAY 'CLOSE THIS MONTH - ' GET CLOSE PICTURE '!'
READ
PRESSED = LASTKEY()
IF PRESSED = 27
 RETURN
ENDIF
STORE 1 TO PPPP

SELECT  7
STORE 'COMMISIO' TO DNET
DO NETERROR
LOCATE FOR SEL = DATE
IF EOF()
 STORE ' ' TO SS
 @ 14,0 SAY 'COMMISION FILE NOT FOUND ... CREATE (Y/N) ?? - ' GET SS PICTURE '!'
 READ
 IF SS <> 'Y' 
  RETURN
 ENDIF
 STORE 'Y' TO DNETAPPEND
 STORE 'COMMISIO' TO DNET
 DO NETERROR
 DO LOCKWAIT
 REPLACE DATE WITH SEL
 UNLOCK
ENDIF

*SEE IF LAST MONTH WAS CLOSED
STORE VAL(SUBSTR(SEL,1,2)) TO V1
STORE VAL(SUBSTR(SEL,3,2)) TO V2
STORE V1-1 TO V1
IF V1 = 0
 STORE 12 TO V1
 IF V2 = 0
  STORE 99 TO V2
 ELSE
  STORE V2-1 TO V2
 ENDIF
ENDIF
IF V1 < 10
 IF V2 <> 0
  IF V2 < 10
   STORE '0' + ALLTRIM(STR(V1,1)) + '0' + ALLTRIM(STR(V2,1)) TO LSEL
  ELSE
   STORE '0' + ALLTRIM(STR(V1,1)) + ALLTRIM(STR(V2,2)) TO LSEL
  ENDIF
 ELSE
  STORE '0' + ALLTRIM(STR(V1,1)) + '00' TO LSEL
 ENDIF
ELSE
 IF V2 <> 0
  IF V2 < 10
   STORE ALLTRIM(STR(V1,2)) + '0' + ALLTRIM(STR(V2,1)) TO LSEL
  ELSE
   STORE ALLTRIM(STR(V1,2)) + ALLTRIM(STR(V2,2)) TO LSEL
  ENDIF
 ELSE
  STORE ALLTRIM(STR(V1,2)) + '00' TO LSEL
 ENDIF
ENDIF
STORE RECNO() TO YYQ
LOCATE FOR LSEL = DATE
IF EOF()
 ? 'CANNOT FIND LAST COMMISION FILE - ' + LSEL
 WAIT
 QUIT
ENDIF
IF CLOSED <> 'Y'
 ? CHR(7)
 ? 'LAST MONTH NOT CLOSED - ' + LSEL
 STORE ' ' TO SEL2
 @  20,0 SAY 'Close (Y/N) - ' GET SEL2 PICTURE '!'
 READ 
 IF SEL2 = 'Y'
  DO LOCKWAIT
  REPLACE CLOSED WITH 'Y'
  UNLOCK  
 ENDIF
ENDIF
GOTO YYQ
@ 10,0 CLEAR
@ 9,40 SAY 'EMPLOYEE (J/S/D/H BLANK FOR ALL) - ' GET MEMP
@ 10,0 SAY 'SET PAY STATUS TO  Y  FOR PART NUMBER = ' GET PN
@ 11,0 SAY '(F)ile or (P)rinter - ' get ss1 picture '!'
@ 12,0 SAY 'Print (B)illed or (P)aid or (B)oth invoices - ' get sel3 picture '!'
@ 14,0 SAY 'Caculate Payroll amounts on last sheet (Y/N) - ' GET PC PICTURE '!'
*READ
IF SEL = '    '
 RETURN
ENDIF
DO LOCKWAIT
SET DELIMITER ON
@ 15,0 CLEAR
@ 15,0 SAY 'CHRIS COMMENT - ' GET DCOMMENT
@ 16,0 GET DCOMMENT1
@ 17,0 SAY 'JOE COMMENT    - ' GET JCOMMENT
@ 18,0 GET JCOMMENT1
*@ 19,0 SAY 'HARRY COMMENT  - ' GET HCOMMENT
*@ 20,0 GET HCOMMENT1
@ 21,0 SAY 'SCOTT COMMENT  - ' GET SCOMMENT
@ 22,0 GET SCOMMENT1
READ
SET DELIMITER OFF
STORE ' ' TO SEL2
@ 24,0 SAY 'Start Processing (Y/N) - ' get sel2 picture '!'
READ
IF SEL2 <> 'Y'
 RETURN
ENDIF
UNLOCK
@ 20,0 CLEAR
@ 14,0 CLEAR
@ 13,0 SAY '                          '
*SETUP LOOP FOR PRINTING BILLED AND PAID INVOICES
*@ 11,0 SAY 'PROCESSING .... MAKE SURE PRINTER IS ON-LINE !!!'
SELECT 2
USE INVOICE INDEX INUMM
*INDEX ON SUBSTR(DTOC(DATE),7,2) + SUBSTR(DTOC(DATE),1,2) + SUBSTR(DTOC(DATE),4,2) TO LLP
*USE INVOICE INDEX LLP
SELECT 1
USE CUSTOMER INDEX CUSTNUM
SELECT 4
USE INVMAIN 
SELECT 6
USE EMPLOYEE
STORE 'Y' TO TRANS
*INIT MEMORY VAR FOR EACH EMPLOYEE  xPTOT = PARTS TOTAL, xPPRO = PARTS PROFIT,ETC
IF TRANS = 'N'
 @ 15,0 SAY ' NOT !!! TRANSFERING DATA FROM INVOICE TO INVMAIN  TRANS SET TO  N'
ELSE
 @ 15,0 SAY 'TRANSFERING DATA FROM INVOICE TO INVMAIN'
ENDIF
SELECT 6
GOTO TOP
DO WHILE .NOT. EOF()  	&&1
SELECT 6
STORE CODE TO KCODE
*STORE 0 TO BLP,BPP
*STORE 0 TO JLP,JPP
*STORE 0 TO PLP,PPP
*STORE 0 TO SLP,SPP
*STORE 0 TO DLP,DPP
STORE 1 TO QQ
DO WHILE QQ <> 13	&&2
IF QQ < 10
 STORE '0' + STR(QQ,1,0) TO AA
ELSE
 STORE STR(QQ,2,0) TO AA
ENDIF
*PTOTP,PPROP,LTOTP,PTOTN,PPRON,LTOTN
STORE CODE + 'PTOTP' + AA TO BB      	&&PARTS TOTAL PAID
STORE 0 TO &BB
STORE CODE + 'PPROP' + AA TO BB      	&&PARTS PROFIT PAID
STORE 0 TO &BB
STORE CODE + 'LTOTP' + AA TO BB      	&&LABOR TOTAL PAID
STORE 0 TO &BB
STORE CODE + 'PTOTN' + AA TO BB      	&&PARTS TOTAL NOT PAID
STORE 0 TO &BB
STORE CODE + 'PPRON' + AA TO BB      	&&PARTS PROFIT NOT PAID
STORE 0 TO &BB
STORE CODE + 'LTOTN' + AA TO BB      	&&LABOR TOTAL NOT PAID
STORE 0 TO &BB
STORE CODE + 'PTOTB' + AA TO BB      	&&PARTS TOTAL BILLED
STORE 0 TO &BB
STORE CODE + 'PPROB' + AA TO BB      	&&PARTS PROFIT BILLED
STORE 0 TO &BB
STORE CODE + 'LTOTB' + AA TO BB      	&&LABOR TOTAL BILLED
STORE 0 TO &BB
STORE QQ+1 TO QQ
ENDDO			&&2
SKIP
ENDDO			&&1

IF TRANS = 'Y'
*NEXT STEP IS TO TRANSFER COST AND DATE FIGURES 
*TRANSFER COST AND DATE FIGURES INTO INVMAIN (SELECT 4) FILE
STORE 'N' TO ERRORSET
STORE 0 TO NINV
SELECT 4
GOTO TOP
DO WHILE .NOT. EOF()	&&3
SELECT 4
@ 15,60 SAY RECNO()
IF INUMBER = 0
 SKIP
 LOOP
ENDIF
STORE INUMBER TO KK
SELECT 2
SEEK KK
IF EOF()
 IF NINV <> INUMBER
*  SET PRINT ON
  STORE INUMBER TO NINV
  IF ERRORSET = 'N'
   ? 'LISTING ON INVOICE NUMBERS THAT WERE FOUND IN THE SUB FILES BUT NOT IN THE MAIN FILE'
   ? '------------------------------------------------------------------------------------'
   ? ' '
   STORE 'Y' TO ERRORSET
  ENDIF
*  SET PRINT OFF
 ENDIF
ENDIF
STORE AMTPAID+AMTPAID1+AMTPAID2+AMTPAID3 TO UU
STORE TOTCOST+TAX TO UUU
STORE VAL(STR(UU,10,2)) TO UU
STORE VAL(STR(UUU,10,2)) TO UUU
IF UU <> UUU
 STORE 'N' TO XP
ELSE
 STORE 'Y' TO XP
ENDIF
STORE IRECDATE TO YY
IF XP = 'Y'
 IF IRECDATE1 > YY
  STORE IRECDATE1 TO YY
 ENDIF
 IF IRECDATE2 > YY
  STORE IRECDATE2 TO YY
 ENDIF
 IF IRECDATE3 > YY
  STORE IRECDATE3 TO YY
 ENDIF
ELSE
 STORE LASTPRT TO YY
ENDIF
STORE LASTPRT TO OO
STORE CUSTNUM TO IT
STORE DATE TO XDATE
SELECT 4
DO LOCKWAIT
*IF
REPLACE DATE WITH XDATE
REPLACE LASTRECDAT WITH YY
REPLACE PAID WITH XP
REPLACE CUSTNUM WITH IT
REPLACE LASTPRINT WITH OO
UNLOCK
SKIP
ENDDO			&&3
ENDIF
STORE 1 TO MLOOP

IF SS1 = 'F'
 STORE 'F:\ACCT\COMM' + SEL TO SA
 SET DEVICE TO PRINT
 SET PRINTER TO &SA
 @ 0,0 say chr(27)+'(10U'+chr(27)+chr(27) + '(s0p16.67h8.5v0s0b0T'+chr(27)+'&l8.8D'
ENDIF

SELECT 6
GOTO TOP
DO WHILE .NOT. EOF()	&&4
STORE 1 TO MLOOP
* SELECT 6 LOOP
SELECT 6
STORE CODE TO EEE
IF CODE = 'Z'
 SKIP
 LOOP
ENDIF

STORE 90 TO ROW

*PRINT 2 PARTS FOR EACH EMPLOYEE  -  PAID AND UNPAID

DO WHILE .T. 		&&5
* MLOOP LOOP
SELECT 4
GOTO TOP

SET DEVICE TO SCREEN
@ 17,0 SAY 'ADDING COMMISION FOR - ' + EEE
SET DEVICE TO PRINT
DO WHILE .NOT. EOF()	&&6
 SELECT 4

IF INUMBER = 0 .OR. EMP <> EEE
 SKIP
 LOOP
ENDIF

SET DEVICE TO SCREEN
@ 17,0 SAY 'ADDING COMMISION FOR - ' + EEE + ' ' + STR(RECNO(),8,0)
SET DEVICE TO PRINT

IF MLOOP = 1					
 IF PAID <> 'Y'
  SKIP
  LOOP
 ENDIF
 IF SUBSTR(DTOC(LASTRECDAT),1,2) <> SUBSTR(SEL,1,2) .OR. SUBSTR(DTOC(LASTRECDAT),9,2) <> SUBSTR(SEL,3,2) .OR. DTOC(LASTRECDAT) = '  /  /    '
* IF LASTRECDAT < DATE() - 400 .OR. DTOC(LASTRECDAT) = '  /  /    '
  SKIP
  LOOP
 ENDIF
ENDIF
IF MLOOP = 2
 IF PAID = 'Y'
  SKIP
  LOOP
 ENDIF
 IF LASTRECDAT < DATE() - 400 .OR. DTOC(LASTRECDAT) = '  /  /    '
  SKIP
  LOOP
 ENDIF
ENDIF

*CACULATE COMMISION TOTALS FOR BOTTOM OF PAGE
STORE CUSTNUM TO MCUSTNUM
SELECT 1
SEEK MCUSTNUM
SELECT 4
*PTOTP,PPROP,LTOTP,PTOTN,PPRON,LTOTN
IF MLOOP = 1
 IF PART ='90000'
  STORE EEE + 'LTOTP' + SUBSTR(DTOC(LASTRECDAT),1,2) TO HH
  STORE &HH+(QTY*(SELL-COST)) TO &HH
 ELSE
  STORE EEE + 'PPROP' + SUBSTR(DTOC(LASTRECDAT),1,2) TO HH
  STORE &HH+(QTY*(SELL-COST)) TO &HH
  STORE EEE + 'PTOTP' + SUBSTR(DTOC(LASTRECDAT),1,2) TO HH
  STORE &HH+(QTY*SELL) TO &HH
 ENDIF
ELSE
 IF PART ='90000'
  STORE EEE + 'LTOTN' + SUBSTR(DTOC(LASTRECDAT),1,2) TO HH
  STORE &HH+(QTY*(SELL-COST)) TO &HH
 ELSE
  STORE EEE + 'PPRON' + SUBSTR(DTOC(LASTRECDAT),1,2) TO HH
  STORE &HH+(QTY*(SELL-COST)) TO &HH
  STORE EEE + 'PTOTN' + SUBSTR(DTOC(LASTRECDAT),1,2) TO HH
  STORE &HH+(QTY*SELL) TO &HH
 ENDIF
ENDIF

IF DTOC(LASTPRINT) <> '  /  /    '
 IF VAL(SUBSTR(DTOC(LASTPRINT),1,2)) < 1 .OR.VAL(SUBSTR(DTOC(LASTPRINT),1,2)) > 31
  ? CHR(7)
  SET DEVICE TO SCREEN
  @ 23,0 CLEAR
  @ 23,0 SAY 'INVALID DATE IN RECORD # ' + STR(RECNO(),8,0)
  QUIT
  SET DEVICE TO PRINT
 ENDIF
 IF PART ='90000'
  STORE EEE + 'LTOTB' + SUBSTR(DTOC(LASTPRINT),1,2) TO HH
  STORE &HH+(QTY*(SELL-COST)) TO &HH
 ELSE
  STORE EEE + 'PPROB' + SUBSTR(DTOC(LASTPRINT),1,2) TO HH
  STORE &HH+(QTY*(SELL-COST)) TO &HH
  STORE EEE + 'PTOTB' + SUBSTR(DTOC(LASTPRINT),1,2) TO HH
  STORE &HH+(QTY*SELL) TO &HH
 ENDIF
ENDIF


IF ROW > 75
 IF ROW <> 90
  EJECT
 ENDIF
 STORE 0 TO ROW
 @ ROW,0 SAY 'PAGE - ' + STR(PPPP,2,0)
 @ ROW,53 SAY 'COMPUTER AUDIO SERVICES'
 @ ROW,109 SAY 'RUN DATE - ' + DTOC(DATE()) 
 STORE ROW+1 TO ROW
 STORE PPPP+1 TO PPPP
 @ ROW,0 SAY 'EMPLOYEE - ' + EEE
 IF MLOOP = 1
  @ ROW,42 SAY 'COMMISION REPORT (PAID INVOICES THIS PERIOD)'
 ENDIF
 IF MLOOP = 2
  @ ROW,38 SAY 'COMMISION REPORT (BILLED INVOICES ... NOT PAID)'
 ENDIF
 @ ROW,109 SAY 'PERIOD - ' + SEL
 STORE ROW+1 TO ROW
 @ ROW,0 SAY CHR(27) + CHR(15) + '_________________________________________________________________________________________________________________________________________'
 STORE ROW+2 TO ROW
 @ ROW,0 SAY ' DATE | WO # |   Q# |  I#  |        COMPANY       | QTY |           DESC             | COST | SELL | PART # | PAY STAT | REC# | %PRO'
 STORE ROW+1 TO ROW
 @ ROW,0 SAY '_________________________________________________________________________________________________________________________________________'
 STORE ROW+1 TO ROW
ENDIF 

*PRINT ONLY THIS MONTH FOR PAID
IF MLOOP = 1
 IF SUBSTR(DTOC(LASTRECDAT),1,2) <> SUBSTR(SEL,1,2) .OR. SUBSTR(DTOC(LASTRECDAT),9,2) <> SUBSTR(SEL,3,2) .OR. LASTRECDAT < DATE() - 200
  SKIP
  LOOP
 ENDIF
ENDIF
IF MLOOP = 1
 IF PART = '90010' .OR. AT('PROGRAMMING',DESC) <> 0
  STORE PROG + (QTY*SELL) TO PROG
 ENDIF
 IF PART = '90020' .OR. AT('CONTRACT',DESC)<>0
  STORE SC + (QTY*SELL) TO SC
 ENDIF
ENDIF
STORE SELL*QTY TO SS
STORE COST*QTY TO CC
STORE ((SS/CC)-1)*100 TO WW
IF SS <> 0 .AND. CC <> 0
 STORE STR(WW,3,0) + '%' TO KK
ELSE
 STORE ' ' TO KK
ENDIF																																							
STORE '          ' TO II
IF CLOSE = 'Y' .AND. MLOOP = 1
 DO LOCKWAIT
 REPLACE PAYCOMMISI WITH SEL
 UNLOCK
ENDIF
IF PAYCOMMISI <> ' '
 STORE 'PAID-' + ALLTRIM(PAYCOMMISI) TO II
ENDIF																																						
IF COST <> 0 .OR. SELL <> 0																		
 @ ROW,0 SAY CHR(27) + CHR(15) + DTOC(LASTRECDAT) + STR(SNUMBER,5,0) + '  ' + STR(QNUMBER,5,0) + '  ' + STR(INUMBER,5,0) + '   ' + SUBSTR(CUSTOMER->NAME,1,18) + ' ' + STR(QTY,5,0) + '    ' + SUBSTR(DESC,1,25) + ' ' + STR(COST,7,2) + ' ' + STR(SELL,7,2) + '  ' + PART + '   ' + II + '   ' + STR(RECNO(),5,0) + '  '+KK
 STORE ROW+1 TO ROW
ENDIF
SELECT 4
SKIP
ENDDO			&&6
SELECT 6
IF MLOOP = 1
 STORE CODE + 'LTOTP' + SUBSTR(SEL,1,2) TO YY1
 STORE &YY1 TO T1
 STORE CODE + 'PPROP' + SUBSTR(SEL,1,2) TO YY1
 STORE &YY1 TO T2

ENDIF
IF MLOOP = 2
 STORE 0 TO T1,T2
 STORE 1 TO CC
 DO WHILE CC <> 13
 IF CC < 10 
  STORE '0' + STR(CC,1,0) TO UU
 ELSE
  STORE STR(CC,2,0) TO UU
 ENDIF
 STORE CODE + 'LTOTN' + UU TO YY1
 STORE T1+&YY1 TO T1
 STORE CODE + 'PPRON' + UU TO YY1
 STORE T2+&YY1 TO T2
 STORE CC+1 TO CC
 ENDDO
ENDIF
STORE T1*LRATE TO Q1
STORE T2*PRATE TO Q2
STORE Q2+Q1 TO Q3
STORE LRATE*100 TO MLRATE
STORE PRATE*100 TO MPRATE
IF MLOOP = 1
 STORE JOETOT+T1+T2 TO JOETOT
ENDIF															
@ ROW+1,0 SAY 'TOTAL LABOR     - ' + STR(T1,8,2)   + '    TOTAL PARTS - ' + STR(T2,8,2) 
IF MLOOP = 1
 STORE CODE+'PAYROLL' TO FD
 STORE 'TOTAL LABOR     - ' + STR(T1,8,2) + ' = ' + STR(Q1,8,2) + '    TOTAL PARTS - ' + STR(T2,8,2) + ' = ' + STR(Q2,8,2) + '   TOTAL COMMISION = ' + STR(Q3,8,2) TO &FD
ENDIF

SELECT 7
STORE EMPLOYEE->CODE + 'COMMENT' TO UI
STORE EMPLOYEE->CODE + 'COMMENT1' TO UII

IF &UI <> ' '
 @ ROW+3,0 SAY &UI
 STORE ROW+1 TO ROW
 @ ROW+3,0 SAY &UII
 @ ROW+5,0 SAY 'ADJUSTED COMMISION  ______________________________________________________________________________________' 
ENDIF
STORE 90 TO ROW
STORE MLOOP+1 TO MLOOP
IF MLOOP = 3
 STORE 1 TO MLOOP
 EXIT
ENDIF
SELECT 4
ENDDO			&&5

SELECT 6
SKIP
ENDDO			&&4

EJECT
SET PRINT ON
STORE 0 TO ROW
@ ROW,43 SAY CHR(18) + 'COMPUTER AUDIO SERVICES'
@ ROW,59 SAY 'RUN DATE - ' + DTOC(DATE()) 
STORE ROW+1 TO ROW
@ ROW,20 SAY 'COMMISION REPORT TOTALS - EACH EMPLOYEE'
@ ROW,65 SAY 'PERIOD - ' + SEL
STORE ROW+1 TO ROW
@ ROW,0 SAY CHR(27) + CHR(15) + '______________________________________________________________________________________________________________________________________'
? ' '
SELECT 6
GOTO TOP
DO WHILE .NOT. EOF()
STORE 1 TO CC
DO WHILE CC <> 13
IF CC < 10
 STORE '0' + STR(CC,1,0) TO XX
ELSE
 STORE STR(CC,2,0) TO XX
ENDIF
STORE 'PTOTP' + XX TO X1
STORE 'PPROP' + XX TO X2
STORE 'LTOTP' + XX TO X3
STORE 'PTOTN' + XX TO X4
STORE 'PPRON' + XX TO X5
STORE 'LTOTN' + XX TO X6
STORE 'PTOTB' + XX TO X7
STORE 'PPROB' + XX TO X8
STORE 'LTOTB' + XX TO X9
STORE CODE + 'PTOTP' + XX TO &X1
STORE CODE + 'PPROP' + XX TO &X2
STORE CODE + 'LTOTP' + XX TO &X3
STORE CODE + 'PTOTN' + XX TO &X4
STORE CODE + 'PPRON' + XX TO &X5
STORE CODE + 'LTOTN' + XX TO &X6
STORE CODE + 'PTOTB' + XX TO &X7
STORE CODE + 'PPROB' + XX TO &X8
STORE CODE + 'LTOTB' + XX TO &X9
*STORE 'ZPTOTP' + XX TO &Z1


*STORE &X1 TO EE
*REPLACE &X1 WITH &EE   &&PTOTP01
STORE CODE + 'A' + XX TO WA
STORE CODE + 'B' + XX TO WB
STORE CODE + 'C' + XX TO WC
STORE CODE + 'D' + XX TO WD
STORE CODE + 'E' + XX TO WE
STORE CODE + 'F' + XX TO WF
STORE 'A' + XX TO WWA
STORE 'B' + XX TO WWB
STORE 'C' + XX TO WWC
STORE 'D' + XX TO WWD
STORE 'E' + XX TO WWE
STORE 'F' + XX TO WWF

STORE CC+1 TO CC


*STORE DPPROP01+DLTOTP01 TO DA1
STORE &X2 TO Y1
STORE &X3 TO Y2
STORE &Y1+&Y2 TO &WA,&WWA
*? X2
*? &X2
*? X3
*? &X3
*? A01
*? WWA
*? &WWA
*WAIT

*STORE DPTOTP01+DLTOTP01 TO DB1
STORE &X1 TO Y1
STORE &X3 TO Y2
STORE &Y1+&Y2 TO &WB,&WWB

*STORE DPPRON01+DLTOTN01 TO DC1
*STORE &X5 TO Y1
STORE &X6 TO Y2
STORE &Y1+&Y2 TO &WC,&WWC

*STORE DPTOTN01+DLTOTN01 TO DD1
STORE &X4 TO Y1
STORE &X6 TO Y2
STORE &Y1+&Y2 TO &WD,&WWD

*STORE DPPROB01+DLTOTB01 TO DE1
STORE &X8 TO Y1
STORE &X9 TO Y2
STORE &Y1+&Y2 TO &WE,&WWE

*STORE DPTOTB01+DLTOTB01 TO DF1
STORE &X7 TO Y1
STORE &X9 TO Y2
STORE &Y1+&Y2 TO &WF,&WWF

ENDDO

? SUBSTR(NAME,1,15),'  MONTH -  1        2        3        4        5        6        7        8        9        10       11       12        TOTAL'
? '-----------                                   <<<< PAID >>>>'
? 'PARTS TOT      ',STR(&PTOTP01,8,0),STR(&PTOTP02,8,0),STR(&PTOTP03,8,0),STR(&PTOTP04,8,0),STR(&PTOTP05,8,0),STR(&PTOTP06,8,0),STR(&PTOTP07,8,0),STR(&PTOTP08,8,0),STR(&PTOTP09,8,0),STR(&PTOTP10,8,0),STR(&PTOTP11,8,0),STR(&PTOTP12,8,0)
? 'PARTS PROF     ',STR(&PPROP01,8,0),STR(&PPROP02,8,0),STR(&PPROP03,8,0),STR(&PPROP04,8,0),STR(&PPROP05,8,0),STR(&PPROP06,8,0),STR(&PPROP07,8,0),STR(&PPROP08,8,0),STR(&PPROP09,8,0),STR(&PPROP10,8,0),STR(&PPROP11,8,0),STR(&PPROP12,8,0)
? 'LABOR TOT      ',STR(&LTOTP01,8,0),STR(&LTOTP02,8,0),STR(&LTOTP03,8,0),STR(&LTOTP04,8,0),STR(&LTOTP05,8,0),STR(&LTOTP06,8,0),STR(&LTOTP07,8,0),STR(&LTOTP08,8,0),STR(&LTOTP09,8,0),STR(&LTOTP10,8,0),STR(&LTOTP11,8,0),STR(&LTOTP12,8,0)
? '               -------- -------- -------- -------- -------- -------- -------- -------- -------- -------- -------- --------'
? 'TOTAL PROF     ',STR(A01,8,0),STR(A02,8,0),STR(A03,8,0),STR(A04,8,0),STR(A05,8,0),STR(A06,8,0),STR(A07,8,0),STR(A08,8,0),STR(A09,8,0),STR(A10,8,0),STR(A11,8,0),STR(A12,8,0)
? 'TOT SALES      ',STR(B01,8,0),STR(B02,8,0),STR(B03,8,0),STR(B04,8,0),STR(B05,8,0),STR(B06,8,0),STR(B07,8,0),STR(B08,8,0),STR(B09,8,0),STR(B10,8,0),STR(B11,8,0),STR(B12,8,0)
? ' '
? '                                              <<<< NOT PAID >>>>'
? 'PARTS TOT      ',STR(&PTOTN01,8,0),STR(&PTOTN02,8,0),STR(&PTOTN03,8,0),STR(&PTOTN04,8,0),STR(&PTOTN05,8,0),STR(&PTOTN06,8,0),STR(&PTOTN07,8,0),STR(&PTOTN08,8,0),STR(&PTOTN09,8,0),STR(&PTOTN10,8,0),STR(&PTOTN11,8,0),STR(&PTOTN12,8,0)
? 'PARTS PROF     ',STR(&PPRON01,8,0),STR(&PPRON02,8,0),STR(&PPRON03,8,0),STR(&PPRON04,8,0),STR(&PPRON05,8,0),STR(&PPRON06,8,0),STR(&PPRON07,8,0),STR(&PPRON08,8,0),STR(&PPRON09,8,0),STR(&PPRON10,8,0),STR(&PPRON11,8,0),STR(&PPRON12,8,0)
? 'LABOR TOT      ',STR(&LTOTN01,8,0),STR(&LTOTN02,8,0),STR(&LTOTN03,8,0),STR(&LTOTN04,8,0),STR(&LTOTN05,8,0),STR(&LTOTN06,8,0),STR(&LTOTN07,8,0),STR(&LTOTN08,8,0),STR(&LTOTN09,8,0),STR(&LTOTN10,8,0),STR(&LTOTN11,8,0),STR(&LTOTN12,8,0)
? '               -------- -------- -------- -------- -------- -------- -------- -------- -------- -------- -------- --------'
? 'TOTAL PROF     ',STR(C01,8,0),STR(C02,8,0),STR(C03,8,0),STR(C04,8,0),STR(C05,8,0),STR(C06,8,0),STR(C07,8,0),STR(C08,8,0),STR(C09,8,0),STR(C10,8,0),STR(C11,8,0),STR(C12,8,0)
? 'TOT SALES      ',STR(D01,8,0),STR(D02,8,0),STR(D03,8,0),STR(D04,8,0),STR(D05,8,0),STR(D06,8,0),STR(D07,8,0),STR(D08,8,0),STR(D09,8,0),STR(D10,8,0),STR(D11,8,0),STR(D12,8,0)
? ' '
? '                                              <<<< BILLED >>>>'
? 'PARTS TOT      ',STR(&PTOTB01,8,0),STR(&PTOTB02,8,0),STR(&PTOTB03,8,0),STR(&PTOTB04,8,0),STR(&PTOTB05,8,0),STR(&PTOTB06,8,0),STR(&PTOTB07,8,0),STR(&PTOTB08,8,0),STR(&PTOTB09,8,0),STR(&PTOTB10,8,0),STR(&PTOTB11,8,0),STR(&PTOTB12,8,0)
? 'PARTS PROF     ',STR(&PPROB01,8,0),STR(&PPROB02,8,0),STR(&PPROB03,8,0),STR(&PPROB04,8,0),STR(&PPROB05,8,0),STR(&PPROB06,8,0),STR(&PPROB07,8,0),STR(&PPROB08,8,0),STR(&PPROB09,8,0),STR(&PPROB10,8,0),STR(&PPROB11,8,0),STR(&PPROB12,8,0)
? 'LABOR TOT      ',STR(&LTOTB01,8,0),STR(&LTOTB02,8,0),STR(&LTOTB03,8,0),STR(&LTOTB04,8,0),STR(&LTOTB05,8,0),STR(&LTOTB06,8,0),STR(&LTOTB07,8,0),STR(&LTOTB08,8,0),STR(&LTOTB09,8,0),STR(&LTOTB10,8,0),STR(&LTOTB11,8,0),STR(&LTOTB12,8,0)
? '               -------- -------- -------- -------- -------- -------- -------- -------- -------- -------- -------- --------'
? 'TOTAL PROF     ',STR(E01,8,0),STR(E02,8,0),STR(E03,8,0),STR(E04,8,0),STR(E05,8,0),STR(E06,8,0),STR(E07,8,0),STR(E08,8,0),STR(E09,8,0),STR(E10,8,0),STR(E11,8,0),STR(E12,8,0)
? 'TOT SALES      ',STR(F01,8,0),STR(F02,8,0),STR(F03,8,0),STR(F04,8,0),STR(F05,8,0),STR(F06,8,0),STR(F07,8,0),STR(F08,8,0),STR(F09,8,0),STR(F10,8,0),STR(F11,8,0),STR(F12,8,0)
? ' '
? ' '
SKIP
ENDDO

EJECT
SET PRINT OFF
STORE 2 TO ROW
@ ROW,0 SAY '    JOE PAY     PERIOD - ' + SEL
STORE ROW+1 TO ROW
@ ROW,0 SAY '    -------'
STORE ROW+1 TO ROW
@ ROW,0 SAY '+ ' + STR(JOETOT,10,2) + '  TOTAL PROFIT'
STORE ROW+1 TO ROW
@ ROW,0 SAY '- ' + STR(SC,10,2) + '  SERVICE CONTRACT'
STORE ROW+1 TO ROW
*@ ROW,0 SAY '- ' + STR(PROG,10,2) + '  PROGRAMMING'
*STORE ROW+1 TO ROW
@ ROW,0 SAY '    -------'
*STORE JOETOT-SC-PROG TO BG
STORE JOETOT-SC TO BG
? JOETOT
? SC
? PROG
? BG
STORE ROW+1 TO ROW
@ ROW,0 SAY '= ' + STR(BG,10,2) 

STORE ROW+2 TO ROW
@ ROW,0 SAY '+       0.00 - LF'
STORE ROW+1 TO ROW
@ ROW,0 SAY '+       0.00 - DOWNTOWN'
STORE ROW+1 TO ROW
@ ROW,0 SAY '    -------'

*LF SERVICE CONTRACT
STORE 9030 TO KW
*DOWNTOWN SERVICE CONTRACT 150/QUARTERLEY
STORE KW+0 TO KW

STORE ROW+1 TO ROW
@ ROW,0 SAY '= ' + STR(KW,10,2) 
STORE ROW+1 TO ROW
*STORE (KW/12)*.05 TO MISC
STORE 0 TO MISC
@ ROW,0 SAY '= ' + STR(MISC,10,2) + '  SERVICE CONTRACT ANNUAL AMOUNT (TOT AMT / 12 * .05)'
STORE BG*.11 TO GGG
STORE ggg  TO GGGG
STORE ROW+2 TO ROW
@ ROW,0 SAY '   __________ OTHER'
STORE ROW+1 TO ROW
@ ROW,0 SAY '= ' + STR(GGGG,10,2) + '  TOTAL PAY FOR JOE '
STORE ROW+1 TO ROW
@ ROW,0 SAY '   __________ OTHER'
STORE ROW+1 TO ROW
@ ROW,0 SAY '   __________ OTHER'
STORE ROW+1 TO ROW
@ ROW,0 SAY '   __________ OTHER'
STORE ROW+1 TO ROW
@ ROW,0 SAY '   __________ TOTAL'
STORE ROW+3 TO ROW
IF PC = 'Y'
 @ ROW,0 SAY 'ENDING PAYROLL AMOUNTS         PERIOD - ' + SEL
 STORE ROW+1 TO ROW
 @ ROW,0 SAY '----------------------'
 STORE ROW+1 TO ROW
 SELECT 6
 GOTO TOP
 DO WHILE.NOT. EOF()
 IF CODE = 'Z'
  SKIP
  LOOP
 ENDIF
 STORE CODE+'PAYROLL' TO FD
 @ ROW,0 SAY CODE + ' ' + &FD
 STORE ROW+1 TO ROW
 SKIP
 ENDDO
ENDIF
STORE ROW+3 TO ROW
SELECT 7
? 'CHRIS COMMENT - ' + DCOMMENT
? DCOMMENT1
? 'JOE COMMENT -    ' + JCOMMENT
? JCOMMENT1
*? 'HARI COMMENT -   ' + HCOMMENT
*? HCOMMENT1
? 'SCOTT COMMENT -  ' + SCOMMENT
? SCOMMENT1
? ' '
? chr(27),'E'
SET DEVICE TO SCREEN
SET PRINT ON
? ' '
? ' '
EJECT
SET PRINT OFF
SET DEVICE TO SCREEN
SET PRINTER TO
ENDDO