Need sample code for usage og bapi_agreement_maintain

[Former Member]

Hi experts,

I have supposed to use BAPI_AGREEMENT_MAINTAIN to create outline agreement(me31k).Will you please provide me some sample code for this.

Thanks in advance,

Regards,

Asmitha.

[Former Member]

Hi Asmita ,

i have seen ur early-posts on this issue.

1.Have u seen Docuementatioon of this BAPI.

2.Are u getting any Messages in RETURN table ?

3.If there is no errors , then it should Update/

call will me like this .

process data

call BAPI

check return

like

if RETURN[] is intitail.

commit work.

else.

endif.

Regards

Peram

[Former Member]

Hi Prabhu,

I want to create an outline agrement.But im getting the dump.How can i proceed further.Will you please help me in this.

[Former Member]

check in ST22 , what kind of error it is ?

Regards

Peram

rao.peram@yahoo.com

[Former Member]

HI,

Try this,

data: PO_NUMBER like BAPIMEPOHEADER-PO_NUMBER.

data: PO_HEADER like BAPIMEPOHEADER.

data: PO_ITEM like BAPIMEPOITEM occurs 0 with header line.

data: PO_ITEMX like BAPIMEPOITEMX occurs 0 with header line.

data: RETURN like BAPIRET2 occurs 0 with header line.

*data: PO_NUMBER like BAPIMEPOHEADER-PO_NUMBER.

data: IM_AGREEMENT_HEADER like BAPIOAHEAD occurs 0 with header line.

data: IM_AGREEMENT_HEADER_X like BAPIOAHEAX occurs 0 with header line.

data: IM_AGREEMENT_ITEMS like BAPIOAITEM occurs 0 with header line.

data: IM_AGREEMENT_ITEMS_X like BAPIOAITEX occurs 0 with header line.

data : i_ekko like ekko occurs 0 with header line.

SELECT * FROM ekko into table i_ekko WHERE ebeln = '4600000633'.

*endselect.

IM_AGREEMENT_HEADER-AGMT_NO = i_ekko-ebeln.

IM_AGREEMENT_HEADER-LANGU = i_ekko-SPRAS. "Language

IM_AGREEMENT_HEADER-VAT_CNTRY = i_ekko-STCEG_L. "country id code

IM_AGREEMENT_HEADER-CURRENCY = i_ekko-WAERS. "currency

IM_AGREEMENT_HEADER-DOC_CAT = i_ekko-bstyp. "Pur doc categary

IM_AGREEMENT_HEADER-DOC_TYPE = i_ekko-bsart. "Pur doc type

IM_AGREEMENT_HEADER-TELEPHONE = i_ekko-TELF1.

Append IM_AGREEMENT_HEADER.

*

IM_AGREEMENT_HEADER_X-AGMT_NO = 'X'.

Append IM_AGREEMENT_HEADER_X.

IM_AGREEMENT_ITEMS-AGRMT_ITEM = '10001'.

IM_AGREEMENT_ITEMS-NET_PRICE = '20'.

Append IM_AGREEMENT_ITEMS.

IM_AGREEMENT_ITEMS_X-AGRMT_ITEM = '10001'.

IM_AGREEMENT_ITEMS_X-NET_PRICE = 'X'.

append IM_AGREEMENT_ITEMS_X.

CALL FUNCTION 'BAPI_AGREEMENT_MAINTAIN'

EXPORTING

IM_AGREEMENT_HEADER = IM_AGREEMENT_HEADER

TABLES

EXT_RETURN = RETURN

IMT_AGREEMENT_ITEMS = IM_AGREEMENT_ITEMS

IMT_AGREEMENT_ITEMS_X = IM_AGREEMENT_ITEMS_X.

if sy-subrc = 0.

read table RETURN into lwa_RETURN

with key type = 'E'. " if there is an error message

if sy-subrc = 0.

*do error processing or whatever required.

else.

call function 'BAPI_TRANSACTION_COMMIT'

exporting

wait = 'X'.

if sy-subrc = 0.

endif.

endif.

Regards,

Padmam.

[Former Member]

sorry friends still it is not working,I used another function-module BAPI_CONTRACT_CREATE to create outline-agreement.That function-module is working fine.

Thanks for your quick response.

[Former Member]

Thanks for your quick response