Aktivierung user-exit: Die Schachtelung ist nicht korrekt

Code: Alles auswählen.

DATA: ls_vbfa type vbfa.
DATA: lt_vbfa like table of ls_vbfa.

Start-of-selection.

select * from vbfa into table lt_vbfa
 where vbelv = vbdpa-vgbel
 and posnv = vbdpa-vgpos.

End-of-selection.

vbdpa-zzrme = vbdpa-zmeng.

loop at lt_vbfa into ls_vbfa.
 if ls_vbfa-plmin = '+'.
 subtract ls_vbfa-rfmng from vbdpa-zzrme.
 elseif ls_vbfa-plmin = '-'.
add ls_vbfa-rfmng to vbdpa-zzrme.
 endif.
endloop.


*} INSERT

MOVE-CORRESPONDING VBAP TO VBDPAZ.
MOVE-CORRESPONDING VBDPAZ TO LVBDPA.

Code: Alles auswählen.

***INCLUDE V05DZZAP .
***Userexit Auftragsdruck Zeitpunkt VBAP

MOVE-CORRESPONDING VBAP TO VBDPAZ.
MOVE-CORRESPONDING VBDPAZ TO LVBDPA.
*{   INSERT         TE2K907271                                        2

*DATA: ls_vbfa type vbfa.
*DATA: lt_vbfa like table of ls_vbfa.

DATA: lt_vbfa type table of vbfa, lt_vbap type table of vbap.
FIELD-SYMBOLS: <lt_vbfa> like line of lt_vbfa.
FIELD-SYMBOLS: <lt_vbap> type line of vbap.

select * from vbap into table lt_vbap
  where vbeln = lvbdpa-vbgbel
  and posnr = lvbdpa-vgpos.

lvbdpa-zzrme = lt_vbap-zmeng.


select * from vbfa into table lt_vbfa
  where vbelv = lvbdpa-vgbel
  and posnv = lvbdpa-vgpos.

LOOP at lt_vbfa ASSIGNING <lt_vbfa>.
  if <lt_vbfa>-plmin = '+'.
    SUBTRACT <lt_vbfa>-rfmng from lvbdpa-zzrme.
  elseif <lt_vbfa>-plmin = '-'.
    add <lt_vbfa>-rfmng to lvbdpa-zzrme.
  endif.
ENDLOOP.