home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / pssst.zip / PSCOMPLT.PRG next >
Text File  |  1986-07-16  |  3KB  |  127 lines
  1. * PSCOMPLT.PRG
  2. *
  3. * A DBASE II 16BIT COMMAND FILE to allow completed suspenses to be moved
  4. * to the completed datafile. Returns to PSTJOBTRK for further suspense
  5. * options. Called by PSEDITS
  6. *
  7. * Version 1
  8. * By LTC Denny Hugg
  9. * ANGSC/DOS Andrews AFB MD 16 Jul 1985
  10. *
  11. * Version 2
  12. * modified by Maj Jim McMurry
  13. * ANGSC/DOSC Truax Field, WI 15 Jun 1986
  14. *
  15. SELECT SECONDARY
  16. USE &gcomplfile
  17. SELECT PRIMARY
  18. ERASE
  19. STORE 2 TO line
  20. STORE 'M O V I N G   T O   C O M P L E T I O N   F I L E' TO prompt
  21. DO PSPROMPT
  22. @  7, 0 SAY 'Record Number: '
  23. @  7,14 SAY #
  24. @  8, 0 SAY 'Description: '+descrip
  25. @  9, 0 SAY 'Origin: '+origin
  26. @ 10, 0 SAY 'Priority: '+priority
  27. @ 11, 0 SAY 'Date Received: '+in:date
  28. @ 12, 0 SAY 'Due: '+duedate
  29. @ 13, 0 SAY 'OPR: '+opr
  30. STORE '     ' TO recnum
  31. ? gcuron
  32. @ 22,79 SAY '              ';
  33.          + 'Confirm completion By Re-entering Record Number ';
  34.        GET recnum PICTURE '99999'
  35. READ NOUPDATE
  36. @ 0, 0 SAY gcuroff
  37. IF VAL(recnum) <> recno
  38.    @ 22,79 SAY gclearline
  39.    @ 22,79 SAY '                 ';
  40.              + 'Record Number Does Not Agree With Control Number'
  41.    STORE 1 TO timer
  42.    DO WHILE timer < gdelay
  43.       STORE timer + 1 TO timer
  44.    ENDDO
  45.    SKIP - counter
  46.    RETURN
  47. ENDIF
  48. RELEASE recnum, gline
  49. STORE priority TO mpriority
  50. STORE in:date TO min:date
  51. STORE duedate TO mduedate
  52. STORE origin TO morigin
  53. STORE descrip TO mdescrip
  54. STORE opr TO mopr
  55. STORE phone TO mphone
  56. STORE rem1 TO mrem1
  57. STORE rem2 TO mrem2
  58. STORE rem3 TO mrem3
  59. STORE rem4 TO mrem4
  60. STORE rem5 TO mrem5
  61. STORE rem6 TO mrem6
  62. STORE rem7 TO mrem7
  63. STORE rem8 TO mrem8
  64. STORE rem9 TO mrem9
  65. STORE rem10 TO mrem10
  66. STORE rem11 TO mrem11
  67. STORE rem12 TO mrem12
  68. DELETE
  69. STORE 'Y' TO needpack
  70. SELECT SECONDARY
  71. APPEND BLANK
  72. REPLACE c:d:date WITH gdate 
  73. @ 22,79 SAY gclearline
  74. @ 0, 0 SAY gcuron
  75. @ 22,79 SAY '                          ';
  76.           + 'Enter Date Completed ';
  77.         GET c:d:date PICTURE '99/99/99'
  78. READ
  79. @ 0, 0 SAY gcuroff
  80. REPLACE priority WITH mpriority
  81. REPLACE in:date WITH min:date
  82. REPLACE duedate WITH mduedate
  83. REPLACE descrip WITH mdescrip
  84. REPLACE opr WITH mopr
  85. REPLACE phone WITH mphone
  86. REPLACE rem1 WITH mrem1
  87. REPLACE rem2 WITH mrem2
  88. REPLACE rem3 WITH mrem3
  89. REPLACE rem4 WITH mrem4
  90. REPLACE rem5 WITH mrem5
  91. REPLACE rem6 WITH mrem6
  92. REPLACE rem7 WITH mrem7
  93. REPLACE rem8 WITH mrem8
  94. REPLACE rem9 WITH mrem9
  95. REPLACE rem10 WITH mrem10
  96. REPLACE rem11 WITH mrem11
  97. REPLACE rem12 WITH mrem12
  98. USE
  99. SELECT PRIMARY
  100. IF # <> firstshown
  101.    GO firstshown
  102. ELSE
  103.    GO TOP
  104. ENDIF
  105. RELEASE ALL LIKE m*
  106. RETURN
  107. * --- EOF PSCOMPLT.PRG
  108. O mrem7
  109. STORE rem8 TO mrem8
  110. STORE rem9 TO mrem9
  111. STORE rem10 TO mrem10
  112. STORE rem11 TO mrem11
  113. STORE rem12 TO mrem12
  114. DELETE
  115. STORE 'Y' TO needpack
  116. SELECT SECONDARY
  117. APPEND BLANK
  118. REPLACE c:d:date WITH gdate 
  119. @ 22,79 SAY gclearline
  120. @ 0, 0 SAY gcuron
  121. @ 22,79 SAY '                          ';
  122.           + 'Enter Date Completed ';
  123.         GET c:d:date PICTURE '99/99/99'
  124. READ
  125. @ 0, 0 SAY gcuroff
  126. REPLACE priority WITH mpriority
  127. REPLACE in:date WITH min:d