Wiederholungsnachricht für Lieferung

Re: Wiederholungsnachricht für Lieferung

Hallo,
wir machen so etwas ohne Probleme.
Haten aber mal den Fehler, dass wir vor dem Vergleich der X und Y-Tabellen die nicht mehr richtig sortiert waren.

Beispiel:
FORM KOBED_971.
*{ INSERT C01K905020 1
* Einfügung Mai 2017

DATA: lt_vbep TYPE TABLE OF vbep,
lf_subrc TYPE subrc,
ls_vbep TYPE vbep,
lt_xvbep TYPE TABLE OF vbep,
ls_xvbep type vbep,
lt_vbepvb type table of vbapvb,
ls_xvbepvb type vbapvb,
wa like vbapvb,
wx like vbep.
FIELD-SYMBOLS: <ft_xvbep> TYPE any.
FIELD-SYMBOLS: <ft_xvbepvb> TYPE any.

sy-subrc = 4.

ASSIGN ('(SAPMV45A)YVBAP[]') TO <ft_xvbepvb>.
IF <ft_xvbepvb> IS ASSIGNED.
lt_vbepvb[] = <ft_xvbepvb>.
ENDIF.

ASSIGN ('(SAPMV45A)XVBEP[]') TO <ft_xvbep>.
IF <ft_xvbep> IS ASSIGNED.
lt_vbep[] = <ft_xvbep>.
ENDIF.

loop at lt_vbepvb into wa.
if wa-updkz = 'D'.
loop at lt_vbep INTO wx .
if wx-vbeln = wa-vbeln and wx-posnr = wa-posnr.
if sy-subrc = 0.
delete lt_vbep.
endif.
endif.
endloop.
endif.
endloop.


* alten Stand Kundenauftrag lesen
Select * from vbep into ls_vbep
where vbeln = komkbv1-vbeln.
Append ls_vbep to lt_xvbep.
endselect.

* Vergleich alt und neu - nur wenn Änderungen bleibt sy-subrc auf 0
sort: lt_vbep[] lt_xvbep[].
if lt_vbep[] eq lt_xvbep[].
sy-subrc = 4.
endif.

*} INSERT
ENDFORM.
FORM KOBEV_971.
*{ INSERT C01K905020 1
Perform kobed_971.

*} INSERT
ENDFORM.

Das bitte als Beispiel betrachten.

Gruß Wolfgang