CE PLUS - Nota 005189
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Despesas
Data/Hora da Publicação: 12/11/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 15:50:06
Descrição da Nota: TRATATIVA PARA MOEDAS SEM CASAS DECIMAIS
Sintoma
O programa esta exibindo incorretamente os valores das bases dos impostos.
Solução
Inserida tratativa para moedas que não possuem casas decimais.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05189 Data: 12/11/2007 Hora: 08:10:30
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05189
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00020
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05072 - 00001 - 7.0 - 00003 - DUMP AO CRIAR FATURA DE DESPESAS COM CONTABILIZAÇÃO DE IMPOSTOS
05137 - 00002 - 7.0 - 00003 - ERRO NA CONTABILIZAÇÃO DOS IMPOSTOS NA MIRO
----------------------------------------------------------------------------------------------------
TRATATIVA PARA MOEDAS SEM CASAS DECIMAIS
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA IMPOSTOS MIRO CASAS DECIMAIS MOEDA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F02
...
/pws/zycie006-dtincl
CHANGING v_taxaf.
IF v_taxa IS INITIAL OR v_taxau IS INITIAL.
EXIT.
ENDIF.
LOOP AT itab_zycit403.
itab_zycit403t-codigo = itab_zycit403-codigo.
itab_zycit403t-base = itab_zycit403-base.
itab_zycit403t-base =
( itab_zycit403-base * v_taxau ) / v_taxaf.
* >> Início da inclusão: FORM REFRESH_IMPOSTOS
PERFORM trata_decimais USING /pws/zycie006-waers
CHANGING itab_zycit403t-base.
* << Fim da inclusão
COLLECT itab_zycit403t.
ENDLOOP.
LOOP AT itab_zycit403t.
CLEAR: itab_zycit029, itab_zycit399.
READ TABLE itab_zycit399 WITH KEY codigo = itab_zycit403t-codigo.
READ TABLE itab_zycit029 WITH KEY codigo = itab_zycit403t-codigo.
LOOP AT itab_zycit047 WHERE vldp > 0.
READ TABLE itab_zycit484
WITH KEY imposto = itab_zycit403t-codigo
tpdesp = itab_zycit047-tpdesp.
...