BAPI_MATERIAL_SAVEDATA demo program

最新推荐文章于 2025-01-31 18:35:46 发布

ultraluck

最新推荐文章于 2025-01-31 18:35:46 发布

阅读量1.1k

点赞数

CC 4.0 BY-SA版权

文章标签： upload file function report header table

本文链接：https://blog.youkuaiyun.com/ultraluck/article/details/3075950

Demo program for creating a material using the BAPI BAPI_MATERIAL_SAVEDATA

By Venkateswara Rao Appikonda, Intelligroup

REPORT  Ztests.

* Published at SAPTechnical.COM

*---tables used
tables:bapimathead,
       bapi_makt,
       bapi_mara,
       bapi_marax.

*--declaration for internal table

data:begin of itab occurs 0,
      MATERIAL type BAPIMATHEAD-MATERIAL,
      IND_SECTOR(20),
      MATL_TYPE type bapimathead-MATL_TYPE,
      MATL_GROUP type bapi_mara-MATL_GROUP,
      LANGU TYPE BAPI_MAKT-LANGU,
      MATL_DESC TYPE BAPI_MAKT-MATL_DESC,
     end of itab,

    it_return like BAPIRET2,

    IT_BAPI LIKE BAPI_MAKT OCCURS 0 WITH HEADER LINE.

*---selection screen
parameters:p_file TYPE IBIPPARMS-PATH obligatory.

*---f4 help 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 .

loop at itab.

BAPIMATHEAD-material = itab-MATERIAL.
bapimathead-IND_SECTOR = itab-IND_SECTOR.
BAPIMATHEAD-MATL_TYPE = itab-MATL_TYPE.
BAPIMATHEAD-BASIC_VIEW = 'X'.

bapi_mara-MATL_GROUP = itab-MATL_GROUP.
bapi_mara-base_uom = 'KGS'.
bapi_marax-MATL_GROUP = 'X'.
bapi_marax-BASE_UOM = 'X'.

IT_BAPI-LANGU = ITAB-LANGU.
IT_BAPI-LANGU_ISO = 'EN'.
IT_BAPI-MATL_DESC = ITAB-MATL_DESC.
APPEND IT_BAPI.
clear it_bapi.

CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'
  EXPORTING
    headdata                  = BAPIMATHEAD
   CLIENTDATA                 = bapi_mara
   CLIENTDATAX                = bapi_marax
   IMPORTING
   RETURN                     = it_RETURN
 TABLES
   MATERIALDESCRIPTION        = IT_BAPI .

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'  .

*---this is the message type which indicates whether it is failed or succeded
write:/ it_return-TYPE.

endloop.

endform.                    " call_bapi

Here is the test file used for creating the materials in the above program:

000000000011111111 T RFRM 001 EN this is test material

000000000011111112 T RFRM 001 EN this is test material

000000000011111113 T RFRM 001 EN this is test material

000000000011111114 T RFRM 001 EN this is test material

000000000011111115 T RFRM 001 EN this is test material

000000000011111116 T RFRM 001 EN this is test material

000000000011111117 T RFRM 001 EN this is test material