topic Re: BAPI FOR MIR7 in Application Development and Automation Discussions

BAPI FOR MIR7

Former Member — Wed, 14 May 2008 09:09:44 GMT

Hi,

everyone,

When I use MIR7 Park IncomingVoice, Any Bapi Can Create Credit Indicator Invoice ?

Hope For your replys.

thanks a lot.

Best Regards

Dana

Re: BAPI FOR MIR7

Former Member — Wed, 14 May 2008 09:27:12 GMT

Hi,

Everyone,

please Help me, please, It's urgent.

thks a lot.

Best Regrads.

Dana

Re: BAPI FOR MIR7

Former Member — Wed, 14 May 2008 09:34:24 GMT

Hi,

Have u tried with BAPI_INCOMINGINVOICE_PARK.?

Regards

Kiran Sure

Re: BAPI FOR MIR7

asik_shameem — Wed, 14 May 2008 09:40:18 GMT

You can use BAPI_INCOMINGINVOICE_PARK. Refer this program.

LOOP AT gt_ekko INTO gw_ekko.

* BAPI header
    gv_lifnr = gw_ekko-lifnr.
    gs_header-invoice_ind  = 'X'.
    gs_header-doc_type     = 'VR'.
    gs_header-doc_date     = gw_ekko-bedat.
    gs_header-pstng_date   = gw_ekko-bedat.
    gs_header-comp_code    = gw_ekko-bukrs.
    gs_header-currency     = gw_ekko-waers.
    gs_header-calc_tax_ind = 'X'.

    ON CHANGE OF gw_ekko-lifnr.
      IF NOT p_test EQ 'X' AND sy-tabix GT 1.
        PERFORM park_invoice.
      ENDIF.
    ENDON.

    LOOP AT gt_ekbe INTO gw_ekbe WHERE ebeln = gw_ekko-ebeln.

* For BAPI Item
      ADD 1 TO gv_counter.
      gv_idi = gv_counter.
      gw_item-invoice_doc_item = gv_idi.
      gw_item-po_number        = gw_ekbe-ebeln.
      gw_item-po_item          = gw_ekbe-ebelp.
      gw_item-ref_doc          = gw_ekbe-belnr.
      gw_item-ref_doc_year     = gw_ekbe-gjahr.
      gw_item-ref_doc_it       = gw_ekbe-buzei.
      gw_item-tax_code         = gw_ekbe-mwskz.
      gw_item-item_amount      = gw_ekbe-wrbtr.
      APPEND gw_item TO gt_item.
    ENDLOOP.

    AT LAST.
      IF NOT p_test EQ 'X'.
        PERFORM park_invoice.
      ENDIF.
    ENDAT.

  ENDLOOP.


FORM park_invoice .

  CALL FUNCTION 'BAPI_INCOMINGINVOICE_PARK'
    EXPORTING
      headerdata       = gs_header
    IMPORTING
      invoicedocnumber = gv_invoice
      fiscalyear       = gv_year
    TABLES
      itemdata         = gt_item
      return           = gt_return.

  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
    EXPORTING
      wait = 'X'.

  REFRESH: gt_item.
  CLEAR: gs_header.

  gw_logs-lifnr   = gv_lifnr.

  IF NOT gt_return IS INITIAL.
    LOOP AT gt_return INTO gw_return.
      gw_logs-prinv = '0'.
      gw_logs-message = gw_return-message.
      APPEND gw_logs TO gt_logs.
    ENDLOOP.
  ELSE.
    gw_logs-prinv = gv_invoice.
    APPEND gw_logs TO gt_logs.
  ENDIF.
  REFRESH: gt_return.

ENDFORM.                    " park_invoice

Re: BAPI FOR MIR7

Former Member — Wed, 14 May 2008 09:44:08 GMT

Hi,

Use the Bapi 'BAPI_INCOMINGINVOICE_PARK'

See code bellow:

code

REPORT ztemp.

