CE PLUS - Nota 004118
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 06/07/2007 00:00:00
Data/Hora Última Alteração: 21/02/2011 10:23:16
Descrição da Nota: VINCULAÇÃO - FECHAR TODOS OS CAMPOS APÓS QUALQUER CONTABILIZAÇÃO.
Sintoma
Após a contabilização o programa esta permitindo que o usuário altere (estornando - desvinculando)
informações causando inconsitencia.
Solução
Ajuste efetuado fazendo com que o programa feche todos os campos da tela após qualquer
contabilização, para o caso de "estorno-desinculação" ser efetuado corretamente passo a passo.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04118 Data: 06/07/2007 Hora: 09:34:38
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04118
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00002
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01681 - 00001 - 6.0 - 00024 - VINCULAÇÃO GRAVAR TABELAS ANTES DO RELATORIO DE DOCUMENTOS CONTAB
01703 - 00002 - 6.0 - 00024 - VINCULAÇÃO GRAVAÇÃO DAS TABELAS CONTRATOS CP E ACE
----------------------------------------------------------------------------------------------------
VINCULAÇÃO - FECHAR TODOS OS CAMPOS APÓS QUALQUER CONTABILIZAÇÃO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
VINCULAÇÃO - FECHAR TODOS OS CAMPOS APÓS QUALQUER CONTABILIZAÇÃO.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB009F01
REPS /PWS/MZYCB009F02
REPS /PWS/MZYCB009F03
REPS /PWS/MZYCB009F05
REPS /PWS/MZYCB009F06
REPS /PWS/MZYCB009F07
REPS /PWS/MZYCB009F09
REPS /PWS/MZYCB009F10
FUNC /PWS/ZYCB_TRANSACAO_F_30_P
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F01
...
itab_zycbt030-v_kwert =
( itab_zycbt030-kwert / itab_zycbt030-s_kwert )
* itab_zycbt005-vlvinc.
v_brl_contr = itab_zycbt030-v_kwert.
PERFORM contabiliza_cp_arbitr.
PERFORM grava_contabilizacao.
IF NOT itab_erro[] IS INITIAL.
EXPORT itab_erro TO MEMORY ID '001'.
SUBMIT /pws/zycbr128 AND RETURN.
REFRESH itab_erro.
* >> Início da inclusão: FORM FILL_DATE1_F30_B
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
PERFORM executa_exit USING 'VNC016'.
IF NOT itab_contabil[] IS INITIAL.
EXPORT itab_contabil TO MEMORY ID '040'.
EXPORT text-059 TO MEMORY ID '050'.
SUBMIT /pws/zycbr040 AND RETURN.
REFRESH itab_contabil.
* >> Início da inclusão: FORM FILL_DATE1_F30_B
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
ENDLOOP.
IF sy-subrc <> 0.
MESSAGE i173 WITH itab_zycbt006-nrinvoic.
ELSE.
itab_zycbt005-slpagar = 0.
itab_zycbt005-belnr = v_belnr_001.
itab_zycbt005-status = 'C'.
itab_zycbt005-txcamb = v_txcamb.
MODIFY itab_zycbt005.
...
...
AND nrparcf = itab_zycbt005-nrparcf
AND gsberf = itab_zycbt005-gsberf.
PERFORM liquida_dp.
ENDLOOP.
ELSE.
MOVE itab_erro1[] TO itab_erro[].
EXPORT itab_erro TO MEMORY ID '001'.
SUBMIT /pws/zycbr126 AND RETURN.
REFRESH: itab_erro,
itab_erro1.
* >> Início da inclusão: FORM FILL_DATE1_F30_B
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
IF NOT itab_zycbt030_aux IS INITIAL.
CLEAR wa_zycbt005.
MOVE itab_zycbt005 TO wa_zycbt005.
PERFORM executa_clearing_adcliente.
ENDIF.
ENDIF.
ENDLOOP.
/pws/zycbe001-slpagar = /pws/zycbe001-slvinc.
PERFORM clear_date_batch.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F02
...
COMMIT WORK.
ELSE.
MESSAGE i015 WITH text-109.
ENDIF.
PERFORM limpa_itabs_contabil.
PERFORM grava_contabilizacao.
IF NOT itab_erro[] IS INITIAL.
EXPORT itab_erro TO MEMORY ID '001'.
SUBMIT /pws/zycbr128 AND RETURN.
REFRESH itab_erro.
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
PERFORM executa_exit USING 'VNC016'.
IF NOT itab_contabil[] IS INITIAL.
EXPORT itab_contabil TO MEMORY ID '040'.
EXPORT text-059 TO MEMORY ID '050'.
SUBMIT /pws/zycbr040 AND RETURN.
REFRESH itab_contabil.
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM receb_pagto_dev.
DATA: v_sai,
v_contad LIKE /pws/zycbt012-saknr1,
v_slliq LIKE /pws/zycbt001-vlme,
v_subrc LIKE sy-subrc,
v_dev.
IF v_existe EQ 'X'.
MESSAGE i015 WITH text-170.
...
...
ENDLOOP.
COMMIT WORK.
PERFORM limpa_itabs_contabil.
CLEAR itab_zycbt006_aux.
REFRESH itab_zycbt006_aux.
PERFORM grava_contabilizacao.
IF NOT itab_erro[] IS INITIAL.
EXPORT itab_erro TO MEMORY ID '001'.
SUBMIT /pws/zycbr126 AND RETURN.
REFRESH itab_erro.
* >> Início da inclusão: FORM RECEB_PAGTO_DEV
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
ENDIF.
PERFORM executa_exit USING 'VNC016'.
IF NOT itab_contabil[] IS INITIAL.
EXPORT itab_contabil TO MEMORY ID '040'.
EXPORT text-059 TO MEMORY ID '050'.
SUBMIT /pws/zycbr040 AND RETURN.
REFRESH itab_contabil.
* >> Início da inclusão: FORM RECEB_PAGTO_DEV
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM recup_divisas.
DATA: v_sai,
v_contad LIKE /pws/zycbt012-saknr1,
v_slliq LIKE /pws/zycbt001-vlme,
v_subrc LIKE sy-subrc,
v_dev.
IF v_existe EQ 'X'.
MESSAGE i015 WITH text-170.
...
...
ENDLOOP.
COMMIT WORK.
PERFORM limpa_itabs_contabil.
CLEAR itab_zycbt006_aux.
REFRESH itab_zycbt006_aux.
PERFORM grava_contabilizacao.
IF NOT itab_erro1[] IS INITIAL.
EXPORT itab_erro1 TO MEMORY ID '001'.
SUBMIT /pws/zycbr126 AND RETURN.
REFRESH itab_erro1.
* >> Início da inclusão: FORM RECUP_DIVISAS
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
ENDIF.
PERFORM executa_exit USING 'VNC016'.
IF NOT itab_contabil[] IS INITIAL.
EXPORT itab_contabil TO MEMORY ID '040'.
EXPORT text-059 TO MEMORY ID '050'.
SUBMIT /pws/zycbr040 AND RETURN.
REFRESH itab_contabil.
* >> Início da inclusão: FORM RECUP_DIVISAS
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM pdd.
DATA: v_sai,
v_belnr2 LIKE /pws/zycbt050-belnr_dev,
v_contad LIKE /pws/zycbt012-saknr1,
v_cpochv LIKE /pws/zycbe033-cpochv,
v_valor_cancel LIKE /pws/zycbt007-vlcanc,
v_kursf LIKE /pws/zycbt050-txcamb,
v_vlmi LIKE /pws/zycbt050-vldev,
...
...
IF v_resposta EQ 'J'.
PERFORM fill_date1_f02_dev.
PERFORM grava_contabilizacao.
IF sy-subrc EQ 0.
PERFORM executa_exit USING 'VNC016'.
IF NOT itab_contabil[] IS INITIAL.
EXPORT itab_contabil TO MEMORY ID '040'.
EXPORT text-059 TO MEMORY ID '050'.
SUBMIT /pws/zycbr040 AND RETURN.
REFRESH itab_contabil.
* >> Início da inclusão: FORM ESTORNO_DEVOL
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
LEAVE TO SCREEN '0100'.
ELSE.
IF NOT itab_erro[] IS INITIAL.
EXPORT itab_erro TO MEMORY ID '001'.
SUBMIT /pws/zycbr128 AND RETURN.
REFRESH itab_erro.
* >> Início da inclusão: FORM ESTORNO_DEVOL
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
CLEAR: v_resposta.
ENDFORM.
FORM fill_date1_f02_dev.
DATA: v_sy_subrc LIKE sy-subrc,
v_belnr_f02 LIKE /pws/zycbt032-belnr.
CLEAR: itab_erro ,
itab_acerto.
...
...
ENDIF.
PERFORM limpa_itabs_contabil.
CLEAR: itab_zycbt006_aux,
v_subrc.
REFRESH itab_zycbt006_aux.
PERFORM grava_contabilizacao.
IF NOT itab_erro[] IS INITIAL.
EXPORT itab_erro TO MEMORY ID '001'.
SUBMIT /pws/zycbr126 AND RETURN.
REFRESH itab_erro.
* >> Início da inclusão: FORM APR_DESPESA
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
PERFORM executa_exit USING 'VNC016'.
IF NOT itab_contabil[] IS INITIAL.
EXPORT itab_contabil TO MEMORY ID '040'.
EXPORT text-059 TO MEMORY ID '050'.
SUBMIT /pws/zycbr040 AND RETURN.
REFRESH itab_contabil.
* >> Início da inclusão: FORM APR_DESPESA
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDFORM.
FORM contabiliza_cancelamento.
DATA: v_sy_subrc LIKE sy-subrc,
v_vldev LIKE /pws/zycbt050-vldev,
v_trans(4) TYPE c.
CLEAR: itab_erro, itab_acerto.
REFRESH: itab_erro, itab_acerto.
CLEAR v_sy_subrc.
...
...
ENDIF.
ENDIF.
ENDLOOP.
PERFORM grava_contabilizacao.
PERFORM executa_exit USING 'VNC016'.
IF NOT itab_contabil[] IS INITIAL.
EXPORT itab_contabil TO MEMORY ID '040'.
EXPORT text-059 TO MEMORY ID '050'.
SUBMIT /pws/zycbr040 AND RETURN.
REFRESH itab_contabil.
* >> Início da inclusão: FORM ESTORNA_RP_RD_DP_ARBITR
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM fill_data_f22_arbitr USING belnr
budat.
PERFORM get_parameters_arbitr.
itab_zycbe033-tcode = 'F-22'.
itab_zycbe033-tabela = 'ZYCBT005'.
CLEAR v_cpochv.
CONCATENATE wa_zycbt051-nrseqc wa_zycbt051-tpdesp
wa_zycbt051-nrparc wa_zycbt051-dtincl
...
...
IF sy-subrc NE 0.
MESSAGE i015 WITH text-015.
ENDIF.
PERFORM grava_contabilizacao.
PERFORM executa_exit USING 'VNC016'.
IF NOT itab_contabil[] IS INITIAL.
EXPORT itab_contabil TO MEMORY ID '040'.
EXPORT text-060 TO MEMORY ID '050'.
SUBMIT /pws/zycbr040 AND RETURN.
REFRESH itab_contabil.
* >> Início da inclusão: FORM BAIXA_CLIENTE_PDD
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM fill_date_fb08_baixa_cliente.
itab_zycbe033-tcode = 'FB08'.
itab_zycbe033-tabela = '/PWS/ZYCBT051'.
CLEAR v_cpochv.
CONCATENATE itab_zycbt051-nrseqc itab_zycbt051-tpdesp
itab_zycbt051-nrparc itab_zycbt051-dtincl
itab_zycbt051-nrinvoic itab_zycbt051-gsberf
itab_zycbt051-dtvincul itab_zycbt051-dtvencto
...
...
ENDLOOP.
v_est_baixa = 'X'.
ENDIF.
PERFORM grava_contabilizacao.
PERFORM executa_exit USING 'VNC016'.
IF NOT itab_contabil[] IS INITIAL.
EXPORT itab_contabil TO MEMORY ID '040'.
EXPORT text-060 TO MEMORY ID '050'.
SUBMIT /pws/zycbr040 AND RETURN.
REFRESH itab_contabil.
* >> Início da inclusão: FORM EXECUTA_CLEARING_PD
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM preenche_zycbe033a_2 USING budat.
READ TABLE itab_zycbt017
WITH KEY nrinvoic = itab_zycbt051-nrinvoic
nrparcf = itab_zycbt051-nrparcf
gsberf = itab_zycbt051-gsberf.
READ TABLE itab_zycbt005
WITH KEY nrinvoic = itab_zycbt051-nrinvoic
nrparcf = itab_zycbt051-nrparcf
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F03
...
wa_zycbt007-liq_cp EQ 'X'.
LOOP AT itab_zycbt005.
CLEAR itab_zycbt005-slpagar.
MODIFY itab_zycbt005.
ENDLOOP.
MOVE-CORRESPONDING itab_zycbt005 TO /pws/zycbt005.
PERFORM contabiliza_cp.
ELSE.
PERFORM grava_contabilizacao.
MESSAGE i008.
* >> Início da inclusão: FORM GRAVA_TABELAS
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
ELSEIF ( /pws/zycbe001-tpcontr(01) = 'E' AND
/pws/zycbe001-desc_receb = 'X' ) .
PERFORM est_desc_recebiveis TABLES itab_zycbt005_ant.
PERFORM cont_desc_recebiveis.
ENDIF.
ENDIF.
PERFORM atualiza_reserva.
ENDIF.
CLEAR v_ind_mudanca.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F05
...
ENDIF.
PERFORM GRAVA_CONTABILIZACAO.
IF NOT itab_erro[] IS INITIAL.
EXPORT itab_erro TO MEMORY ID '001'.
EXPORT itab_acerto TO MEMORY ID '002'.
EXPORT v_saida TO MEMORY ID '003'.
EXPORT itab_erro_s TO MEMORY ID '004'.
EXPORT itab_acerto_s TO MEMORY ID '005'.
SUBMIT /pws/zycbr128 AND RETURN.
REFRESH itab_erro.
* >> Início da inclusão: FORM CONTABILIZACAO
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
PERFORM executa_exit USING 'VNC016'.
IF NOT itab_contabil[] IS INITIAL.
EXPORT itab_contabil TO MEMORY ID '040'.
EXPORT text-059 TO MEMORY ID '050'.
SUBMIT /pws/zycbr040 AND RETURN.
REFRESH itab_contabil.
* >> Início da inclusão: FORM CONTABILIZACAO
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM trata_carta.
DATA: v_banco LIKE lfa1-name1,
v_endereco LIKE lfa1-ort01,
v_txt_c1(50) TYPE c,
v_txt_c2(50) TYPE c.
DELETE FROM /pws/zycbt035 CLIENT SPECIFIED
WHERE mandt = sy-mandt.
IF NOT itab_zycbt005[] IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F06
...
ELSE.
MESSAGE i015 WITH text-109.
ENDIF.
ENDIF.
PERFORM limpa_itabs_contabil.
PERFORM grava_contabilizacao.
IF NOT itab_erro[] IS INITIAL.
EXPORT itab_erro TO MEMORY ID '001'.
SUBMIT /pws/zycbr128 AND RETURN.
REFRESH itab_erro.
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO_VAR
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
PERFORM executa_exit USING 'VNC016'.
IF NOT itab_contabil[] IS INITIAL.
EXPORT itab_contabil TO MEMORY ID '040'.
EXPORT text-060 TO MEMORY ID '050'.
SUBMIT /pws/zycbr040 AND RETURN.
REFRESH itab_contabil.
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO_VAR
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM fill_date1_fbra_dev_2.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = text-074.
itab_zycbe033-tabela = text-002.
CONCATENATE /pws/zycbe050-nrseqc /pws/zycbe050-tpdesp
/pws/zycbe050-nrparc /pws/zycbe050-dtincl
/pws/zycbe050-nrinvoic /pws/zycbe050-gsberf
/pws/zycbe050-nrparcf
...
...
augdt = /pws/zycbe050-dtdevol AND
gjahr = v_year AND
augbl = /pws/zycbe050-belnr_dev AND
belnr <> /pws/zycbe050-belnr_dev.
PERFORM fill_date1_fbra_dev.
PERFORM grava_contabilizacao.
IF NOT itab_erro[] IS INITIAL.
EXPORT itab_erro TO MEMORY ID '001'.
SUBMIT /pws/zycbr128 AND RETURN.
REFRESH itab_erro.
* >> Início da inclusão: FORM ESTORNO_DEVOL2
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
PERFORM executa_exit USING 'VNC016'.
IF NOT itab_contabil[] IS INITIAL.
EXPORT itab_contabil TO MEMORY ID '040'.
EXPORT text-060 TO MEMORY ID '050'.
SUBMIT /pws/zycbr040 AND RETURN.
REFRESH itab_contabil.
* >> Início da inclusão: FORM ESTORNO_DEVOL2
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
ENDIF.
CLEAR: v_resposta.
ENDFORM.
FORM fill_date1_fbra_dev.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = text-074.
itab_zycbe033-tabela = text-002.
CONCATENATE /pws/zycbe050-nrseqc /pws/zycbe050-tpdesp
/pws/zycbe050-nrparc /pws/zycbe050-dtincl
...
...
ENDIF.
ENDIF.
ENDIF.
PERFORM grava_contabilizacao.
PERFORM executa_exit USING 'VNC016'.
IF NOT itab_contabil[] IS INITIAL.
EXPORT itab_contabil TO MEMORY ID '040'.
EXPORT text-060 TO MEMORY ID '050'.
SUBMIT /pws/zycbr040 AND RETURN.
REFRESH itab_contabil.
* >> Início da inclusão: FORM RECEB_PAGTO_DEV_3
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM estorna_erro USING budat.
DATA : v_bdat LIKE itab_zycbe033-bldat.
v_bdat = budat.
PERFORM limpa_itabs_contabil.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = text-074.
itab_zycbe033-tabela = text-002.
CONCATENATE wa_zycbt051-nrseqc wa_zycbt051-tpdesp
...
...
ENDLOOP.
COMMIT WORK.
ENDIF.
PERFORM grava_contabilizacao.
PERFORM executa_exit USING 'VNC016'.
IF NOT itab_contabil[] IS INITIAL.
EXPORT itab_contabil TO MEMORY ID '040'.
EXPORT text-059 TO MEMORY ID '050'.
SUBMIT /pws/zycbr040 AND RETURN.
REFRESH itab_contabil.
* >> Início da inclusão: FORM RECUP_DIVISAS_2
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
IF NOT itab_erro[] IS INITIAL.
EXPORT itab_erro TO MEMORY ID '001'.
SUBMIT /pws/zycbr126 AND RETURN.
REFRESH itab_erro.
* >> Início da inclusão: FORM RECUP_DIVISAS_2
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
ENDFORM.
...
...
ENDIF.
ENDIF.
ENDIF.
PERFORM grava_contabilizacao.
PERFORM executa_exit USING 'VNC016'.
IF NOT itab_contabil[] IS INITIAL.
EXPORT itab_contabil TO MEMORY ID '040'.
EXPORT text-060 TO MEMORY ID '050'.
SUBMIT /pws/zycbr040 AND RETURN.
REFRESH itab_contabil.
* >> Início da inclusão: FORM RECUP_DIVISAS_3
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM apr_despesas_2.
DATA: v_subrc LIKE sy-subrc,
v_data LIKE sy-datum.
DATA: v_sai,
v_contad LIKE /pws/zycbt012-saknr1,
v_dev.
DATA: BEGIN OF itab_doctos OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt036.
...
...
ENDIF.
ENDIF.
ENDIF.
PERFORM grava_contabilizacao.
PERFORM executa_exit USING 'VNC016'.
IF NOT itab_contabil[] IS INITIAL.
EXPORT itab_contabil TO MEMORY ID '040'.
EXPORT text-060 TO MEMORY ID '050'.
SUBMIT /pws/zycbr040 AND RETURN.
REFRESH itab_contabil.
* >> Início da inclusão: FORM APR_DESPESAS_3
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM estorna_rp_rd_dp2.
DATA: belnr LIKE /pws/zycbt051-belnr_rp,
budat LIKE sy-datum.
IF wa_zycbt051-tpdev EQ 'RP'.
belnr = wa_zycbt051-belnr_rp.
budat = wa_zycbt051-dtreceb.
ELSEIF wa_zycbt051-tpdev EQ 'RD'.
belnr = wa_zycbt051-belnr_rd.
...
...
ENDIF.
ENDIF.
PERFORM limpa_itabs_contabil.
PERFORM grava_contabilizacao.
PERFORM executa_exit USING 'VNC016'.
IF NOT itab_contabil[] IS INITIAL.
EXPORT itab_contabil TO MEMORY ID '040'.
EXPORT text-060 TO MEMORY ID '050'.
SUBMIT /pws/zycbr040 AND RETURN.
REFRESH itab_contabil.
* >> Início da inclusão: FORM EXECUTA_CLEARING_RP_RD_PD
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM verifica_liq_and.
SELECT SINGLE * FROM /pws/zycbt209 INTO wa_zycbt209
WHERE bukrs = /pws/zycbe005-bukrs
AND nrinvoic = /pws/zycbe050-nrinvoic
AND dtincl = /pws/zycbe050-dtvincul
AND nrseqc = /pws/zycbe050-nrseqc.
IF sy-subrc EQ 0.
PERFORM lancamento_cliente.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F07
...
PERFORM save_changes.
IF wa_zycbt007-liq_com_cg NE 'RP'.
PERFORM liquida_comissao_de_agente.
ENDIF.
ENDIF.
PERFORM grava_contabilizacao.
IF NOT itab_erro[] IS INITIAL.
EXPORT itab_erro TO MEMORY ID '001'.
SUBMIT /pws/zycbr128 AND RETURN.
REFRESH itab_erro.
* >> Início da inclusão: FORM CONTABILIZA_CP
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
PERFORM executa_exit USING 'VNC016'.
IF NOT itab_contabil[] IS INITIAL.
EXPORT itab_contabil TO MEMORY ID '040'.
EXPORT text-059 TO MEMORY ID '050'.
SUBMIT /pws/zycbr040 AND RETURN.
REFRESH itab_contabil.
* >> Início da inclusão: FORM CONTABILIZA_CP
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM fill_date1_f30_cp_estorno TABLES itab_vinc LIKE itab_zycbt005[].
LOOP AT itab_vinc
WHERE flag = 'A'.
IF itab_vinc-status NE 'C'.
itab_vinc-flag = 'I'.
MODIFY itab_vinc.
ENDIF.
ENDLOOP.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F09
...
IF sy-subrc NE 0.
MESSAGE i015 WITH text-015 text-233.
ENDIF.
PERFORM grava_contabilizacao.
PERFORM executa_exit USING 'VNC016'.
IF NOT itab_contabil[] IS INITIAL.
EXPORT itab_contabil TO MEMORY ID '040'.
EXPORT text-060 TO MEMORY ID '050'.
SUBMIT /pws/zycbr040 AND RETURN.
REFRESH itab_contabil.
* >> Início da inclusão: FORM LANCAMENTO_PDD
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM baixa_cliente_pdd_2.
DATA: v_vinc_tot.
DATA: BEGIN OF itab_bsid OCCURS 0.
INCLUDE STRUCTURE bsid.
DATA: END OF itab_bsid.
LOOP AT itab_zycbt051 WHERE belnr_pdd1 NE space AND
belnr_pdd2 EQ space AND
mark EQ 'X'.
...
...
ENDIF.
ENDLOOP.
ENDLOOP.
PERFORM grava_contabilizacao.
PERFORM executa_exit USING 'VNC016'.
IF NOT itab_contabil[] IS INITIAL.
EXPORT itab_contabil TO MEMORY ID '040'.
EXPORT text-060 TO MEMORY ID '050'.
SUBMIT /pws/zycbr040 AND RETURN.
REFRESH itab_contabil.
* >> Início da inclusão: FORM BAIXA_CLIENTE_PDD_2
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM verifica_taxas.
CLEAR wa_zycbt089.
SELECT SINGLE * FROM /pws/zycbt089
INTO wa_zycbt089
WHERE bukrs EQ /pws/zycbe001-bukrs.
IF wa_zycbt089-tx_desm_dev IS INITIAL OR
wa_zycbt089-tx_cl_ace_vinc IS INITIAL OR
wa_zycbt089-tx_desm_acc IS INITIAL OR
...
...
MODIFY itab_zycbt005.
ENDLOOP.
sy-subrc = v_subrc.
PERFORM grava_contabilizacao.
PERFORM executa_exit USING 'VNC016'.
IF NOT itab_contabil[] IS INITIAL.
EXPORT itab_contabil TO MEMORY ID '040'.
EXPORT text-059 TO MEMORY ID '050'.
SUBMIT /pws/zycbr040 AND RETURN.
REFRESH itab_contabil.
* >> Início da inclusão: FORM CONT_DESC_RECEBIVEIS
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM seleciona_zycbt219.
IF NOT itab_zycbt005[] IS INITIAL.
SELECT * FROM /pws/zycbt219 INTO TABLE itab_zycbt219
FOR ALL ENTRIES IN itab_zycbt005
WHERE bukrs = itab_zycbt005-bukrs
AND nrinvoic = itab_zycbt005-nrinvoic
AND gsberf = itab_zycbt005-gsberf
AND nrparcf = itab_zycbt005-nrparcf.
...
...
ENDIF.
PERFORM limpa_itabs_contabil.
ENDLOOP.
PERFORM grava_contabilizacao.
PERFORM executa_exit USING 'VNC016'.
IF NOT itab_contabil[] IS INITIAL.
EXPORT itab_contabil TO MEMORY ID '040'.
EXPORT text-059 TO MEMORY ID '050'.
SUBMIT /pws/zycbr040 AND RETURN.
REFRESH itab_contabil.
* >> Início da inclusão: FORM EST_DESC_RECEBIVEIS
v_status_s = '0'.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM clearing_desc_receb TABLES itab_vinc LIKE itab_zycbt005[].
DATA:
v_cpochv LIKE /pws/zycbe033-cpochv,
v_kursf LIKE /pws/zycbe033-kursf,
v_grava(1),
v_desc_receb,
v_desc_receb_aux.
PERFORM limpa_itabs_contabil.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F10
...
PERFORM contabiliza_estorno_pre.
ENDCASE.
PERFORM grava_tab_transparente.
PERFORM grava_contabilizacao.
PERFORM executa_exit USING 'VNC016'.
IF NOT itab_contabil[] IS INITIAL.
EXPORT itab_contabil TO MEMORY ID '040'.
EXPORT text-059 TO MEMORY ID '050'.
SUBMIT /pws/zycbr040 AND RETURN.
REFRESH itab_contabil.
* >> Início da inclusão: FORM EFETUA_ESTORNO
v_status_s = '0'.
* << Fim da inclusão
CLEAR v_ind_mudanca.
ENDIF.
PERFORM limpa_desvincula.
ENDFORM.
FORM calcula_estorno.
DATA: v_parafator LIKE tcurf-ffact ,
v_defator LIKE tcurf-tfact .
/pws/zycbe001-slvinc =
/pws/zycbe001-slvinc + itab_desvincula-vldesvin.
itab_zycbt005-vlvinc =
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_TRANSACAO_F_30_P
...
READ TABLE itab_oculto
WITH KEY campo = 'BSEG-ZFBDT' chave = v_lanc1
TRANSPORTING NO FIELDS.
IF ( sy-subrc <> 0
OR v_zfbdt_tela EQ 'X' )
AND v_linhas LT '002'.
PERFORM define_campo TABLES t_telas
USING v_programa
v_tela2
'BSEG-ZFBDT'.
IF v_invisible EQ 0.
IF v_input EQ 1 OR v_required EQ 1
AND NOT v_zfbdt IS INITIAL
AND NOT v_zfbdt = '00.00.0000'
AND NOT v_zfbdt = '00/00/0000'.
* >> Início da exclusão
* PERFORM bdc_field USING: 'BSEG-ZFBDT' v_zfbdt.
* >> Fim da exclusão
* >> Início da inclusão
IF NOT t_dados-zfbdt IS INITIAL
AND NOT t_dados-zfbdt = '00.00.0000'
AND NOT t_dados-zfbdt = '00/00/0000'
AND NOT t_dados-zfbdt = '00000000'.
PERFORM bdc_field USING: 'BSEG-ZFBDT' v_zfbdt.
ENDIF.
* >> Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
IF NOT v_tela2 = '0304'.
...