SHARE
TWEET

Untitled

a guest Apr 8th, 2018 364 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. mno = 1
  2. DO WHILE mno <= mfileno
  3.     abort = .f.
  4.     wefile = STRTRAN(UPPER(arfiles(mno,1)),'.TXT')
  5.     moyr = SUBSTR(m.wefile,4,4)
  6.     WAIT WINDOW ' Uploading '+m.wefile NOWAIT
  7.     myfile = FOPEN(arfiles(mno,1))
  8.     SELECT unionrep
  9.     SET ORDER TO moyr2
  10.     mded = .f.
  11.     mfirst = .t.
  12.     myline = UPPER(FGETS(myfile))
  13.     DO WHILE NOT 'REPORT TOTALS' $ myline AND NOT FEOF(myfile)
  14.         DO WHILE NOT 'EMPLOYEE DEDUCTION HISTORY REPORT' $ myline AND NOT FEOF(myfile)
  15.             myline = UPPER(FGETS(myfile))
  16.         ENDDO
  17.         DO WHILE NOT FEOF(myfile)
  18.             myline = UPPER(FGETS(myfile))
  19.             IF EMPTY(myline) OR ALLTRIM(myline) = ' ' OR ALLTRIM(myline) = 'RUN DATE' OR ALLTRIM(myline) = 'PAR ELEC' OR ALLTRIM(myline) = 'BY DEDUCTION' OR ALLTRIM(myline) = 'FOR ALL EMPLOYEES' OR ALLTRIM(myline ) = 'FOR STARTING DEDUCTION' OR ALLTRIM(myline) = 'FOR ENDING DEDUCTION' OR ALLTRIM(myline) = 'WEEKLY PERIOD END' OR ALLTRIM(myline) = 'SEMI-MONTHLY PERIOD' OR ALLTRIM(myline) = 'SOC SEC NUM' OR ALLTRIM(myline) = 'THIS       MONTH' OR ALLTRIM(myline) = '---' OR SUBSTR(ALLTRIM(myline),3,1) = '/' OR ALLTRIM(myline) = 'REPORT TOTALS'
  20.                 LOOP
  21.             ENDIF
  22.             IF ALLTRIM(myline) = 'DEDUCTION:' OR mded
  23.                 IF NOT mded
  24.                     uncat = ALLTRIM(STRTRAN(myline,'DEDUCTION:'))
  25.                     dedno = LEFT(m.uncat,2)
  26.                 ENDIF
  27.                 SELECT deduct
  28.                 IF SEEK(m.dedno)
  29.                     undescr = undescr
  30.                     ungrp = ungrp
  31.                 ELSE
  32.                     DO WHILE ALLTRIM(myline) # 'DEDUCTION:' AND NOT EOF()
  33.                         myline = UPPER(FGETS(myfile))
  34.                     ENDDO
  35.                     IF ALLTRIM(myline) = 'DEDUCTION:'
  36.                         mded = .t.
  37.                         uncat = ALLTRIM(STRTRAN(myline,'DEDUCTION:'))
  38.                         dedno = LEFT(m.uncat,2)
  39.                     ENDIF
  40.                     LOOP
  41.                 ENDIF
  42.             ENDIF      
  43. *           mded = .f.
  44.             IF ALLTRIM(myline) = 'REPORT TOTALS'
  45.                 myline = UPPER(FGETS(myfile))
  46.                 EXIT
  47.             ENDIF
  48.             DO WHILE myline # 'TOTALS FOR DEDUCTION'
  49.                 IF mded
  50.                     mded = .f.
  51.                 ELSE
  52.                     myline = UPPER(FGETS(myfile))
  53.                 ENDIF
  54.                 IF EMPTY(myline) OR ALLTRIM(myline) = ' ' OR ALLTRIM(myline) = 'RUN DATE' OR ALLTRIM(myline) = 'PAR ELEC' OR ALLTRIM(myline) = 'BY DEDUCTION' OR ALLTRIM(myline) = 'FOR ALL EMPLOYEES' OR ALLTRIM(myline ) = 'FOR STARTING DEDUCTION' OR ALLTRIM(myline) = 'FOR ENDING DEDUCTION' OR ALLTRIM(myline) = 'WEEKLY PERIOD END' OR ALLTRIM(myline) = 'SEMI-MONTHLY PERIOD' OR ALLTRIM(myline) = 'SOC SEC NUM' OR ALLTRIM(myline) = '---' OR SUBSTR(ALLTRIM(myline),3,1) = '/' OR ALLTRIM(myline) = 'REPORT TOTALS'
  55.                     LOOP
  56.                 ENDIF
  57.                 IF ALLTRIM(myline) = 'REPORT TOTALS' OR myline = 'TOTALS FOR DEDUCTION'
  58.                     myline = UPPER(FGETS(myfile))
  59.                     EXIT
  60.                 ENDIF
  61.                 ssn = LEFT(myline,11)
  62.                 empno = SUBSTR(myline,13,7)
  63.                 empname = SUBSTR(myline,22,21)
  64.                 montot = VAL(SUBSTR(myline,73,11))
  65.                 IF m.montot # 0
  66.                     IF EMPTY(m.undescr)
  67.                         IF SEEK(m.moyr+m.ssn+'HOURS','unionrep')
  68.                             undescr = unionrep.undescr
  69.                             ungrp = unionrep.ungrp
  70.                             jobclass = unionrep.jobclass
  71.                         ELSE
  72.                             undescr = 'ERROR'
  73.                             ungrp = ''
  74.                             jobclass = ''
  75.                         ENDIF
  76.                     ELSE
  77.                         IF SEEK(m.moyr+m.ssn+'HOURS','unionrep')
  78.                             jobclass = unionrep.jobclass
  79.                         ENDIF                  
  80.                     ENDIF
  81.                     INSERT INTO unded FROM MEMVAR
  82.                 ENDIF
  83.             ENDDO          
  84.         ENDDO
  85.         IF abort
  86.             EXIT
  87.         ENDIF
  88.     ENDDO
  89.     = FCLOSE(myfile)
  90.     IF abort
  91.         newfile = ALLTRIM(m.wefile)+'.err'
  92.         COPY FILE arfiles(mno,1) TO (newfile)
  93.     ELSE      
  94.         COPY FILE arfiles(mno,1) TO (mdrive+mcurdir)+'\unions\ereports\archive\'+m.wefile+'.txt'
  95.     ENDIF
  96.     ERASE arfiles(mno,1)
  97.     mno = mno+1
  98. ENDDO
  99. WAIT CLE
  100. *           mded = .f.
  101.             IF ALLTRIM(myline) = 'REPORT TOTALS'
  102.                 myline = UPPER(FGETS(myfile))
  103.                 EXIT
  104.             ENDIF
  105.             DO WHILE myline # 'TOTALS FOR DEDUCTION'
  106.                 IF mded
  107.                     mded = .f.
  108.                 ELSE
  109.                     myline = UPPER(FGETS(myfile))
  110.                 ENDIF
  111.                 IF EMPTY(myline) OR ALLTRIM(myline) = ' ' OR ALLTRIM(myline) = 'RUN DATE' OR ALLTRIM(myline) = 'PAR ELEC' OR ALLTRIM(myline) = 'BY DEDUCTION' OR ALLTRIM(myline) = 'FOR ALL EMPLOYEES' OR ALLTRIM(myline ) = 'FOR STARTING DEDUCTION' OR ALLTRIM(myline) = 'FOR ENDING DEDUCTION' OR ALLTRIM(myline) = 'WEEKLY PERIOD END' OR ALLTRIM(myline) = 'SEMI-MONTHLY PERIOD' OR ALLTRIM(myline) = 'SOC SEC NUM' OR ALLTRIM(myline) = '---' OR SUBSTR(ALLTRIM(myline),3,1) = '/' OR ALLTRIM(myline) = 'REPORT TOTALS'
  112.                     LOOP
  113.                 ENDIF
  114.                 IF ALLTRIM(myline) = 'REPORT TOTALS' OR myline = 'TOTALS FOR DEDUCTION'
  115.                     myline = UPPER(FGETS(myfile))
  116.                     EXIT
  117.                 ENDIF
  118.                 ssn = LEFT(myline,11)
  119.                 empno = SUBSTR(myline,13,7)
  120.                 empname = SUBSTR(myline,22,21)
  121.                 montot = VAL(SUBSTR(myline,73,11))
  122.                 IF m.montot # 0
  123.                     IF EMPTY(m.undescr)
  124.                         IF SEEK(m.moyr+m.ssn+'HOURS','unionrep')
  125.                             undescr = unionrep.undescr
  126.                             ungrp = unionrep.ungrp
  127.                             jobclass = unionrep.jobclass
  128.                         ELSE
  129.                             undescr = 'ERROR'
  130.                             ungrp = ''
  131.                             jobclass = ''
  132.                         ENDIF
  133.                     ELSE
  134.                         IF SEEK(m.moyr+m.ssn+'HOURS','unionrep')
  135.                             jobclass = unionrep.jobclass
  136.                         ENDIF                  
  137.                     ENDIF
  138.                     INSERT INTO unded FROM MEMVAR
  139.                 ENDIF
  140.             ENDDO          
  141.         ENDDO
  142.         IF abort
  143.             EXIT
  144.         ENDIF
  145.     ENDDO
  146.     = FCLOSE(myfile)
  147.     IF abort
  148.         newfile = ALLTRIM(m.wefile)+'.err'
  149.         COPY FILE arfiles(mno,1) TO (newfile)
  150.     ELSE      
  151.         COPY FILE arfiles(mno,1) TO (mdrive+mcurdir)+'\unions\ereports\archive\'+m.wefile+'.txt'
  152.     ENDIF
  153.     ERASE arfiles(mno,1)
  154.     mno = mno+1
  155. ENDDO
  156. WAIT CLEAR
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top