DATA: x_in_header LIKE bapi_incinv_create_header,

i_in_item LIKE bapi_incinv_create_item OCCURS 0 WITH HEADER LINE,

lc_belnr LIKE bapi_incinv_fld-inv_doc_no,

lc_gjahr LIKE bapi_incinv_fld-fisc_year,

d_msg(110),

i_return LIKE bapiret2 OCCURS 0 WITH HEADER LINE.

x_in_header-invoice_ind = 'X'.

x_in_header-pstng_date = '20060430'.

x_in_header-doc_date = '20060430'.

x_in_header-ref_doc_no = '0001A00015012'.

x_in_header-header_txt = 'TEXTO XXX'.

x_in_header-comp_code = '0001'.

x_in_header-currency = 'USD'.

x_in_header-gross_amount = 486.

x_in_header-calc_tax_ind = 'X'.

Populate item data

i_in_item-invoice_doc_item = '000001'.

i_in_item-po_number = '4600000193'.

i_in_item-po_item = '00010'.

i_in_item-tax_code = 'C1'.

i_in_item-item_amount = 402.

i_in_item-sheet_no = '1000090650'.

i_in_item-sheet_item = '0000000010'.

APPEND i_in_item.

CLEAR i_in_item.

CALL FUNCTION 'BAPI_INCOMINGINVOICE_PARK'

EXPORTING

headerdata = x_in_header

IMPORTING

invoicedocnumber = lc_belnr

fiscalyear = lc_gjahr

TABLES

itemdata = i_in_item

return = i_return.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

EXPORTING

wait = 'X'.

LOOP AT i_return.

PERFORM f_message_prepare USING sy-langu

i_return-id

i_return-number

i_return-message_v1

i_return-message_v2

i_return-message_v3

i_return-message_v4

CHANGING d_msg.

WRITE: / d_msg.

ENDLOOP.

IF NOT lc_belnr IS INITIAL.

WRITE: / 'Doc :', lc_belnr.

WRITE: / 'Año :', lc_gjahr.

ENDIF.

&----

*& Form F_MESSAGE_PREPARE

&----

Arma mensaje

FORM f_message_prepare USING p_langu

p_msgid

p_msgno

p_msgv1

p_msgv2

p_msgv3

p_msgv4

CHANGING p_msg.

DATA: lc_char(3).

WRITE p_msgno TO lc_char.

CLEAR p_msg.

CALL FUNCTION 'MESSAGE_PREPARE'

EXPORTING

language = p_langu

msg_id = p_msgid

msg_no = lc_char

msg_var1 = p_msgv1(50)

msg_var2 = p_msgv2(50)

msg_var3 = p_msgv3(50)

msg_var4 = p_msgv4(50)

IMPORTING

msg_text = p_msg

EXCEPTIONS

function_not_completed = 1

message_not_found = 2

OTHERS = 3.

ENDFORM. " F_MESSAGE_PREPARE[/code]

Regards,

Raj.

Re: BAPI FOR MIR7

Former Member — Wed, 14 May 2008 09:46:26 GMT

Hello,

Try these BAPI's

BAPI_INCOMINGINVOICE_PARK

BAPI_INCOMINGINVOICE_CREATE

Read the Documentations of the BAPI.

Hope this will helps you.

Regards,

Vasanth

Re: BAPI FOR MIR7

Former Member — Thu, 15 May 2008 00:47:38 GMT

Hi,

Everyone, First Thks for your replys.

Your answer can create Debit Invoice which the value of 'SHKZG' is 'S', but mine requisition is create Credit Invoice which the value of 'SHKZG' is 'H'. So please help me how to achieve this ?

Thks and Hope for your replys.

Best Regards

Dana

Re: BAPI FOR MIR7

Former Member — Thu, 15 May 2008 05:47:06 GMT

Hi,

Everyone,

please Help me, please, It's urgent.

thks a lot.

Best Regrads.

Dana