Code: Alles auswählen.
form basisbez.
sum = 0.
call function 'RP_FILL_WAGE_TYPE_TABLE'
exporting
pernr = pernr-pernr
begda = zmon
endda = '20061231'
infty = '0008'
tables
ppbwla = ppbwla
pp0008 = p0008
exceptions
error_at_indirect_evaluation = 1.
case sy-subrc.
when 1. " Fehler ind. Bewertung
write : / 'Fehler bei ', pernr-pernr. " Fehlerbehandlung
reject.
endcase.
loop at ppbwla.
case ppbwla-lgart.
when '1000' or '1010'. " or ...
sum = sum + ppbwla-betrg
* ( ppbwla-endda+4(2) - ppbwla-begda+4(2) + 1 ).
endcase.
endloop.
endform. "BASISBEZ