CE PLUS - Nota 006042
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 27/02/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:52:58
Descrição da Nota: MENSAGEM DE ERRO NO FUNDAMENTO LEGAL DE ICMS APESAR DE ESTAR CORRETO
Sintoma
Na DI está exibindo a mensagem "Fundamento Legal Informado não está cadastrado!", para o fundamento
informado para icms porém este está cadastrado corretamente.
Solução
Corrigida chamada da subrotina para utilizar o codigo de fundamento legal informado para o ICMS.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06042 Data: 27/02/2008 Hora: 12:01:16
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06042
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00036
----------------------------------------------------------------------------------------------------
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
----------------------------------------------------------------------------------------------------
MENSAGEM DE ERRO NO FUNDAMENTO LEGAL DE ICMS APESAR DE ESTAR CORRETO
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - FUNDAMENTO - LEGAL
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
PERFORM seleciona_fund_legal_pc
USING /pws/zycie100a-codfunlegpiscofi
/pws/zycie100a-codregtripiscofi
CHANGING t_fundes_regtri /pws/zycie100a-codredpiscofi.
ELSE.
CLEAR t_fundes_regtri.
ENDIF.
IF NOT /pws/zycie100a-codfunlegicms IS INITIAL.
PERFORM seleciona_fund_legal
USING /pws/zycie100a-codfunlegicms
* >> Início da exclusão: FORM CALL_ITEM
/pws/zycie100a-codregtripiscofi
* << Fim da exclusão
* >> Início da inclusão: FORM CALL_ITEM
/pws/zycie100a-codregtriicms
* << Fim da inclusão
CHANGING t_fundes_icms /pws/zycie100a-codredpiscofi.
ELSE.
CLEAR t_fundes_icms.
ENDIF.
READ TABLE itab_it WITH KEY mark = 'X'.
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.
...