CE PLUS - Nota 002419
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 10/11/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 13:26:39
Descrição da Nota: OS PROCESSOS ANTIGOS EMITEM MSG DE ERRO PARA SUSPENSAO DO ICMS
Sintoma
Após o tratamento do ICMS na DI (Suspensão), os processos antigos estão emitindo uma mensagem de
erro impedindo o acesso ao detalhe do item na DI.
Solução
Verificar se o campo está preenchido antes de emitir a mensagem.
Atualizado para não dar a mensagem que falta o regime tributário pro ICMS para processos antigos na
DI.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02419 Data: 10/11/2006 Hora: 15:22:55
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02419
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00139
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02325 - 00001 - 6.0 - 00025 - TRATAMENTO PARA SUSPENSÃO DE ICMS NA DI POR REGIÃO
----------------------------------------------------------------------------------------------------
OS PROCESSOS ANTIGOS EMITEM MSG DE ERRO PARA SUSPENSAO DO ICMS
----------------------------------------------------------------------------------------------------
Palavras Chave:
MENSAGEM DE ERRO - SUSPENSÃO NA DI - ICMS
PROCESSOS ANTIGOS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
perform carrega_fund_legal.
t_pisbs = itab_it-basepis.
t_cofinsbs = itab_it-basecofins.
v_ip = sy-tabix.
DESCRIBE TABLE itab_it LINES v_ipt.
* >> Início da exclusão: FORM CALL_ITEM
perform :
load_regt using /pws/zycie100a-codregtri
* << Fim da exclusão
* >> Início da inclusão: FORM CALL_ITEM
if not /pws/zycie100a-codregtri is initial.
perform load_regt using /pws/zycie100a-codregtri
* << Fim da inclusão
/pws/zycie085-ntimp
* >> Início da exclusão: FORM CALL_ITEM
'1' changing t_regdes,
load_regt using /pws/zycie100a-codregtriipi
* << Fim da exclusão
* >> Início da inclusão: FORM CALL_ITEM
'1' changing t_regdes.
endif.
if not /pws/zycie100a-codregtriipi is initial.
perform load_regt using /pws/zycie100a-codregtriipi
* << Fim da inclusão
/pws/zycie085-ntimp
* >> Início da exclusão: FORM CALL_ITEM
'2' changing t_regde2,
load_regt using /pws/zycie100a-codregtriicms
* << Fim da exclusão
* >> Início da inclusão: FORM CALL_ITEM
'2' changing t_regde2.
endif.
if not /pws/zycie100a-codregtriicms is initial.
perform load_regt using /pws/zycie100a-codregtriicms
* << Fim da inclusão
/pws/zycie085-ntimp
'4' changing t_regde3.
* >> Início da inclusão: FORM CALL_ITEM
endif.
* << Fim da inclusão
if v_msg eq 'X'.
MESSAGE i015 WITH text-152.
clear v_msg.
exit.
endif.
...