CE PLUS - Nota 005422
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Despesas
Data/Hora da Publicação: 10/12/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 15:50:14
Descrição da Nota: ERRO DE ARREDONDAMENTO NO CALCULO DOS IMPOSTOS
Sintoma
O programa não está gerando a contabilização da fatura (MIRO)
Solução
Criada tratativa para arredondamento no calculo dos impostos.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05422 Data: 10/12/2007 Hora: 15:02:36
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05422
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00024
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05337 - 00001 - 7.0 - 00003 - TRATATIVA PARA MOEDAS QUE NÃO POSSUEM CASAS DECIMAIS
----------------------------------------------------------------------------------------------------
ERRO DE ARREDONDAMENTO NO CALCULO DOS IMPOSTOS
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA IMPOSTOS AMÉRICA LATINA ARREDONDAMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
selkz_db TYPE selkz,
rblgp_old TYPE rblgp,
END OF mmcr_drseg.
DATA: v_chave(10),
v_indice TYPE i,
v_iva(2),
v_cont2 TYPE sy-tabix,
v_cont TYPE sy-tabix,
v_awkey TYPE bkpf-awkey,
v_doc_miro TYPE bkpf-belnr,
* >> Início da exclusão: FORM MIRO_AM_LA
v_vltotal TYPE /pws/zycie006-vltotal.
* << Fim da exclusão
* >> Início da inclusão: FORM MIRO_AM_LA
v_vltotal TYPE /pws/zycie006-vltotal,
v_gross_amount TYPE /pws/zycit006-vlmerc.
* << Fim da inclusão
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.
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,
...
...
EXPORTING
aland = t001-land1
datab = /pws/zycie006-dtincl
mwskz = itab_iva-mwskz
txjcd = itab_ivaped-txjcd
TABLES
t_ftaxp = itab_ftaxp.
LOOP AT itab_ftaxp.
LOOP AT itab_glaccount WHERE tax_code EQ itab_iva-mwskz.
IF itab_glaccount-db_cr_ind = 'S'.
* >> Início da exclusão: FORM MIRO_AM_LA
wa_headerdata-gross_amount = wa_headerdata-gross_amount +
* << Fim da exclusão
* >> Início da inclusão: FORM MIRO_AM_LA
v_gross_amount = v_gross_amount +
* << Fim da inclusão
( itab_glaccount-item_amount *
( itab_ftaxp-kbetr / 1000 ) ).
ELSE.
* >> Início da exclusão: FORM MIRO_AM_LA
wa_headerdata-gross_amount = wa_headerdata-gross_amount -
* << Fim da exclusão
* >> Início da inclusão: FORM MIRO_AM_LA
v_gross_amount = v_gross_amount -
* << Fim da inclusão
( itab_glaccount-item_amount *
( itab_ftaxp-kbetr / 1000 ) ).
ENDIF.
ENDLOOP.
ENDLOOP.
ENDLOOP.
* >> Início da inclusão: FORM MIRO_AM_LA
wa_headerdata-gross_amount = wa_headerdata-gross_amount +
v_gross_amount.
* << Fim da inclusão
ENDIF.
wa_headerdata-gross_amount = wa_headerdata-gross_amount +
itab_retorno-hwste.
e_subrc = '0' .
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI003'
'FAT009'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY
zexit = 'FAT009' BINARY SEARCH.
...