error in bapi

[Former Member]

hi mates,

im using bapi_goodsmvt_create in my prog. for transfer posting(mb1b). the following error msg is displayed wen i run my prog.

Qty and / or "delivery completed" ind. or final issue ind. are missing

wat is that im missing here?

regards

mano

[Former Member]

Did you checked those fields?

Are you filling them?

[Sm1tje]

The quantity or one (or two) of your indicators are missing.

delivery completed" indicator

final issue indicator.

These are (probably) fields in the one of your BAPI interface parameters.

[Former Member]

HI Manoj,

see the following code

&----

---

*& Report Zchaitu_po_update

*&

&----

---

*&

*&

&----

---

REPORT zchaitu_po_update.

TABLES: lfa1,

ekko,

ekpo.

TYPES: BEGIN OF ty_lfa1,

zterm TYPE lfb1-zterm,

adrnr TYPE lfa1-adrnr,

pstlz TYPE lfa1-pstlz,

otr01 TYPE lfa1-ort01,

land1 TYPE lfa1-land1,

telf1 TYPE lfa1-telf1,

telfx TYPE lfa1-telfx,

stcd1 TYPE lfa1-stcd1,

name1 TYPE lfa1-name1,

inco1 TYPE ekpo-inco1,

txjcd TYPE ekpo-txjcd,

END OF ty_lfa1.

TYPES: BEGIN OF ty_ekko_ekpo,

ebeln TYPE ekko-ebeln,

ebelp TYPE ekpo-ebelp,

END OF ty_ekko_ekpo.

*TYPES: BEGIN OF TY_REC,

• DOC_TYPE TYPE BAPIMEPOHEADER-DOC_TYPE, "BSART

• VENDOR TYPE BAPIMEPOHEADER-VENDOR, "LIFNR

• PURCH_ORG TYPE BAPIMEPOHEADER-PURCH_ORG, "EKORG

• PO_NUMBER TYPE BAPIMEPOHEADER-PO_NUMBER, "EBELN

• PUR_GROUP TYPE BAPIMEPOHEADER-PUR_GROUP, "EKGRP

• COMP_CODE TYPE BAPIMEPOHEADER-COMP_CODE, "BUKRS

• PO_ITEM TYPE BAPIMEPOITEM-PO_ITEM, "EBELP

• ACCTASSCAT TYPE BAPIMEPOITEM-ACCTASSCAT, "KNTTP

• MATERIAL TYPE BAPIMEPOITEM-MATERIAL, "MATNR

• QUANTITY TYPE BAPIMEPOITEM-QUANTITY, "MENGE

• PO_UNIT TYPE BAPIMEPOITEM-PO_UNIT, "MEINS

• NET_PRICE TYPE BAPIMEPOITEM-NET_PRICE, "NETPR

• SHORT_TEXT TYPE BAPIMEPOITEM-SHORT_TEXT, "TXZ01

• GL_ACCOUNT TYPE BAPIMEPOACCOUNT-GL_ACCOUNT, "SAKTO

• COSTCENTER TYPE BAPIMEPOACCOUNT-COSTCENTER, "KOSTL

• DELIVERY_DATE TYPE BAPIMEPOSCHEDULE-DELIVERY_DATE, "EINDT

• PLANT TYPE BAPIMEPOITEM-PLANT, "WERKS

• INT_OBJ_NO TYPE BAPIMEPOITEM-INT_OBJ_NO, "EAN11

• REF_1 TYPE BAPIMEPOHEADER-REF_1, "IHREZ

• BWART TYPE BAPI2017_GM_ITEM_CREATE-MOVE_TYPE, "BWART

• END OF TY_REC.

TYPES: BEGIN OF ty_rec,

doc_type TYPE bapiekkoc-doc_type, "BSART

vendor TYPE bapiekkoc-vendor, "LIFNR

purch_org TYPE bapiekkoc-purch_org, "EKORG

po_number TYPE bapiekkoc-po_number, "EBELN

pur_group TYPE bapiekkoc-pur_group, "EKGRP

co_code TYPE bapiekkoc-co_code, "BUKRS

po_item TYPE bapiekpoc-po_item, "EBELP

