CE PLUS - Nota 005512
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 21/12/2007 00:00:00
Data/Hora Última Alteração: 18/02/2011 18:00:32
Descrição da Nota: TRATAMENTO CAMPOS /PWS/ZYCBT030-BELNR_T /PWS/ZYCBT030-BUDAT_T
Sintoma
O cambio precisa de tratamento para os campos /PWS/ZYCBT030-BELNR_T /PWS/ZYCBT030-BUDAT_T.
Solução
Adicionado tratamento para os campos.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05512 Data: 21/12/2007 Hora: 11:19:17
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05512
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00026
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00989 - 00001 - 6.0 - 00023 - ERRO NA DEVOLUÇÃO DE FATURAS NA APROPRIAÇÃO DESPESAS
01053 - 00002 - 6.0 - 00023 - ESTORNO LIQ. AUTOMÁTICA CÂMBIO PRONTO MESMA FATURA PARCELA DIFERE
01600 - 00003 - 6.0 - 00023 - ATUALIZAÇÃO DA TABELA QUANDO LIQUIDAÇÃO AUTOMÁTICA DE CÂMBIO PRON
02890 - 00004 - 6.0 - 00026 - ERRO ESTORNO LIQUIDAÇÃO PERÍODO FECHADO
03270 - 00005 - 6.0 - 00026 - DESENVOLVIMENTO ADICIONAL COMPLETO - ORDEM DE PAGAMENTO
03379 - 00006 - 7.0 - 00001 - ASSOCIAÇÃO DE ORDENS DE PAGAMENTO - DES. ADIC. REMESSA
03662 - 00007 - 7.0 - 00001 - VALORES MANTIDOS NO EXTERIOR - CAMPO ZTERM
03678 - 00008 - 7.0 - 00001 - LIQUIDAÇÃO - DA - CHECK DOS DOCUMENTOS - ESTORNO DAS FATURAS
04063 - 00009 - 7.0 - 00002 - LIQUIDAÇÃO EM ANDAMENTO - PONTOS DE EXIT LIQ001 E LIQ002
04418 - 00010 - 7.0 - 00002 - VINCULAÇÃO CP COM LIQUIDAÇÃO AUTOMÁTICA - ESTORNO
04725 - 00011 - 7.0 - 00002 - VINCULAÇÃO - CONTABILIZAÇÃO E ESTORNO DE CAMBIO PRONTO
05478 - 00012 - 7.0 - 00003 - DA - ASSOCIAÇÃO DE ORDENS DE PAGAMENTO
05486 - 00013 - 7.0 - 00003 - SELECIONAR RECURSO PARA LIQUIDAÇÃO DE FATURAS
----------------------------------------------------------------------------------------------------
TRATAMENTO CAMPOS /PWS/ZYCBT030-BELNR_T /PWS/ZYCBT030-BUDAT_T
----------------------------------------------------------------------------------------------------
Palavras Chave:
TRATAMENTO CAMPOS /PWS/ZYCBT030-BELNR_T /PWS/ZYCBT030-BUDAT_T
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F02
REPS /PWS/MZYCB005F01
REPS /PWS/MZYCB009F01
REPS /PWS/MZYCB009F02
REPS /PWS/MZYCB009F04
REPS /PWS/MZYCB009F06
REPS /PWS/MZYCB009F07
REPS /PWS/MZYCB009F08
REPS /PWS/MZYCB009F09
REPS /PWS/MZYCB009F10
REPS /PWS/MZYCB031F01
REPS /PWS/MZYCB034F01
REPS /PWS/MZYCB035F02
REPS /PWS/MZYCB035T02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
AND wa_zycbt007-liq_trans EQ 'T'.
EXIT.
ENDIF.
IF itab_zycbt030-belnr IS INITIAL.
IF v_docto NE itab_zycbt030-nrinvoic.
v_docto = itab_zycbt030-nrinvoic.
MESSAGE i265 WITH itab_zycbt030-nrinvoic.
ENDIF.
v_belnr = itab_zycbt030-belnr.
ELSE.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO2
IF itab_zycbt030-belnr6 IS INITIAL.
v_belnr = itab_zycbt030-belnr.
ELSE.
* << Fim da inclusão
v_belnr = itab_zycbt030-belnr6.
ENDIF.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO2
ENDIF.
* << Fim da inclusão
SELECT kursf FROM bkpf
INTO v_kursf6
WHERE bukrs = itab_zycbt005-bukrs AND
belnr = v_belnr AND
gjahr = itab_zycbt030-budat(4).
...
...
AND gsberf = itab_zycbt006-gsberf
AND nrparcf = itab_zycbt006-nrparcf.
CHECK NOT itab_zycbt030-belnr_d IS INITIAL.
IF wa_zycbt007-liq_trans EQ space.
IF itab_zycbt030-v_belnr = itab_zycbt030-belnr_d.
itab_zycbt030-belnr6 = itab_zycbt006-belnr.
ELSE.
itab_zycbt030-belnr6 = itab_zycbt030-belnr_d.
ENDIF.
itab_zycbt030-budat = itab_zycbt006-dtpagto.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO2
IF itab_zycbt030-belnr_t IS INITIAL.
itab_zycbt030-belnr_t = itab_zycbt030-belnr6.
itab_zycbt030-budat_t = itab_zycbt030-budat.
ENDIF.
* << Fim da inclusão
CLEAR: v_flag_la, v_total_30, wa_recurso_aux.
LOOP AT itab_recurso_aux INTO wa_recurso_aux
WHERE nrinvoic = itab_zycbt006-nrinvoic
AND gsberf = itab_zycbt006-gsberf
AND nrparcf = itab_zycbt006-nrparcf.
IF wa_recurso_aux-descorigem EQ v_liquidacao_a OR
wa_recurso_aux-descorigem EQ v_liquidacao_m.
v_total_30 = v_total_30 + wa_recurso_aux-vl_total_saldo.
v_flag_la = 'X'.
ENDIF.
...
...
ENDIF.
ELSE.
itab_zycbt030-vlslliq =
itab_zycbt030-vlslliq - itab_zycbt030-v_kwert.
IF /pws/zycbe001-desc_receb IS INITIAL.
itab_zycbt030-vlsltrans =
itab_zycbt030-vlsltrans - itab_zycbt030-v_kwert.
ENDIF.
ENDIF.
ELSE.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO2
itab_zycbt030-belnr_t = itab_zycbt030-belnr_d.
* << Fim da exclusão
itab_zycbt030-vlslliq =
itab_zycbt030-vlslliq - itab_zycbt006-vlme.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO2
itab_zycbt030-budat_t = itab_zycbt006-dtpagto.
* << Fim da exclusão
ENDIF.
MODIFY itab_zycbt030.
PERFORM grava_zycbt084 USING itab_zycbt006-belnr.
ENDLOOP.
LOOP AT itab_zycbt209 WHERE nrinvoic = itab_zycbt006-nrinvoic
...
...
IF wa_zycbt007-liq_trans IS INITIAL.
itab_zycbt030-belnr6 = v_belnr.
itab_zycbt030-budat = itab_zycbt006-dtpagto.
IF /pws/zycbe001-desc_receb IS INITIAL.
itab_zycbt030-vlsltrans =
itab_zycbt030-vlsltrans + itab_cli-wrbtr.
ENDIF.
itab_zycbt030-vlslliq =
itab_zycbt030-vlslliq + itab_cli-wrbtr.
ELSE.
* >> Início da exclusão: FORM ESTORNO_PERIODO_ABERTO
itab_zycbt030-belnr_t = v_belnr.
itab_zycbt030-budat_t = itab_zycbt006-dtpagto.
* << Fim da exclusão
itab_zycbt030-vlslliq =
itab_zycbt030-vlslliq + itab_zycbt006-vlme.
ENDIF.
MODIFY itab_zycbt030.
PERFORM grava_zycbt084 USING ' '.
ENDLOOP.
IF v_subrc NE 0.
EXIT.
ENDIF.
SELECT * FROM /pws/zycbt084 INTO TABLE itab_zycbt084
...
...
itab_zycbt030-belnr6 = itab_zycbt030-belnr_d.
itab_zycbt030-budat = v_datum.
itab_zycbt030-vlslliq =
itab_zycbt030-vlslliq + itab_zycbt030-v_kwert.
IF /pws/zycbe001-desc_receb IS INITIAL.
itab_zycbt030-vlsltrans =
itab_zycbt030-vlsltrans + itab_zycbt030-v_kwert.
ENDIF.
CLEAR itab_zycbt030-belnr_d.
ELSE.
* >> Início da exclusão: FORM ESTORNO_PERIODO_FECHADO
itab_zycbt030-belnr_t = itab_zycbt030-belnr_d.
itab_zycbt030-budat_t = v_datum.
* << Fim da exclusão
itab_zycbt030-vlslliq =
itab_zycbt030-vlslliq + itab_zycbt006-vlme.
CLEAR itab_zycbt030-belnr_d.
ENDIF.
MODIFY itab_zycbt030.
PERFORM grava_zycbt084 USING ' '.
ENDLOOP.
LOOP AT itab_zycbt069 WHERE nrseqc = itab_zycbt006-nrseqc
AND nrinvoic = itab_zycbt006-nrinvoic
AND dtvincul = itab_zycbt006-dtvincul
...
...
AND wa_zycbt007-liq_trans EQ 'T'.
EXIT.
ENDIF.
IF itab_zycbt030-belnr IS INITIAL.
IF v_docto NE itab_zycbt030-nrinvoic.
v_docto = itab_zycbt030-nrinvoic.
MESSAGE i265 WITH itab_zycbt030-nrinvoic.
ENDIF.
v_belnr = itab_zycbt030-belnr.
ELSE.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO3
IF itab_zycbt030-belnr6 IS INITIAL.
v_belnr = itab_zycbt030-belnr.
ELSE.
* << Fim da inclusão
v_belnr = itab_zycbt030-belnr6.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO3
ENDIF.
* << Fim da inclusão
ENDIF.
SELECT kursf FROM bkpf
INTO v_kursf6
WHERE bukrs = itab_zycbt005-bukrs AND
belnr = v_belnr AND
gjahr = itab_zycbt030-budat(4).
...
...
itab_zycbt030-belnr6 = itab_zycbt006-belnr.
ELSE.
itab_zycbt030-belnr6 = itab_zycbt030-belnr_d.
ENDIF.
itab_zycbt030-budat = itab_zycbt006-dtpagto.
itab_zycbt030-vlslliq =
itab_zycbt030-vlslliq - itab_zycbt030-v_kwert.
itab_zycbt030-vlsltrans =
itab_zycbt030-vlsltrans - itab_zycbt030-v_kwert.
ELSE.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO3
itab_zycbt030-belnr_t = itab_zycbt030-belnr_d.
* << Fim da exclusão
itab_zycbt030-vlslliq =
itab_zycbt030-vlslliq - itab_zycbt006-vlme.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO3
itab_zycbt030-budat_t = itab_zycbt006-dtpagto.
* << Fim da exclusão
ENDIF.
MODIFY itab_zycbt030.
PERFORM grava_zycbt084 USING itab_zycbt006-belnr.
ENDLOOP.
LOOP AT itab_zycbt209 WHERE nrinvoic = itab_zycbt006-nrinvoic
...
...
IF wa_zycbt007-liq_trans IS INITIAL.
itab_zycbt030-belnr6 = v_belnr.
itab_zycbt030-budat = itab_zycbt006-dtpagto.
IF /pws/zycbe001-desc_receb IS INITIAL.
itab_zycbt030-vlsltrans =
itab_zycbt030-vlsltrans + itab_cli-wrbtr.
ENDIF.
itab_zycbt030-vlslliq =
itab_zycbt030-vlslliq + itab_cli-wrbtr.
ELSE.
* >> Início da exclusão: FORM ESTORNO_PERIODO_AB_PERF
itab_zycbt030-belnr_t = v_belnr.
itab_zycbt030-budat_t = itab_zycbt006-dtpagto.
* << Fim da exclusão
itab_zycbt030-vlslliq =
itab_zycbt030-vlslliq + itab_zycbt006-vlme.
ENDIF.
MODIFY itab_zycbt030.
PERFORM grava_zycbt084 USING ' '.
ENDLOOP.
IF v_subrc NE 0.
EXIT.
ENDIF.
PERFORM clear_date_batch.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB005F01
...
IF sy-subrc = 0.
v_subrc = 0.
itab_zycbt213-tpdev = 'DP'.
itab_zycbt213-belnr_apr = itab_zycbt032-belnr.
CLEAR itab_zycbt213-mark.
MODIFY itab_zycbt213.
itab_zycbt213_ant[] = itab_zycbt213[].
MODIFY /pws/zycbt213 FROM itab_zycbt213.
itab_zycbt030-belnr6 = itab_zycbt032-belnr.
itab_zycbt030-budat = itab_zycbt213-dtapr.
* >> Início da inclusão: FORM APR_DESPESA
IF itab_zycbt030-belnr_t IS INITIAL.
itab_zycbt030-belnr_t = itab_zycbt030-belnr6.
itab_zycbt030-budat_t = itab_zycbt030-budat.
ENDIF.
* << Fim da inclusão
MODIFY itab_zycbt030.
MODIFY /pws/zycbt030 FROM TABLE itab_zycbt030.
itab_zycbt017-vlslf = /pws/zycbe017-vlslf.
MODIFY itab_zycbt017 TRANSPORTING vlslf
WHERE nrinvoic = itab_zycbt213-nrinvoic.
UPDATE /pws/zycbt017 SET vlslf = itab_zycbt017-vlslf
WHERE nrinvoic = itab_zycbt213-nrinvoic AND
nrparcf = itab_zycbt213-nrparcf AND
gsberf = itab_zycbt213-gsberf.
v_vlslf = /pws/zycbe017-vlslf.
...
...
/pws/zycbt030~belnr /pws/zycbt030~kwert
/pws/zycbt030~waers
/pws/zycbt030~kostl /pws/zycbt030~prctr
/pws/zycbt030~fipos
/pws/zycbt030~belnr6 /pws/zycbt030~budat
/pws/zycbt030~shkzg
/pws/zycbt030~vinc /pws/zycbt030~liqu
/pws/zycbt030~vlsltrans /pws/zycbt030~vlslliq
/pws/zycbt017~zterm
/pws/zycbt030~dtbelnr
* >> Início da inclusão: FORM SELECIONA_ZYCBT030
/pws/zycbt030~belnr_t /pws/zycbt030~budat_t
* << Fim da inclusão
INTO CORRESPONDING FIELDS OF TABLE itab_zycbt030
FROM /pws/zycbt030
INNER JOIN /pws/zycbt017
ON /pws/zycbt017~nrinvoic = /pws/zycbt030~nrinvoic
AND /pws/zycbt017~gsberf = /pws/zycbt030~gsberf
AND /pws/zycbt017~nrparcf = /pws/zycbt030~nrparcf
WHERE /pws/zycbt030~nrinvoic = itab_zycbt213-nrinvoic
AND /pws/zycbt030~gsberf = itab_zycbt213-gsberf
AND /pws/zycbt030~nrparcf = itab_zycbt213-nrparcf.
LOOP AT itab_zycbt030.
...
...
/pws/zycbt215-nrinvoic = itab_zycbt213-nrinvoic.
/pws/zycbt215-nrparcf = itab_zycbt213-nrparcf.
/pws/zycbt215-gsberf = itab_zycbt213-gsberf.
/pws/zycbt215-dtpdd = itab_zycbt213-dtpdd.
/pws/zycbt215-dtapr = itab_zycbt213-dtapr.
/pws/zycbt215-vbeln = itab_zycbt030-vbeln.
/pws/zycbt215-belnr_desm = itab_zycbt032-belnr.
MODIFY /pws/zycbt215 FROM /pws/zycbt215.
itab_zycbt030-budat = itab_zycbe033a-budat.
itab_zycbt030-belnr6 = itab_zycbt032-belnr.
* >> Início da inclusão: FORM APR_DESPESA_2
IF itab_zycbt030-belnr_t IS INITIAL.
itab_zycbt030-belnr_t = itab_zycbt030-belnr6.
itab_zycbt030-budat_t = itab_zycbt030-budat.
ENDIF.
* << Fim da inclusão
MODIFY itab_zycbt030 TRANSPORTING belnr6 budat
* >> Início da inclusão: FORM APR_DESPESA_2
belnr_t budat_t
* << Fim da inclusão
WHERE nrinvoic = itab_zycbt213-nrinvoic
AND vbeln = itab_zycbt030-vbeln
AND nrparcf = itab_zycbt213-nrparcf
AND gsberf = itab_zycbt213-gsberf.
MODIFY /pws/zycbt030 FROM TABLE itab_zycbt030.
COMMIT WORK.
...
...
itab_zycbt213-belnr_pdd2 = itab_zycbt032-belnr.
ENDIF.
CLEAR itab_zycbt213-mark.
MODIFY itab_zycbt213.
itab_zycbt213_ant[] = itab_zycbt213[].
/pws/zycbt213 = itab_zycbt213.
MODIFY /pws/zycbt213 FROM /pws/zycbt213.
IF v_apr_total EQ 'X'.
itab_zycbt030-budat = budat.
itab_zycbt030-belnr6 = itab_zycbt032-belnr.
* >> Início da inclusão: FORM APR_PDD_3
IF itab_zycbt030-belnr_t IS INITIAL.
itab_zycbt030-belnr_t = itab_zycbt030-belnr6.
itab_zycbt030-budat_t = itab_zycbt030-budat.
ENDIF.
* << Fim da inclusão
MODIFY itab_zycbt030 TRANSPORTING belnr6 budat
* >> Início da inclusão: FORM APR_PDD_3
belnr_t budat_t
* << Fim da inclusão
WHERE nrinvoic = itab_zycbt213-nrinvoic
AND vbeln = itab_zycbt030-vbeln
AND nrparcf = itab_zycbt213-nrparcf
AND gsberf = itab_zycbt213-gsberf.
MODIFY /pws/zycbt030 FROM TABLE itab_zycbt030.
ENDIF.
...
...
/pws/zycbt215-nrinvoic = itab_zycbt213-nrinvoic.
/pws/zycbt215-nrparcf = itab_zycbt213-nrparcf.
/pws/zycbt215-gsberf = itab_zycbt213-gsberf.
/pws/zycbt215-dtpdd = itab_zycbt213-dtpdd.
/pws/zycbt215-dtapr = itab_zycbt213-dtapr.
/pws/zycbt215-vbeln = itab_zycbt030-vbeln.
/pws/zycbt215-belnr_desm = itab_zycbt032-belnr.
MODIFY /pws/zycbt215 FROM /pws/zycbt215.
itab_zycbt030-budat = itab_zycbe033a-budat.
itab_zycbt030-belnr6 = itab_zycbt032-belnr.
* >> Início da inclusão: FORM BAIXA_CLIENTE_PDD_2
IF itab_zycbt030-belnr_t IS INITIAL.
itab_zycbt030-budat_t = itab_zycbt030-budat.
itab_zycbt030-belnr_t = itab_zycbt030-belnr6.
ENDIF.
* << Fim da inclusão
MODIFY itab_zycbt030 TRANSPORTING belnr6 budat
* >> Início da inclusão: FORM BAIXA_CLIENTE_PDD_2
belnr_t budat_t
* << Fim da inclusão
WHERE nrinvoic = itab_zycbt213-nrinvoic
AND vbeln = itab_zycbt030-vbeln
AND nrparcf = itab_zycbt213-nrparcf
AND gsberf = itab_zycbt213-gsberf.
MODIFY /pws/zycbt030 FROM TABLE itab_zycbt030.
COMMIT WORK.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F01
...
INTO v_cpochv.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-30'
tabela = '/PWS/ZYCBT005'
cpochv = v_cpochv
tpmsg = 'S'.
IF sy-subrc = 0.
IF wa_zycbt007-liq_trans IS INITIAL.
itab_zycbt030-belnr6 = itab_zycbt032-belnr.
itab_zycbt030-budat = itab_zycbt005-dtvincul.
ELSE.
* >> Início da exclusão: FORM LIQUIDA_DP
itab_zycbt030-belnr_t = itab_zycbt032-belnr.
itab_zycbt030-budat_t = itab_zycbt005-dtvincul.
* << Fim da exclusão
itab_zycbt030-vlslliq = itab_zycbt030-vlslliq -
itab_zycbe033-wrbtr.
ENDIF.
* >> Início da inclusão: FORM LIQUIDA_DP
IF itab_zycbt030-belnr_t IS INITIAL.
itab_zycbt030-belnr_t = itab_zycbt030-belnr6.
itab_zycbt030-budat_t = itab_zycbt030-budat.
ENDIF.
* << Fim da inclusão
v_dtdocto = itab_zycbt005-dtvincul.
...
...
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-30'
tabela = '/PWS/ZYCBT005'
cpochv = v_cpochv
tpmsg = 'S'.
IF sy-subrc = 0.
IF wa_zycbt007-liq_trans IS INITIAL.
itab_zycbt030-belnr6 = itab_zycbt032-belnr.
itab_zycbt030-budat = wa_zycbt005-dtvincul.
ELSE.
* >> Início da exclusão: FORM EXECUTA_CLEARING_CLIENTE
itab_zycbt030-belnr_t = itab_zycbt032-belnr.
itab_zycbt030-budat_t = wa_zycbt005-dtvincul.
* << Fim da exclusão
itab_zycbt030-vlslliq =
itab_zycbt030-vlslliq + wa_zycbt005-vldif.
ENDIF.
PERFORM grava_t084 USING itab_zycbt032-belnr.
MODIFY itab_zycbt030 TRANSPORTING belnr6 belnr_t budat_t
budat vlslliq
WHERE nrinvoic = itab_zycbt006-nrinvoic
AND nrparcf = itab_zycbt006-nrparcf
AND gsberf = itab_zycbt006-gsberf
AND vbeln = itab_zycbt030-vbeln.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F02
...
tabela = '/PWS/ZYCBT005'
cpochv = v_cpochv
tpmsg = 'S'.
IF sy-subrc = 0.
itab_zycbt051-tpdev = 'RD'.
itab_zycbt051-status_rd = 'C'.
itab_zycbt051-belnr_rd = itab_zycbt032-belnr.
MODIFY itab_zycbt051.
itab_zycbt030-belnr6 = itab_zycbt032-belnr.
itab_zycbt030-budat = itab_zycbt051-dtfech.
* >> Início da inclusão: FORM RECUP_DIVISAS
IF itab_zycbt030-belnr_t IS INITIAL.
itab_zycbt030-belnr_t = itab_zycbt030-belnr6.
itab_zycbt030-budat_t = itab_zycbt030-budat.
ENDIF.
* << Fim da inclusão
MODIFY itab_zycbt030.
CLEAR itab_zycbt006_aux.
READ TABLE itab_zycbt005
WITH KEY nrinvoic = itab_zycbt051-nrinvoic
nrparcf = itab_zycbt051-nrparcf
gsberf = itab_zycbt051-gsberf.
MOVE-CORRESPONDING itab_zycbt005 TO itab_zycbt006_aux.
itab_zycbt006_aux-dtpagto = itab_zycbt051-dtfech.
itab_zycbt006_aux-waers = itab_zycbt005-waers_c.
itab_zycbt006_aux-vlme = itab_zycbt051-vlme.
...
...
cpochv = v_cpochv
tpmsg = 'S'.
IF sy-subrc = 0.
v_subrc = 0.
itab_zycbt051-tpdev = 'DP'.
itab_zycbt051-status_apr = 'C'.
itab_zycbt051-belnr_apr = itab_zycbt032-belnr.
MODIFY itab_zycbt051.
itab_zycbt030-belnr6 = itab_zycbt032-belnr.
itab_zycbt030-budat = itab_zycbt051-dtapr.
* >> Início da inclusão: FORM APR_DESPESA
IF itab_zycbt030-belnr_t IS INITIAL.
itab_zycbt030-belnr_t = itab_zycbt030-belnr6.
itab_zycbt030-budat_t = itab_zycbt030-budat.
ENDIF.
* << Fim da inclusão
MODIFY itab_zycbt030.
CLEAR itab_zycbt006_aux.
READ TABLE itab_zycbt005
WITH KEY nrinvoic = itab_zycbt051-nrinvoic
nrparcf = itab_zycbt051-nrparcf
gsberf = itab_zycbt051-gsberf.
MOVE-CORRESPONDING itab_zycbt005 TO itab_zycbt006_aux.
itab_zycbt006_aux-dtpagto = itab_zycbt051-dtapr.
itab_zycbt006_aux-waers = itab_zycbt005-waers_c.
itab_zycbt006_aux-vlme = itab_zycbt051-vlme.
...
...
cpochv = v_cpochv
tpmsg = 'S'.
IF sy-subrc = 0.
v_subrc = 0.
itab_zycbt051-tpdev = '014DP'.
itab_zycbt051-status_apr = 'C'.
itab_zycbt051-belnr_apr = itab_zycbt032-belnr.
MODIFY itab_zycbt051.
itab_zycbt030-belnr6 = itab_zycbt032-belnr.
itab_zycbt030-budat = itab_zycbt051-dtapr.
* >> Início da inclusão: FORM APR_DESPESA
IF itab_zycbt030-belnr_t IS INITIAL.
itab_zycbt030-belnr_t = itab_zycbt030-belnr6.
itab_zycbt030-budat_t = itab_zycbt030-budat.
ENDIF.
* << Fim da inclusão
MODIFY itab_zycbt030.
CLEAR itab_zycbt006_aux.
READ TABLE itab_zycbt005
WITH KEY nrinvoic = itab_zycbt051-nrinvoic
nrparcf = itab_zycbt051-nrparcf
gsberf = itab_zycbt051-gsberf.
MOVE-CORRESPONDING itab_zycbt005 TO itab_zycbt006_aux.
itab_zycbt006_aux-dtpagto = itab_zycbt051-dtapr.
itab_zycbt006_aux-waers = itab_zycbt005-waers_c.
itab_zycbt006_aux-vlme = itab_zycbt051-vlme.
...
...
itab_zycbt051-dtvincul itab_zycbt051-dtvencto
itab_zycbt030-vbeln itab_zycbt030-belnr
INTO v_cpochv.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-30'
tabela = 'ZYCBT005'
cpochv = v_cpochv
tpmsg = 'S'.
IF sy-subrc = 0.
itab_zycbt030-belnr_d = itab_zycbt032-belnr.
itab_zycbt030-budat = itab_zycbe033-budat.
* >> Início da inclusão: FORM DESM_CLIENTE
IF itab_zycbt030-belnr_t IS INITIAL.
itab_zycbt030-belnr_t = itab_zycbt030-belnr_d.
itab_zycbt030-budat_t = itab_zycbt030-budat.
ENDIF.
* << Fim da inclusão
MODIFY itab_zycbt030.
itab_contabil-nrinvoic = /pws/zycbe050-nrinvoic.
itab_contabil-gsberf = /pws/zycbe050-gsberf.
itab_contabil-docto = itab_zycbt032-belnr.
itab_contabil-dtdocto = itab_zycbe033-budat.
itab_contabil-bukrs = itab_zycbt005-bukrs.
itab_contabil-msg = text-289.
APPEND itab_contabil.
v_subrc = 0.
ELSE.
...
...
tabela = '/PWS/ZYCBT051'
cpochv = v_cpochv
tpmsg = 'S'.
IF sy-subrc = 0.
itab_zycbt051-belnr_pdd2 = itab_zycbt032-belnr.
CLEAR itab_zycbt051-mark.
MODIFY itab_zycbt051.
MODIFY /pws/zycbt051 FROM TABLE itab_zycbt051.
itab_zycbt030-belnr6 = itab_zycbt032-belnr.
itab_zycbt030-budat = itab_zycbt051-dtbx_cl.
* >> Início da inclusão: FORM FILL_DATE_F30_BAIXA_CLIENTE
IF itab_zycbt030-belnr_t IS INITIAL.
itab_zycbt030-belnr_t = itab_zycbt030-belnr6.
itab_zycbt030-budat_t = itab_zycbt030-budat.
ENDIF.
* << Fim da inclusão
MODIFY itab_zycbt030.
MODIFY /pws/zycbt030 FROM TABLE itab_zycbt030.
COMMIT WORK.
ELSE.
LOOP AT itab_zycbt032.
itab_erro-msg = itab_zycbt032-msg.
CLEAR itab_erro-vbeln.
APPEND itab_erro.
MESSAGE i015 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F04
...
SELECT nrinvoic nrparcf gsberf bukrs
FROM /pws/zycbt017
INTO TABLE p_itab_zycbt017
FOR ALL ENTRIES IN p_itab_fatura
WHERE
nrinvoic EQ p_itab_fatura-nrinvoic AND
nrparcf EQ p_itab_fatura-nrparcf AND
gsberf EQ p_itab_fatura-gsberf.
IF sy-subrc EQ 0.
SELECT nrinvoic nrparcf vbeln gsberf belnr belnr6 budat
* >> Início da inclusão: FORM SELECIONA_FATURA
belnr_t budat_t
* << Fim da inclusão
FROM /pws/zycbt030
INTO TABLE p_itab_zycbt030
FOR ALL ENTRIES IN p_itab_zycbt017
WHERE
nrinvoic EQ p_itab_zycbt017-nrinvoic AND
nrparcf EQ p_itab_zycbt017-nrparcf AND
gsberf EQ p_itab_zycbt017-gsberf.
ENDIF.
ENDFORM.
FORM seleciona_liquidacao_andamento
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F06
...
DATA: v_s_kwert LIKE /pws/zycbt030-kwert.
REFRESH itab_zycbt030.
SELECT /pws/zycbt030~nrinvoic /pws/zycbt030~vbeln
/pws/zycbt030~gsberf /pws/zycbt030~nrparcf
/pws/zycbt030~belnr /pws/zycbt030~kwert /pws/zycbt030~waers
/pws/zycbt030~kostl /pws/zycbt030~prctr /pws/zycbt030~fipos
/pws/zycbt030~belnr6 /pws/zycbt030~budat /pws/zycbt030~shkzg
/pws/zycbt030~vinc /pws/zycbt030~liqu /pws/zycbt017~zterm
/pws/zycbt030~vlslliq /pws/zycbt030~vlsltrans
/pws/zycbt030~dtbelnr
* >> Início da inclusão: FORM SELECIONA_ZYCBT030
/pws/zycbt030~belnr_t /pws/zycbt030~budat_t
* << Fim da inclusão
INTO CORRESPONDING FIELDS OF TABLE itab_zycbt030
FROM /pws/zycbt030
INNER JOIN /pws/zycbt017
ON /pws/zycbt017~nrinvoic = /pws/zycbt030~nrinvoic
AND /pws/zycbt017~gsberf = /pws/zycbt030~gsberf
AND /pws/zycbt017~nrparcf = /pws/zycbt030~nrparcf
WHERE /pws/zycbt030~nrinvoic = /pws/zycbe050-nrinvoic
AND /pws/zycbt030~gsberf = /pws/zycbe050-gsberf
AND /pws/zycbt030~nrparcf = /pws/zycbe050-nrparcf.
LOOP AT itab_zycbt030.
...
...
itab_zycbt051-belnr_rd = itab_zycbt032-belnr.
IF itab_zycbt051-dtreceb NE '00000000'.
itab_zycbt051-dtreceb = itab_zycbe033-budat.
ELSE.
itab_zycbt051-dtfech = itab_zycbe033-budat.
ENDIF.
MODIFY itab_zycbt051.
MODIFY /pws/zycbt051 FROM TABLE itab_zycbt051.
itab_zycbt030-belnr6 = itab_zycbt030-belnr_d.
itab_zycbt030-budat = itab_zycbt051-dtfech.
* >> Início da inclusão: FORM RECUP_DIVISAS_3
IF itab_zycbt030-belnr_t IS INITIAL.
itab_zycbt030-belnr_t = itab_zycbt030-belnr6.
itab_zycbt030-budat_t = itab_zycbt030-budat.
ENDIF.
* << Fim da inclusão
MODIFY itab_zycbt030 TRANSPORTING belnr6 budat
* >> Início da inclusão: FORM RECUP_DIVISAS_3
belnr_t budat_t
* << Fim da inclusão
WHERE nrinvoic = itab_zycbt051-nrinvoic
AND nrparcf = itab_zycbt051-nrparcf
AND gsberf = itab_zycbt051-gsberf.
MODIFY /pws/zycbt030 FROM TABLE itab_zycbt030.
COMMIT WORK.
itab_contabil-nrinvoic = itab_zycbt005-nrinvoic.
...
...
tpmsg = 'S'.
IF sy-subrc = 0.
itab_zycbt051-tpdev = text-224.
itab_zycbt051-status_apr = text-008.
itab_zycbt051-belnr_apr = itab_zycbt032-belnr.
itab_zycbt051-dtapr = itab_zycbe033-budat.
MODIFY itab_zycbt051.
MODIFY /pws/zycbt051 FROM TABLE itab_zycbt051.
itab_zycbt030-belnr6 = itab_zycbt030-belnr_d.
itab_zycbt030-budat = itab_zycbt051-dtapr.
* >> Início da inclusão: FORM APR_DESPESAS_3
IF itab_zycbt030-belnr_t IS INITIAL.
itab_zycbt030-belnr_t = itab_zycbt030-belnr6.
itab_zycbt030-budat_t = itab_zycbt030-budat.
ENDIF.
* << Fim da inclusão
MODIFY itab_zycbt030 TRANSPORTING belnr6 budat
* >> Início da inclusão: FORM APR_DESPESAS_3
belnr_t budat_t
* << Fim da inclusão
WHERE nrinvoic = itab_zycbt051-nrinvoic
AND nrparcf = itab_zycbt051-nrparcf
AND gsberf = itab_zycbt051-gsberf.
MODIFY /pws/zycbt030 FROM TABLE itab_zycbt030.
COMMIT WORK.
itab_contabil-nrinvoic = itab_zycbt005-nrinvoic.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F07
...
itab_zycbt077-nrseqc = /pws/zycbe005-nrseqc.
itab_zycbt077-gsberf = itab_zycbt006-gsberf.
itab_zycbt077-dtvincul = itab_zycbt006-dtvincul.
itab_zycbt077-nrinvoic = itab_zycbt006-nrinvoic.
itab_zycbt077-nrparcf = itab_zycbt006-nrparcf.
itab_zycbt077-belnr = itab_zycbt030-vbeln.
itab_zycbt077-dtpagto = itab_zycbt006-dtpagto.
IF wa_zycbt007-liq_trans IS INITIAL.
itab_zycbt030-belnr6 = itab_zycbt032-belnr.
itab_zycbt030-budat = wa_zycbt005-dtvincul.
* >> Início da exclusão: FORM LANCA_CP
ELSE.
itab_zycbt030-belnr_t = itab_zycbt032-belnr.
itab_zycbt030-budat_t = wa_zycbt005-dtvincul.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCA_CP
ENDIF.
IF itab_zycbt030-belnr_t IS INITIAL.
itab_zycbt030-belnr_t = itab_zycbt030-belnr6.
itab_zycbt030-budat_t = itab_zycbt030-budat.
* << Fim da inclusão
ENDIF.
itab_zycbt030-belnr_d = itab_zycbt032-belnr.
itab_zycbt030-vlslliq = itab_zycbt030-vlslliq -
itab_zycbe033-wrbtr.
itab_zycbt030-vlsltrans = itab_zycbt030-vlsltrans -
itab_zycbe033-wrbtr.
wa_zycbt005-slpagar = wa_zycbt005-slpagar - itab_zycbe033-wrbtr.
MODIFY itab_zycbt030 TRANSPORTING belnr6 budat belnr_t
budat_t vlslliq vlsltrans
belnr_d
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F08
...
IF wa_zycbt007-liq_trans IS INITIAL.
itab_zycbt030-belnr6 = itab_zycbt030-belnr_d.
itab_zycbt030-budat = itab_vinc-dtvincul.
itab_zycbt030-vlslliq =
itab_zycbt030-vlslliq + itab_vinc-vlme_p.
IF /pws/zycbe001-desc_receb IS INITIAL.
itab_zycbt030-vlsltrans =
itab_zycbt030-vlsltrans + itab_vinc-vlme_p.
ENDIF.
ELSE.
* >> Início da exclusão: FORM ESTORNO_PERIODO_FECHADO
itab_zycbt030-belnr_t = itab_zycbt030-belnr_d.
itab_zycbt030-budat_t = itab_vinc-dtvincul.
* << Fim da exclusão
itab_zycbt030-vlslliq =
itab_zycbt030-vlslliq + itab_vinc-vlme_p.
ENDIF.
MODIFY itab_zycbt030.
ENDLOOP.
IF v_subrc NE 0.
EXIT.
ENDIF.
PERFORM clear_date_batch.
IF NOT itab_vinc-belnr IS INITIAL.
...
...
itab_zycbt030-belnr6 = itab_zycbt030-belnr_d.
itab_zycbt030-budat = v_datum.
itab_zycbt030-vlslliq =
itab_zycbt030-vlslliq + itab_vinc-vlme_p.
IF /pws/zycbe001-desc_receb IS INITIAL.
itab_zycbt030-vlsltrans =
itab_zycbt030-vlsltrans + itab_vinc-vlme_p.
ENDIF.
CLEAR itab_zycbt030-belnr_d.
ELSE.
* >> Início da exclusão: FORM ESTORNO_PERIODO_FECHADO
itab_zycbt030-belnr_t = itab_zycbt030-belnr_d.
itab_zycbt030-budat_t = v_datum.
* << Fim da exclusão
itab_zycbt030-vlslliq =
itab_zycbt030-vlslliq + itab_vinc-vlme_p.
CLEAR itab_zycbt030-belnr_d.
ENDIF.
MODIFY itab_zycbt030.
PERFORM grava_zycbt084 .
ENDLOOP.
itab_vinc-dtbelnr = v_datum.
itab_vinc-slpagar = itab_vinc-slpagar -
itab_vinc-vlme_p.
...
...
IF wa_zycbt007-liq_trans IS INITIAL.
itab_zycbt030-belnr6 = v_belnr.
itab_zycbt030-budat = itab_vinc-dtvincul.
itab_zycbt030-vlslliq =
itab_zycbt030-vlslliq + itab_cli-wrbtr.
IF /pws/zycbe001-desc_receb IS INITIAL.
itab_zycbt030-vlsltrans =
itab_zycbt030-vlsltrans + itab_cli-wrbtr.
ENDIF.
ELSE.
* >> Início da exclusão: FORM ESTORNO_PERIODO_ABERTO
itab_zycbt030-belnr_t = v_belnr.
itab_zycbt030-budat_t = itab_vinc-dtvincul.
* << Fim da exclusão
itab_zycbt030-vlslliq =
itab_zycbt030-vlslliq + itab_cli-wrbtr.
ENDIF.
MODIFY itab_zycbt030.
ENDLOOP.
IF v_subrc NE 0.
EXIT.
ENDIF.
LOOP AT itab_zycbt209 WHERE nrinvoic = itab_vinc-nrinvoic AND
gsberf = itab_vinc-gsberf AND
...
...
IF wa_zycbt007-liq_trans EQ space.
itab_zycbt030-belnr6 = itab_zycbt030-belnr_d.
itab_zycbt030-budat = itab_zycbt005-dtvincul.
itab_zycbt030-vlslliq =
itab_zycbt030-vlslliq - itab_zycbt030-v_kwert.
IF /pws/zycbe001-desc_receb IS INITIAL.
itab_zycbt030-vlsltrans =
itab_zycbt030-vlsltrans - itab_zycbt030-v_kwert.
ENDIF.
ELSE.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO_DP
itab_zycbt030-belnr_t = itab_zycbt030-belnr_d.
* << Fim da exclusão
itab_zycbt030-vlslliq =
itab_zycbt030-vlslliq - itab_zycbt005-vlme_p.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO_DP
itab_zycbt030-budat_t = itab_zycbt005-dtvincul.
* << Fim da exclusão
ENDIF.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO_DP
IF itab_zycbt030-belnr_t IS INITIAL.
itab_zycbt030-belnr_t = itab_zycbt030-belnr6.
itab_zycbt030-budat_t = itab_zycbt030-budat.
ENDIF.
* << Fim da inclusão
MODIFY itab_zycbt030.
MOVE itab_zycbt005 TO wa_zycbt005.
PERFORM grava_t084 USING itab_zycbt005-belnr.
ENDLOOP.
LOOP AT itab_zycbt209 WHERE nrinvoic = itab_zycbt005-nrinvoic
AND gsberf = itab_zycbt005-gsberf
AND nrparcf = itab_zycbt005-nrparcf.
CHECK NOT itab_zycbt209-belnr_d IS INITIAL.
itab_zycbt209-belnr2 = itab_zycbt209-belnr_d.
itab_zycbt209-dtbelnr = itab_zycbt005-dtvincul.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F09
...
/pws/zycbt030~gsberf /pws/zycbt030~nrparcf
/pws/zycbt030~belnr /pws/zycbt030~kwert
/pws/zycbt030~waers
/pws/zycbt030~kostl /pws/zycbt030~prctr
/pws/zycbt030~fipos
/pws/zycbt030~belnr6 /pws/zycbt030~budat
/pws/zycbt030~shkzg
/pws/zycbt030~vinc /pws/zycbt030~liqu
/pws/zycbt030~vlsltrans /pws/zycbt030~vlslliq
/pws/zycbt030~dtbelnr
* >> Início da inclusão: FORM SELEC_ZYCBT030_TR_EST
/pws/zycbt030~belnr_t /pws/zycbt030~budat_t
* << Fim da inclusão
/pws/zycbt017~zterm
INTO CORRESPONDING FIELDS OF TABLE itab_zycbt030
FROM /pws/zycbt030
INNER JOIN /pws/zycbt017
ON /pws/zycbt017~nrinvoic = /pws/zycbt030~nrinvoic
AND /pws/zycbt017~gsberf = /pws/zycbt030~gsberf
AND /pws/zycbt017~nrparcf = /pws/zycbt030~nrparcf
FOR ALL entries IN itab_vinc
WHERE /pws/zycbt030~nrinvoic = itab_vinc-nrinvoic
AND /pws/zycbt030~gsberf = itab_vinc-gsberf
...
...
itab_zycbt051-dtvincul itab_zycbt051-dtvencto
itab_zycbt030-vbeln itab_zycbt030-belnr
INTO v_cpochv.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-30'
tabela = 'ZYCBT051'
cpochv = v_cpochv
tpmsg = 'S'.
IF sy-subrc = 0.
itab_zycbt030-budat = itab_zycbe033a-budat.
itab_zycbt030-belnr6 = itab_zycbt032-belnr.
* >> Início da inclusão: FORM BAIXA_CLIENTE_PDD_2
IF itab_zycbt030-belnr_t IS INITIAL.
itab_zycbt030-budat_t = itab_zycbt030-budat.
itab_zycbt030-belnr_t = itab_zycbt030-belnr6.
ENDIF.
* << Fim da inclusão
MODIFY itab_zycbt030 TRANSPORTING belnr6 budat
* >> Início da inclusão: FORM BAIXA_CLIENTE_PDD_2
budat_t belnr_t
* << Fim da inclusão
WHERE nrinvoic = itab_zycbt051-nrinvoic
AND vbeln = itab_zycbt030-vbeln
AND nrparcf = itab_zycbt051-nrparcf
AND gsberf = itab_zycbt051-gsberf.
MODIFY /pws/zycbt030 FROM TABLE itab_zycbt030.
COMMIT WORK.
...
...
CLEAR v_subrc.
LOOP AT itab_zycbt005 WHERE flag = p_flag.
itab_zycbt005-status = 'C'.
LOOP AT itab_zycbt030 WHERE nrinvoic = itab_zycbt005-nrinvoic
AND gsberf = itab_zycbt005-gsberf
AND nrparcf = itab_zycbt005-nrparcf.
IF wa_zycbt007-liq_trans EQ space.
itab_zycbt030-belnr6 = itab_zycbt030-belnr_d.
itab_zycbt030-budat = itab_zycbt005-dtvincul.
ELSE.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO_DP2
itab_zycbt030-belnr_t = itab_zycbt030-belnr_d.
* << Fim da exclusão
itab_zycbt030-vlslliq =
itab_zycbt030-vlslliq - itab_zycbt005-vlme_p.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO_DP2
itab_zycbt030-budat_t = itab_zycbt005-dtvincul.
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO_DP2
ENDIF.
IF itab_zycbt030-belnr_t IS INITIAL.
itab_zycbt030-belnr_t = itab_zycbt030-belnr6.
itab_zycbt030-budat_t = itab_zycbt030-budat.
* << Fim da inclusão
ENDIF.
MODIFY itab_zycbt030.
MOVE itab_zycbt005 TO wa_zycbt005.
PERFORM grava_t084 USING itab_zycbt030-belnr_d.
ENDLOOP.
LOOP AT itab_zycbt209 WHERE nrinvoic = itab_zycbt005-nrinvoic
AND gsberf = itab_zycbt005-gsberf
AND nrparcf = itab_zycbt005-nrparcf.
CHECK NOT itab_zycbt209-belnr_d IS INITIAL.
itab_zycbt209-belnr2 = itab_zycbt209-belnr_d.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F10
...
LOOP AT itab_zycbt005 WHERE erro IS INITIAL.
READ TABLE itab_zycbt030
WITH KEY nrinvoic = itab_zycbt005-nrinvoic
nrparcf = itab_zycbt005-nrparcf
gsberf = itab_zycbt005-gsberf.
IF sy-subrc = 0 AND
NOT itab_zycbt030-belnr_d IS INITIAL.
IF wa_zycbt007-liq_trans EQ space.
itab_zycbt030-belnr6 = itab_zycbt030-belnr_d.
itab_zycbt030-budat = itab_zycbt005-dtvincul.
* >> Início da exclusão: FORM ESTORNO_LIQUIDACAO
ELSE.
itab_zycbt030-belnr_t = itab_zycbt030-belnr_d.
itab_zycbt030-budat_t = itab_zycbt005-dtvincul.
* << Fim da exclusão
ENDIF.
MODIFY /pws/zycbt030 FROM itab_zycbt030.
ENDIF.
ENDLOOP.
ENDIF.
endform.
FORM executa_fbrafb08_cont_erro
USING value(p_operacao) TYPE c
value(p_tipo_conta) TYPE c
value(p_conta) TYPE skb1-saknr.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB031F01
...
IF itab_zycbt030-belnr_d = itab_zycbt030-v_belnr.
itab_zycbt030-belnr6 = itab_zycbt032-belnr.
ELSE.
itab_zycbt030-belnr6 = itab_zycbt030-belnr_d.
ENDIF.
itab_zycbt030-budat = itab_zycbt209-dtcredext.
itab_zycbt030-vlsltrans = itab_zycbt030-vlsltrans -
( itab_zycbt209-vlme *
itab_zycbt030-kwert /
itab_zycbt030-s_kwert ).
* >> Início da inclusão: FORM PROC_INCLUSAO
IF itab_zycbt030-belnr_t IS INITIAL.
itab_zycbt030-belnr_t = itab_zycbt030-belnr6.
itab_zycbt030-budat_t = itab_zycbt030-budat.
ENDIF.
* << Fim da inclusão
MODIFY itab_zycbt030.
UPDATE /pws/zycbt030 SET belnr6 = itab_zycbt030-belnr6
budat = itab_zycbt030-budat
vlsltrans = itab_zycbt030-vlsltrans
* >> Início da inclusão: FORM PROC_INCLUSAO
belnr_t = itab_zycbt030-belnr_t
budat_t = itab_zycbt030-budat_t
* << Fim da inclusão
WHERE nrinvoic = itab_zycbt209-nrinvoic AND
gsberf = itab_zycbt209-gsberf AND
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB034F01
...
tcode = 'F-30'
tabela = '/PWS/ZYCBT226'
cpochv = wa_zycbe033-cpochv
tpmsg = 'S'
INTO wa_zycbt032.
IF sy-subrc EQ 0.
<fs_zycbt030>-vlsltrans = <fs_zycbt030>-vlsltrans -
wa_zycbe033-wrbtr.
<fs_zycbt030>-belnr6 = wa_zycbt032-belnr.
<fs_zycbt030>-budat = wa_zycbe033-budat.
* >> Início da inclusão: FORM DOC_DESM_CLIENTE
IF <fs_zycbt030>-belnr_t IS INITIAL.
<fs_zycbt030>-belnr_t = <fs_zycbt030>-belnr6.
<fs_zycbt030>-budat_t = <fs_zycbt030>-budat.
ENDIF.
* << Fim da inclusão
UPDATE /pws/zycbt030
SET vlsltrans = <fs_zycbt030>-vlsltrans
belnr6 = <fs_zycbt030>-belnr6
budat = <fs_zycbt030>-budat
* >> Início da inclusão: FORM DOC_DESM_CLIENTE
belnr_t = <fs_zycbt030>-belnr_t
budat_t = <fs_zycbt030>-budat_t
* << Fim da inclusão
WHERE nrinvoic = <fs_zycbt030>-nrinvoic
AND nrparcf = <fs_zycbt030>-nrparcf
...
...
USING p_disp.
PERFORM clearing_conta_banco
USING p_disp.
PERFORM clearing_conta_disp
USING p_disp.
ENDIF.
ENDIF.
ENDFORM.
FORM estorna_documento
USING p_dtlanc TYPE /pws/zycbt238-dtlanc
* >> Início da exclusão: FORM ESTORNA_DOCUMENTO
p_zycbe033 TYPE t_s_zycbe033
* << Fim da exclusão
p_cpochv TYPE /pws/zycbe033-cpochv
* >> Início da exclusão: FORM ESTORNA_DOCUMENTO
CHANGING p_doc TYPE /pws/zycbt238-doc_comp.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_DOCUMENTO
CHANGING p_zycbe033 TYPE t_s_zycbe033
p_doc TYPE /pws/zycbt238-doc_comp.
* << Fim da inclusão
DATA:
v_periodo TYPE frper,
...
...
PERFORM store_erros
USING itab_zycbt034.
ENDIF.
ELSE.
PERFORM store_erros
USING itab_zycbt034.
ENDIF.
ENDFORM.
FORM cancela_documento
USING p_dtlanc TYPE /pws/zycbt238-dtlanc
* >> Início da exclusão: FORM CANCELA_DOCUMENTO
p_zycbe033 TYPE t_s_zycbe033
* << Fim da exclusão
p_cpochv TYPE /pws/zycbe033-cpochv
* >> Início da exclusão: FORM CANCELA_DOCUMENTO
CHANGING p_doc TYPE /pws/zycbt238-doc_comp.
* << Fim da exclusão
* >> Início da inclusão: FORM CANCELA_DOCUMENTO
CHANGING p_zycbe033 TYPE t_s_zycbe033
p_doc TYPE /pws/zycbt238-doc_comp.
* << Fim da inclusão
DATA:
wa_mensagem TYPE t_mensagem.
...
...
CONCATENATE <fs_op>-bukrs
<fs_op>-nrseq
INTO v_cpochv.
wa_zycbe033-tabela = c_zycbt239.
wa_zycbe033-bukrs = <fs_op>-bukrs.
SORT p_itab_cont BY belnr DESCENDING.
LOOP AT p_itab_cont INTO wa_cont.
IF wa_cont-fbra EQ 'X'.
PERFORM cancela_documento
USING wa_cont-dtlancto
* >> Início da exclusão: FORM ESTORNAR_CONTABILIZACOES
wa_zycbe033
* << Fim da exclusão
v_cpochv
* >> Início da exclusão: FORM ESTORNAR_CONTABILIZACOES
CHANGING wa_cont-belnr.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNAR_CONTABILIZACOES
CHANGING wa_zycbe033
wa_cont-belnr.
* << Fim da inclusão
ENDIF.
IF NOT wa_cont-belnr_ant IS INITIAL AND
...
...
<fs_campo_valor> IS ASSIGNED.
IF <fs_campo> EQ wa_cont-belnr OR
<fs_campo> IS INITIAL.
<fs_campo_valor> = wa_cont-valor_ant.
ENDIF.
ENDLOOP.
ENDIF.
IF wa_cont-fb08 EQ 'X'.
PERFORM estorna_documento
USING wa_cont-dtlancto
* >> Início da exclusão: FORM ESTORNAR_CONTABILIZACOES
wa_zycbe033
* << Fim da exclusão
v_cpochv
* >> Início da exclusão: FORM ESTORNAR_CONTABILIZACOES
CHANGING wa_cont-belnr.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNAR_CONTABILIZACOES
CHANGING wa_zycbe033
wa_cont-belnr.
* << Fim da inclusão
ENDIF.
ENDLOOP.
...
...
<fs_campo> TYPE ANY.
PERFORM limpa_dados_bi.
CONCATENATE <fs_op>-bukrs
<fs_op>-nrseq
INTO v_cpochv.
wa_zycbe033-tabela = c_zycbt239.
wa_zycbe033-bukrs = <fs_op>-bukrs.
IF NOT p_disp-doc_desm IS INITIAL.
PERFORM cancela_documento
USING p_disp-dtlanc
* >> Início da exclusão: FORM ESTORNA_DISP_INCOMPLETA
wa_zycbe033
* << Fim da exclusão
v_cpochv
* >> Início da exclusão: FORM ESTORNA_DISP_INCOMPLETA
CHANGING p_disp-doc_desm.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_DISP_INCOMPLETA
CHANGING wa_zycbe033
p_disp-doc_desm.
* << Fim da inclusão
PERFORM estorna_documento
USING p_disp-dtlanc
* >> Início da exclusão: FORM ESTORNA_DISP_INCOMPLETA
wa_zycbe033
* << Fim da exclusão
v_cpochv
* >> Início da exclusão: FORM ESTORNA_DISP_INCOMPLETA
CHANGING p_disp-doc_desm.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_DISP_INCOMPLETA
CHANGING wa_zycbe033
p_disp-doc_desm.
* << Fim da inclusão
ENDIF.
IF NOT p_disp-doc_cont IS INITIAL.
PERFORM estorna_documento
USING p_disp-dtlanc
* >> Início da exclusão: FORM ESTORNA_DISP_INCOMPLETA
wa_zycbe033
* << Fim da exclusão
v_cpochv
* >> Início da exclusão: FORM ESTORNA_DISP_INCOMPLETA
CHANGING p_disp-doc_cont.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_DISP_INCOMPLETA
CHANGING wa_zycbe033
p_disp-doc_cont.
* << Fim da inclusão
ENDIF.
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB035F02
...
vlslf
FROM /pws/zycbt017
INTO wa_zycbt017
WHERE
nrinvoic = p_wa_fatura-nrinvoic AND
nrparcf = p_wa_fatura-nrparcf AND
gsberf = p_wa_fatura-gsberf.
SELECT SINGLE nrinvoic nrparcf gsberf belnr waers belnr6 budat
vlsltrans
vlslliq
* >> Início da inclusão: FORM SELECIONA_DADOS_FATURA
belnr_t
budat_t
* << Fim da inclusão
FROM /pws/zycbt030
INTO wa_zycbt030
WHERE
nrinvoic = p_wa_fatura-nrinvoic AND
nrparcf = p_wa_fatura-nrparcf AND
gsberf = p_wa_fatura-gsberf.
ENDFORM.
FORM seleciona_dados_remessa
USING value(p_nrseq) TYPE /pws/zycbt229-nrseq_remessa.
CHECK NOT p_nrseq IS INITIAL.
...
...
ENDIF.
ENDIF.
ENDFORM.
FORM atualiza_tabelas.
PERFORM atualiza_dados_fatura_remessa.
PERFORM atualiza_dados_ordem_pagto.
PERFORM atualiza_dados_associacao.
ENDFORM.
FORM atualiza_dados_fatura_remessa.
IF wa_controle-processo = c_flag_embarque.
* >> Início da inclusão: FORM ATUALIZA_DADOS_FATURA_REMESSA
IF wa_zycbt030-belnr_t IS INITIAL.
wa_zycbt030-belnr_t = wa_zycbt030-belnr6.
wa_zycbt030-budat_t = wa_zycbt030-budat.
ENDIF.
* << Fim da inclusão
UPDATE /pws/zycbt030
SET
vlslliq = wa_zycbt030-vlslliq
vlsltrans = wa_zycbt030-vlsltrans
belnr6 = wa_zycbt030-belnr6
budat = wa_zycbt030-budat
* >> Início da inclusão: FORM ATUALIZA_DADOS_FATURA_REMESSA
belnr_t = wa_zycbt030-belnr_t
budat_t = wa_zycbt030-budat_t
* << Fim da inclusão
WHERE
nrinvoic = /pws/zycbe227a-nrinvoic AND
nrparcf = /pws/zycbe227a-nrparcf AND
gsberf = /pws/zycbe227a-gsberf.
UPDATE /pws/zycbt017
SET
vlslf = wa_zycbt017-vlslf
WHERE
nrinvoic = /pws/zycbe227a-nrinvoic AND
nrparcf = /pws/zycbe227a-nrparcf AND
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB035T02
...
BEGIN OF t_s_zycbt030,
nrinvoic TYPE /pws/zycbt030-nrinvoic,
nrparcf TYPE /pws/zycbt030-nrparcf,
gsberf TYPE /pws/zycbt030-gsberf,
belnr TYPE /pws/zycbt030-belnr,
waers TYPE /pws/zycbt030-waers,
belnr6 TYPE /pws/zycbt030-belnr6,
budat TYPE /pws/zycbt030-budat,
vlsltrans TYPE /pws/zycbt030-vlsltrans,
vlslliq TYPE /pws/zycbt030-vlslliq,
* >> Início da inclusão:
belnr_t TYPE /pws/zycbt030-belnr_t,
budat_t TYPE /pws/zycbt030-budat_t,
* << Fim da inclusão
END OF t_s_zycbt030,
t_t_zycbt030 TYPE SORTED TABLE OF t_s_zycbt030
WITH UNIQUE KEY nrinvoic nrparcf gsberf,
BEGIN OF t_s_zycbt124,
nrseq TYPE /pws/zycbt124-nrseq,
nrfech TYPE /pws/zycbt124-nrfech,
bukrs TYPE /pws/zycbt124-bukrs,
gsber TYPE /pws/zycbt124-gsber,
j_1bbranch TYPE /pws/zycbt124-j_1bbranch,
werks TYPE /pws/zycbt124-werks,
...