Time management, TA PE02: operation VARABCAT encounters a simple COMPG time. This time was previously processed without problems, but terminates in 21G with an error message "No entry in table $ for "Argument $" at time $ T545S Denied personnel number: ..."
Cause and prerequisitesProgram error
SolutionInstall corr. no. K11K106884 in RPTBU100
Corr. no. K106884:
FORM OPVARAB.
* Bringt :
* a) Abwesenheitsklart bei 'ART '
* b) Abwesenheitsklasse aus T554 bei ' '
* c) Bwertungskl. L&G-Abrechng. bei 'BLG'
* d) Sonderfall bei DO AB : G=ganztaegige , S=stundenweise *
DATA: MAX_DATE LIKE ACDATE.
MAX_DATE = ACDATE + 1.
IF AS-FUNCO EQ 'ACTIO'.
IF AS-PARM2+0(2) EQ 'AB'.
ATIP-ABZNR = AB-ABZNR.
IF OP10+5(3) EQ 'DAY'.
IF AB-BEGUZ IS INITIAL.
* VARGT(1) = 'G'.
* VARGT(1) = 'W'.
VARGT(1) = 'Y'.
ELSE.
* VARGT(1) = 'Z'.
* VARGT(1) = 'H'.
VARGT(1) = 'N'.
ENDIF.
ENDIF.
ELSE.
CLEAR AB.
LOOP AT AB.
* IF AB-BEGDA LE ACDATE AND AB-ENDDA GE ACDATE.
IF ( AB-BEGDA LE ACDATE AND AB-ENDDA GE ACDATE
AND AB-VTKEN CO ' 0' ) OR
( AB-BEGDA LE MAX_DATE AND AB-ENDDA GE MAX_DATE
AND AB-VTKEN CN ' 0' ).
ATIP-ABZNR = AB-ABZNR.
EXIT.
ENDIF.
CLEAR AB.
ENDLOOP.
ENDIF.
ELSE. "of FUNKTION eq ZDO
READ TABLE AB WITH KEY ATIP-ABZNR.
IF SY-SUBRC NE 0.
CLEAR AB.
ENDIF.
ENDIF.
CLEAR VARGT. "K11K106884
IF NOT AB-AWART IS INITIAL. "K11K106884
CASE OP10+5(3).
* WHEN 'ART '.
WHEN 'TYP'.
VARGT(4) = AB-AWART.
* WHEN 'BLG'.
WHEN 'VCL'.
CDATUM = ACDATE.
PERFORM RE554S USING T001P-MOABW AB-AWART CDATUM.
VARGT(2) = T554S-KLBEW.
* WHEN ' '.
WHEN 'CAT'.
CDATUM = ACDATE.
PERFORM RE554S USING T001P-MOABW AB-AWART CDATUM.
VARGT(2) = T554S-KLBDE.
ENDCASE.
ENDIF. "K11K106884
PERFORM FILLVARGT.
ENDFORM. " of OPVARAB
No comments:
Post a Comment