CE PLUS - Nota 007075
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 04/08/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:58:36
Descrição da Nota: MELHORIA EM CÓDIGO DA DI, CORRIGINDO ERROS DA VERIFICAÇÃO AMPLIADA.
Sintoma
Melhoria em código da DI, corrigindo erros da verificação ampliada.
Solução
Corrigir erros apontados na verificação ampliada, como variáveis e tabelas internas declaradas e não
utilizadas .
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07075 Data: 04/08/2008 Hora: 14:58:23
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07075
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00059
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
05608 - 00001 - 7.0 - 00004 - CORREÇÃO DE CALCULO DA BASE DE II
06715 - 00002 - 7.0 - 00005 - VALORES DE ACRÉSCIMO E DEDUÇÃO DE DESPESAS ESTÃO INCORRETOS NA AD
06920 - 00003 - 7.0 - 00006 - CÁLCULO DO VALOR PERCENTUAL DO SEGURO DA DI ESTÁ INCORRETO
07854 - 00004 - 7.0 - 00006 - DUMP DE DIVISÃO POR ZERO QUANDO O PESO NÃO ESTÁ PREENCHIDO.
----------------------------------------------------------------------------------------------------
MELHORIA EM CÓDIGO DA DI, CORRIGINDO ERROS DA VERIFICAÇÃO AMPLIADA.
----------------------------------------------------------------------------------------------------
Palavras Chave:
MELHORIA - CÓDIGO DA DI - ERROS - VERIFICAÇÃO AMPLIADA.
----------------------------------------------------------------------------------------------------
Objetos da nota:
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
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
* >> Início da inclusão: FORM SAVE_DATA_ITEM
IF sy-subrc <> 0.
EXIT .
ENDIF.
* << Fim da inclusão
ENDIF.
ENDFORM.
...
...
v_it_plan = /pws/zycie003-netpr * /pws/zycie003-qtd_iten.
v_frete_nm = v_bltofat.
IF NOT v_ntgewd IS INITIAL.
t_ivfre = ( /pws/zycie003-ntgewd / v_ntgewd ) * s_frvr.
v_tot_fre = ( /pws/zycie003-ntgewd / v_ntgewd ) * v_frete_nm.
ELSE.
* >> Início da inclusão: FORM LOAD_IFRE
IF NOT v_ntgew IS INITIAL.
* << Fim da inclusão
t_ivfre = ( /pws/zycie003-ntgew / v_ntgew ) * s_frvr.
v_tot_fre = ( /pws/zycie003-ntgew / v_ntgew ) * v_frete_nm.
* >> Início da inclusão: FORM LOAD_IFRE
ENDIF.
* << Fim da inclusão
ENDIF.
...
...
IF itab_zycit001-inco1 EQ 'DDU'.
* >> Início da exclusão: FORM LOAD_IFRE
IF NOT v_dif_frn IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IFRE
IF NOT v_dif_frn IS INITIAL AND NOT v_ntgew IS INITIAL.
* << Fim da inclusão
t_vmle = t_vmle + ( /pws/zycie003-ntgew / v_ntgew ) * v_dif_frn.
ENDIF.
ELSE.
* >> Início da exclusão: FORM LOAD_IFRE
IF NOT v_dif_frn IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IFRE
IF NOT v_dif_frn IS INITIAL AND NOT v_ntgew IS INITIAL.
* << Fim da inclusão
t_vmle = t_vmle + ( /pws/zycie003-ntgew / v_ntgew ) * v_dif_frn.
ENDIF.
t_ivmle2 = t_vmle2 * /pws/zycie100a-dttaxbem.
ENDIF.
IF s_inco1_ci NE 'FOB'.
IF NOT /pws/zycie093-ternacion IS INITIAL.
v_ternacion = /pws/zycie093-ternacion.
PERFORM trata_decimais USING /pws/zycie085-waersfre
* >> Início da exclusão: FORM LOAD_IFRE
v_ternacion .
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_IFRE
CHANGING v_ternacion .
* << Fim da inclusão
IF /pws/zycie085-waersfob NE /pws/zycie093-waersfre .
PERFORM: calc_conv_moeda:
USING /pws/zycie093-waersfre
/pws/zycie085-waersfob
CHANGING v_ternacion.
ENDIF.
...
...
LOOP AT itab_zycit049 WHERE baseii EQ 'X' AND NOT vlreal IS initial.
IF /pws/zycit000-flag_txsisc IS INITIAL OR
wa_it000-cod_sisc NE itab_zycit049-tpdesp.
IF itab_zycit049-divabs = 'X'.
* >> Início da inclusão: FORM LOAD_ITAX
IF NOT v_ipt IS INITIAL.
* << Fim da inclusão
t_ivdes2 = ( 1 / v_ipt ) * itab_zycit049-vlreal.
* >> Início da inclusão: FORM LOAD_ITAX
ENDIF.
* << Fim da inclusão
ELSEIF itab_zycit049-peso = 'X'.
IF NOT v_tntgew IS INITIAL.
t_ivdes2 = ( wa_it-ntgew / v_tntgew ) *
itab_zycit049-vlreal.
ENDIF.
...
...
IF /pws/zycie085-waersfob NE itab_zycit003-waers.
PERFORM: calc_conv_moeda USING itab_zycit003-waers
/pws/zycie085-waersfob
CHANGING itab_zycit003-vlreal.
ENDIF.
* >> Início da inclusão: FORM LOAD_ITAX
IF NOT v_tot_real IS INITIAL.
* << Fim da inclusão
t_ivdes2 = ( itab_zycit003-vlreal *
itab_zycit003-qtd_iten
/ v_tot_real ) * itab_zycit049-vlreal.
* >> Início da inclusão: FORM LOAD_ITAX
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
...
...
READ TABLE itab_zycit003 WITH KEY nrseq = itab_it-nrseq
ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
IF sy-subrc EQ 0.
v_cif_fat = ( itab_zycit003-vlreal * itab_it-qtd_iten ) +
itab_zycit003-vlfre_fat + itab_zycit003-vlseg_fat .
ENDIF.
* >> Início da exclusão: FORM LOAD_ITAX
IF NOT v_tcfr IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_ITAX
IF NOT v_tcfr IS INITIAL AND NOT v_tcif_fat IS INITIAL.
* << Fim da inclusão
t_ivseg = itab_it-vlseg =
( v_cif_fat / ( v_tcif_fat ) ) * s_stvr.
v_tot_seg = ( v_cif_fat / ( v_tcif_fat ) ) * v_sgtofat.
ENDIF.
ENDIF.
...
...
FORM calc_itab.
* >> Início da exclusão: FORM CALC_ITAB
DATA: v_tipodesp LIKE /pws/zycit019-tipo,
v_ternacion LIKE /pws/zycie093-ternacion.
* << Fim da exclusão
...
...
PERFORM calc_init USING v_tipop.
v_bltofat = /pws/zycie093-prepaid +
/pws/zycie093-collect.
v_sgtofat = /pws/zycie085-vlseg.
IF NOT v_sgtofat IS INITIAL .
PERFORM retorna_decimais USING /pws/zycie085-waersseg
* >> Início da exclusão: FORM CALC_ITAB
v_sgtofat .
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_ITAB
CHANGING v_sgtofat .
* << Fim da inclusão
ENDIF.
...
...
WHEN 'CIF'.
IF NOT /pws/zycie085-ukursfob IS INITIAL.
PERFORM: calc_conv_frete CHANGING v_bltofat,
calc_conv_seg CHANGING v_sgtofat.
IF NOT v_sgtofat IS INITIAL AND
NOT /pws/zycie085-ukursseg IS INITIAL .
PERFORM trata_decimais USING /pws/zycie085-waersseg
* >> Início da exclusão: FORM CALC_ITAB
v_sgtofat .
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_ITAB
CHANGING v_sgtofat .
* << Fim da inclusão
ENDIF.
...
...
/pws/zycie085-vlfre = /pws/zycie093-prepaid +
/pws/zycie093-collect - /pws/zycie093-ternacion.
/pws/zycie085-waersfre = /pws/zycie093-waersfre.
PERFORM trata_decimais USING /pws/zycie085-waersfre
* >> Início da exclusão: FORM CALC_ITAB
/pws/zycie085-vlfre.
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_ITAB
CHANGING /pws/zycie085-vlfre.
* << Fim da inclusão
/pws/zycie085-vlfobr = s_fbvr.
ENDFORM.
...
...
DELETE ADJACENT DUPLICATES FROM it_alist COMPARING adicao.
* >> Início da exclusão: FORM ADIC_LIST
DATA: local_adia LIKE it_adia.
* << Fim da exclusão
...
...
LOOP AT itab_it.
IF itab_it-adicao = wa_it-adicao.
* >> Início da inclusão: FORM ADIC_LOAD
IF NOT itab_it-qtd_iten IS INITIAL.
* << Fim da inclusão
CASE s_inco1_ci.
WHEN 'C&F'.
itab_it-vlreal_aux2 =
( ( ( itab_it-vlreal * itab_it-qtd_iten ) + itab_it-vldiffob +
itab_it-vlfre_me ) / itab_it-qtd_iten ) -
( itab_it-frn / itab_it-qtd_iten ) .
WHEN 'CIF'.
itab_it-vlreal_aux2 =
( ( ( itab_it-vlreal * itab_it-qtd_iten ) + itab_it-vldiffob +
itab_it-vlfre_me + itab_it-vlseg_me )
/ itab_it-qtd_iten ) -
( itab_it-frn / itab_it-qtd_iten ) .
WHEN 'FOB'.
itab_it-vlreal_aux2 = itab_it-vlreal -
( itab_it-frn / itab_it-qtd_iten ) .
ENDCASE.
* >> Início da inclusão: FORM ADIC_LOAD
ENDIF.
* << Fim da inclusão
...
...
FORM fill_itabit.
* >> Início da inclusão: FORM FILL_ITABIT
clear itab_itens_funcao.
refresh itab_itens_funcao.
* << Fim da inclusão
...
...
SELECT SINGLE * FROM /pws/zycit405 INTO wa_zycit405
WHERE pais EQ 'BR'
AND ncm EQ itab_it-j_1bnbm
AND tributos EQ 'PIS'
AND regime EQ itab_zycit001-regime.
* >> Início da exclusão: FORM FILL_ITABIT
.
* << Fim da exclusão
IF sy-subrc EQ 0.
itab_it-basredpis = wa_zycit405-basred .
itab_it-advalpis = wa_zycit405-aliquotas.
...
...
* >> Início da inclusão: FORM FILL_ITABIT
move-corresponding itab_zycit003 to itab_itens_funcao.
append itab_itens_funcao.
* << Fim da inclusão
ENDLOOP.
v_tmle_d2 = v_tmle.
PERFORM data_sort.
...
...
SELECT SINGLE nratoc FROM /pws/zycit244 INTO v_nratoc
WHERE nrseqd = itab_zycit003-nrseqd.
IF sy-subrc NE 0.
CLEAR v_nratoc.
ELSE.
SELECT SINGLE * FROM /pws/zycit078 INTO wa_zycit078 WHERE
* >> Início da exclusão: FORM LOAD_DATA_BLITEM
nrseqli = itab_zycit003-nrseqli.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_DATA_BLITEM
nrseqli = itab_zycit003-nrseqli
AND ( TPLI = 'N' OR
TPLI = 'S' ).
* << Fim da inclusão
IF sy-subrc EQ 0.
v_nratoc = wa_zycit078-reg_drawback.
/pws/zycie003-nrseqd = wa_zycit078-nrseqd.
ENDIF.
ENDIF.
ELSE.
SELECT SINGLE * FROM /pws/zycit078 INTO wa_zycit078 WHERE
* >> Início da exclusão: FORM LOAD_DATA_BLITEM
nrseqli = itab_zycit003-nrseqli.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_DATA_BLITEM
nrseqli = itab_zycit003-nrseqli
and ( tpli = 'N' OR
TPLI = 'S' ).
* << Fim da inclusão
IF sy-subrc EQ 0.
v_nratoc = wa_zycit078-reg_drawback.
/pws/zycie003-nrseqd = wa_zycit078-nrseqd.
ELSE.
CLEAR v_nratoc.
ENDIF.
ENDIF.
IF itab_it-pproc IS INITIAL.
READ TABLE itab_zycit003 WITH KEY nrseq = itab_it-nrseq
ebeln = itab_it-ebeln
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F02
...
FORM load_coll.
v_fretc = /pws/zycie093-prepaid + /pws/zycie093-collect -
/pws/zycie093-ternacion.
s_frvr = v_fretc * /pws/zycie085-ukursfre.
PERFORM trata_decimais USING /pws/zycie093-waersfre
* >> Início da exclusão: FORM LOAD_COLL
s_frvr.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_COLL
changing s_frvr.
* << Fim da inclusão
s_frvr_d2 = s_frvr.
ENDFORM.
FORM load_sevl.
* >> Início da exclusão: FORM LOAD_SEVL
DATA: v_fretebl LIKE /pws/zycie093-prepaid,
v_vlcif_temp LIKE /pws/zycit085-vlfob.
* << Fim da exclusão
IF NOT v_tval2 IS INITIAL AND
NOT /pws/zycie085-per_seg IS INITIAL.
/pws/zycie085-vlseg = ( v_tval2 + v_bltofat - v_desp_brl ) *
( /pws/zycie085-per_seg / 100 ).
PERFORM retorna_decimais USING /pws/zycie085-waersseg
* >> Início da exclusão: FORM LOAD_SEVL
/pws/zycie085-vlseg.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_SEVL
changing /pws/zycie085-vlseg.
* << Fim da inclusão
ENDIF.
s_stvr = /pws/zycie085-vlseg * /pws/zycie085-ukursseg.
PERFORM trata_decimais USING /pws/zycie085-waersseg
* >> Início da exclusão: FORM LOAD_SEVL
s_stvr.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_SEVL
changing s_stvr.
* << Fim da inclusão
s_stvr_d2 = s_stvr.
ENDFORM.
FORM load_fbvl.
* >> Início da exclusão: FORM LOAD_FBVL
DATA: v_vlreais LIKE s_fbvr.
* << Fim da exclusão
s_fbvr = /pws/zycie085-vlfob * /pws/zycie085-ukursfob.
ENDFORM.
...
...
* >> Início da exclusão: FORM LOAD_NIMP
FORM load_nimp.
PERFORM texto_dominio USING '/PWS/ZYCID055' /pws/zycie085-ntimp
CHANGING t_impnat.
IF /pws/zycie085-ntimp EQ '09' OR /pws/zycie085-ntimp EQ '11'.
CLEAR: t_iirec, t_ipirec.
ENDIF.
ENDFORM.
* << Fim da exclusão
...
...
PERFORM fill_itabit.
LOOP AT itab_zycit003 WHERE NOT nrseqli IS initial.
SELECT SINGLE * FROM /pws/zycit078 INTO wa_zycit078 WHERE
* >> Início da exclusão: FORM LOAD_BLITENS
nrseqli = itab_zycit003-nrseqli.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_BLITENS
nrseqli = itab_zycit003-nrseqli
AND ( TPLI = 'N' OR
TPLI = 'S' ).
* << Fim da inclusão
...
...
* >> Início da exclusão: FORM LOAD_BLWA
FORM load_blwa.
PERFORM load_waers USING itab_it-waers CHANGING t_msis t_mdes.
ENDFORM.
* << Fim da exclusão
...
...
* >> Início da exclusão: FORM LOAD_BLME
FORM load_blme USING p_meins.
CLEAR: t_zcom, t_ucom.
SELECT SINGLE * FROM /pws/zyglt204 INTO /pws/zyglt204
WHERE msehi = p_meins.
IF sy-subrc EQ 0.
t_zcom = /pws/zyglt204-zum.
t_ucom = /pws/zyglt204-descr.
ENDIF.
ENDFORM.
* << Fim da exclusão
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F03
FORM calc_init USING p_tipo.
CLEAR v_tcif_fat.
CLEAR v_tot_real.
DATA: v_qtd_iten LIKE /pws/zycie003-qtd_iten.
DATA: v_diffrete LIKE v_tdif ,
v_diffrete_aux LIKE v_tdif .
* >> Início da exclusão: FORM CALC_INIT
DATA: v_calc_seg LIKE /pws/zycit003-vlreal ,
v_perc_seg LIKE /pws/zycie085-per_seg.
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_INIT
DATA: v_calc_seg LIKE /pws/zycit003-vlreal .
* << Fim da inclusão
...
...
PERFORM taxa_converte USING itab_zycit049-waers
/pws/zycie085-dttax
CHANGING s_tax.
itab_zycit049-vlreal = itab_zycit049-vldp * s_tax.
PERFORM trata_decimais USING itab_zycit049-waers
* >> Início da exclusão: FORM CALC_INIT
itab_zycit049-vlreal.
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_INIT
CHANGING itab_zycit049-vlreal.
* << Fim da inclusão
ENDIF.
ENDIF.
CLEAR itab_zycit049-vldp_aux.
MODIFY itab_zycit049 INDEX v_tabix TRANSPORTING vlreal vldp_aux.
...
...
v_bltofat = /pws/zycie093-prepaid +
/pws/zycie093-collect.
v_sgtofat = /pws/zycie085-vlseg.
IF NOT v_sgtofat IS INITIAL .
PERFORM retorna_decimais USING /pws/zycie085-waersseg
* >> Início da exclusão: FORM CALC_INIT
v_sgtofat .
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_INIT
CHANGING v_sgtofat .
* << Fim da inclusão
ENDIF.
CASE s_inco1_ci.
WHEN 'C&F'.
PERFORM calc_conv_frete CHANGING v_bltofat.
v_tdif = v_tfrefat - v_bltofat.
v_bltofat = /pws/zycie093-prepaid +
/pws/zycie093-collect - /pws/zycie093-ternacion.
PERFORM calc_conv_frete CHANGING v_bltofat.
WHEN 'CIF'.
PERFORM: calc_conv_frete CHANGING v_bltofat,
calc_conv_seg CHANGING v_sgtofat.
IF NOT v_sgtofat IS INITIAL .
PERFORM trata_decimais USING /pws/zycie085-waersseg
* >> Início da exclusão: FORM CALC_INIT
v_sgtofat .
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_INIT
CHANGING v_sgtofat .
* << Fim da inclusão
ENDIF.
v_tdif = v_tfrefat - v_bltofat.
v_bltofat = /pws/zycie093-prepaid +
/pws/zycie093-collect - /pws/zycie093-ternacion.
PERFORM calc_conv_frete CHANGING v_bltofat.
ENDCASE.
ENDIF.
...
...
IF NOT v_ntgewd IS INITIAL.
v_diffrete = ( v_tdif * - 1 ) *
( itab_zycit003-ntgewd / v_ntgewd ).
ELSE.
* >> Início da inclusão: FORM CALC_INIT
IF NOT v_ntgew IS INITIAL.
* << Fim da inclusão
v_diffrete = ( ( v_tdif * - 1 ) *
( itab_zycit003-ntgew / v_ntgew ) ).
ENDIF.
* >> Início da inclusão: FORM CALC_INIT
ENDIF.
IF NOT itab_zycit003-qtd_iten IS INITIAL.
* << Fim da inclusão
IF /pws/zycie093-waersfre NE itab_zycit003-waers .
v_diffrete_aux = v_diffrete .
PERFORM calc_conv_moeda USING /pws/zycie093-waersfre
itab_zycit003-waers
CHANGING v_diffrete_aux.
itab_it-vlreald =
( ( ( itab_zycit003-qtd_iten * itab_it-vlreal_dest ) -
v_diffrete_aux ) / itab_zycit003-qtd_iten ) .
ELSE.
itab_it-vlreald =
( ( ( itab_zycit003-qtd_iten * itab_it-vlreal_dest ) -
v_diffrete ) / itab_zycit003-qtd_iten ) .
ENDIF.
* >> Início da inclusão: FORM CALC_INIT
ENDIF.
* << Fim da inclusão
IF s_inco1_ci EQ 'CIF'.
* >> Início da exclusão: FORM CALC_INIT
IF NOT v_calc_seg IS INITIAL.
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_INIT
IF NOT v_calc_seg IS INITIAL AND
NOT itab_zycit003-qtd_iten IS INITIAL.
* << Fim da inclusão
itab_it-vlreald =
( ( itab_zycit003-qtd_iten * itab_it-vlreald ) -
...
...
LOOP AT itab_zycit049 WHERE baseicms EQ 'X' AND NOT vlreal IS initial.
CLEAR t_ivdes2.
IF /pws/zycit000-flag_txsisc IS INITIAL OR v_dit NE 'N' OR
wa_it000-cod_sisc NE itab_zycit049-tpdesp.
IF NOT itab_zycit049-tipo EQ 'D' OR
itab_zycit049-tpdesp = /pws/zycit000-flagfreten.
IF itab_zycit049-divabs EQ 'X'.
* >> Início da inclusão: FORM LOAD_IICMS
IF NOT v_ipt IS INITIAL.
* << Fim da inclusão
t_ivdes2 = ( 1 / v_ipt ) * itab_zycit049-vlreal.
* >> Início da inclusão: FORM LOAD_IICMS
ENDIF.
* << Fim da inclusão
ELSEIF itab_zycit049-peso EQ 'X'.
IF NOT v_tntgew IS INITIAL.
t_ivdes2 = ( wa_it-ntgew / v_tntgew ) * itab_zycit049-vlreal.
ENDIF.
...
...
ENDIF.
ELSE.
IF /pws/zycit062-bs_rat_icms EQ 'CIF'.
* >> Início da inclusão: FORM LOAD_IICMS
IF NOT /pws/zycie085-vlfob IS INITIAL.
* << Fim da inclusão
t_ivdes2 = ( itab_zycit049-vlreal *
( itab_it-vlfob + v_tot_fre + v_tot_seg ) )
/ ( /pws/zycie085-vlfob + v_bltofat + v_sgtofat ) .
* >> Início da inclusão: FORM LOAD_IICMS
ENDIF.
* << Fim da inclusão
ELSE.
IF NOT v_tot_real IS INITIAL.
READ TABLE itab_zycit003 WITH KEY
nrseq = itab_it-nrseq
...
...
NOT /pws/zycie003-basred EQ '100' .
t_icmsx = ( 1 - ( /pws/zycie003-advalicms / 100 ) ).
ELSE.
t_icmsx = ( 1 - v_advicms ) .
ENDIF.
* >> Início da inclusão: FORM LOAD_IICMS
IF NOT t_icmsx IS INITIAL.
* << Fim da inclusão
t_icms_d2 = t_icms = ( /pws/zycie003-advalicms / 100 ) *
( t_icmsbs / t_icmsx ).
* >> Início da inclusão: FORM LOAD_IICMS
ENDIF.
* << Fim da inclusão
IF NOT /pws/zycie003-basred IS INITIAL AND
NOT /pws/zycie003-basred EQ '100'.
* >> Início da inclusão: FORM LOAD_IICMS
IF NOT t_icmsx IS INITIAL.
* << Fim da inclusão
t_icmsbs = ( t_icmsbs / t_icmsx ).
* >> Início da inclusão: FORM LOAD_IICMS
ENDIF.
* << Fim da inclusão
ELSE.
IF NOT /pws/zycie100a-codregtriicms EQ '3'.
t_icmsbs_d2 = t_icmsbs = t_icmsbs + t_icms.
ENDIF.
ENDIF.
IF /pws/zycit062-susp_nf EQ 'S'.
IF '56' CA /pws/zycie100a-codregtriicms .
t_icmsbs_d2 = t_icmsbs =
t_icmsbs - t_icms.
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 ) .
* >> Início da inclusão: FORM LOAD_IICMS
IF NOT t_icmsx IS INITIAL.
* << Fim da inclusão
t_icms_d2 = t_icms = ( /pws/zycie003-advalicms / 100 ) *
( t_icmsbs / t_icmsx ) .
* >> Início da inclusão: FORM LOAD_IICMS
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.
ENDIF.
IF /pws/zycit062-susp_nf EQ 'S' AND
...
...
land1 EQ t001-land1.
ENDIF.
IF sy-subrc NE 0.
IF NOT itab_zycit020[] IS INITIAL.
SELECT SINGLE land1 FROM t001 INTO t001-land1
WHERE bukrs EQ /pws/zycie085-bukrs.
SELECT * FROM /pws/zycit019 INTO TABLE itab_zycit019
FOR ALL ENTRIES IN itab_zycit020 WHERE
codigo EQ itab_zycit020-codigo AND
regio = space AND
* >> Início da exclusão: FORM FILL_DESP
land1 EQ t001-land1..
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DESP
land1 EQ t001-land1.
* << Fim da inclusão
ENDIF.
ENDIF.
IF sy-subrc NE 0.
SELECT SINGLE land1 FROM t001 INTO t001-land1
WHERE bukrs EQ /pws/zycie085-bukrs.
SELECT * FROM /pws/zycit019
INTO TABLE itab_zycit019
WHERE land1 EQ t001-land1.
ENDIF.
IF NOT itab_zycit020[] IS INITIAL.
...
...
FORM adic_change.
* >> Início da exclusão: FORM ADIC_CHANGE
DATA: v_rof LIKE /pws/zycbt115-rof,
* << Fim da exclusão
* >> Início da inclusão: FORM ADIC_CHANGE
DATA:
* << Fim da inclusão
v_dtrof LIKE /pws/zycbt115-dtrof.
READ TABLE it_alist INDEX v_pos.
IF sy-subrc EQ 0.
CLEAR: wa_ad, wa_it, /pws/zycie006.
READ TABLE itab_it WITH KEY
adicao = it_alist-adicao.
IF sy-subrc EQ 0.
MOVE itab_it TO wa_it.
a_tribipi = wa_it-tribipi.
READ TABLE itab_zycit003 WITH KEY
...
...
* >> Início da inclusão: FORM TEXT_ITEM_FILL
IF sy-subrc <> 0 .
EXIT .
ENDIF.
* << Fim da inclusão
ENDFORM.
...
...
* >> Início da exclusão: FORM READ_TEXT_ESPECIF
FORM read_text_especif CHANGING p_text.
CLEAR: rtextesp.
REFRESH: rtextesp.
READ TABLE itab_stxl INDEX 1.
* << Fim da exclusão
* >> Início da inclusão: FORM READ_TEXT_ESPECIF
FORM fill_desc.
* << Fim da inclusão
* >> Início da exclusão: FORM READ_TEXT_ESPECIF
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = itab_stxl-tdid
language = itab_stxl-tdspras
name = v_name
object = itab_stxl-tdobject
TABLES
lines = rtextesp
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc NE 0.
READ TABLE itab_stxl INDEX 1.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = itab_stxl-tdid
language = itab_stxl-tdspras
name = v_name
object = itab_stxl-tdobject
archive_handle = 0
local_cat = ' '
TABLES
lines = rtextesp
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
ENDIF.
IF sy-subrc = 0.
LOOP AT rtextesp.
rtexti-tdformat = '*'.
rtexti-tdline = rtextesp-tdline.
APPEND rtexti.
ENDLOOP.
ELSE.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = 'ZDSI'
language = sy-langu
name = v_txtki
object = '/PWS/CIDDI'
TABLES
lines = rtexti
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
ENDIF.
ENDFORM.
FORM fill_desc.
DATA: v_mat(18) TYPE c.
* << Fim da exclusão
IF /pws/zycie085-dtuserc IS INITIAL AND
sy-tcode EQ '/PWS/ZYCI023_C' .
/pws/zycie085-dtuserc = sy-datum .
/pws/zycie085-hruserc = sy-uzeit.
ENDIF.
CLEAR rtexti. REFRESH rtexti.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = 'ZDSI'
...
...
* >> Início da exclusão: FORM FILL_DESC
DATA: v_spras LIKE ekko-spras.
* << Fim da exclusão
IF rtexti IS INITIAL.
SORT itab_zycit229 BY codseq.
READ TABLE itab_ekpo WITH KEY ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
CALL FUNCTION '/PWS/ZYCI_TEXTO_DETALHE_ITEM'
EXPORTING
ebeln = itab_it-ebeln
ebelp = itab_it-ebelp
codeven = 'DI'
TABLES
rtext = rtexti
.
IF sy-subrc <> 0.
ENDIF.
READ TABLE itab_zycit003 WITH KEY ebeln = itab_it-ebeln
ebelp = itab_it-ebelp.
IF sy-subrc EQ 0 AND
NOT itab_zycit003-nrseqli IS INITIAL.
SELECT SINGLE * FROM /pws/zycit078 INTO wa_zycit078 WHERE
* >> Início da exclusão: FORM FILL_DESC
nrseqli = itab_zycit003-nrseqli.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DESC
nrseqli = itab_zycit003-nrseqli
AND ( TPLI = 'N' OR TPLI = 'S' ).
* << Fim da inclusão
IF sy-subrc EQ 0 AND NOT wa_zycit078-nrseqd IS INITIAL.
PERFORM verifica_generico.
ENDIF.
ENDIF.
ENDIF.
...
...
FORM calc_conv_moeda USING p_waersfrom
p_waersto
CHANGING p_value.
* >> Início da exclusão: FORM CALC_CONV_MOEDA
DATA: v_taxa LIKE /pws/zycie085-ukursfob,
v_msgd(10).
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_CONV_MOEDA
DATA: v_taxa LIKE /pws/zycie085-ukursfob.
* << Fim da inclusão
PERFORM taxa_converte USING
* >> Início da exclusão: FORM CALC_CONV_MOEDA
p_waersfrom /pws/zycie085-dttax v_taxa.
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_CONV_MOEDA
p_waersfrom /pws/zycie085-dttax
CHANGING v_taxa.
* << Fim da inclusão
IF NOT v_taxa IS INITIAL.
p_value = p_value * v_taxa.
IF p_waersto NE wa_zycbt007-waersb.
PERFORM taxa_converte USING
* >> Início da exclusão: FORM CALC_CONV_MOEDA
p_waersto /pws/zycie085-dttax v_taxa.
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_CONV_MOEDA
p_waersto /pws/zycie085-dttax
CHANGING v_taxa.
* << Fim da inclusão
ELSE.
v_taxa = 1.
ENDIF.
IF NOT v_taxa IS INITIAL AND NOT p_value IS INITIAL.
p_value = p_value / v_taxa.
ENDIF.
ENDIF.
ENDFORM.
...
...
CASE sy-subrc.
WHEN 1.
MESSAGE w015 WITH text-229 text-230.
v_status_s = '0'.
* >> Início da exclusão: FORM LOCK_RECORD
IF v_dit = 'N'.
sy-tcode = '/PWS/ZYCI023_E'.
ELSE.
sy-tcode = '/PWS/ZYCI023_L'.
ENDIF.
* << Fim da exclusão
WHEN 2.
MESSAGE a015 WITH text-118.
v_status_s = '0'.
* >> Início da exclusão: FORM LOCK_RECORD
IF v_dit = 'N'.
sy-tcode = '/PWS/ZYCI023_E'.
ELSE.
sy-tcode = '/PWS/ZYCI023_L'.
ENDIF.
* << Fim da exclusão
ENDCASE.
ENDFORM.
...
...
* >> Início da exclusão: FORM SUBMIT_REPORT_CLIENTE
FORM submit_report_cliente.
DATA: v_resposta TYPE c.
READ TABLE itab_report_cliente INDEX v_cur.
MODIFY itab_report_cliente INDEX v_cur.
IF sy-subrc = 0.
PERFORM verify_changes.
IF v_changed EQ '1'.
PERFORM save_data.
ENDIF.
ENDIF.
ENDFORM.
FORM chama_func_cliente.
DATA: v_resposta TYPE c.
DATA: wa_temp LIKE itab_report_cliente.
READ TABLE itab_report_cliente INDEX v_cur.
MOVE itab_report_cliente TO wa_temp.
CLEAR v_resposta.
IF sy-subrc = 0.
ELSE.
PERFORM chama_zyci_relatorio.
ENDIF.
ENDFORM.
FORM chama_zyci_relatorio.
CALL FUNCTION '/PWS/ZYCE_RELATORIO'
EXPORTING
i_spras = t002-spras
EXCEPTIONS
OTHERS = 1.
ENDFORM.
* << Fim da exclusão
...
...
DATA: v_tam TYPE i.
CLEAR: v_tam.
* >> Início da exclusão: FORM SEND
CASE wa_zycit136-tp_doc.
WHEN 'PLI'.
* << Fim da exclusão
CALL FUNCTION 'GUI_GET_FILE_INFO'
EXPORTING
fname = v_string_ex
IMPORTING
file_size = v_tam
EXCEPTIONS
fileinfo_error = 1
OTHERS = 2.
* >> Início da inclusão: FORM SEND
IF sy-subrc EQ 0.
* << Fim da inclusão
IF v_tam LT 0.
* >> Início da exclusão: FORM SEND
MESSAGE i015 WITH text-145 text-146.
* << Fim da exclusão
* >> Início da inclusão: FORM SEND
MESSAGE i015 WITH text-143 text-144.
* << Fim da inclusão
LEAVE TO SCREEN '0100'.
ELSE.
CALL FUNCTION 'WS_EXECUTE'
EXPORTING
commandline = v_param
program = v_string_ex
EXCEPTIONS
frontend_error = 1
no_batch = 2
prog_not_found = 3
illegal_option = 4
gui_refuse_execute = 5
OTHERS = 6.
* >> Início da inclusão: FORM SEND
IF sy-subrc <> 0.
CLEAR wa_zycit136-stasis .
ENDIF.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: FORM SEND
WHEN OTHERS.
CALL FUNCTION 'GUI_GET_FILE_INFO'
EXPORTING
fname = v_string_ex
IMPORTING
file_size = v_tam
EXCEPTIONS
fileinfo_error = 1
OTHERS = 2.
IF v_tam LT 0.
MESSAGE i015 WITH text-143 text-144.
LEAVE TO SCREEN '0100'.
ELSE.
CALL FUNCTION 'WS_EXECUTE'
EXPORTING
commandline = v_param
program = v_string_ex
EXCEPTIONS
frontend_error = 1
no_batch = 2
prog_not_found = 3
illegal_option = 4
gui_refuse_execute = 5
OTHERS = 6.
* << Fim da exclusão
ENDIF.
* >> Início da exclusão: FORM SEND
ENDCASE.
* << Fim da exclusão
wa_zycit136-stasis = text-127.
ENDFORM.
...
...
EXPORTING
commandline = v_param
program = v_string_ex
EXCEPTIONS
frontend_error = 1
no_batch = 2
prog_not_found = 3
illegal_option = 4
gui_refuse_execute = 5
OTHERS = 6.
* >> Início da inclusão: FORM VERIFY_TRANSM
IF sy-subrc = 0.
* << Fim da inclusão
COMMIT WORK AND WAIT.
* >> Início da exclusão: FORM VERIFY_TRANSM
IF sy-subrc = 0.
* << Fim da exclusão
SELECT SINGLE nrdi dtreg FROM /pws/zycit085
INTO CORRESPONDING FIELDS OF /pws/zycie085
WHERE nrseqdi = /pws/zycie085-nrseqdi.
ENDIF.
PERFORM: refresh_screen.
PERFORM: verify_hist.
...
...
* >> Início da exclusão: FORM LOAD_LSI
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.
SELECT SINGLE * FROM /pws/zycit078
WHERE nrseqli EQ itab_zycit003-nrseqlsi.
IF sy-subrc EQ 0.
IF /pws/zycie100a-codregtri IS INITIAL.
/pws/zycie100a-codregtri = /pws/zycit078-codregtri.
ENDIF.
IF /pws/zycie100a-codfunleg IS INITIAL.
/pws/zycie100a-codfunleg = /pws/zycit078-codfunleg.
ENDIF.
IF /pws/zycie100a-motivo IS INITIAL.
/pws/zycie100a-motivo = /pws/zycit078-motivofunleg.
ENDIF.
IF /pws/zycie100a-classific IS INITIAL.
/pws/zycie100a-classific = /pws/zycit078-classific.
ENDIF.
IF /pws/zycie100a-codtsp IS INITIAL.
/pws/zycie100a-codtsp = /pws/zycit078-codtsp.
ENDIF.
IF /pws/zycie100a-destncm IS INITIAL.
/pws/zycie100a-destncm = /pws/zycit078-codncm.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
* << Fim da exclusão
...
...
savemode_direct = 'X'
owner_specified = 'X'
TABLES
lines = rtexti
EXCEPTIONS
id = 1
language = 2
name = 3
object = 4
OTHERS = 5.
* >> Início da inclusão: FORM SAVE_ESPECIFICACAO
IF sy-subrc NE 0.
EXIT.
ENDIF.
ENDIF.
* << Fim da inclusão
* >> Início da exclusão: FORM SAVE_ESPECIFICACAO
ENDIF.
* << Fim da exclusão
ENDLOOP.
ENDFORM.
...
...
FORM reclassificacao_ia.
* >> Início da exclusão: FORM RECLASSIFICACAO_IA
DATA: BEGIN OF itab_zycit006_aux OCCURS 0 .
INCLUDE STRUCTURE /pws/zycit006.
DATA: hkont LIKE bsis-hkont.
DATA: END OF itab_zycit006_aux.
* << Fim da exclusão
...
...
FORM get_parameters_f_51_variacao USING v_codeven.
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
WHERE codeven = v_codeven
* >> Início da exclusão: FORM GET_PARAMETERS_F_51_VARIACAO
AND codmod = 'D'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F_51_VARIACAO
AND codmod = 'D'
AND BUKRS = /PWS/ZYCIE085-BUKRS.
* << Fim da inclusão
SELECT * FROM /pws/zycbt012 INTO TABLE itab_zycbt012
WHERE codeven = v_codeven
AND codmod = 'D'.
v_evento = v_codeven.
ENDFORM.
...
...
* >> Início da inclusão: FORM MODO_BATCH_INPUT
IF sy-subrc <> 0.
CLEAR v_modo_bi.
ENDIF.
* << Fim da inclusão
IF v_modo_bi EQ '1' OR v_modo_bi EQ 'A'.
v_modo_bi = 'N'.
ELSEIF v_modo_bi EQ '3'.
v_modo_bi = 'A'.
ELSEIF v_modo_bi EQ '2'.
v_modo_bi = 'E'.
ENDIF.
ENDFORM.
...
...
v_xblnr = v_xblnr
v_zuonr = v_zuonr
v_sgtxt = v_sgtxt
v_bktxt = v_bktxt
.
itab_zycbe033-d_zuonr = itab_zycbe033-c_zuonr = v_zuonr.
itab_zycbe033-d_sgtxt = itab_zycbe033-c_sgtxt = v_sgtxt.
itab_zycbe033-xblnr = v_xblnr.
itab_zycbe033-bktxt = v_bktxt.
SELECT SINGLE blart FROM /pws/zycbt011 INTO v_blart
* >> Início da exclusão: FORM FILL_DATE_F_05_VARIACAO
WHERE codeven = '007'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_05_VARIACAO
WHERE codeven = '007'
AND BUKRS = /PWS/ZYCIE085-BUKRS.
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycit003 INTO /pws/zycie003
WHERE nrseq = itab_zycit100-nrseq
AND ebeln = itab_zycit100-ebeln
AND ebelp = itab_zycit100-ebelp.
itab_zycbe033-d_gsber = /pws/zycie003-gsber.
itab_zycbe033-c_gsber = /pws/zycie003-gsber.
PERFORM verify_null_field USING /pws/zycie085-bukrs
'BUKRS' text-157.
...
...
bklas = p_bklas
codaux1 = p_codaux1
codaux2 = p_codaux2
codaux3 = p_codaux3
TABLES
account = p_cta
EXCEPTIONS
key_not_found = 1
rules_not_found = 2
OTHERS = 3.
* >> Início da inclusão: FORM SEEK_ACCOUNT_NUMBER
IF sy-subrc <> 0.
EXIT.
ENDIF.
* << Fim da inclusão
ENDFORM.
...
...
EXPORTING
v_programa = v_programa
v_visualiza = v_visualiza
v_bukrs = /pws/zycie085-bukrs
/pws/zycie085 = /pws/zycie085
IMPORTING
v_resposta = v_resp
TABLES
itab_zycit036 = itab_zycit036
itab_despesa = itab_desp_funcao
* >> Início da exclusão: FORM VISUALIZA_RATEIO
itab_zycit003 = itab_zycit003
* << Fim da exclusão
* >> Início da inclusão: FORM VISUALIZA_RATEIO
itab_zycit003 = itab_itens_funcao
* << Fim da inclusão
itab_zycit100 = itab_zycit100.
IF v_resp EQ 'S'.
...
...
FORM calcula_diferenca.
DATA: v_valor1 LIKE itab_contas-wrbtr,
v_valor2 LIKE itab_contas-wrbtr,
v_valor3 LIKE itab_contas-wrbtr,
* >> Início da exclusão: FORM CALCULA_DIFERENCA
v_difer LIKE itab_contas-wrbtr,
v_exit(1) TYPE c.
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_DIFERENCA
v_difer like itab_contas-wrbtr.
* << Fim da inclusão
SORT itab_contas BY wrbtr.
* >> Início da exclusão: FORM CALCULA_DIFERENCA
CLEAR: v_exit, itab_contas.
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_DIFERENCA
CLEAR: itab_contas.
* << Fim da inclusão
READ TABLE itab_contas INDEX 1.
v_valor1 = itab_contas-wrbtr.
READ TABLE itab_contas INDEX 2.
...
...
* >> Início da exclusão: FORM CALC_RET_MOEDA
FORM calc_ret_moeda USING p_waersfrom
p_waersto
CHANGING p_value.
DATA: v_taxa LIKE /pws/zycie085-ukursfob,
v_msgd(10).
PERFORM taxa_converte USING
p_waersfrom /pws/zycie085-dttax v_taxa.
IF NOT v_taxa IS INITIAL.
p_value = p_value / v_taxa.
IF p_waersto NE wa_zycbt007-waersb.
PERFORM taxa_converte USING
p_waersto /pws/zycie085-dttax v_taxa.
ELSE.
v_taxa = 1.
ENDIF.
IF NOT v_taxa IS INITIAL AND NOT p_value IS INITIAL.
p_value = p_value * v_taxa.
ENDIF.
ENDIF.
ENDFORM.
* << Fim da exclusão
FORM calc_conv_frete_ini USING v_waersfrom
v_waersto
CHANGING p_val.
* >> Início da exclusão: FORM CALC_CONV_FRETE_INI
DATA: v_moeda LIKE tcurc-/pws/codmo,
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_CONV_FRETE_INI
DATA:
* << Fim da inclusão
v_taxa_from LIKE v_taxa ,
v_taxa_to LIKE v_taxa .
PERFORM trata_decimais USING v_waersfrom
CHANGING p_val.
IF /pws/zycie085-dttax IS INITIAL.
PERFORM taxa_converte USING
* >> Início da exclusão: FORM CALC_CONV_FRETE_INI
v_waersfrom sy-datlo v_taxa_from.
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_CONV_FRETE_INI
v_waersfrom sy-datlo
CHANGING v_taxa_from.
* << Fim da inclusão
ELSE.
PERFORM taxa_converte USING
* >> Início da exclusão: FORM CALC_CONV_FRETE_INI
v_waersfrom /pws/zycie085-dttax v_taxa_from.
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_CONV_FRETE_INI
v_waersfrom /pws/zycie085-dttax
CHANGING v_taxa_from.
* << Fim da inclusão
ENDIF.
IF NOT v_taxa_from IS INITIAL.
IF /pws/zycie085-dttax IS INITIAL.
PERFORM taxa_converte USING
* >> Início da exclusão: FORM CALC_CONV_FRETE_INI
v_waersto sy-datlo v_taxa_to.
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_CONV_FRETE_INI
v_waersto sy-datlo
CHANGING v_taxa_to.
* << Fim da inclusão
ELSE.
PERFORM taxa_converte USING
* >> Início da exclusão: FORM CALC_CONV_FRETE_INI
v_waersto /pws/zycie085-dttax v_taxa_to.
* << Fim da exclusão
* >> Início da inclusão: FORM CALC_CONV_FRETE_INI
v_waersto /pws/zycie085-dttax
CHANGING v_taxa_to.
* << Fim da inclusão
ENDIF.
...
...
* >> Início da inclusão: FORM BUSCA_TAXA_TCURR
IF sy-subrc <> 0.
CLEAR v_taxa.
ENDIF.
* << Fim da inclusão
v_taxa = v_tax.
ENDFORM.
...
...
* >> Início da inclusão: FORM VERIFICA_EXIT
IF sy-subrc <> 0.
EXIT.
ENDIF.
* << Fim da inclusão
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F04
...
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.
v_advipi = /pws/zycie003-advalipi / 100.
ENDIF.
ELSEIF /pws/zycie100a-codregtriipi EQ '4' AND
/pws/zycie003-advalipi IS INITIAL.
* >> Início da inclusão: FORM MP_NOVA
IF NOT itab_it-baseipi IS INITIAL.
* << Fim da inclusão
v_advipi = itab_it-ipi_recolher / itab_it-baseipi .
* >> Início da inclusão: FORM MP_NOVA
ENDIF.
* << Fim da inclusão
ELSEIF /pws/zycie100a-codregtriipi EQ '1' .
CLEAR v_advipi .
ENDIF.
CASE /pws/zycie100a-codregtripiscofi.
WHEN '4'.
IF /pws/zycie100a-basredpis IS INITIAL OR
...
...
WHERE land1 EQ t001-land1.
ENDIF.
ENDIF.
ENDFORM.
FORM soma_despesa_acr.
DATA: v_vldp LIKE itab_zycit049-vldp.
LOOP AT itab_zycit049 WHERE tipo = 'A' AND
vldp > 0.
IF itab_zycit049-tpdesp NE /pws/zycit000-flagfreten.
IF itab_zycit049-waers NE /pws/zycie085-waersfob.
* >> Início da exclusão: FORM SOMA_DESPESA_ACR
PERFORM taxa_converte USING
/pws/zycie085-waersfob /pws/zycie085-dttax v_taxa.
* << Fim da exclusão
* >> Início da inclusão: FORM SOMA_DESPESA_ACR
PERFORM taxa_converte USING /pws/zycie085-waersfob
/pws/zycie085-dttax
CHANGING v_taxa.
* << Fim da inclusão
IF NOT v_taxa IS INITIAL.
v_tval2 = v_tval2 + ( itab_zycit049-vldp / v_taxa ).
ENDIF.
ELSE.
v_tval2 = v_tval2 + itab_zycit049-vldp.
ENDIF.
v_desp_acr = v_desp_acr + itab_zycit049-vldp.
IF itab_zycit049-waers = wa_zycbt007-waersb.
s_fbvr = s_fbvr + itab_zycit049-vldp.
v_desp_brl = v_desp_brl + itab_zycit049-vldp.
...
...
wa_zycbt007-waersb
CHANGING v_vldp.
s_fbvr = s_fbvr + v_vldp.
ENDIF.
IF itab_zycit049-waers EQ 'USD'.
PERFORM load_sevl.
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
* >> Início da exclusão: FORM DESPESA_ACRESCIMO
FORM despesa_acrescimo.
DATA: v_vldp_aux LIKE itab_zycit049-vldp_aux.
CLEAR: t_ivdesp.
LOOP AT itab_zycit049 WHERE tipo EQ 'A' AND NOT vlreal IS initial.
IF itab_zycit049-baseicms EQ 'X'.
IF /pws/zycit000-flag_txsisc IS INITIAL OR
wa_it000-cod_sisc NE itab_zycit049-tpdesp.
IF v_idx EQ v_ipt AND v_ipt NE 1.
t_vmle = t_vmle + ( itab_zycit049-vlreal - v_vldp_aux ) .
ELSE.
IF itab_zycit049-divabs EQ 'X'.
t_ivdes2 = ( 1 / v_ipt ) * itab_zycit049-vlreal.
ELSEIF itab_zycit049-peso EQ 'X'.
IF NOT v_tntgew IS INITIAL.
t_ivdes2 = ( wa_it-ntgew / v_tntgew ) * itab_zycit049-vlreal.
ENDIF.
ELSEIF itab_zycit049-proporplan EQ 'X'.
t_ivdes2 = ( v_it_plan / v_tot_plan ) *
itab_zycit049-vlreal.
ELSE.
IF /pws/zycit062-bs_rat_icms EQ 'CIF'.
t_ivdes2 = ( itab_zycit049-vlreal *
( itab_it-vlfob + v_tot_fre + v_tot_seg ) )
/ ( /pws/zycie085-vlfob + v_bltofat + v_sgtofat ) .
ELSE.
t_ivdes2 = ( itab_zycit003_rateio-vlreal *
itab_zycit003_rateio-qtd_iten
/ v_tot_real ) * itab_zycit049-vlreal.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
t_vmle = t_vmle + t_ivdes2.
v_vldp_aux = v_vldp_aux + t_ivdes2.
ELSE.
IF v_idx EQ v_ipt AND v_ipt NE 1.
t_vmle = t_vmle + ( itab_zycit049-vlreal - v_vldp_aux ) .
ELSE.
IF itab_zycit049-divabs = 'X'.
t_ivdes2 = ( 1 / v_ipt ) * itab_zycit049-vlreal.
ELSEIF itab_zycit049-peso = 'X'.
IF NOT v_tntgew IS INITIAL.
t_ivdes2 = ( wa_it-ntgew / v_tntgew ) *
itab_zycit049-vlreal.
ENDIF.
ELSEIF itab_zycit049-proporplan = 'X'.
t_ivdes2 = ( v_it_plan / v_tot_plan )
* itab_zycit049-vlreal.
ELSE.
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.
* << Fim da exclusão
FORM seleciona_fund_legal USING p_campo
p_campo1
CHANGING p_texto p_campo2.
DATA: v_descr LIKE /pws/zycit177-descr.
SELECT SINGLE descr
FROM /pws/zycit177 INTO v_descr
WHERE codigo = p_campo
AND regime = p_campo1. "#EC CI_NOFIRST
IF sy-subrc EQ 0.
p_texto = v_descr.
...
...
belnr_3_f05 = /pws/zycie085-belnr_3_f05
WHERE nrseqdi = /pws/zycie085-nrseqdi.
PERFORM clear_date_batch.
CALL FUNCTION '/PWS/ZYCI_RECLASSIFICACAO_IA'
EXPORTING
i_zycit001 = itab_zycit001
v_modo = v_modo_bi
i_programa = 'DI'
TABLES
t_zycit100 = itab_zycit100[]
* >> Início da exclusão: FORM RECLASSIFICACAO_IA_FUNCAO
t_zycit003 = itab_zycit003[]
* << Fim da exclusão
* >> Início da inclusão: FORM RECLASSIFICACAO_IA_FUNCAO
t_zycit003 = itab_itens_funcao[]
* << Fim da inclusão
t_zycbt032 = itab_zycbt032[]
itab_variacao = itab_variacao[]
EXCEPTIONS
table_initial = 1
existe_recebimento = 2
flag_reclassificacao = 3
dados_di_inicial = 4
* >> Início da exclusão: FORM RECLASSIFICACAO_IA_FUNCAO
OTHERS = 5
.
* << Fim da exclusão
* >> Início da inclusão: FORM RECLASSIFICACAO_IA_FUNCAO
OTHERS = 5 .
* << Fim da inclusão
IF sy-subrc <> 0.
* >> Início da inclusão: FORM RECLASSIFICACAO_IA_FUNCAO
clear itab_variacao.
* << Fim da inclusão
ENDIF.
READ TABLE itab_variacao INDEX 1.
IF sy-subrc EQ 0.
IF NOT itab_variacao-belnr_0_f05 IS INITIAL OR
NOT itab_variacao-belnr_1_f05 IS INITIAL OR
NOT itab_variacao-belnr_2_f05 IS INITIAL OR
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F05
...
IF sy-subrc = 0.
v_mercosul = 'X'.
ELSE.
CLEAR v_mercosul.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
* >> Início da exclusão: FORM SET_SCREEN_0430
FORM set_screen_0430.
LOOP AT SCREEN.
IF screen-name EQ 'TAB_MERCOSUL'.
READ TABLE itab_zycit107 WITH KEY
land1 = itab_it-porigem
mercosul = 'X'.
IF sy-subrc NE 0.
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
* << Fim da exclusão
FORM set_screen_adicao.
LOOP AT SCREEN.
IF screen-name EQ 'TAB_MERCOSUL'.
READ TABLE itab_zycit107 WITH KEY
land1 = wa_it-porigem
mercosul = 'X'.
IF sy-subrc NE 0.
screen-invisible = '1'.
MODIFY SCREEN.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023I01
...
ENDIF.
ENDIF.
ENDLOOP.
IF NOT /pws/zycie003-nrseqd IS INITIAL.
SELECT SINGLE nratoc FROM /pws/zycit244 INTO v_nratoc
WHERE nrseqd = /pws/zycie003-nrseqd.
IF sy-subrc NE 0.
CLEAR v_nratoc.
ELSE.
SELECT SINGLE * FROM /pws/zycit078 INTO wa_zycit078 WHERE
* >> Início da exclusão: MODULE VERIFY_TABLES
nrseqli = itab_zycit003-nrseqli.
* << Fim da exclusão
* >> Início da inclusão: MODULE VERIFY_TABLES
nrseqli = itab_zycit003-nrseqli
AND ( TPLI = 'N' OR
TPLI = 'S' ).
* << Fim da inclusão
IF sy-subrc EQ 0.
v_nratoc = wa_zycit078-reg_drawback.
/pws/zycie003-nrseqd = wa_zycit078-nrseqd.
ENDIF.
ENDIF.
ELSE.
SELECT SINGLE * FROM /pws/zycit078 INTO wa_zycit078 WHERE
* >> Início da exclusão: MODULE VERIFY_TABLES
nrseqli = itab_zycit003-nrseqli.
* << Fim da exclusão
* >> Início da inclusão: MODULE VERIFY_TABLES
nrseqli = itab_zycit003-nrseqli
AND ( TPLI = 'N' OR
TPLI = 'S' ).
* << Fim da inclusão
IF sy-subrc EQ 0.
v_nratoc = wa_zycit078-reg_drawback.
/pws/zycie003-nrseqd = wa_zycit078-nrseqd.
ENDIF.
ENDIF.
WHEN '0321'.
LOOP AT itab_zycit114b.
IF itab_zycit114b-destaque IS INITIAL.
DELETE itab_zycit114b INDEX sy-tabix.
ENDIF.
...
...
PERFORM salva_dados_siscomex.
WHEN 'BACK'.
PERFORM save_adic.
LEAVE TO SCREEN 0.
ENDCASE.
CLEAR: sy-ucomm.
ENDMODULE.
MODULE modi_data049 INPUT.
IF /pws/zycie049-waers NE wa_zycbt007-waersb.
PERFORM retorna_decimais USING /pws/zycie049-waers
* >> Início da exclusão: MODULE MODI_DATA049
/pws/zycie049-vldp.
* << Fim da exclusão
* >> Início da inclusão: MODULE MODI_DATA049
changing /pws/zycie049-vldp.
* << Fim da inclusão
ENDIF.
itab_zycit049-tpdesp = /pws/zycie049-tpdesp.
itab_zycit049-descr = /pws/zycie049-descr.
itab_zycit049-vldp = /pws/zycie049-vldp.
itab_zycit049-waers = /pws/zycie049-waers.
IF NOT itab_zycit049-vldp IS INITIAL.
IF itab_zycit049-waers NE wa_zycbt007-waersb.
PERFORM taxa_converte USING /pws/zycie049-waers
/pws/zycie085-dttax
CHANGING s_tax.
itab_zycit049-vlreal = itab_zycit049-vldp * s_tax.
IF /pws/zycie049-waers NE wa_zycbt007-waersb.
PERFORM trata_decimais USING /pws/zycie049-waers
* >> Início da exclusão: MODULE MODI_DATA049
itab_zycit049-vlreal.
* << Fim da exclusão
* >> Início da inclusão: MODULE MODI_DATA049
changing itab_zycit049-vlreal.
* << Fim da inclusão
ENDIF.
ELSE.
itab_zycit049-vlreal = itab_zycit049-vldp.
ENDIF.
ELSE.
CLEAR itab_zycit049-vlreal.
ENDIF.
IF NOT itab_zycit049-tpdesp IS INITIAL.
MODIFY itab_zycit049 INDEX tc_desp-current_line.
IF sy-subrc NE 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023O01
...
IF itab_zycit049[] IS INITIAL.
PERFORM fill_desp.
ENDIF.
SORT itab_zycit049 BY tpdesp.
ENDMODULE.
MODULE fill_struct049 OUTPUT.
MOVE itab_zycit049 TO /pws/zycie049.
s_vldpr = itab_zycit049-vlreal.
ENDMODULE.
MODULE fill_struct049b OUTPUT.
* >> Início da exclusão: MODULE FILL_STRUCT049B
DATA:
v_wa_it122-vldp LIKE wa_it122-vldp ,
v_wa_it122-vlreal LIKE wa_it122-vlreal.
* << Fim da exclusão
CLEAR: itab_zycit049b-vldp , itab_zycit049b-vlreal,
* >> Início da exclusão: MODULE FILL_STRUCT049B
v_wa_it122-vldp , v_wa_it122-vlreal .
* << Fim da exclusão
* >> Início da inclusão: MODULE FILL_STRUCT049B
v_wa_vldp , v_wa_vlreal .
* << Fim da inclusão
READ TABLE itab_zycit122 WITH KEY codigo = itab_zycit049b-coddesp.
wa_it122-reduz = itab_zycit122-descricao_reduz.
LOOP AT itab_zycit049 WHERE coddesp = itab_zycit049b-coddesp
AND tipo = 'A'
AND NOT vldp IS initial.
MOVE itab_zycit049b TO wa_it122.
wa_it122-waers = itab_zycit049-waers.
READ TABLE itab_zycit122 WITH KEY codigo = itab_zycit049b-coddesp.
wa_it122-reduz = itab_zycit122-descricao_reduz.
IF NOT itab_zycit049-vldp IS INITIAL.
IF v_adics EQ '1'.
* >> Início da exclusão: MODULE FILL_STRUCT049B
v_wa_it122-vldp = v_wa_it122-vldp + itab_zycit049-vldp.
v_wa_it122-vlreal = v_wa_it122-vlreal + itab_zycit049-vlreal.
* << Fim da exclusão
* >> Início da inclusão: MODULE FILL_STRUCT049B
v_wa_vldp = v_wa_vldp + itab_zycit049-vldp.
v_wa_vlreal = v_wa_vlreal + itab_zycit049-vlreal.
* << Fim da inclusão
ELSE.
IF itab_zycit049-peso EQ 'X'.
CLEAR : wa_it122-vldp, wa_it122-vlreal, v_ntgew_adic.
LOOP AT itab_it WHERE adicao = wa_it-adicao.
v_ntgew_adic = v_ntgew_adic + itab_it-ntgew.
ENDLOOP.
IF NOT v_tntgew IS INITIAL.
* >> Início da exclusão: MODULE FILL_STRUCT049B
v_wa_it122-vldp = v_wa_it122-vldp +
* << Fim da exclusão
* >> Início da inclusão: MODULE FILL_STRUCT049B
v_wa_vldp = v_wa_vldp +
* << Fim da inclusão
( v_ntgew_adic / v_tntgew ) *
itab_zycit049-vldp.
* >> Início da exclusão: MODULE FILL_STRUCT049B
v_wa_it122-vlreal = v_wa_it122-vlreal +
* << Fim da exclusão
* >> Início da inclusão: MODULE FILL_STRUCT049B
v_wa_vlreal = v_wa_vlreal +
* << Fim da inclusão
( v_ntgew_adic / v_tntgew ) *
itab_zycit049-vlreal.
ENDIF.
ELSEIF itab_zycit049-proporplan = 'X'.
* >> Início da exclusão: MODULE FILL_STRUCT049B
v_wa_it122-vldp = v_wa_it122-vldp +
* << Fim da exclusão
* >> Início da inclusão: MODULE FILL_STRUCT049B
IF NOT v_ttad_plan IS INITIAL.
v_wa_vldp = v_wa_vldp +
* << Fim da inclusão
( v_itad_plan / v_ttad_plan ) *
itab_zycit049-vldp.
* >> Início da exclusão: MODULE FILL_STRUCT049B
v_wa_it122-vlreal = v_wa_it122-vlreal +
* << Fim da exclusão
* >> Início da inclusão: MODULE FILL_STRUCT049B
v_wa_vlreal = v_wa_vlreal +
* << Fim da inclusão
( v_itad_plan / v_ttad_plan ) *
itab_zycit049-vlreal.
* >> Início da inclusão: MODULE FILL_STRUCT049B
ENDIF.
* << Fim da inclusão
ELSEIF itab_zycit049-divabs = 'X'.
* >> Início da exclusão: MODULE FILL_STRUCT049B
v_wa_it122-vldp = v_wa_it122-vldp +
* << Fim da exclusão
* >> Início da inclusão: MODULE FILL_STRUCT049B
IF NOT v_adics IS INITIAL .
v_wa_vldp = v_wa_vldp +
* << Fim da inclusão
( 1 / v_adics ) * itab_zycit049-vldp.
* >> Início da exclusão: MODULE FILL_STRUCT049B
v_wa_it122-vlreal = v_wa_it122-vlreal +
* << Fim da exclusão
* >> Início da inclusão: MODULE FILL_STRUCT049B
v_wa_vlreal = v_wa_vlreal +
* << Fim da inclusão
( 1 / v_adics ) * itab_zycit049-vlreal.
* >> Início da inclusão: MODULE FILL_STRUCT049B
ENDIF.
* << Fim da inclusão
ELSE.
IF /pws/zycit062-bs_rat_icms EQ 'CIF'.
* >> Início da exclusão: MODULE FILL_STRUCT049B
v_wa_it122-vlreal = ( itab_zycit049-vlreal *
* << Fim da exclusão
* >> Início da inclusão: MODULE FILL_STRUCT049B
IF NOT /pws/zycie085-ukursfre IS INITIAL AND NOT
/pws/zycie085-vlfob IS INITIAL.
v_wa_vlreal = ( itab_zycit049-vlreal *
* << Fim da inclusão
( itab_it-vlfob + ( itab_it-vlfre / /pws/zycie085-ukursfre )
+ ( itab_it-vlseg / /pws/zycie085-ukursseg ) )
/ ( /pws/zycie085-vlfob + v_bltofat + v_sgtofat ) ) .
* >> Início da exclusão: MODULE FILL_STRUCT049B
v_wa_it122-vldp = ( itab_zycit049-vldp *
* << Fim da exclusão
* >> Início da inclusão: MODULE FILL_STRUCT049B
v_wa_vldp = ( itab_zycit049-vldp *
* << Fim da inclusão
( itab_it-vlfob + ( itab_it-vlfre / /pws/zycie085-ukursfre )
+ ( itab_it-vlseg / /pws/zycie085-ukursseg ) )
/ ( /pws/zycie085-vlfob + v_bltofat + v_sgtofat ) ) .
* >> Início da inclusão: MODULE FILL_STRUCT049B
ENDIF.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: MODULE FILL_STRUCT049B
IF NOT v_tot_real IS INITIAL.
v_wa_it122-vldp = v_wa_it122-vldp +
* << Fim da exclusão
* >> Início da inclusão: MODULE FILL_STRUCT049B
IF NOT v_ttad_real IS INITIAL.
v_wa_vldp = v_wa_vldp +
* << Fim da inclusão
( v_itad_real / v_ttad_real ) *
itab_zycit049-vldp.
* >> Início da exclusão: MODULE FILL_STRUCT049B
v_wa_it122-vlreal = v_wa_it122-vlreal +
* << Fim da exclusão
* >> Início da inclusão: MODULE FILL_STRUCT049B
v_wa_vlreal = v_wa_vlreal +
* << Fim da inclusão
( v_itad_real / v_ttad_real ) *
itab_zycit049-vlreal.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
* >> Início da exclusão: MODULE FILL_STRUCT049B
wa_it122-vldp = wa_it122-vldp + v_wa_it122-vldp.
wa_it122-vlreal = wa_it122-vlreal + v_wa_it122-vlreal.
* << Fim da exclusão
* >> Início da inclusão: MODULE FILL_STRUCT049B
wa_it122-vldp = wa_it122-vldp + v_wa_vldp.
wa_it122-vlreal = wa_it122-vlreal + v_wa_vlreal.
* << Fim da inclusão
ENDMODULE.
MODULE fill_struct049c OUTPUT.
* >> Início da exclusão: MODULE FILL_STRUCT049C
DATA: v_wa_it123-vldp LIKE wa_it123-vldp ,
v_wa_it123-vlreal LIKE wa_it123-vlreal.
* << Fim da exclusão
CLEAR: itab_zycit049c-vldp , itab_zycit049c-vlreal,
* >> Início da exclusão: MODULE FILL_STRUCT049C
v_wa_it123-vldp , v_wa_it123-vlreal .
* << Fim da exclusão
* >> Início da inclusão: MODULE FILL_STRUCT049C
v_wa_vldpc , v_wa_vlrealc .
* << Fim da inclusão
READ TABLE itab_zycit123 WITH KEY codigo = itab_zycit049c-coddesp.
wa_it123-reduz = itab_zycit123-descricao_reduz.
DESCRIBE TABLE itab_zycit116 LINES v_adics.
LOOP AT itab_zycit049 WHERE coddesp = itab_zycit049c-coddesp
AND tipo = 'D'
AND NOT vldp IS initial.
MOVE itab_zycit049c TO wa_it123.
wa_it123-waers = itab_zycit049-waers.
READ TABLE itab_zycit123 WITH KEY codigo = itab_zycit049c-coddesp.
wa_it123-reduz = itab_zycit123-descricao_reduz.
IF NOT itab_zycit049-vldp IS INITIAL.
IF v_adics EQ '1'.
* >> Início da exclusão: MODULE FILL_STRUCT049C
v_wa_it123-vldp = v_wa_it123-vldp + itab_zycit049-vldp.
v_wa_it123-vlreal = v_wa_it123-vlreal + itab_zycit049-vlreal.
* << Fim da exclusão
* >> Início da inclusão: MODULE FILL_STRUCT049C
v_wa_vldpc = v_wa_vldpc + itab_zycit049-vldp.
v_wa_vlrealc = v_wa_vlrealc + itab_zycit049-vlreal.
* << Fim da inclusão
ELSE.
IF itab_zycit049-peso EQ 'X'.
CLEAR: wa_it123-vldp, wa_it123-vlreal, v_ntgew_adic.
LOOP AT itab_it WHERE adicao = wa_it-adicao.
v_ntgew_adic = v_ntgew_adic + itab_it-ntgew.
ENDLOOP.
IF NOT v_tntgew IS INITIAL.
* >> Início da exclusão: MODULE FILL_STRUCT049C
v_wa_it123-vldp = v_wa_it123-vldp +
* << Fim da exclusão
* >> Início da inclusão: MODULE FILL_STRUCT049C
v_wa_vldpc = v_wa_vldpc +
* << Fim da inclusão
( v_ntgew_adic / v_tntgew ) *
itab_zycit049-vldp.
* >> Início da exclusão: MODULE FILL_STRUCT049C
v_wa_it123-vlreal = v_wa_it123-vlreal +
* << Fim da exclusão
* >> Início da inclusão: MODULE FILL_STRUCT049C
v_wa_vlrealc = v_wa_vlrealc +
* << Fim da inclusão
( v_ntgew_adic / v_tntgew ) *
itab_zycit049-vlreal.
ENDIF.
ELSEIF itab_zycit049-proporplan = 'X'.
* >> Início da exclusão: MODULE FILL_STRUCT049C
v_wa_it123-vldp = v_wa_it123-vldp +
* << Fim da exclusão
* >> Início da inclusão: MODULE FILL_STRUCT049C
IF NOT v_ttad_plan IS INITIAL.
v_wa_vldpc = v_wa_vldpc +
* << Fim da inclusão
( v_itad_plan / v_ttad_plan ) *
itab_zycit049-vldp.
* >> Início da exclusão: MODULE FILL_STRUCT049C
v_wa_it123-vlreal = v_wa_it123-vlreal +
* << Fim da exclusão
* >> Início da inclusão: MODULE FILL_STRUCT049C
v_wa_vlrealc = v_wa_vlrealc +
* << Fim da inclusão
( v_itad_plan / v_ttad_plan ) *
itab_zycit049-vlreal.
* >> Início da inclusão: MODULE FILL_STRUCT049C
ENDIF.
* << Fim da inclusão
ELSEIF itab_zycit049-divabs = 'X'.
* >> Início da exclusão: MODULE FILL_STRUCT049C
v_wa_it123-vldp = ( 1 / v_adics ) * itab_zycit049-vldp.
v_wa_it123-vlreal = ( 1 / v_adics ) * itab_zycit049-vlreal.
* << Fim da exclusão
* >> Início da inclusão: MODULE FILL_STRUCT049C
IF NOT v_adics IS INITIAL.
v_wa_vldpc = ( 1 / v_adics ) * itab_zycit049-vldp.
v_wa_vlrealc = ( 1 / v_adics ) * itab_zycit049-vlreal.
ENDIF.
* << Fim da inclusão
ELSE.
IF /pws/zycit062-bs_rat_icms EQ 'CIF'.
* >> Início da exclusão: MODULE FILL_STRUCT049C
v_wa_it123-vlreal = ( itab_zycit049-vlreal *
* << Fim da exclusão
* >> Início da inclusão: MODULE FILL_STRUCT049C
IF NOT /pws/zycie085-vlfob IS INITIAL AND NOT
/pws/zycie085-ukursfre IS INITIAL.
v_wa_vlrealc = ( itab_zycit049-vlreal *
* << Fim da inclusão
( itab_it-vlfob + ( itab_it-vlfre / /pws/zycie085-ukursfre )
+ ( itab_it-vlseg / /pws/zycie085-ukursseg ) )
/ ( /pws/zycie085-vlfob + v_bltofat + v_sgtofat ) ) .
* >> Início da exclusão: MODULE FILL_STRUCT049C
v_wa_it123-vldp = ( itab_zycit049-vldp *
* << Fim da exclusão
* >> Início da inclusão: MODULE FILL_STRUCT049C
v_wa_vldpc = ( itab_zycit049-vldp *
* << Fim da inclusão
( itab_it-vlfob + ( itab_it-vlfre / /pws/zycie085-ukursfre )
+ ( itab_it-vlseg / /pws/zycie085-ukursseg ) )
/ ( /pws/zycie085-vlfob + v_bltofat + v_sgtofat ) ) .
* >> Início da inclusão: MODULE FILL_STRUCT049C
ENDIF.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: MODULE FILL_STRUCT049C
IF NOT v_tot_real IS INITIAL.
v_wa_it123-vldp = v_wa_it123-vldp +
* << Fim da exclusão
* >> Início da inclusão: MODULE FILL_STRUCT049C
IF NOT v_ttad_real IS INITIAL.
v_wa_vldpc = v_wa_vldpc +
* << Fim da inclusão
( v_itad_real / v_ttad_real ) *
itab_zycit049-vldp.
* >> Início da exclusão: MODULE FILL_STRUCT049C
v_wa_it123-vlreal = v_wa_it123-vlreal +
* << Fim da exclusão
* >> Início da inclusão: MODULE FILL_STRUCT049C
v_wa_vlrealc = v_wa_vlrealc +
* << Fim da inclusão
( v_itad_real / v_ttad_real ) *
itab_zycit049-vlreal.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
* >> Início da exclusão: MODULE FILL_STRUCT049C
wa_it123-vldp = wa_it123-vldp + v_wa_it123-vldp.
wa_it123-vlreal = wa_it123-vlreal + v_wa_it123-vlreal.
* << Fim da exclusão
* >> Início da inclusão: MODULE FILL_STRUCT049C
wa_it123-vldp = wa_it123-vldp + v_wa_vldpc.
wa_it123-vlreal = wa_it123-vlreal + v_wa_vlrealc.
* << Fim da inclusão
IF wa_it123-vldp < 0.
wa_it123-vldp = wa_it123-vldp * -1.
wa_it123-vlreal = wa_it123-vlreal * -1.
ENDIF.
ENDMODULE.
MODULE load_valcarga OUTPUT.
PERFORM: load_frvl,
load_sgvl.
ENDMODULE.
MODULE load_valitem OUTPUT.
ENDMODULE.
MODULE data_clean_ipi OUTPUT.
IF NOT /pws/zycie100a-tribipi IS INITIAL.
CLEAR: /pws/zycie100a-codregtriipi, /pws/zycie003-advalipi,
/pws/zycie100a-notatipi, /pws/zycie100a-reduzidaipi,
/pws/zycie100a-unit_valor, /pws/zycie100a-unit_meins,
/pws/zycie100a-unit_qtde, /pws/zycie100a-unit_reccapac,
* >> Início da exclusão: MODULE DATA_CLEAN_IPI
/pws/zycie100a-unit_rectipo..
* << Fim da exclusão
* >> Início da inclusão: MODULE DATA_CLEAN_IPI
/pws/zycie100a-unit_rectipo.
* << Fim da inclusão
MOVE-CORRESPONDING /pws/zycie100a TO itab_it.
v_tipop = 'T' .
PERFORM calcula_impostos USING v_tipop.
wa_it-baseipi = itab_it-baseipi.
wa_it-vlipi = itab_it-vlipi.
wa_it-baseicms = itab_it-baseicms.
wa_it-vlicms = itab_it-vlicms.
wa_it-vlpis = itab_it-vlpis .
wa_it-vlcofins = itab_it-vlcofins.
ENDIF.
...
...
ENDIF.
IF itab_it-advalicms NE /pws/zycie003-advalicms.
itab_it-advalicms = /pws/zycie003-advalicms .
MODIFY itab_it INDEX sy-tabix.
ENDIF.
ENDIF.
ENDIF.
ENDMODULE.
MODULE verif_nf OUTPUT.
DATA: itab_zycit042 LIKE /pws/zycit042 OCCURS 0 WITH HEADER LINE.
* >> Início da inclusão: MODULE VERIF_NF
"#EC NEEDED
* << Fim da inclusão
CLEAR : itab_zycit041, itab_zycit042, v_nf041.
REFRESH: itab_zycit041, itab_zycit042.
READ TABLE itab_zycit001 INDEX 1.
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycit042 INTO TABLE itab_zycit042
WHERE nrseq EQ itab_zycit001-nrseq. "#EC CI_NOFIRST
IF NOT itab_zycit042[] IS INITIAL.
SELECT * FROM /pws/zycit041 INTO TABLE itab_zycit041
FOR ALL ENTRIES IN itab_zycit042
WHERE nrseq EQ itab_zycit042-nrseqnf.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023OO
DATA: html_control TYPE REF TO cl_gui_html_viewer,
my_container TYPE REF TO cl_gui_custom_container,
* >> Início da exclusão:
fcode LIKE sy-ucomm,
* << Fim da exclusão
myevent_tab TYPE cntl_simple_events,
myevent TYPE cntl_simple_event,
* >> Início da exclusão:
edurl(2048) ,
* << Fim da exclusão
alignment TYPE i.
* >> Início da exclusão:
DATA: edframe(255),
* << Fim da exclusão
* >> Início da inclusão:
DATA: edframe(255),"#EC NEEDED
* << Fim da inclusão
edaction(256),
edgetdata(2048),
edpostdataline(1024),
* >> Início da exclusão:
postdata_tab TYPE cnht_post_data_tab,
edquery_table TYPE cnht_query_table,
v_tam TYPE i.
* << Fim da exclusão
* >> Início da inclusão:
postdata_tab TYPE cnht_post_data_tab. "#EC NEEDED
* << Fim da inclusão
CLASS cl_myevent_handler DEFINITION.
PUBLIC SECTION.
DATA: doc_url(80).
METHODS: on_sapevent
FOR EVENT sapevent OF cl_gui_html_viewer
IMPORTING action frame getdata postdata query_table.
ENDCLASS.
DATA: evt_receiver TYPE REF TO cl_myevent_handler.
CLASS cl_myevent_handler IMPLEMENTATION.
METHOD on_sapevent.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023TOP
...
* >> Início da exclusão:
tc_vol TYPE TABLEVIEW USING SCREEN 0131,
* << Fim da exclusão
* >> Início da inclusão:
tc_vol TYPE TABLEVIEW USING SCREEN 0131,"#EC NEEDED
* << Fim da inclusão
...
...
* >> Início da exclusão:
tc_svol TYPE TABLEVIEW USING SCREEN 0221,
* << Fim da exclusão
* >> Início da inclusão:
tc_svol TYPE TABLEVIEW USING SCREEN 0221,"#EC NEEDED
* << Fim da inclusão
...
...
* >> Início da exclusão:
tc_aacr TYPE TABLEVIEW USING SCREEN 0331,
tc_aded TYPE TABLEVIEW USING SCREEN 0332,
* << Fim da exclusão
* >> Início da inclusão:
tc_aacr TYPE TABLEVIEW USING SCREEN 0331,"#EC NEEDED
tc_aded TYPE TABLEVIEW USING SCREEN 0332,"#EC NEEDED
* << Fim da inclusão
...
...
* >> Início da exclusão:
tc_doc1 TYPE TABLEVIEW USING SCREEN 0002,
* << Fim da exclusão
...
...
* >> Início da exclusão:
/pws/zycie088,
* << Fim da exclusão
...
...
* >> Início da exclusão:
/pws/zycit107,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycit107,"#EC NEEDED
* << Fim da inclusão
...
...
* >> Início da exclusão:
/pws/zycie122,
* << Fim da exclusão
...
...
* >> Início da exclusão:
/pws/zycit133,
* << Fim da exclusão
...
...
* >> Início da exclusão:
/pws/zycit041,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycit041,"#EC NEEDED
* << Fim da inclusão
...
...
* >> Início da exclusão:
/pws/zycit006,
* << Fim da exclusão
...
...
* >> Início da exclusão:
t604f,
* << Fim da exclusão
...
...
* >> Início da exclusão:
/pws/zycit104,
/pws/zycet138,
/pws/zycit174,
/pws/zycit257,
* << Fim da exclusão
...
...
* >> Início da exclusão:
ekpo, ekko,
* << Fim da exclusão
* >> Início da inclusão:
ekko,
* << Fim da inclusão
...
...
* >> Início da exclusão:
adrc,
/pws/zycie078,
/pws/zycit256, /pws/zycie256,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycit256,
* << Fim da inclusão
...
...
* >> Início da exclusão:
/pws/zyglt204,
/pws/zycit229,
/pws/zycet050,
j_1btregc,
* << Fim da exclusão
* >> Início da inclusão:
j_1btregc,"#EC NEEDED
* << Fim da inclusão
...
...
* >> Início da exclusão:
/pws/zycit132,
/pws/zyglt369,
bsis ,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycit132,"#EC NEEDED
* << Fim da inclusão
...
...
* >> Início da exclusão:
itab_zycit001_di LIKE /pws/zycit001 OCCURS 0 WITH HEADER LINE,
* << Fim da exclusão
...
...
* >> Início da exclusão:
itab_zycit079 LIKE /pws/zycie079 OCCURS 0 WITH HEADER LINE,
* << Fim da exclusão
...
...
* >> Início da exclusão:
itab_zycit086a LIKE /pws/zycie086 OCCURS 0 WITH HEADER LINE,
* << Fim da exclusão
* >> Início da inclusão:
itab_zycit086a LIKE /pws/zycie086 OCCURS 0 WITH HEADER LINE,"#EC NEEDED
* << Fim da inclusão
...
...
* >> Início da exclusão:
itab_zycit087a LIKE /pws/zycie087 OCCURS 0 WITH HEADER LINE,
* << Fim da exclusão
* >> Início da inclusão:
itab_zycit087a LIKE /pws/zycie087 OCCURS 0 WITH HEADER LINE,"#EC NEEDED
* << Fim da inclusão
...
...
* >> Início da exclusão:
itab_zycit095a LIKE /pws/zycie095 OCCURS 0 WITH HEADER LINE,
* << Fim da exclusão
* >> Início da inclusão:
itab_zycit095a LIKE /pws/zycie095 OCCURS 0 WITH HEADER LINE,"#EC NEEDED
* << Fim da inclusão
...
...
* >> Início da exclusão:
itab_zycit096a LIKE /pws/zycie096 OCCURS 0 WITH HEADER LINE,
* << Fim da exclusão
* >> Início da inclusão:
itab_zycit096a LIKE /pws/zycie096 OCCURS 0 WITH HEADER LINE,"#EC NEEDED
* << Fim da inclusão
...
...
* >> Início da exclusão:
itab_zycit118a LIKE /pws/zycie118 OCCURS 0 WITH HEADER LINE,
* << Fim da exclusão
* >> Início da inclusão:
itab_zycit118a lIKE /pws/zycie118 OCCURS 0 WITH HEADER LINE,"#EC NEEDED
* << Fim da inclusão
...
...
* >> Início da exclusão:
itab_zycit121a LIKE /pws/zycie121 OCCURS 0 WITH HEADER LINE,
itab_zycit121b LIKE /pws/zycie121 OCCURS 0 WITH HEADER LINE,
itab_zycit121c LIKE /pws/zycie121 OCCURS 0 WITH HEADER LINE,
itab_zycit122 LIKE /pws/zycit122 OCCURS 0 WITH HEADER LINE,
itab_zycit123 LIKE /pws/zycit123 OCCURS 0 WITH HEADER LINE,
itab_zycit124a LIKE /pws/zycie124 OCCURS 0 WITH HEADER LINE,
* << Fim da exclusão
* >> Início da inclusão:
itab_zycit121a LIKE /pws/zycie121 OCCURS 0 WITH HEADER LINE,"#EC NEEDED
itab_zycit121b LIKE /pws/zycie121 OCCURS 0 WITH HEADER LINE,"#EC NEEDED
itab_zycit121c LIKE /pws/zycie121 OCCURS 0 WITH HEADER LINE,"#EC NEEDED
itab_zycit122 LIKE /pws/zycit122 OCCURS 0 WITH HEADER LINE,"#EC NEEDED
itab_zycit123 LIKE /pws/zycit123 OCCURS 0 WITH HEADER LINE,"#EC NEEDED
itab_zycit124a LIKE /pws/zycie124 OCCURS 0 WITH HEADER LINE,"#EC NEEDED
* << Fim da inclusão
...
...
* >> Início da exclusão:
itab_zycit126 LIKE /pws/zycie126 OCCURS 0 WITH HEADER LINE,
* << Fim da exclusão
...
...
* >> Início da exclusão:
...
...
* << Fim da exclusão
* >> Início da inclusão:
itab_zycit177t LIKE /pws/zycit177 OCCURS 0 WITH HEADER LINE,"#EC NEEDED
* << Fim da inclusão
...
...
* >> Início da exclusão:
itab_zycit256 LIKE /pws/zycit256 OCCURS 0 WITH HEADER LINE,
itab_zycit200a LIKE /pws/zycit200 OCCURS 0 WITH HEADER LINE,
itab_zycit200b LIKE /pws/zycit200 OCCURS 0 WITH HEADER LINE,
itab_zycit255 LIKE /pws/zycit255 OCCURS 0 WITH HEADER LINE,
itab_zycit136 LIKE /pws/zycit136 OCCURS 0 WITH HEADER LINE,
rtexto LIKE tline OCCURS 0 WITH HEADER LINE,
rtextx LIKE tline OCCURS 0 WITH HEADER LINE,
rtextesp LIKE tline OCCURS 0 WITH HEADER LINE,
rtextcompl LIKE tline OCCURS 0 WITH HEADER LINE,
itab_ekpo LIKE ekpo OCCURS 0 WITH HEADER LINE,
itab_bdc LIKE bdcdata OCCURS 0 WITH HEADER LINE,
itab_msg TYPE msg_struc OCCURS 5 WITH HEADER LINE,
itab_stxl LIKE stxl OCCURS 0 WITH HEADER LINE,
itab_makt LIKE makt OCCURS 0 WITH HEADER LINE,
rtext LIKE tline OCCURS 50 WITH HEADER LINE,
rtextc LIKE tline OCCURS 50 WITH HEADER LINE,
rtexti LIKE tline OCCURS 50 WITH HEADER LINE,
rtexta LIKE tline OCCURS 50 WITH HEADER LINE.
DATA: itab_zycit003_t LIKE /pws/zycit003 OCCURS 0 WITH HEADER LINE,
itab_zycit078_t LIKE /pws/zycit078 OCCURS 0 WITH HEADER LINE,
itab_zycit085_t LIKE /pws/zycit085 OCCURS 0 WITH HEADER LINE,
itab_zycit100_t LIKE /pws/zycit100 OCCURS 0 WITH HEADER LINE.
* << Fim da exclusão
* >> Início da inclusão:
itab_zycit200a LIKE /pws/zycit200 OCCURS 0 WITH HEADER LINE,"#EC NEEDED
itab_zycit200b LIKE /pws/zycit200 OCCURS 0 WITH HEADER LINE,"#EC NEEDED
itab_zycit255 LIKE /pws/zycit255 OCCURS 0 WITH HEADER LINE,"#EC NEEDED
itab_zycit136 LIKE /pws/zycit136 OCCURS 0 WITH HEADER LINE,
rtexto LIKE tline OCCURS 0 WITH HEADER LINE,
rtextx LIKE tline OCCURS 0 WITH HEADER LINE,
rtextcompl LIKE tline OCCURS 0 WITH HEADER LINE,
itab_ekpo LIKE ekpo OCCURS 0 WITH HEADER LINE,
itab_bdc LIKE bdcdata OCCURS 0 WITH HEADER LINE,
itab_msg TYPE msg_struc OCCURS 5 WITH HEADER LINE,"#EC NEEDED
rtext LIKE tline OCCURS 50 WITH HEADER LINE,
rtextc LIKE tline OCCURS 50 WITH HEADER LINE,
rtexti LIKE tline OCCURS 50 WITH HEADER LINE,
rtexta LIKE tline OCCURS 50 WITH HEADER LINE.
DATA:
itab_zycit003_t LIKE /pws/zycit003 OCCURS 0 WITH HEADER LINE,"#EC NEEDED
itab_zycit078_t LIKE /pws/zycit078 OCCURS 0 WITH HEADER LINE,
itab_zycit085_t LIKE /pws/zycit085 OCCURS 0 WITH HEADER LINE,"#EC NEEDED
itab_zycit100_t LIKE /pws/zycit100 OCCURS 0 WITH HEADER LINE."#EC NEEDED
* << Fim da inclusão
...
...
* >> Início da exclusão:
DATA: itab_ita LIKE itab_it OCCURS 0 WITH HEADER LINE,
itab_zycit049a LIKE itab_zycit049 OCCURS 0 WITH HEADER LINE,
* << Fim da exclusão
* >> Início da inclusão:
DATA:
itab_ita LIKE itab_it OCCURS 0 WITH HEADER LINE,"#EC NEEDED
* << Fim da inclusão
...
...
* >> Início da exclusão:
DATA: BEGIN OF itab_gforn OCCURS 0.
INCLUDE STRUCTURE /pws/zycit235.
DATA: END OF itab_gforn.
* << Fim da exclusão
...
...
* >> Início da exclusão:
DATA: BEGIN OF itab_gped OCCURS 0.
INCLUDE STRUCTURE /pws/zycit236.
DATA: END OF itab_gped.
* << Fim da exclusão
...
...
* >> Início da exclusão:
DATA: it_zycit255 LIKE /pws/zycit255 OCCURS 0 WITH HEADER LINE,
it_zycit100 LIKE /pws/zycit100 OCCURS 0 WITH HEADER LINE,
it_zycit085 LIKE /pws/zycit085 OCCURS 0 WITH HEADER LINE,
it_zycit085_aux LIKE /pws/zycit085 OCCURS 0 WITH HEADER LINE,
it_zycit001 LIKE /pws/zycit001 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_zyglt369 OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt369.
DATA: END OF itab_zyglt369.
* << Fim da exclusão
* >> Início da inclusão:
DATA:
it_zycit255 LIKE /pws/zycit255 OCCURS 0 WITH HEADER LINE,"#EC NEEDED
it_zycit100 LIKE /pws/zycit100 OCCURS 0 WITH HEADER LINE,
it_zycit001 LIKE /pws/zycit001 OCCURS 0 WITH HEADER LINE.
* << Fim da inclusão
...
...
* >> Início da exclusão:
wa_zycit100 LIKE /pws/zycit100,
* << Fim da exclusão
...
...
* >> Início da exclusão:
wa_it122 LIKE itab_zycit049,
wa_it123 LIKE itab_zycit049,
t_fun_reducao(120),
t_fun_regtri(120) ,
* << Fim da exclusão
...
...
* >> Início da exclusão:
xtheada LIKE thead,
* << Fim da exclusão
* >> Início da inclusão:
xtheada LIKE thead,"#EC NEEDED
* << Fim da inclusão
...
...
* >> Início da exclusão:
xtheadx LIKE thead,
* << Fim da exclusão
...
...
* >> Início da exclusão:
wa_t001w LIKE t001w,
* << Fim da exclusão
* >> Início da inclusão:
wa_t001w LIKE t001w,"#EC NEEDED
* << Fim da inclusão
...
...
* >> Início da exclusão:
DATA: BEGIN OF wa_ender.
DATA: stras LIKE t001w-spras,
ort01 LIKE t001w-ort01,
regio LIKE t001w-regio.
DATA: END OF wa_ender.
* << Fim da exclusão
...
...
* >> Início da exclusão:
s_stvr_aux LIKE s_fbvr,
s_stvr_aux1 LIKE s_fbvr,
* << Fim da exclusão
* >> Início da inclusão:
s_stvr_aux LIKE s_fbvr,"#EC NEEDED
s_stvr_aux1 LIKE s_fbvr,"#EC NEEDED
* << Fim da inclusão
...
...
* >> Início da exclusão:
t_vmle3 LIKE /pws/zycie085-vlfob,
* << Fim da exclusão
* >> Início da inclusão:
t_vmle3 LIKE /pws/zycie085-vlfob,"#EC NEEDED
* << Fim da inclusão
...
...
* >> Início da exclusão:
v_it_plan LIKE /pws/zycit003-netpr,
v_fr_seg_ad LIKE /pws/zycie085-vlfob,
* << Fim da exclusão
* >> Início da inclusão:
v_it_plan LIKE /pws/zycit003-netpr, "#EC NEEDED
* << Fim da inclusão
...
...
* >> Início da exclusão:
a_ucomm2 LIKE sy-ucomm,
* << Fim da exclusão
* >> Início da inclusão:
a_ucomm2 LIKE sy-ucomm,"#EC NEEDED
* << Fim da inclusão
...
...
* >> Início da exclusão:
v_icodr2 LIKE /pws/zycie100a-codregtriipi,
* << Fim da exclusão
...
...
* >> Início da exclusão:
v_c LIKE /pws/zycie093-tpconh,
v_l LIKE /pws/zycie100a-codregtri,
v_m LIKE /pws/zycie006-codcambial,
v_n LIKE /pws/zycie100a-motivo,
v_o LIKE /pws/zycie085-ntimp,
v_p LIKE /pws/zycie100a-codfunleg,
v_t LIKE /pws/zycie093-meiotransp,
* << Fim da exclusão
* >> Início da inclusão:
v_c LIKE /pws/zycie093-tpconh,"#EC NEEDED
v_l LIKE /pws/zycie100a-codregtri,"#EC NEEDED
v_m LIKE /pws/zycie006-codcambial,"#EC NEEDED
v_n LIKE /pws/zycie100a-motivo,"#EC NEEDED
v_o LIKE /pws/zycie085-ntimp,"#EC NEEDED
v_p LIKE /pws/zycie100a-codfunleg,"#EC NEEDED
v_t LIKE /pws/zycie093-meiotransp,"#EC NEEDED
* << Fim da inclusão
...
...
* >> Início da exclusão:
v_totcif LIKE t_icms,
* << Fim da exclusão
* >> Início da inclusão:
v_totcif LIKE t_icms,"#EC NEEDED
* << Fim da inclusão
...
...
* >> Início da exclusão:
v_tfre LIKE t_icms,
v_tseg LIKE t_icms,
* << Fim da exclusão
* >> Início da inclusão:
v_tfre LIKE t_icms,"#EC NEEDED
v_tseg LIKE t_icms,"#EC NEEDED
* << Fim da inclusão
...
...
* >> Início da exclusão:
v_ini LIKE t_icms,
v_ini2 LIKE t_icms,
* << Fim da exclusão
...
...
* >> Início da exclusão:
v_ncm01 TYPE i,
* << Fim da exclusão
...
...
* >> Início da exclusão:
v_werks LIKE ekpo-werks,
v_name1 LIKE t001w-name1,
* << Fim da exclusão
...
...
* >> Início da exclusão:
v_trecho TYPE c ,
* << Fim da exclusão
...
...
* >> Início da exclusão:
v_status_s VALUE 1 ,
* << Fim da exclusão
* >> Início da inclusão:
v_status_s VALUE 1 ,"#EC NEEDED
* << Fim da inclusão
...
...
* >> Início da exclusão:
v_nt1 TYPE c ,
* << Fim da exclusão
...
...
* >> Início da exclusão:
v_pg01 TYPE i ,
v_10p LIKE t_icms VALUE '0.1' ,
v_name LIKE thead-tdname ,
v_texto(255) TYPE c ,
* << Fim da exclusão
...
...
* >> Início da exclusão:
v_cur TYPE i ,
* << Fim da exclusão
...
...
* >> Início da exclusão:
v_repid LIKE /pws/zycet067-repid ,
* << Fim da exclusão
...
...
* >> Início da exclusão:
v_subrc TYPE c ,
v_custo LIKE a_itfre ,
v_frete LIKE a_itfre ,
* << Fim da exclusão
...
...
* >> Início da exclusão:
v_per_seg LIKE /pws/zycie085-per_seg ,
* << Fim da exclusão
...
...
* >> Início da exclusão:
v_modo TYPE c ,
v_doc LIKE /pws/zycit085-belnr_0 ,
* << Fim da exclusão
...
...
* >> Início da exclusão:
v_txini TYPE c,
* << Fim da exclusão
...
...
* >> Início da exclusão:
v_out ,
v_canal LIKE /pws/zycie085-canal ,
* << Fim da exclusão
* >> Início da inclusão:
v_canal LIKE /pws/zycie085-canal ,"#EC NEEDED
* << Fim da inclusão
...
...
* >> Início da exclusão:
v_desc_findap TYPE lfa1-name1,
d_waersbem LIKE /pws/zycie100a-dttaxbem.
DATA: gv_subscreen_0050 TYPE sy-dynnr VALUE '0051',
gv_subscreen_0100_1 TYPE sy-dynnr,
gv_subscreen_0300_2 TYPE sy-dynnr.
* << Fim da exclusão
* >> Início da inclusão:
v_desc_findap TYPE lfa1-name1.
DATA:
gv_subscreen_0050 TYPE sy-dynnr VALUE '0051'."#EC NEEDED
* << Fim da inclusão
...
...
* >> Início da exclusão:
DATA: gv_html_help TYPE REF TO cl_gui_html_viewer.
* << Fim da exclusão
...
...
* >> Início da exclusão:
vrepid LIKE sy-repid,
* << Fim da exclusão
* >> Início da inclusão:
vrepid LIKE sy-repid,"#EC NEEDED
* << Fim da inclusão
...
...
* >> Início da exclusão:
TABLES: /pws/zycbt012.
* << Fim da exclusão
...
...
* >> Início da exclusão:
DATA: BEGIN OF itab_matuse_aux1 OCCURS 0,
matuse LIKE ekpo-j_1bmatuse,
conta_r LIKE /pws/zycbt012-saknr1,
conta_d LIKE /pws/zycbt012-saknr1,
conta_c LIKE /pws/zycbt012-saknr1,
bklas LIKE /pws/zycit135-bklas,
END OF itab_matuse_aux1.
* << Fim da exclusão
...
...
* >> Início da exclusão:
DATA: BEGIN OF itab_lfa1_aux OCCURS 0,
lifnr LIKE lfa1-lifnr,
land1 LIKE lfa1-land1,
ktokk LIKE lfa1-ktokk,
END OF itab_lfa1_aux.
DATA: BEGIN OF itab_ekko_aux OCCURS 0,
ebeln LIKE ekko-ebeln,
bsart LIKE ekko-bsart,
lifnr LIKE ekko-lifnr,
END OF itab_ekko_aux.
* << Fim da exclusão
...
...
* >> Início da exclusão:
v_datum LIKE sy-datum,
v_blart LIKE /pws/zycbt011-blart,
* << Fim da exclusão
* >> Início da inclusão:
v_blart LIKE /pws/zycbt011-blart,"#EC NEEDED
* << Fim da inclusão
...
...
* >> Início da inclusão:
DATA v_pg01 TYPE i .
data: begin of itab_gforn occurs 0.
include structure /pws/zycit235.
data: end of itab_gforn.
data: begin of itab_gped occurs 0.
include structure /pws/zycit236.
data: end of itab_gped.
data: begin of itab_zyglt369 occurs 0."#EC NEEDED
include structure /pws/zyglt369.
data: end of itab_zyglt369.
data: begin of itab_lfa1_aux occurs 0,
lifnr like lfa1-lifnr,
land1 like lfa1-land1,
ktokk like lfa1-ktokk,
end of itab_lfa1_aux.
data: begin of itab_ekko_aux occurs 0,
ebeln like ekko-ebeln,
bsart like ekko-bsart,
lifnr like ekko-lifnr,
end of itab_ekko_aux.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023X01
...
...
* >> Início da exclusão:
s_wipicalc LIKE s_fbvr,
s_wipiredu LIKE s_fbvr,
* << Fim da exclusão
...
...
* >> Início da exclusão:
t_ivdes3 LIKE t_icms,
* << Fim da exclusão
...
...
* >> Início da exclusão:
v_adic2 TYPE i ,
* << Fim da exclusão
...
...
* >> Início da inclusão:
DATA: BEGIN OF itab_itens_funcao OCCURS 0.
INCLUDE STRUCTURE /pws/zycie003.
DATA: END OF itab_itens_funcao.
* << Fim da inclusão
...
...
* >> Início da exclusão:
itab_zycit114a LIKE /pws/zycie114 OCCURS 0 WITH HEADER LINE,
* << Fim da exclusão
* >> Início da inclusão:
itab_zycit114a LIKE /pws/zycie114 OCCURS 0 WITH HEADER LINE,
* << Fim da inclusão
...
...
* >> Início da exclusão:
itab_zycit115a LIKE /pws/zycie115 OCCURS 0 WITH HEADER LINE,
* << Fim da exclusão
* >> Início da inclusão:
itab_zycit115a LIKE /pws/zycie115 OCCURS 0 WITH HEADER LINE,
* << Fim da inclusão
...
...
* >> Início da exclusão:
v_f05_ok,
* << Fim da exclusão
...
...
* >> Início da exclusão:
v_divisor LIKE t_icms,
v_redpis LIKE t_icms,
v_redcof LIKE t_icms.
* << Fim da exclusão
* >> Início da inclusão:
v_divisor LIKE t_icms.
* << Fim da inclusão
...
...
* >> Início da exclusão:
DATA: t_de_merc TYPE /pws/zycit085-de_mercosul ,
t_re_inicial TYPE /pws/zycit085-re_inicial ,
t_re_final TYPE /pws/zycit085-re_final .
* << Fim da exclusão
...
...
* >> Início da inclusão:
DATA: v_ivadud LIKE t_icms,
wa_it122 LIKE itab_zycit049,
wa_it123 LIKE itab_zycit049.
DATA: s_wipicalc LIKE s_fbvr,
s_wipiredu LIKE s_fbvr.
DATA:
itab_zycit049a LIKE itab_zycit049 OCCURS 0 WITH HEADER LINE,
v_wa_vldp LIKE wa_it122-vldp ,
v_wa_vlreal LIKE wa_it122-vlreal.
* << Fim da inclusão
* >> Início da exclusão:
DATA: v_ivadud LIKE t_icms.
* << Fim da exclusão
* >> Início da inclusão:
DATA: v_wa_vldpc LIKE wa_it123-vldp ,
v_wa_vlrealc LIKE wa_it123-vlreal.
* << Fim da inclusão
DATA: END OF COMMON PART.