home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR7 / FOXTAILS.ZIP / DSPRPT.PRG < prev    next >
Text File  |  1992-06-13  |  1KB  |  45 lines
  1. PROCEDURE Dsprpt
  2. PARAMETER Rpt, Fle, Mmo, Chnge
  3. *    Parameters:    
  4. *        Rpt:    Title to appear in top window
  5. *        Fle:    File name (with path, if necessary) or memo field name
  6. *                (memo field if Mmo = .T.)
  7. *        Mmo:    Is this a Memo Field (.T.) or a File (.F.)
  8. *        Cnge:    Is this modifiable?
  9. *
  10. *
  11. *    Dsprpt will take a file or memo field and create a qick
  12. *    a quick display window, along with a title window above
  13. *    with editing capabilites (if wanted).  This lets the user
  14. *    view previously created report files, text files, memo
  15. *    fields and other critters easily and consistantly.
  16.  
  17. IF !Mmo AND !FILE(Fle)        &&    It's a file, but does it exist?
  18.     WAIT "File " + Fle + " Doesn't Exist!" WINDOW
  19.     RETURN
  20. ENDIF
  21. IF Mmo AND TYPE(Fle)<> "M"
  22.     WAIT "Field " + Fle + " isn't a Memo Field" WINDOW
  23.     RETURN
  24. ENDIF
  25. DEFINE WINDOW DspRpt1 FROM 1,10 TO 4,69 DOUBLE TITLE Rpt+" Instructions"
  26. DEFINE WINDOW DspRpt2 FROM 6,0 TO 23,79 SYSTEM TITLE Rpt
  27. ACTIVATE WINDOW DspRpt1
  28. @0,15 SAY "Use Arrows - Hit <Esc> to Exit"
  29. @1,15 SAY "Or Click mouse on this Window"
  30. IF Mmo                &&    It's a Memo Field
  31.     IF Chnge        &&    Allow Changes?
  32.         MODIFY MEMO (Fle) WINDOW DspRpt2
  33.     ELSE
  34.         MODIFY MEMO (Fle) NOEDIT WINDOW DspRpt2
  35.     ENDIF
  36. ELSE                &&    It's a File
  37.     IF Chnge        &&    Allow Changes?
  38.         MODIFY COMMAND (Fle) WINDOW DspRpt2
  39.     ELSE            &&    No changes here...
  40.         MODIFY COMMAND (Fle) NOEDIT WINDOW DspRpt2
  41.     ENDIF
  42. ENDIF
  43. RELEASE WINDOW DspRpt1,DspRpt2
  44. RETURN
  45.