Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- mno = 1
- DO WHILE mno <= mfileno
- abort = .f.
- wefile = STRTRAN(UPPER(arfiles(mno,1)),'.TXT')
- moyr = SUBSTR(m.wefile,4,4)
- WAIT WINDOW ' Uploading '+m.wefile NOWAIT
- myfile = FOPEN(arfiles(mno,1))
- SELECT unionrep
- SET ORDER TO moyr2
- mded = .f.
- mfirst = .t.
- myline = UPPER(FGETS(myfile))
- DO WHILE NOT 'REPORT TOTALS' $ myline AND NOT FEOF(myfile)
- DO WHILE NOT 'EMPLOYEE DEDUCTION HISTORY REPORT' $ myline AND NOT FEOF(myfile)
- myline = UPPER(FGETS(myfile))
- ENDDO
- DO WHILE NOT FEOF(myfile)
- myline = UPPER(FGETS(myfile))
- 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'
- LOOP
- ENDIF
- IF ALLTRIM(myline) = 'DEDUCTION:' OR mded
- IF NOT mded
- uncat = ALLTRIM(STRTRAN(myline,'DEDUCTION:'))
- dedno = LEFT(m.uncat,2)
- ENDIF
- SELECT deduct
- IF SEEK(m.dedno)
- undescr = undescr
- ungrp = ungrp
- ELSE
- DO WHILE ALLTRIM(myline) # 'DEDUCTION:' AND NOT EOF()
- myline = UPPER(FGETS(myfile))
- ENDDO
- IF ALLTRIM(myline) = 'DEDUCTION:'
- mded = .t.
- uncat = ALLTRIM(STRTRAN(myline,'DEDUCTION:'))
- dedno = LEFT(m.uncat,2)
- ENDIF
- LOOP
- ENDIF
- ENDIF
- * mded = .f.
- IF ALLTRIM(myline) = 'REPORT TOTALS'
- myline = UPPER(FGETS(myfile))
- EXIT
- ENDIF
- DO WHILE myline # 'TOTALS FOR DEDUCTION'
- IF mded
- mded = .f.
- ELSE
- myline = UPPER(FGETS(myfile))
- ENDIF
- 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'
- LOOP
- ENDIF
- IF ALLTRIM(myline) = 'REPORT TOTALS' OR myline = 'TOTALS FOR DEDUCTION'
- myline = UPPER(FGETS(myfile))
- EXIT
- ENDIF
- ssn = LEFT(myline,11)
- empno = SUBSTR(myline,13,7)
- empname = SUBSTR(myline,22,21)
- montot = VAL(SUBSTR(myline,73,11))
- IF m.montot # 0
- IF EMPTY(m.undescr)
- IF SEEK(m.moyr+m.ssn+'HOURS','unionrep')
- undescr = unionrep.undescr
- ungrp = unionrep.ungrp
- jobclass = unionrep.jobclass
- ELSE
- undescr = 'ERROR'
- ungrp = ''
- jobclass = ''
- ENDIF
- ELSE
- IF SEEK(m.moyr+m.ssn+'HOURS','unionrep')
- jobclass = unionrep.jobclass
- ENDIF
- ENDIF
- INSERT INTO unded FROM MEMVAR
- ENDIF
- ENDDO
- ENDDO
- IF abort
- EXIT
- ENDIF
- ENDDO
- = FCLOSE(myfile)
- IF abort
- newfile = ALLTRIM(m.wefile)+'.err'
- COPY FILE arfiles(mno,1) TO (newfile)
- ELSE
- COPY FILE arfiles(mno,1) TO (mdrive+mcurdir)+'\unions\ereports\archive\'+m.wefile+'.txt'
- ENDIF
- ERASE arfiles(mno,1)
- mno = mno+1
- ENDDO
- WAIT CLE
- * mded = .f.
- IF ALLTRIM(myline) = 'REPORT TOTALS'
- myline = UPPER(FGETS(myfile))
- EXIT
- ENDIF
- DO WHILE myline # 'TOTALS FOR DEDUCTION'
- IF mded
- mded = .f.
- ELSE
- myline = UPPER(FGETS(myfile))
- ENDIF
- 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'
- LOOP
- ENDIF
- IF ALLTRIM(myline) = 'REPORT TOTALS' OR myline = 'TOTALS FOR DEDUCTION'
- myline = UPPER(FGETS(myfile))
- EXIT
- ENDIF
- ssn = LEFT(myline,11)
- empno = SUBSTR(myline,13,7)
- empname = SUBSTR(myline,22,21)
- montot = VAL(SUBSTR(myline,73,11))
- IF m.montot # 0
- IF EMPTY(m.undescr)
- IF SEEK(m.moyr+m.ssn+'HOURS','unionrep')
- undescr = unionrep.undescr
- ungrp = unionrep.ungrp
- jobclass = unionrep.jobclass
- ELSE
- undescr = 'ERROR'
- ungrp = ''
- jobclass = ''
- ENDIF
- ELSE
- IF SEEK(m.moyr+m.ssn+'HOURS','unionrep')
- jobclass = unionrep.jobclass
- ENDIF
- ENDIF
- INSERT INTO unded FROM MEMVAR
- ENDIF
- ENDDO
- ENDDO
- IF abort
- EXIT
- ENDIF
- ENDDO
- = FCLOSE(myfile)
- IF abort
- newfile = ALLTRIM(m.wefile)+'.err'
- COPY FILE arfiles(mno,1) TO (newfile)
- ELSE
- COPY FILE arfiles(mno,1) TO (mdrive+mcurdir)+'\unions\ereports\archive\'+m.wefile+'.txt'
- ENDIF
- ERASE arfiles(mno,1)
- mno = mno+1
- ENDDO
- WAIT CLEAR
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement