BDC

Former Member — Wed, 15 Aug 2007 11:57:24 GMT

Hi guys,

How can i write the for the transaction ME21n ....can any send me the code for recording ....I am getting the problem with item datas for recording...so any can explain that .... Kindly send me the Reply..

Thanks & Regards,

Sunder

Re: BDC

Former Member — Wed, 15 Aug 2007 12:00:32 GMT

Hi Sunder,

Dont do BDC recording on Enjoy transactions. As ME21N is an Enjoy transaction, better to go for BAPI instead of doing with BDCs.

Use BAPI_PO_CREATE1 for Create Purchase Order and

BAPI_PO_CHANGE for Change purchase order.

Thanks,

Vinay

Re: BDC

suredarreddy_pulimamidi — Wed, 15 Aug 2007 13:12:56 GMT

for ME21N go for BAPI FM.It is a Enjoy transaction. For Enjoy transactions use BAPI FM to upload data.For Enjoy transactions the screen sequence is difficult to record.For ME21n use BAPI_PO_CREATE1 FM is available use that FM.

reward if helpful....

surendarreddy

Re: BDC

Former Member — Wed, 15 Aug 2007 13:53:57 GMT

for enjoy transactions never go for recording. use BAPI's like

BAPI_PO_CREATE Create Purchase Order

BAPI_PO_GETDETAIL Display Purchase Order Details

BAPI_PO_GETITEMS List Purchase Order Items

BAPI_PO_GETITEMSREL List Purchase Orders for Release (Approval): New as of 4.0A

regards,

srinivas

*reward for useful answers*

Re: BDC

Former Member — Thu, 16 Aug 2007 09:08:23 GMT

Hi Sunder,

Check this Sample Code for BAPI_PO_CREATE1.

REPORT zpo_create .

PARAMETERS: p-file LIKE rlgrap-filename DEFAULT

'c:\Sample3.txt'.

DATA: BEGIN OF itab OCCURS 0,

line(1000),

END OF itab.

DATA l_item(5) TYPE n.

TABLES : zerror.

DATA lcounter(3) TYPE n.

DATA : l_errflag.

DATA : l_po_header LIKE bapimepoheader.

DATA : l_po_headerx LIKE bapimepoheaderx.

DATA : t_po_account LIKE bapimepoaccount OCCURS 0 WITH HEADER LINE.

DATA : t_po_accountx LIKE bapimepoaccountx OCCURS 0 WITH HEADER LINE.

DATA : l_new_po(10), l_last_po(10).

DATA : l_purchaseorder LIKE bapimepoheader-po_number.

*DATA : L_HEADER LIKE BAPIMEPOHEADER STRUCTURE BAPIMEPOHEADER.

DATA : BEGIN OF t_po_items OCCURS 0.

INCLUDE STRUCTURE bapimepoitem.

DATA : END OF t_po_items.

DATA : BEGIN OF t_po_itemsx OCCURS 0.

INCLUDE STRUCTURE bapimepoitemx.

DATA : END OF t_po_itemsx.

DATA : BEGIN OF t_return OCCURS 0.

INCLUDE STRUCTURE bapiret2.

DATA : END OF t_return.

CLEAR : l_po_header.

CALL FUNCTION 'WS_UPLOAD'

EXPORTING

filename = p-file

filetype = 'DAT'

TABLES

data_tab = itab

EXCEPTIONS

file_open_error = 1

file_read_error = 2

no_batch = 3

gui_refuse_filetransfer = 4

invalid_type = 5

OTHERS = 6.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

EXIT.

ENDIF.

LOOP AT itab.

IF itab-line(1) EQ 'K'.

l_new_po = itab-line(10).

IF l_last_po NE l_new_po AND l_last_po NE space.

PERFORM create_po.

PERFORM refresh_table.

ENDIF.

IF itab-line+13(2) EQ '40'.

PERFORM append_header.

ENDIF.

IF itab-line+13(2) EQ '81'.

PERFORM append_item.

ENDIF.

l_last_po = l_new_po.

ENDIF.

ENDLOOP.

IF sy-subrc EQ 0.

PERFORM create_po.

PERFORM refresh_table.

ENDIF.

&----

*& Form CREATE_PO

&----

PO Create

----

--> p1 text
<-- p2 text

----

FORM create_po .

CLEAR : l_purchaseorder.

CALL FUNCTION 'BAPI_PO_CREATE1'

EXPORTING

poheader = l_po_header

poheaderx = l_po_headerx

POADDRVENDOR =
TESTRUN =
MEMORY_UNCOMPLETE =
MEMORY_COMPLETE =
POEXPIMPHEADER =
POEXPIMPHEADERX =
VERSIONS =
NO_MESSAGING =
NO_MESSAGE_REQ =
NO_AUTHORITY =
NO_PRICE_FROM_PO =

IMPORTING

exppurchaseorder = l_purchaseorder

EXPHEADER =
EXPPOEXPIMPHEADER =

TABLES

return = t_return

poitem = t_po_items

poitemx = t_po_itemsx

POADDRDELIVERY =
POSCHEDULE =
POSCHEDULEX =

poaccount = t_po_account

POACCOUNTPROFITSEGMENT =

poaccountx = t_po_accountx

POCONDHEADER =
POCONDHEADERX =
POCOND =
POCONDX =
POLIMITS =
POCONTRACTLIMITS =
POSERVICES =
POSRVACCESSVALUES =
POSERVICESTEXT =
EXTENSIONIN =
EXTENSIONOUT =
POEXPIMPITEM =
POEXPIMPITEMX =
POTEXTHEADER =
POTEXTITEM =
ALLVERSIONS =
POPARTNER =

l_errflag = space.

lcounter = 1.

