Hello Friends,
I have created an application for equipment master...for create details...i m calling Bapi.....the following code for action event :
method ONACTIONB_CREATE .
data lv_bapi_itob type BAPI_ITOB.
data lv_BAPI_ITOB_EQ_ONLY type BAPI_ITOB_EQ_ONLY.
data lv_BAPI_ITOB_PARMS type BAPI_ITOB_PARMS-EQUIPMENT.
data lv_BAPI_FLEET type BAPI_FLEET.
data lv_BAPI_ITOB_EQ_INSTALL type BAPI_ITOB_EQ_INSTALL.
CALL FUNCTION 'BAPI_EQUI_CREATE'
EXPORTING
EXTERNAL_NUMBER = lv_BAPI_ITOB_PARMS
DATA_GENERAL = lv_BAPI_ITOB
DATA_SPECIFIC = lv_BAPI_ITOB_EQ_ONLY
DATA_FLEET = lv_BAPI_FLEET
VALID_DATE = SY-DATUM
DATA_INSTALL = lv_BAPI_ITOB_EQ_INSTALL .
IMPORTING
EQUIPMENT =
DATA_GENERAL_EXP =
DATA_SPECIFIC_EXP =
DATA_FLEET_EXP =
RETURN =
.
*---bapi
data: return type standard table of bapiret2.
data: ls_return type bapiret2.
DATA lo_nd_bapi_equip_display TYPE REF TO if_wd_context_node.
DATA lo_el_bapi_equip_display TYPE REF TO if_wd_context_element.
DATA ls_bapi_equip_display TYPE wd_this->Element_bapi_equip_display.
navigate from <CONTEXT> to <BAPI_EQUIP_DISPLAY> via lead selection
lo_nd_bapi_equip_display = wd_context->get_child_node( name = wd_this->wdctx_bapi_equip_display ).
@TODO handle non existant child
IF lo_nd_bapi_equip_display IS INITIAL.
ENDIF.
get element via lead selection
lo_el_bapi_equip_display = lo_nd_bapi_equip_display->get_element( ).
@TODO handle not set lead selection
IF lo_el_bapi_equip_display IS INITIAL.
ENDIF.
get all declared attributes
lo_el_bapi_equip_display->get_static_attributes(
IMPORTING
static_attributes = ls_bapi_equip_display ).
read table return into ls_return with key type = 'E'.
IF sy-subrc = 0.
else.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT =
IMPORTING
RETURN = ls_RETURN .
endif.
endmethod.
Pls help.
Thanks
Kiran