acctasscat TYPE bapiekpoc-acctasscat, "KNTTP

material TYPE bapiekpoc-material, "MATNR

disp_quan TYPE bapiekpoc-disp_quan, "MENGE

unit TYPE bapiekpoc-unit, "MEINS

net_price TYPE bapiekpoc-net_price, "NETPR

short_text TYPE bapiekpoc-short_text, "TXZ01

g_l_acct TYPE bapiekkn-g_l_acct, "SAKTO

cost_ctr TYPE bapiekkn-cost_ctr, "KOSTL

deliv_date TYPE bapieket-deliv_date, "EINDT

plant TYPE bapiekpoc-plant, "WERKS

• INT_OBJ_NO TYPE BAPIEKPOC-INT_OBJ_NO, "EAN11

ref_1 TYPE bapiekkoa-ref_1, "IHREZ

bwart TYPE bapi2017_gm_item_create-move_type, "BWART

END OF ty_rec.

*TYPES:

DATA: it_bapiekkoc TYPE TABLE OF bapiekkoc,

w_bapiekkoc TYPE bapiekkoc.

DATA: it_bapiekpoc TYPE TABLE OF bapiekpoc,

w_bapiekpoc TYPE bapiekpoc.

DATA: it_bapiekkn TYPE TABLE OF bapiekkn,

w_bapiekkn TYPE bapiekkn.

DATA: it_bapieket TYPE TABLE OF bapieket,

w_bapieket TYPE bapieket.

DATA: it_bapireturn TYPE TABLE OF bapireturn,

w_bapireturn TYPE bapireturn.

DATA: it_bapiekkoa TYPE TABLE OF bapiekkoa,

w_bapiekkoa TYPE bapiekkoa.

DATA: p1_file TYPE string,

w_purchaseorder TYPE bapimepoheader-po_number.

DATA: it_lfa1 TYPE TABLE OF ty_lfa1.

DATA: it_ekko_ekpo TYPE TABLE OF ty_ekko_ekpo,

w_ekko_ekpo TYPE ty_ekko_ekpo.

DATA: it_rec TYPE ty_rec OCCURS 0 WITH HEADER LINE,

w_rec TYPE ty_rec,

it_error TYPE TABLE OF ty_rec,

w_error TYPE ty_rec.

DATA: it_bapimepoheader TYPE TABLE OF bapimepoheader, "PO HEADER DATA

w_bapimepoheader TYPE bapimepoheader.

DATA: it_bapimepoheaderx TYPE TABLE OF bapimepoheaderx, "Header Data (Change Toolbar)

w_bapimepoheaderx TYPE bapimepoheaderx.

DATA: it_bapimepoaddrvendor TYPE TABLE OF bapimepoaddrvendor, "ADDRESS OF VENDOR

w_bapimepoaddrvendor TYPE bapimepoaddrvendor.

DATA: it_bapimepoitem TYPE TABLE OF bapimepoitem, "Item Data

w_bapimepoitem TYPE bapimepoitem.

DATA: it_bapiret2 TYPE TABLE OF bapiret2, "RETURN PARAMETER

w_bapiret2 TYPE bapiret2.

DATA: it_bapimepoaccount TYPE TABLE OF bapimepoaccount, "Account Assignment Fields

w_bapimepoaccount TYPE bapimepoaccount.

DATA: it_bapimeposchedule TYPE TABLE OF bapimeposchedule, "Delivery Schedule

w_bapimeposchedule TYPE bapimeposchedule.

DATA: w_gm_head TYPE bapi2017_gm_head_01,

i_gm_item TYPE TABLE OF bapi2017_gm_item_create,

w_gm_item TYPE bapi2017_gm_item_create,

i_return TYPE TABLE OF bapiret2.

DATA: c_mvind(1) TYPE c.

DATA: v_matdoc TYPE bapi2017_gm_head_ret-mat_doc.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

PARAMETERS: p_file TYPE rlgrap-filename OBLIGATORY.

SELECTION-SCREEN END OF BLOCK b1.

• F4 Functionality for data file to upload

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

PERFORM f4_file USING p_file.

