DATA: lwa_bapihead TYPE bapimathead,
lwa_mara TYPE bapi_mara,
lwa_marax TYPE bapi_marax,
lit_return TYPE bapiret2,
lit_makt TYPE TABLE OF bapi_makt WITH HEADER LINE,
lit_mltx TYPE TABLE OF bapi_mltx WITH HEADER LINE.
SELECTION-SCREEN BEGIN OF BLOCK main1 WITH FRAME TITLE text-001
NO INTERVALS.
PARAMETERS : p_matnr TYPE mara-matnr,
p_mtart TYPE mara-mtart.
* p_lgort TYPE mara-lgort.
SELECTION-SCREEN PUSHBUTTON /47(8) text-002 USER-COMMAND button1.
SELECTION-SCREEN END OF BLOCK main1.
AT SELECTION-SCREEN.
CASE sy-ucomm.
WHEN 'BUTTON1'.
PERFORM fill_data.
PERFORM get_data.
ENDCASE.
*&---------------------------------------------------------------------*
*& Form fill_data
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM fill_data.
lwa_bapihead-material = p_matnr.
lwa_bapihead-matl_type = p_mtart.
lwa_bapihead-basic_view = 'X'.
lwa_mara-base_uom = 'KGS'.
lwa_mara-matl_group = '00104'.
lwa_marax-matl_group = 'X'.
lwa_marax-base_uom = 'X'.
lit_makt-langu = '001'.
lit_makt-langu_iso = 'EN'.
lit_makt-matl_desc = ' This is created by using BAPI yeah !! '.
APPEND lit_makt.
lit_mltx-applobject = 'MATERIAL'.
lit_mltx-text_name = lwa_bapihead-material.
lit_mltx-text_id = 'GRUN'.
lit_mltx-langu ='001'.
lit_mltx-langu_iso = 'EN'.
lit_mltx-text_line =' This is 1st line'.
APPEND lit_mltx.
lit_mltx-applobject = 'MATERIAL'.
lit_mltx-text_name = lwa_bapihead-material.
lit_mltx-text_id = 'GRUN'.
lit_mltx-langu ='001'.
lit_mltx-langu_iso = 'EN'.
lit_mltx-text_line =' This is 2st line'.
APPEND lit_mltx.
ENDFORM. "fill_data
*&---------------------------------------------------------------------*
*& Form get_data
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM get_data .
CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'
EXPORTING
headdata = lwa_bapihead
clientdata = lwa_mara
clientdatax = lwa_marax
* PLANTDATA =
* PLANTDATAX =
* FORECASTPARAMETERS =
* FORECASTPARAMETERSX =
* PLANNINGDATA =
* PLANNINGDATAX =
* STORAGELOCATIONDATA =
* STORAGELOCATIONDATAX =
* VALUATIONDATA =
* VALUATIONDATAX =
* WAREHOUSENUMBERDATA =
* WAREHOUSENUMBERDATAX =
* SALESDATA =
* SALESDATAX =
* STORAGETYPEDATA =
* STORAGETYPEDATAX =
* FLAG_ONLINE = ' '
* FLAG_CAD_CALL = ' '
* NO_DEQUEUE = ' '
* NO_ROLLBACK_WORK = ' '
IMPORTING
return = lit_return
TABLES
materialdescription = lit_makt
materiallongtext = lit_mltx
.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
* EXPORTING
* WAIT =
* IMPORTING
* RETURN =
.
WRITE:/ lit_return-type.
MESSAGE 'Kayıt başarlı' TYPE 'S'.
ENDFORM. "modify_0105