CE PLUS - Nota 001499
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 02/06/2006 00:00:00
Data/Hora Última Alteração: 21/02/2011 10:22:24
Descrição da Nota: EXIT VINCULAÇÃO / LIQUIDAÇÃO - ALTERAÇÃO DOCUMENTOS CONTÁBEIS
Sintoma
O campo atribuição na vinculação e liquidação deverá ser referente ao nº. do faturamento.
Solução
Foram criados pontos de exit nos programas de vinculação e liquidação, antes da chamada do relatório
que exibe os documentos contábeis, possibilitando a chamada da transação FB02 para que o campo
atribuição(ZUONR) seja alterado com o valor desejado.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01499 Data: 02/06/2006 Hora: 08:19:18
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01499
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00023
Agrupamento : 00116
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01131 - 00001 - 6.0 - 00023 - NÃO PERMITE VINCULAÇÃO DE FAT JÁ VINCULADA NA MESMA DT,P/ MESMO C
----------------------------------------------------------------------------------------------------
EXIT VINCULAÇÃO / LIQUIDAÇÃO - ALTERAÇÃO DOCUMENTOS CONTÁBEIS
----------------------------------------------------------------------------------------------------
Palavras Chave:
EXIT VINCULAÇÃO LIQUIDAÇÃO ALTERAÇÃO DADOS DOCUMENTOS CONTÁBEIS
DOCUMENTO CONTABIL ZUONR ATRIBUIÇÃO NÚMERO FATURAMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F01
REPS /PWS/MZYCB004TOP
REPS /PWS/MZYCB004X01
REPS /PWS/MZYCB009F01
REPS /PWS/MZYCB009F02
REPS /PWS/MZYCB009F03
REPS /PWS/MZYCB009F05
REPS /PWS/MZYCB009F06
REPS /PWS/MZYCB009F07
REPS /PWS/MZYCB009F09
REPS /PWS/MZYCB009F10
REPS /PWS/MZYCB009TOP
REPS /PWS/MZYCB009X01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F01
...
IF NOT itab_erro[] IS INITIAL.
EXPORT itab_erro TO MEMORY ID '001'.
SUBMIT /pws/zycbr126 AND RETURN.
ENDIF.
IF NOT itab_contabil[] IS INITIAL.
* >> Início da inclusão: FORM GRAVA_TABELAS
perform executa_exit_p using 'LIQ019'.
* << Fim da inclusão
EXPORT itab_contabil TO MEMORY ID '040'.
EXPORT text-059 TO MEMORY ID '050'.
SUBMIT /pws/zycbr040 AND RETURN.
REFRESH itab_contabil.
ENDIF.
...
...
PERFORM estorna_diferenca_juros.
PERFORM provisiona_diferenca_juros.
ENDIF.
PERFORM atualiza_tabelas_transparentes.
IF NOT itab_contabil[] IS INITIAL.
* >> Início da inclusão: FORM GRAVA_TABELAS
perform executa_exit_p using 'LIQ019'.
* << Fim da inclusão
EXPORT itab_contabil TO MEMORY ID '040'.
EXPORT text-059 TO MEMORY ID '050'.
SUBMIT /pws/zycbr040 AND RETURN.
REFRESH itab_contabil.
ENDIF.
...
...
ENDIF.
ENDLOOP.
ENDIF.
ENDLOOP.
IF NOT itab_contabil[] IS INITIAL.
* >> Início da inclusão: FORM LIQUIDA_COMISSAO_AGENTE
perform executa_exit_p using 'LIQ019'.
* << Fim da inclusão
EXPORT itab_contabil TO MEMORY ID '040'.
EXPORT text-060 TO MEMORY ID '050'.
SUBMIT /pws/zycbr040 AND RETURN.
REFRESH itab_contabil.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004TOP
...
INCLUDE STRUCTURE /pws/zycbt001.
DATA: END OF itab_zycbt001.
DATA: BEGIN OF itab_zycbt010 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt010.
DATA: END OF itab_zycbt010.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycbt005_aux2 OCCURS 0,
nrinvoic LIKE /pws/zycbt005-nrinvoic,
nrparcf LIKE /pws/zycbt005-nrparcf,
gsberf LIKE /pws/zycbt005-gsberf,
dtvincul LIKE /pws/zycbt005-dtvincul,
dtvencto LIKE /pws/zycbt005-dtvencto,
END OF itab_zycbt005_aux2.
DATA: BEGIN OF itab_zycbt005_s OCCURS 0,
nrinvoic LIKE /pws/zycbt005-nrinvoic,
nrparcf LIKE /pws/zycbt005-nrparcf,
gsberf LIKE /pws/zycbt005-gsberf,
slpagar LIKE /pws/zycbt005-slpagar,
END OF itab_zycbt005_s.
DATA: BEGIN OF itab_zycbt005_liq OCCURS 0,
nrinvoic LIKE /pws/zycbt005-nrinvoic,
nrparcf LIKE /pws/zycbt005-nrparcf,
gsberf LIKE /pws/zycbt005-gsberf,
END OF itab_zycbt005_liq.
DATA: BEGIN OF itab_zycbt006_aux OCCURS 0,
nrinvoic LIKE /pws/zycbt006-nrinvoic,
nrparcf LIKE /pws/zycbt006-nrparcf,
dtvincul LIKE /pws/zycbt006-dtvincul,
dtpagto LIKE /pws/zycbt006-dtpagto,
END OF itab_zycbt006_aux.
DATA: BEGIN OF itab_zycbt006_aux2 OCCURS 0,
nrseqc LIKE /pws/zycbt006-nrseqc,
nrinvoic LIKE /pws/zycbt006-nrinvoic,
nrparcf LIKE /pws/zycbt006-nrparcf,
dtvincul LIKE /pws/zycbt006-dtvincul,
dtpagto LIKE /pws/zycbt006-dtpagto,
END OF itab_zycbt006_aux2.
DATA: BEGIN OF itab_zycbt006_pagos OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt006.
DATA: END OF itab_zycbt006_pagos.
DATA: BEGIN OF itab_zycbt006_aux3 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt006.
DATA: END OF itab_zycbt006_aux3.
DATA: BEGIN OF itab_zycbt006_vljur OCCURS 0,
nrseqc LIKE /pws/zycbt006-nrseqc,
nrparc LIKE /pws/zycbt006-nrparc,
nrinvoic LIKE /pws/zycbt006-nrinvoic,
nrparcf LIKE /pws/zycbt006-nrparcf,
dtvincul LIKE /pws/zycbt006-dtvincul,
dtvencto LIKE /pws/zycbt006-dtvencto,
vljur LIKE /pws/zycbt006-vljur,
vlcomis LIKE /pws/zycbt006-vlcomis,
END OF itab_zycbt006_vljur.
DATA : BEGIN OF itab_zycbt006_pre OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt006.
DATA : END OF itab_zycbt006_pre.
DATA: BEGIN OF itab_zycbt017 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt017.
DATA: END OF itab_zycbt017.
DATA: BEGIN OF itab_zycbt030 OCCURS 10.
INCLUDE STRUCTURE /pws/zycbt030.
DATA:
zterm LIKE /pws/zycbt017-zterm,
v_belnr LIKE /pws/zycbt030-belnr,
s_kwert LIKE /pws/zycbt030-kwert,
v_kwert LIKE /pws/zycbt030-kwert,
v_kwert2 LIKE /pws/zycbt030-kwert,
belnr7 LIKE /pws/zycbt030-belnr,
flag(1) TYPE c,
belnr_d LIKE /pws/zycbt030-belnr,
status_d(1),
END OF itab_zycbt030.
* << Fim da exclusão
DATA: BEGIN OF itab_pf_status OCCURS 10,
fcode LIKE rsmpe-func,
END OF itab_pf_status.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycbt069 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt069.
DATA: belnr_d LIKE /pws/zycbt069-belnr.
DATA: END OF itab_zycbt069.
DATA: BEGIN OF itab_zycbt069_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt069.
DATA: belnr_d LIKE /pws/zycbt069-belnr.
DATA: END OF itab_zycbt069_aux.
* << Fim da exclusão
DATA: BEGIN OF itab_doc_f02 OCCURS 0,
docto LIKE /pws/zycbt005-belnr,
f02(1) TYPE c,
END OF itab_doc_f02.
DATA: itab_zycbt012 LIKE /pws/zycbt012 OCCURS 10 WITH HEADER LINE,
...
...
valor LIKE /pws/zycbt030-kwert,
belnr6 LIKE /pws/zycbt030-belnr,
budat LIKE /pws/zycbt030-budat,
flag(1) TYPE c,
END OF itab_aux.
* >> Início da exclusão:
DATA: BEGIN OF itab_contabil OCCURS 0,
nrinvoic LIKE /pws/zycbt030-nrinvoic,
nrparcf LIKE /pws/zycbt030-nrparcf,
vbeln LIKE /pws/zycbt030-vbeln,
gsberf LIKE /pws/zycbt030-gsberf,
docto LIKE /pws/zycbt030-belnr,
msg LIKE /pws/zycbt032-msg,
dtdocto LIKE /pws/zycbt030-budat,
bukrs LIKE /pws/zycbe033-bukrs,
END OF itab_contabil.
* << Fim da exclusão
DATA: BEGIN OF itab_zycbt017_cred OCCURS 0,
nrinvoic LIKE /pws/zycbt017-nrinvoic,
nrparcf LIKE /pws/zycbt017-nrparcf,
credext LIKE /pws/zycbt017-credext,
END OF itab_zycbt017_cred.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycbt077 OCCURS 1.
INCLUDE STRUCTURE /pws/zycbt077.
DATA: END OF itab_zycbt077.
* << Fim da exclusão
DATA: BEGIN OF itab_zycet010 OCCURS 1.
INCLUDE STRUCTURE /pws/zycet010.
DATA: END OF itab_zycet010.
DATA: BEGIN OF itab_zycet013 OCCURS 1.
INCLUDE STRUCTURE /pws/zycet013.
...
...
modif,
END OF itab_nome_campo.
DATA: BEGIN OF itab_zycbt084 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt084.
DATA: END OF itab_zycbt084.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycbt209 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt209.
DATA: belnr_d LIKE /pws/zycbt209-belnr2,
budat_d LIKE sy-datum,
vlbaixa LIKE /pws/zycbt209-vlme,
baixa TYPE c,
END OF itab_zycbt209.
* << Fim da exclusão
DATA: BEGIN OF itab_zycbt220 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt220.
DATA: END OF itab_zycbt220.
DATA: BEGIN OF itab_zycbt219 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt219.
...
...
INCLUDE STRUCTURE /pws/zyglt316.
DATA: END OF itab_zyglt316.
DATA: BEGIN OF itab_tcurr OCCURS 1.
INCLUDE STRUCTURE tcurr.
DATA: END OF itab_tcurr.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycbt006_pj OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt006.
DATA : END OF itab_zycbt006_pj.
DATA: BEGIN OF itab_zycbt005_t OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt005.
DATA: vlme LIKE /pws/zycbe006-vlme,
dtpagto LIKE /pws/zycbe006-dtpagto,
v_status,
v_vldif LIKE /pws/zycbt006-vlme,
v_vlmeant LIKE /pws/zycbt006-vlme,
v_armda,
v_vljur LIKE /pws/zycbt006-vljur,
v_vlcomis LIKE /pws/zycbt006-vlcomis,
txjtotal2 LIKE /pws/zycbt006-txjtotal,
mark(1),
deduz_juros LIKE /pws/zycbt006-deduz_juros,
dtpagext LIKE /pws/zycbt006-dtpagext,
belnr_d TYPE belnr_d,
vljur_acc LIKE /pws/zycbt006-vljur_acc,
vljur_ace LIKE /pws/zycbt006-vljur_ace,
END OF itab_zycbt005_t.
* << Fim da exclusão
DATA: BEGIN OF itab_bsad_aux OCCURS 0,
bukrs LIKE bsad-bukrs,
kunnr LIKE bsad-kunnr,
umskz LIKE bsad-umskz,
gjahr LIKE bsad-gjahr,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004X01
...
DATA BEGIN OF itab_doctos OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt036.
DATA END OF itab_doctos.
DATA itab_zycbt036 TYPE STANDARD TABLE OF /pws/zycbt036
WITH HEADER LINE.
* >> Início da inclusão:
DATA: BEGIN OF itab_zycbt005_aux2 OCCURS 0,
nrinvoic LIKE /pws/zycbt005-nrinvoic,
nrparcf LIKE /pws/zycbt005-nrparcf,
gsberf LIKE /pws/zycbt005-gsberf,
dtvincul LIKE /pws/zycbt005-dtvincul,
dtvencto LIKE /pws/zycbt005-dtvencto,
END OF itab_zycbt005_aux2.
DATA: BEGIN OF itab_zycbt005_s OCCURS 0,
nrinvoic LIKE /pws/zycbt005-nrinvoic,
nrparcf LIKE /pws/zycbt005-nrparcf,
gsberf LIKE /pws/zycbt005-gsberf,
slpagar LIKE /pws/zycbt005-slpagar,
END OF itab_zycbt005_s.
DATA: BEGIN OF itab_zycbt005_liq OCCURS 0,
nrinvoic LIKE /pws/zycbt005-nrinvoic,
nrparcf LIKE /pws/zycbt005-nrparcf,
gsberf LIKE /pws/zycbt005-gsberf,
END OF itab_zycbt005_liq.
DATA: BEGIN OF itab_zycbt006_aux OCCURS 0,
nrinvoic LIKE /pws/zycbt006-nrinvoic,
nrparcf LIKE /pws/zycbt006-nrparcf,
dtvincul LIKE /pws/zycbt006-dtvincul,
dtpagto LIKE /pws/zycbt006-dtpagto,
END OF itab_zycbt006_aux.
DATA: BEGIN OF itab_zycbt006_aux2 OCCURS 0,
nrseqc LIKE /pws/zycbt006-nrseqc,
nrinvoic LIKE /pws/zycbt006-nrinvoic,
nrparcf LIKE /pws/zycbt006-nrparcf,
dtvincul LIKE /pws/zycbt006-dtvincul,
dtpagto LIKE /pws/zycbt006-dtpagto,
END OF itab_zycbt006_aux2.
DATA: BEGIN OF itab_zycbt006_pagos OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt006.
DATA: END OF itab_zycbt006_pagos.
DATA: BEGIN OF itab_zycbt006_aux3 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt006.
DATA: END OF itab_zycbt006_aux3.
DATA: BEGIN OF itab_zycbt006_vljur OCCURS 0,
nrseqc LIKE /pws/zycbt006-nrseqc,
nrparc LIKE /pws/zycbt006-nrparc,
nrinvoic LIKE /pws/zycbt006-nrinvoic,
nrparcf LIKE /pws/zycbt006-nrparcf,
dtvincul LIKE /pws/zycbt006-dtvincul,
dtvencto LIKE /pws/zycbt006-dtvencto,
vljur LIKE /pws/zycbt006-vljur,
vlcomis LIKE /pws/zycbt006-vlcomis,
END OF itab_zycbt006_vljur.
DATA : BEGIN OF itab_zycbt006_pre OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt006.
DATA : END OF itab_zycbt006_pre.
DATA: BEGIN OF itab_zycbt017 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt017.
DATA: END OF itab_zycbt017.
DATA: BEGIN OF itab_zycbt030 OCCURS 10.
INCLUDE STRUCTURE /pws/zycbt030.
DATA:
zterm LIKE /pws/zycbt017-zterm,
v_belnr LIKE /pws/zycbt030-belnr,
s_kwert LIKE /pws/zycbt030-kwert,
v_kwert LIKE /pws/zycbt030-kwert,
v_kwert2 LIKE /pws/zycbt030-kwert,
belnr7 LIKE /pws/zycbt030-belnr,
flag(1) TYPE c,
belnr_d LIKE /pws/zycbt030-belnr,
status_d(1),
END OF itab_zycbt030.
DATA: BEGIN OF itab_zycbt069 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt069.
DATA: belnr_d LIKE /pws/zycbt069-belnr.
DATA: END OF itab_zycbt069.
DATA: BEGIN OF itab_zycbt069_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt069.
DATA: belnr_d LIKE /pws/zycbt069-belnr.
DATA: END OF itab_zycbt069_aux.
DATA: BEGIN OF itab_contabil OCCURS 0,
nrinvoic LIKE /pws/zycbt030-nrinvoic,
nrparcf LIKE /pws/zycbt030-nrparcf,
vbeln LIKE /pws/zycbt030-vbeln,
gsberf LIKE /pws/zycbt030-gsberf,
docto LIKE /pws/zycbt030-belnr,
msg LIKE /pws/zycbt032-msg,
dtdocto LIKE /pws/zycbt030-budat,
bukrs LIKE /pws/zycbe033-bukrs,
END OF itab_contabil.
DATA: BEGIN OF itab_zycbt077 OCCURS 1.
INCLUDE STRUCTURE /pws/zycbt077.
DATA: END OF itab_zycbt077.
DATA: BEGIN OF itab_zycbt209 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt209.
DATA: belnr_d LIKE /pws/zycbt209-belnr2,
budat_d LIKE sy-datum,
vlbaixa LIKE /pws/zycbt209-vlme,
baixa TYPE c,
END OF itab_zycbt209.
DATA: BEGIN OF itab_zycbt006_pj OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt006.
DATA : END OF itab_zycbt006_pj.
DATA: BEGIN OF itab_zycbt005_t OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt005.
DATA: vlme LIKE /pws/zycbe006-vlme,
dtpagto LIKE /pws/zycbe006-dtpagto,
v_status,
v_vldif LIKE /pws/zycbt006-vlme,
v_vlmeant LIKE /pws/zycbt006-vlme,
v_armda,
v_vljur LIKE /pws/zycbt006-vljur,
v_vlcomis LIKE /pws/zycbt006-vlcomis,
txjtotal2 LIKE /pws/zycbt006-txjtotal,
mark(1),
deduz_juros LIKE /pws/zycbt006-deduz_juros,
dtpagext LIKE /pws/zycbt006-dtpagext,
belnr_d TYPE belnr_d,
vljur_acc LIKE /pws/zycbt006-vljur_acc,
vljur_ace LIKE /pws/zycbt006-vljur_ace,
END OF itab_zycbt005_t.
* << Fim da inclusão
DATA: END OF COMMON PART.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F01
...
IF NOT itab_erro[] IS INITIAL.
EXPORT itab_erro TO MEMORY ID '001'.
SUBMIT /pws/zycbr128 AND RETURN.
REFRESH itab_erro.
ENDIF.
* >> Início da inclusão: FORM FILL_DATE1_F30_B
PERFORM executa_exit USING 'VNC016'.
* << Fim da inclusão
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.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F02
...
IF NOT itab_erro[] IS INITIAL.
EXPORT itab_erro TO MEMORY ID '001'.
SUBMIT /pws/zycbr128 AND RETURN.
REFRESH itab_erro.
ENDIF.
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO
PERFORM executa_exit USING 'VNC016'.
* << Fim da inclusão
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.
...
...
EXPORT itab_erro TO MEMORY ID '001'.
SUBMIT /pws/zycbr126 AND RETURN.
REFRESH itab_erro.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM RECEB_PAGTO_DEV
PERFORM executa_exit USING 'VNC016'.
* << Fim da inclusão
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.
...
...
EXPORT itab_erro1 TO MEMORY ID '001'.
SUBMIT /pws/zycbr126 AND RETURN.
REFRESH itab_erro1.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM RECUP_DIVISAS
PERFORM executa_exit USING 'VNC016'.
* << Fim da inclusão
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.
...
...
IMPORTING
answer = v_resposta.
IF v_resposta EQ 'J'.
PERFORM fill_date1_f02_dev.
IF sy-subrc EQ 0.
* >> Início da inclusão: FORM ESTORNO_DEVOL
PERFORM executa_exit USING 'VNC016'.
* << Fim da inclusão
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.
...
...
IF NOT itab_erro[] IS INITIAL.
EXPORT itab_erro TO MEMORY ID '001'.
SUBMIT /pws/zycbr126 AND RETURN.
REFRESH itab_erro.
ENDIF.
* >> Início da inclusão: FORM APR_DESPESA
PERFORM executa_exit USING 'VNC016'.
* << Fim da inclusão
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.
...
...
PERFORM clearing_est_rprd_abr USING v_belnr_f_22 v_dt_f_22.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
* >> Início da inclusão: FORM ESTORNA_RP_RD_DP_ARBITR
PERFORM executa_exit USING 'VNC016'.
* << Fim da inclusão
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.
...
...
ENDIF.
ENDLOOP.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-015.
ENDIF.
* >> Início da inclusão: FORM BAIXA_CLIENTE_PDD
PERFORM executa_exit USING 'VNC016'.
* << Fim da inclusão
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.
...
...
CLEAR itab_erro-vbeln.
APPEND itab_erro.
ENDLOOP.
v_est_baixa = 'X'.
ENDIF.
* >> Início da inclusão: FORM EXECUTA_CLEARING_PD
PERFORM executa_exit USING 'VNC016'.
* << Fim da inclusão
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.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F03
...
IF NOT itab_erro[] IS INITIAL.
EXPORT itab_erro TO MEMORY ID '001'.
SUBMIT /pws/zycbr128 AND RETURN.
REFRESH itab_erro.
ENDIF.
* >> Início da inclusão: FORM GRAVA_TABELAS
PERFORM executa_exit USING 'VNC016'.
* << Fim da inclusão
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.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F05
...
EXPORT itab_erro_s TO MEMORY ID '004'.
EXPORT itab_acerto_s TO MEMORY ID '005'.
SUBMIT /pws/zycbr128 AND RETURN.
REFRESH itab_erro.
ENDIF.
* >> Início da inclusão: FORM CONTABILIZACAO
PERFORM executa_exit USING 'VNC016'.
* << Fim da inclusão
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.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F06
...
IF NOT itab_erro[] IS INITIAL.
EXPORT itab_erro TO MEMORY ID '001'.
SUBMIT /pws/zycbr128 AND RETURN.
REFRESH itab_erro.
ENDIF.
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO_VAR
PERFORM executa_exit USING 'VNC016'.
* << Fim da inclusão
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.
...
...
IF NOT itab_erro[] IS INITIAL.
EXPORT itab_erro TO MEMORY ID '001'.
SUBMIT /pws/zycbr128 AND RETURN.
REFRESH itab_erro.
ENDIF.
* >> Início da inclusão: FORM ESTORNO_DEVOL2
PERFORM executa_exit USING 'VNC016'.
* << Fim da inclusão
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.
...
...
PERFORM estorna_erro USING itab_zycbe033-budat.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM RECEB_PAGTO_DEV_3
PERFORM executa_exit USING 'VNC016'.
* << Fim da inclusão
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.
...
...
LOOP AT itab_zycbt051 WHERE mark EQ 'X'.
MODIFY /pws/zycbt051 FROM itab_zycbt051.
ENDLOOP.
COMMIT WORK.
ENDIF.
* >> Início da inclusão: FORM RECUP_DIVISAS_2
PERFORM executa_exit USING 'VNC016'.
* << Fim da inclusão
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.
...
...
IF NOT itab_zycbt017-vlslf EQ itab_zycbt051-vlme_fat.
PERFORM estorna_erro USING itab_zycbt051-dtfech.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM RECUP_DIVISAS_3
PERFORM executa_exit USING 'VNC016'.
* << Fim da inclusão
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.
...
...
PERFORM estorno_ap.
v_subrc = 4.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM APR_DESPESAS_3
PERFORM executa_exit USING 'VNC016'.
* << Fim da inclusão
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.
...
...
ENDIF.
ENDIF.
ENDIF.
ENDIF.
PERFORM limpa_itabs_contabil.
* >> Início da inclusão: FORM EXECUTA_CLEARING_RP_RD_PD
PERFORM executa_exit USING 'VNC016'.
* << Fim da inclusão
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.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F07
...
IF NOT itab_erro[] IS INITIAL.
EXPORT itab_erro TO MEMORY ID '001'.
SUBMIT /pws/zycbr128 AND RETURN.
REFRESH itab_erro.
ENDIF.
* >> Início da inclusão: FORM CONTABILIZA_CP
PERFORM executa_exit USING 'VNC016'.
* << Fim da inclusão
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.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F09
...
ENDIF.
ENDIF.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-015 text-233.
ENDIF.
* >> Início da inclusão: FORM LANCAMENTO_PDD
PERFORM executa_exit USING 'VNC016'.
* << Fim da inclusão
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.
...
...
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
ENDIF.
ENDLOOP.
ENDLOOP.
* >> Início da inclusão: FORM BAIXA_CLIENTE_PDD_2
PERFORM executa_exit USING 'VNC016'.
* << Fim da inclusão
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.
...
...
ENDLOOP.
COMMIT WORK.
MODIFY itab_zycbt005.
ENDLOOP.
sy-subrc = v_subrc.
* >> Início da inclusão: FORM CONT_DESC_RECEBIVEIS
PERFORM executa_exit USING 'VNC016'.
* << Fim da inclusão
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.
...
...
ENDLOOP.
ENDIF.
ENDIF.
PERFORM limpa_itabs_contabil.
ENDLOOP.
* >> Início da inclusão: FORM EST_DESC_RECEBIVEIS
PERFORM executa_exit USING 'VNC016'.
* << Fim da inclusão
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.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F10
...
APPEND itab_contabil.
WHEN 'P' OR 'S'.
PERFORM contabiliza_estorno_pre.
ENDCASE.
PERFORM grava_tab_transparente.
* >> Início da inclusão: FORM EFETUA_ESTORNO
PERFORM executa_exit USING 'VNC016'.
* << Fim da inclusão
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.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009TOP
...
tc_performance TYPE TABLEVIEW USING SCREEN '0102'.
CONSTANTS: c_transacao_c(14) VALUE '/PWS/ZYCB009_C',
c_transacao_a(14) VALUE '/PWS/ZYCB009_A',
c_transacao_e(14) VALUE '/PWS/ZYCB009_E'.
DATA: wa_idx TYPE indx.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycbt005_parid OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt005.
DATA: END OF itab_zycbt005_parid.
* << Fim da exclusão
TYPES:
begin of t_zycbt017_chave,
nrinvoic TYPE /pws/zycbt017-nrinvoic,
nrparcf TYPE /pws/zycbt017-nrparcf,
gsberf TYPE /pws/zycbt017-gsberf,
...
...
DATA: itab_desvincula
TYPE STANDARD TABLE OF t_desvincula
WITH HEADER LINE ,
wa_desvincula TYPE t_desvincula ,
v_flag_estorno TYPE c .
* >> Início da exclusão:
DATA: BEGIN OF itab_zycbt005_ant OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt005.
DATA: vlslf LIKE /pws/zycbe005-vlslf,
flag TYPE c,
vldif LIKE /pws/zycbe005-vlslf,
belnr_f02 LIKE /pws/zycbt005-belnr,
statrans(4) TYPE c,
mark(1),
v_fsaldo TYPE c,
calcpar LIKE /pws/zycbt005-vlvinc,
text1 LIKE t052u-text1,
belnr_d LIKE /pws/zycbt005-belnr,
belnr_f28 LIKE /pws/zycbt005-belnr,
END OF itab_zycbt005_ant.
* << Fim da exclusão
DATA: BEGIN OF itab_zycbt030_aux2 OCCURS 0,
nrinvoic LIKE /pws/zycbt030-nrinvoic,
nrparcf LIKE /pws/zycbt030-nrparcf,
vbeln LIKE /pws/zycbt030-vbeln,
gsberf LIKE /pws/zycbt030-gsberf,
...
...
campo(6),
lugar,
tpdev(2),
bukrs LIKE /pws/zycbt001-bukrs.
DATA: END OF itab_zycbt030_aux2.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycbt005_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt005.
DATA: vlslf LIKE /pws/zycbe005-vlslf,
flag TYPE c,
vldif LIKE /pws/zycbe005-vlslf,
belnr_f02 LIKE /pws/zycbt005-belnr,
statrans(4) TYPE c,
mark(1),
END OF itab_zycbt005_aux.
* << Fim da exclusão
DATA: BEGIN OF itab_modo OCCURS 0.
INCLUDE STRUCTURE spopli.
DATA: END OF itab_modo.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycbt005_aux2 OCCURS 0,
dtvincul LIKE /pws/zycbt005-dtvincul,
END OF itab_zycbt005_aux2.
DATA: itab_zycbt005_aux3 LIKE /pws/zycbt005 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_zycbt005_aux4 OCCURS 0,
nrinvoic LIKE /pws/zycbt005-nrinvoic,
nrparcf LIKE /pws/zycbt005-nrparcf,
gsberf LIKE /pws/zycbt005-gsberf,
dtvincul LIKE /pws/zycbt005-dtvincul,
END OF itab_zycbt005_aux4.
DATA: BEGIN OF itab_zycbt006_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt006.
DATA: END OF itab_zycbt006_aux.
DATA: BEGIN OF itab_zycbt005_excluidas OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt005.
DATA: vlslf LIKE /pws/zycbe005-vlslf,
flag TYPE c,
vldif LIKE /pws/zycbe005-vlslf,
belnr_f02 LIKE /pws/zycbt005-belnr,
statrans(4) TYPE c,
END OF itab_zycbt005_excluidas.
* << Fim da exclusão
DATA: BEGIN OF itab_zycbt017_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt017.
DATA: v_fsaldo TYPE c,
END OF itab_zycbt017_aux.
* >> Início da exclusão:
DATA: BEGIN OF itab_contabil OCCURS 0,
nrinvoic LIKE /pws/zycbt030-nrinvoic,
nrparcf LIKE /pws/zycbt030-nrparcf,
vbeln LIKE /pws/zycbt030-vbeln,
gsberf LIKE /pws/zycbt030-gsberf,
docto LIKE /pws/zycbt030-belnr,
msg LIKE /pws/zycbt032-msg,
dtdocto LIKE /pws/zycbt030-budat,
bukrs LIKE /pws/zycbe033-bukrs,
END OF itab_contabil.
* << Fim da exclusão
DATA: BEGIN OF itab_zycbt051_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt051.
DATA: mark(1),
END OF itab_zycbt051_aux.
DATA: BEGIN OF itab_zycbt051_aux2 OCCURS 0.
...
...
DATA: itab_zycbt012 LIKE /pws/zycbt012 OCCURS 10 WITH HEADER LINE.
DATA: itab_zycbt012_trans LIKE /pws/zycbt012 OCCURS 10 WITH HEADER LINE.
DATA: itab_zycbt002j LIKE /pws/zycbt002 OCCURS 10 WITH HEADER LINE.
DATA: itab_zycbt002p LIKE /pws/zycbt002 OCCURS 10 WITH HEADER LINE.
DATA: itab_zycbt002p_vinc LIKE /pws/zycbt002 OCCURS 10 WITH HEADER LINE.
* >> Início da exclusão:
DATA: itab_zycbt069 LIKE /pws/zycbt069 OCCURS 10 WITH HEADER LINE.
* << Fim da exclusão
DATA: itab_zycbt003 LIKE /pws/zycbt003 OCCURS 10 WITH HEADER LINE.
DATA: itab_zycbt010 LIKE /pws/zycbt010 OCCURS 10 WITH HEADER LINE.
DATA: itab_zycbt009 LIKE /pws/zycbt009 OCCURS 10 WITH HEADER LINE.
DATA: itab_tcurx LIKE tcurx OCCURS 10 WITH HEADER LINE.
DATA: itab_zycbt013 LIKE /pws/zycbt013 OCCURS 10 WITH HEADER LINE.
...
...
DATA: BEGIN OF itab_zycbt002p_aux OCCURS 10.
INCLUDE STRUCTURE /pws/zycbt002.
DATA: vldif LIKE /pws/zycbt002-vlme,
belnr_f02 LIKE /pws/zycbt002-belnr,
END OF itab_zycbt002p_aux.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycbt077 OCCURS 1.
INCLUDE STRUCTURE /pws/zycbt077.
DATA: END OF itab_zycbt077.
DATA: BEGIN OF itab_zycbt006_soma OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt006.
DATA: END OF itab_zycbt006_soma.
* << Fim da exclusão
DATA: BEGIN OF itab_belnr OCCURS 1.
DATA: nrinvoic LIKE /pws/zycbt030-nrinvoic,
nrparcf LIKE /pws/zycbt030-nrparcf,
belnr LIKE /pws/zycbt030-belnr,
gsberf LIKE /pws/zycbt017-gsberf,
...
...
END OF itab_t320.
DATA: BEGIN OF itab_nome_campo OCCURS 0,
nome_campo_tela(35) TYPE c,
modif,
END OF itab_nome_campo.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycbt209 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt209.
DATA: belnr_d LIKE /pws/zycbt209-belnr2,
budat_d LIKE sy-datum,
vlbaixa LIKE /pws/zycbt209-vlme,
baixa TYPE c.
DATA: END OF itab_zycbt209.
* << Fim da exclusão
DATA: BEGIN OF itab_zycbt219 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt219.
DATA: belnr_d LIKE /pws/zycbt209-belnr2,
budat_d LIKE sy-datum,
vlbaixa LIKE /pws/zycbt209-vlme,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009X01
...
DATA: END OF itab_zycbt050_aux.
DATA: BEGIN OF itab_zycbt051 OCCURS 10.
INCLUDE STRUCTURE /pws/zycbt051.
DATA: mark(1),
END OF itab_zycbt051.
* >> Início da inclusão:
DATA: BEGIN OF itab_zycbt005_parid OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt005.
DATA: END OF itab_zycbt005_parid.
DATA: BEGIN OF itab_zycbt005_ant OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt005.
DATA: vlslf LIKE /pws/zycbe005-vlslf,
flag TYPE c,
vldif LIKE /pws/zycbe005-vlslf,
belnr_f02 LIKE /pws/zycbt005-belnr,
statrans(4) TYPE c,
mark(1),
v_fsaldo TYPE c,
calcpar LIKE /pws/zycbt005-vlvinc,
text1 LIKE t052u-text1,
belnr_d LIKE /pws/zycbt005-belnr,
belnr_f28 LIKE /pws/zycbt005-belnr,
END OF itab_zycbt005_ant.
DATA: BEGIN OF itab_zycbt005_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt005.
DATA: vlslf LIKE /pws/zycbe005-vlslf,
flag TYPE c,
vldif LIKE /pws/zycbe005-vlslf,
belnr_f02 LIKE /pws/zycbt005-belnr,
statrans(4) TYPE c,
mark(1),
END OF itab_zycbt005_aux.
DATA: BEGIN OF itab_zycbt005_aux2 OCCURS 0,
dtvincul LIKE /pws/zycbt005-dtvincul,
END OF itab_zycbt005_aux2.
DATA: itab_zycbt005_aux3 LIKE /pws/zycbt005 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab_zycbt005_aux4 OCCURS 0,
nrinvoic LIKE /pws/zycbt005-nrinvoic,
nrparcf LIKE /pws/zycbt005-nrparcf,
gsberf LIKE /pws/zycbt005-gsberf,
dtvincul LIKE /pws/zycbt005-dtvincul,
END OF itab_zycbt005_aux4.
DATA: BEGIN OF itab_zycbt006_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt006.
DATA: END OF itab_zycbt006_aux.
DATA: BEGIN OF itab_zycbt005_excluidas OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt005.
DATA: vlslf LIKE /pws/zycbe005-vlslf,
flag TYPE c,
vldif LIKE /pws/zycbe005-vlslf,
belnr_f02 LIKE /pws/zycbt005-belnr,
statrans(4) TYPE c,
END OF itab_zycbt005_excluidas.
DATA: BEGIN OF itab_contabil OCCURS 0,
nrinvoic LIKE /pws/zycbt030-nrinvoic,
nrparcf LIKE /pws/zycbt030-nrparcf,
vbeln LIKE /pws/zycbt030-vbeln,
gsberf LIKE /pws/zycbt030-gsberf,
docto LIKE /pws/zycbt030-belnr,
msg LIKE /pws/zycbt032-msg,
dtdocto LIKE /pws/zycbt030-budat,
bukrs LIKE /pws/zycbe033-bukrs,
END OF itab_contabil.
DATA: BEGIN OF itab_zycbt077 OCCURS 1.
INCLUDE STRUCTURE /pws/zycbt077.
DATA: END OF itab_zycbt077.
DATA: BEGIN OF itab_zycbt006_soma OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt006.
DATA: END OF itab_zycbt006_soma.
DATA: BEGIN OF itab_zycbt209 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt209.
DATA: belnr_d LIKE /pws/zycbt209-belnr2,
budat_d LIKE sy-datum,
vlbaixa LIKE /pws/zycbt209-vlme,
baixa TYPE c.
DATA: END OF itab_zycbt209.
DATA: itab_zycbt069 LIKE /pws/zycbt069 OCCURS 10 WITH HEADER LINE.
* << Fim da inclusão
DATA: wa_zycbt051 LIKE /pws/zycbt051,
wa_zycbt005 LIKE itab_zycbt005.
DATA: v_retorno TYPE sy-subrc,
v_modo_bi(1) TYPE c.
DATA BEGIN OF itab_zycbe033 OCCURS 10.
...