CE PLUS - Nota 003559
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 26/04/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:40:51
Descrição da Nota: AJUSTE NO MATCHCODE DO FUNDAMENTO LEGAL PIS/COFINS
Sintoma
Fundamento Legal para PIS e COFINS - Na seleção dos fundamentos cadastrados no parâmetro
/PWS/ZYCIT471, a funcionalidade dos match codes para estes não estam funcionando corretamente. Na
pasta Tributos, do detalhe do item na DI, quando diferente de recolhimento integral, temos a opção
de seleção do fundamento legal, que será carregado para o Siscomex. Esta seleção do fundamento está
com o match code sem restrições para o tipo de fundamento do parâmetro, preenchendo a ajuda de
pesquisa com todos os parâmetros de fundamentos existentes no pw.ce. E para o segundo match code da
tela, o valores não estão sendo carregados para a ajuda de pesquisa.
Solução
Atualizado elemento de dados: /PWS/ZYCIL203 a ajuda de pesquisa /PWS/ZYCIA177 e retirado do
programa a ajuda de pesquisa do campo CODREDPISCOFI.
Foi alterado a ajuda de pesquisa para o campo :CODFUNLEGPISCOFI.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03559 Data: 26/04/2007 Hora: 15:48:16
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03559
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00163
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01520 - 00001 - 6.0 - 00023 - INCLUSÃO DA NOVA TELA PIS/COFINS NA DI
01910 - 00002 - 6.0 - 00024 - PARÂMETRO PARA INCLUSÃO DO FUNDAMENTO LEGAL DO PIS/COFINS
02379 - 00003 - 6.0 - 00025 - NÃO ESTÁ ATUALIZANDO TEXTO DO FUNDAMENTO LEGAL NA DI
----------------------------------------------------------------------------------------------------
AJUSTE NO MATCHCODE DO FUNDAMENTO LEGAL PIS/COFINS
----------------------------------------------------------------------------------------------------
Palavras Chave:
/PWS/ZYCIL203, /PWS/ZYCIA177, /PWS/ZYCIE100A
CODREDPISCOFI, CODREGTRIPISCOFI
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI023 0435
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F04
REPS /PWS/MZYCI023I01
TABD /PWS/ZYCIE100A
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0435
Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
/PWS/ZYCIE100A-CODREDPISCOFI
I/O 4 31 2 2 1 CHAR Ent Off
AC
Chave externa, Botão EntrsPoss.stand.
*Retirada ajuda de pesquisa da tela
Ajuda pesquisa=/PWS/ZYCIA177
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
ENDIF.
ENDFORM.
FORM call_item.
SORT itab_it BY j_1bnbm adicao ebeln ebelp .
PERFORM: calc_itab.
CLEAR: wa_it, v_msg.
CLEAR: t_fundes_reducao, t_fundes_regtri.
IF NOT /pws/zycie100a-codredpiscofi IS INITIAL.
PERFORM seleciona_fund_legal
USING /pws/zycie100a-codredpiscofi
* >> Início da inclusão: FORM CALL_ITEM
/pws/zycie100a-codregtripiscofi
* << Fim da inclusão
CHANGING t_fundes_reducao /pws/zycie100a-codredpiscofi.
ELSE.
CLEAR t_fundes_reducao.
ENDIF.
IF NOT /pws/zycie100a-codfunlegpiscofi IS INITIAL.
PERFORM seleciona_fund_legal
USING /pws/zycie100a-codfunlegpiscofi
* >> Início da inclusão: FORM CALL_ITEM
/pws/zycie100a-codregtripiscofi
* << Fim da inclusão
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 inclusão: FORM CALL_ITEM
/pws/zycie100a-codregtripiscofi
* << 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.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F04
...
t_ivdes2 = ( v_it_plan / v_tot_plan )
* itab_zycit049-vlreal.
ENDIF.
ENDIF.
t_vmle = t_vmle + t_ivdes2.
v_vldp_aux = v_vldp_aux + t_ivdes2.
ENDIF.
ENDLOOP.
ENDFORM.
FORM seleciona_fund_legal USING p_campo
* >> Início da inclusão: FORM SELECIONA_FUND_LEGAL
p_campo1
* << Fim da inclusão
CHANGING p_texto p_campo2.
DATA: v_descr LIKE /pws/zycit177-descr.
SELECT SINGLE descr
FROM /pws/zycit177 INTO v_descr
* >> Início da exclusão: FORM SELECIONA_FUND_LEGAL
WHERE codigo = p_campo.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_FUND_LEGAL
WHERE codigo = p_campo
AND regime = p_campo1.
* << Fim da inclusão
IF sy-subrc EQ 0.
p_texto = v_descr.
ELSE.
CLEAR: v_descr, p_campo2.
MESSAGE e015 WITH text-238.
ENDIF.
ENDFORM.
FORM load_piscofins.
READ TABLE itab_it WITH KEY adicao = /pws/zycie116-adicao_sisc.
wa_it-advalicms = itab_it-advalicms.
...
...
ENDFORM.
FORM set_screen_0180.
IF sy-tcode EQ '/PWS/ZYCIE23_E'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDFORM.
FORM carrega_fund_legal.
CLEAR: t_fundes_reducao, t_fundes_regtri.
IF NOT itab_it-codredpiscofi IS INITIAL.
* >> Início da exclusão: FORM CARREGA_FUND_LEGAL
PERFORM seleciona_fund_legal_pc
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_FUND_LEGAL
PERFORM seleciona_fund_legal
* << Fim da inclusão
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
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023I01
...
MODULE calc_vpiscofins INPUT.
IF /pws/zycie100a-codregtripiscofi EQ '6'.
CLEAR: /pws/zycie100a-advalpis, /pws/zycie100a-advalcofins.
ENDIF.
ENDMODULE.
MODULE user_command_0435 INPUT.
CASE sy-ucomm.
WHEN 'ENTE'.
CLEAR: t_fundes_reducao, t_fundes_regtri.
IF NOT /pws/zycie100a-codredpiscofi IS INITIAL.
* >> Início da exclusão: MODULE USER_COMMAND_0435
PERFORM seleciona_fund_legal_pc
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0435
PERFORM seleciona_fund_legal
* << Fim da inclusão
USING /pws/zycie100a-codredpiscofi
/pws/zycie100a-codregtripiscofi
CHANGING t_fundes_reducao /pws/zycie100a-codredpiscofi.
ELSE.
CLEAR: t_fundes_reducao.
ENDIF.
IF NOT /pws/zycie100a-codfunlegpiscofi IS INITIAL.
PERFORM seleciona_fund_legal_pc
USING /pws/zycie100a-codfunlegpiscofi
/pws/zycie100a-codregtripiscofi
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCIE100A
Nome de campo CODFUNLEGPISCOFI
Nome ajuda pesq. /PWS/ZYCIA472
Par.AjPesq Tabela conexão Cpo.conexão ajuda p/pesquisa
CODIGO /PWS/ZYCIE100A CODFUNLEGPISCOFI
ORIGEM /PWS/ZYCIE085 TPDI
*>>Inicio da exclusão
ORIGEM 'S'
*<<Fim da exclusão
REGIME /PWS/ZYCIE100A CODREGTRIPISCOFI
*>>Inicio da inclusão
TPNI /PWS/ZYCIE085 NTIMP
*<<Fim da inclusão
Nome de campo CODREDPISCOFI
Nome ajuda pesq. /PWS/ZYCIA177
Par.AjPesq Tabela conexão Cpo.conexão ajuda p/pesquisa
*>>Inicio da inclusão
CODIGO /PWS/ZYCIE100A CODREDPISCOFI
ORIGEM /PWS/ZYCIE085 TPDI
REGIME /PWS/ZYCIE100A CODREGTRIPISCOFI
TPNI /PWS/ZYCIE085 NTIMP
*<<Fim da inclusão