Re: error in bapi

Former Member — Thu, 22 May 2008 13:23:43 GMT

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.

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.

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.

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.

topic error in bapi in Application Development and Automation Discussions

error in bapi

Re: error in bapi

Re: error in bapi

Re: error in bapi