Advertisement
Guest User

Untitled

a guest
Mar 6th, 2018
142
0
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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement