Skip to Content
0
Former Member
Mar 25, 2009 at 10:30 AM

BAPI_REQUISITION_CREATE - Posting for Services Short Text

744 Views

Hi,

I would like to post the Services short text and info for each of items for services purchase requisition.

Below is my coding.

  • PR HEADER.

itab_bapiebanc-deliv_date = tt_itab-eeind. " Deliery Date

itab_bapiebanc-preq_name = tt_itab-afnam. " Requisitioner

itab_bapiebanc-trackingno = tt_itab-bednr. " Tracking No

itab_bapiebanc-plant = tt_itab-werks. " Plant

itab_bapiebanc-doc_type = tt_itab-bsart. " Doc. Type

  • PR Line Column

IF tt_itab-matnr EQ space.

itab_bapiebanc-item_cat = '9'.

itab_bapiebanc-mat_grp = 'SERV'.

ELSE.

itab_bapiebanc-item_cat = '0'.

ENDIF.

itab_bapiebanc-material = tt_itab-matnr. " Material No

itab_bapiebanc-short_text = tt_itab-txz01. " Short Text

itab_bapiebanc-quantity = tt_itab-menge. " Quantity

itab_bapiebanc-unit = tt_itab-meins. " UOM

itab_bapiebanc-currency = tt_itab-waers. " Currency.

itab_bapiebanc-c_amt_bapi = tt_itab-brtwr. "Valuation Price

  • itab_bapiebanc-mat_grp = tt_itab-wgbez.

  • itab_bapiebanc-pur_group = tt_itab-ekgrp.

  • itab_bapiebanc-mat_grp = '03'.

itab_bapiebanc-pur_group = 'P01'.

itab_bapiebanc-acctasscat = 'K'. " Cost Center

itab_bapiebkn-cost_ctr = tt_itab-kostl. " Sakto

itab_bapiebkn-g_l_acct = tt_itab-sakto. " GL

itab_bapiebkn-g_l_acct = '40000500'. " GL

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = itab_bapiebkn-cost_ctr

IMPORTING

output = itab_bapiebkn-cost_ctr.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = itab_bapiebkn-g_l_acct

IMPORTING

output = itab_bapiebkn-g_l_acct.

CALL FUNCTION 'NUMBER_GET_NEXT'

EXPORTING

nr_range_nr = '01'

object = 'SERVICE'

IMPORTING

number = itab_bapiesllc-service

EXCEPTIONS

interval_not_found = 1

OTHERS = 8.

itab_bapiebanc-pckg_no = itab_bapiesllc-service + 1.

itab_bapiebanc-PREQ_ITEM = '00010'.

itab_bapiebkn-preq_item = '00010'.

itab_bapiesllc-short_text = tt_itab-txz01. " Short Text

itab_bapiesllc-quantity = tt_itab-menge.

itab_bapiesllc-base_uom = 'UN'.

itab_bapiesllc-pckg_no = itab_bapiebanc-pckg_no.

itab_bapiesllc-subpckg_no = itab_bapiebanc-pckg_no + 1.

itab_bapiesllc-line_no = '0000000001'.

itab_bapiesklc-pckg_no = itab_bapiesllc-pckg_no .

itab_bapiesklc-line_no = itab_bapiesllc-line_no .

itab_bapiesklc-serno_line = '01'.

CLEAR itab_bapiesllc-service.

  • itab_bapiesllc-EXT_LINE = '0000000000'.

  • itab_bapiesllc-FROM_LINE = '1'.

  • itab_bapiesllc-PLN_LINE = '0000000001'.

itab_bapiesklc-serial_no = '01'.

itab_bapiesklc-percentage = '100.00'.

itab_bapiesklc-quantity = '1.000'.

APPEND itab_bapiebkn.

APPEND itab_bapiebanc.

APPEND itab_bapiebantx.

APPEND itab_bapiesllc.

APPEND itab_bapiesklc.

AT END OF header.

CALL FUNCTION 'BAPI_REQUISITION_CREATE'

TABLES

requisition_items = itab_bapiebanc

requisition_account_assignment = itab_bapiebkn

requisition_item_text = itab_bapiebantx

requisition_services = itab_bapiesllc

return = gw_return.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.

I had successfully create the Purchase Requisition, but still unable to get the services short text at each of items. ESLL got my packno, but not maintain in ESLH. If i manually maintain in ME51N, ESLH got packno of this.

Any problem for my coding? is it miss out someting?

Thanks