CE PLUS - Nota 002379
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 06/11/2006 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:39:03
Descrição da Nota: NÃO ESTÁ ATUALIZANDO TEXTO DO FUNDAMENTO LEGAL NA DI
Sintoma
Quando eu crio uma DI de Drawback Suspensão, quando visualizo a pasta PIS/COFINS, o campo Fundamento
Legal está preenchido corretamente, com o código (neste caso = 16) e a descrição (neste caso =
Drawback). Porém, quando possui Recolhimento Integral esses impostos fica com esse campo Fundamento
Legal fechado, mas a descrição (Drawback ) aparente, e só após ENTER é que ela some. E quando navego
entre os itens, essa mesma descrição dos itens 1 e 2 também desaparecem.
Solução
Atualizar texto do fundamento por item.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02379 Data: 06/11/2006 Hora: 09:24:33
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02379
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00138
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01910 - 00001 - 6.0 - 00024 - PARÂMETRO PARA INCLUSÃO DO FUNDAMENTO LEGAL DO PIS/COFINS
----------------------------------------------------------------------------------------------------
NÃO ESTÁ ATUALIZANDO TEXTO DO FUNDAMENTO LEGAL NA DI
----------------------------------------------------------------------------------------------------
Palavras Chave:
FUNDAMENTO LEGAL - REGIME TRIBUTÁRIO - DI - DRAWBACK
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F04
REPS /PWS/MZYCI023I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
CHANGING t_fundes_icms /pws/zycie100a-codredpiscofi.
ELSE.
CLEAR t_fundes_icms.
ENDIF.
READ TABLE itab_it WITH KEY mark = 'X'.
* >> Início da inclusão: FORM CALL_ITEM
perform carrega_fund_legal.
* << Fim da inclusão
t_pisbs = itab_it-basepis.
t_cofinsbs = itab_it-basecofins.
v_ip = sy-tabix.
DESCRIBE TABLE itab_it LINES v_ipt.
perform :
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F04
...
IF SY-TCODE EQ '/PWS/ZYCIE23_E'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
endform.
* >> Início da inclusão:
form carrega_fund_legal.
CLEAR: t_fundes_reducao, t_fundes_regtri.
IF NOT itab_it-codredpiscofi IS INITIAL.
PERFORM seleciona_fund_legal_pc
USING itab_it-codredpiscofi
itab_it-codregtripiscofi
CHANGING t_fundes_reducao /pws/zycie100a-codredpiscofi.
ELSE.
CLEAR: t_fundes_reducao.
ENDIF.
IF NOT itab_it-codfunlegpiscofi IS INITIAL.
PERFORM seleciona_fund_legal_pc
USING itab_it-codfunlegpiscofi
itab_it-codregtripiscofi
CHANGING t_fundes_regtri /pws/zycie100a-codfunlegpiscofi.
ELSE.
CLEAR: t_fundes_regtri.
ENDIF.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023I01
...
CASE sy-ucomm.
WHEN 'PRIM'.
PERFORM save_data_item.
v_ip = v_idx = 1.
READ TABLE itab_it INDEX v_ip.
* >> Início da inclusão: MODULE USER_COMMAND_0231
PERFORM carrega_fund_legal.
* << Fim da inclusão
t_pisbs = itab_it-basepis.
t_cofinsbs = itab_it-basecofins.
WHEN 'ANTE'.
IF v_ip > 1.
PERFORM save_data_item.
v_idx = v_ip = v_ip - 1.
READ TABLE itab_it INDEX v_ip.
t_pisbs = itab_it-basepis.
t_cofinsbs = itab_it-basecofins.
MOVE-CORRESPONDING itab_it TO /pws/zycie003.
* >> Início da inclusão: MODULE USER_COMMAND_0231
PERFORM carrega_fund_legal.
* << Fim da inclusão
ENDIF.
WHEN 'DELE'.
WHEN 'PROX'.
DESCRIBE TABLE itab_it LINES v_line.
IF v_ip < v_line.
...
...
v_idx = v_ip = v_ip + 1.
READ TABLE itab_it INDEX v_ip.
t_pisbs = itab_it-basepis.
t_cofinsbs = itab_it-basecofins.
MOVE-CORRESPONDING itab_it TO /pws/zycie003.
* >> Início da inclusão: MODULE USER_COMMAND_0231
PERFORM carrega_fund_legal.
* << Fim da inclusão
ENDIF.
WHEN 'ULTI'.
PERFORM save_data_item.
DESCRIBE TABLE itab_it LINES v_ip.
READ TABLE itab_it INDEX v_ip.
* >> Início da inclusão: MODULE USER_COMMAND_0231
PERFORM carrega_fund_legal.
* << Fim da inclusão
t_pisbs = itab_it-basepis.
t_cofinsbs = itab_it-basecofins.
v_idx = v_ip.
WHEN 'REPL'.
IF v_ipt > 1.
...