START-OF-SELECTION.

PERFORM upload_file USING p_file.

SELECT a_{adrnr a}pstl2

a_{ort01 a}land1

a_{telf1 a}telfx

a_{stcd1 a}name1

b_{inco1 b}txjcd

INTO TABLE it_lfa1

FROM lfa1 AS a

INNER JOIN ekpo AS b

ON a_{lifnr = b}emlif.

*SELECT ADRNR PSTL2

• OTR01 LAND1

• TELF1 TELFX

• STCD1 NAME1

• B_{INCO1 B}TXJCD

• INTO TABLE IT_LFA1

• FROM LFA1 .

*

• loop at it_lfa1.

• read table it_ekpo withe key lifnr = it_ekpo-emlif.

• read table it_lfb1 with key lifnr = it_lfb1-lifnr.

• endloop.

SELECT a_{ebeln b}ebelp

INTO TABLE it_ekko_ekpo

FROM ekko AS a

INNER JOIN ekpo AS b

ON a_{ebeln = b}ebeln

FOR ALL ENTRIES IN it_rec

WHERE a~ebeln = it_rec-po_number AND

b~ebelp = it_rec-po_item.

• SELECT EBELN

• FROM EKKO

• INTO TABLE IT-EKKO

• WHERE EBELN = W_REC-PO_NUMBER.

LOOP AT it_rec INTO w_rec.

READ TABLE it_ekko_ekpo INTO w_ekko_ekpo WITH KEY ebeln = w_rec-po_number

ebelp = w_rec-po_item.

IF sy-subrc = 0.

PERFORM update_po.

ELSE.

CLEAR w_ekko_ekpo.

READ TABLE it_ekko_ekpo INTO w_ekko_ekpo WITH KEY ebeln = w_rec-po_number.

IF sy-subrc = 0.

PERFORM update_po.

ELSE.

PERFORM create_po.

ENDIF.

ENDIF.

ENDLOOP.

&----

---

*& Form UPDATE_PO

&----

---

• text

----

---

FORM update_po.

• W_BAPIMEPOHEADER-DOC_TYPE = W_REC-DOC_TYPE.

• W_BAPIMEPOHEADER-VENDOR = W_REC-VENDOR.

• W_BAPIMEPOHEADER-PURCH_ORG = W_REC-PURCH_ORG.

• W_BAPIMEPOHEADER-PO_NUMBER = W_REC-PO_NUMBER.

• W_BAPIMEPOHEADER-PUR_GROUP = W_REC-PUR_GROUP.

• W_BAPIMEPOHEADER-COMP_CODE = W_REC-COMP_CODE.

• W_BAPIMEPOHEADER-REF_1 = W_REC-REF_1.

• APPEND W_BAPIMEPOHEADER TO IT_BAPIMEPOHEADER.

*

• W_BAPIMEPOITEM-PO_ITEM = W_REC-PO_ITEM.

• W_BAPIMEPOITEM-ACCTASSCAT = W_REC-ACCTASSCAT.

• W_BAPIMEPOITEM-MATERIAL = W_REC-MATERIAL.

• W_BAPIMEPOITEM-QUANTITY = W_REC-QUANTITY.

• W_BAPIMEPOITEM-PO_UNIT = W_REC-PO_UNIT.

• W_BAPIMEPOITEM-NET_PRICE = W_REC-NET_PRICE.

• W_BAPIMEPOITEM-SHORT_TEXT = W_REC-SHORT_TEXT.

• W_BAPIMEPOITEM-PLANT = W_REC-PLANT.

• W_BAPIMEPOITEM-INT_OBJ_NO = W_REC-INT_OBJ_NO.

• APPEND W_BAPIMEPOITEM TO IT_BAPIMEPOITEM.

*

• W_BAPIMEPOACCOUNT-GL_ACCOUNT = W_REC-GL_ACCOUNT.

• W_BAPIMEPOACCOUNT-COSTCENTER = W_REC-COSTCENTER.

• APPEND W_BAPIMEPOACCOUNT TO IT_BAPIMEPOACCOUNT.

*

• W_BAPIMEPOSCHEDULE-DELIVERY_DATE = W_REC-DELIVERY_DATE.

