CE PLUS - Nota 003146
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 23/02/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:40:13
Descrição da Nota: CRIAÇÃO DE TRATAMENTO PARA REG. TIB. NÃO INCIDENCIA
Sintoma
Não a tratamento para o regime não incidencia
Solução
Fazer o tratamento para não incidencia
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03146 Data: 23/02/2007 Hora: 16:18:43
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03146
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00156
----------------------------------------------------------------------------------------------------
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
01836 - 00002 - 6.0 - 00024 - CAMPO ALÍQUOTA DE PIS E COFINS NA DI
01910 - 00003 - 6.0 - 00024 - PARÂMETRO PARA INCLUSÃO DO FUNDAMENTO LEGAL DO PIS/COFINS
02022 - 00004 - 6.0 - 00024 - AJUSTES DSI MUNDANÇA SISCOMEX
02067 - 00005 - 6.0 - 00024 - RATEIO DE ICMS NA NF INCORRETO, NÃO CONSIDERANDO SUSPENSÃO DE IMP
02325 - 00006 - 6.0 - 00025 - TRATAMENTO PARA SUSPENSÃO DE ICMS NA DI POR REGIÃO
02340 - 00007 - 6.0 - 00025 - TRATAR SUSPENSÃO DE REGIME TRIBUTÁRIO NAS NOTAS FISCAIS.
02362 - 00008 - 6.0 - 00025 - DSI VALOR DO SISCOMEX ZERADO
02472 - 00009 - 6.0 - 00025 - PROGRAMA NÃO ACEITA ALTERAR REGIME TRIBUTÁRIO DOS IMPOSTOS NA DI.
02597 - 00011 - 6.0 - 00025 - AO ALTERAR VALOR DA DSI APÓS CRIAÇÃO DE NF DÁ DIFERENÇA
02693 - 00012 - 6.0 - 00026 - CALCULO DOS IMPOSTOS NA DSI E NA NOTA FISCAL PARA ADMISSÃO TEMPOR
02705 - 00013 - 6.0 - 00026 - AJUSTE NA DSI PARA FECHAR CAMPOS AO EMITIR A NOTA FISCAL
02718 - 00014 - 6.0 - 00025 - DSI VALORES SE MODIFICAM TODA ATUALIZAÇÃO
02806 - 00015 - 6.0 - 00026 - SISTEMA NÃO MANTÉM INFORMAÇÕES ALTERADAS NA DI
02811 - 00016 - 6.0 - 00026 - AJUSTE NO CALCULO DA BASE DE PIS E COFINS PARA MP ANTIGA
02922 - 00017 - 6.0 - 00026 - CRIADO PARAMETRO PARA LEVAR ICMS REDUZ NO TOTAL DA NF
03077 - 00018 - 6.0 - 00026 - DSI NÃO TRATA ISENÇÃO DE ICMS
03106 - 00020 - 6.0 - 00026 - VALOR DE ICMS DA DSI ESTÁ MENOR QUE O TOTAL DA NOTA FISCAL
----------------------------------------------------------------------------------------------------
CRIAÇÃO DE TRATAMENTO PARA REG. TIB. NÃO INCIDENCIA
----------------------------------------------------------------------------------------------------
Palavras Chave:
NÃO INCIDENCIA - CONG. REG. TRI.
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCI023 0345
DYNP /PWS/SAPMZYCI023 0431
DYNP /PWS/SAPMZYCI023 0435
DYNP /PWS/SAPMZYCI058 0232
DYNP /PWS/SAPMZYCI058 0235
FUNC /PWS/ZYCI_RATEIO_CUSTO
REPS /PWS/MZYCI016F01
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F03
REPS /PWS/MZYCI023F04
REPS /PWS/MZYCI023I01
REPS /PWS/MZYCI023O01
REPS /PWS/MZYCI058F01
REPS /PWS/MZYCI058F02
REPS /PWS/MZYCI058F03
REPS /PWS/MZYCI058F04
REPS /PWS/ZYCIR035
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0345
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0431
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI023 0435
PROCESS BEFORE OUTPUT.
module: set_screen_padrao.
PROCESS AFTER INPUT.
field: /PWS/ZYCIE100A-CODREGTRIPISCOFI module propoe_regtripiscofi.
chain.
field: t_pisbs ,
t_cofinsbs ,
/pws/zycie100a-advalpis ,
/pws/zycie100a-advalcofins ,
/pws/zycie100a-percreduzpc ,
/pws/zycie100a-basredpis ,
/pws/zycie100a-basredcof ,
/pws/zycie100a-aliqpis ,
/pws/zycie100a-aliqcof ,
/pws/zycie100a-codregtripiscofi
module calc_vicms on chain-request.
* >> Início da inclusão:
module calc_vpiscofins on chain-request.
* << Fim da inclusão
endchain.
module: user_command_0435.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI058 0232
process before output.
module: fill_consist,
set_codfun ,
set_screen .
process after input.
field: /pws/zycie100a-codregtri module load_regt on request,
/pws/zycie100a-codfunleg module load_fund on request,
/pws/zycie100a-motivo module load_moti on request,
/pws/zycie100a-classific module load_clas on request,
/pws/zycie100a-codtsp module load_tsp on request,
/pws/zycie100a-pproc module load_ppro on request.
* >> Início da inclusão:
chain.
field: /pws/zycie100a-codregtri.
module calc_vii on chain-request.
endchain.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI058 0235
PROCESS BEFORE OUTPUT.
module: load_piscofins,
set_screen.
PROCESS AFTER INPUT.
chain.
field: /pws/zycie100a-advalpis,
/pws/zycie100a-advalcofins,
/pws/zycie100a-UM_PIS,
/pws/zycie100a-UM_COFINS,
/pws/zycie100a-QTDUM_PIS,
/pws/zycie100a-QTDUM_COFINS,
* >> Início da inclusão:
/PWS/ZYCIE100A-CODREGTRIPISCOFI.
* << Fim da inclusão
module calc_vicms on chain-request.
module calc_vii on chain-request.
endchain.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_RATEIO_CUSTO
...
ENDIF.
IF itab_zycit100a-codregtriipi NE '1' AND
itab_zycit100a-codregtriipi NE '5'.
v_tot_ipi = itab_zycit100a-vlipi + v_tot_ipi.
ENDIF.
IF ( itab_zycit100a-codregtripiscofi NE '3' AND
itab_zycit100a-codregtripiscofi NE '5' ) .
v_tot_pis = itab_zycit100a-vlpis + v_tot_pis.
v_tot_cofins = itab_zycit100a-vlcofins + v_tot_cofins.
ENDIF.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO
IF ( itab_zycit100a-codregtriicms NE '3' AND
itab_zycit100a-codregtriicms NE '5' ) .
* << Fim da inclusão
v_tot_icms = itab_zycit100a-vlicms + v_tot_icms.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO
endif.
* << Fim da inclusão
ENDLOOP.
IF NOT itab_zycit100a[] IS INITIAL.
SELECT * FROM /pws/zycit116
INTO TABLE itab_zycit116
FOR ALL ENTRIES IN itab_zycit100a
WHERE nrseqdi = itab_zycit100a-nrseqdi.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
p_taxa = '1'.
ENDIF.
ENDIF.
ENDFORM.
FORM atualiza_icms_unitario.
SELECT SINGLE * FROM /pws/zycit100
WHERE nrseq = itab_zycit042-nrseq
AND ebeln = itab_zycit042-ebeln
AND ebelp = itab_zycit042-ebelp.
IF NOT /pws/zycit100-vlicms IS INITIAL AND
* >> Início da exclusão: FORM ATUALIZA_ICMS_UNITARIO
NOT /pws/zycit100-icms_dif = 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_ICMS_UNITARIO
NOT /pws/zycit100-icms_dif = 'X'
AND NOT /pws/zycit100-codregtriicms EQ '5'
AND NOT /pws/zycit100-codregtri EQ '6'.
* << Fim da inclusão
IF /pws/zycit062-tred IS INITIAL.
itab_zycit042-netpr = itab_zycit042-netpr + ( (
/pws/zycit100-vlicms / itab_zycit042-qtd_iten )
* 100 ) / itab_zycit003-basred.
ELSE.
itab_zycit042-netpr = itab_zycit042-netpr +
( /pws/zycit100-vlicms / itab_zycit042-qtd_iten ).
ENDIF.
ENDIF.
ENDFORM.
...
...
ENDIF.
IF itab_zycit100-codregtriipi EQ '5'.
itab_zycit100-baseicms =
itab_zycit100-baseicms - itab_zycit100-vlipi.
ENDIF.
IF itab_zycit100-codregtripiscofi EQ '5'.
itab_zycit100-baseicms =
itab_zycit100-baseicms -
itab_zycit100-vlpis - itab_zycit100-vlcofins.
ENDIF.
* >> Início da exclusão: FORM ITENS_NFNEW
IF itab_zycit100-baseicms LT 0.
CLEAR itab_zycit100-baseicms.
ENDIF.
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_NFNEW
IF itab_zycit100-codregtri EQ '6'.
itab_zycit100-baseicms =
itab_zycit100-baseicms - itab_zycit100-vlicms.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: FORM ITENS_NFNEW
IF ( /pws/zycit001-tpdecl = 'DSI' AND
/pws/zycit001-regime = '09' ).
itab_zycit100-baseicms =
itab_zycit100-baseicms - itab_zycit100-vlii -
itab_zycit100-vlipi - itab_zycit100-vlpis -
itab_zycit100-vlcofins.
* << Fim da exclusão
IF itab_zycit100-baseicms LT 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
a_itseg = a_itseg + itab_itb-vlseg .
a_itfre = a_itfre + itab_itb-vlfre .
a_pistcalc = a_pistcalc + itab_itb-pis_calculado.
a_pistredu = a_pistredu + itab_itb-pis_reduzido .
a_pistdevi = a_pistdevi + itab_itb-pis_devido .
a_pistreco = a_pistreco + itab_itb-pis_recolher .
a_coftcalc = a_coftcalc + itab_itb-cof_calculado.
a_coftredu = a_coftredu + itab_itb-cof_reduzido .
a_coftdevi = a_coftdevi + itab_itb-cof_devido .
a_coftreco = a_coftreco + itab_itb-cof_recolher .
* >> Início da inclusão: FORM CALC_ITAB_ADIC
if /PWS/ZYCIE100A-CODREGTRI eq '6'.
clear a_iitdevi.
endif.
* << Fim da inclusão
ENDLOOP.
/pws/zycie116-baseii = a_baseii .
/pws/zycie116-waersreal = wa_zycbt007-waersb.
/pws/zycie116-ii_calculado = a_iitcalc.
/pws/zycie116-ii_reduzido = a_iitredu.
/pws/zycie116-ii_devido = a_iitdevi.
/pws/zycie116-ii_recolher = a_iitreco.
/pws/zycie116-ipi_devido = a_ipitdevi.
/pws/zycie116-ipi_recolher = a_ipitreco.
/pws/zycie116-ad_devido = a_addevi.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
a_icreco = a_icreco + a_icdevi.
ENDIF.
itab_it-baseicms = t_icmsbs.
itab_it-vlicms = t_icms.
itab_it-vlpis = v_vlpisrec .
itab_it-vlcofins = v_vlcofrec.
t_pisbs = itab_it-basepis.
t_cofinsbs = itab_it-basecofins.
v_vlpisrec = t_pis .
v_vlcofrec = t_cofins.
* >> Início da inclusão: FORM LOAD_IICMS
IF /pws/zycie100a-codregtriicms EQ '6'.
CLEAR t_icms.
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM data_sort.
SORT itab_it_aux BY
j_1bnbm fabric lifnrfabr lifnr advalii
advalipi naladi naladincca codregtri codregtriipi
zterm meinsest pproc nrseqli aplicacao
condmerc inco1 codmat cacl codfunleg
acordo acordorate reduzida percreduz notatipi
reduzidaipi unit_valor unit_meins unit_reccapac unit_rectipo
waersbem dttaxbem antidrate extarif_al tipo_al
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F04
...
ENDIF.
ELSE.
a_cofcalc =
( ( /pws/zycie100a-basredcof / 100 )
* /pws/zycie100a-basecofins ) .
ENDIF.
t_pis = a_pisdevi = a_pisredu =
( /pws/zycie100a-basepis / 100 ) * /pws/zycie100a-basredpis .
t_cofins = a_cofdevi = a_cofredu =
( /pws/zycie100a-basecofins / 100 ) * /pws/zycie100a-basredcof.
* >> Início da inclusão: FORM CALC_PISCOFINS
when '6'.
CLEAR : t_pis, a_pisredu , t_cofins , a_cofredu.
* << Fim da inclusão
WHEN OTHERS.
IF /pws/zycie100a-aliqpis IS INITIAL.
t_pis = a_pisredu = a_pisdevi = a_piscalc =
( ( /pws/zycie100a-advalpis / 100 )
* /pws/zycie100a-basepis ) .
ELSE.
t_pis = a_pisredu = a_pisdevi = a_piscalc =
( ( /pws/zycie100a-aliqpis / 100 )
* /pws/zycie100a-basepis ) .
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023I01
...
PERFORM: load_regt USING /pws/zycie100a-codregtri
/pws/zycie085-ntimp '1'
CHANGING t_regdes.
ENDIF.
CLEAR: /pws/zycie100a-codfunleg, t_fundes.
IF ' 269' NA /pws/zycie100a-codregtri.
IF NOT /pws/zycie003-aliqii IS INITIAL.
/pws/zycie003-advalii = /pws/zycie003-aliqii.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE CALC_VII
IF /pws/zycie100a-codregtri EQ '6'.
CLEAR /pws/zycie003-advalii.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDMODULE.
MODULE calc_vipi INPUT.
MOVE-CORRESPONDING /pws/zycie100a TO itab_it.
itab_it-codregtriipi = /pws/zycie100a-codregtriipi.
PERFORM calcula_impostos USING 'T'.
wa_it-baseipi = itab_it-baseipi.
wa_it-vlipi = itab_it-vlipi.
wa_it-baseicms = itab_it-baseicms.
wa_it-vlicms = itab_it-vlicms.
...
...
ENDMODULE.
MODULE verifica_nrdi INPUT.
PERFORM verifica_nrdi.
ENDMODULE.
MODULE user_command INPUT.
IF sy-dynnr EQ '0160'.
PERFORM user_command_0160.
ENDIF.
ENDMODULE.
MODULE calc_vpiscofins INPUT.
* >> Início da inclusão: MODULE CALC_VPISCOFINS
IF /pws/zycie100a-codregtripiscofi EQ '6'.
CLEAR: /pws/zycie100a-advalpis, /pws/zycie100a-advalcofins.
ENDIF.
* << Fim da inclusão
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.
PERFORM seleciona_fund_legal_pc
USING /pws/zycie100a-codredpiscofi
/pws/zycie100a-codregtripiscofi
CHANGING t_fundes_reducao /pws/zycie100a-codredpiscofi.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023O01
...
ENDIF.
IF /pws/zycie100a-codregtripiscofi EQ 2 OR
/pws/zycie100a-codregtripiscofi EQ 6.
IF screen-name EQ '/PWS/ZYCIE100A-ALIQPIS' OR
screen-name EQ '/PWS/ZYCIE100A-ALIQCOF' OR
screen-name EQ '/PWS/ZYCIE100A-BASREDPIS' OR
screen-name EQ '/PWS/ZYCIE100A-BASREDCOF'.
screen-input = 0.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN_PADRAO
IF screen-name EQ '/PWS/ZYCIE100A-ADVALPIS' OR
screen-name EQ '/PWS/ZYCIE100A-ADVALCOFINS'.
IF /pws/zycie100a-codregtripiscofi EQ '6'.
screen-input = 0.
ENDIF.
ENDIF.
* << Fim da inclusão
IF sy-tcode EQ '/PWS/ZYCI023_E'
OR v_nf041 EQ 'S'.
screen-input = 0.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
ENDMODULE.
MODULE fill_struct_itc OUTPUT.
wa_itb-nrseq = itab_itc-nrseq.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F01
...
CLEAR: t_iirec.
ENDIF.
IF /pws/zycie085-ntimp eq '09' or /pws/zycie085-ntimp eq '11'.
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.
ENDCASE.
* >> Início da inclusão: FORM LOAD_III
IF /pws/zycie100a-codregtri eq '6'.
CLEAR: t_iirec.
ENDIF.
* << Fim da inclusão
itab_it-ii_calculado = a_iicalc.
itab_it-ii_reduzido = a_iiredu.
itab_it-ii_devido = a_iidevi.
itab_it-ii_recolher = t_iirec .
itab_it-baseii = t_iibas.
t_vlii = t_vlii + t_iirec.
t_tot = t_tot + t_iirec.
IF /pws/zycie001-regime EQ '09'.
CLEAR: t_iirec.
ENDIF.
ENDFORM.
FORM load_iipi USING p_tipo.
* >> Início da inclusão: FORM LOAD_IIPI
IF /pws/zycie100a-codregtri = '5'.
* << Fim da inclusão
* >> Início da exclusão: FORM LOAD_IIPI
IF NOT /pws/zycie100a-codregtri = '5'.
* << Fim da exclusão
t_ipibas = ( t_iibas + itab_it-ii_calculado ).
ELSE.
t_ipibas = ( t_iibas + t_iirec ).
ENDIF.
a_ipidevi = ( ( /pws/zycie003-advalipi / 100 ) * t_ipibas ).
itab_it-vlipi = a_ipidevi.
CLEAR t_ipirec.
IF
'26' NA /pws/zycie100a-codregtri.
t_ipirec = a_ipidevi.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F02
...
EXIT.
ENDLOOP.
ENDFORM.
FORM load_regt USING p_codreg p_natureza p_imposto
CHANGING p_text.
CLEAR p_text.
SELECT SINGLE descricao FROM /pws/zycit167 INTO p_text
WHERE ntimp = p_natureza AND
tipo = p_imposto AND
codreg = p_codreg.
* >> Início da inclusão: FORM LOAD_REGT
IF sy-subrc NE 0.
SELECT SINGLE descricao FROM /pws/zycit167 INTO p_text
WHERE
tipo = p_imposto AND
codreg = p_codreg.
ENDIF.
* << Fim da inclusão
IF sy-subrc NE 0 AND NOT /pws/zycie100a-codregtri IS INITIAL
AND NOT /pws/zycie100a-codregtriipi IS INITIAL.
MESSAGE e015 WITH text-152.
ENDIF.
IF p_imposto = '1'.
READ TABLE itab_zycit107 WITH KEY land1 = /pws/zycie080-landa.
IF sy-subrc EQ 0.
IF NOT itab_zycit107-aladi IS INITIAL.
MESSAGE s015 WITH text-042.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F03
...
ENDIF.
IF NOT v_icms_especial IS INITIAL.
t_icmsx = ( 100 - /pws/zycie003-advalicms ) / 100.
t_icms_d2 = t_icms = ( /pws/zycie003-advalicms / 100 ) *
( t_icmsbs / t_icmsx ) .
t_icmsbs_d2 = t_icmsbs = t_icmsbs + t_icms.
ELSE.
t_icms_d2 = t_icms = ( /pws/zycie003-advalicms / 100 ) *
t_icmsbs.
ENDIF.
* >> Início da inclusão: FORM LOAD_IICMS
IF /PWS/ZYCIE100A-CODREGTRI EQ '6'.
CLEAR: t_icms_d2, t_vlicms.
ENDIF.
* << Fim da inclusão
itab_it-vlicms = t_icms.
IF /pws/zycie100a-codregtri EQ '5'.
CLEAR: t_icms_d2, t_vlicms.
ENDIF.
IF p_tipo = 'I' OR p_tipo = 'T'.
s_wicdevi = s_wicdevi + t_icms.
s_wpisreco = s_wpisreco + t_pis .
s_wcofreco = s_wcofreco + t_cofins.
s_wpiscalc = s_wpiscalc + t_pis_calc.
s_wpisdev = s_wpisdev + t_pis_dev.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F04
...
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'.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM SET_SCREEN_0235
IF screen-name EQ '/PWS/ZYCIE100A-ADVALPIS' .
* << Fim da exclusão
* >> Início da inclusão: FORM SET_SCREEN_0235
IF screen-name EQ '/PWS/ZYCIE100A-ADVALPIS'.
* << Fim da inclusão
IF NOT /pws/zycie100a-aliqpis IS INITIAL.
CLEAR /pws/zycie100a-advalpis.
screen-input = '0'.
ELSE.
screen-input = '1'.
ENDIF.
* >> Início da exclusão: FORM SET_SCREEN_0235
ELSEIF screen-name EQ '/PWS/ZYCIE100A-ALIQPIS' .
* << Fim da exclusão
* >> Início da inclusão: FORM SET_SCREEN_0235
ELSEIF screen-name EQ '/PWS/ZYCIE100A-ALIQPIS'.
* << Fim da inclusão
IF NOT /pws/zycie100a-advalpis IS INITIAL.
CLEAR /pws/zycie100a-aliqpis.
screen-input = '0'.
ELSE.
screen-input = '1'.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE100A-UM_PIS' OR
screen-name EQ '/PWS/ZYCIE100A-QTDUM_PIS'.
IF NOT /pws/zycie100a-advalpis IS INITIAL.
CLEAR: /pws/zycie100a-um_pis,
...
...
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE100A-UM_COFINS' OR
screen-name EQ '/PWS/ZYCIE100A-QTDUM_COFINS'.
IF NOT /pws/zycie100a-advalcofins IS INITIAL.
CLEAR: /pws/zycie100a-um_cofins,
/pws/zycie100a-qtdum_cofins.
screen-input = '0'.
ELSE.
screen-input = '1'.
ENDIF.
* >> Início da exclusão: FORM SET_SCREEN_0235
ELSEIF screen-name EQ '/PWS/ZYCIE100A-ADVALCOFINS' .
* << Fim da exclusão
* >> Início da inclusão: FORM SET_SCREEN_0235
ELSEIF screen-name EQ '/PWS/ZYCIE100A-ADVALCOFINS'.
* << Fim da inclusão
IF NOT /pws/zycie100a-aliqcof IS INITIAL.
CLEAR /pws/zycie100a-advalcofins.
screen-input = '0'.
ELSE.
screen-input = '1'.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE100A-ALIQCOF' .
IF NOT /pws/zycie100a-advalcofins IS INITIAL.
CLEAR /pws/zycie100a-aliqcof.
screen-input = '0'.
ELSE.
screen-input = '1'.
ENDIF.
ELSEIF screen-name EQ '/PWS/ZYCIE100A-CODREGTRIPISCOFI'
AND /pws/zycie001-regime EQ '09'.
/pws/zycie100a-codregtripiscofi = '5' .
screen-input = '0'.
ENDIF.
* >> Início da inclusão: FORM SET_SCREEN_0235
IF /pws/zycie100a-codregtripiscofi EQ '6' AND
( screen-name EQ '/PWS/ZYCIE100A-ADVALPIS' OR
screen-name EQ '/PWS/ZYCIE100A-ADVALCOFINS' OR
screen-name EQ '/PWS/ZYCIE100A-ALIQPIS' OR
screen-name EQ '/PWS/ZYCIE100A-UM_PIS' OR
screen-name EQ '/PWS/ZYCIE100A-QTDUM_PIS' OR
screen-name EQ '/PWS/ZYCIE100A-UM_COFINS' OR
screen-name EQ '/PWS/ZYCIE100A-QTDUM_COFINS' OR
screen-name EQ '/PWS/ZYCIE100A-ALIQCOF' ).
CLEAR: /pws/zycie100a-advalcofins, /pws/zycie100a-advalpis.
screen-input = 0.
ENDIF.
* << Fim da inclusão
IF sy-tcode EQ '/PWS/ZYCI058_E'
OR v_nf041 EQ 'S'.
screen-input = '0'.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDFORM.
FORM set_screen_0310.
LOOP AT SCREEN.
IF NOT screen-group1 IS INITIAL.
...
...
ENDIF.
IF sy-tcode EQ '/PWS/ZYCI058_E'
OR v_nf041 EQ 'S'.
screen-input = '0'.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDFORM.
FORM calc_piscofins.
CLEAR: t_pis_calc, t_pis_dev, t_cof_calc, t_cof_dev.
* >> Início da inclusão: FORM CALC_PISCOFINS
IF /pws/zycie100a-codregtripiscofi EQ '6'.
CLEAR: /pws/zycie100a-advalpis, /pws/zycie100a-advalcofins.
ENDIF.
* << Fim da inclusão
CASE /pws/zycie100a-codregtripiscofi.
WHEN '3' OR '5'.
IF /pws/zycie100a-aliqpis IS INITIAL.
t_pis_dev = t_pis_calc =
( ( /pws/zycie100a-advalpis / 100 ) * /pws/zycie100a-basepis ).
ELSE.
t_pis_dev = t_pis_calc =
( ( /pws/zycie100a-aliqpis / 100 ) * /pws/zycie100a-aliqpis ).
ENDIF.
IF /pws/zycie100a-aliqcof IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR035
...
/pws/zycit100-codregtriipi NE '5'.
PERFORM entra_despesa USING it_desp 'IPI' it_desp-vlipi
/pws/zycbt007-waersb
it_desp-advalipi CHANGING wa_036.
MOVE wa_036 TO itab_zycit036.
itab_zycit036-usernamec = sy-uname.
itab_zycit036-dtuserc = sy-datum.
itab_zycit036-hruserc = sy-uzeit.
APPEND itab_zycit036.
ENDIF.
* >> Início da inclusão: FORM CRIA_DESPESAS
IF /pws/zycit100-codregtriicms NE '3' AND
/pws/zycit100-codregtriicms NE '5' AND
/pws/zycit100-codregtri NE '6'.
* << Fim da inclusão
PERFORM entra_despesa USING it_desp 'ICMS' it_desp-vlicms
/pws/zycbt007-waersb
it_desp-aliqicms CHANGING wa_036.
MOVE wa_036 TO itab_zycit036.
itab_zycit036-usernamec = sy-uname.
itab_zycit036-dtuserc = sy-datum.
itab_zycit036-hruserc = sy-uzeit.
APPEND itab_zycit036.
* >> Início da inclusão: FORM CRIA_DESPESAS
ENDIF.
* << Fim da inclusão
IF /pws/zycit100-codregtripiscofi NE '3' AND
/pws/zycit100-codregtripiscofi NE '5'.
PERFORM entra_despesa USING it_desp 'PIS' it_desp-vlpis
/pws/zycbt007-waersb v_aliq CHANGING wa_036.
MOVE wa_036 TO itab_zycit036. APPEND itab_zycit036.
PERFORM entra_despesa USING it_desp 'COFINS' it_desp-vlcofins
/pws/zycbt007-waersb v_aliq CHANGING wa_036.
MOVE wa_036 TO itab_zycit036. APPEND itab_zycit036.
ENDIF.
ENDLOOP.
...