home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / CLIPPER / SCRNUZ / MEMRPTS.PRG < prev    next >
Text File  |  1991-12-13  |  2KB  |  70 lines
  1. *.............................................................................
  2. *
  3. *   Program Name: MEMRPTS.PRG       Copyright: EDON Corporation
  4. *   Date Created: 12/12/91           Language: Clipper S'87
  5. *   Time Created: 10:09:18             Author: Ed Phillips
  6. *           Desc:
  7. *.............................................................................
  8.  
  9. PRIVATE oldcolor,gscrn
  10.  
  11. gscrn = Savescreen(1,0,24,79)
  12.  
  13. SELECT ScrnRpts
  14. SEEK Scr_file->Scrn_name
  15.  
  16. IF Found()
  17.    Automem('STUP')
  18.    mode = 'EDIT'
  19. ELSE
  20.    Automem('INIT')
  21.    scrn_name = M->memfile
  22.    mode = 'ADD'
  23. ENDIF                                            && IF Found()
  24.  
  25. SET SCOREBOARD OFF
  26. oldcolor = Setcolor(c_statln1)
  27. Shadow(2,7,20,68)
  28. Scroll(2,7,20,68,0)
  29. Setcolor(c_field)
  30. @ 2,7 SAY Replicate(Chr(176),62)
  31. @ 2,23 SAY ' Report Definition Screen '
  32. @ 20,7 SAY Replicate(Chr(176),62)
  33. Setcolor(c_statln1)
  34.  
  35. @ 4,14 SAY 'Report Name:'
  36. @ 6,14 SAY 'Page Header:'
  37. @ 8,14 SAY 'Detail Proc:'
  38. @ 10,11 SAY 'Main Condition:'
  39. @ 12,9  SAY 'Detail Condition:'
  40. @ 14,14 SAY 'Footer Proc:'
  41. @ 16,13 SAY 'Report Width:'
  42. @ 18,14 SAY 'Left Margin:'
  43.  
  44. @ 4,27 GET M->rptname
  45. @ 6,27 GET M->phdr
  46. @ 8,27 GET M->detproc
  47. @ 10,27 GET M->maincond PICT '@S40'
  48. @ 12,27 GET M->detcond PICT '@S40'
  49. @ 14,27 GET M->ftrproc
  50. @ 16,27 GET M->rpt_wid
  51. @ 18,27 GET M->lm
  52. READ
  53.  
  54. SET SCOREBOARD ON
  55. Restscreen(1,0,24,79,gscrn)
  56.  
  57. IF Lastkey() != 27 .AND. Updated()
  58.  
  59.    IF mode = 'ADD'
  60.       APPEND BLANK
  61.    ENDIF                                      && IF mode = 'ADD'
  62.  
  63.    Automem('REPL')
  64.  
  65. ENDIF
  66. SELECT Scr_file
  67. Setcolor(oldcolor)
  68. RETURN
  69. * EOF: MEMRPTS.PRG
  70.