LOOP AT t_return .

IF t_return-type = 'E'.

l_errflag = 'X'.

GET TIME.

PERFORM append_error.

ENDIF.

WRITE : /1 t_return-message.

ENDLOOP.

IF l_errflag EQ space.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

EXPORTING
WAIT =
IMPORTING
RETURN =

ENDIF.

ENDFORM. " CREATE_PO

&----

*& Form APPEND_HEADER

&----

PO Header print

----

--> p1 text
<-- p2 text

----

FORM append_header .

l_po_header-comp_code = '1000'." Company Code

l_po_header-doc_type = 'NB'. " Order Typr BSART

l_po_header-creat_date = sy-datum. " P.O Dt - BEDAT

*CONCATENATE '0000' ITAB+72(6) INTO L_PO_HEADER-VENDOR .

l_po_header-vendor = itab-line+71(6).

*L_PO_HEADER-VENDOR = ITAB+72(6) " 'ABC'. "Vendor - EKKO-LIFNR

IF itab-line(4) NE 'K034'.

l_po_header-purch_org = '2000'. " Purch. Org - EKKO-EKORG

l_po_header-pur_group = 'F01'. " Purch Group - EKKO-EKGRP

ELSE.

l_po_header-purch_org = '1000'. " Purch. Org - EKKO-EKORG

l_po_header-pur_group = '001'. " Purch Group - EKKO-EKGRP

ENDIF.

l_po_header-currency_iso = 'USD'. " Currency Default field for Enjoy

l_po_header-ref_1 = itab-line+1(9).

*L_PO_HEADER-DOC_CAT = 'F'. " Account Assign Cat EKPO-KNTTP

*_PO_HEADER-CREATED_BY = SY-UNAME.

CLEAR : l_po_headerx.

l_po_headerx-po_number = 'X'.

l_po_headerx-comp_code = 'X'." Company Code

l_po_headerx-doc_type = 'X'. " Order Typr BSART

l_po_headerx-vendor = 'X'. "Vendor - EKKO-LIFNR

l_po_headerx-purch_org = 'X'. " Purch. Org - EKKO-EKORG

l_po_headerx-pur_group = 'X'. " Purch Group - EKKO-EKGRP

l_po_headerx-currency_iso = 'X'. " Currency Default field for Enjoy

l_po_headerx-ref_1 = 'X'.

ENDFORM. " APPEND_HEADER

&----

*& Form APPEND_ITEM

&----

Material Number and Item print

----

--> p1 text
<-- p2 text

----

FORM append_item .

PO Line Items

l_item = l_item + 10.

t_po_items-po_item = l_item.

*T_PO_ITEMS-PO_ITEM = '00010'." Line Item No - EKPO-EBELP

*T_PO_ITEMS-SHORT_TEXT = 'KSR TEXT'." Line Item TEXT

CONCATENATE '00000000' itab-line+32(10) INTO t_po_items-material.

*T_PO_ITEMS-MATERIAL = '000000000000000043'. " Material No - EKPO-EMATN

CONCATENATE '00000000' itab-line+32(10) INTO t_po_items-ematerial.

t_po_items-plant = '2001'. " Plant - EKPO-WERKS

t_po_items-quantity = '1.000'.

t_po_items-net_price = '10.00'. " EKPO-NETPR

t_po_items-price_unit = '10 '.

*T_PO_ITEMS-TAX_CODE = 'A2'.

IF itab-line+0(4) EQ 'K034'.

t_po_items-acctasscat = 'R'.

t_po_items-plant = '1001'.

t_po_account-po_item = l_item.

t_po_account-profit_ctr = 'BR034'.

t_po_account-gl_account = '0000135075'.

T_PO_ACCOUNT-CO_AREA = '1000'.

APPEND t_po_account.

CLEAR t_po_account.

t_po_accountx-po_item = l_item.

t_po_accountx-profit_ctr = 'X'.

t_po_accountx-gl_account = 'X'.

T_PO_ACCOUNTX-CO_AREA = 'X'.

APPEND t_po_accountx.

CLEAR t_po_accountx.

ENDIF.

APPEND t_po_items.

CLEAR t_po_items.

t_po_itemsx-po_item = l_item.

t_po_itemsx-po_itemx = 'X'.

t_po_itemsx-acctasscat = 'X'.

t_po_itemsx-material = 'X'.

t_po_itemsx-ematerial = 'X'.

t_po_itemsx-plant = 'X'.

t_po_itemsx-quantity = 'X'.

t_po_itemsx-net_price = 'X'.

t_po_itemsx-price_unit = 'X'.

*T_PO_ITEMSX-TAX_CODE = 'X'.

APPEND t_po_itemsx.

CLEAR t_po_itemsx.

Second Line Item

ENDFORM. " APPEND_ITEM

&----

*& Form REFRESH_TABLE

&----

text

----

--> p1 text
<-- p2 text

----

FORM refresh_table .

REFRESH : t_po_items, t_po_itemsx.

CLEAR l_item.

ENDFORM. " REFRESH_TABLE

&----

*& Form append_error

&----

text

----

--> p1 text
<-- p2 text

----

FORM append_error .

MOVE : sy-datum TO zerror-zdate,

sy-uzeit TO zerror-ztime,

itab+3(5) TO zerror-document_no,

t_return-message TO zerror-message.

lcounter = lcounter + 1.

zerror-counter = lcounter .

zerror-rec_type = itab-line(1).

MODIFY zerror. CLEAR zerror.

COMMIT WORK.

ENDFORM. " append_error

Reward Points if Useful

Regards

Gokul

topic Re: BDC in Application Development and Automation Discussions

BDC

Re: BDC

Re: BDC

Re: BDC

Re: BDC

Re: BDC