BADI_LE_SHIPMENT : how to do the declaration

Question

Hi Friends:
I'm using BADI : BADI_LE_SHIPMENT to put some validations in trabsaction VT01N. inside that BADi there is a deep structure IM_SHIPMENTS_BEFORE_UPDATE . I've to use the internal tables inside that like new_vttk.....using the fields of table new VTTK & newVTTP..I've to write some validation...
plz guide me that how can I access the fields of these tables...
suitable points will be rewarded..
Regards:
Gaurav

Answer 1

see the following code used in at save method
DATA: wa_vbuk TYPE vbuk,
        wa_vttp TYPE vttp,
        wa_vttk LIKE LINE OF cha_shipments_at_save-new_vttk,
        w_fwdagent TYPE vttk-tdlnr,
        w_extid TYPE vttk-exti1.
  LOOP AT im_shipments_at_save-new_vttp INTO wa_vttp.
    SELECT SINGLE * FROM vbuk INTO wa_vbuk
               WHERE vbeln = wa_vttp-vbeln
                 AND wbstk = 'C'.
    IF sy-subrc NE 0.
      READ TABLE im_shipments_at_save-new_vttk INTO wa_vttk
                              WITH KEY tknum = wa_vttp-tknum.
      IF sy-subrc = 0 AND ( wa_vttk-stabf = 'X' OR
                            WA_VTTK-STDIS = 'X' OR
                            WA_VTTK-STREG = 'X').
        cha_shipments_at_save-old_vttk[] =
                        im_shipments_at_save-old_vttk[].
        cha_shipments_at_save-new_vttk[] =
                        im_shipments_at_save-new_vttk[].
        READ TABLE cha_shipments_at_save-new_vttk
        INTO wa_vttk INDEX 1.
        IF sy-subrc EQ 0.
          CLEAR: wa_vttk-stabf,
                 wa_vttk-uzabf,
                 wa_vttk-dtabf.
          MODIFY cha_shipments_at_save-new_vttk
                        FROM wa_vttk INDEX sy-tabix.
          RAISE error_with_message.
        ENDIF.
      ENDIF.
    ENDIF.
  ENDLOOP.
  CLEAR wa_vttk.
  READ TABLE cha_shipments_at_save-new_vttk
                INTO wa_vttk INDEX 1.
  IF sy-subrc EQ 0.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        input  = w_fwdagent
      IMPORTING
        output = w_fwdagent.
    IF NOT w_extid IS INITIAL.
      wa_vttk-exti1 = w_extid.
      CLEAR w_extid.
    ENDIF.
      MODIFY cha_shipments_at_save-new_vttk
                FROM wa_vttk INDEX 1.
  ENDIF.