CE PLUS - Nota 002872
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Remessa
Data/Hora da Publicação: 12/01/2007 00:00:00
Data/Hora Última Alteração: 18/02/2011 13:28:20
Descrição da Nota: REMESSA FINANCEIRA - COMPLEMENTO DO BOLETO - SAÍDA DE PAGAMENTO - F63
Sintoma
1) Criada uma remessa de pagamento com forma de pagamento "à pagar competência" com impostos também
com forma de pagamento à pagar competência e na pasta de contabilização (tanto do principal como dos
impostos) foram preenchidos os centros de custos,mas ao gravar a remessa,o programa não está
preenchendo na F-63 o centro de custo na partida crédito dos impostos (está preenchendo somente na
partida débito). Por favor, efetue os ajustes para que o centro de custo seja preenchido nas
partidas de débito e crédito dos impostos. OBS: O mesmo erro ocorre ao criar uma remessa com origem
e IRRF deduzido da fatura. A única diferença é que é na partida crédito da F-51 que o centro de
custo não é preenchido. Situação B: 219706(bol.8641): 1-Criada remessa com forma de pagamento
"Regime de Caixa" e impostos também "Regime de caixa". Foi preenchido o centro de custo das pastas
Principal e Impostos. Depois a rem.219706 foi gravada. 2- Ao salvar o Compl.do boleto ocorre o mesmo
problema. Ou seja,na F-43 (partida de crédito dos impostos)o Centro de Custo não está preenchido. 4-
Por favor, ajuste para que o centro de custo seja preenchido nas partidas débito e crédito dos
impostos
Solução
Efetuados ajustes nos seguintes programas: Remessa Financeira - Complemento do Boleto - Saída de
Pagamento - F63
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02872 Data: 12/01/2007 Hora: 11:34:43
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02872
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00148
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00651 - 00001 - 6.0 - 00022 - TRATAMENTO DO CAMPO ELEMENTO PEP NA F-63 REMESSA FINANCEIRA
01292 - 00002 - 6.0 - 00023 - REMESSA - GRAVAÇÃO DOS DADOS - TRATAMENTO ALTERAÇÕES
----------------------------------------------------------------------------------------------------
REMESSA FINANCEIRA - COMPLEMENTO DO BOLETO - SAÍDA DE PAGAMENTO - F63
----------------------------------------------------------------------------------------------------
Palavras Chave:
REMESSA FINANCEIRA - COMPLEMENTO DO BOLETO - SAÍDA DE PAGAMENTO - F63
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/ZYCA_TRANSACAO_F_63R
REPS /PWS/MZYCA109F01
REPS /PWS/MZYCB110F01
REPS /PWS/MZYCB110I01
REPS /PWS/MZYCB115F01
REPS /PWS/MZYCM110F01
REPS /PWS/MZYGL110F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCA_TRANSACAO_F_63R
...
PERFORM bdc_field USING 'BSEG-BUPLA' t_dados-brnch.
ENDIF.
READ TABLE itab_oculto WITH KEY campo = 'COBL-GSBER'
chave = v_deb_cred.
IF sy-subrc <> 0 AND NOT t_dados-c_gsber IS INITIAL.
PERFORM bdc_field USING 'BSEG-GSBER' t_dados-c_gsber.
ENDIF.
ELSEIF t_dados-newbs = '50' OR t_dados-newbs = '40'.
SELECT SINGLE * FROM tbsl
INTO wa_tbsl
* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
WHERE bschl = t_debito-bschl.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
WHERE bschl = t_dados-newbs.
* << Fim da inclusão
IF wa_tbsl-shkzg EQ 'S'.
v_deb_cred = 'D'.
ELSE.
v_deb_cred = 'C'.
ENDIF.
CLEAR itab_oculto. REFRESH itab_oculto.
IF v_deb_cred = 'C'.
* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
PERFORM determina_string USING t_debito-bschl
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
PERFORM determina_string USING t_dados-newbs
* << Fim da inclusão
t_dados-bukrs
v_conta
CHANGING v_string_credito.
* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
PERFORM trata_string_credito3 TABLES t_debito
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
PERFORM trata_string_credito TABLES t_dados
* << Fim da inclusão
t_campo
itab_oculto
USING v_string_credito.
ELSE.
* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
PERFORM determina_string USING t_debito-bschl
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
PERFORM determina_string USING t_dados-newbs
* << Fim da inclusão
t_dados-bukrs
v_conta
CHANGING v_string_debito.
* >> Início da exclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
PERFORM trata_string_debito2 TABLES t_debito
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCA_TRANSACAO_F_63R
PERFORM trata_string_debito TABLES t_dados
* << Fim da inclusão
t_campo
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA109F01
...
CHANGING v_estorna.
IF v_estorna = 'X' OR w_ok = 'TRASH'.
MESSAGE i061 WITH itab_zycat025_aux-tpimp '-' text-162 text-163.
DO 2 TIMES.
IF sy-index <= 1 AND itab_zycat025_aux-belnr_pr IS INITIAL.
CONTINUE.
ENDIF.
IF sy-index <= 1.
sy-index = 2.
PERFORM anula_doc USING itab_zycat025_aux-belnr_pr
* >> Início da exclusão: FORM EFETUA_ESTORNO
itab_zycat025_aux-dtlanc.
* << Fim da exclusão
* >> Início da inclusão: FORM EFETUA_ESTORNO
itab_zycat025_aux-dtlanc
' '.
* << Fim da inclusão
sy-index = 1.
PERFORM anula_doc USING /pws/zycbe124-belnr_f51p
* >> Início da exclusão: FORM EFETUA_ESTORNO
/pws/zycbe124-dtdocto.
* << Fim da exclusão
* >> Início da inclusão: FORM EFETUA_ESTORNO
/pws/zycbe124-dtdocto
' '.
* << Fim da inclusão
ENDIF.
CLEAR: /pws/zycbe124-frgsx1, /pws/zycbe124-frgsx2,
/pws/zycbe124-frgsx3, /pws/zycbe124-frgsx4,
/pws/zycbe124-frgsx5, /pws/zycbe124-estrat,
/pws/zycbe124-bname, /pws/zycbe124-frgzu.
CONTINUE.
ENDDO.
* >> Início da inclusão: FORM EFETUA_ESTORNO
IF w_ok = 'TRASH'.
PERFORM anula_doc USING /pws/zycbe124-belnr_f51
/pws/zycbe124-dtdocto
'X'.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
IF /pws/zycbe124-criacao EQ 'S' AND
NOT /pws/zycbe124-belnr IS INITIAL.
PERFORM verif_alteracoes_relevantes USING /pws/zycbe124-criacao
'PRINCIPAL'
CHANGING v_estorna.
IF v_estorna = 'X' OR w_ok = 'TRASH'.
PERFORM preenche_estorna_contabeis USING 'PRINCIPAL'
...
...
/pws/zycbe124-belnr_f51 = itab_zycbt032-belnr.
IF v_dtlanc NE /pws/zycbe124-dtdocto AND
NOT v_dtlanc = '00000000' AND
NOT v_dtlanc = ' '.
/pws/zycbe124-dtdocto = v_dtlanc.
wa_zycbt124-dtdocto = v_dtlanc.
ENDIF.
UPDATE /pws/zycbt124 SET belnr_f51 = /pws/zycbe124-belnr_f51
dtdocto = /pws/zycbe124-dtdocto
WHERE nrseq = /pws/zycbe124-nrseq.
* >> Início da exclusão: FORM DESMEMBRA_DOCTO_PROVISAO_PRIN
PERFORM seta_erro_bi USING 'PRINCIPAL'.
* << Fim da exclusão
ELSE.
LOOP AT itab_zycbt032.
MESSAGE i015 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
ENDLOOP.
PERFORM seta_erro_bi USING 'PRINCIPAL'.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
...
...
ENDIF.
ELSE.
IF sy-index <= 1.
PERFORM seta_erro_bi USING 'PRINCIPAL'.
ELSE.
PERFORM seta_erro_bi USING 'IRRF'.
ENDIF.
ENDIF.
ENDFORM.
FORM anula_doc USING p_belnr
* >> Início da exclusão: FORM ANULA_DOC
p_data.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_DOC
p_data
p_docto_abertura.
* << Fim da inclusão
DATA: v_trans(4) TYPE c.
PERFORM clear_date_batch.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = 'FBRA'.
itab_zycbe033-tabela = '/PWS/ZYCBT124'.
itab_zycbe033-cpochv = /pws/zycbe124-nrseq.
itab_zycbe033-belnr = p_belnr.
PERFORM verify_null_field USING /pws/zycbe124-bukrs
'BUKRS'
text-092.
...
...
tabela = '/PWS/ZYCBT124'
cpochv = /pws/zycbe124-nrseq
tpmsg = 'S'.
IF sy-subrc NE 0.
IF sy-index <= 1.
PERFORM seta_erro_bi USING 'PRINCIPAL'.
ELSE.
PERFORM seta_erro_bi USING 'IRRF'.
ENDIF.
ELSE.
* >> Início da exclusão: FORM ANULA_DOC
IF sy-index <= 1.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_DOC
IF p_docto_abertura = 'X'.
MESSAGE i061 WITH 'PRINCIPAL -' text-164 p_belnr text-168.
/pws/zycbe124-belnr_f51 = space.
UPDATE /pws/zycbt124 SET belnr_f51 = /pws/zycbe124-belnr_f51
WHERE nrseq = /pws/zycbe124-nrseq.
ELSEIF sy-index <= 1.
* << Fim da inclusão
MESSAGE i061 WITH 'PRINCIPAL -' text-164 p_belnr text-168.
/pws/zycbe124-belnr_f51p = space.
v_belnr_s = /pws/zycbe124-belnr.
UPDATE /pws/zycbt124 SET belnr_f51p = /pws/zycbe124-belnr_f51p
WHERE nrseq = /pws/zycbe124-nrseq.
ELSEIF sy-index = 2.
READ TABLE itab_zycat025 WITH KEY tpimp(4) = 'IRRF'.
CONCATENATE itab_zycat025-tpimp '-'
INTO v_msg SEPARATED BY space.
MESSAGE i061 WITH v_msg text-164 p_belnr text-168.
...
...
TABLES
return_tab = itab_result
EXCEPTIONS
OTHERS = 5.
CHECK sy-subrc EQ 0 AND l_display EQ space AND v_status_s NE 0.
IMPORT record_tab FROM MEMORY ID 'mcx_record_tab'.
IMPORT shlp_curr FROM MEMORY ID 'mcx_shlp_curr'.
CHECK sy-subrc EQ 0.
READ TABLE record_tab INDEX 1.
MOVE: '/PWS/ZYCBE141-SAKNR1' TO tdynpread-fieldname ,
* >> Início da exclusão: FORM SET_MC_RATEIO_IMPOSTO_CONTA
record_tab-string+63(10) TO tdynpread-fieldvalue,
* << Fim da exclusão
v_line TO tdynpread-stepl .
* >> Início da inclusão: FORM SET_MC_RATEIO_IMPOSTO_CONTA
IF sy-saprl(3) GE '620' OR sy-saprl(2) EQ '47'.
IF record_tab-string(3) NE sy-mandt.
MOVE record_tab-string+37(10) TO tdynpread-fieldvalue.
ELSE.
MOVE record_tab-string+40(10) TO tdynpread-fieldvalue.
ENDIF.
ELSE.
IF record_tab-string(3) NE sy-mandt.
MOVE record_tab-string+60(10) TO tdynpread-fieldvalue.
ELSE.
MOVE record_tab-string+63(10) TO tdynpread-fieldvalue.
ENDIF.
ENDIF.
* << Fim da inclusão
APPEND tdynpread.
CALL FUNCTION 'DYNP_VALUES_UPDATE'
EXPORTING
dyname = sy-cprog
dynumb = '0106'
TABLES
dynpfields = tdynpread
EXCEPTIONS
OTHERS = 8.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB110F01
...
EXCEPTIONS
i_demoeda_nao_encontrado = 1
i_paramoeda_nao_encontrado = 2
fator_nao_encontrado = 3
i_ctmoeda_nao_encontrado = 4
i_dtbase_nao_encontrada = 5
taxa_nao_encontrada = 6
i_montante_nao_encontrado = 7
tabela_categ_nao_configurada = 8
OTHERS = 9.
* >> Início da inclusão: FORM CALCULA_VLMI
if sy-subrc ne 0.
v_dfact = v_pfact = 1.
endif.
* << Fim da inclusão
ELSE.
MESSAGE i061 WITH text-107 text-108.
EXIT.
ENDIF.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM tcurx WHERE currkey = itab_zycbt031_tc-waers.
IF sy-subrc <> 0.
tcurx-currdec = 2.
ENDIF.
v_vlmeaux =
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB110I01
...
ENDIF.
ENDMODULE.
MODULE calcula_vlmi INPUT.
PERFORM calcula_vlmi.
ENDMODULE.
MODULE carrega_dados_tc INPUT.
MOVE-CORRESPONDING itab_dados_tc_tela TO itab_dados_tc.
MODIFY itab_dados_tc INDEX tc_dados-current_line.
ENDMODULE.
MODULE consiste_valores_dados_tc INPUT.
* >> Início da inclusão: MODULE CONSISTE_VALORES_DADOS_TC
IF v_dfact = 0.
v_dfact = 1.
ENDIF.
IF v_pfact = 0.
v_pfact = 1.
ENDIF.
* << Fim da inclusão
LOOP AT itab_dados_tc.
IF itab_dados_tc-tpimp EQ 'PRINCIPAL'.
IF itab_dados_tc-vlmi IS INITIAL OR
itab_dados_tc-kursf NE /pws/zycbe031-kursf.
IF tcurx-currdec = 0.
v_vlmeaux = itab_dados_tc-vlme /
( 10 ** ( tcurx-currdec - 2 ) ).
ELSE.
v_vlmeaux = itab_dados_tc-vlme.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB115F01
...
FORM desmembra_docto_provisao_cp.
DATA v_buzei LIKE /pws/zycbt124-buzei.
PERFORM clear_date_batch.
SELECT *
UP TO 1 ROWS
FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codmod = 'F' AND
codeven = '004P'.
ENDSELECT.
* >> Início da inclusão: FORM DESMEMBRA_DOCTO_PROVISAO_CP
refresh itab_zyglt321.
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'DSF'
AND codeven = '004P'.
* << Fim da inclusão
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = 'F-51'.
itab_zycbe033-tabela = '/PWS/ZYCBT124'.
itab_zycbe033-cpochv = itab_zycbt124-nrseq.
itab_zycbe033-xblnr = itab_zycbt124-nrseq.
READ TABLE itab_zycbt031 WITH KEY nrseq = itab_zycbt134-nrseq.
IF sy-subrc = 0.
itab_zycbe033-budat = itab_zycbt031-dtcredpr.
ENDIF.
IF wa_zycbt007-fdtdoc = 'D'.
...
...
PERFORM verify_null_field USING itab_zycbt124-waers
'WAERS'
text-011.
itab_zycbe033-waers = itab_zycbt124-waers.
itab_zycbe033-zterm = wa_zycbt007-condpgvista.
itab_zycbe033-wrbtr = itab_zycbt124-vlme.
PERFORM verify_null_field USING wa_zycbt011-blart
'BLART'
text-012.
itab_zycbe033-blart = wa_zycbt011-blart.
* >> Início da inclusão: FORM DESMEMBRA_DOCTO_PROVISAO_CP
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
IF itab_zyglt321-cpocb = 'NRFAT'.
itab_zycbe033-c_sgtxt = itab_zycbt124-nrfat.
itab_zycbe033-d_sgtxt = itab_zycbt124-nrfat.
ELSEIF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-c_sgtxt = itab_zycbt124-nrcontr.
itab_zycbe033-d_sgtxt = itab_zycbt124-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'NRFECH'.
itab_zycbe033-c_sgtxt = itab_zycbt124-nrfech.
itab_zycbe033-d_sgtxt = itab_zycbt124-nrfech.
ELSEIF itab_zyglt321-cpocb = 'NRSEQ'.
itab_zycbe033-c_sgtxt = itab_zycbt124-nrseq.
itab_zycbe033-d_sgtxt = itab_zycbt124-nrseq.
ELSEIF itab_zyglt321-cpocb = 'TXTINF'.
itab_zycbe033-c_sgtxt = itab_zycbt124-txtinf.
itab_zycbe033-d_sgtxt = itab_zycbt124-txtinf.
ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.
itab_zycbe033-c_sgtxt = itab_zycbt124-codpagto.
itab_zycbe033-d_sgtxt = itab_zycbt124-codpagto.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-c_sgtxt = itab_zyglt321-descr.
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
ENDIF.
WHEN 'VALUT'.
IF itab_zyglt321-cpocb = 'DTINCL'.
itab_zycbe033-c_valut = itab_zycbt124-dtincl.
itab_zycbe033-d_valut = itab_zycbt124-dtincl.
ELSEIF itab_zyglt321-cpocb = 'DTDOCTO'.
itab_zycbe033-c_valut = itab_zycbt124-dtdocto.
itab_zycbe033-d_valut = itab_zycbt124-dtdocto.
ELSEIF itab_zyglt321-cpocb = 'DTVENCTO'.
itab_zycbe033-c_valut = itab_zycbt124-dtvencto.
itab_zycbe033-d_valut = itab_zycbt124-dtvencto.
ENDIF.
WHEN 'XBLNR'.
IF itab_zyglt321-cpocb = 'NRSEQ'.
itab_zycbe033-xblnr = itab_zycbt124-nrseq.
ELSEIF itab_zyglt321-cpocb = 'NRFECH'.
itab_zycbe033-xblnr = itab_zycbt124-nrfech.
ELSEIF itab_zyglt321-cpocb = 'NRFAT'.
itab_zycbe033-xblnr = itab_zycbt124-nrfat.
ELSEIF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = itab_zycbt124-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF'.
itab_zycbe033-xblnr = itab_zycbt124-txtinf.
ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.
itab_zycbe033-xblnr = itab_zycbt124-codpagto.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-xblnr = itab_zyglt321-descr.
ENDIF.
WHEN 'ZFBDT'.
IF itab_zyglt321-cpocb = 'DTVENCTO'.
itab_zycbe033-zfbdt = itab_zycbt124-dtvencto.
ELSEIF itab_zyglt321-cpocb = 'DTINCL'.
itab_zycbe033-zfbdt = itab_zycbt124-dtincl.
ELSEIF itab_zyglt321-cpocb = 'DTDOCTO'.
itab_zycbe033-zfbdt = itab_zycbt124-dtdocto.
ENDIF.
WHEN 'ZUONR'.
IF itab_zyglt321-cpocb = 'NRSEQ'.
itab_zycbe033-c_zuonr = itab_zycbt124-nrseq.
ELSEIF itab_zyglt321-cpocb = 'NRFECH'.
itab_zycbe033-c_zuonr = itab_zycbt124-nrfech.
ELSEIF itab_zyglt321-cpocb = 'NRFAT'.
itab_zycbe033-c_zuonr = itab_zycbt124-nrfat.
ELSEIF itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-c_zuonr = itab_zycbt124-nrcontr.
ELSEIF itab_zyglt321-cpocb = 'TXTINF'.
itab_zycbe033-c_zuonr = itab_zycbt124-txtinf.
ELSEIF itab_zyglt321-cpocb = 'CODPAGTO'.
itab_zycbe033-c_zuonr = itab_zycbt124-codpagto.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-c_zuonr = itab_zyglt321-descr.
ENDIF.
ENDCASE.
ENDLOOP.
if itab_zycbe033-c_sgtxt is initial.
* << Fim da inclusão
IF NOT itab_zycbt124-ftxt IS INITIAL.
itab_zycbe033-c_sgtxt = itab_zycbt124-ftxt.
itab_zycbe033-d_sgtxt = itab_zycbt124-ftxt.
ELSE.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
* >> Início da inclusão: FORM DESMEMBRA_DOCTO_PROVISAO_CP
ENDIF.
* << Fim da inclusão
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM110F01
...
tpcontr = itab_zycbt154-tpcontr AND
dtcont = itab_zycbt154-dtcont AND
bukrs = itab_zycbt154-bukrs AND
gsber = itab_zycbt154-gsber AND
waers = itab_zycbt154-waers AND
c_newko = itab_zycbt154-c_newko AND
d_newko = itab_zycbt154-d_newko AND
nrcorresp = itab_zycbt154-nrcorresp AND
gjahr = itab_zycbt154-gjahr AND
belnr_pr = itab_zycbt154-belnr_pr .
* >> Início da exclusão: FORM ESTORNA_IF_CL
DELETE itab_zycbt154.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_IF_CL
DELETE itab_zycbt154
WHERE codmod = itab_zycbt154-codmod AND
codmodul = itab_zycbt154-codmodul AND
tpcontr = itab_zycbt154-tpcontr AND
dtcont = itab_zycbt154-dtcont AND
bukrs = itab_zycbt154-bukrs AND
gsber = itab_zycbt154-gsber AND
waers = itab_zycbt154-waers AND
c_newko = itab_zycbt154-c_newko AND
d_newko = itab_zycbt154-d_newko AND
nrcorresp = itab_zycbt154-nrcorresp AND
gjahr = itab_zycbt154-gjahr AND
belnr_pr = itab_zycbt154-belnr_pr .
* << Fim da inclusão
ELSE.
erro_bi = 'X'.
ENDIF.
ENDFORM.
FORM reg_fech_ip.
IF /pws/zycbe031-nrparc NE ' ' AND
/pws/zycbe031-nrparc NE '000'.
LOOP AT itab_zycbt064.
READ TABLE itab_zycmt005 WITH KEY nrseq = itab_zycbt064-nrchave
nrparc = itab_zycbt064-nrparc.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL110F01
...
EXCEPTIONS
i_demoeda_nao_encontrado = 1
i_paramoeda_nao_encontrado = 2
fator_nao_encontrado = 3
i_ctmoeda_nao_encontrado = 4
i_dtbase_nao_encontrada = 5
taxa_nao_encontrada = 6
i_montante_nao_encontrado = 7
tabela_categ_nao_configurada = 8
OTHERS = 9.
* >> Início da inclusão: FORM CALCULA_TOTAL
IF sy-subrc NE 0.
v_dfact = v_pfact = 1.
ENDIF.
* << Fim da inclusão
ELSE.
MESSAGE i061 WITH text-107 text-108.
EXIT.
ENDIF.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM tcurx WHERE currkey = /pws/zycbe031-waers.
IF sy-subrc <> 0.
tcurx-currdec = 2.
ENDIF.
v_vlmeaux = /pws/zycbe031-vlme / ( 10 ** ( tcurx-currdec - 2 ) ).
...