CE PLUS - Nota 001861
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 02/08/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:48:57
Descrição da Nota: NA DI, O CAMPO FUNDAMENTO LEGAL (CODFUNLEG),.
Sintoma
Na DI, o campo fundamento legal (CODFUNLEG), do detalhe do item, pasta tributos, sub pasta II deve
ser igual ao mencionado na LI. Isto já ocorre com o campo reg tributário (CODREGTRI) na mesma
subpasta. O embarque 6900289I06, F6D, é de drawback e tem LI, com fundamento legal 16. Na DI, item
10, o campo fundamento legal da subpasta II deixa modificar. Este campo deverá ficar aberto porém
não possibilitado para alterações.
Na subpasta PIS/COFINS, o campo fundamento legal (CODFUNLEG) não deve ser igual ao da LI. Este campo
deverá vir em branco para que o usuário preencha.
Solução
Inserido Form existe_li.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01861 Data: 02/08/2006 Hora: 15:27:52
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01861
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00125
----------------------------------------------------------------------------------------------------
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
----------------------------------------------------------------------------------------------------
NA DI, O CAMPO FUNDAMENTO LEGAL (CODFUNLEG),.
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - FUNDAMENTO - LEGAL - CODFUNLEG - TRIBUTOS
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI023 0431
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F03
REPS /PWS/MZYCI023O01
REPS /PWS/MZYCI023X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0431
...
process before output.
* >> Início da inclusão: Tela 0431
module existe_li.
* << Fim da inclusão
module: set_screen.
process after input.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
FOR ALL ENTRIES IN itab_zycit003 WHERE
nrseq = itab_zycit003-nrseq AND
ebeln = itab_zycit003-ebeln AND
ebelp = itab_zycit003-ebelp AND
eliminado = space.
* >> Início da inclusão: FORM FILL_ITABIT
select * from /pws/zycit078 into table itab_zycit078
FOR ALL ENTRIES IN itab_zycit003 WHERE
nrseqli = itab_zycit003-nrseqli.
* << Fim da inclusão
ENDIF.
IF NOT itab_zycit263[] IS INITIAL.
SELECT * FROM /pws/zycit006 INTO TABLE itab_zycit006
FOR ALL ENTRIES IN itab_zycit263 WHERE
nrseq_pgfat = itab_zycit263-nrseq_pgfat.
...
...
CLEAR : itab_it-advalcofins,
itab_it-vlcofins .
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM FILL_ITABIT
ENDIF.
read table itab_zycit078 with key
nrseqli = itab_zycit003-nrseqli.
if sy-subrc eq 0.
itab_it-codfunleg = itab_zycit078-CODFUNLEG .
itab_it-CODREGTRI = itab_zycit078-codregtri .
* << Fim da inclusão
ENDIF.
PERFORM text_item_fill.
IF NOT itab_zycit003-qtd_itend IS INITIAL.
IF NOT /pws/zycie093-brgewd IS INITIAL AND
NOT itab_zycit003 IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
( /pws/zycie100a-advalpis / 100 ) ).
t_cofins = ( /pws/zycie100a-basecofins *
( /pws/zycie100a-advalcofins / 100 ) ).
ENDCASE.
ENDIF.
* >> Início da exclusão: FORM LOAD_IICMS
/pws/zycie100a-codfunlegpiscofi = '16'.
* << Fim da exclusão
ENDIF.
IF '5' CA /pws/zycie100a-codregtri.
v_vliirec = a_iidevi.
ELSE.
v_vliirec = t_iirec.
...
...
MESSAGE ID '/PWS/ZYCIM' TYPE /pws/zyglt217-msgtp NUMBER '127'.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
* >> Início da inclusão:
form existe_li.
CLEAR V_EXISTE_LI.
SELECT SINGLE * FROM /pws/zycit078 INTO wa_zycit078 WHERE
nrseqli = /pws/zycie003-nrseqli.
IF SY-SUBRC EQ 0.
V_EXISTE_LI = 'X'.
ENDIF.
endform.
* << Fim da inclusão
...
ENDIF.
ENDIF.
ENDFORM. " verifica_nrdi
* >> Início da inclusão:
*&---------------------------------------------------------------------*
*& Form existe_li
*&---------------------------------------------------------------------*
form existe_li.
CLEAR V_EXISTE_LI.
SELECT SINGLE * FROM /pws/zycit078 INTO wa_zycit078 WHERE
nrseqli = /pws/zycie003-nrseqli.
IF SY-SUBRC EQ 0.
V_EXISTE_LI = 'X'.
ENDIF.
endform. " existe_li
* << Fim da inclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023O01
...
ELSEIF screen-name EQ '/PWS/ZYCIE100A-CODFUNLEG'.
IF ' 178' CA /pws/zycie100a-codregtri.
screen-input = '0'.
CLEAR: /pws/zycie100a-codfunleg, t_fundes.
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN
IF V_EXISTE_LI EQ 'X'.
SCREEN-INPUT = '0'.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE100A-CODREGTRI'.
IF V_EXISTE_LI EQ 'X'.
SCREEN-INPUT = '0'.
ENDIF.
* << Fim da inclusão
ELSEIF screen-name EQ '/PWS/ZYCIE003-ADVALII'.
IF ' 269' CA /pws/zycie100a-codregtri.
screen-input = '0'.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE100A-CODREGTRI' AND
...
...
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDCASE.
* >> Início da inclusão: MODULE SET_SCREEN
clear V_EXISTE_LI.
* << Fim da inclusão
ENDMODULE.
MODULE fill_struct88 OUTPUT.
MOVE itab_zycit014 TO /pws/zycie014.
ENDMODULE.
MODULE fill_struct95 OUTPUT.
...
...
ENDIF.
ENDMODULE.
MODULE verifica_obrig OUTPUT.
PERFORM verifica_obrig.
ENDMODULE.
* >> Início da inclusão:
module existe_li output.
perform existe_li.
endmodule.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023X01
...
v_nova,
V_ITAD_PLAN LIKE /PWS/ZYCIT003-NETPR,
V_TTAD_PLAN LIKE /PWS/ZYCIT003-NETPR ,
v_qtd_pis like /pws/zycie003-qtd_iten ,
v_qtd_cof like /pws/zycie003-qtd_iten .
* >> Início da inclusão:
DATA V_EXISTE_LI.
* << Fim da inclusão
data: wa_it000 LIKE /pws/zycit000,
wa_zycit078 like /pws/zycit078.
data: end of common part.