Visualização da Nota 5303

CE PLUS - Nota 005303

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: Fatura Mercadoria

Data/Hora da Publicação: 26/11/2007 00:00:00

Data/Hora Última Alteração: 22/02/2011 16:10:43

Descrição da Nota: ABERTURA DE EXIT ANTES DA CHAMADA DA BAPI DA MIRO (FAT003)

Sintoma

Quando o recebimento é realizado por fora do embarque o programa está trazendo dados inconsistentes.

Solução

Atualizada a seleção dos dados.

Versões Tratadas

7.0

Pré-Requisitos

Produto:

Nota

Descrição

Nota 4286

DESENVOLVIMENTO PARA GERAR A MIRO NA FATURA(AMERICA LATINA)

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 05303 Data: 26/11/2007 Hora: 08:01:15

----------------------------------------------------------------------------------------------------

Nota Número : 05303

Categoria : Melhoria

Prioridade : Média

Versão PW.CE : 7.0

Pacote : 00004

Agrupamento : 00026

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

04286 - 00001 - 7.0 - 00002 - DESENVOLVIMENTO PARA GERAR A MIRO NA FATURA(AMERICA LATINA)

----------------------------------------------------------------------------------------------------

ABERTURA DE EXIT ANTES DA CHAMADA DA BAPI DA MIRO (FAT003)

----------------------------------------------------------------------------------------------------

Palavras Chave:

FATURA AMÉRICA LATINA MIRO BAPI FAT003

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCI003F02

REPS /PWS/MZYCI003X01

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI003F02

...

v_cont TYPE sy-tabix,

v_awkey TYPE bkpf-awkey,

v_doc_miro TYPE bkpf-belnr,

v_vltotal TYPE /pws/zycie006-vltotal.

* >> Início da exclusão: FORM MIRO_AM_LA

DATA: wa_headerdata TYPE bapi_incinv_create_header,

v_belnr_mr1m TYPE /pws/zycie006-belnr_mr1m,

v_invoice TYPE rbkp-xrech,

v_gjahr TYPE rbkp-gjahr,

v_creditmemo TYPE rbkp-xrech.

* << Fim da exclusão

* >> Início da inclusão: FORM MIRO_AM_LA

DATA: v_invoice TYPE rbkp-xrech,

v_creditmemo TYPE rbkp-xrech.

* << Fim da inclusão

* >> Início da exclusão: FORM MIRO_AM_LA

DATA: itab_itemdata TYPE bapi_incinv_create_item

OCCURS 0 WITH HEADER LINE,

itab_return TYPE bapiret2 OCCURS 0 WITH HEADER LINE,

itab_account TYPE bapi_incinv_create_account

OCCURS 0 WITH HEADER LINE,

* << Fim da exclusão

* >> Início da inclusão: FORM MIRO_AM_LA

DATA:

* << Fim da inclusão

v_quantity LIKE itab_itemdata-quantity,

v_amount TYPE /pws/zycit003-netpr,

v_vlfr TYPE /pws/zycie031-wrbtr,

v_vlsg TYPE /pws/zycie031-wrbtr,

v_vlaux TYPE /pws/zycie031-wrbtr,

v_kursf TYPE rbkp-kursf,

v_zbd1p TYPE rbkp-zbd1p,

v_ebelp(6) TYPE c VALUE '000000',

v_item_amount TYPE /pws/zycit003-netpr,

...

wa_headerdata-gross_amount = wa_headerdata-gross_amount -

( itab_glaccount-item_amount *

( itab_ftaxp-kbetr / 1000 ) ).

ENDIF.

ENDLOOP.

ENDIF.

wa_headerdata-gross_amount = wa_headerdata-gross_amount +

itab_retorno-hwste.

* >> Início da inclusão: FORM MIRO_AM_LA

e_subrc = '0' .

PERFORM verifica_exit USING 'D'

'/PWS/SAPMZYCI003'

'FAT009'.

CLEAR itab_zyglt100 .

READ TABLE itab_zyglt100 WITH KEY

zexit = 'FAT009' BINARY SEARCH.

IF sy-subrc EQ 0.

IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

e_estorno = 'REC_MR1M' .

PERFORM (itab_zyglt100-formulario) IN PROGRAM

(itab_zyglt100-programa) IF FOUND.

ENDIF.

IF e_subrc EQ 0.

* << Fim da inclusão

CALL FUNCTION 'BAPI_INCOMINGINVOICE_CREATE'

EXPORTING

headerdata = wa_headerdata

IMPORTING

invoicedocnumber = v_belnr_mr1m

fiscalyear = v_gjahr

TABLES

itemdata = itab_itemdata

accountingdata = itab_account

glaccountdata = itab_glaccount

...

ELSE.

/pws/zycie006-statusp_mr1m = 'X'.

/pws/zycie006-statusp = 'C'.

/pws/zycie006-belnr_mr1m = v_belnr_mr1m.

/pws/zycie006-belnr_p = v_doc_miro.

/pws/zycie006-dt_mr1m = sy-datum.

/pws/zycie006-dt_belnrp = sy-datum.

/pws/zycie006-hr_belnrp = sy-uzeit.

ENDIF.

MODIFY /pws/zycit006 FROM /pws/zycie006.

* >> Início da inclusão: FORM MIRO_AM_LA

ELSE.

LOOP AT itab_return.

CONCATENATE itab_return-id itab_return-number

itab_return-message INTO v_mensagem

SEPARATED BY space.

MESSAGE i061 WITH v_mensagem+0(50)

v_mensagem+50(50)

v_mensagem+100(50)

v_mensagem+150(50).

ENDLOOP.

ENDIF.

ELSEIF e_subrc EQ 8.

EXIT.

* << Fim da inclusão

ELSE.

LOOP AT itab_return.

CONCATENATE itab_return-id itab_return-number

itab_return-message INTO v_mensagem

SEPARATED BY space.

MESSAGE i061 WITH v_mensagem+0(50)

v_mensagem+50(50)

v_mensagem+100(50)

v_mensagem+150(50).

ENDLOOP.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI003X01

...

itab_zycit029 TYPE /pws/zycit029 OCCURS 0 WITH HEADER LINE,

itab_zycit399 TYPE /pws/zycit399 OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF itab_fat_temp OCCURS 0.

DATA: nrseq_pgfat TYPE /pws/zycit263-nrseq_pgfat.

DATA: END OF itab_fat_temp.

DATA: itab_tcurx TYPE tcurx OCCURS 0 WITH HEADER LINE .

DATA: BEGIN OF wa_fornec_fat,

lifnr TYPE lfa1-lifnr,

name1 TYPE lfa1-name1,

END OF wa_fornec_fat.

* >> Início da inclusão:

DATA: wa_headerdata TYPE bapi_incinv_create_header,

v_belnr_mr1m TYPE /pws/zycie006-belnr_mr1m,

itab_itemdata TYPE bapi_incinv_create_item

OCCURS 0 WITH HEADER LINE,

itab_return TYPE bapiret2 OCCURS 0 WITH HEADER LINE,

itab_account TYPE bapi_incinv_create_account

OCCURS 0 WITH HEADER LINE,

itab_glaccount TYPE bapi_incinv_create_gl_account

OCCURS 0 WITH HEADER LINE.

* << Fim da inclusão

DATA: END OF COMMON PART.