VT02N Enhnchment while saving the data
VT02N
While Saving
METHOD IF_EX_BADI_LE_SHIPMENT~AT_SAVE.
DATA:GT_VTTKVB TYPE TABLE OF VTTKVB,
GS_VTTKVB TYPE VTTKVB.
DATA:GT_VTTP TYPE TABLE OF VTTPVB,
GS_VTTP TYPE VTTPVB.
GT_VTTKVB[] = IM_SHIPMENTS_AT_SAVE-NEW_VTTK.
CLEAR:GS_VTTKVB.
READ TABLE GT_VTTKVB INTO GS_VTTKVB INDEX 1.
GT_VTTP[] = IM_SHIPMENTS_AT_SAVE-NEW_VTTP.
CLEAR:GS_VTTP.
IF GS_VTTKVB-TPLST GT '3000'.
LOOP AT GT_VTTP INTO GS_VTTP.
IF GS_VTTKVB-TPLST NE GS_VTTP-WERKS.
MESSAGE 'You can not add delivery plant diffrent' TYPE 'E'.
ENDIF.
CLEAR: GS_VTTP.
ENDLOOP.
ENDIF.
ENDMETHOD.
While Saving
BADI_LE_SHIPMENT
METHOD IF_EX_BADI_LE_SHIPMENT~AT_SAVE.
DATA:GT_VTTKVB TYPE TABLE OF VTTKVB,
GS_VTTKVB TYPE VTTKVB.
DATA:GT_VTTP TYPE TABLE OF VTTPVB,
GS_VTTP TYPE VTTPVB.
GT_VTTKVB[] = IM_SHIPMENTS_AT_SAVE-NEW_VTTK.
CLEAR:GS_VTTKVB.
READ TABLE GT_VTTKVB INTO GS_VTTKVB INDEX 1.
GT_VTTP[] = IM_SHIPMENTS_AT_SAVE-NEW_VTTP.
CLEAR:GS_VTTP.
IF GS_VTTKVB-TPLST GT '3000'.
LOOP AT GT_VTTP INTO GS_VTTP.
IF GS_VTTKVB-TPLST NE GS_VTTP-WERKS.
MESSAGE 'You can not add delivery plant diffrent' TYPE 'E'.
ENDIF.
CLEAR: GS_VTTP.
ENDLOOP.
ENDIF.
ENDMETHOD.
Comments
Post a Comment