• APPEND W_BAPIMEPOSCHEDULE TO IT_BAPIMEPOSCHEDULE.

w_bapiekkoc-doc_type = w_rec-doc_type.

w_bapiekkoc-vendor = w_rec-vendor.

w_bapiekkoc-purch_org = w_rec-purch_org.

w_bapiekkoc-po_number = w_rec-po_number.

w_bapiekkoc-pur_group = w_rec-pur_group.

w_bapiekkoc-co_code = w_rec-co_code.

• W_BAPIEKKOC-REF_1 = W_REC-REF_1.

APPEND w_bapiekkoc TO it_bapiekkoc.

w_bapiekpoc-po_item = w_rec-po_item.

w_bapiekpoc-acctasscat = w_rec-acctasscat.

w_bapiekpoc-material = w_rec-material.

w_bapiekpoc-disp_quan = w_rec-disp_quan.

w_bapiekpoc-unit = w_rec-unit.

w_bapiekpoc-net_price = w_rec-net_price.

w_bapiekpoc-short_text = w_rec-short_text.

w_bapiekpoc-plant = w_rec-plant.

• W_BAPIEKPOC-INT_OBJ_NO = W_REC-INT_OBJ_NO.

APPEND w_bapiekpoc TO it_bapiekpoc.

w_bapiekkn-g_l_acct = w_rec-g_l_acct.

w_bapiekkn-cost_ctr = w_rec-cost_ctr.

APPEND w_bapiekkn TO it_bapiekkn.

w_bapieket-deliv_date = w_rec-deliv_date.

APPEND w_bapieket TO it_bapieket.

w_bapiekkoa-ref_1 = w_rec-ref_1.

APPEND w_bapiekkoa TO it_bapiekkoa.

CALL FUNCTION 'BAPI_PO_CHANGE'

EXPORTING

purchaseorder = w_purchaseorder

• POHEADER =

• POHEADERX =

• POADDRVENDOR =

• TESTRUN =

• MEMORY_UNCOMPLETE =

• MEMORY_COMPLETE =

• POEXPIMPHEADER =

• POEXPIMPHEADERX =

• VERSIONS =

• NO_MESSAGING =

• NO_MESSAGE_REQ =

• NO_AUTHORITY =

• NO_PRICE_FROM_PO =

• IMPORTING

• EXPHEADER =

• EXPPOEXPIMPHEADER =

• TABLES

• RETURN =

• POITEM =

• POITEMX =

• POADDRDELIVERY =

• POSCHEDULE =

• POSCHEDULEX =

• POACCOUNT =

• POACCOUNTPROFITSEGMENT =

• POACCOUNTX =

• POCONDHEADER =

• POCONDHEADERX =

• POCOND =

• POCONDX =

• POLIMITS =

• POCONTRACTLIMITS =

• POSERVICES =

• POSRVACCESSVALUES =

• POSERVICESTEXT =

• EXTENSIONIN =

• EXTENSIONOUT =

• POEXPIMPITEM =

• POEXPIMPITEMX =

• POTEXTHEADER =

• POTEXTITEM =

• ALLVERSIONS =

• POPARTNER =

.

IF sy-subrc = 0.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.

PERFORM create_gr.

ELSE.

READ TABLE it_bapiret2 TRANSPORTING NO FIELDS WITH KEY type = 'E'.

IF sy-subrc = 0.

APPEND w_rec TO it_error.

CLEAR w_rec.

ENDIF.

ENDIF.

• w_gm_item-material = w_rec-material.

*

• w_gm_item-plant = w_rec-plant.

*

• w_gm_item-move_type = w_rec-bwart.

*

• w_gm_item-mvt_ind = c_mvind.

*

• w_gm_item-entry_qnt = w_rec-disp_quan.

*

• w_gm_item-entry_uom = w_rec-unit.

*

