CE PLUS - Nota 005719
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Nota Fiscal Remessa
Data/Hora da Publicação: 23/01/2008 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:15:58
Descrição da Nota: OPERAÇÃO FUNDAP (PARTE II)
Sintoma
Operação FUNDAP (parte II)
Solução
Novo desenvolvimento na nota fiscal remessa, nota fiscal complementar, prestação de contas e custo
efetivo para atender aos casos de Operação FUNDAP.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05719 Data: 23/01/2008 Hora: 08:32:18
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05719
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00031
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02278 - 00001 - 6.0 - 00025 - AO CONSULTAR PRESTAÇÃO DE CONTAS NÃO APARECE NENHUMA DESPESA.
02936 - 00002 - 6.0 - 00026 - ERRO DE BATCH INPUT NA PRESTAÇÃO DE CONTAS
04488 - 00003 - 7.0 - 00002 - NOTA FISCAL REMESSA - VALORES ERRADOS DE IPI E ICMS
04583 - 00004 - 7.0 - 00002 - PREENCHER AUTOMATICAMENTE OS VALORES DOS IMPOSTOS E TAXA SISCOMES
04658 - 00005 - 7.0 - 00002 - AO CRIAR A NF COMPLEMENTAR SISTEMA GEROU UMA LINHA A MAIS EM UMA
04831 - 00006 - 7.0 - 00003 - DESENVOLVER FUNCIONALIDADE FUNDAP NA NF E NA DI
04932 - 00007 - 7.0 - 00003 - CRÉDITO DE PIS E COFINS EM DESPESA QUE INCIDE PIS E COFINS PREST
05006 - 00008 - 7.0 - 00003 - AJUSTE PARA MELHORIA DE PERFORMANCE DO CUSTO
05067 - 00009 - 7.0 - 00003 - NOTA FISCAL COMPLEMENTAR ESTA INCORRETA QUANDO SE REFERE A LINHA
05174 - 00010 - 7.0 - 00003 - CRÉDITO DE IMPOSTOS PRESTAÇÃO DE CONTAS NOTA FISCAL COMPLEMENTAR
05223 - 00011 - 7.0 - 00003 - NF COMPLEMENTAR NÃO ESTÁ CALCULANDO CORRETAMENTE O VALOR DA BASE
----------------------------------------------------------------------------------------------------
OPERAÇÃO FUNDAP (PARTE II)
----------------------------------------------------------------------------------------------------
Palavras Chave:
OPERAÇÃO - FUNDAP - NOTA - FISCAL - REMESSA - COMPLEMENTAR
PRESTAÇÃO - CONTAS - CUSTO - EFETIVO -
----------------------------------------------------------------------------------------------------
Objetos da nota:
CUAD /PWS/SAPMZYCI016
DYNP /PWS/SAPMZYCI010 0100
DYNP /PWS/SAPMZYCI010 0200
DYNP /PWS/SAPMZYCI029 0100
DYNP /PWS/SAPMZYCI029 0200
FUNC /PWS/ZYCI_RATEIO_CUSTO
REPS /PWS/MZYCI007F01
REPS /PWS/MZYCI007F02
REPS /PWS/MZYCI007I01
REPS /PWS/MZYCI016F01
REPS /PWS/MZYCI016I01
REPS /PWS/MZYCI016X01
REPS /PWS/MZYCI029F01
REPS /PWS/MZYCI029O01
REPS /PWS/MZYCI029TOP
REPS /PWS/MZYCI029X01
REPS /PWS/ZYCIR006
REPT /PWS/SAPMZYCI007
REPT /PWS/SAPMZYCI029
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCI016
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI010 0100
Alteração de mascara dos campos:
- /PWS/ZYCIE036A-VLREAL
*DE:
________________
*Para:
________________V
- /PWS/ZYCIE036A-NETPR
*DE:
________________
*Para:
________________V
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI010 0200
Alteração de mascara dos campos:
- /PWS/ZYCIE036-VLREAL
*De:
________________
*Para:
________________V
- /PWS/ZYCIE036-NETPR
*De:
________________
*Para:
________________V
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI029 0100
Nome
Ctg. Linha Coluna CmprDf CmVis Altura Format Dict Modif At.Des.Só At
Gr1 Gr2 Gr3 Gr4 SPA GPA ID parâm Cód.F TCmp TpoLoopExbLoop
Outros atributos
*Inicio da Inclusão:
- /PWS/ZYCIT480-DESCONTO
Texto 1 15 15 16 1 CHAR X F
Título de coluna TC
- /PWS/ZYCIT480-DESCONTO
I/O 1 15 16 16 1 CURR X Off
Alinh.à dir., Elem.TC
Código da moeda=/PWS/ZYCIT480-WAERS
*Fim da Inclusão:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCI029 0200
Alteração de mascara dos campos:
- ITAB_RESUM-VLREAL
*De:
________________
*Para:
________________V
- ITAB_RESUM-VLGLOBAL
*De:
________________
*Para:
________________V
- ITAB_RESUM-VLCOMPL
*De:
__________________
*Para:
__________________V
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCI_RATEIO_CUSTO
...
INTO TABLE itab_zycit039
WHERE codmod EQ 'D' AND
land1 EQ t001-land1.
SELECT SINGLE * FROM /pws/zycit094
WHERE nrseq = itab_zycit003-nrseq.
SELECT SINGLE * FROM /pws/zycit085
WHERE nrbl = /pws/zycit094-nrseqce.
SELECT * FROM /pws/zycit100
INTO TABLE itab_zycit100a
WHERE nrseqdi = /pws/zycit085-nrseqdi.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO
IF /pws/zycit001-regime = '04' AND /pws/zycit001-tpdecl = 'DI'.
SELECT * FROM /pws/zycit443
INTO TABLE itab_zycit443
WHERE nrseq = itab_zycit003-nrseq.
READ TABLE itab_zycit443 INDEX 1.
SELECT SINGLE * FROM /pws/zycit442 INTO /pws/zycie442
WHERE nrseqda = itab_zycit443-nrseqda.
ENDIF.
* << Fim da exclusão
IMPORT v_vinserv FROM MEMORY ID 'VINSERV'.
IF v_programa = 'DI' AND itab_zycit100a[] IS INITIAL.
LOOP AT itab_zycit100.
MOVE itab_zycit100 TO itab_zycit100a.
CLEAR itab_zycit100a-vl_sisco.
APPEND itab_zycit100a.
ENDLOOP.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO
ENDIF.
LOOP AT itab_zycit003 .
IF ( v_vinserv IS INITIAL AND
itab_zycit003-servico IS INITIAL ) OR
( v_vinserv EQ 'X' AND itab_zycit003-servico EQ 'X' ) .
v_tpeso = v_tpeso + itab_zycit003-ntgew.
v_valor = itab_zycit003-qtd_iten * itab_zycit003-vlreal.
IF NOT v_valor IS INITIAL AND NOT v_tvalor IS INITIAL.
v_tseg = v_valor / v_tvalor.
ENDIF.
v_seg = v_seg + v_valor.
* << Fim da exclusão
ENDIF.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO
ENDLOOP.
* << Fim da exclusão
CLEAR: v_tfrete,
v_ori.
SELECT SINGLE land1 FROM t001 INTO t001-land1
WHERE bukrs EQ /pws/zycbt007-bukrs.
SELECT * FROM /pws/zycit140
INTO TABLE itab_zycit140_aux
...
...
ENDIF.
LOOP AT itab_zycit036_aux WHERE codigo = 'FRETEI' AND
origem = v_ori.
v_tfrete = v_tfrete + itab_zycit036_aux-vlreal.
ENDLOOP.
ENDIF.
LOOP AT itab_zycit003 .
IF ( v_vinserv IS INITIAL AND
itab_zycit003-servico IS INITIAL ) OR
( v_vinserv EQ 'X' AND itab_zycit003-servico EQ 'X' ) .
* >> Início da inclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO
v_tpeso = v_tpeso + itab_zycit003-ntgew.
v_valor = itab_zycit003-qtd_iten * itab_zycit003-vlreal.
IF NOT v_valor IS INITIAL AND NOT v_tvalor IS INITIAL.
v_tseg = v_valor / v_tvalor.
ENDIF.
v_seg = v_seg + v_valor.
ENDIF.
ENDLOOP.
LOOP AT itab_zycit003 .
IF ( v_vinserv IS INITIAL AND
itab_zycit003-servico IS INITIAL ) OR
( v_vinserv EQ 'X' AND itab_zycit003-servico EQ 'X' ) .
IF NOT v_tpeso IS INITIAL.
* << Fim da inclusão
v_vlfrete = v_tfrete * ( itab_zycit003-ntgew / v_tpeso ).
* >> Início da inclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO
ENDIF.
* << Fim da inclusão
IF /pws/zycit085-waersfob NE itab_zycit003-waers.
PERFORM taxa_converte USING itab_zycit003-waers
/pws/zycit085-dttax
t001-land1
CHANGING v_taxa.
IF NOT v_taxa IS INITIAL.
...
...
t001-land1
CHANGING v_taxa.
IF NOT v_taxa IS INITIAL .
itab_zycit003-vlreal = itab_zycit003-vlreal / v_taxa.
itab_zycit003-netpr = itab_zycit003-netpr / v_taxa.
ENDIF.
ENDIF.
v_tot = v_tot + ( itab_zycit003-netpr * itab_zycit003-qtd_iten ).
v_tot_vlreal = v_tot_vlreal + ( itab_zycit003-vlreal *
itab_zycit003-qtd_iten ).
* >> Início da inclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO
ENDIF.
v_tpeso = v_tpeso + itab_zycit003-ntgew.
v_valor = itab_zycit003-qtd_iten * itab_zycit003-vlreal.
IF NOT v_valor IS INITIAL AND NOT v_tvalor IS INITIAL.
v_tseg = v_valor / v_tvalor.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO
v_seg = v_seg + v_valor.
* << Fim da inclusão
ENDLOOP.
IF /pws/zycit001-regime = '04' AND /pws/zycit001-tpdecl = 'DI'.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO
SELECT * FROM /pws/zycit443
INTO TABLE itab_zycit443
WHERE nrseq = itab_zycit003-nrseq.
READ TABLE itab_zycit443 INDEX 1.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycit442 INTO /pws/zycie442
WHERE nrseqda = itab_zycit443-nrseqda.
* << Fim da inclusão
LOOP AT itab_zycit443.
IF NOT '356' CA itab_zycit443-codregtri .
v_tot_ii = itab_zycit443-vlii + v_tot_ii.
ENDIF.
IF NOT '156' CA itab_zycit443-codregtriipi .
v_tot_ipi = itab_zycit443-vlipi + v_tot_ipi.
ENDIF.
IF NOT '356' CA itab_zycit443-codregtripiscofi.
v_tot_pis = itab_zycit443-vlpis + v_tot_pis.
v_tot_cofins = itab_zycit443-vlcofins + v_tot_cofins.
ENDIF.
IF NOT '356' CA itab_zycit443-codregtriicms .
v_tot_icms = itab_zycit443-vlicms + v_tot_icms.
ENDIF.
ENDLOOP.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO
IF NOT itab_zycit443[] IS INITIAL.
* << Fim da exclusão
SELECT * FROM /pws/zycit451
INTO TABLE itab_zycit451
FOR ALL ENTRIES IN itab_zycit443
WHERE nrseqda = itab_zycit443-nrseqda.
ENDIF.
LOOP AT itab_zycit451.
v_linha = sy-tabix.
LOOP AT itab_zycit443 WHERE adicao = itab_zycit451-adicao.
itab_zycit451-nr_itens = itab_zycit451-nr_itens + 1.
ENDLOOP.
...
...
codigo = /pws/zycit019-codigo AND
baseicms EQ 'X' AND
land1 EQ t001-land1.
IF sy-subrc NE 0.
SELECT SINGLE * FROM /pws/zycit020 WHERE
regio = space AND
codigo = /pws/zycit019-codigo AND
baseicms EQ 'X' AND
land1 EQ t001-land1.
ENDIF.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO
IF /pws/zycit020-baseicms EQ 'X'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO
IF /pws/zycit020-baseicms EQ 'X'
AND v_parametro NE '04'.
* << Fim da inclusão
IF /pws/zycit062-bs_rat_icms EQ 'CIF' .
READ TABLE itab_zycit443 WITH KEY
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
IF sy-subrc EQ 0.
PERFORM taxa_converte USING /pws/zycie442-waersfob
/pws/zycie442-dttax
t001-land1
CHANGING v_taxa.
IF NOT v_taxa IS INITIAL.
...
...
ebelp = itab_zycit003-ebelp.
IF sy-subrc EQ 0 AND NOT v_tot_desp IS INITIAL.
itab_zycit036_aux-vlreal = itab_despesa-netpr - v_tot_desp.
itab_zycit036_aux-waers_real = /pws/zycbt007-waersb.
ELSE.
itab_zycit036_aux-vlreal = itab_despesa-netpr.
itab_zycit036_aux-waers_real = /pws/zycbt007-waersb.
ENDIF.
ENDIF.
ELSE.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO
IF itab_zycit039-divabs EQ 'X'.
itab_zycit036_aux-vlreal = itab_despesa-netpr -
v_tot_desp.
itab_zycit036_aux-waers_real = itab_despesa-waers.
ELSEIF itab_zycit039-peso EQ 'X'.
IF NOT v_tpeso IS INITIAL.
* << Fim da exclusão
itab_zycit036_aux-vlreal = itab_despesa-netpr -
v_tot_desp.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO
itab_zycit036_aux-waers_real = itab_despesa-waers.
ENDIF.
ELSEIF itab_zycit039-proporplan EQ 'X'.
itab_zycit036_aux-vlreal = itab_despesa-netpr -
v_tot_desp.
itab_zycit036_aux-waers_real = itab_despesa-waers.
ELSEIF itab_zycit039-vlreal EQ 'X'.
itab_zycit036_aux-vlreal =
( itab_zycit003-vlreal * itab_zycit003-qtd_iten
/ v_tot_vlreal ) * itab_despesa-netpr .
itab_zycit036_aux-waers_real = itab_despesa-waers.
ELSE.
v_erro = '1'.
EXIT.
ENDIF.
* << Fim da exclusão
IF NOT itab_despesa-waers IS INITIAL.
itab_zycit036_aux-waers_real = itab_despesa-waers.
ELSE.
itab_zycit036_aux-waers_real = /pws/zycbt007-waersb.
ENDIF.
ENDIF.
ELSE.
IF NOT itab_despesa-waers IS INITIAL.
itab_zycit036_aux-waers_real = itab_despesa-waers.
ELSE.
...
...
codigo = /pws/zycit019-codigo AND
baseicms EQ 'X' AND
land1 EQ t001-land1.
IF sy-subrc NE 0.
SELECT SINGLE * FROM /pws/zycit020 WHERE
regio = space AND
codigo = /pws/zycit019-codigo AND
baseicms EQ 'X' AND
land1 EQ t001-land1.
ENDIF.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO
IF /pws/zycit020-baseicms EQ 'X'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO
IF /pws/zycit020-baseicms EQ 'X'
AND NOT v_parametro EQ '04'.
* << Fim da inclusão
IF /pws/zycit062-bs_rat_icms EQ 'CIF' .
READ TABLE itab_zycit100a WITH KEY
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
IF sy-subrc EQ 0.
PERFORM taxa_converte USING /pws/zycit085-waersfob
/pws/zycit085-dttax
t001-land1
CHANGING v_taxa.
IF NOT v_taxa IS INITIAL.
...
...
( itab_zycit003-vlreal * itab_zycit003-qtd_iten
/ v_tot_vlreal ) * itab_despesa-netpr .
ENDIF.
ELSE.
itab_zycit036_aux-vlreal =
( itab_zycit003-vlreal * itab_zycit003-qtd_iten
/ v_tot_vlreal ) * itab_despesa-netpr .
itab_zycit036_aux-waers_real = itab_despesa-waers.
ENDIF.
ELSE.
* >> Início da exclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO
itab_zycit036_aux-vlreal = ( itab_zycit003-netpr *
itab_zycit003-qtd_iten / v_tot ) *
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO
itab_zycit036_aux-vlreal = ( itab_zycit003-vlreal *
itab_zycit003-qtd_iten / v_tot_vlreal ) *
* << Fim da inclusão
itab_despesa-netpr.
itab_zycit036_aux-waers_real = itab_despesa-waers.
ENDIF.
ENDIF.
IF NOT itab_despesa-waers IS INITIAL.
itab_zycit036_aux-waers_real = itab_despesa-waers.
ELSE.
itab_zycit036_aux-waers_real = /pws/zycbt007-waersb.
ENDIF.
ENDIF.
...
...
itab_zycit003-werks TO it_desp-werks,
/pws/zycit001-inco1 TO it_desp-inco1,
/pws/zycit001-embarca TO it_desp-embarca,
itab_zycit003-advalii TO it_desp-advalii,
itab_zycit003-advalipi TO it_desp-advalipi,
itab_zycit003-aliqicms TO it_desp-aliqicms,
itab_zycit100a-vlii TO it_desp-vlii,
itab_zycit100a-vlipi TO it_desp-vlipi,
itab_zycit100a-vlpis TO it_desp-vlpis ,
itab_zycit100a-vlcofins TO it_desp-vlcofins.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO
IF /pws/zycit001-modalidade EQ '05'.
READ TABLE itab_zycit480
WITH KEY nrseq = itab_zycit003-nrseq
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
IF sy-subrc EQ 0.
MOVE: itab_zycit480-vl_ipi TO it_desp-vlipi ,
itab_zycit480-vl_icms TO it_desp-vlicms.
ENDIF.
itab_zycit036-mandt = sy-mandt.
itab_zycit036-nrseq = it_desp-nrseq.
itab_zycit036-ebeln = it_desp-ebeln.
itab_zycit036-ebelp = it_desp-ebelp.
itab_zycit036-codigo = 'DSCFUN'.
itab_zycit036-origem = 'DI'.
itab_zycit036-bukrs = it_desp-bukrs.
itab_zycit036-werks = it_desp-werks.
itab_zycit036-codmod = 'D'.
itab_zycit036-vlreal = itab_zycit480-desconto * -1.
itab_zycit036-waers_real = /pws/zycbt007-waersb.
itab_zycit036-embarca = it_desp-embarca.
IF itab_zycit036-vlreal IS INITIAL.
CLEAR itab_zycit036-waers_real.
ENDIF.
APPEND itab_zycit036.
ENDIF..
* << Fim da inclusão
IF it_desp-advalii IS INITIAL.
CLEAR it_desp-vlii.
ENDIF.
APPEND it_desp.
ENDLOOP.
PERFORM cria_despesas(/pws/zycir035) TABLES it_desp
itab_zycit036.
* >> Início da inclusão: FUNCTION /PWS/ZYCI_RATEIO_CUSTO
IF /pws/zycit001-modalidade EQ '05'.
LOOP AT it_desp.
READ TABLE itab_zycit480
WITH KEY nrseq = it_desp-nrseq
ebeln = it_desp-ebeln
ebelp = it_desp-ebelp.
itab_zycit036-mandt = sy-mandt.
itab_zycit036-nrseq = it_desp-nrseq.
itab_zycit036-ebeln = it_desp-ebeln.
itab_zycit036-ebelp = it_desp-ebelp.
itab_zycit036-codigo = 'DSCFUN'.
itab_zycit036-origem = 'DI'.
itab_zycit036-bukrs = it_desp-bukrs.
itab_zycit036-werks = it_desp-werks.
itab_zycit036-codmod = 'D'.
itab_zycit036-vlreal = itab_zycit480-desconto * -1.
itab_zycit036-waers_real = /pws/zycbt007-waersb.
itab_zycit036-embarca = it_desp-embarca.
IF itab_zycit036-vlreal IS INITIAL.
CLEAR itab_zycit036-waers_real.
ENDIF.
APPEND itab_zycit036.
ENDLOOP.
ENDIF..
* << Fim da inclusão
LOOP AT itab_zycit036 WHERE origem = 'NF'.
DELETE itab_zycit036.
ENDLOOP.
LOOP AT itab_zycit036 WHERE origem = 'DI'
OR origem = 'FAT'.
itab_zycit036-origem = 'NF'.
itab_zycit036-usernamec = sy-uname.
itab_zycit036-dtuserc = sy-datum.
itab_zycit036-hruserc = sy-uzeit.
IF /pws/zycit085-mdadicao EQ 'N'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI007F01
...
FORM atualiza_tela.
DATA:
v_ctmoeda LIKE tcurr-kurst VALUE 'M',
v_tax LIKE tcurr-ukurs ,
v_montante LIKE bsak-wrbtr .
* >> Início da inclusão: FORM ATUALIZA_TELA
IF /pws/zycit001-nrseq NE /pws/zycie026-nrseq AND
NOT /pws/zycie026-nrseq IS INITIAL.
SELECT SINGLE * FROM /pws/zycit001
WHERE nrseq EQ /pws/zycie026-nrseq .
ENDIF.
* << Fim da inclusão
CLEAR : v_vldp, v_total_dep .
CLEAR: v_impostos.
SELECT SINGLE * FROM /pws/zycbt007 WHERE bukrs = /pws/zycie026-bukrs.
SELECT SINGLE * FROM t001 WHERE bukrs = /pws/zycie026-bukrs.
* >> Início da inclusão: FORM ATUALIZA_TELA
CLEAR: it_despesa.
READ TABLE it_despesa WITH KEY codigo = 'DSCFUN'.
* << Fim da inclusão
LOOP AT it_zycit027_aux.
MOVE: it_zycit027_aux-tpdesp TO /pws/zycie027-tpdesp,
it_zycit027_aux-descr TO /pws/zycie027-descr.
* >> Início da exclusão: FORM ATUALIZA_TELA
IF it_zycit027_aux-vldp >= 0.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_TELA
IF it_zycit027_aux-vldp >= 0 OR
( /pws/zycit001-modalidade EQ '05' AND
it_zycit027_aux-tpdesp EQ it_despesa-tpdesp ).
* << Fim da inclusão
IF t001-land1 EQ 'AR'.
v_vldp = v_vldp + it_zycit027_aux-vldpiva.
ELSE.
v_vldp = v_vldp + it_zycit027_aux-vldp.
ENDIF.
ENDIF.
MODIFY it_zycit027_aux.
ENDLOOP.
MOVE: v_vldp TO /pws/zycie026-totdep.
IF t001-land1 NE 'AR' AND t001-land1 NE 'CL'.
...
...
FORM salva_dados.
DATA: v_nrpres LIKE /pws/zycit026-nrpres,
v_save.
DATA: itab_zycit016_aux LIKE it_zycit016 OCCURS 0 WITH HEADER LINE,
itab_zycit026_aux LIKE itab_zycit026 OCCURS 0 WITH HEADER LINE.
CLEAR: v_neg.
* >> Início da inclusão: FORM SALVA_DADOS
CLEAR: it_despesa.
READ TABLE it_despesa WITH KEY codigo = 'DSCFUN'.
* << Fim da inclusão
SORT it_zycit027_aux BY nrseq nradto tpdesp.
LOOP AT it_zycit027_aux WHERE vldp < 0.
* >> Início da inclusão: FORM SALVA_DADOS
IF /pws/zycit001-modalidade EQ '05' AND
it_zycit027_aux-tpdesp EQ it_despesa-tpdesp .
CONTINUE.
ENDIF.
* << Fim da inclusão
MESSAGE e015 WITH text-054 text-081.
CLEAR ok_code.
...
...
foreign_lock = 1
system_failure = 2.
IF sy-subrc = 0.
v_save = 'X'.
ENDIF.
ENDIF.
CLEAR v_totdep.
itab_zycit026-nrpres = v_value.
MODIFY itab_zycit026.
ENDLOOP.
* >> Início da inclusão: FORM SALVA_DADOS
CLEAR: it_despesa.
READ TABLE it_despesa WITH KEY codigo = 'DSCFUN'.
* << Fim da inclusão
LOOP AT it_zycit027_aux.
READ TABLE it_tab_aux WITH KEY nrseq = it_zycit027_aux-nrseq
marc = 'X'.
IF sy-subrc NE 0.
READ TABLE it_tab_aux WITH KEY nrseq = it_zycit027_aux-nrseq
marc = 'D'.
ENDIF.
CLEAR: itab_zycit026, v_totdep, v_vldf, v_nrpres.
SELECT SINGLE * FROM /pws/zycit027
WHERE nrseq = it_zycit027_aux-nrseq
...
...
waers = it_tab_aux-waers
vldp = it_zycit027_aux-vldp
descr = it_zycit027_aux-descr
iva = it_zycit027_aux-iva
vldpiva = it_zycit027_aux-vldpiva
WHERE nrseq = it_tab_aux-nrseq AND
tpdesp = it_zycit027_aux-tpdesp AND
nradto = it_tab_aux-nradto.
ENDIF.
IF it_zycit027_aux-vldp < 0.
* >> Início da inclusão: FORM SALVA_DADOS
IF /pws/zycit001-modalidade EQ '05' AND
it_zycit027_aux-tpdesp EQ it_despesa-tpdesp .
CONTINUE.
ENDIF.
* << Fim da inclusão
MOVE: 1 TO v_neg.
ENDIF.
ENDLOOP.
LOOP AT itab_zycit026 WHERE nrseq = /pws/zycie026-nrseq
AND marc = 'X' .
ENDLOOP.
IF sy-subrc = '0'.
CLEAR: itab_zycit026-nrpres,
itab_zycit026-marc.
APPEND itab_zycit026.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI007F02
...
/pws/zycie001-espindustrial = 'X'.
v_kostl = 'TRI'.
v_werks = space.
v_aux1 = itab_zycit019-codigo.
v_aux2 = 'X'.
ELSE.
v_kostl = 'DSP'.
v_werks = it_zycit003-werks.
v_aux1 = it_lanca_aux2-matuse.
v_aux2 = itab_zycit019-codigo.
* >> Início da inclusão: FORM MULTIPLOS_LANCAMENTOS
CLEAR: it_despesa.
READ TABLE it_despesa WITH KEY codigo = 'DSCFUN'.
IF /pws/zycit001-modalidade EQ '05' AND
it_lanca_aux2-tpdesp EQ it_despesa-tpdesp .
v_kostl = 'IPA'.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM MULTIPLOS_LANCAMENTOS
ENDIF.
* << Fim da inclusão
CLEAR itab_cta. REFRESH itab_cta.
PERFORM seek_account_number
TABLES itab_cta
USING /pws/zycie026-bukrs
v_kostl
v_werks
...
...
ENDLOOP.
ENDIF.
ENDIF.
COLLECT it_lanca_aux3.
v_append = 'X'.
ENDIF.
ELSE.
it_zycbe035-ktosl = 'DSP'.
it_zycbe035-d_newko = itab_cta-konts.
it_zycbe035-iva = it_lanca_aux2-iva.
* >> Início da inclusão: FORM MULTIPLOS_LANCAMENTOS
CLEAR: it_despesa.
READ TABLE it_despesa WITH KEY codigo = 'DSCFUN'.
IF /pws/zycit001-modalidade EQ '05' AND
it_lanca_aux2-tpdesp EQ it_despesa-tpdesp .
it_zycbe035-ktosl = 'IPA'.
ENDIF.
* << Fim da inclusão
ENDIF.
ELSE.
it_lanca_aux3-nrseq = it_lanca_aux2-nrseq.
it_lanca_aux3-ebeln = it_lanca_aux2-ebeln.
it_lanca_aux3-ebelp = it_lanca_aux2-ebelp.
it_lanca_aux3-gsber = it_lanca_aux2-gsber.
it_lanca_aux3-prctr = it_lanca_aux2-prctr.
it_lanca_aux3-matuse = it_lanca_aux2-matuse.
it_lanca_aux3-bklas = it_lanca_aux2-bklas.
it_lanca_aux3-knttp = it_lanca_aux2-knttp.
it_lanca_aux3-lancamento = it_lanca_aux2-lancamento.
IF t001-land1 EQ 'AR' .
it_lanca_aux3-iva = it_lanca_aux2-iva .
ENDIF.
COLLECT it_lanca_aux3.
v_append = 'X'.
ENDIF.
it_zycbe035-chave = text-016.
* >> Início da inclusão: FORM MULTIPLOS_LANCAMENTOS
CLEAR: it_despesa.
READ TABLE it_despesa WITH KEY codigo = 'DSCFUN'.
IF /pws/zycit001-modalidade EQ '05' AND
it_lanca_aux2-tpdesp EQ it_despesa-tpdesp .
it_zycbe035-chave = '50'.
ENDIF.
* << Fim da inclusão
it_zycbe035-wrbtr = abs( it_lanca_aux2-lancamento ).
it_zycbe035-d_gsber = it_lanca_aux2-gsber.
it_zycbe035-c_gsber = it_lanca_aux2-gsber.
IF /pws/zycit000-clucro_ia = 'X'.
READ TABLE it_ekpo WITH KEY ebeln = it_lanca_aux2-ebeln
ebelp = it_lanca_aux2-ebelp.
READ TABLE itab_ekkn WITH KEY ebeln = it_lanca_aux2-ebeln
ebelp = it_lanca_aux2-ebelp.
PERFORM verifica_centro_l USING it_lanca_aux2-ebeln
it_lanca_aux2-ebelp.
...
...
v_ktosl = it_zycbe035-ktosl
v_nfserv = /pws/zycie026-nfserv
v_nrpres = /pws/zycie026-nrpres
IMPORTING
v_zuonr = v_zuonr
v_xblnr = it_zycbe033-xblnr
v_sgtxt = v_nradto1.
it_zycbe035-d_zuonr = it_zycbe035-c_zuonr = v_zuonr.
it_zycbe035-d_xblnr = it_zycbe035-c_xblnr = /pws/zycie026-refpres.
it_zycbe035-d_sgtxt = it_zycbe035-c_sgtxt = v_nradto1.
* >> Início da inclusão: FORM MULTIPLOS_LANCAMENTOS
CLEAR: it_despesa.
READ TABLE it_despesa WITH KEY codigo = 'DSCFUN'.
IF /pws/zycit001-modalidade EQ '05' AND
it_lanca_aux2-tpdesp EQ it_despesa-tpdesp .
READ TABLE it_ekpo INDEX 1.
CLEAR: it_zycbe035-d_sgtxt, it_zycbe035-c_sgtxt.
CONCATENATE text-113 it_ekpo-ebeln
INTO it_zycbe035-c_sgtxt SEPARATED BY space.
it_zycbe035-d_sgtxt = it_zycbe035-c_sgtxt.
ENDIF.
* << Fim da inclusão
IF NOT v_append = 'X'.
COLLECT it_zycbe035.
ENDIF.
v_append = ' '.
ENDLOOP.
IF NOT it_lanca_aux3[] IS INITIAL.
LOOP AT it_zycbe035.
IF it_zycbe035-d_newko IS INITIAL.
DELETE it_zycbe035.
ENDIF.
ENDLOOP.
CLEAR: it_zycbe035.
LOOP AT it_lanca_aux3.
...
...
it_zycbe035-tabela = '/PWS/ZYCIT026'.
it_zycbe035-cpochv = /pws/zycie026-nrseq.
it_zycbe035-wrbtr = itab_cta_481_aux-vltot.
it_zycbe035-d_newko = itab_cta_481_aux-konts.
it_zycbe035-ktosl = itab_cta_481_aux-ktosl.
COLLECT it_zycbe035.
ENDLOOP.
ENDIF.
DESCRIBE TABLE it_zycbe035 LINES v_linha.
LOOP AT it_zycbe035.
* >> Início da inclusão: FORM MULTIPLOS_LANCAMENTOS
IF it_zycbe035-chave EQ '50'.
v_total = v_total - it_zycbe035-wrbtr.
ELSE.
* << Fim da inclusão
v_total = v_total + it_zycbe035-wrbtr.
* >> Início da inclusão: FORM MULTIPLOS_LANCAMENTOS
ENDIF.
* << Fim da inclusão
IF sy-tabix = v_linha.
v_tot_aux = /pws/zycie026-totdepme - v_total.
it_zycbe035-wrbtr = it_zycbe035-wrbtr + v_tot_aux.
MODIFY it_zycbe035.
ENDIF.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI007I01
...
MODULE user_command_0050 INPUT.
* >> Início da inclusão: MODULE USER_COMMAND_0050
DATA: v_nrseqnf TYPE /pws/zycit041-nrseq.
* << Fim da inclusão
...
...
ELSE.
CALL SCREEN 0010 STARTING AT 26 3 ENDING AT 80 15.
ENDIF.
WHEN 'APROVA'.
PERFORM verifica_estr.
IF /pws/zycie026-frgzu NE 2
AND NOT wa_zyglt340_aux-estrat IS INITIAL.
MESSAGE i046.
EXIT.
ENDIF.
* >> Início da inclusão: MODULE USER_COMMAND_0050
IF /pws/zycit001-modalidade EQ '05'.
CLEAR: it_despesa.
READ TABLE it_despesa WITH KEY codigo = 'DSCFUN'.
READ TABLE it_zycit027_aux WITH KEY
tpdesp = it_despesa-tpdesp.
IF sy-subrc EQ 0 AND
NOT it_zycit027_aux-vldp IS INITIAL.
CLEAR: v_nrseqnf.
SELECT SINGLE b~nrseq
FROM ( /pws/zycit042 AS a INNER JOIN
/pws/zycit041 AS b ON
a~nrseqnf EQ b~nrseq )
INTO v_nrseqnf
WHERE a~nrseq EQ /pws/zycit001-nrseq
AND b~mblnr_mb01 NE space.
IF sy-subrc EQ 0.
CLEAR: v_nrseqnf.
SELECT SINGLE b~nrseq
FROM ( /pws/zycit042 AS a INNER JOIN
/pws/zycit041 AS b ON
a~nrseqnf EQ b~nrseq )
INTO v_nrseqnf
WHERE a~nrseq EQ /pws/zycit001-nrseq
AND b~mblnr_mb01 EQ space.
ENDIF.
IF NOT v_nrseqnf IS INITIAL.
MESSAGE i015 WITH text-114 text-115.
EXIT.
ENDIF.
ENDIF.
ENDIF.
* << Fim da inclusão
IF /pws/zycie026-docfat IS INITIAL AND
/pws/zycie026-docomp IS INITIAL.
PERFORM atualiza_tabela.
PERFORM select_parametros.
PERFORM select_embarque_itens_matuse.
PERFORM verifica_itens.
IF v_resposta EQ 'S'.
PERFORM preenche_transacoes.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016F01
...
( itab_zycit480-vl_aliqicms / 100 ) .
IF NOT itab_zycit003-qtd_iten IS INITIAL.
itab_zycit480-vl_unit =
( itab_zycit480-vl_base_icms - itab_zycit480-vl_desp_acess ) /
itab_zycit003-qtd_iten .
ENDIF.
itab_zycit480-vl_nf_transf =
( itab_zycit480-vl_base_ipi + itab_zycit480-vl_ipi ).
READ TABLE itab_ekpa WITH KEY ebeln = itab_zycit003-ebeln.
IF sy-subrc EQ 0.
* >> Início da inclusão: FORM SELECIONA_ITENS_NFG
IF itab_zycit480-vl_basred EQ 100 AND
itab_zycit480-vl_aliqicms EQ 12.
SELECT SINGLE * FROM /pws/zycit478
WHERE lifnr EQ itab_ekpa-lifn2
AND op_icms EQ '1'.
ELSEIF itab_zycit480-vl_basred < 100 AND
itab_zycit480-vl_aliqicms EQ 12.
SELECT SINGLE * FROM /pws/zycit478
WHERE lifnr EQ itab_ekpa-lifn2
AND op_icms EQ '2'.
ELSE.
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycit478
* >> Início da exclusão: FORM SELECIONA_ITENS_NFG
WHERE lifnr EQ itab_ekpa-lifn2.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_ITENS_NFG
WHERE lifnr EQ itab_ekpa-lifn2
AND op_icms EQ '3'.
ENDIF.
* << Fim da inclusão
itab_zycit480-desconto = itab_zycit480-vl_custo_merc *
...
...
ebelp = itab_zycit042_aux2-ebelp.
IF sy-subrc EQ 0.
itab_zycit044-menge = itab_zycit045-menge.
itab_zycit044-saldo = itab_zycit045-saldo.
itab_zycit044-meins = itab_zycit045-meins.
ENDIF.
IF itab_zycit044-saldo GT 0.
APPEND itab_zycit044.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM SELECIONA_ITENS_NFR
ENDLOOP.
REFRESH itab_zycit480r.
LOOP AT itab_zycit480.
itab_zycit480r = itab_zycit480.
READ TABLE itab_zycit042 WITH KEY nrseq = itab_zycit480-nrseq
ebeln = itab_zycit480-ebeln
ebelp = itab_zycit480-ebelp.
READ TABLE itab_zycit044 WITH KEY nrseq = itab_zycit480-nrseq
ebeln = itab_zycit480-ebeln
ebelp = itab_zycit480-ebelp.
itab_zycit480r-vl_nf_ent = itab_zycit480r-vl_nf_ent *
( itab_zycit044-menge / itab_zycit042-qtd_iten ).
itab_zycit480r-waers = itab_zycit480r-waers *
( itab_zycit044-menge / itab_zycit042-qtd_iten ).
itab_zycit480r-vl_custo_merc = itab_zycit480r-vl_custo_merc *
( itab_zycit044-menge / itab_zycit042-qtd_iten ).
itab_zycit480r-vl_aliqicms = itab_zycit480r-vl_aliqicms *
( itab_zycit044-menge / itab_zycit042-qtd_iten ).
itab_zycit480r-vl_basred = itab_zycit480r-vl_basred *
( itab_zycit044-menge / itab_zycit042-qtd_iten ).
itab_zycit480r-vl_desp_acess = itab_zycit480r-vl_desp_acess *
( itab_zycit044-menge / itab_zycit042-qtd_iten ).
itab_zycit480r-vl_base_ipi = itab_zycit480r-vl_base_ipi *
( itab_zycit044-menge / itab_zycit042-qtd_iten ).
itab_zycit480r-vl_ipi = itab_zycit480r-vl_ipi *
( itab_zycit044-menge / itab_zycit042-qtd_iten ).
itab_zycit480r-vl_base_icms = itab_zycit480r-vl_base_icms *
( itab_zycit044-menge / itab_zycit042-qtd_iten ).
itab_zycit480r-vl_icms = itab_zycit480r-vl_icms *
( itab_zycit044-menge / itab_zycit042-qtd_iten ).
itab_zycit480r-vl_nf_transf = itab_zycit480r-vl_nf_transf *
( itab_zycit044-menge / itab_zycit042-qtd_iten ).
itab_zycit480r-desconto = itab_zycit480r-desconto *
( itab_zycit044-menge / itab_zycit042-qtd_iten ).
APPEND itab_zycit480r.
* << Fim da inclusão
ENDLOOP.
MOVE itab_zycit044[] TO itab_zycit044_aux[].
CLEAR: okcode.
ENDFORM.
...
...
FORM itens_nfrnew.
DATA v_val_icms_r LIKE /pws/zycee007-netpr.
DATA: itab_zycit398 LIKE /pws/zycit398 OCCURS 0 WITH HEADER LINE.
* >> Início da inclusão: FORM ITENS_NFRNEW
IF /pws/zycie001-modalidade EQ '05' AND
/pws/zycie001-tpdecl EQ 'DI' AND NOT
itab_zycit480r[] IS INITIAL.
v_fundap = 'X' .
ELSE.
CLEAR v_fundap.
ENDIF.
* << Fim da inclusão
...
...
WHEN 2.
it_zycee007-matuse2 = 'X'.
WHEN 3.
it_zycee007-matuse3 = 'X'.
ENDCASE.
IF itab_ekpo-j_1bownpro = 'X'.
it_zycee007-ownpro1 = 'X'.
ELSE.
it_zycee007-ownpro2 = 'X'.
ENDIF.
* >> Início da inclusão: FORM ITENS_NFRNEW
IF v_fundap NE 'X'.
* << Fim da inclusão
PERFORM valores_r.
* >> Início da inclusão: FORM ITENS_NFRNEW
ENDIF.
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycit062
WHERE regio = adrc-region.
* >> Início da inclusão: FORM ITENS_NFRNEW
IF v_fundap EQ 'X'.
PERFORM valores_fundap_r.
ELSE.
* << Fim da inclusão
READ TABLE itab_zycit100 WITH KEY ebeln = itab_zycit044-ebeln
ebelp = itab_zycit044-ebelp.
v_total = ( itab_zycit100-baseicms /
( itab_zycit044-menge / itab_zycit044-qtd_item ) * 100 )
/ v_basred.
CASE itab_zycit033-tribicms.
WHEN 1.
it_zycee007-base = v_total.
it_zycee007-base =
( it_zycee007-base * v_basred / 100 ).
...
...
it_zycee007-p_excbas = v_outras_ic + v_ipi.
IF itab_zycit100-icms_dif NE 'X' OR
/pws/zycit062-bs_cheia_dif = 'X'.
IF NOT v_icms IS INITIAL.
it_zycee007-p_excbas = it_zycee007-p_excbas +
( ( v_icms * 100 ) / v_basred ).
ENDIF.
ENDIF.
CLEAR it_zycee007-taxval2.
ENDCASE.
* >> Início da inclusão: FORM ITENS_NFRNEW
ENDIF.
* << Fim da inclusão
...
...
v_visualiza = v_visualiza
v_bukrs = wa_zycit085-bukrs
IMPORTING
v_resposta = v_resp
v_erro = v_erro
TABLES
itab_zycit036 = itab_zycit036
itab_despesa = itab_desp_funcao
itab_zycit003 = itab_zycit003
itab_zycit100 = itab_zycit100aux
* >> Início da exclusão: FORM VISUALIZA_RATEIO
itab_zycit036_plan = itab_zycit036_plan.
* << Fim da exclusão
* >> Início da inclusão: FORM VISUALIZA_RATEIO
itab_zycit036_plan = itab_zycit036_plan
itab_zycit480 = itab_zycit480.
* << Fim da inclusão
ENDIF.
ENDFORM.
...
...
* >> Início da inclusão:
FORM call_fundap_r.
CLEAR /pws/zycit480.
LOOP AT itab_zycit480r.
/pws/zycit480-vl_nf_ent =
itab_zycit480r-vl_nf_ent + /pws/zycit480-vl_nf_ent .
/pws/zycit480-vl_custo_merc =
itab_zycit480r-vl_custo_merc + /pws/zycit480-vl_custo_merc.
/pws/zycit480-vl_desp_acess =
itab_zycit480r-vl_desp_acess + /pws/zycit480-vl_desp_acess.
/pws/zycit480-vl_base_ipi =
itab_zycit480r-vl_base_ipi + /pws/zycit480-vl_base_ipi.
/pws/zycit480-vl_ipi =
itab_zycit480r-vl_ipi + /pws/zycit480-vl_ipi .
/pws/zycit480-vl_base_icms =
itab_zycit480r-vl_base_icms + /pws/zycit480-vl_base_icms .
/pws/zycit480-vl_icms =
itab_zycit480r-vl_icms + /pws/zycit480-vl_icms.
/pws/zycit480-vl_unit =
itab_zycit480r-vl_unit + /pws/zycit480-vl_unit.
/pws/zycit480-vl_nf_transf =
itab_zycit480r-vl_nf_transf + /pws/zycit480-vl_nf_transf .
/pws/zycit480-desconto =
itab_zycit480r-desconto + /pws/zycit480-desconto .
ENDLOOP.
CALL SCREEN '0130' STARTING AT 5 2.
ENDFORM.
FORM valores_fundap_r.
DATA: itab_zycit398 LIKE /pws/zycit398 OCCURS 0 WITH HEADER LINE.
READ TABLE itab_zycit480r WITH KEY ebeln = itab_zycit044-ebeln
ebelp = itab_zycit044-ebelp.
IF sy-subrc EQ 0.
it_zycee007-netoth = itab_zycit480r-vl_desp_acess.
it_zycee007-netpr = itab_zycit480r-vl_unit.
it_zycee007-taxval = itab_zycit480r-vl_icms.
IF NOT it_zycee007-taxval IS INITIAL.
it_zycee007-rate = itab_zycit480r-vl_aliqicms.
ENDIF.
CASE itab_zycit033-tribicms.
WHEN 1.
v_montante1 = itab_zycit480r-vl_base_icms.
v_base = v_montante1.
it_zycee007-base = v_base.
CLEAR it_zycee007-c_excbas.
WHEN 2.
v_montante1 = itab_zycit480r-vl_base_icms.
it_zycee007-c_excbas = v_montante1.
CLEAR: it_zycee007-taxval.
WHEN 3.
v_montante1 = itab_zycit480r-vl_base_icms.
v_othbas = v_montante1 .
IF NOT itab_zycit480r-vl_basred IS INITIAL.
v_excbas = ( v_montante1 / itab_zycit480r-vl_basred * 100 )
- v_othbas.
ENDIF.
IF NOT /pws/zycit062-tred IS INITIAL AND
NOT /pws/zycit062-flag_icms IS INITIAL AND
itab_zycit480r-vl_basred < 100.
v_excbas = v_excbas + ( v_excbas *
( itab_zycit480r-vl_aliqicms / 100 ) ).
ENDIF.
it_zycee007-othbas = v_othbas.
it_zycee007-c_excbas = v_excbas.
ENDCASE.
CLEAR: v_base, v_othbas.
it_zycee007-rate2 = itab_zycit003-advalipi.
IF NOT itab_zycit480r-vl_ipi IS INITIAL.
it_zycee007-taxval2 = itab_zycit480r-vl_ipi.
ELSE.
CLEAR it_zycee007-taxval2.
ENDIF.
it_zycee007-taxtyp2 = itab_zycit033-taxtyp2.
CASE itab_zycit033-tribipi.
WHEN 1.
v_montante1 = itab_zycit480r-vl_base_ipi.
it_zycee007-base2 = v_montante1.
WHEN 2.
v_montante1 = itab_zycit480r-vl_base_ipi.
it_zycee007-p_excbas = v_montante1.
CLEAR : it_zycee007-taxval2.
WHEN 3.
v_montante1 = itab_zycit480r-vl_base_ipi.
it_zycee007-othbas2 = v_montante1.
ENDCASE.
CLEAR it_zycee007-p_excbas .
ENDIF.
it_zycee007-taxtyp = itab_zycit033-taxtyp.
it_zycee007-taxtyp2 = itab_zycit033-taxtyp2.
SELECT * FROM /pws/zycit398
INTO TABLE itab_zycit398
WHERE bukrs EQ /pws/zycie041-bukrs
AND clnf EQ itab_zycit033-clnf
AND tpnf EQ itab_zycit033-tpnf
AND ( tributos EQ 'PIS' OR
tributos EQ 'COFINS' ).
READ TABLE itab_zycit398 WITH KEY tributos = 'PIS'.
IF sy-subrc EQ 0.
it_zycee007-leipis = itab_zycit398-leipis.
ENDIF.
READ TABLE itab_zycit398 WITH KEY tributos = 'COFINS'.
IF sy-subrc EQ 0.
it_zycee007-leicofins = itab_zycit398-leicofins.
ENDIF.
ENDFORM.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016I01
...
ELSE.
MOVE itab_zycit044-menge TO itab_zycit044-qtd_item.
ENDIF.
APPEND itab_zycit044.
APPEND itab_zycit044 TO itab_zycit044_aux.
ELSE.
MESSAGE w061 WITH text-002 itab_zycit003-ebelp
text-005 itab_zycit003-ebeln.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE ALTERA_ITAB_ZYCIT044
LOOP AT itab_zycit480 WHERE ebeln = itab_zycit044-ebeln
AND ebelp = itab_zycit044-ebelp.
DELETE itab_zycit480r WHERE ebeln = itab_zycit480-ebeln
AND ebelp = itab_zycit480-ebelp.
itab_zycit480r = itab_zycit480.
READ TABLE itab_zycit042 WITH KEY ebeln = itab_zycit480-ebeln
ebelp = itab_zycit480-ebelp.
itab_zycit480r-vl_nf_ent = itab_zycit480r-vl_nf_ent *
( itab_zycit044-qtd_item / itab_zycit042-qtd_iten ).
itab_zycit480r-waers = itab_zycit480r-waers *
( itab_zycit044-qtd_item / itab_zycit042-qtd_iten ).
itab_zycit480r-vl_custo_merc = itab_zycit480r-vl_custo_merc *
( itab_zycit044-qtd_item / itab_zycit042-qtd_iten ).
itab_zycit480r-vl_aliqicms = itab_zycit480r-vl_aliqicms *
( itab_zycit044-qtd_item / itab_zycit042-qtd_iten ).
itab_zycit480r-vl_basred = itab_zycit480r-vl_basred *
( itab_zycit044-qtd_item / itab_zycit042-qtd_iten ).
itab_zycit480r-vl_desp_acess = itab_zycit480r-vl_desp_acess *
( itab_zycit044-qtd_item / itab_zycit042-qtd_iten ).
itab_zycit480r-vl_base_ipi = itab_zycit480r-vl_base_ipi *
( itab_zycit044-qtd_item / itab_zycit042-qtd_iten ).
itab_zycit480r-vl_ipi = itab_zycit480r-vl_ipi *
( itab_zycit044-qtd_item / itab_zycit042-qtd_iten ).
itab_zycit480r-vl_base_icms = itab_zycit480r-vl_base_icms *
( itab_zycit044-qtd_item / itab_zycit042-qtd_iten ).
itab_zycit480r-vl_icms = itab_zycit480r-vl_icms *
( itab_zycit044-qtd_item / itab_zycit042-qtd_iten ).
itab_zycit480r-vl_nf_transf = itab_zycit480r-vl_nf_transf *
( itab_zycit044-qtd_item / itab_zycit042-qtd_iten ).
itab_zycit480r-desconto = itab_zycit480r-desconto *
( itab_zycit044-qtd_item / itab_zycit042-qtd_iten ).
APPEND itab_zycit480r.
ENDLOOP.
* << Fim da inclusão
ENDMODULE.
...
...
MESSAGE e261(sf) WITH 'ME33'.
ENDIF.
ELSE.
SET PARAMETER ID 'BES' FIELD i_ebeln.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'ME23N'.
IF sy-subrc EQ 0.
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
ELSE.
MESSAGE e261(sf) WITH 'ME23N'.
* >> Início da inclusão: MODULE USER_COMMAND_0200
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE USER_COMMAND_0200
WHEN 'FUNDAP'.
IF /pws/zycie001-modalidade EQ '05' AND
/pws/zycie001-tpdecl EQ 'DI'.
PERFORM call_fundap_r.
* << Fim da inclusão
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI016X01
...
e_exec_okcode ,
v_total like j_1bdytax-base,
v_outras_ic like /pws/zycit044-vldp,
v_counter TYPE i,
v_qtditem TYPE i.
data: okcode LIKE sy-ucomm.
data v_dif.
data: begin of itab_zycit480 occurs 0 .
include structure /pws/zycit480.
data: end of itab_zycit480.
* >> Início da inclusão:
DATA: BEGIN OF itab_zycit480r OCCURS 0 .
INCLUDE STRUCTURE /pws/zycit480.
DATA: END OF itab_zycit480r.
* << Fim da inclusão
DATA: BEGIN OF itab_ekpa OCCURS 0 .
DATA: ebeln TYPE ekpa-ebeln,
parvw TYPE ekpa-parvw,
lifn2 TYPE ekpa-lifn2.
DATA: END OF itab_ekpa.
data: v_vlii type /pws/zycit100-vlii ,
v_vlipi type /pws/zycit100-vlipi ,
v_vlpis type /pws/zycit100-vlpis ,
v_vlcofins type /pws/zycit100-vlcofins.
DATA: v_val_icms LIKE /pws/zycee007-netpr,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI029F01
...
nrseq = itab_zycit265_c-nrseq
ebeln = itab_zycit265_c-ebeln
ebelp = itab_zycit265_c-ebelp.
itab_zycit265_c-vldp_dif = itab_zycit053r-vlcompl.
IF NOT itab_zycit053r-vlcompl_icms IS INITIAL.
itab_zycit265_c-vldp_dif_icms = itab_zycit053r-vlcompl_icms.
ENDIF.
v_soma2 = v_soma2 + itab_zycit036_c-vlreal.
MODIFY itab_zycit265_c INDEX v_tabix
TRANSPORTING vldp vldp_real vldp_dif vldp_dif_icms.
* >> Início da inclusão: FORM COLLECT_DESPESAS
READ TABLE itab_zycit001 WITH KEY
nrseq = itab_zycit265_c-nrseq.
IF itab_zycit001-modalidade EQ '05'.
READ TABLE itab_zycit480 WITH KEY
nrseq = itab_zycit265_c-nrseq
ebeln = itab_zycit265_c-ebeln
ebelp = itab_zycit265_c-ebelp.
IF sy-subrc EQ 0.
itab_zycit480-desconto = itab_zycit265_c-vldp_dif *
( itab_zycit480-desconto / itab_zycit480-vl_custo_merc ).
MODIFY itab_zycit480 TRANSPORTING desconto
WHERE nrseq = itab_zycit265_c-nrseq
AND ebeln = itab_zycit265_c-ebeln
AND ebelp = itab_zycit265_c-ebelp.
ENDIF.
ENDIF.
* << Fim da inclusão
ENDLOOP.
v_vlreal = v_soma2 - v_soma1.
ENDFORM.
...
...
ENDIF.
IF NOT itab_zycit042[] IS INITIAL.
SELECT * FROM /pws/zycit003 INTO TABLE itab_zycit003
FOR ALL ENTRIES IN itab_zycit042
WHERE nrseq = itab_zycit042-nrseq AND
ebeln = itab_zycit042-ebeln AND
ebelp = itab_zycit042-ebelp.
SELECT * FROM /pws/zycit001 INTO TABLE itab_zycit001
FOR ALL ENTRIES IN itab_zycit042
WHERE nrseq = itab_zycit042-nrseq.
* >> Início da inclusão: FORM LOAD_DADOS_CUSTO
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycit480 INTO TABLE itab_zycit480
FOR ALL ENTRIES IN itab_zycit001
WHERE nrseq = itab_zycit001-nrseq.
ENDIF.
* << Fim da inclusão
SELECT * FROM ekpo INTO TABLE itab_ekpo
FOR ALL ENTRIES IN itab_zycit042
WHERE ebeln = itab_zycit042-ebeln AND
ebelp = itab_zycit042-ebelp.
ENDIF.
SELECT * FROM /pws/zycit020 INTO TABLE itab_zycit020
WHERE regio = v_regio AND
nfcompl = 'X' AND
land1 EQ t001-land1.
IF sy-subrc NE 0.
...
...
it_zycee007-ownpro2 = 'X'.
ENDIF.
READ TABLE itab_zycit100 WITH KEY
nrseq = itab_zycit265_c2-nrseq
ebeln = itab_zycit265_c2-ebeln
ebelp = itab_zycit265_c2-ebelp.
READ TABLE itab_zycit003 WITH KEY
nrseq = itab_zycit265_c2-nrseq
ebeln = itab_zycit265_c2-ebeln
ebelp = itab_zycit265_c2-ebelp.
* >> Início da inclusão: FORM ITENS_NFC
CLEAR: itab_zycit001, itab_zycit480.
READ TABLE itab_zycit001 WITH KEY
nrseq = itab_zycit265_c2-nrseq.
IF itab_zycit001-modalidade EQ '05'.
READ TABLE itab_zycit480 WITH KEY
nrseq = itab_zycit265_c2-nrseq
ebeln = itab_zycit265_c2-ebeln
ebelp = itab_zycit265_c2-ebelp.
IF sy-subrc EQ 0.
itab_zycit003-advalicms = itab_zycit480-vl_aliqicms.
ENDIF.
ENDIF.
* << Fim da inclusão
...
...
itab_zycit100-codregtriICMS EQ '5' ) or
/pws/zycit062-flag_icms NE 'X' or
( /pws/zycit062-BS_CHEIA_DIF NE 'X' and
itab_zycit100-icms_dif EQ 'X' ) or
itab_zycit100-codregtriICMS EQ '3' .
it_zycee007-c_excbas = itab_zycit265_c2-vldp_dif -
it_zycee007-base.
ELSE.
it_zycee007-c_excbas = ( itab_zycit265_c2-vldp_dif -
itab_zycit265_c2-vldp_dif_icms ) +
* >> Início da exclusão: FORM ITENS_NFC
( itab_zycit265_c2-vldp_dif_icms /
* << Fim da exclusão
* >> Início da inclusão: FORM ITENS_NFC
( ( itab_zycit265_c2-vldp_dif_icms +
itab_zycit265_c2-vldp_pis + itab_zycit265_c2-vldp_cofins ) /
* << Fim da inclusão
( ( 100 - itab_zycit003-advalicms ) / 100 ) )
- it_zycee007-base.
ENDIF.
WHEN 2.
IF NOT /pws/zycit062-bcnfc IS INITIAL AND
( NOT itab_zycit003-basred IS INITIAL AND
NOT itab_zycit003-basred EQ '100' ).
it_zycee007-c_excbas = itab_zycit265_c2-vldp_dif -
( ( itab_zycit265_c2-vldp_dif_icms +
itab_zycit265_c2-vldp_pis + itab_zycit265_c2-vldp_cofins )
...
...
itab_zycit265_c2-vldp_cofins .
itab_zycit036_lanc-codigo = 'COFINS'.
APPEND itab_zycit036_lanc.
ENDIF.
IF NOT it_zycee007-taxval IS INITIAL.
itab_zycit036_lanc-vlreal =
it_zycee007-taxval .
itab_zycit036_lanc-codigo = 'ICMS'.
APPEND itab_zycit036_lanc.
ENDIF.
* >> Início da inclusão: FORM ITENS_NFC
READ TABLE itab_zycit001 INDEX 1.
IF itab_zycit001-modalidade EQ '05'.
READ TABLE itab_zycit480 WITH KEY
nrseq = itab_zycit036_lanc-nrseq
ebeln = itab_zycit036_lanc-ebeln
ebelp = itab_zycit036_lanc-ebelp.
IF sy-subrc EQ 0.
itab_zycit036_lanc-vlreal = itab_zycit480-desconto * -1.
itab_zycit036_lanc-codigo = 'DSCFUN'.
APPEND itab_zycit036_lanc.
ENDIF.
ENDIF.
* << Fim da inclusão
CLEAR it_zycee007.
MOVE itab_zycit265_c2 TO itab_zycit265_mark.
APPEND itab_zycit265_mark.
ENDFORM.
...
...
FORM mensagens_nfc.
DATA : v_dtreg(10) TYPE c VALUE space ,
v_cont TYPE i,
v_vlpis LIKE /pws/zycit100-vlpis ,
v_vlcofins LIKE /pws/zycit100-vlcofins,
v_tamanho(45) TYPE c,
v_ind TYPE i,
v_vldp_x(15) TYPE c,
v_txtkey LIKE thead-tdname.
* >> Início da inclusão: FORM MENSAGENS_NFC
DATA: BEGIN OF itab_pedido OCCURS 0.
DATA: ebeln TYPE ekpo-ebeln.
DATA: END OF itab_pedido.
DATA: v_line TYPE i.
* << Fim da inclusão
v_cont = v_cont + 1.
it_zycee006-nrseq = /pws/zycie264-nrseqc.
it_zycee006-branch = /pws/zycie264-j_1bbranch.
it_zycee006-indice = v_cont.
WRITE /pws/zycit085-dtreg TO v_dtreg.
CONCATENATE text-008 /pws/zycit085-nrdi '/' /pws/zycit085-nrseqdi
text-009 v_dtreg INTO it_zycee006-msg
SEPARATED BY space.
APPEND it_zycee006.
v_cont = 1.
...
...
object = '/PWS/T369'
TABLES
lines = itab_texto.
ENDIF.
IF NOT itab_texto[] IS INITIAL.
LOOP AT itab_texto INTO wa_texto.
v_ind = v_ind + 1.
MOVE wa_texto TO it_zycee006-msg.
it_zycee006-indice = v_ind.
APPEND it_zycee006.
* >> Início da inclusão: FORM MENSAGENS_NFC
ENDLOOP.
ENDIF.
CLEAR: itab_zycit001, itab_zycit480.
READ TABLE itab_zycit001 WITH KEY
nrseq = itab_zycit265_c2-nrseq.
IF itab_zycit001-modalidade EQ '05' AND
itab_zycit001-tpdecl EQ 'DI'.
LOOP AT itab_zycit265_c2 .
MOVE itab_zycit265_c2-ebeln TO itab_pedido-ebeln.
COLLECT itab_pedido.
* << Fim da inclusão
ENDLOOP.
* >> Início da inclusão: FORM MENSAGENS_NFC
SORT itab_pedido BY ebeln.
CLEAR v_cont .
DESCRIBE TABLE itab_pedido LINES v_line.
LOOP AT itab_pedido.
IF sy-tabix EQ '1' .
it_zycee006-msg = text-037.
ENDIF.
CONCATENATE it_zycee006-msg itab_pedido-ebeln
INTO it_zycee006-msg SEPARATED BY '-'.
v_cont = v_cont + 1.
IF v_cont EQ '5' .
v_ind = v_ind + 1.
it_zycee006-indice = v_ind.
APPEND it_zycee006.
CONCATENATE it_zycee006-msg itab_pedido-ebeln
INTO it_zycee006-msg SEPARATED BY ','.
CLEAR v_cont.
ENDIF.
IF sy-tabix EQ v_line.
v_ind = v_ind + 1.
it_zycee006-indice = v_ind.
APPEND it_zycee006.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM MENSAGENS_NFC
ENDLOOP.
SELECT SINGLE * FROM /pws/zycit479
WHERE tpnf EQ itab_zycit033-tpnf.
IF sy-subrc EQ 0.
it_zycee006-msg = /pws/zycit479-text1.
APPEND it_zycee006.
it_zycee006-msg = /pws/zycit479-text2.
APPEND it_zycee006.
ENDIF.
ENDIF.
* << Fim da inclusão
ENDFORM.
...
...
EXPORTING
v_nrseq = itab_zycit001-nrseq
v_codeven = '006CO'
v_ktosl = itab_zycbt035-ktosl
IMPORTING
v_xblnr = v_xblnr
v_zuonr = v_zuonr
v_sgtxt = v_sgtxt
v_bktxt = v_bktxt
.
* >> Início da inclusão: FORM CONTABILIZA_IMPOSTO
ELSEIF itab_zycbt035-ktosl(2) = 'IP'.
CALL FUNCTION '/PWS/ZYCI_TEXTOS_CONTABEIS'
EXPORTING
v_nrseq = itab_zycit001-nrseq
v_codeven = '006IP'
v_ktosl = itab_zycbt035-ktosl
IMPORTING
v_xblnr = v_xblnr
v_zuonr = v_zuonr
v_sgtxt = v_sgtxt
v_bktxt = v_bktxt.
* << Fim da inclusão
ENDIF.
itab_zycbt035-d_sgtxt = itab_zycbt035-c_sgtxt = v_sgtxt.
itab_zycbt035-d_zuonr = itab_zycbt035-c_zuonr = v_zuonr.
itab_zycbt035-d_xblnr = itab_zycbt035-c_xblnr = v_xblnr.
PERFORM verifica_exit USING 'D'
'/PWS/SAPMZYCI029'
'NFC002'.
CLEAR itab_zyglt100 .
READ TABLE itab_zyglt100 WITH KEY zexit = 'NFC002'.
IF itab_zyglt100-zexit_ativa IS INITIAL.
...
...
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012
WHERE codeven = v_codeven
AND codmod = 'D'.
CLEAR /pws/zycbt011.
SELECT SINGLE * FROM /pws/zycbt011
WHERE codeven = v_codeven
AND codmod = 'D'.
SELECT * FROM j_1baj
INTO TABLE itab_j_1baj
* >> Início da exclusão: FORM GET_PARAMETER_F_02
WHERE taxgrp = 'ICMS'.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETER_F_02
WHERE taxgrp = 'ICMS'
OR taxgrp = 'IPI'.
* << Fim da inclusão
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI029O01
...
ENDLOOP.
IF sy-subrc EQ 0.
screen-input = 0.
ELSE.
screen-input = 1.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
* >> Início da inclusão: MODULE SET_SCREEN
READ TABLE itab_zycit001 WITH KEY
nrseq = itab_zycit053_e-nrseq.
IF itab_zycit001-modalidade NE '05'.
LOOP AT tc_nfc-cols INTO wa_cols .
IF wa_cols-screen-name EQ '/PWS/ZYCIT480-DESCONTO'.
wa_cols-invisible = 1.
MODIFY tc_nfc-cols FROM wa_cols.
ENDIF.
ENDLOOP.
ENDIF.
* << Fim da inclusão
ENDCASE.
ENDMODULE.
...
...
IF /pws/zycie265-nfnum IS INITIAL.
SELECT SINGLE * FROM /pws/zycit048.
/pws/zycie265-nfnum = /pws/zycit048-nfprov.
/pws/zycie265-series = /pws/zycit048-series.
ELSE.
SELECT SINGLE * FROM j_1bnfdoc
WHERE docnum = /pws/zycie265-docnum.
IF sy-subrc EQ 0.
/pws/zycie265-nfnum = j_1bnfdoc-nfnum.
/pws/zycie265-series = j_1bnfdoc-series.
* >> Início da inclusão: MODULE ITENS_NFC
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
* >> Início da inclusão: MODULE ITENS_NFC
CLEAR: itab_zycit001.
READ TABLE itab_zycit001 WITH KEY
nrseq = itab_zycit265_c-nrseq.
IF itab_zycit001-modalidade EQ '05'.
READ TABLE itab_zycit480 WITH KEY
nrseq = itab_zycit265_c-nrseq
ebeln = itab_zycit265_c-ebeln
ebelp = itab_zycit265_c-ebelp.
/pws/zycit480-desconto = itab_zycit480-desconto.
* << Fim da inclusão
ENDIF.
IF NOT /pws/zycie265-docnum IS INITIAL.
MODIFY /pws/zycit265 FROM /pws/zycie265.
ENDIF.
ENDMODULE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI029TOP
...
v_year LIKE bkpf-gjahr,
v_vldp_nfc LIKE /pws/zycit265-vldp,
v_last_date LIKE /pws/zycit004-dtemiss,
v_urf2(1) TYPE c.
TYPES: BEGIN OF mytable_line,
line(256) TYPE c,
END OF mytable_line.
DATA:
itab_texto TYPE TABLE OF mytable_line,
wa_texto(256) type C.
* >> Início da inclusão:
DATA: wa_cols TYPE cxtab_column.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI029X01
tables: /pws/zycie265,
/pws/zycit085,
/pws/zycit442,
/pws/zycie041a,
* >> Início da exclusão:
/pws/zycit048.
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycit048,
/pws/zycit480,
/pws/zycit479.
* << Fim da inclusão
data: begin of common part a.
* >> Início da inclusão:
DATA: itab_zycit480 TYPE /pws/zycit480 OCCURS 0 WITH HEADER LINE.
* << Fim da inclusão
data: begin of itab_zycbt035 occurs 0.
include structure /pws/zycbe035.
data: end of itab_zycbt035.
data: begin of itab_zycit265 occurs 0.
include structure /pws/zycit265.
data: end of itab_zycit265.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR006
...
itab_zycit036-waers_dif = /pws/zycbt007-waersb.
ENDIF.
IF itab_zycit036-vlmov IS INITIAL.
CLEAR itab_zycit036-waers_mov.
ELSEIF itab_zycit036-vldif IS INITIAL.
CLEAR itab_zycit036-waers_dif.
ENDIF.
MODIFY itab_zycit036 INDEX v_index.
WHEN OTHERS .
IF t001-land1 EQ 'BR'.
* >> Início da exclusão: FORM CALCULAR_OUTROS_CUSTOS
IF itab_zycit036-vlreal GT 0 AND
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULAR_OUTROS_CUSTOS
IF not itab_zycit036-vlreal is initial AND
* << Fim da inclusão
NOT itab_zycit036-waers_real IS INITIAL.
CLEAR v_real_brl.
PERFORM converter_moeda USING itab_zycit036-vlreal
itab_zycit036-waers_real
/pws/zycbt007-waersb
CHANGING v_real_brl.
PERFORM trata_decimais USING itab_zycit036-waers_real
CHANGING v_real_brl.
IF v_itemcongela NE 'X'.
itab_zycit036-vlmov = v_real_brl.
...
...
MESSAGE i061 WITH text-013 p_meorig 'para' p_medest.
v_erro_tax = 'X'.
ENDIF.
ENDIF.
IF p_meorig = 'JPY'.
p_vldest = p_vldest * v_dfact.
ENDIF.
IF v_erro_tax IS INITIAL.
itab_taxob08-waerso = p_meorig.
itab_taxob08-waersd = p_medest.
* >> Início da exclusão: FORM CONVERTER_MOEDA
IF p_vlorig > 0.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERTER_MOEDA
IF p_vlorig <> 0.
* << Fim da inclusão
itab_taxob08-taxa = p_vldest / p_vlorig.
ELSE.
itab_taxob08-taxa = p_vldest.
ENDIF.
APPEND itab_taxob08.
ENDIF.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI007
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 113
Texto: (6 caracteres)
"Fundap"
Comprimento máximo: 6
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 114
Texto: (40 caracteres)
"Ainda exite nota fiscal sem recebimento."
Comprimento máximo: 40
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 115
Texto: (45 caracteres)
"Prestação complementar não pode ser aprovada."
Comprimento máximo: 45
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCI029
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 037
Texto: (10 caracteres)
"Pedidos nº"
Comprimento máximo: 15