In the case of requisitions with multiple account assignment, more than 99 account assignment items were opened without their actually being added. All account assignments above 99 were written over the first account assignment items that were entered.
Cause and prerequisitesMissing query re number of account assignment items before further account assignment item lines were opened.
SolutionCorrection in MM06BFBC.
...
*----------------------------------------------------------------------*
* Kontierungstabelle lesen
* Eintrag wird in EBKN (Loopzeile) uebertragen.
*----------------------------------------------------------------------*
form bsc_lesen_loop.
k-lopind = sy-loopc.
k-aktind = k-aktind + 1.
if k-aktind <= k-maxind.
read table bsc index k-aktind.
if sy-subrc eq 0.
move-corresponding bsc to ebkn.
k-pagind = k-pagind + 1.
case eban-vrtkz.
when '1'.
rm06b-mkntm = ebkn-menge.
when '2'.
rm06b-mkntm = ebkn-vproz.
*.........100% bei Dienstleistung
if eban-pstyp eq pstyp-dien and ebkn-menge eq 1000.
rm06b-mkntm = ebkn-menge.
endif.
when others.
rm06b-mkntm = ebkn-menge.
endcase.
endif.
else.
k-aktind = k-aktind - 1.
if trtyp = anz or t160-vorga eq frgb
or ebknpo_help eq 99. ---> insert S11K135475
exit from step-loop.
else.
ebknpo_help = ebknpo_help + 1.
ebkn-zebkn = ebknpo_help.
ebkn-sakto = h-sakto.
rm06b-ergkz = need_full. "Kontierungsblock erforderlich
endif.
endif.
endform.
*eject
*----------------------------------------------------------------------*
* Kontierung loeschen *
*----------------------------------------------------------------------*
...
No comments:
Post a Comment