CE PLUS - Nota 003985
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DSI
Data/Hora da Publicação: 20/06/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:57:51
Descrição da Nota: ERRO NO FUNDAMENTO LEGAL, NÃO RESPEITAVA OS PARÂMETROS
Sintoma
DSI - Nos itens pasta 1 - ao selecionar suspensão, o sistema não abre o campo FUND. LEGAL para
informar a lei.
DSI - Nos itens pasta 4 - ao selicionar o campo FUND. LEGAL pelo math code, o sistema não encontra
tabela de parametros.
Solução
Ajuste para verificar os parâmetros das tabelas /pws/zycit177, /pws/zycit471.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03985 Data: 20/06/2007 Hora: 09:52:00
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03985
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00002
Agrupamento : 00001
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02022 - 00001 - 6.0 - 00024 - AJUSTES DSI MUNDANÇA SISCOMEX
----------------------------------------------------------------------------------------------------
ERRO NO FUNDAMENTO LEGAL, NÃO RESPEITAVA OS PARÂMETROS
----------------------------------------------------------------------------------------------------
Palavras Chave:
/PWS/ZYCIT177, /PWS/ZYCIT471
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI058 0232
REPS /PWS/MZYCI058F03
REPS /PWS/MZYCI058F04
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI058 0232
*Inicio da modificação
Flegado no Layout do campo /PWS/ZYCIE100A-CODFUNLEG, Entradas possíveis.
*FIm da modificação
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F03
...
ENDIF.
cont = cont + 1.
ENDWHILE.
IF sy-subrc = 0 AND NOT /pws/zycit085-nrdi IS INITIAL.
v_acto = 'N'.
/pws/zycie085-nrdi = /pws/zycit085-nrdi.
/pws/zycie085-dtreg = /pws/zycit085-dtreg.
ENDIF.
ENDFORM.
FORM fill_codfun.
* >> Início da inclusão: FORM FILL_CODFUN
clear itab_zycit177.
* << Fim da inclusão
SELECT * FROM /pws/zycit177
INTO TABLE itab_zycit177
WHERE origem EQ /pws/zycie085-tpdi
AND tpni EQ /pws/zycie085-ntimp
AND regime EQ /pws/zycie100a-codregtri.
DESCRIBE TABLE itab_zycit177 LINES v_lin_177.
IF v_lin_177 EQ 1.
READ TABLE itab_zycit177 INDEX 1.
/pws/zycie100a-codfunleg = itab_zycit177-codigo.
PERFORM: load_fund USING /pws/zycie100a-codfunleg.
* >> Início da inclusão: FORM FILL_CODFUN
ENDIF.
IF itab_zycit177-regime = '1'.
LOOP AT SCREEN.
CASE screen-name.
WHEN '/PWS/ZYCIE100A-CODFUNLEG'.
CLEAR: /pws/zycie100a-codfunleg,
t_fundes.
screen-input = 0.
MODIFY SCREEN.
ENDCASE.
ENDLOOP.
ELSE.
LOOP AT SCREEN.
CASE screen-name.
WHEN '/PWS/ZYCIE100A-CODFUNLEG'.
screen-input = 1.
MODIFY SCREEN.
ENDCASE.
ENDLOOP.
* << Fim da inclusão
ENDIF.
IF /pws/zycie100a-codregtri NE itab_it-codregtri.
itab_it-codregtri = /pws/zycie100a-codregtri.
ENDIF.
ENDFORM.
FORM load_lsi.
READ TABLE itab_zycit003 WITH KEY ebeln = /pws/zycie100a-ebeln
ebelp = /pws/zycie100a-ebelp.
IF sy-subrc EQ 0.
IF NOT itab_zycit003-nrseqlsi IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F04
...
( 1 - v_advpis - v_advcof - v_advicms ) ) ).
ENDFORM.
FORM mp_nova.
/pws/zycie100a-basecofins = /pws/zycie100a-basepis =
itab_it-basecofins = itab_it-basepis =
( t_iibas * ( ( 1 + v_advicms * ( v_advii + v_advipi *
( 1 + v_advii ) ) ) / ( ( 1 - v_advpis - v_advcof ) *
( 1 - v_advicms ) ) ) ).
ENDFORM.
FORM propoe_fundleg.
* >> Início da exclusão: FORM PROPOE_FUNDLEG
IF NOT /pws/zycie100a-codfunlegpiscofi IS INITIAL.
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.
* << Fim da exclusão
* >> Início da inclusão: FORM PROPOE_FUNDLEG
IF NOT /pws/zycie100a-codregtripiscofi IS INITIAL.
IF /pws/zycie100a-codregtripiscofi = '1'.
CLEAR: t_fundes_regtri, /pws/zycie100a-codfunlegpiscofi.
ELSE.
PERFORM seleciona_fund_legal_pc
USING /pws/zycie085-tpdi
/pws/zycie085-ntimp
/pws/zycie100a-codregtripiscofi
CHANGING t_fundes_regtri /pws/zycie100a-codfunlegpiscofi.
ENDIF.
ELSE.
CLEAR t_fundes_regtri.
ENDIF.
* << Fim da inclusão
ENDFORM. " propoe_fundleg
* >> Início da exclusão: FORM SELECIONA_FUND_LEGAL_PC
FORM seleciona_fund_legal_pc USING p_campo
p_campo1
CHANGING p_texto p_campo2.
DATA: v_descr LIKE /pws/zycit471-descr.
SELECT SINGLE descr
FROM /pws/zycit471 INTO v_descr
WHERE codigo = p_campo
AND regime = p_campo1.
IF sy-subrc EQ 0.
p_texto = v_descr.
ELSE.
CLEAR: v_descr, p_campo2.
MESSAGE e015 WITH text-238.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_FUND_LEGAL_PC
FORM seleciona_fund_legal_pc USING p_campo
p_campo1
p_campo2
CHANGING p_texto p_campo3.
DATA: v_descr LIKE /pws/zycit471-descr,
v_codigo LIKE /pws/zycit471-codigo.
SELECT SINGLE codigo descr
FROM /pws/zycit471 INTO (v_codigo, v_descr)
WHERE origem = p_campo
AND tpni = p_campo1
AND regime = p_campo2.
IF sy-subrc EQ 0.
p_texto = v_descr.
p_campo3 = v_codigo.
ELSE.
CLEAR: v_descr, p_campo3.
p_texto = v_descr.
p_campo3 = v_codigo.
MESSAGE i015 WITH text-238.
ENDIF.
* << Fim da inclusão
ENDFORM. " seleciona_fund_legal_pc
FORM set_screen_0235.
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCIE100A-CODFUNLEGPISCOFI'.
IF /pws/zycie100a-codregtripiscofi IS INITIAL OR
/pws/zycie100a-codregtripiscofi EQ 1.
screen-input = '0'.
ELSE.
screen-input = '1'.
...