CE PLUS - Nota 008356
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 29/04/2009 00:00:00
Data/Hora Última Alteração: 01/11/2011 09:04:06
Descrição da Nota: ADMISSÃO TEMPORÁRIA ARTIGO 373
Sintoma
Ajustado calculo dos impostos para processos de admissão temporaria para ser igual a 1% por mes de
permanencia da mercadoria neste regime aduaneiro.
Solução
Ajustado calculo dos impostos para processos de admissão temporaria para ser igual a 1% por mes de
permanencia da mercadoria neste regime aduaneiro.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08356 Data: 29/04/2009 Hora: 13:56:43
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08356
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00009
Agrupamento : 00096
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03261 - 00001 - 6.0 - 00026 - EM DI COM MOEDAS DIFERENTES E GRANEL, VALOR ADUANEIRO FICA ERRADO
04020 - 00002 - 7.0 - 00001 - BASE DE CÁLCULO DE PIS E COFINS FICA ERRADO COM II ISENTO
05366 - 00003 - 7.0 - 00003 - ERRO NO RATEIO DE DESPESAS DE BASE II, POR VALOR PLANEJADO.
05518 - 00004 - 7.0 - 00004 - ADMISSÃO TEMPORÁRIA O SISTEMA NÃO ESTÁ REDUZINDO AS ALIQUOTAS PIS
07427 - 00005 - 7.0 - 00007 - DSI ESTÁ CALCULANDO ERRADO VALOR DE IMPOSTOS QUANDO É NÃO INCIDÊN
07977 - 00006 - 7.0 - 00008 - DE ACORDO COM LEGISLAÇÃO, O II SEMPRE ENTRA NA BASE DO IPI.
08331 - 00007 - 7.0 - 00009 - NÃO ESTÁ PREENCHENDO A ALIQUOTA DE COFINS NA CRIAÇÃO DA DI
----------------------------------------------------------------------------------------------------
ADMISSÃO TEMPORÁRIA ARTIGO 373
----------------------------------------------------------------------------------------------------
Palavras Chave:
ADMISSÃO - TEMPORÁRIA - ARTIGO - 373 - IMPOSTOS - 1 - CALCULO
/PWS/SAPMZYCI023 - /PWS/SAPMZYCI058 - /PWS/SAPMZYCI001
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI001I01
REPS /PWS/MZYCI023F01
REPS /PWS/MZYCI023F02
REPS /PWS/MZYCI023F03
REPS /PWS/MZYCI023F04
REPS /PWS/MZYCI023F05
REPS /PWS/MZYCI023I01
REPS /PWS/MZYCI023O01
REPS /PWS/MZYCI023OO
REPS /PWS/MZYCI023TOP
REPS /PWS/MZYCI023X01
REPS /PWS/MZYCI058F01
REPS /PWS/MZYCI058F03
REPS /PWS/MZYCI058F04
REPS /PWS/MZYCI058X01
REPS /PWS/SAPMZYCI058
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI001I01
...
MODULE mod_374 INPUT.
READ TABLE itab_zycit003 WITH KEY ebeln = /pws/zycie374-ebeln
ebelp = /pws/zycie374-ebelp.
* >> Início da exclusão: MODULE MOD_374
IF NOT /pws/zycie374-tp_vida_util IS INITIAL AND
NOT /pws/zycie374-tp_perman IS INITIAL.
* << Fim da exclusão
SELECT SINGLE nrseq FROM /pws/zycit100 "#EC CI_NOFIRST
INTO itab_zycit003-nrseq
WHERE nrseq EQ /pws/zycie001-nrseq.
IF sy-subrc EQ 0.
EXIT.
ENDIF.
* >> Início da exclusão: MODULE MOD_374
itab_zycit003-advalii = itab_zycit003-aliqii *
( 1 - ( ( 12 * /pws/zycie374-tp_vida_util -
/pws/zycie374-tp_perman )
/ ( 12 * /pws/zycie374-tp_vida_util ) ) ).
itab_zycit003-advalipi = itab_zycit003-aliqipi *
( 1 - ( ( 12 * /pws/zycie374-tp_vida_util -
/pws/zycie374-tp_perman )
/ ( 12 * /pws/zycie374-tp_vida_util ) ) ).
itab_zycit003-advalicms = itab_zycit003-aliqicms *
( 1 - ( ( 12 * /pws/zycie374-tp_vida_util -
/pws/zycie374-tp_perman )
/ ( 12 * /pws/zycie374-tp_vida_util ) ) ).
ELSE.
SELECT SINGLE nrseq FROM /pws/zycit100 "#EC CI_NOFIRST
INTO itab_zycit003-nrseq
WHERE nrseq EQ /pws/zycie001-nrseq.
IF sy-subrc EQ 0.
EXIT.
ENDIF.
* << Fim da exclusão
CLEAR: itab_zycit003.
* >> Início da exclusão: MODULE MOD_374
ENDIF.
* << Fim da exclusão
MODIFY itab_zycit003 TRANSPORTING advalii advalipi advalicms
WHERE ebeln = /pws/zycie374-ebeln
AND ebelp = /pws/zycie374-ebelp.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
FORM load_iii USING p_tipo.
IF /pws/zycie093-meiotransp = 'PS'
AND /pws/zycie085-tpdi EQ 'S'
AND /pws/zycie003-advalii IS INITIAL.
/pws/zycie003-advalii = '60'.
ENDIF.
t_iibas = t_ivadu.
* >> Início da inclusão: FORM LOAD_III
a_iicalc = ( ( /pws/zycie003-advalii / 100 ) * t_iibas ).
* << Fim da inclusão
IF itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12'.
* >> Início da exclusão: FORM LOAD_III
a_iicalc = ( ( /pws/zycie003-advalii / 100 ) * t_iibas ).
v_iiadm = ( ( /pws/zycie003-aliqii / 100 ) * t_iibas ).
ELSE.
a_iicalc = ( ( /pws/zycie003-advalii / 100 ) * t_iibas ).
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_III
READ TABLE itab_zycit374 WITH KEY
nrseq = itab_it-nrseq
ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
v_iiadm = a_iicalc = ( a_iicalc * ( 1 / 100 ) ) *
itab_zycit374-tp_perman.
* << Fim da inclusão
ENDIF.
IF NOT /pws/zycie100a-reduzida IS INITIAL.
a_iiredu = ( ( /pws/zycie100a-reduzida / 100 ) * t_iibas ).
ELSE.
CLEAR: a_iiredu.
ENDIF.
a_iiacor = ( ( /pws/zycie100a-acordorate / 100 ) * t_iibas ).
CLEAR: t_iirec.
CASE /pws/zycie100a-codregtri.
WHEN '1' OR '3' OR '4' OR '5' OR '7' OR '8'.
...
...
ELSE.
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.
* >> Início da inclusão: FORM LOAD_III
ENDIF.
IF /pws/zycie100a-codregtri CA '35'.
CLEAR: t_iirec.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM LOAD_III
ENDIF.
ENDCASE.
* << Fim da inclusão
itab_it-vlii = t_iirec.
* >> Início da exclusão: FORM LOAD_III
IF /pws/zycie100a-codregtri CA '35'.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_III
IF itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12'.
* << 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.
* >> Início da exclusão: FORM LOAD_III
ENDIF.
ENDCASE.
* << Fim da exclusão
itab_it-baseii = t_iibas.
itab_it-ii_calculado = a_iicalc.
itab_it-ii_reduzido = a_iiredu.
itab_it-ii_devido = a_iidevi.
itab_it-ii_recolher = t_iirec .
ENDFORM.
...
...
ENDIF.
ENDIF.
t_ipibas = ( v_ivadud + v_casasd ).
ELSE.
IF '56' CA itab_it-codregtri .
t_ipibas = ( t_ivadu + itab_it-ii_calculado ).
ELSE.
t_ipibas = ( t_ivadu + t_iirec ).
ENDIF.
ENDIF.
* >> Início da inclusão: FORM LOAD_IIPI
a_ipidevi = ( ( /pws/zycie003-advalipi / 100 ) * t_ipibas ).
* << Fim da inclusão
IF itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12'.
* >> Início da exclusão: FORM LOAD_IIPI
a_ipidevi = ( ( /pws/zycie003-advalipi / 100 ) * t_ipibas ) .
v_ipiadm = ( ( /pws/zycie003-aliqipi / 100 ) * t_ipibas ).
ELSE.
a_ipidevi = ( ( /pws/zycie003-advalipi / 100 ) * t_ipibas ).
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IIPI
v_ipiadm = a_ipidevi = ( a_ipidevi * ( 1 / 100 ) ) *
itab_zycit374-tp_perman .
* << Fim da inclusão
ENDIF.
IF v_dit = 'N'.
IF /pws/zycie100a-codregtriipi NE '1' AND
/pws/zycie003-advalipi IS INITIAL.
a_ipidevi = ( /pws/zycie100a-unit_valor *
/pws/zycie100a-unit_qtde ).
ENDIF.
IF /pws/zycie100a-codregtriipi EQ '4'.
a_ipidevi = ( ( /pws/zycie100a-reduzidaipi / 100 ) * t_ipibas ).
ENDIF.
...
...
s_wipidevi = s_wipidevi + a_ipidevi.
ENDIF.
ENDIF.
ELSE.
IF ' 35' NA /pws/zycie100a-codregtri AND
/pws/zycie085-ntimp NE '09' AND
/pws/zycie085-ntimp NE '11'.
t_ipirec = a_ipidevi.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM LOAD_IIPI
IF itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12'.
CLEAR t_ipirec.
ENDIF.
* << Fim da inclusão
itab_it-baseipi = t_ipibas.
itab_it-ipi_devido = a_ipidevi.
itab_it-ipi_recolher = t_ipirec .
ENDFORM.
...
...
SELECT * FROM /pws/zycit115 INTO TABLE itab_zycit115
WHERE nrseqdi = /pws/zycie085-nrseqdi.
SELECT * FROM /pws/zycit116 INTO TABLE itab_zycit116
WHERE nrseqdi = /pws/zycie085-nrseqdi.
SELECT * FROM /pws/zycit118 INTO TABLE itab_zycit118
WHERE nrseqdi = /pws/zycie085-nrseqdi.
SELECT * FROM /pws/zycit121 INTO TABLE itab_zycit121
WHERE nrseqdi = /pws/zycie085-nrseqdi.
SELECT * FROM /pws/zycit124 INTO TABLE itab_zycit124
WHERE nrseqdi = /pws/zycie085-nrseqdi.
* >> Início da exclusão: FORM LOADING_ALL
MOVE: itab_zycit049[] TO itab_zycit049a[],
* << Fim da exclusão
* >> Início da inclusão: FORM LOADING_ALL
MOVE:
* << Fim da inclusão
itab_zycit086[] TO itab_zycit086a[],
itab_zycit087[] TO itab_zycit087a[],
itab_zycit096[] TO itab_zycit096a[],
itab_zycit114[] TO itab_zycit114a[],
itab_zycit115[] TO itab_zycit115a[],
itab_zycit116[] TO itab_zycit116a[],
itab_zycit118[] TO itab_zycit118a[],
itab_zycit121[] TO itab_zycit121a[],
itab_zycit124[] TO itab_zycit124a[],
itab_zycit485[] TO itab_zycit485a[],
...
...
* >> Início da exclusão: FORM FILL_ITABIT
DATA: wa_zycit405 LIKE /pws/zycit405 ,
wa_zycit406 LIKE /pws/zycit406 ,
wa_zycit407 LIKE /pws/zycit407 .
DATA: v_matnr LIKE mara-matnr.
* << Fim da exclusão
...
...
IF NOT itab_it[] IS INITIAL.
SELECT ebeln inco1 FROM ekko INTO TABLE itab_inco
FOR ALL ENTRIES IN itab_it
WHERE ebeln EQ itab_it-ebeln.
ENDIF.
* >> Início da exclusão: FORM FILL_ITABIT
CLEAR : wa_zycit405, wa_zycit406, wa_zycit407, v_matnr.
* << Fim da exclusão
IF NOT itab_zycit003[] IS INITIAL.
SELECT * FROM /pws/zycit013 INTO TABLE itab_zycit013
FOR ALL ENTRIES IN itab_zycit003
WHERE ebeln = itab_zycit003-ebeln AND
ebelp = itab_zycit003-ebelp.
SELECT * FROM /pws/zycit263 INTO TABLE itab_zycit263
FOR ALL ENTRIES IN itab_zycit003 WHERE
nrseq = itab_zycit003-nrseq AND
ebeln = itab_zycit003-ebeln AND
ebelp = itab_zycit003-ebelp AND
...
...
ELSE.
READ TABLE itab_zycit407 WITH KEY tributos = 'PIS'.
IF sy-subrc EQ 0.
itab_it-basredpis = itab_zycit407-basred .
itab_it-pis_alorig =
itab_it-advalpis = itab_zycit407-aliquotas.
ELSE.
itab_it-basredpis = itab_it-advalpis.
CLEAR : itab_it-advalpis,
itab_it-vlpis .
* >> Início da exclusão: FORM FILL_ITABIT
ENDIF.
* << Fim da exclusão
ENDIF.
ENDIF.
* >> Início da exclusão: FORM FILL_ITABIT
ENDIF.
IF itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12'.
READ TABLE itab_zycit374 WITH KEY
nrseq = itab_it-nrseq
ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
IF sy-subrc EQ 0
AND NOT itab_zycit374-tp_vida_util IS INITIAL.
itab_it-advalpis =
( ( ( itab_it-advalpis / 100 ) * itab_zycit374-tp_perman *
( 1 + ( itab_it-aliqii / 100 ) + ( itab_it-aliqipi / 100 ) ) ) /
( 12 * itab_zycit374-tp_vida_util +
( ( ( itab_it-aliqii / 100 ) + ( itab_it-aliqipi / 100 ) ) *
itab_zycit374-tp_perman ) ) ) * 100 .
* << Fim da exclusão
ENDIF.
ENDIF.
IF itab_it-basredcof IS INITIAL.
READ TABLE itab_zycit406
WITH KEY matnr = itab_zycit003-matnr
regime = itab_zycit001-regime
tributos = 'COFINS'.
IF sy-subrc EQ 0.
itab_it-basredcof = itab_zycit406-basred .
itab_it-cof_alorig =
...
...
ELSE.
READ TABLE itab_zycit407 WITH KEY tributos = 'COFINS'.
IF sy-subrc EQ 0.
itab_it-basredcof = itab_zycit407-basred .
itab_it-cof_alorig =
itab_it-advalcofins = itab_zycit407-aliquotas.
ELSE.
itab_it-basredcof = itab_it-advalcofins.
CLEAR : itab_it-advalcofins,
itab_it-vlcofins .
* >> Início da exclusão: FORM FILL_ITABIT
ENDIF.
* << Fim da exclusão
ENDIF.
ENDIF.
* >> Início da exclusão: FORM FILL_ITABIT
ENDIF.
IF itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12'.
READ TABLE itab_zycit374 WITH KEY
nrseq = itab_it-nrseq
ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
IF sy-subrc EQ 0
AND NOT itab_zycit374-tp_vida_util IS INITIAL.
itab_it-advalcofins =
( ( ( itab_it-advalcofins / 100 ) * itab_zycit374-tp_perman *
( 1 + ( itab_it-aliqii / 100 ) + ( itab_it-aliqipi / 100 ) ) ) /
( 12 * itab_zycit374-tp_vida_util +
( ( ( itab_it-aliqii / 100 ) + ( itab_it-aliqipi / 100 ) ) *
itab_zycit374-tp_perman ) ) ) * 100 .
* << Fim da exclusão
ENDIF.
ENDIF.
ENDIF.
IF itab_it-pis_alorig IS INITIAL.
itab_it-pis_alorig = itab_it-advalpis.
ENDIF.
IF itab_it-cof_alorig IS INITIAL.
itab_it-cof_alorig = itab_it-advalcofins .
ENDIF.
READ TABLE itab_zycit078 WITH KEY
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
...
t_ivdesp = t_ivdesp + v_desp .
ELSE.
t_ivdesp = t_ivdesp + v_sisco3.
ENDIF.
IF NOT /pws/zycie100a-reduzida IS INITIAL.
v_advii = ( /pws/zycie100a-reduzida / 100 ).
ELSE.
IF NOT /pws/zycie100a-acordo IS INITIAL.
v_advii = ( /pws/zycie100a-acordorate / 100 ).
ELSE.
* >> Início da exclusão: FORM LOAD_IICMS
IF itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12'.
v_advii = ( /pws/zycie003-aliqii / 100 ).
ELSE.
* << Fim da exclusão
v_advii = ( /pws/zycie003-advalii / 100 ).
* >> Início da exclusão: FORM LOAD_IICMS
ENDIF.
* << Fim da exclusão
ENDIF.
ENDIF.
IF NOT /pws/zycie100a-reduzidaipi IS INITIAL.
v_advipi = ( /pws/zycie100a-reduzidaipi / 100 ).
ELSE.
* >> Início da exclusão: FORM LOAD_IICMS
IF itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12'.
v_advipi = ( /pws/zycie003-aliqipi / 100 ).
ELSE.
* << Fim da exclusão
v_advipi = ( /pws/zycie003-advalipi / 100 ).
* >> Início da exclusão: FORM LOAD_IICMS
ENDIF.
* << Fim da exclusão
ENDIF.
IF /pws/zycit062-bs_pis_cof IS INITIAL.
IF NOT /pws/zycie003-basred IS INITIAL AND
NOT /pws/zycie003-basred EQ '100'.
* >> Início da exclusão: FORM LOAD_IICMS
IF itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12'.
v_advicms = ( ( /pws/zycie003-aliqicms / 100 ) *
( /pws/zycie003-basred / 100 ) ) .
ELSE.
* << Fim da exclusão
v_advicms = ( ( /pws/zycie003-advalicms / 100 ) *
( /pws/zycie003-basred / 100 ) ) .
* >> Início da exclusão: FORM LOAD_IICMS
ENDIF.
* << Fim da exclusão
v_trunc = v_advicms.
v_advicms = v_trunc.
* >> Início da exclusão: FORM LOAD_IICMS
ELSE.
IF itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12'.
v_advicms = ( /pws/zycie003-aliqicms / 100 ).
* << Fim da exclusão
ELSE.
v_advicms = ( /pws/zycie003-advalicms / 100 ).
ENDIF.
* >> Início da exclusão: FORM LOAD_IICMS
ENDIF.
ELSE.
IF itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12'.
v_advicms = ( /pws/zycie003-aliqicms / 100 ).
* << Fim da exclusão
ELSE.
v_advicms = ( /pws/zycie003-advalicms / 100 ).
ENDIF.
* >> Início da exclusão: FORM LOAD_IICMS
ENDIF.
IF itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12'.
v_advpis = ( /pws/zycie100a-pis_alorig / 100 ).
v_advcof = ( /pws/zycie100a-cof_alorig / 100 ).
ELSE.
* << Fim da exclusão
v_advpis = ( /pws/zycie100a-advalpis / 100 ).
v_advcof = ( /pws/zycie100a-advalcofins / 100 ).
* >> Início da exclusão: FORM LOAD_IICMS
ENDIF.
* << Fim da exclusão
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI023'
'DI007'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'DI007' BINARY SEARCH.
...
...
FORM verifica_li.
SELECT * INTO TABLE itab_gforn
FROM /pws/zycit235. "#EC CI_NOWHERE
* >> Início da exclusão: FORM VERIFICA_LI
IF NOT itab_gforn[] IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_LI
READ TABLE itab_gforn INDEX 1.
IF sy-subrc EQ 0.
* << Fim da inclusão
SELECT lifnr ktokk INTO TABLE itab_lfa1
FROM lfa1
FOR ALL ENTRIES IN itab_gforn
WHERE ktokk EQ itab_gforn-ktokk. "#EC CI_NOFIELD
ENDIF.
SELECT * INTO TABLE itab_gped
FROM /pws/zycit236. "#EC CI_NOWHERE
* >> Início da exclusão: FORM VERIFICA_LI
IF NOT itab_gped[] IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_LI
READ TABLE itab_gped INDEX 1.
IF sy-subrc EQ 0.
* << Fim da inclusão
SELECT ebeln bsart
INTO TABLE itab_ekko
FROM ekko
FOR ALL ENTRIES IN itab_gped
WHERE bsart = itab_gped-bsart. "#EC CI_NOFIELD
ENDIF.
IF NOT itab_ekpo[] IS INITIAL.
SELECT * FROM /pws/zycit234
INTO TABLE itab_zycit234
FOR ALL ENTRIES IN itab_ekpo
...
...
ENDLOOP.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-225.
ENDIF.
SELECT * FROM /pws/zycbt117
INTO TABLE itab_zycbt117
FOR ALL ENTRIES IN itab_zycit003
WHERE ebeln = itab_zycit003-ebeln
AND slpgant > 0
AND status NE 'E'. "#EC CI_NOFIELD
* >> Início da inclusão: FORM SALVA_FATURA
READ TABLE itab_zycbt117 INDEX 1.
* << Fim da inclusão
IF sy-subrc EQ 0.
MESSAGE i015 WITH text-224.
ENDIF.
ELSE.
SELECT SINGLE belnr_p FROM /pws/zycit006
INTO v_belnr_p
WHERE nrseq EQ /pws/zycie006-nrseq.
IF v_belnr_p IS INITIAL.
MESSAGE i015 WITH text-206 text-207.
ELSE.
MESSAGE i015 WITH text-225.
SELECT * FROM /pws/zycbt117
INTO TABLE itab_zycbt117
FOR ALL ENTRIES IN itab_zycit003
WHERE ebeln = itab_zycit003-ebeln
AND slpgant > 0
AND status NE 'E'. "#EC CI_NOFIELD
* >> Início da inclusão: FORM SALVA_FATURA
READ TABLE itab_zycbt117 INDEX 1.
* << Fim da inclusão
IF sy-subrc EQ 0.
MESSAGE i015 WITH text-224.
ENDIF.
ENDIF.
itab_zycit006-belnr_p = v_belnr_p.
MODIFY itab_zycit006.
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F04
...
itab_it-basepis .
IF /pws/zycie100a-basredpis >= '100'.
/pws/zycie100a-basredpis = '0'.
ENDIF.
IF /pws/zycie100a-basredcof >= '100'.
/pws/zycie100a-basredcof = '0'.
ENDIF.
IF /pws/zycie100a-codregtri EQ '4'.
v_advii = /pws/zycie100a-reduzida / 100 .
IF /pws/zycie100a-reduzida IS INITIAL.
* >> Início da exclusão: FORM MP_NOVA
IF itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12'.
v_advii = /pws/zycie003-aliqii / 100 .
ELSE.
* << Fim da exclusão
v_advii = /pws/zycie003-advalii / 100 .
* >> Início da exclusão: FORM MP_NOVA
ENDIF.
* << Fim da exclusão
ENDIF.
ELSEIF /pws/zycie100a-codregtri EQ '3' .
CLEAR v_advii.
ENDIF.
IF /pws/zycie100a-codregtriipi EQ '2'.
v_advipi = /pws/zycie100a-reduzidaipi / 100.
IF /pws/zycie100a-reduzidaipi IS INITIAL.
* >> Início da exclusão: FORM MP_NOVA
IF itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12'.
v_advipi = /pws/zycie003-aliqipi / 100.
ELSE.
* << Fim da exclusão
v_advipi = /pws/zycie003-advalipi / 100.
* >> Início da exclusão: FORM MP_NOVA
ENDIF.
* << Fim da exclusão
ENDIF.
ELSEIF /pws/zycie100a-codregtriipi EQ '4' AND
/pws/zycie003-advalipi IS INITIAL.
IF NOT itab_it-baseipi IS INITIAL.
v_advipi = itab_it-ipi_recolher / itab_it-baseipi .
ENDIF.
...
...
NOT /pws/zycie100a-unit_qtde IS INITIAL ).
v_advipi = itab_it-ipi_recolher / itab_it-baseipi .
CLEAR /pws/zycie003-advalipi.
ENDIF.
ENDIF.
ENDIF.
CASE /pws/zycie100a-codregtripiscofi.
WHEN '4'.
IF /pws/zycie100a-basredpis IS INITIAL OR
/pws/zycie100a-basredpis GT '100' .
* >> Início da exclusão: FORM MP_NOVA
IF ( itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12' ) AND
NOT /pws/zycie100a-pis_alorig IS INITIAL.
v_pisred = ( /pws/zycie100a-pis_alorig / 100 ).
ELSE.
* << Fim da exclusão
v_pisred = ( /pws/zycie100a-advalpis / 100 ).
* >> Início da exclusão: FORM MP_NOVA
ENDIF.
* << Fim da exclusão
ELSE.
v_pisred = ( /pws/zycie100a-basredpis / 100 ).
ENDIF.
IF /pws/zycie100a-basredcof IS INITIAL OR
/pws/zycie100a-basredcof GT '100'.
IF ( itab_zycit001-regime EQ '05' OR
...
...
FORM calc_piscofins.
CLEAR: a_piscalc, a_pisredu, a_pisdevi, a_pisrec,
a_cofcalc, a_cofredu, a_cofdevi, a_cofrec.
* >> Início da exclusão: FORM CALC_PISCOFINS
IF itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12'.
READ TABLE itab_zycit374 WITH KEY
nrseq = itab_it-nrseq
ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
ENDIF.
* << Fim da exclusão
CASE /pws/zycie100a-codregtripiscofi.
WHEN '3' OR '5' OR '6' .
* >> Início da exclusão: FORM CALC_PISCOFINS
a_piscalc =
( ( /pws/zycie100a-advalpis / 100 ) * /pws/zycie100a-basepis ).
a_cofcalc =
( ( /pws/zycie100a-advalcofins / 100 )
* /pws/zycie100a-basecofins ) .
* << Fim da exclusão
IF /pws/zycie100a-advalpis IS INITIAL AND
NOT /pws/zycie100a-aliqpis IS INITIAL.
* >> Início da exclusão: FORM CALC_PISCOFINS
a_piscalc =
( ( /pws/zycie100a-aliqpis / 100 ) * /pws/zycie100a-basepis ).
ENDIF.
IF /pws/zycie100a-advalcofins IS INITIAL AND
NOT /pws/zycie100a-aliqcof IS INITIAL.
a_cofcalc =
( ( /pws/zycie100a-aliqcof / 100 )
* /pws/zycie100a-basecofins ) .
ENDIF.
IF /pws/zycie100a-aliqpis IS INITIAL.
a_pisdevi =
( ( /pws/zycie100a-advalpis / 100 ) * /pws/zycie100a-basepis ).
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_PISCOFINS
a_piscalc = a_pisdevi = ( ( /pws/zycie100a-aliqpis / 100 ) *
/pws/zycie100a-basepis ).
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FORM CALC_PISCOFINS
a_pisdevi =
( ( /pws/zycie100a-aliqpis / 100 ) * /pws/zycie100a-basepis ).
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_PISCOFINS
a_piscalc = a_pisdevi = ( ( /pws/zycie100a-advalpis / 100 ) *
/pws/zycie100a-basepis ).
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: FORM CALC_PISCOFINS
IF /pws/zycie100a-aliqcof IS INITIAL.
a_cofdevi =
( ( /pws/zycie100a-advalcofins / 100 )
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_PISCOFINS
IF /pws/zycie100a-advalpis IS INITIAL AND
NOT /pws/zycie100a-aliqpis IS INITIAL.
a_cofcalc = a_cofdevi = ( ( /pws/zycie100a-aliqcof / 100 )
* << Fim da inclusão
* /pws/zycie100a-basecofins ) .
ELSE.
* >> Início da exclusão: FORM CALC_PISCOFINS
a_cofdevi =
( ( /pws/zycie100a-aliqcof / 100 )
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_PISCOFINS
a_cofcalc = a_cofdevi = ( ( /pws/zycie100a-advalcofins / 100 )
* << Fim da inclusão
* /pws/zycie100a-basecofins ) .
* >> Início da inclusão: FORM CALC_PISCOFINS
ENDIF.
IF itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12'.
a_piscalc = a_pisdevi = ( a_pisdevi * ( 1 / 100 ) ) *
itab_zycit374-tp_perman.
a_cofcalc = a_cofdevi = ( a_cofdevi * ( 1 / 100 ) ) *
itab_zycit374-tp_perman.
* << Fim da inclusão
ENDIF.
CLEAR : t_pis, a_pisredu , t_cofins , a_cofredu.
WHEN '4'.
IF /pws/zycie100a-basredpis IS INITIAL OR
/pws/zycie100a-basredpis GT '100' .
IF itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12'.
* >> Início da exclusão: FORM CALC_PISCOFINS
v_pisadm = t_pis = a_pisdevi = a_pisredu =
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_PISCOFINS
v_pisadm = a_pisdevi = a_pisredu =
* << Fim da inclusão
( /pws/zycie100a-pis_alorig / 100 ) *
/pws/zycie100a-basepis.
ELSE.
t_pis = a_pisdevi = a_pisredu =
( /pws/zycie100a-advalpis / 100 ) *
/pws/zycie100a-basepis.
ENDIF.
ELSE.
t_pis = a_pisdevi = a_pisredu =
( /pws/zycie100a-basredpis / 100 ) *
/pws/zycie100a-basepis.
ENDIF.
IF /pws/zycie100a-basredcof IS INITIAL OR
/pws/zycie100a-basredcof GT '100'.
* >> Início da exclusão: FORM CALC_PISCOFINS
IF itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12'.
v_cofadm = t_cofins = a_cofredu = a_cofdevi =
( /pws/zycie100a-cof_alorig / 100 ) *
/pws/zycie100a-basecofins.
ELSE.
* << Fim da exclusão
t_cofins = a_cofredu = a_cofdevi =
( /pws/zycie100a-advalcofins / 100 ) *
/pws/zycie100a-basecofins.
* >> Início da exclusão: FORM CALC_PISCOFINS
ENDIF.
* << Fim da exclusão
ELSE.
t_cofins = a_cofredu = a_cofdevi =
( /pws/zycie100a-basredcof / 100 ) *
/pws/zycie100a-basecofins.
ENDIF.
IF itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12'.
* >> Início da exclusão: FORM CALC_PISCOFINS
t_pis = ( t_pis * itab_zycit374-tp_perman ) /
( 12 * itab_zycit374-tp_vida_util ).
t_cofins = ( t_cofins * itab_zycit374-tp_perman ) /
( 12 * itab_zycit374-tp_vida_util ).
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_PISCOFINS
v_cofadm = a_cofredu = a_cofdevi =
( a_cofdevi * ( 1 / 100 ) ) * itab_zycit374-tp_perman.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: FORM CALC_PISCOFINS
IF itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12'.
v_advpis = /pws/zycie100a-pis_alorig / 100 .
v_advcof = /pws/zycie100a-cof_alorig / 100 .
ELSE.
* << Fim da exclusão
v_advpis = /pws/zycie100a-advalpis / 100 .
v_advcof = /pws/zycie100a-advalcofins / 100 .
* >> Início da exclusão: FORM CALC_PISCOFINS
ENDIF.
* << Fim da exclusão
v_calcpc = ( t_ivadu * ( ( 1 + v_advicms * ( v_advii + v_advipi *
( 1 + v_advii ) ) ) / ( ( 1 - v_advpis - v_advcof ) *
( 1 - v_advicms ) ) ) ).
a_piscalc = v_advpis * v_calcpc .
a_cofcalc = v_advcof * v_calcpc.
WHEN '2' .
CLEAR: a_piscalc, a_pisredu, a_pisdevi, a_pisrec,
a_cofcalc, a_cofredu, a_cofdevi, a_cofrec,
t_pis, t_cofins .
WHEN OTHERS.
a_piscalc = ( /pws/zycie100a-advalpis / 100 ) *
/pws/zycie100a-basepis .
a_cofcalc = ( /pws/zycie100a-advalcofins / 100 )
* /pws/zycie100a-basecofins .
IF /pws/zycie100a-aliqpis IS INITIAL.
* >> Início da exclusão: FORM CALC_PISCOFINS
IF itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12'.
v_pisadm = t_pis = a_pisdevi =
( ( /pws/zycie100a-pis_alorig / 100 )
* /pws/zycie100a-basepis ) .
ELSE.
* << Fim da exclusão
t_pis = a_pisdevi =
( ( /pws/zycie100a-advalpis / 100 )
* /pws/zycie100a-basepis ) .
* >> Início da exclusão: FORM CALC_PISCOFINS
ENDIF.
* << Fim da exclusão
ELSE.
t_pis = a_pisdevi =
( ( /pws/zycie100a-aliqpis / 100 )
* /pws/zycie100a-basepis ) .
ENDIF.
* >> Início da exclusão: FORM CALC_PISCOFINS
IF /pws/zycie100a-aliqcof IS INITIAL.
* << Fim da exclusão
IF itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12'.
* >> Início da exclusão: FORM CALC_PISCOFINS
v_cofadm = t_cofins = a_cofdevi =
( ( /pws/zycie100a-cof_alorig / 100 )
* /pws/zycie100a-basecofins ) .
ELSE.
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_PISCOFINS
v_pisadm = a_pisdevi =
( a_pisdevi * ( 1 / 100 ) ) * itab_zycit374-tp_perman.
ENDIF.
IF /pws/zycie100a-aliqcof IS INITIAL.
* << Fim da inclusão
t_cofins = a_cofdevi =
( ( /pws/zycie100a-advalcofins / 100 )
* /pws/zycie100a-basecofins ) .
* >> Início da exclusão: FORM CALC_PISCOFINS
ENDIF.
* << Fim da exclusão
ELSE.
t_cofins = a_cofdevi =
( ( /pws/zycie100a-aliqcof / 100 )
* /pws/zycie100a-basecofins ) .
ENDIF.
IF itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12'.
* >> Início da exclusão: FORM CALC_PISCOFINS
t_pis = ( t_pis * itab_zycit374-tp_perman ) /
( 12 * itab_zycit374-tp_vida_util ).
t_cofins = ( t_cofins * itab_zycit374-tp_perman ) /
( 12 * itab_zycit374-tp_vida_util ).
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_PISCOFINS
a_cofdevi =
( a_cofdevi * ( 1 / 100 ) ) * itab_zycit374-tp_perman.
* << Fim da inclusão
ENDIF.
ENDCASE.
* >> Início da inclusão: FORM CALC_PISCOFINS
IF itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12'.
CLEAR: t_pis, t_cofins.
ENDIF.
* << Fim da inclusão
itab_it-pis_calculado = a_piscalc.
itab_it-pis_reduzido = a_pisredu.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F05
FORM load_mercosul.
IF itab_zycit107[] IS INITIAL.
IF NOT itab_it[] IS INITIAL.
SELECT ebeln bsart lifnr FROM ekko
INTO TABLE itab_ekko_aux[]
FOR ALL ENTRIES IN itab_it
WHERE ebeln EQ itab_it-ebeln.
* >> Início da inclusão: FORM LOAD_MERCOSUL
READ TABLE itab_ekko_aux INDEX 1.
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT lifnr land1 ktokk FROM lfa1
INTO TABLE itab_lfa1_aux
FOR ALL ENTRIES IN itab_ekko_aux[]
WHERE lifnr = itab_ekko_aux-lifnr.
* >> Início da inclusão: FORM LOAD_MERCOSUL
READ TABLE itab_ekko_aux INDEX 1.
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycit107
INTO TABLE itab_zycit107
FOR ALL ENTRIES IN itab_lfa1_aux
WHERE land1 = itab_lfa1_aux-land1
AND mercosul = 'X'.
* >> Início da inclusão: FORM LOAD_MERCOSUL
READ TABLE itab_zycit107 INDEX 1.
* << Fim da inclusão
IF sy-subrc = 0.
v_mercosul = 'X'.
ELSE.
CLEAR v_mercosul.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
...
...
FORM calcula_admtemp.
* >> Início da exclusão: FORM CALCULA_ADMTEMP
t_icmsbspro = ( v_ivadud * ( 1 - ( 12 *
itab_zycit374-tp_vida_util - itab_zycit374-tp_perman ) /
( 12 * itab_zycit374-tp_vida_util ) ) ) + v_vliirec +
v_vlipirec + t_ivdesp + v_vlcofrec + v_vlpisrec .
t_icmsbs_d2 = t_icmsbs = ( v_ivadud + v_iiadm + v_ipiadm +
t_ivdesp + v_pisadm + v_cofadm ) .
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_ADMTEMP
t_icmsbspro = t_icmsbs_d2 = t_icmsbs = ( v_ivadud + v_iiadm +
v_ipiadm + t_ivdesp + v_pisadm + v_cofadm ) .
* << Fim da inclusão
t_icmsx = ( 1 - v_advicms ) .
t_icmsbs = ( t_icmsbs / t_icmsx ).
IF /pws/zycit062-susp_nf EQ 'S' .
IF '56' CA /pws/zycie100a-codregtri .
t_icmsbs_d2 = t_icmsbs =
t_icmsbs - v_iiadm.
ENDIF.
IF '56' CA /pws/zycie100a-codregtriipi .
t_icmsbs_d2 = t_icmsbs =
t_icmsbs - v_ipiadm.
...
...
* >> Início da exclusão: FORM TRATA_POSICAO
FORM trata_posicao.
LOOP AT itab_it WHERE ebelp IN so_ebp
AND ebeln IN so_ebn
AND descr IN so_denom
AND qtd_iten IN so_qtd
AND matnr IN so_matn
AND j_1bnbm IN so_ncm
AND lifnr IN so_lif.
v_tabix = sy-tabix.
ENDLOOP.
IF sy-subrc = 0.
tc_item-top_line = v_tabix.
LEAVE TO SCREEN 0 .
ELSE.
MESSAGE s015 WITH text-258.
ENDIF.
ENDFORM.
* << Fim da exclusão
...
...
* >> Início da exclusão: FORM SAVE_DATA_ITEM_DRAFT
FORM save_data_item_draft.
LOOP AT itab_it.
READ TABLE rtexti INDEX 1.
MOVE itab_it-especificacao TO rtexti-tdline.
MODIFY rtexti INDEX 1.
CONCATENATE /pws/zycie085-nrseqdi
itab_it-nrseq
itab_it-ebeln
itab_it-ebelp
INTO v_txtki.
xtheadi-tdobject = '/PWS/CIDDI'.
xtheadi-tdname = v_txtki.
xtheadi-tdid = 'ZDSI'.
xtheadi-tdspras = sy-langu.
xtheadi-tdlinesize = 072.
CALL FUNCTION 'SAVE_TEXT'
EXPORTING
header = xtheadi
insert = 'X'
savemode_direct = 'X'
owner_specified = 'X'
TABLES
lines = rtexti
EXCEPTIONS
id = 1
language = 2
name = 3
object = 4
OTHERS = 5.
IF sy-subrc NE 0.
CALL FUNCTION 'SAVE_TEXT'
EXPORTING
header = xtheadi
insert = ' '
savemode_direct = 'X'
owner_specified = 'X'
TABLES
lines = rtexti
EXCEPTIONS
id = 1
language = 2
name = 3
object = 4
OTHERS = 5.
IF sy-subrc <> 0.
EXIT .
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
* << Fim da exclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023I01
...
MODULE user_command_0050 INPUT.
* >> Início da exclusão: MODULE USER_COMMAND_0050
DATA: vl_erro TYPE c.
DATA: v_seqdi LIKE /pws/zycie085-nrseqdi.
DATA:
e_exec_okcode.
* << Fim da exclusão
...
...
WHEN 'ADM'.
PERFORM: comm_adm.
WHEN 'TRANSM'.
PERFORM: comm_send.
IF v_transm NE 'N'.
PERFORM send.
ENDIF.
WHEN 'VERIFY'.
PERFORM: verify_transm.
WHEN 'MODO'.
* >> Início da exclusão: MODULE USER_COMMAND_0050
DATA: v_autoriza TYPE c.
* << Fim da exclusão
CALL FUNCTION '/PWS/ZYGL_AUTORIZA_MODO_BATCH'
EXPORTING
codmod = 'D'
usuario = sy-uname
func = 'DI'
IMPORTING
autoriza = v_autoriza.
IF v_autoriza = 'X'.
PERFORM modo_batch_input.
ELSE.
...
...
MODULE user_command_0231 INPUT.
* >> Início da exclusão: MODULE USER_COMMAND_0231
DATA: itab_zycit118_aux TYPE /pws/zycie118 OCCURS 0 WITH HEADER LINE,
itab_zycit114_aux TYPE /pws/zycie114 OCCURS 0 WITH HEADER LINE.
* << Fim da exclusão
...
...
MODULE user_command_drill_down INPUT.
* >> Início da exclusão: MODULE USER_COMMAND_DRILL_DOWN
DATA v_year TYPE t009b-bdatj.
DATA: v_zeros(10) VALUE '0000000000'.
* << Fim da exclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023O01
...
MODULE verif_nf OUTPUT.
* >> Início da exclusão: MODULE VERIF_NF
DATA: itab_zycit042 LIKE /pws/zycit042 OCCURS 0 WITH HEADER LINE.
"#EC NEEDED
* << Fim da exclusão
...
...
MODULE load_qtd_pedido OUTPUT.
* >> Início da exclusão: MODULE LOAD_QTD_PEDIDO
DATA v_qtd_iten LIKE /pws/zycie003-qtd_itend.
* << Fim da exclusão
...
...
MODULE status_0050 OUTPUT.
* >> Início da exclusão: MODULE STATUS_0050
DATA: v_nrseq LIKE /pws/zycit094-nrseq,
v_nrseqce LIKE /pws/zycit093-nrseqce.
* << Fim da exclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023X01
...
* >> Início da exclusão:
DATA: BEGIN OF itab_contas_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe035.
DATA: END OF itab_contas_aux.
* << Fim da exclusão
...
...
* >> Início da exclusão:
DATA itab_zycit003_rateio LIKE /pws/zycit003 OCCURS 0 WITH HEADER LINE.
* << Fim da exclusão
...
...
* >> Início da exclusão:
itab_zycit049a LIKE itab_zycit049 OCCURS 0 WITH HEADER LINE,"#EC NEEDED
* << Fim da exclusão
...
...
* >> Início da exclusão:
DATA: v_perform(3).
* << Fim da exclusão
* >> Início da inclusão:
DATA: v_perform(3). "#EC NEEDED
* << Fim da inclusão
...
...
* >> Início da inclusão:
DATA: itab_zycit118_aux TYPE /pws/zycie118 OCCURS 0 WITH HEADER LINE,
itab_zycit114_aux TYPE /pws/zycie114 OCCURS 0 WITH HEADER LINE.
DATA: itab_zycit042 LIKE /pws/zycit042 OCCURS 0 WITH HEADER LINE.
"#EC NEEDED
* << Fim da inclusão
...
...
* >> Início da exclusão:
v_icmsadm LIKE t_icms,
* << Fim da exclusão
...
...
* >> Início da inclusão:
DATA: v_zeros(10) VALUE '0000000000'.
DATA v_year TYPE t009b-bdatj.
DATA: v_autoriza TYPE c.
DATA: vl_erro TYPE c.
DATA: v_seqdi LIKE /pws/zycie085-nrseqdi.
DATA: e_exec_okcode.
DATA: v_nrseq LIKE /pws/zycit094-nrseq,
v_nrseqce LIKE /pws/zycit093-nrseqce.
DATA v_qtd_iten LIKE /pws/zycie003-qtd_itend.
* << Fim da inclusão
DATA: END OF COMMON PART.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F01
...
FORM load_iii USING p_tipo.
CLEAR: t_iirec, a_iiredu, a_iiacor, a_iidevi, a_iicalc.
IF /pws/zycie093-meiotransp = 'PS' AND /pws/zycie085-tpdi EQ 'S'.
/pws/zycie003-advalii = '60'.
CLEAR: /pws/zycie003-advalipi.
ENDIF.
t_iibas = t_ivadu.
a_iicalc = ( ( /pws/zycie003-advalii / 100 ) * t_iibas ).
* >> Início da inclusão: FORM LOAD_III
IF itab_zycit001-regime EQ '09'.
READ TABLE itab_zycit374 WITH KEY
nrseq = itab_it-nrseq
ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
v_iiadm = a_iicalc = ( a_iicalc * ( 1 / 100 ) ) *
itab_zycit374-tp_perman.
ENDIF.
* << Fim da inclusão
CASE /pws/zycie100a-codregtri.
WHEN '1' OR '3' OR '4' OR '5' OR '7' OR '8'.
IF NOT a_iiredu IS INITIAL.
t_iirec = a_iiredu.
ELSE.
IF /pws/zycie100a-acordo EQ '2'.
t_iirec = a_iiredu = a_iiacor.
ELSE.
t_iirec = a_iicalc.
ENDIF.
...
...
FORM load_iipi USING p_tipo.
IF '56' CA itab_it-codregtri .
t_ipibas = ( t_ivadu + itab_it-ii_calculado ).
ELSE.
t_ipibas = ( t_ivadu + t_iirec ).
ENDIF.
a_ipidevi = ( ( /pws/zycie003-advalipi / 100 ) * t_ipibas ).
* >> Início da inclusão: FORM LOAD_IIPI
IF itab_zycit001-regime EQ '05' OR
itab_zycit001-regime EQ '12'.
v_ipiadm = a_ipidevi = ( a_ipidevi * ( 1 / 100 ) ) *
itab_zycit374-tp_perman .
ENDIF.
* << Fim da inclusão
itab_it-vlipi = a_ipidevi.
CLEAR t_ipirec.
IF '3256' NA /pws/zycie100a-codregtri.
t_ipirec = a_ipidevi.
s_wipidevi = s_wipidevi + a_ipidevi.
ELSEIF ' 35' NA /pws/zycie100a-codregtri AND
/pws/zycie085-ntimp NE '09' AND
/pws/zycie085-ntimp NE '11'.
t_ipirec = a_ipidevi.
ENDIF.
...
...
FORM fill_itabit.
DATA: wa_zycit405 LIKE /pws/zycit405 ,
wa_zycit406 LIKE /pws/zycit406 ,
wa_zycit407 LIKE /pws/zycit407 .
DATA: v_matnr LIKE mara-matnr.
CLEAR : wa_zycit405, wa_zycit406, wa_zycit407, v_matnr.
IF NOT itab_zycit003[] IS INITIAL.
* >> Início da inclusão: FORM FILL_ITABIT
SELECT * FROM /pws/zycit374
INTO TABLE itab_zycit374
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseq = itab_zycit003-nrseq.
* << Fim da inclusão
SELECT * FROM /pws/zycit013 INTO TABLE itab_zycit013
FOR ALL ENTRIES IN itab_zycit003
WHERE ebeln = itab_zycit003-ebeln AND
ebelp = itab_zycit003-ebelp.
SELECT * FROM /pws/zycit263 INTO TABLE itab_zycit263
FOR ALL ENTRIES IN itab_zycit003 WHERE
nrseq = itab_zycit003-nrseq AND
ebeln = itab_zycit003-ebeln AND
ebelp = itab_zycit003-ebelp AND
eliminado = space.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F03
...
IF NOT /pws/zycit062-flag_icms IS INITIAL AND
/pws/zycie100a-icms_dif NE 'X'.
IF /pws/zycit062-base IS INITIAL AND
NOT /pws/zycie003-basred EQ '100' .
t_icmsx = ( 1 - ( /pws/zycie003-advalicms / 100 ) ).
ELSE.
t_icmsx = ( 1 - v_advicms ) .
ENDIF.
t_icms_d2 = t_icms = ( /pws/zycie003-advalicms / 100 ) *
( t_icmsbs / t_icmsx ).
* >> Início da inclusão: FORM LOAD_IICMS
IF /pws/zycie001-regime EQ '09' .
t_icms_d2 = t_icms = ( t_icms * ( 1 / 100 ) ) *
itab_zycit374-tp_perman .
ENDIF.
* << Fim da inclusão
itab_it-vlicms = t_icms.
IF '6' NA /pws/zycie100a-codregtriicms .
IF NOT /pws/zycie003-basred IS INITIAL AND
NOT /pws/zycie003-basred EQ '100'.
t_icmsbs = ( t_icmsbs / t_icmsx ).
ELSE.
t_icmsbs_d2 = t_icmsbs = t_icmsbs + t_icms.
ENDIF.
IF /pws/zycit062-susp_nf EQ 'S'.
IF '5' CA /pws/zycie100a-codregtriicms .
t_icmsbs_d2 = t_icmsbs =
t_icmsbs - t_icms.
ENDIF.
ENDIF.
ENDIF.
ELSEIF NOT /pws/zycit062-flag_icms IS INITIAL.
IF /pws/zycit062-bs_cheia_dif EQ 'X'.
t_icmsx = 1 - ( /pws/zycie003-advalicms / 100 ) .
t_icms_d2 = t_icms = ( /pws/zycie003-advalicms / 100 ) *
( t_icmsbs / t_icmsx ) .
* >> Início da inclusão: FORM LOAD_IICMS
IF /pws/zycie001-regime EQ '09' .
t_icms_d2 = t_icms = ( t_icms * ( 1 / 100 ) ) *
itab_zycit374-tp_perman .
ENDIF.
* << Fim da inclusão
t_icmsbs_d2 = t_icmsbs = t_icmsbs + t_icms.
ELSE.
t_icms_d2 = t_icms = ( /pws/zycie003-advalicms / 100 ) * t_icmsbs.
* >> Início da inclusão: FORM LOAD_IICMS
IF /pws/zycie001-regime EQ '09' .
t_icms_d2 = t_icms = ( t_icms * ( 1 / 100 ) ) *
itab_zycit374-tp_perman .
ENDIF.
* << Fim da inclusão
ENDIF.
...
...
t_icmsbs - t_icms.
ENDIF.
ENDIF.
IF '6' CA /pws/zycie100a-codregtriicms .
t_icmsbs_d2 = t_icmsbs =
t_icmsbs - t_icms.
ENDIF.
ELSE.
t_icms_d2 = t_icms = ( /pws/zycie003-advalicms / 100 ) *
( t_icmsbs ) .
* >> Início da inclusão: FORM LOAD_IICMS
IF /pws/zycie001-regime EQ '09' .
t_icms_d2 = t_icms = ( t_icms * ( 1 / 100 ) ) *
itab_zycit374-tp_perman .
ENDIF.
* << Fim da inclusão
t_icmsbs_d2 = t_icmsbs .
ENDIF.
IF '356' CA /pws/zycie100a-codregtriicms .
CLEAR: t_icmsx, t_icms_d2, t_icms, t_icms_d2, t_vlicms.
ENDIF.
itab_it-vlicms = t_icms.
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.
...
...
itab_it-pis_dev = t_pis_dev.
itab_it-cofi_calc = t_cof_calc.
itab_it-cofi_dev = t_cof_dev.
t_pisbs = itab_it-basepis.
t_cofinsbs = itab_it-basecofins.
t_vlicms = s_wicreco.
t_vlpis = s_wpisreco.
t_vlcofins = s_wcofreco.
IF /pws/zycie001-regime EQ '09'.
CLEAR: t_pis, t_cofins, t_icms, t_icms_d2.
* >> Início da exclusão: FORM LOAD_IICMS
ENDIF.
IF '56' CA /pws/zycie100a-codregtri.
CLEAR: t_icms, t_icms_d2.
* << Fim da exclusão
ENDIF.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058F04
...
ENDIF.
IF /pws/zycie100a-aliqcof IS INITIAL.
t_cof_dev = t_cof_calc =
( ( /pws/zycie100a-advalcofins / 100 )
* /pws/zycie100a-basecofins ) .
ELSE.
t_cof_dev = t_cof_calc =
( ( /pws/zycie100a-aliqcof / 100 )
* /pws/zycie100a-basecofins ) .
ENDIF.
* >> Início da inclusão: FORM CALC_PISCOFINS
IF /pws/zycie001-regime EQ '09'.
t_pis_dev = t_pis_calc = ( t_pis_calc * ( 1 / 100 ) ) *
itab_zycit374-tp_perman.
t_cof_dev = t_cof_calc = ( t_cof_calc * ( 1 / 100 ) ) *
itab_zycit374-tp_perman.
ENDIF.
* << Fim da inclusão
CLEAR : t_pis, t_cofins .
WHEN '4'.
IF /pws/zycie100a-basredpis IS INITIAL.
IF /pws/zycie100a-aliqpis IS INITIAL.
* >> Início da exclusão: FORM CALC_PISCOFINS
t_pis_calc =
( ( /pws/zycie100a-advalpis / 100 )
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_PISCOFINS
t_pis_calc = ( ( /pws/zycie100a-advalpis / 100 )
* << Fim da inclusão
* /pws/zycie100a-basepis ) .
ELSE.
* >> Início da exclusão: FORM CALC_PISCOFINS
t_pis_calc =
( ( /pws/zycie100a-aliqpis / 100 )
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_PISCOFINS
t_pis_calc = ( ( /pws/zycie100a-aliqpis / 100 )
* << Fim da inclusão
* /pws/zycie100a-basepis ) .
ENDIF.
ELSE.
* >> Início da exclusão: FORM CALC_PISCOFINS
t_pis_calc =
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_PISCOFINS
t_pis = t_pis_dev = t_pis_calc =
* << Fim da inclusão
( ( /pws/zycie100a-basredpis / 100 )
* /pws/zycie100a-basepis ) .
ENDIF.
IF /pws/zycie100a-basredcof IS INITIAL.
IF /pws/zycie100a-aliqcof IS INITIAL.
* >> Início da exclusão: FORM CALC_PISCOFINS
t_cof_calc =
( ( /pws/zycie100a-advalcofins / 100 )
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_PISCOFINS
t_cof_calc = ( ( /pws/zycie100a-advalcofins / 100 )
* << Fim da inclusão
* /pws/zycie100a-basecofins ) .
ELSE.
* >> Início da exclusão: FORM CALC_PISCOFINS
t_cof_calc =
( ( /pws/zycie100a-aliqcof / 100 )
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_PISCOFINS
t_cof_calc = ( ( /pws/zycie100a-aliqcof / 100 )
* << Fim da inclusão
* /pws/zycie100a-basecofins ) .
ENDIF.
ELSE.
* >> Início da exclusão: FORM CALC_PISCOFINS
t_cof_calc =
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_PISCOFINS
t_cofins = t_cof_dev = t_cof_calc =
* << Fim da inclusão
( ( /pws/zycie100a-basredcof / 100 )
* /pws/zycie100a-basecofins ) .
* >> Início da inclusão: FORM CALC_PISCOFINS
ENDIF.
IF /pws/zycie001-regime EQ '09'.
t_pis = t_pis_dev = ( t_pis_dev * ( 1 / 100 ) ) *
itab_zycit374-tp_perman.
t_cofins = t_cof_dev = ( t_cof_dev * ( 1 / 100 ) ) *
itab_zycit374-tp_perman.
t_cof_calc = ( t_cof_calc * ( 1 / 100 ) ) *
itab_zycit374-tp_perman.
t_pis_calc = ( t_pis_calc * ( 1 / 100 ) ) *
itab_zycit374-tp_perman.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: FORM CALC_PISCOFINS
t_pis = t_pis_dev =
( /pws/zycie100a-basepis / 100 ) * /pws/zycie100a-basredpis .
t_cofins = t_cof_dev =
( /pws/zycie100a-basecofins / 100 ) * /pws/zycie100a-basredcof.
* << Fim da exclusão
WHEN OTHERS.
IF /pws/zycie100a-aliqpis IS INITIAL.
t_pis = t_pis_dev = t_pis_calc =
...
...
* /pws/zycie100a-basepis ) .
ENDIF.
IF /pws/zycie100a-aliqcof IS INITIAL.
t_cofins = t_cof_dev = t_cof_calc =
( ( /pws/zycie100a-advalcofins / 100 )
* /pws/zycie100a-basecofins ) .
ELSE.
t_cofins = t_cof_dev = t_cof_calc =
( ( /pws/zycie100a-aliqcof / 100 )
* /pws/zycie100a-basecofins ) .
* >> Início da inclusão: FORM CALC_PISCOFINS
ENDIF.
IF /pws/zycie001-regime EQ '09'.
t_pis = t_pis_dev = t_pis_calc =
( t_pis_calc * ( 1 / 100 ) ) *
itab_zycit374-tp_perman.
t_cofins = t_cof_dev = t_cof_calc =
( t_cof_calc * ( 1 / 100 ) ) *
itab_zycit374-tp_perman.
* << Fim da inclusão
ENDIF.
ENDCASE.
itab_it-pis_calc = t_pis_calc.
itab_it-pis_dev = t_pis_dev .
itab_it-cofi_calc = t_cof_calc.
itab_it-cofi_dev = t_cof_dev .
itab_it-vlpis = t_pis_calc .
itab_it-vlcofins = t_cof_calc .
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI058X01
...
DATA: BEGIN OF COMMON PART a.
...
...
* >> Início da inclusão:
DATA: BEGIN OF itab_zycit374 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit374.
DATA END OF itab_zycit374.
DATA: v_iiadm LIKE t_icms,
v_ipiadm LIKE t_icms,
v_pisadm LIKE t_icms,
v_cofadm LIKE t_icms.
* << Fim da inclusão
...
...
DATA: END OF COMMON PART.