VT02N Enhnchment while saving the data

VT02N

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.
        CLEARGS_VTTP.
      ENDLOOP.
    ENDIF.
  ENDMETHOD.

Comments

Popular posts from this blog

all user exit mv45afzz (implicit user exit )

How to Give Dropdown in alv report in sap abap programming Language

Long Text in input and output field in module pool