CE PLUS - Nota 007747
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal
Data/Hora da Publicação: 10/12/2008 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:18:47
Descrição da Nota: DI - NOTA FISCAL REDUZIDA - LANÇAMENTO DO EXCLUIDO DA BASE
Sintoma
Não está lançando a base excluída quando o flag base_pis_cof está marcado na ZYCIT062 e o processo é
reduzido
Solução
Foram alterados os programas de nota fiscal e da DI
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07747 Data: 10/12/2008 Hora: 16:24:31
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07747
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00008
Agrupamento : 00076
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04557 - 00001 - 7.0 - 00003 - REDUÇÃO DE BASE DE IMPOSTO NOTA FISCAL
07466 - 00002 - 7.0 - 00007 - CÁLCULO DAS ALÍQUOTAS PARA PROCESSO DE ADMISSÃO TEMPORÁRIA
----------------------------------------------------------------------------------------------------
DI - NOTA FISCAL REDUZIDA - LANÇAMENTO DO EXCLUIDO DA BASE
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - NOTA FISCAL REDUZIDA - LANÇAMENTO DO EXCLUIDO DA BASE
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI016F01
REPS /PWS/MZYCI023F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
CLEAR v_advicms.
IF NOT itab_zycit003-advalicms IS INITIAL.
* >> Início da exclusão: FORM VERIFICA_MONTANTE
IF /pws/zycit062-bs_pis_cof IS INITIAL.
* << Fim da exclusão
IF NOT itab_zycit003-basred IS INITIAL OR
NOT itab_zycit003-basred EQ '100'.
v_advicms = ( ( itab_zycit003-advalicms / 100 ) *
( itab_zycit003-basred / 100 ) ) .
ELSE.
v_advicms = ( itab_zycit003-advalicms / 100 ).
ENDIF.
* >> Início da exclusão: FORM VERIFICA_MONTANTE
ELSE.
v_advicms = ( itab_zycit003-advalicms / 100 ).
ENDIF.
* << Fim da exclusão
v_basred = ( v_advicms * 10000 / itab_zycit003-advalicms ).
ELSE.
v_basred = itab_zycit003-basred.
ENDIF.
IF v_basred IS INITIAL.
...
...
CLEAR v_advicms.
IF NOT itab_zycit003-advalicms IS INITIAL.
* >> Início da exclusão: FORM VALORES_R
IF /pws/zycit062-bs_pis_cof IS INITIAL.
* << Fim da exclusão
IF NOT itab_zycit003-basred IS INITIAL OR
NOT itab_zycit003-basred EQ '100'.
v_advicms = ( ( itab_zycit003-advalicms / 100 ) *
( itab_zycit003-basred / 100 ) ) .
* >> Início da exclusão: FORM VALORES_R
ELSE.
v_advicms = ( itab_zycit003-advalicms / 100 ).
ENDIF.
* << Fim da exclusão
ELSE.
...
...
CLEAR v_advicms.
IF NOT itab_zycit003-advalicms IS INITIAL.
* >> Início da exclusão: FORM ATUALIZA_ICMS_UNITARIO
IF /pws/zycit062-bs_pis_cof IS INITIAL.
* << Fim da exclusão
IF NOT itab_zycit003-basred IS INITIAL OR
NOT itab_zycit003-basred EQ '100'.
v_advicms = ( ( itab_zycit003-advalicms / 100 ) *
( itab_zycit003-basred / 100 ) ) .
* >> Início da exclusão: FORM ATUALIZA_ICMS_UNITARIO
ELSE.
v_advicms = ( itab_zycit003-advalicms / 100 ).
ENDIF.
* << Fim da exclusão
ELSE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
ENDIF.
ENDIF.
IF /pws/zycit062-bs_pis_cof IS INITIAL.
IF NOT /pws/zycie003-basred IS INITIAL AND
NOT /pws/zycie003-basred EQ '100'.
IF itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12'.
v_advicms = ( ( /pws/zycie003-aliqicms / 100 ) *
( /pws/zycie003-basred / 100 ) ) .
ELSE.
* >> Início da exclusão: FORM LOAD_IICMS
v_advicms = ( ( /pws/zycie003-aliqicms / 100 ) *
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IICMS
v_advicms = ( ( /pws/zycie003-advalicms / 100 ) *
* << Fim da inclusão
( /pws/zycie003-basred / 100 ) ) .
ENDIF.
v_trunc = v_advicms.
v_advicms = v_trunc.
ELSE.
IF itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12'.
v_advicms = ( /pws/zycie003-aliqicms / 100 ).
ELSE.
v_advicms = ( /pws/zycie003-advalicms / 100 ).
...