home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a070 / 3.ddi / FOXPRO / TEMPLGEN / AP1RPT1.INC < prev    next >
Encoding:
Text File  |  1988-05-05  |  834 b   |  39 lines
  1. <<* APPRPT1.INC *>>
  2.  
  3. <<procedure GenOneReport>>
  4. <<begin>>
  5. PARAMETER row
  6. * ---Print single record contents to printer.
  7. PRIVATE indent
  8. indent = ""
  9. DO SayLine WITH row,"Is PRINTER ready? (y/n)"
  10. DO GetKey WITH choice,"YN"+Returnkey
  11. IF choice = "Y"
  12.    DO SayLine WITH row,"Printing record..."
  13.    SET ESCAPE ON
  14.    SET CONSOLE OFF
  15.    SET DEVICE TO PRINT
  16.    * ---Report format follows.
  17. <<#
  18.    select all fields
  19.    select fields on (fldals <> 'M')
  20.    if fldtotal > 0
  21.      pushmargin(1)
  22.      RESEQ by fldrow
  23.      GenReportFile
  24.      popmargin
  25.    endif
  26. #>>
  27.    SET DEVICE TO SCREEN
  28.    SET CONSOLE ON
  29.    SET ESCAPE OFF
  30.    DO SayLine WITH row,"Send FORMFEED to printer? (y/n)"
  31.    DO GetKey WITH choice,"YN"+Returnkey
  32.    IF choice = "Y"
  33.       EJECT
  34.    ENDIF
  35. ENDIF
  36. <<end GenOneReport>>
  37.  
  38. <<* EOF: APPRPT1.INC *>>
  39.