home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a040 / 2.ddi / SHRWARE4.ARC / MSARPT1.INC < prev    next >
Encoding:
Text File  |  1988-06-03  |  831 b   |  38 lines
  1. <<* MSARPT1.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 fields on (fldtyp = 'C') and (fldals <> 'M')
  19.    if fldtotal > 0
  20.      pushmargin(1)
  21.      RESEQ by fldrow
  22.      GenReportFile
  23.      popmargin
  24.    endif
  25. #>>
  26.    SET DEVICE TO SCREEN
  27.    SET CONSOLE ON
  28.    SET ESCAPE OFF
  29.    DO SayLine WITH row,"Send FORMFEED to printer? (y/n)"
  30.    DO GetKey WITH choice,"YN"+Returnkey
  31.    IF choice = "Y"
  32.       EJECT
  33.    ENDIF
  34. ENDIF
  35. <<end GenOneReport>>
  36.  
  37. <<* EOF: MSARPT1.INC *>>
  38.