* PAYCHEK.RPT
* A command driven routine for producing payroll reports.
* List existing report formats.
ERASE
?
?
LIST FILES LIKE *.FRM
?
? '===================================================================='
* Choose printer or disk file for report.
STORE  '   ' TO Rlpt
DO WHILE !(Rlpt) <> 'Y' .ADD. !(Rlpt) <> 'N'
STORE 'Y' TO Rlpt
@ 19,10 SAY ' WANT REPORT SENT TO THE PRINTER (Y/N)?' GET Rlpt
READ
ENDDO
  STORE ' ' TO Rdsk
  DO WHILE !(Rdsk) <> 'Y' .AND. !(Rdsk) <> 'N'
  STORE 'N' TO Rdsk
@ 19,10 SAY ' WANT REPORT SENT TO A FILE?'     GET Rdsk
READ
ENDDO
   !(Rdsk) = 'Y'
STORE  '          '  TO Rfile
DO WHILE Rfile =  '          '
@ 20,10 SAY ' ENTER FILE NAME '  GET Rfile
READ
ENDDO
STORE TRIM(Rfile) TO Rfile
ENDIF RDSK
STORE '         ' TO report
  DO WHILE report = '   '
@ 21,10 SAY ' ENTER REPORT NAME ' GET report
@ 22,10 SAY ' SPECIFY CONDITIONS' GET cond
READ
ENDDO
IF !(Rlpt) = 'Y'
@ 23,10 SAY ' PLEASE SET UP PRINTER'
SET CONSOLE OFF
WAIT
SET CONSOLE ON
SET PRINT ON
ENDIF Rlpt
* Open the disk file named earlier.
IF !(Rdsk) = 'Y'
SET ALTERNATE TO &Rfile
SET ALTERNATE ON
ENDIF RDSK
ERASE
* Call for report form.  If it does not already exist, dBase will
* go through the report creation sequence.
REPORT FORM &report FOR &cond
SET PRINT OFF
SET ALTERNATE OFF
IF !(Rdsk) = 'Y'
  RELEASE Rdsk, Rfile
ENDIF
RELEASE Rlpt, report

    яяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяячыуууууууууууууууууууууууууууууу                       