Scribd
Upload
52 views3 pages

Bapi - Good Movement Create

bapi

Uploaded by

Gjkk
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
52 views3 pages

Bapi - Good Movement Create

bapi

Uploaded by

Gjkk
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 3

BAPI GOODS MOVEMENT

*& *
*& Report ZMM_GOODSISSUE_UPLOAD
*& *
*&
*& *SS
REPORT ZMM_GOODSISSUE_UPLOAD.

TYPES : BEGIN OF ty_struct,


DOC_DATE TYPE string,
PSTNG_DATE TYPE string,
GR_GI_SLIP_NO TYPE string,
MATERIAL TYPE string,
ENTRY_QNT type string,
PLANT type string ,
STGE_LOC TYPE string,
GR_RCPT TYPE string,
COSTCENTER type string ,
MVT_TYPE TYPE STRING,

END OF TY_STRUCT .

data: it_struct TYPE TABLE OF ty_struct INITIAL SIZE 0,


wa_struct type ty_struct .

DATA : MTHEAD TYPE BAPI2017_GM_HEAD_RET,


LV_YEAR TYPE BAPI2017_GM_HEAD_RET-doc_year,
LV_DOC TYPE BAPI2017_GM_HEAD_RET-mat_doc.

CONSTANTS: C_GMCODE TYPE BAPI2017_GM_CODE VALUE '01'.

data: it_GOODSMVT_ITEM TYPE TABLE OF BAPI2017_GM_ITEM_CREATE,


wa_GOODSMVT_ITEM TYPE BAPI2017_GM_ITEM_CREATE.

data : wa_GOODSMVT_HEADER type BAPI2017_GM_HEAD_01 .

DATA : it_return LIKE bapiret2 OCCURS 0 WITH HEADER LINE,


wa_return TYPE bapiret2.

DATA : w_rawdata TYPE truxs_t_text_data,


w_fname TYPE string.
*& *
*& Selection Screen Declarations
*& *
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-b01.
PARAMETERS : p_fname TYPE rlgrap-filename,
p_header TYPE i DEFAULT 1.
SELECTION-SCREEN : END OF BLOCK b1.

***********************************************F4 Help ******************

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fname.

CALL FUNCTION 'KD_GET_FILENAME_ON_F4'


EXPORTING
program_name = sy-repid
CHANGING
file_name = p_fname.

START-OF-SELECTION .

w_fname = p_fname.

CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'


EXPORTING
* I_FIELD_SEPERATOR =
* I_LINE_HEADER = 'X'
i_tab_raw_data = w_rawdata
i_filename = p_fname
TABLES
i_tab_converted_data = it_struct[].

DO p_header TIMES.
DELETE it_struct INDEX 1.
ENDDO.

IF it_struct[] IS NOT INITIAL.

LOOP AT it_struct into wa_struct .

CONCATENATE wa_struct-doc_date+6(4) wa_struct-doc_date+3(2) wa_struct-


doc_date+0(2) into wa_goodsmvt_header-doc_date .

CONCATENATE wa_struct-pstng_date+6(4) wa_struct-


pstng_date+3(2) wa_struct-pstng_date+0(2) into wa_goodsmvt_header-
PSTNG_DATE .

"wa_goodsmvt_header-doc_date = wa_struct-doc_date.
" wa_goodsmvt_header-pstng_date = wa_struct-pstng_date.
wa_goodsmvt_header-gr_gi_slip_no = wa_struct-gr_gi_slip_no.
wa_goodsmvt_item-material = wa_struct-material.
wa_goodsmvt_item-ENTRY_QNT = wa_struct-ENTRY_QNT.
wa_goodsmvt_item-plant = wa_struct-plant .
wa_goodsmvt_item-STGE_LOC = wa_struct-stge_loc.
wa_goodsmvt_item-gr_rcpt = wa_struct-gr_rcpt.
wa_goodsmvt_item-costcenter = wa_struct-costcenter.
wa_goodsmvt_ITEM-mvt_ind = 'B'.
wa_goodsmvt_item-move_type = '201' .

append wa_goodsmvt_item to it_goodsmvt_item .


clear : wa_goodsmvt_item.

CALL FUNCTION 'BAPI_GOODSMVT_CREATE'


EXPORTING
goodsmvt_header = wa_goodsmvt_header
goodsmvt_code = C_GMCODE
* TESTRUN = ' '
* GOODSMVT_REF_EWM =
* GOODSMVT_PRINT_CTRL =
IMPORTING
GOODSMVT_HEADRET = MTHEAD
MATERIALDOCUMENT = LV_DOC
MATDOCUMENTYEAR = LV_YEAR
TABLES
goodsmvt_item = it_goodsmvt_item
* GOODSMVT_SERIALNUMBER =
return = it_return
* GOODSMVT_SERV_PART_DATA =
* EXTENSIONIN =
* GOODSMVT_ITEM_CWM =
.
REFRESH : it_goodsmvt_item .

ENDLOOP.

ENDIF.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'


EXPORTING
wait = 'X'
IMPORTING
return = it_return.

LOOP AT it_return.
WRITE / it_return-message.
ENDLOOP.

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy