Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal Remessa
Data/Hora da Publicação: 12/11/2010 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:24:28
Descrição da Nota: NOTA DE REMESSA COM MONTANTE BASE EXCLUÍDA (ICMS)
Sintoma
Quando a base do ICMS estiver na coluna "montante base excluído", no detalhe do item deve apagar a
alíquota de ICMS.
Solução
Limpar o campo it_zycee007-rate.
8.0
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10732 Data: 12/11/2010 Hora: 16:15:56
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10732
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00005
Agrupamento : 00047
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
10689 - 00001 - 8.0 - 00005 - AO CRIAR NF REMESSA COM MONTANTE BASE EXCLUÍDO, RETIRAR VALOR DO
----------------------------------------------------------------------------------------------------
NOTA DE REMESSA COM MONTANTE BASE EXCLUÍDA (ICMS)
----------------------------------------------------------------------------------------------------
Palavras Chave:
ALIQUOTA - BASE DO ICMS - MONTANTE BASE EXCLUÍDO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
IF itab_zycit100-icms_dif EQ 'X'.
IF /pws/zycit062-flag_icms = 'X'.
IF /pws/zycit062-tred IS INITIAL OR
/pws/zycit062-flag_icms IS INITIAL.
it_zycee007-c_excbas = it_zycee007-c_excbas - v_icms.
ENDIF.
ENDIF.
v_icms_dif = v_icms_dif + v_icms.
v_base_dif = v_base_dif + v_total.
ELSE.
* >> Início da exclusão: FORM ITENS_NFRNEW
clear it_zycee007-taxval .
* << Fim da exclusão
ENDIF.
v_base = it_zycee007-c_excbas.
* >> Início da inclusão: FORM ITENS_NFRNEW
CLEAR: it_zycee007-rate, it_zycee007-taxval.
* << Fim da inclusão
WHEN 3.
it_zycee007-othbas = v_total.
IF v_basred NE 100.
it_zycee007-othbas =
( it_zycee007-othbas * v_basred / 100 ).
...