CE PLUS - Nota 011491
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 28/09/2011 00:00:00
Data/Hora Última Alteração: 03/10/2011 11:26:21
Descrição da Nota: AO ALTERAR VALOR DE TAXA SISCOMEX NA DESPESA, NAO RECALCULA ICMS
Sintoma
Ao alterar valor de taxa siscomex na despesa, não recalcula ICMS
Solução
Recalcular icms modificando a taxa siscomex
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 11491 Data: 28/09/2011 Hora: 14:30:21
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 11491
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00009
Agrupamento : 00087
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
11402 - 00001 - 8.0 - 00008 - O VALOR DO ICMS ESTÁ SENDO RECALCULADO AO ALTERAR DI.
----------------------------------------------------------------------------------------------------
AO ALTERAR VALOR DE TAXA SISCOMEX NA DESPESA, NAO RECALCULA ICMS
----------------------------------------------------------------------------------------------------
Palavras Chave:
TAXA SISCOMEX - DESPESA - CALCULAR
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
PERFORM: calc_conv_moeda:
USING /pws/zycie093-waersfre wa_zycbt007-waersb
CHANGING itab_zycit049-vlreal.
ELSE.
itab_zycit049-vlreal = /pws/zycie093-ternacion.
ENDIF.
MODIFY itab_zycit049 INDEX v_tabix TRANSPORTING vldp vlreal waers.
ENDIF.
ENDIF.
ELSE.
* >> Início da exclusão: FORM FILL_TAXASISCOMEX
READ TABLE itab_zycit095 WITH KEY receita = '7811' .
IF sy-subrc EQ 0.
s_wsisco = itab_zycit095-valor .
* << Fim da exclusão
IF v_pii EQ 'X'.
READ TABLE itab_zycit049 WITH KEY
tpdesp = /pws/zycit000-cod_sisc
baseii = 'X'.
CLEAR: v_pii.
IF sy-subrc NE 0.
EXIT.
ENDIF.
ELSE.
READ TABLE itab_zycit049 WITH KEY
tpdesp = /pws/zycit000-cod_sisc
baseicms = 'X'.
IF sy-subrc NE 0.
EXIT.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM FILL_TAXASISCOMEX
s_wsisco = itab_zycit049-vldp.
* << Fim da inclusão
IF NOT p_adics IS INITIAL.
v_sisco1 = ( s_wsisco -
/pws/zycit000-txsis_fix ) / p_adics.
v_sisco2 = /pws/zycit000-txsis_fix / p_adics.
ENDIF.
v_sisco3 = v_sisco1 + v_sisco2.
* >> Início da exclusão: FORM FILL_TAXASISCOMEX
ENDIF.
* << Fim da exclusão
ENDIF.
...