CE PLUS - Nota 008941
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 02/09/2009 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:12:32
Descrição da Nota: AO SALVAR A DI, NÃO GRAVA VALOR DE II NA TABELA
Sintoma
Ao salvar a DI, não grava valor de II na tabela
Solução
Corrigir tratamento de campo de valor de II.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08941 Data: 02/09/2009 Hora: 14:27:40
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08941
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00001
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
08356 - 00001 - 7.0 - 00009 - ADMISSÃO TEMPORÁRIA ARTIGO 373
08624 - 00002 - 7.0 - 00010 - ERRO EM CALCULO DE ADMISSÃO TEMPORÁRIO REGIME 12.
08939 - 00003 - 7.0 - 00010 - NÃO CARREGA O NÚMERO DA ADIÇÃO NO ITEM DA DI
----------------------------------------------------------------------------------------------------
AO SALVAR A DI, NÃO GRAVA VALOR DE II NA TABELA
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - SUSPENSÃO - ISENÇÃO - GRAVAR DADOS - TABELA /PWS/ZYCIT100
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
t_iirec = a_iicalc.
ENDIF.
ENDIF.
IF NOT /pws/zycie100a-percreduz IS INITIAL.
t_iirec = t_iirec *
( ( 100 - /pws/zycie100a-percreduz ) / 100 ).
a_iidevi = a_iicalc.
ELSE.
a_iidevi = t_iirec.
ENDIF.
* >> Início da exclusão: FORM LOAD_III
IF /pws/zycie100a-codregtri CA '35'.
CLEAR: t_iirec.
* << Fim da exclusão
ENDIF.
* >> Início da exclusão: FORM LOAD_III
ENDIF.
* << Fim da exclusão
ENDCASE.
itab_it-vlii = t_iirec.
* >> Início da exclusão: FORM LOAD_III
IF itab_zycit001-regime EQ '05'.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_III
IF /pws/zycie100a-codregtri CA '35' OR
itab_zycit001-regime EQ '05'.
* << Fim da inclusão
CLEAR: t_iirec.
ENDIF.
s_wiireco = s_wiireco + t_iirec.
s_wiicalc = s_wiicalc + a_iicalc.
s_wiiredu = s_wiiredu + a_iiredu.
s_wiidevi = s_wiidevi + a_iidevi.
itab_it-baseii = t_iibas.
itab_it-ii_calculado = a_iicalc.
itab_it-ii_reduzido = a_iiredu.
itab_it-ii_devido = a_iidevi.
...