• W_GM_ITEM-SCHED_LINE = W_GRTAB-SCHED_LINE. """"""""""""""""ON 07/12/2007

*

• w_gm_item-po_number = w_rec-po_number.

*

• w_gm_item-po_item = w_rec-po_item.

*

• APPEND w_gm_item TO i_gm_item.

*

*

*

• w_gm_head-pstng_date = sy-datum.

*

• w_gm_head-doc_date = sy-datum.

*

• w_gm_head-ref_doc_no = w_rec-po_number.

*

*

*

• CALL FUNCTION 'BAPI_GOODSMVT_CREATE'

• EXPORTING

• goodsmvt_header = w_gm_head

• goodsmvt_code = '01' "C_GMCODE

• IMPORTING

• materialdocument = v_matdoc

• TABLES

• goodsmvt_item = i_gm_item

• return = i_return.

ENDFORM. "UPDATE_PO

&----

---

*& Form F4_FILE

&----

---

• text

----

---

• -->P_P_FLTFIL text

----

---

*FORM F4_FILE USING P_P_FLTFIL.

FORM f4_file USING file TYPE rlgrap-filename.

• Function Module to Prompt the user for File-Selection

CALL FUNCTION 'F4_FILENAME'

EXPORTING

program_name = syst-cprog

dynpro_number = syst-dynnr

IMPORTING

file_name = file.

ENDFORM. "REQUEST_FILE

*ENDFORM. " F4_FILE

&----

---

*& Form UPLOAD_FILE

&----

---

• text

----

---

• -->P_P_FILE text

----

---

FORM upload_file USING p_p_file.

p1_file = p_file.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

filename = p1_file

• FILETYPE = 'ASC'

has_field_separator = 'X'

• HEADER_LENGTH = 0

• READ_BY_LINE = 'X'

• DAT_MODE = ' '

• CODEPAGE = ' '

• IGNORE_CERR = ABAP_TRUE

• REPLACEMENT = '#'

• CHECK_BOM = ' '

• VIRUS_SCAN_PROFILE =

• NO_AUTH_CHECK = ' '

• IMPORTING

• FILELENGTH =

• HEADER

TABLES

data_tab = it_rec

• EXCEPTIONS

• FILE_OPEN_ERROR = 1

• FILE_READ_ERROR = 2

• NO_BATCH = 3

• GUI_REFUSE_FILETRANSFER = 4

• INVALID_TYPE = 5

• NO_AUTHORITY = 6

• UNKNOWN_ERROR = 7

• BAD_DATA_FORMAT = 8

• HEADER_NOT_ALLOWED = 9

• SEPARATOR_NOT_ALLOWED = 10

• HEADER_TOO_LONG = 11

• UNKNOWN_DP_ERROR = 12

• ACCESS_DENIED = 13

• DP_OUT_OF_MEMORY = 14

• DISK_FULL = 15

• DP_TIMEOUT = 16

• OTHERS = 17

.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

SORT it_rec BY po_number po_item.

ENDFORM. " UPLOAD_FILE

&----

---

*& Form CREATE_PO

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM create_po .

w_bapiekkoc-doc_type = w_rec-doc_type.

w_bapiekkoc-vendor = w_rec-vendor.

w_bapiekkoc-purch_org = w_rec-purch_org.

w_bapiekkoc-po_number = w_rec-po_number.

w_bapiekkoc-pur_group = w_rec-pur_group.

w_bapiekkoc-co_code = w_rec-co_code.

• W_BAPIEKKOC-REF_1 = W_REC-REF_1.

APPEND w_bapiekkoc TO it_bapiekkoc.

w_bapiekpoc-po_item = w_rec-po_item.

w_bapiekpoc-acctasscat = w_rec-acctasscat.

w_bapiekpoc-material = w_rec-material.

w_bapiekpoc-disp_quan = w_rec-disp_quan.

w_bapiekpoc-unit = w_rec-unit.

w_bapiekpoc-net_price = w_rec-net_price.

w_bapiekpoc-short_text = w_rec-short_text.

w_bapiekpoc-plant = w_rec-plant.

• W_BAPIEKPOC-INT_OBJ_NO = W_REC-INT_OBJ_NO.

APPEND w_bapiekpoc TO it_bapiekpoc.

w_bapiekkn-g_l_acct = w_rec-g_l_acct.

w_bapiekkn-cost_ctr = w_rec-cost_ctr.

APPEND w_bapiekkn TO it_bapiekkn.

w_bapieket-deliv_date = w_rec-deliv_date.

APPEND w_bapieket TO it_bapieket.

w_bapiekkoa-ref_1 = w_rec-ref_1.

APPEND w_bapiekkoa TO it_bapiekkoa.

CALL FUNCTION 'BAPI_PO_CREATE1'

EXPORTING

poheader = w_bapimepoheader

• POHEADERX =

• POADDRVENDOR =

• TESTRUN =

• MEMORY_UNCOMPLETE =

• MEMORY_COMPLETE =

• POEXPIMPHEADER =

• POEXPIMPHEADERX =

• VERSIONS =

• NO_MESSAGING =

• NO_MESSAGE_REQ =

• NO_AUTHORITY =

• NO_PRICE_FROM_PO =

• IMPORTING

• EXPPURCHASEORDER =

• EXPHEADER =

• EXPPOEXPIMPHEADER =

TABLES

return = it_bapiret2

poitem = it_bapimepoitem

• POITEMX =

• POADDRDELIVERY =

poschedule = it_bapimeposchedule

• POSCHEDULEX =

poaccount = it_bapimepoaccount

• POACCOUNTPROFITSEGMENT =

• POACCOUNTX =

• POCONDHEADER =

• POCONDHEADERX =

• POCOND =

• POCONDX =

• POLIMITS =

• POCONTRACTLIMITS =

• POSERVICES =

• POSRVACCESSVALUES =

• POSERVICESTEXT =

• EXTENSIONIN =

• EXTENSIONOUT =

• POEXPIMPITEM =

• POEXPIMPITEMX =

• POTEXTHEADER =

• POTEXTITEM =

• ALLVERSIONS =

• POPARTNER =

.

IF sy-subrc = 0.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

• EXPORTING

• WAIT =

• IMPORTING

• RETURN =

.

PERFORM create_gr.

ELSE.

READ TABLE it_bapiret2 TRANSPORTING NO FIELDS WITH KEY type = 'E'.

IF sy-subrc = 0.

APPEND w_rec TO it_error.

CLEAR w_rec.

ENDIF.

ENDIF.

ENDFORM. " CREATE_PO

&----

---

*& Form CREATE_GR

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM create_gr .

• CHECK RETURN IS INITIAL.

• WAIT UP TO 4 SECONDS.

*-- Goods movement create

w_gm_item-material = w_rec-material.

w_gm_item-plant = w_rec-plant.

w_gm_item-move_type = w_rec-bwart.

w_gm_item-mvt_ind = c_mvind.

w_gm_item-entry_qnt = w_rec-disp_quan.

w_gm_item-entry_uom = w_rec-unit.

• W_GM_ITEM-SCHED_LINE = W_GRTAB-SCHED_LINE. """"""""""""""""ON 07/12/2007

w_gm_item-po_number = w_rec-po_number.

w_gm_item-po_item = w_rec-po_item.

APPEND w_gm_item TO i_gm_item.

w_gm_head-pstng_date = sy-datum.

w_gm_head-doc_date = sy-datum.

w_gm_head-ref_doc_no = w_rec-po_number.

CALL FUNCTION 'BAPI_GOODSMVT_CREATE'

EXPORTING

goodsmvt_header = w_gm_head

goodsmvt_code = '01' "C_GMCODE

IMPORTING

materialdocument = v_matdoc

TABLES

goodsmvt_item = i_gm_item

return = i_return.

• READ TABLE I_RETURN TRANSPORTING NO FIELDS WITH KEY TYPE = 'E'.

*

• IF SY-SUBRC NE 0.

*

• CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.

*

• LOOP AT GR_SUB_TAB INTO W_GRSUB WHERE EBELN = W_GRTAB-EBELN.

*

• INSERT INTO ZSUBMATNR VALUES W_GRSUB.

*

• ENDLOOP.

*

• ELSE.

*

• APPEND LINES OF I_RETURN TO RETURN.

*

• ENDIF.

CLEAR i_gm_item. """"""""""""""""""""

.

ENDFORM. " CREATE_GR

reward points if helpful.