home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a044 / 2.ddi / REPORTS.DFT < prev    next >
Encoding:
Text File  |  1993-08-31  |  1.7 KB  |  77 lines
  1. *:
  2. *: REPORTS.DFT - a dBFast Template File
  3. *:
  4. *:  Program: <<PROG_NAME>>
  5. *:     Desc: <<DESC>>
  6. *:
  7. *:   Author: <<AUTHOR>>
  8. *: Copyright <<COPYRITE>>
  9. *:
  10.  
  11. SET PROCEDURE TO <<PROG_NAME>>
  12.  
  13. #DEFINE csViewClose   'View.Close'
  14. #DEFINE csCaretClose  'CARET.Close'
  15. #DEFINE csReportClose 'Report.Close'
  16.  
  17. DECLARE PFUNCTION GetModuleHandle RETURNING INTEGER IN DLL kernel
  18.  
  19. IF GetModuleHandle('CARETRUN.EXE') = 0
  20.   WRUN CARETRUN.EXE
  21. ENDIF
  22.  
  23. TALK TO CARETRUN ABOUT SYSTEM
  24.  
  25. nSeconds = SECONDS()
  26. DO WHILE (SECONDS() - nSeconds) < 3
  27.   CHKEVENT()
  28.   IF CONTACT()
  29.     EXIT
  30.   ENDIF
  31. ENDDO
  32.  
  33. IF .NOT. CONTACT()
  34.   BEEP
  35.   WARNING(csCARETRunErr,csCARETNotRun,384)
  36.   RETURN
  37. ENDIF
  38.  
  39. <<DO BEFORE>>
  40.  
  41. *: send the File.Open command with the report name
  42. EXECUTE '[File.Open(<<PROG_NAME>>.RET)]'
  43.  
  44. // The '[File.Preview]' command will allow the user to preview the report
  45. // to screen before printing.  There is a PRINT button on the preview
  46. // screen that can be used to print the report once the preview is done.
  47. EXECUTE '[File.Preview]'
  48.  
  49. // Comment out the above command and uncomment this one to only allow
  50. // printing a report and not go directly to preview mode.
  51. // EXECUTE '[File.Print(0,0)]'
  52.  
  53. CARETEvents = SPACE(20)
  54. IF AUTODATA('CARETEVENTS')
  55.   *: sit in the loop and wait for the report to done
  56.   DO WHILE CARETEvents <> csReportClose .AND. ;
  57.            CARETEvents <> csViewClose   .AND. ;
  58.            CARETEvents <> csCARETClose
  59.     CHKEVENT()
  60.   ENDDO
  61.  
  62.   IF CARETEvents <> csCARETClose 
  63.     EXECUTE '[File.Exit()]'
  64.   ENDIF  
  65.  
  66.   STOPDATA('CARETEVENTS')
  67. ELSE
  68.   BEEP
  69.   WARNING(csCARETErr,csCARETNoStatInfo,387)
  70. ENDIF
  71.  
  72. TERMINATE
  73.  
  74. <<DO AFTER>>
  75.  
  76. RETURN
  77.