home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol110 / timechar.cmd < prev    next >
Encoding:
Text File  |  1984-04-29  |  3.4 KB  |  146 lines
  1. TIMECHAR.CMD
  2. *
  3. *
  4. ERASE
  5. SET TALK OFF
  6. ? CHR(27)+CHR(40)
  7. ? '                GCS Timesheet Entry             '
  8. ? CHR(27)+CHR(41)
  9. ? CHR(27)+CHR(40)
  10. ? 'Entry of R for DATE Will Return You to Menu     '
  11. ? CHR(27)+CHR(41)
  12. ACCEPT 'ENTER DATE (MM/DD/YY)       ' to C:DATE
  13. IF !(C:DATE)='R'
  14.     RELEASE C:DATE
  15.     RETURN
  16. ENDIF
  17. USE &COST
  18. DO WHILE T
  19.     ERASE
  20.     ?
  21.     ? CHR(27)+CHR(40) + '           GCS TIMESHEET ENTRY         '+;
  22.      CHR(27)+CHR(41)
  23.     ?
  24.     ?
  25.     ? CHR(27)+CHR(40)
  26.     REMARK Entry of 0 for Name will Return you to Menu
  27.     ? CHR(27)+CHR(41)
  28.     ?
  29.     ACCEPT 'Enter Employee Name' to C:NAME
  30.     IF C:NAME = '0'
  31.         USE
  32.         RELEASE C:DATE, C:JOBNUM, GO:NOGO, C:PCODE, C:NAME, C:HOURS, C:RATE, ;
  33.         C:AMT, C:CUSTCD, C:CUSTOD
  34.         RETURN
  35.     ENDIF
  36.     ?
  37.     ACCEPT 'Enter Operation Code' to C:OPCODE
  38.     STORE '0' TO C:PCODE
  39.     STORE 'y' TO PERSON
  40.     DO WHILE !(PERSON) = 'Y'
  41.         ERASE
  42.         ?
  43.         ? CHR(27)+CHR(40) + '           GCS TIMESHEET ENTRY         '+;
  44.          CHR(27)+CHR(41)
  45.         ?
  46.         ?
  47.         ? CHR(27)+CHR(40)
  48.         ? 'Date set is      :'+CHR(27)+CHR(41)+'  &C:DATE'+CHR(27)+CHR(40)
  49.         ? 'Operation Code   :'+CHR(27)+CHR(41)+'  &C:OPCODE'+CHR(27)+CHR(40)
  50.         ? 'Entering Time For:'+CHR(27)+CHR(41)+'  &C:NAME'
  51.         IF C:PCODE = '0'
  52.             ACCEPT            'Enter Production Code:     ' to C:PCODE
  53.         ENDIF
  54.         ? CHR(27)+CHR(40)
  55.         ? 'Production Code is:'+CHR(27)+CHR(41)+'  &C:PCODE'
  56.         ?
  57.         ? CHR(27)+CHR(40)
  58.         ACCEPT 'Do you Wish to Change Production Code (Y/N)?' TO CHANGE
  59.         ? CHR(27)+CHR(41)
  60.         IF !(CHANGE) = 'Y'
  61.             ACCEPT       'Enter New Production Code:      ' to C:PCODE
  62.         ENDIF        
  63.         IF C:PCODE = "245"
  64.             STORE 21 TO C:RATE
  65.         ELSE
  66.             IF C:PCODE = "246"
  67.                 STORE 24 TO C:RATE
  68.             ELSE
  69.                 IF C:PCODE = "247"
  70.                     STORE 70 TO C:RATE
  71.                 ELSE
  72.                     IF C:PCODE = "248"
  73.                         STORE 40 TO C:RATE
  74.                     ELSE
  75.                         IF C:PCODE = "250"
  76.                             STORE 55 TO C:RATE
  77.                         ELSE
  78.                             IF C:PCODE = "251"
  79.                                 STORE 47 TO C:RATE
  80.                             ELSE
  81.                                 IF C:PCODE = "252"
  82.                                     STORE 50 TO C:RATE
  83.                                 ELSE
  84.                                     IF C:PCODE = "253"
  85.                                         STORE 45 TO C:RATE
  86.                                     ENDIF
  87.                                 ENDIF
  88.                             ENDIF
  89.                         ENDIF
  90.                     ENDIF
  91.                 ENDIF
  92.             ENDIF
  93.         ENDIF
  94.         ? CHR(27)+CHR(40) + 'Enter Job Number "C" to Charge Hours '
  95.         ?           'to Customer Code and Order number    ' + CHR(27)+CHR(41)
  96.         STORE "Y" TO NUM
  97.         DO WHILE !(NUM) = "Y"
  98.             ACCEPT        'ENTER JOBNUMBER             ' to C:JOBN
  99.             ?
  100.             IF C:JOBN <> "C" .AND. LEN(C:JOBN) <> 6
  101.                 ? CHR(27)+CHR(40)
  102.                 REMARK    INVALID JOB NUMBER -- REENTER
  103.                 REMARK      PRESS ANY KEY TO CONTINUE
  104.                 ? CHR(27)+CHR(41)
  105.                 WAIT
  106.                 LOOP
  107.             ENDIF
  108.             STORE "N" TO NUM
  109.             IF C:JOBN = 'C'
  110.                 ACCEPT        'ENTER CUSTOMER CODE         ' to C:CUSTCD
  111.                 ACCEPT        'ENTER CUSTOMER ORDER NUMBER ' to C:CUSTOD
  112.             ELSE        
  113.                 IF !(C:JOBN) <> 'C'
  114.                     STORE "NA" TO C:CUSTCD
  115.                     STORE "NA" TO C:CUSTOD
  116.                 ENDIF
  117.             ENDIF
  118.             INPUT        'ENTER HOURS                 ' to C:HOURS
  119.             ?
  120.             ? CHR(27)+CHR(40)
  121.             ACCEPT          'ARE ALL FIELDS CORRECT? (Y/N)' TO GO:NOGO
  122.             ? CHR(27)+CHR(41)
  123.             IF GO:NOGO <> 'Y'
  124.                 LOOP
  125.             ENDIF
  126.             STORE (C:RATE * C:HOURS) TO C:AMT
  127.             APPEND BLANK
  128.             REPLACE JOBNUMBER WITH C:JOBN, BILL:DATE WITH C:DATE, OPCODE ;
  129.                 WITH C:OPCODE, NAME WITH C:NAME, HOURS WITH C:HOURS, INTCOST ;
  130.                 WITH C:AMT, PROD:CODE WITH C:PCODE, CUSTCODE WITH C:CUSTCD, ;
  131.                 CUSTORDER WITH C:CUSTOD
  132.             ERASE
  133.             ?
  134.             ? CHR(27)+CHR(40) + '           GCS TIMESHEET ENTRY         '+;
  135.                  CHR(27)+CHR(41)
  136.             ?
  137.             ?
  138.             ? CHR(27)+CHR(40)
  139.             ACCEPT  'MORE HOURS FOR &C:NAME? (Y/N)' TO PERSON
  140.             ? CHR(27)+CHR(41)
  141.             ERASE
  142.             RELEASE C:JOBNUM, GO:NOGO, C:HOURS, C:RATE, C:AMT
  143.         ENDDO
  144.     ENDDO
  145. ENDDO
  146. RETURN