home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DBASEACC.ARC / PAYEMPS.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  2.8 KB  |  120 lines
  1. * PAYEMPS.CMD
  2. * Does normal payroll processing or exceptions.
  3.  
  4. SET TALK OFF
  5. STORE T TO Salaries
  6. DO WHILE Salaries
  7.     ERASE
  8.     @ 3,20 SAY '        PAYROLL FUNCTIONS      '
  9.     @ 6,20 SAY '        1> NORMAL PAYROLL      '
  10.     @ 7,20 SAY '        2> PARTIAL PAYMENT(S)  '
  11.     @ 8,20 SAY '        3> SKIP EMPLOYEE(S)    '
  12.     @ 10,20 SAY '           <Return> '
  13.     WAIT TO Action
  14.  
  15.     IF Action = '1'
  16.  DO Payroll
  17.     ELSE
  18.  IF Action = '2'
  19.      ERASE
  20.      ?
  21.      ?
  22.      ?
  23.      ? 'This procedure allows you to pay less than a full salary if'
  24.      ? 'for some reason an employee skipped days of work that are '
  25.      ? 'not to be paid for.  Do you want to continue (Y or N)?'
  26.      WAIT TO Continue
  27.      IF !(Continue) = 'Y'
  28.   RESTORE FROM Constant
  29.   USE Personne
  30.   ? 'Select the employee number for partial payment:'
  31.   ? '     (Type 0 to quit.)'
  32.   ?
  33.   ? 'NO.      NAME            % OF PAY'
  34.   LIST Name, Ratio*100 FOR .NOT. *
  35.   ?
  36.   INPUT 'Which number (0 to quit)?' TO Wipe
  37.   STORE INT(Wipe) TO Wipe
  38.   DO WHILE Wipe <> 0
  39.       GO Wipe
  40.       ? 'How many days were worked'
  41.       ? 'since the last regular payday?'
  42.       ? 'Use decimals if needed (1 hour = 0.1333.)'
  43.       ?
  44.       INPUT TO Worked
  45.       STORE Worked/11.0000 TO NewRatio
  46.       REPLACE Ratio WITH NewRatio
  47.       ?
  48.       DISP Name, Ratio*100
  49.       ?
  50.       INPUT 'Next (0 to quit)?' TO Wipe
  51.       STORE INT(Wipe) TO Wipe
  52.   ENDDO
  53.      ENDIF
  54.      RELEASE All
  55.  
  56.      ?
  57.      ? 'Do you want to SKIP any employees (Y or N)?'
  58.      WAIT TO Skip
  59.      IF !(Skip) <> 'Y'
  60.   DO Payroll
  61.      ENDIF
  62.      RELEASE Skip
  63.  ELSE
  64.     IF Action = '3'
  65.  ERASE
  66.  ?
  67.  ?
  68.  ?
  69.  ? 'This procedure allows you to skip a paycheck in the payroll'
  70.  ? 'procedure.  Do you want to continue (Y or N)?'
  71.  WAIT TO Continue
  72.  IF !(Continue) = 'Y'
  73.      RESTORE FROM Constant
  74.      USE Personne
  75.      ? 'Select the number of the employee to skip:'
  76.      ? '          (Type 0 to quit)'
  77.      ? 'No.         Name            Skip'
  78.      ?
  79.      LIST Name, Paid FOR .NOT. *
  80.      ?
  81.      INPUT 'Which number (0 to quit)? ' TO Wipe
  82.      STORE INT(Wipe) TO Wipe
  83.      DO WHILE Wipe <> 0
  84.   GO Wipe
  85.   REPLACE Paid WITH T
  86.   ?
  87.   ?'NO.     NAME              SKIP'
  88.   ?
  89.   DISP Name, Paid
  90.   ?
  91.   INPUT 'Next? ("0"to quit) '  TO Wipe
  92.   STORE INT(Wipe) TO Wipe
  93.      ENDDO
  94.  ENDIF
  95.  RELEASE All
  96.  
  97.  ?
  98.  ? 'Do you want to pay a partial salary'
  99.  ? 'to any employees (Y or N)?'
  100.  WAIT TO Part
  101.  IF !(Part) <> 'Y'
  102.      DO Payroll
  103.  ENDIF
  104.  RELEASE Part
  105.     ELSE
  106.  IF Action = '4'
  107.      ? 'Something 4'
  108.      WAIT
  109.  ELSE
  110.      RELEASE All
  111.      RETURN
  112.  ENDIF 4
  113.     ENDIF 3
  114. ENDIF 2
  115. ENDIF 1
  116. STORE T TO Salaries
  117. ENDDO Salaries
  118.  
  119.  
  120.