Material Master Bapi

*&---------------------------------------------------------------------*
*& Report ZMM01_BAPI
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Report ZTEST1
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZMM01_BAPI.
TYPES: BEGIN OF ty_text,
text(250),
END OF ty_text.
DATA:it_text TYPE TABLE OF ty_text WITH HEADER LINE.
* M ROH E testing 3100000roh KGS Z017 123456 1000 111 0000 PD 031 EX 2000 F 45 3 000 1000 * M HALB E testing 3100000halb KGS Z017 123456 1000 111 0000 PD 031 EX 2000 F 45 3 000 1000 * M IBAU E testing 3100000IBAU KGS Z017 123456 1000 111 0000 PD 031 EX 2000 F 45 3 000 1000 * Tables Used
*---------------------------------------------------------------------------------------------------
TABLES:
bapimathead,
bapi_makt, " Material Description
bapi_mara, " Client Data
bapi_marax, " CheckBox
bapi_marc, " Plant View
bapi_marcx, " CheckBox
bapi_mbew, " Accounting View
bapi_mbewx, " CheckBox
bapi_mard, " Storage View
bapi_mardx. " CheckBox
*---------------------------------------------------------------------------------------------------
* Declaration for Internal Table
*---------------------------------------------------------------------------------------------------
DATA:BEGIN OF itab OCCURS 0,
* Header
material TYPE bapimathead-material, " Material Number
ind_sector(20), " Industry Sector
matl_type TYPE bapimathead-matl_type, " Material Type
* Basic View
langu TYPE bapi_makt-langu, " Language Code
matl_desc TYPE bapi_makt-matl_desc, " Material Description
base_uom TYPE bapi_mara-base_uom, " Base Unit of Measure
matl_group TYPE bapi_mara-matl_group, " Material Group
old_mat_no TYPE bapi_mara-old_mat_no, " Old Material Number
* Plant - Purchase - MRP View
plant TYPE bapi_marc-plant, " Plant
pur_group TYPE bapi_marc-pur_group, " Purchasing Group (Buyer)
mrp_group TYPE bapi_marc-mrp_group, " MRP group
mrp_type TYPE bapi_marc-mrp_type, " MRP type
mrp_ctrler TYPE bapi_marc-mrp_ctrler, " MRP controller
lotsizekey TYPE bapi_marc-lotsizekey, " Lot size
minlotsize TYPE bapi_marc-minlotsize, " Minimum Lot-size
proc_type TYPE bapi_marc-proc_type, " Procurement type
plnd_delry TYPE bapi_marc-plnd_delry, " Planned Delivery Time
gr_pr_time TYPE bapi_marc-gr_pr_time, " GR Processing Time
sm_key TYPE bapi_marc-sm_key, " Scheduling Margin Key
safety_stk TYPE bapi_marc-safety_stk, " Safety Stock
plan_strgp TYPE bapi_marc-plan_strgp, " Strategy Group
consummode TYPE bapi_marc-consummode, " Cosumption Mode
bwd_cons TYPE bapi_marc-bwd_cons, " Backward Consumption Period
fwd_cons TYPE bapi_marc-fwd_cons, " Forward Consumption Period
availcheck TYPE bapi_marc-availcheck, " Availability check
batch_mgmt TYPE bapi_marc-batch_mgmt, " Batch management requirement indicator
* profit_ctr TYPE bapi_marc-profit_ctr,
* no_costing TYPE bapi_marc-no_costing,
* Storage
stge_loc TYPE bapi_mard-stge_loc, " Storage Location
** Accounting and Costing
* val_cat TYPE bapi_mbew-val_cat,
* val_class TYPE bapi_mbew-val_class,
* price_ctrl TYPE bapi_mbew-price_ctrl,
* moving_pr TYPE bapi_mbew-moving_pr,
* price_unit TYPE bapi_mbew-price_unit,
* orig_mat TYPE bapi_mbew-orig_mat,
END OF itab,
it_return LIKE bapiret2 OCCURS 0 WITH HEADER LINE,
it_bapi LIKE bapi_makt OCCURS 0 WITH HEADER LINE,
it_mara LIKE bapi_mara OCCURS 0 WITH HEADER LINE,
it_marc LIKE bapi_marc OCCURS 0 WITH HEADER LINE,
it_mard LIKE bapi_mard OCCURS 0 WITH HEADER LINE,
it_mbew LIKE bapi_mbew OCCURS 0 WITH HEADER LINE.
*---------------------------------------------------------------------------------------------------
* Selection Screen
*---------------------------------------------------------------------------------------------------
PARAMETERS:p_file TYPE ibipparms-path OBLIGATORY DEFAULT 'C:UsersSAPDesktopZmm01_bapi without acc n *---------------------------------------------------------------------------------------------------
* F4 hHelp For the File From PC
*---------------------------------------------------------------------------------------------------
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
PERFORM get_f4help.
*---------------------------------------------------------------------------------------------------
* START-OF-SELECTION .
*---------------------------------------------------------------------------------------------------
START-OF-SELECTION.
PERFORM upload_file_itab.
PERFORM call_bapi.
*&---------------------------------------------------------------------*
*& Form get_f4help
*&---------------------------------------------------------------------*
FORM get_f4help .
CALL FUNCTION 'F4_FILENAME'
EXPORTING
program_name = syst-cprog
dynpro_number = syst-dynnr
IMPORTING
file_name = p_file.
ENDFORM. " get_f4help
*&---------------------------------------------------------------------*
*& Form upload_file_itab
*&---------------------------------------------------------------------*
FORM upload_file_itab .
DATA:v_file TYPE string.
MOVE p_file TO v_file.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = v_file
filetype = 'ASC'
has_field_separator = 'X'
TABLES
data_tab = itab.
ENDFORM. " upload_file_itab
*&---------------------------------------------------------------------*
*& Form call_bapi
*&---------------------------------------------------------------------*
FORM call_bapi .
*&---------------------------------------------------------------------*
*& Create MATNR
*&---------------------------------------------------------------------*
DATA: ibapimatinr LIKE STANDARD TABLE OF bapimatinr WITH HEADER LINE,
it_return1 LIKE STANDARD TABLE OF bapireturn1 WITH HEADER LINE.
DATA:p_matype LIKE bapimatdoa-matl_type,
p_indsr LIKE bapimatdoa-ind_sector.
LOOP AT itab.
p_matype = itab-matl_type.
p_indsr = itab-ind_sector.
REFRESH: ibapimatinr.
CALL FUNCTION 'BAPI_MATERIAL_GETINTNUMBER'
EXPORTING
material_type = p_matype "'ROH'
industry_sector = p_indsr "'M'
required_numbers = 1
IMPORTING
return = it_return1
TABLES
material_number = ibapimatinr.
READ TABLE ibapimatinr INDEX 1.
*&---------------------------------------------------------------------*
* CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
* EXPORTING
* input = itab-material
* IMPORTING
* output = itab-material.
* Header
bapimathead-material = ibapimatinr-material.
bapimathead-ind_sector = p_indsr.
bapimathead-matl_type = p_matype.
** bapimathead-material = itab-material.
** bapimathead-ind_sector = itab-ind_sector.
** bapimathead-matl_type = itab-matl_type.
*
bapimathead-basic_view = 'X'.
bapimathead-purchase_view = 'X'.
bapimathead-mrp_view = 'X'.
bapimathead-storage_view = 'X'.
** bapimathead-quality_view = 'X'.
** bapimathead-account_view = 'X'.
** bapimathead-cost_view = 'X'.
*
* Basic View
it_bapi-langu = itab-langu.
it_bapi-langu_iso = 'EN'.
it_bapi-matl_desc = itab-matl_desc.
bapi_mara-base_uom = itab-base_uom.
bapi_mara-matl_group = itab-matl_group.
bapi_mara-old_mat_no = itab-old_mat_no.
bapi_marax-matl_group = 'X'.
bapi_marax-base_uom = 'X'.
bapi_marax-old_mat_no = 'X'.
*
* Plant - Purchase - Storage View
bapi_marc-plant = itab-plant.
bapi_marc-pur_group = itab-pur_group.
bapi_marc-mrp_group = itab-mrp_group.
bapi_marc-mrp_type = itab-mrp_type.
bapi_marc-mrp_ctrler = itab-mrp_ctrler.
bapi_marc-lotsizekey = itab-lotsizekey.
bapi_marc-minlotsize = itab-minlotsize.
bapi_marc-proc_type = itab-proc_type.
bapi_marc-plnd_delry = itab-plnd_delry.
bapi_marc-gr_pr_time = itab-gr_pr_time.
bapi_marc-sm_key = itab-sm_key.
bapi_marc-safety_stk = itab-safety_stk.
bapi_marc-plan_strgp = itab-plan_strgp.
bapi_marc-consummode = itab-consummode.
bapi_marc-bwd_cons = itab-bwd_cons.
bapi_marc-fwd_cons = itab-fwd_cons.
bapi_marc-availcheck = itab-availcheck.
bapi_marc-batch_mgmt = itab-batch_mgmt.
** bapi_marc-profit_ctr = itab-profit_ctr.
** bapi_marc-no_costing = itab-no_costing.
*
bapi_marcx-plant = itab-plant.
bapi_marcx-pur_group = 'X'.
bapi_marcx-mrp_group = 'X'.
bapi_marcx-mrp_type = 'X'.
bapi_marcx-mrp_ctrler = 'X'.
bapi_marcx-lotsizekey = 'X'.
bapi_marcx-minlotsize = 'X'.
bapi_marcx-proc_type = 'X'.
bapi_marcx-plnd_delry = 'X'.
bapi_marcx-gr_pr_time = 'X'.
bapi_marcx-sm_key = 'X'.
bapi_marcx-safety_stk = 'X'.
bapi_marcx-plan_strgp = 'X'.
bapi_marcx-consummode = 'X'.
bapi_marcx-bwd_cons = 'X'.
bapi_marcx-fwd_cons = 'X'.
bapi_marcx-availcheck = 'X'.
bapi_marcx-batch_mgmt = 'X'.
** bapi_marcx-profit_ctr = 'X'.
** bapi_marcx-no_costing = 'X' .
*
* Storage Location
bapi_mard-plant = itab-plant.
bapi_mard-stge_loc = itab-stge_loc.
bapi_mardx-plant = itab-plant.
bapi_mardx-stge_loc = itab-stge_loc.
* Accounting and Costing
* bapi_mbew-val_cat = itab-val_cat.
* bapi_mbew-val_class = itab-val_class.
* bapi_mbew-price_ctrl = itab-price_ctrl.
* bapi_mbew-moving_pr = itab-moving_pr.
* bapi_mbew-price_unit = itab-price_unit.
* bapi_mbew-orig_mat = itab-orig_mat.
*
*
* bapi_mbewx-val_cat = 'X'.
* bapi_mbewx-val_class = 'X'.
* bapi_mbewx-price_ctrl = 'X'.
* bapi_mbewx-moving_pr = 'X'.
* bapi_mbewx-price_unit = 'X' .
* bapi_mbewx-orig_mat = 'X'.
APPEND it_bapi.
* APPEND it_mara.
* APPEND it_marc.
* APPEND it_mard.
* APPEND it_mbew.
CLEAR it_bapi.
CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'
EXPORTING
headdata = bapimathead
clientdata = bapi_mara
clientdatax = bapi_marax
plantdata = bapi_marc
plantdatax = bapi_marcx
storagelocationdata = bapi_mard
storagelocationdatax = bapi_mardx
* valuationdata = bapi_mbew
* valuationdatax = bapi_mbewx
IMPORTING
return = it_return
TABLES
materialdescription = it_bapi.
IF it_return-type = 'E' OR it_return-type = 'A' .
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
WRITE:/ ibapimatinr-material, p_matype, p_indsr , itab-matl_desc , 'is not created' COLOR 6.
* INCLUDE zmm_mm01_ftp_sel.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
IF sy-subrc EQ 0.
WRITE:/ ibapimatinr-material , p_matype , p_indsr , itab-matl_desc , 'is created' COLOR 5.
* WRITE:/ itab-material, 'is created' COLOR 5.
ENDIF.
ENDIF.
CLEAR: ibapimatinr,
p_indsr,
p_matype.
ENDLOOP.
* CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' .
**---this is the message type which indicates whether it is failed or succeded
* IF it_return-type = 'E'.
* WRITE:/ 'Error:' ,it_return-message ,'for material:' ,itab-material.
* ELSEIF it_return-type = 'S'.
* WRITE: 'Successfully created material' ,itab-material.
* ENDIF.
ENDFORM. " call_bapi