CE PLUS - Nota 006291
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Débito em Conta
Data/Hora da Publicação: 01/04/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:50:37
Descrição da Nota: O PROGRAMA NÃO ESTA LEVANDO O ANTIDUMPING ESPECIFICO NO DEBITO
Sintoma
O programa não esta levando para o Débito em Conta o Antidumping específico
Solução
Atualização do programa de débito em conta para levar o valor do antidumping de alíquota específica
para o débito em conta.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06291 Data: 01/04/2008 Hora: 08:42:47
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06291
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00005
Agrupamento : 00041
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
06086 - 00001 - 7.0 - 00004 - O PROGRAMA NÃO ESTA CALCULANDO A PORCENTAGEM DO ANTIDUMPING NA DI
----------------------------------------------------------------------------------------------------
O PROGRAMA NÃO ESTA LEVANDO O ANTIDUMPING ESPECIFICO NO DEBITO
----------------------------------------------------------------------------------------------------
Palavras Chave:
ANTIDUMPING - DÉBITO CONTA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI006F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI006F01
...
IF NOT '356' CA itab_zycit443-codregtri .
v_dpii = v_dpii + itab_zycit443-vlii .
ENDIF.
IF NOT '356' CA itab_zycit443-codregtripiscofi .
v_dppis = v_dppis + itab_zycit443-vlpis .
v_dpcofins = v_dpcofins + itab_zycit443-vlcofins.
ENDIF.
IF NOT itab_zycit443-baseantid IS INITIAL.
v_dpantidump = v_dpantidump +
( itab_zycit443-baseantid * ( itab_zycit443-antidrate / 100 ) ).
* >> Início da inclusão: FORM DESPESAS_DI
ELSEIF NOT itab_zycit443-qtdeantid IS INITIAL.
v_dpantidump = v_dpantidump +
( itab_zycit443-qtdeantid * itab_zycit443-vlantid ).
* << Fim da inclusão
ENDIF.
ENDLOOP.
ELSE.
LOOP AT itab_zycit100.
IF NOT '356' CA itab_zycit100-codregtriicms AND
NOT itab_zycit100-icms_dif EQ 'X' .
v_dpicms = v_dpicms + itab_zycit100-vlicms .
ENDIF.
IF NOT '156' CA itab_zycit100-codregtriipi.
v_dpipi = v_dpipi + itab_zycit100-vlipi .
...
...
IF NOT '356' CA itab_zycit100-codregtri .
v_dpii = v_dpii + itab_zycit100-vlii .
ENDIF.
IF NOT '356' CA itab_zycit100-codregtripiscofi .
v_dppis = v_dppis + itab_zycit100-vlpis .
v_dpcofins = v_dpcofins + itab_zycit100-vlcofins.
ENDIF.
IF NOT itab_zycit100-baseantid IS INITIAL.
v_dpantidump = v_dpantidump +
( itab_zycit100-baseantid * ( itab_zycit100-antidrate / 100 ) ).
* >> Início da inclusão: FORM DESPESAS_DI
ELSEIF NOT itab_zycit100-qtdeantid IS INITIAL.
v_dpantidump = v_dpantidump +
( itab_zycit100-qtdeantid * itab_zycit100-vlantid ).
* << Fim da inclusão
ENDIF.
ENDLOOP.
ENDIF.
v_vlicms = v_dpicms .
v_vlipi = v_dpipi .
v_vlii = v_dpii .
v_vlpis = v_dppis .
v_vlcofins = v_dpcofins .
v_vlantidump = v_dpantidump.
CHECK sy-subrc EQ 0.
...