Visualização da Nota 11702

CE PLUS - Nota 011702

Módulo: CÂMBIO EXPORTAÇÃO

Funcionalidade: Liquidação de Fatura

Data/Hora da Publicação: 29/11/2011 00:00:00

Data/Hora Última Alteração: 02/12/2011 09:09:34

Descrição da Nota: LIQUIDAÇÃO EXPORTAÇÃO, TRILHA DE AUDITORIA

Sintoma

Liquidação Exportação - Trilha de Auditoria

Solução

Liquidação Exportação - Trilha de Auditoria

Versões Tratadas

8.0

Pré-Requisitos

Produto:

Nota

Descrição

Nota 11413

CONTRATOS DE NCE

Nota 11194

LIQUIDAÇÃO ARBITRAGEM-SALDO TOTAL VME OU PARTE LA-ERRO LANÇAMENTO F-30

Nota 11334

VINCULAÇÃO E LIQUIDAÇÃO DE CONTRATOS EM BRL COM FATURAS EM OUTRAS MOEDAS

Nota 11253

VINCULAÇÃO - LIQUIDAÇÃO COM LIQUIDAÇÃO EM ANDAMENTO E VME

Nota 11245

LIQUIDAÇÃO DE CONTRATOS, CAMPOS FECHADOS NA TELA

Nota 11390

LIQUIDAÇÃO CONTRATO - CALCULO JUROS ACC E ACE - HISTÓRICO CONTÁBIL

Nota 11506

TRILHA DE AUDITORIA

Nota 11178

LIQUIDAÇÃO ARBITRAGEM NÃO FAZER FILTRO DA ATRIBUIÇÃO NA LIQUIDAÇÃO TOTAL

Nota 11151

COMISSÃO AGENTE

Nota 10935

VINCULAÇÃO E LIQUIDAÇÃO, LOG DE CFM

Nota 10911

VINCULAÇÃO E LIQUIDAÇÃO CONTRATOS CÂMBIO PRONTO E ACE

Nota 11429

LIQUIDAÇÃO CONTRATOS

Nota 11118

COMISSÃO CONTA GRÁFICA

Nota 11277

LIQUIDAÇÃO - NÃO CONTABILIZAR COMISSÃO DE AGENTE SE TIVER ERRO NA FATURA

Nota 10955

VINCULAÇÃO E LIQUIDAÇÃO COM PERÍODO FECHADO

Nota 11270

LIQUIDAÇÃO ARBITRAGEM - VALORES MANTIDOS NO EXTERIOR

Nota 3678

LIQUIDAÇÃO - DA - CHECK DOS DOCUMENTOS - ESTORNO DAS FATURAS

Nota 11174

VINCULAÇÃO - LIQUIDAÇÃO - BAIXA DO CLIENTE

Nota 11440

VINCULAÇÃO - LIQUIDAÇÃO

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 11702 Data: 29/11/2011 Hora: 11:13:52

----------------------------------------------------------------------------------------------------

Nota Número : 11702

Categoria : Melhoria

Prioridade : Média

Versão PW.CE : 8.0

Pacote : 00009

Agrupamento : 00096

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

03678 - 00001 - 7.0 - 00001 - LIQUIDAÇÃO - DA - CHECK DOS DOCUMENTOS - ESTORNO DAS FATURAS

10911 - 00002 - 8.0 - 00006 - VINCULAÇÃO E LIQUIDAÇÃO CONTRATOS CÂMBIO PRONTO E ACE

10935 - 00003 - 8.0 - 00006 - VINCULAÇÃO E LIQUIDAÇÃO, LOG DE CFM

10955 - 00004 - 8.0 - 00006 - VINCULAÇÃO E LIQUIDAÇÃO COM PERÍODO FECHADO

11118 - 00005 - 8.0 - 00007 - COMISSÃO CONTA GRÁFICA

11151 - 00006 - 8.0 - 00007 - COMISSÃO AGENTE

11174 - 00007 - 8.0 - 00007 - VINCULAÇÃO - LIQUIDAÇÃO - BAIXA DO CLIENTE

11178 - 00008 - 8.0 - 00007 - LIQUIDAÇÃO ARBITRAGEM NÃO FAZER FILTRO DA ATRIBUIÇÃO NA LIQUIDAÇÃ

11194 - 00009 - 8.0 - 00007 - LIQUIDAÇÃO ARBITRAGEM-SALDO TOTAL VME OU PARTE LA-ERRO LANÇAMENTO

11245 - 00010 - 8.0 - 00008 - LIQUIDAÇÃO DE CONTRATOS, CAMPOS FECHADOS NA TELA

11253 - 00011 - 8.0 - 00008 - VINCULAÇÃO - LIQUIDAÇÃO COM LIQUIDAÇÃO EM ANDAMENTO E VME

11270 - 00012 - 8.0 - 00008 - LIQUIDAÇÃO ARBITRAGEM - VALORES MANTIDOS NO EXTERIOR

11277 - 00013 - 8.0 - 00008 - LIQUIDAÇÃO - NÃO CONTABILIZAR COMISSÃO DE AGENTE SE TIVER ERRO NA

11334 - 00014 - 8.0 - 00008 - VINCULAÇÃO E LIQUIDAÇÃO DE CONTRATOS EM BRL COM FATURAS EM OUTRAS

11390 - 00015 - 8.0 - 00008 - LIQUIDAÇÃO CONTRATO - CALCULO JUROS ACC E ACE - HISTÓRICO CONTÁBI

11413 - 00016 - 8.0 - 00008 - CONTRATOS DE NCE

11429 - 00017 - 8.0 - 00008 - LIQUIDAÇÃO CONTRATOS

11440 - 00018 - 8.0 - 00008 - VINCULAÇÃO - LIQUIDAÇÃO

11506 - 00019 - 8.0 - 00009 - TRILHA DE AUDITORIA

----------------------------------------------------------------------------------------------------

LIQUIDAÇÃO EXPORTAÇÃO, TRILHA DE AUDITORIA

----------------------------------------------------------------------------------------------------

Palavras Chave:

LIQUIDAÇÃO EXPORTAÇÃO, TRILHA DE AUDITORIA

----------------------------------------------------------------------------------------------------

Objetos da nota:

CUAD /PWS/SAPMZYCB004

REPS /PWS/MZYCB004F01

REPS /PWS/MZYCB004F02

REPS /PWS/MZYCB004F03

REPS /PWS/MZYCB004I01

REPS /PWS/MZYCB004O01

REPS /PWS/MZYCB004TOP

REPS /PWS/SAPMZYCB004

----------------------------------------------------------------------------------------------------

Modificações efetuadas em CUAD /PWS/SAPMZYCB004

Alterar STATUS-GUI 0100

Incluir BOTÃO ESTÁTICO (Barra de Botões)

CÓDIGO DE FUNÇÃO: LOG_TRILHA

CATEGORIA DE FUNÇÃO: ' '

TEXTOS DE FUNÇÃO ESTÁTICOS

TEXTO DE FUNÇÃO: Log de Modificação

NOME DE ÍCONE: ICON_PHIO_CLASS

TEXTO DE ÍCONE: ' '

TEXTO INFORMATIVO: ' '

SELEÇÃO DIRETA: ' '

TECLA DE ATALHO: Ctrl+F12

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCB004F01

...

gsberf = itab_zycbt006-gsberf

nrseqc = itab_zycbt006-nrseqc.

if sy-subrc ne 0.

itab_zycbt030-belnr6 = itab_zycbt032-belnr.

itab_zycbt030-budat = v_dtpagto.

else.

itab_zycbt209-belnr2 = itab_zycbt032-belnr.

itab_zycbt209-dtbelnr = itab_zycbe033-budat.

modify itab_zycbt209 index 1.

modify /pws/zycbt209 from table itab_zycbt209.

* >> Início da inclusão: FORM LANCAMENTO_PROVISAO

LOOP AT itab_zycbt209.

MOVE-CORRESPONDING itab_zycbt209 TO /pws/zycbt209.

CLEAR v_identificador.

CONCATENATE /pws/zycbt209-nrinvoic

/pws/zycbt209-nrparcf

/pws/zycbt209-gsberf

INTO v_identificador.

PERFORM carrega_log USING '/PWS/ZYCBT209'

'U'

sy-tcode

'/PWS/SAPMZYCB031'

v_identificador.

ENDLOOP.

* << Fim da inclusão

if v_vinculacao is initial.

commit work.

endif.

else.

itab_zycbt030-belnr_t = itab_zycbt032-belnr.

itab_zycbt030-vlslliq =

itab_zycbt030-vlslliq - itab_zycbt006-vlme.

itab_zycbt030-budat_t = v_dtpagto.

endif.

...

if /pws/zycbe005-tpcontr(1) = 'P' or

/pws/zycbe005-tpcontr(1) = 'S' .

itab_zycbt069-belnr = itab_zycbt032-belnr.

endif.

modify itab_zycbt005 transporting belnr dtbelnr

where nrinvoic = itab_zycbt006-nrinvoic and

nrparcf = itab_zycbt006-nrparcf and

gsberf = itab_zycbt006-gsberf.

modify itab_zycbt005 transporting belnr dtbelnr

where belnr = itab_zycbt006-belnr5.

* >> Início da inclusão: FORM LANCAMENTO_COMPENSACAO

REFRESH itab_zycbt005_aud.

SELECT * FROM /pws/zycbt005

INTO TABLE itab_zycbt005_aud

FOR ALL ENTRIES IN itab_zycbt006

WHERE nrseqc = itab_zycbt006-nrseqc

AND dtvincul = itab_zycbt006-dtvincul

AND bukrs = itab_zycbt006-bukrs

AND belnr = itab_zycbt006-belnr5.

* << Fim da inclusão

update /pws/zycbt005 set: belnr = itab_zycbt032-belnr

dtbelnr = itab_zycbe033-budat

where nrseqc = itab_zycbt006-nrseqc

and dtvincul = itab_zycbt006-dtvincul

and bukrs = itab_zycbt006-bukrs

and belnr = itab_zycbt006-belnr5.

* >> Início da inclusão: FORM LANCAMENTO_COMPENSACAO

IF sy-subrc EQ 0.

LOOP AT itab_zycbt005_aud.

MOVE-CORRESPONDING itab_zycbt005_aud TO /pws/zycbt005.

PERFORM carrega_log USING '/PWS/ZYCBT005'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

/pws/zycbt005-nrseqc.

ENDLOOP.

ENDIF.

* << Fim da inclusão

if /pws/zycbe005-tpcontr(1) = 'P' or

/pws/zycbe005-tpcontr(1) = 'S' .

modify /pws/zycbt069 from itab_zycbt069.

* >> Início da inclusão: FORM LANCAMENTO_COMPENSACAO

LOOP AT itab_zycbt069.

MOVE-CORRESPONDING itab_zycbt069 TO /pws/zycbt069.

PERFORM carrega_log USING '/PWS/ZYCBT069'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

itab_zycbt069-nrseqc.

ENDLOOP.

REFRESH itab_zycbt069_aud.

SELECT * FROM /pws/zycbt069

INTO TABLE itab_zycbt069_aud

FOR ALL ENTRIES IN itab_zycbt006

WHERE nrseqc = itab_zycbt006-nrseqc

AND dtvincul = itab_zycbt006-dtvincul

AND belnr = itab_zycbt006-belnr5.

* << Fim da inclusão

update /pws/zycbt069 set belnr = itab_zycbt032-belnr

where nrseqc = itab_zycbt006-nrseqc

and dtvincul = itab_zycbt006-dtvincul

and belnr = itab_zycbt006-belnr5.

* >> Início da inclusão: FORM LANCAMENTO_COMPENSACAO

IF sy-subrc EQ 0.

LOOP AT itab_zycbt069_aud.

MOVE-CORRESPONDING itab_zycbt069_aud TO /pws/zycbt069.

PERFORM carrega_log USING '/PWS/ZYCBT069'

'U'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt069-nrseqc.

ENDLOOP.

ENDIF.

* << Fim da inclusão

endif.

update /pws/zycbt006 set belnr5 = itab_zycbt032-belnr

where nrseqc = itab_zycbt006-nrseqc

and dtvincul = itab_zycbt006-dtvincul

and dtpagto = itab_zycbt006-dtpagto

and bukrs = itab_zycbt006-bukrs.

* >> Início da inclusão: FORM LANCAMENTO_COMPENSACAO

IF sy-subrc EQ 0.

REFRESH itab_zycbt006_aud.

SELECT * FROM /pws/zycbt006

INTO TABLE itab_zycbt006_aud

FOR ALL ENTRIES IN itab_zycbt006

WHERE nrseqc = itab_zycbt006-nrseqc

AND dtvincul = itab_zycbt006-dtvincul

AND dtpagto = itab_zycbt006-dtpagto

AND bukrs = itab_zycbt006-bukrs.

LOOP AT itab_zycbt006_aud.

MOVE-CORRESPONDING itab_zycbt006_aud TO /pws/zycbt006.

PERFORM carrega_log USING '/PWS/ZYCBT006'

'U'

sy-tcode

SY-REPID

/pws/zycbt006-nrseqc.

ENDLOOP.

ENDIF.

* << Fim da inclusão

if /pws/zycbe005-tpcontr(1) eq 'E' or

/pws/zycbe005-tpcontr(1) eq 'C'.

update /pws/zycbt005 set belnr = itab_zycbt032-belnr

dtbelnr = itab_zycbe033-budat

* >> Início da inclusão: FORM LANCAMENTO_COMPENSACAO

WHERE nrseqc = /pws/zycbe005-nrseqc

AND tpdesp = space

AND dtvincul = /pws/zycbe005-dtvincul.

IF sy-subrc EQ 0.

REFRESH itab_zycbt005_aud.

SELECT * FROM /pws/zycbt005

INTO TABLE itab_zycbt005_aud

* << Fim da inclusão

where nrseqc = /pws/zycbe005-nrseqc

and tpdesp = space

and dtvincul = /pws/zycbe005-dtvincul.

* >> Início da inclusão: FORM LANCAMENTO_COMPENSACAO

LOOP AT itab_zycbt005_aud.

MOVE-CORRESPONDING itab_zycbt005_aud TO /pws/zycbt005.

PERFORM carrega_log USING '/PWS/ZYCBT005'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

/pws/zycbt005-nrseqc.

ENDLOOP.

ENDIF.

* << Fim da inclusão

update /pws/zycbt001 set belnr2 = itab_zycbt032-belnr

dtvincul = itab_zycbe033-budat

where nrseqc = /pws/zycbe005-nrseqc.

* >> Início da inclusão: FORM LANCAMENTO_COMPENSACAO

IF sy-subrc EQ 0.

SELECT SINGLE * FROM /pws/zycbt001

WHERE nrseqc = /pws/zycbe005-nrseqc.

PERFORM carrega_log USING '/PWS/ZYCBT001'

'U'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt001-nrseqc.

ENDIF.

* << Fim da inclusão

if v_vinculacao is initial.

commit work.

endif.

itab_zycbt006-status = 'C'.

clear itab_zycbt006-belnr.

itab_zycbt006-belnr5 = itab_zycbt032-belnr.

modify itab_zycbt006 transporting status belnr belnr5

where nrseqc = itab_zycbt006-nrseqc

and dtvincul = itab_zycbt006-dtvincul

...

vlslliq vlsltrans

where nrinvoic = itab_zycbt006-nrinvoic

and nrparcf = itab_zycbt006-nrparcf

and gsberf = itab_zycbt006-gsberf

and vbeln = itab_zycbt030-vbeln.

else.

itab_zycbt209-belnr2 = itab_zycbt032-belnr.

itab_zycbt209-dtbelnr = itab_zycbe033-budat.

modify itab_zycbt209 index 1.

modify /pws/zycbt209 from table itab_zycbt209.

* >> Início da inclusão: FORM CLEARING_AGKON

LOOP AT itab_zycbt209.

MOVE-CORRESPONDING itab_zycbt209 TO /pws/zycbt209.

CLEAR v_identificador.

CONCATENATE /pws/zycbt209-nrinvoic /pws/zycbt209-nrparcf

/pws/zycbt209-gsberf INTO v_identificador.

PERFORM carrega_log USING '/PWS/ZYCBT209'

'U'

sy-tcode

'/PWS/SAPMZYCB031'

v_identificador.

ENDLOOP.

* << Fim da inclusão

if v_vinculacao is initial.

commit work.

endif.

itab_contabil-nrinvoic = itab_zycbt030-nrinvoic.

itab_contabil-nrparcf = itab_zycbt030-nrparcf.

itab_contabil-vbeln = itab_zycbt030-vbeln.

itab_contabil-gsberf = itab_zycbt030-gsberf.

itab_contabil-docto = itab_zycbt032-belnr.

itab_contabil-dtdocto = v_dtpagto.

...

if sy-subrc = 0.

loop at itab_zycbt006 where v_status eq 'I'

and v_armda ne 'X'.

read table itab_zycbt032 with key tcode = 'F-30'

tabela = '/PWS/ZYCBT006'

cpochv = v_cpochv

tpmsg = 'S'.

if sy-subrc = 0.

itab_zycbt006-status = 'C'.

clear itab_zycbt006-belnr.

* >> Início da inclusão: FORM LANCAMENTO_COMPENSACAO_ACE

REFRESH itab_zycbt005_aud.

SELECT * FROM /pws/zycbt005

INTO TABLE itab_zycbt005_aud

WHERE belnr = itab_zycbt006-belnr5. "#EC CI_NOFIELD

* << Fim da inclusão

update /pws/zycbt005 set: belnr = itab_zycbt032-belnr

dtbelnr = itab_zycbe033-budat

where belnr = itab_zycbt006-belnr5. "#EC CI_NOFIELD

* >> Início da inclusão: FORM LANCAMENTO_COMPENSACAO_ACE

IF sy-subrc EQ 0.

LOOP AT itab_zycbt005_aud.

MOVE-CORRESPONDING itab_zycbt005_aud TO /pws/zycbt005.

PERFORM carrega_log USING '/PWS/ZYCBT005'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

/pws/zycbt005-nrseqc.

ENDLOOP.

ENDIF.

* << Fim da inclusão

itab_zycbt006-belnr5 = itab_zycbt032-belnr.

modify itab_zycbt006.

itab_zycbt005-belnr = itab_zycbt032-belnr.

itab_zycbt005-dtbelnr = itab_zycbe033-budat.

modify itab_zycbt005 transporting belnr dtbelnr

where nrinvoic = itab_zycbt006-nrinvoic

and nrparcf = itab_zycbt006-nrparcf

and gsberf = itab_zycbt006-gsberf.

if /pws/zycbe005-tpcontr(1) = 'P' or

/pws/zycbe005-tpcontr(1) = 'S'.

* >> Início da inclusão: FORM LANCAMENTO_COMPENSACAO_ACE

REFRESH itab_zycbt069_aud.

SELECT * FROM /pws/zycbt069

INTO TABLE itab_zycbt069_aud

WHERE nrseqc = itab_zycbt006-nrseqc

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparcf = itab_zycbt006-nrparcf

AND dtvincul = itab_zycbt006-dtvincul

AND gsberf = itab_zycbt006-gsberf.

* << Fim da inclusão

update /pws/zycbt069 set belnr = itab_zycbt032-belnr

where nrseqc = itab_zycbt006-nrseqc

and nrinvoic = itab_zycbt006-nrinvoic

and nrparcf = itab_zycbt006-nrparcf

and dtvincul = itab_zycbt006-dtvincul

and gsberf = itab_zycbt006-gsberf.

* >> Início da inclusão: FORM LANCAMENTO_COMPENSACAO_ACE

IF sy-subrc EQ 0.

LOOP AT itab_zycbt069_aud.

MOVE-CORRESPONDING itab_zycbt069_aud TO /pws/zycbt069.

PERFORM carrega_log USING '/PWS/ZYCBT069'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

/pws/zycbt069-nrseqc.

ENDLOOP.

ENDIF.

REFRESH itab_zycbt069_aud.

SELECT * FROM /pws/zycbt069

INTO TABLE itab_zycbt069_aud

FOR ALL ENTRIES IN itab_zycbt069_aux

WHERE nrseqc = itab_zycbt006-nrseqc

AND dtvincul = itab_zycbt006-dtvincul

AND gsberf = itab_zycbt006-gsberf

AND belnr = itab_zycbt069_aux-belnr.

* << Fim da inclusão

loop at itab_zycbt069_aux.

update /pws/zycbt069 set belnr = itab_zycbt032-belnr

where nrseqc = itab_zycbt006-nrseqc

and dtvincul = itab_zycbt006-dtvincul

and gsberf = itab_zycbt006-gsberf

and belnr = itab_zycbt069_aux-belnr.

* >> Início da inclusão: FORM LANCAMENTO_COMPENSACAO_ACE

LOOP AT itab_zycbt069_aud

WHERE nrseqc = itab_zycbt006-nrseqc

AND dtvincul = itab_zycbt006-dtvincul

AND gsberf = itab_zycbt006-gsberf

AND belnr = itab_zycbt069_aux-belnr.

MOVE-CORRESPONDING itab_zycbt069_aud TO /pws/zycbt069.

PERFORM carrega_log USING '/PWS/ZYCBT069'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

/pws/zycbt069-nrseqc.

* << Fim da inclusão

endloop.

* >> Início da inclusão: FORM LANCAMENTO_COMPENSACAO_ACE

ENDLOOP.

* << Fim da inclusão

endif.

read table itab_zycbe033 with key cpochv = v_cpochv.

itab_zycbt077-belnr = itab_zycbt032-belnr.

itab_zycbt077-bukrs = itab_zycbe033-bukrs.

itab_zycbt077-gjahr = itab_zycbe033-budat(4).

itab_zycbt077-status = 'C'.

...

itab_zycbt077-nrinvoic = itab_zycbt006-nrinvoic.

itab_zycbt077-nrparcf = itab_zycbt006-nrparcf.

itab_zycbt077-dtpagto = itab_zycbt006-dtpagto.

if v_vinculacao is initial.

commit work.

endif.

if /pws/zycbe005-tpcontr(1) eq 'E' or

/pws/zycbe005-tpcontr(1) eq 'C'.

update /pws/zycbt005 set belnr = itab_zycbt005-belnr

dtbelnr = itab_zycbe033-budat

* >> Início da inclusão: FORM LANCAMENTO_COMPENSACAO_ACE

WHERE nrseqc = /pws/zycbe005-nrseqc

AND tpdesp = space

AND dtvincul = /pws/zycbe005-dtvincul.

IF sy-subrc EQ 0.

REFRESH itab_zycbt005_aud.

SELECT * FROM /pws/zycbt005

INTO TABLE itab_zycbt005_aud

* << Fim da inclusão

where nrseqc = /pws/zycbe005-nrseqc

and tpdesp = space

and dtvincul = /pws/zycbe005-dtvincul.

* >> Início da inclusão: FORM LANCAMENTO_COMPENSACAO_ACE

LOOP AT itab_zycbt005_aud.

MOVE-CORRESPONDING itab_zycbt005_aud TO /pws/zycbt005.

PERFORM carrega_log USING '/PWS/ZYCBT005'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

/pws/zycbt005-nrseqc.

ENDLOOP.

ENDIF.

* << Fim da inclusão

update /pws/zycbt001 set belnr2 = itab_zycbt032-belnr

dtvincul = itab_zycbe033-budat

* >> Início da inclusão: FORM LANCAMENTO_COMPENSACAO_ACE

WHERE nrseqc = /pws/zycbe005-nrseqc.

IF sy-subrc EQ 0.

SELECT SINGLE * FROM /pws/zycbt001

* << Fim da inclusão

where nrseqc = /pws/zycbe005-nrseqc.

* >> Início da inclusão: FORM LANCAMENTO_COMPENSACAO_ACE

PERFORM carrega_log USING '/PWS/ZYCBT001'

'U'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt001-nrseqc.

ENDIF.

* << Fim da inclusão

if v_vinculacao is initial.

commit work.

endif.

itab_contabil-docto = itab_zycbt032-belnr.

itab_contabil-dtdocto = itab_zycbe033-budat.

itab_contabil-bukrs = itab_zycbt006-bukrs.

itab_contabil-msg = text-056.

append itab_contabil.

else.

...

and nrparc = itab_zycbt006-nrparc

and dtincl = itab_zycbt006-dtincl

and nrinvoic = itab_zycbt006-nrinvoic

and nrparcf = itab_zycbt006-nrparcf

and gsberf = itab_zycbt006-gsberf

and dtvincul = itab_zycbt006-dtvincul

and dtvencto = itab_zycbt006-dtvencto.

endif.

endloop.

modify /pws/zycbt005 from table itab_zycbt005.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSPARENTES

LOOP AT itab_zycbt005.

MOVE-CORRESPONDING itab_zycbt005 TO /pws/zycbt005.

PERFORM carrega_log USING '/PWS/ZYCBT005'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

itab_zycbt005-nrseqc.

ENDLOOP.

* << Fim da inclusão

itab_zycbt005-dtpagext = /pws/zycbe006-dtpagext.

modify itab_zycbt005 transporting dtpagext

where nrseqc = /pws/zycbe001-nrseqc.

call customer-function '002'

importing

v_subrc = v_subrc.

loop at itab_zycbt006.

itab_zycbt006-vljur_acc = itab_zycbt006-vljur_acc *

( 10 ** ( tcurx-currdec - 2 ) ).

itab_zycbt006-vljur_ace = itab_zycbt006-vljur_ace *

...

and dtvincul = itab_zycbt006-dtvincul

and dtvencto = itab_zycbt006-dtvencto

and dtpagto = itab_zycbt006-dtpagto.

perform monta_log_cfm using wa_zycbt006_log

'/PWS/ZYCBT006'

'6T'

changing wa_log.

perform grava_log using '/PWS/ZYCBT006'

wa_log

'E'.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSPARENTES

ENDIF.

SELECT SINGLE * FROM /pws/zycbt006

WHERE nrseqc = itab_zycbt006-nrseqc

AND tpdesp = itab_zycbt006-tpdesp

AND nrparc = itab_zycbt006-nrparc

AND dtincl = itab_zycbt006-dtincl

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparcf = itab_zycbt006-nrparcf

AND gsberf = itab_zycbt006-gsberf

AND dtvincul = itab_zycbt006-dtvincul

AND dtvencto = itab_zycbt006-dtvencto

AND dtpagext = itab_zycbt006-dtpagext

AND dtpagto = itab_zycbt006-dtpagto.

IF sy-subrc EQ 0.

PERFORM carrega_log USING '/PWS/ZYCBT006'

'D'

sy-tcode

SY-REPID

itab_zycbt006-nrseqc.

* << Fim da inclusão

endif.

delete from /pws/zycbt006 where nrseqc = itab_zycbt006-nrseqc

and tpdesp = itab_zycbt006-tpdesp

and nrparc = itab_zycbt006-nrparc

and dtincl = itab_zycbt006-dtincl

and nrinvoic = itab_zycbt006-nrinvoic

and nrparcf = itab_zycbt006-nrparcf

and gsberf = itab_zycbt006-gsberf

and dtvincul = itab_zycbt006-dtvincul

and dtvencto = itab_zycbt006-dtvencto

...

dtvincul = itab_zycbt006-dtvincul

dtvencto = itab_zycbt006-dtvencto

dtpagto = itab_zycbt006-dtpagto.

if not itab_zycbt005_ant-parid is initial.

v_vlme = itab_zycbt006-vlme * itab_zycbt005_ant-parid.

else.

v_vlme = itab_zycbt006-vlme.

endif.

update /pws/zycbt005 set slpagar = slpagar + v_vlme

belnr = itab_zycbt006-belnr5

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSPARENTES

WHERE nrseqc = itab_zycbt006-nrseqc

AND tpdesp = itab_zycbt006-tpdesp

AND nrparc = itab_zycbt006-nrparc

AND dtincl = itab_zycbt006-dtincl

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparcf = itab_zycbt006-nrparcf

AND gsberf = itab_zycbt006-gsberf

AND dtvincul = itab_zycbt006-dtvincul

AND dtvencto = itab_zycbt006-dtvencto.

IF sy-subrc EQ 0.

REFRESH itab_zycbt005_aud.

SELECT * FROM /pws/zycbt005

INTO TABLE itab_zycbt005

* << Fim da inclusão

where nrseqc = itab_zycbt006-nrseqc

and tpdesp = itab_zycbt006-tpdesp

and nrparc = itab_zycbt006-nrparc

and dtincl = itab_zycbt006-dtincl

and nrinvoic = itab_zycbt006-nrinvoic

and nrparcf = itab_zycbt006-nrparcf

and gsberf = itab_zycbt006-gsberf

and dtvincul = itab_zycbt006-dtvincul

and dtvencto = itab_zycbt006-dtvencto.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSPARENTES

LOOP AT itab_zycbt005_aud.

MOVE-CORRESPONDING itab_zycbt005_aud TO /pws/zycbt005.

PERFORM carrega_log USING '/PWS/ZYCBT005'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

/pws/zycbt005-nrseqc.

ENDLOOP.

ENDIF.

* << Fim da inclusão

move itab_zycbt006 to wa_zycbt006_sbu.

call customer-function '043'

exporting

wa_zycbt006 = wa_zycbt006_sbu.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSPARENTES

REFRESH itab_zycbt084_aud.

SELECT * FROM /pws/zycbt084

INTO TABLE itab_zycbt084_aud

WHERE nrseqc = itab_zycbt006-nrseqc

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparcf = itab_zycbt006-nrparcf

AND gsberf = itab_zycbt006-gsberf

AND dtvincul = itab_zycbt006-dtvincul

AND dtpagext = itab_zycbt006-dtpagext

AND dtpagto = itab_zycbt006-dtpagto.

LOOP AT itab_zycbt084_aud.

MOVE-CORRESPONDING itab_zycbt084_aud TO /pws/zycbt084.

PERFORM carrega_log USING '/PWS/ZYCBT084'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt006-nrseqc.

ENDLOOP.

* << Fim da inclusão

delete from /pws/zycbt084 where nrseqc = itab_zycbt006-nrseqc

and nrinvoic = itab_zycbt006-nrinvoic

and nrparcf = itab_zycbt006-nrparcf

and gsberf = itab_zycbt006-gsberf

and dtvincul = itab_zycbt006-dtvincul

and dtpagext = itab_zycbt006-dtpagext

and dtpagto = itab_zycbt006-dtpagto.

if v_subrc is initial.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSPARENTES

REFRESH itab_zycbt004_aud.

SELECT * FROM /pws/zycbt004

INTO TABLE itab_zycbt004_aud

WHERE nrseqc = itab_zycbt006-nrseqc

AND tpdesp = 'J'

AND nrparc = itab_zycbt006-nrparc

AND dtincl = itab_zycbt006-dtvincul

AND nrinvoic = itab_zycbt006-nrinvoic

AND dtliquid = v_dtpagto

AND dtpagext = v_dtpagext

AND ( dtpagto = '00000000' OR

dtpagto = ' ' OR

dtpagto = space ).

LOOP AT itab_zycbt004_aud.

MOVE-CORRESPONDING itab_zycbt004_aud TO /pws/zycbt004.

PERFORM carrega_log USING '/PWS/ZYCBT004'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt006-nrseqc.

ENDLOOP.

* << Fim da inclusão

delete from /pws/zycbt004 where nrseqc = itab_zycbt006-nrseqc

and tpdesp = 'J'

and nrparc = itab_zycbt006-nrparc

and dtincl = itab_zycbt006-dtvincul

and nrinvoic = itab_zycbt006-nrinvoic

and dtliquid = v_dtpagto

and dtpagext = v_dtpagext

and ( dtpagto = '00000000' or

dtpagto = ' ' or

dtpagto = space ).

...

and nrparc = /pws/zycbt006-nrparc

and dtincl = /pws/zycbt006-dtincl

and nrinvoic = /pws/zycbt006-nrinvoic

and gsberf = /pws/zycbt006-gsberf

and dtvincul = /pws/zycbt006-dtvincul

and dtvencto = /pws/zycbt006-dtvencto

and dtpagext = /pws/zycbt006-dtpagext

and dtpagto = /pws/zycbt006-dtpagto.

endif.

modify /pws/zycbt006.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSPARENTES

PERFORM carrega_log USING '/PWS/ZYCBT006'

'U'

sy-tcode

SY-REPID

/pws/zycbt006-nrseqc.

* << Fim da inclusão

if sy-subrc eq 0.

read table itab_zyglt100 with key zexit = 'LIQ017'.

if sy-subrc eq 0.

if not itab_zyglt100-zexit_ativa is initial.

perform (itab_zyglt100-formulario)

in program (itab_zyglt100-programa).

endif.

if wa_zycbt007-cfm = 'X'.

...

wa_log

'C'.

else.

perform grava_log using '/PWS/ZYCBT006'

wa_log

'A'.

endif.

if itab_zycbt006-v_status ne 'N'.

update /pws/zycbt005 set belnr = itab_zycbt006-belnr5

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSPARENTES

WHERE nrseqc = itab_zycbt006-nrseqc

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparcf = itab_zycbt006-nrparcf

AND dtvincul = itab_zycbt006-dtvincul.

IF sy-subrc EQ 0.

REFRESH itab_zycbt005_aud.

SELECT * FROM /pws/zycbt005

INTO TABLE itab_zycbt005_aud

* << Fim da inclusão

where nrseqc = itab_zycbt006-nrseqc

and nrinvoic = itab_zycbt006-nrinvoic

and nrparcf = itab_zycbt006-nrparcf

and dtvincul = itab_zycbt006-dtvincul.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSPARENTES

LOOP AT itab_zycbt005_aud.

MOVE-CORRESPONDING itab_zycbt005_aud TO /pws/zycbt005.

PERFORM carrega_log USING '/PWS/ZYCBT005'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

/pws/zycbt005-nrseqc.

ENDLOOP.

* << Fim da inclusão

endif.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSPARENTES

ENDIF.

* << Fim da inclusão

if sy-tcode = c_transacao_c and

( itab_zycbt006-tpcontr(1) = 'P'

or /pws/zycbe005-tpcontr(1) = 'S' ).

if not itab_zycbt006-belnr is initial.

update /pws/zycbt069 set belnr = itab_zycbt006-belnr5

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSPARENTES

WHERE nrseqc = itab_zycbt006-nrseqc

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparcf = itab_zycbt006-nrparcf

AND dtvincul = itab_zycbt006-dtvincul.

IF sy-subrc EQ 0.

REFRESH itab_zycbt069_aud.

SELECT * FROM /pws/zycbt069

INTO TABLE itab_zycbt069_aud

* << Fim da inclusão

where nrseqc = itab_zycbt006-nrseqc

and nrinvoic = itab_zycbt006-nrinvoic

and nrparcf = itab_zycbt006-nrparcf

and dtvincul = itab_zycbt006-dtvincul.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSPARENTES

LOOP AT itab_zycbt069_aud.

MOVE-CORRESPONDING itab_zycbt069_aud TO /pws/zycbt069.

PERFORM carrega_log USING '/PWS/ZYCBT069'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

/pws/zycbt069-nrseqc.

ENDLOOP.

ENDIF.

* << Fim da inclusão

endif.

elseif ( sy-tcode = c_transacao_a or

sy-tcode = '/PWS/ZYCB004_CAP' ) and

( itab_zycbt006-tpcontr(1) = 'P'

or /pws/zycbe005-tpcontr(1) = 'S' ).

if not itab_zycbt006-belnr is initial.

update /pws/zycbt069 set belnr = itab_zycbt006-belnr5

where nrseqc = itab_zycbt006-nrseqc

and nrinvoic = itab_zycbt006-nrinvoic

and nrparcf = itab_zycbt006-nrparcf

and dtvincul = itab_zycbt006-dtvincul.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSPARENTES

IF sy-subrc EQ 0.

REFRESH itab_zycbt069_aud.

SELECT * FROM /pws/zycbt069

INTO TABLE itab_zycbt069_aud

WHERE nrseqc = itab_zycbt006-nrseqc

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparcf = itab_zycbt006-nrparcf

AND dtvincul = itab_zycbt006-dtvincul.

LOOP AT itab_zycbt069_aud.

MOVE-CORRESPONDING itab_zycbt069_aud TO /pws/zycbt069.

PERFORM carrega_log USING '/PWS/ZYCBT069'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

/pws/zycbt069-nrseqc.

ENDLOOP.

* << Fim da inclusão

endif.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSPARENTES

ENDIF.

* << Fim da inclusão

if v_subrc is initial.

if not itab_zycbt006-vljur is initial

and /pws/zycbe005-tpcontr(1) ne 'P'.

perform atualiza_zycbt004.

if v_sy_subrc <> 0.

update /pws/zycbt004 set: vlme = itab_zycbt006-vljur

slvinc = itab_zycbt006-vljur

fcalcjur = 'X'

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSPARENTES

WHERE nrseqc = itab_zycbt006-nrseqc

AND tpdesp = 'J'

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparcf = itab_zycbt006-nrparcf

AND dtincl = itab_zycbt006-dtvincul

AND dtpagext = v_dtpagext

AND dtliquid = v_dtpagto

AND nrparc = itab_zycbt006-nrparc

AND ( dtpagto = '00000000' OR

dtpagto = ' ' OR

dtpagto = space ).

IF sy-subrc EQ 0.

REFRESH itab_zycbt004_aud.

SELECT * FROM /pws/zycbt004

INTO TABLE itab_zycbt004_aud

* << Fim da inclusão

where nrseqc = itab_zycbt006-nrseqc

and tpdesp = 'J'

and nrinvoic = itab_zycbt006-nrinvoic

and nrparcf = itab_zycbt006-nrparcf

and dtincl = itab_zycbt006-dtvincul

and dtpagext = v_dtpagext

and dtliquid = v_dtpagto

and nrparc = itab_zycbt006-nrparc

and ( dtpagto = '00000000' or

dtpagto = ' ' or

dtpagto = space ).

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSPARENTES

LOOP AT itab_zycbt004_aud.

MOVE-CORRESPONDING itab_zycbt004_aud TO /pws/zycbt004.

PERFORM carrega_log USING '/PWS/ZYCBT004'

'U'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt004-nrseqc.

ENDLOOP.

ENDIF.

* << Fim da inclusão

endif.

else.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSPARENTES

REFRESH itab_zycbt004_aud.

SELECT * FROM /pws/zycbt004

INTO TABLE itab_zycbt004_aud

WHERE nrseqc = itab_zycbt006-nrseqc

AND tpdesp = 'J'

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparcf = itab_zycbt006-nrparcf

AND dtincl = itab_zycbt006-dtvincul

AND tpjuros = itab_zycbt006-tpjuros

AND dtliquid = v_dtpagto

AND nrparc = itab_zycbt006-nrparc

AND dtpagext = v_dtpagext

AND ( dtpagto = '00000000' OR

dtpagto = ' ' OR

dtpagto = space ).

LOOP AT itab_zycbt004_aud.

MOVE-CORRESPONDING itab_zycbt004_aud TO /pws/zycbt004.

PERFORM carrega_log USING '/PWS/ZYCBT004'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt006-nrseqc.

ENDLOOP.

* << Fim da inclusão

delete from /pws/zycbt004 where

nrseqc = itab_zycbt006-nrseqc

and tpdesp = 'J'

and nrinvoic = itab_zycbt006-nrinvoic

and nrparcf = itab_zycbt006-nrparcf

and dtincl = itab_zycbt006-dtvincul

and tpjuros = itab_zycbt006-tpjuros

and dtliquid = v_dtpagto

and nrparc = itab_zycbt006-nrparc

and dtpagext = v_dtpagext

and ( dtpagto = '00000000' or

dtpagto = ' ' or

dtpagto = space ).

if sy-subrc ne 0.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSPARENTES

REFRESH itab_zycbt004_aud.

SELECT * FROM /pws/zycbt004

INTO TABLE itab_zycbt004_aud

WHERE nrseqc = itab_zycbt006-nrseqc

AND tpdesp = 'J'

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparcf = itab_zycbt006-nrparcf

AND dtincl = itab_zycbt006-dtvincul

AND tpjuros = itab_zycbt006-tpjuros

AND dtpagext = v_dtpagext

AND nrparc = itab_zycbt006-nrparc

AND ( dtpagto = '00000000' OR

dtpagto = ' ' OR

dtpagto = space )

AND ( dtliquid = '00000000' OR

dtliquid = ' ' OR

dtliquid = space ).

LOOP AT itab_zycbt004_aud.

MOVE-CORRESPONDING itab_zycbt004_aud TO /pws/zycbt004.

PERFORM carrega_log USING '/PWS/ZYCBT004'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt006-nrseqc.

ENDLOOP.

* << Fim da inclusão

delete from /pws/zycbt004 where

nrseqc = itab_zycbt006-nrseqc

and tpdesp = 'J'

and nrinvoic = itab_zycbt006-nrinvoic

and nrparcf = itab_zycbt006-nrparcf

and dtincl = itab_zycbt006-dtvincul

and tpjuros = itab_zycbt006-tpjuros

and dtpagext = v_dtpagext

and nrparc = itab_zycbt006-nrparc

and ( dtpagto = '00000000' or

...

dtliquid = ' ' or

dtliquid = space ).

endif.

at end of nrseqc.

sum.

update /pws/zycbt001 set slpagar = slpagar - itab_zycbt006-v_vldif

where nrseqc = itab_zycbt006-nrseqc.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSPARENTES

SELECT SINGLE * FROM /pws/zycbt001

WHERE nrseqc = itab_zycbt006-nrseqc.

PERFORM carrega_log USING '/PWS/ZYCBT001'

'U'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt001-nrseqc.

* << Fim da inclusão

endat.

endloop.

modify /pws/zycbt030 from table itab_zycbt030.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSPARENTES

SELECT * FROM /pws/zycbt030

INTO TABLE itab_zycbt030_aud

FOR ALL ENTRIES IN itab_zycbt030

WHERE nrinvoic = itab_zycbt030-nrinvoic

AND nrparcf = itab_zycbt030-nrparcf

AND gsberf = itab_zycbt030-gsberf.

LOOP AT itab_zycbt030_aud.

MOVE-CORRESPONDING itab_zycbt030_aud TO /pws/zycbt030.

CLEAR v_identificador.

CONCATENATE /pws/zycbt030-nrinvoic /pws/zycbt030-nrparcf

/pws/zycbt030-gsberf INTO v_identificador.

PERFORM carrega_log USING '/PWS/ZYCBT030'

'U'

sy-tcode

'/PWS/SAPMZYCB005'

v_identificador.

ENDLOOP.

* << Fim da inclusão

clear itab_zycbt005_ant.

refresh: itab_zycbt005_ant, itab_zycbt006_pre.

move itab_zycbt005[] to itab_zycbt005_ant[].

clear v_exec_arb.

if v_vinculacao is initial.

commit work.

endif.

endform.

form unlock_record.

check sy-tcode eq c_transacao_c or

...

and nrparcf = itab_aux-nrparcf

and vbeln = itab_aux-vbeln

and gsberf = itab_aux-gsberf.

update /pws/zycbt030 set: belnr6 = itab_zycbt032-belnr

budat = itab_zycbe033-budat

vlslliq = v_vlslliq

where nrinvoic = itab_aux-nrinvoic

and nrparcf = itab_aux-nrparcf

and vbeln = itab_aux-vbeln

and gsberf = itab_aux-gsberf.

* >> Início da inclusão: FORM FILL_DATE_F30_COMISSAO

MOVE-CORRESPONDING itab_aux TO /pws/zycbt030.

CLEAR v_identificador.

CONCATENATE /pws/zycbt030-nrinvoic /pws/zycbt030-nrparcf

/pws/zycbt030-gsberf INTO v_identificador.

PERFORM carrega_log USING '/PWS/ZYCBT030'

'U'

sy-tcode

'/PWS/SAPMZYCB005'

v_identificador.

* << Fim da inclusão

if /pws/zycet037-comis_provisao is initial or

/pws/zycet037-comis_provisao eq 0.

if itab_zycbt006-v_status <> 'E'.

itab_zycet010-status = 'C'.

itab_zycet010-belnr_p = itab_zycbt032-belnr.

itab_zycet010-dtpagto = v_dtpagto.

modify itab_zycet010 transporting status belnr_p dtpagto

where nrseq = itab_zycet010-nrseq

and lifnr = itab_zycet010-lifnr

and dtvencto = itab_zycet010-dtvencto.

else.

itab_zycet010-belnr = itab_zycbt032-belnr.

itab_zycet010-status = space.

itab_zycet010-dtpagto = '00000000'.

modify itab_zycet010 transporting belnr status dtpagto

where nrseq = itab_zycet010-nrseq

and lifnr = itab_zycet010-lifnr

and dtvencto = itab_zycet010-dtvencto.

endif.

modify /pws/zycet010 from itab_zycet010.

* >> Início da inclusão: FORM FILL_DATE_F30_COMISSAO

MOVE-CORRESPONDING itab_zycet010 TO /pws/zycet010.

PERFORM carrega_log USING '/PWS/ZYCET010'

'U'

sy-tcode

'/PWS/SAPMZYCE017'

/pws/zycet010-nrseq.

* << Fim da inclusão

if v_vinculacao is initial.

commit work.

endif.

else.

if itab_zycbt006-v_status <> 'E'.

loop at itab_zycet013 where nrseq eq itab_zycbt006-nrinvoic .

itab_zycet013-status = 'C'.

itab_zycet013-belnr_c = itab_zycbt032-belnr.

itab_zycet013-dtpagto = v_dtpagto.

modify itab_zycet013 transporting status

...

modify itab_zycet013 transporting status

belnr

dtpagto

where nrseq = itab_zycet013-nrseq

and lifnr = itab_zycet013-lifnr

and gsber = itab_zycet013-gsber

and prctr = itab_zycet013-prctr.

endloop.

endif.

modify /pws/zycet013 from itab_zycet013.

* >> Início da inclusão: FORM FILL_DATE_F30_COMISSAO

MOVE-CORRESPONDING itab_zycet013 TO /pws/zycet013.

PERFORM carrega_log USING '/PWS/ZYCET013'

'U'

sy-tcode

'/PWS/SAPMZYCE017'

/pws/zycet013-nrseq.

* << Fim da inclusão

if v_vinculacao is initial.

commit work.

endif.

move itab_zycbt032 to itab_zycbt032a.

move itab_zycbe033-budat to itab_zycbt032a-budat.

append itab_zycbt032a.

v_status_f30 = 'S'.

if v_vinculacao is initial.

commit work.

...

prctr = /pws/zycbt004-prctr

ps_posid = /pws/zycbt004-ps_posid

fipos = /pws/zycbt004-fipos

nplnr = /pws/zycbt004-nplnr

matnr = /pws/zycbt004-matnr

geber = /pws/zycbt004-geber

ebeln = /pws/zycbt004-ebeln

kdauf = /pws/zycbt004-kdauf

cod_area = /pws/zycbt004-cod_area

fictr = /pws/zycbt004-fictr

* >> Início da inclusão: FORM ATUALIZA_ZYCBT004

WHERE nrseqc = itab_zycbt006-nrseqc

AND tpdesp = 'J'

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparcf = itab_zycbt006-nrparcf

AND dtincl = itab_zycbt006-dtvincul

AND dtpagext = itab_zycbt006-dtpagext

AND nrparc = itab_zycbt006-nrparc

AND ( dtliquid = '00000000' OR

dtliquid = ' ' OR

dtliquid = space )

AND ( dtpagto = '00000000' OR

dtpagto = ' ' OR

dtpagto = space ).

IF sy-subrc EQ 0.

REFRESH itab_zycbt004_aud.

SELECT * FROM /pws/zycbt004

INTO TABLE itab_zycbt004_aud

* << Fim da inclusão

where nrseqc = itab_zycbt006-nrseqc

and tpdesp = 'J'

and nrinvoic = itab_zycbt006-nrinvoic

and nrparcf = itab_zycbt006-nrparcf

and dtincl = itab_zycbt006-dtvincul

and dtpagext = itab_zycbt006-dtpagext

and nrparc = itab_zycbt006-nrparc

and ( dtliquid = '00000000' or

dtliquid = ' ' or

dtliquid = space )

and ( dtpagto = '00000000' or

dtpagto = ' ' or

dtpagto = space ).

* >> Início da inclusão: FORM ATUALIZA_ZYCBT004

LOOP AT itab_zycbt004_aud.

MOVE-CORRESPONDING itab_zycbt004_aud TO /pws/zycbt004.

PERFORM carrega_log USING '/PWS/ZYCBT004'

'U'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt004-nrseqc.

ENDLOOP.

ENDIF.

* << Fim da inclusão

v_sy_subrc = sy-subrc.

else.

if itab_zycbt005-vljur_acc > 0.

perform verifica_exit_cliente.

perform grava_cco.

update /pws/zycbt004 set

vlme = itab_zycbt005-vljur_acc

slvinc = itab_zycbt006-vljur_acc

dtliquid = v_dtpagto

tpjuros = 'A'

...

and dtincl = itab_zycbt006-dtvincul

and dtpagext = itab_zycbt006-dtpagext

and nrparc = itab_zycbt006-nrparc

and ( dtliquid = '00000000' or

dtliquid = ' ' or

dtliquid = space )

and ( dtpagto = '00000000' or

dtpagto = ' ' or

dtpagto = space ).

/pws/zycbt004-bukrs = itab_zycbt001-bukrs.

* >> Início da inclusão: FORM ATUALIZA_ZYCBT004

IF sy-subrc EQ 0.

REFRESH itab_zycbt004_aud.

SELECT * FROM /pws/zycbt004

INTO TABLE itab_zycbt004_aud

WHERE nrseqc = itab_zycbt006-nrseqc

AND tpdesp = 'J'

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparcf = itab_zycbt006-nrparcf

AND dtincl = itab_zycbt006-dtvincul

AND dtpagext = itab_zycbt006-dtpagext

AND nrparc = itab_zycbt006-nrparc

AND ( dtliquid = '00000000' OR

dtliquid = ' ' OR

dtliquid = space )

AND ( dtpagto = '00000000' OR

dtpagto = ' ' OR

dtpagto = space ).

LOOP AT itab_zycbt004_aud.

MOVE-CORRESPONDING itab_zycbt004_aud TO /pws/zycbt004.

PERFORM carrega_log USING '/PWS/ZYCBT004'

'U'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt004-nrseqc.

ENDLOOP.

ENDIF.

* << Fim da inclusão

elseif itab_zycbt005-vljur_ace > 0.

perform verifica_exit_cliente.

perform grava_cco.

update /pws/zycbt004 set

vlme = itab_zycbt005-vljur_ace

slvinc = itab_zycbt006-vljur_ace

dtliquid = v_dtpagto

tpjuros = 'E'

aufnr = /pws/zycbt004-aufnr

kostl = /pws/zycbt004-kostl

...

and dtincl = itab_zycbt006-dtvincul

and dtpagext = itab_zycbt006-dtpagext

and nrparc = itab_zycbt006-nrparc

and ( dtliquid = '00000000' or

dtliquid = ' ' or

dtliquid = space )

and ( dtpagto = '00000000' or

dtpagto = ' ' or

dtpagto = space ).

/pws/zycbt004-bukrs = itab_zycbt001-bukrs.

* >> Início da inclusão: FORM ATUALIZA_ZYCBT004

IF sy-subrc EQ 0.

REFRESH itab_zycbt004_aud.

SELECT * FROM /pws/zycbt004

INTO TABLE itab_zycbt004_aud

WHERE nrseqc = itab_zycbt006-nrseqc

AND tpdesp = 'J'

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparcf = itab_zycbt006-nrparcf

AND dtincl = itab_zycbt006-dtvincul

AND dtpagext = itab_zycbt006-dtpagext

AND nrparc = itab_zycbt006-nrparc

AND ( dtliquid = '00000000' OR

dtliquid = ' ' OR

dtliquid = space )

AND ( dtpagto = '00000000' OR

dtpagto = ' ' OR

dtpagto = space ).

LOOP AT itab_zycbt004_aud.

MOVE-CORRESPONDING itab_zycbt004_aud TO /pws/zycbt004.

PERFORM carrega_log USING '/PWS/ZYCBT004'

'U'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt004-nrseqc.

ENDLOOP.

ENDIF.

* << Fim da inclusão

endif.

if itab_zycbt005-vljur_acc > 0 and

itab_zycbt005-vljur_ace > 0.

/pws/zycbt004-tpdesp = 'J'.

/pws/zycbt004-dtincl = itab_zycbt006-dtvincul.

/pws/zycbt004-nrparc = itab_zycbt006-nrparc.

/pws/zycbt004-benefic = itab_zycbt001-bconegoc.

/pws/zycbt004-frpagto = 'R'.

/pws/zycbt004-slvinc = itab_zycbt006-vljur_ace.

/pws/zycbt004-dtvencto = itab_zycbt006-dtvencto.

...

/pws/zycbt004-fcalcjur = 'X'.

/pws/zycbt004-dtliquid = v_dtpagto.

/pws/zycbt004-vlme = itab_zycbt005-vljur_ace.

/pws/zycbt004-tpjuros = 'E'.

perform grava_cco.

if /pws/zycbt004-vlme > 0.

perform verifica_exit_cliente.

if not wa_zycbt004 is initial.

move wa_zycbt004 to /pws/zycbt004.

insert /pws/zycbt004.

* >> Início da inclusão: FORM ATUALIZA_ZYCBT004

PERFORM carrega_log USING '/PWS/ZYCBT004'

'I'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt004-nrseqc.

* << Fim da inclusão

endif.

v_sy_subrc = sy-subrc.

* >> Início da inclusão: FORM ATUALIZA_ZYCBT004

REFRESH itab_zycbt004_aud.

SELECT * FROM /pws/zycbt004

INTO TABLE itab_zycbt004_aud

WHERE nrseqc = itab_zycbt006-nrseqc

AND tpdesp = 'J'

AND nrinvoic = itab_zycbt006-nrinvoic

AND dtincl = itab_zycbt006-dtvincul

AND tpjuros = itab_zycbt006-tpjuros

AND dtliquid = v_dtpagto

AND dtpagext = v_dtpagext

AND nrparc = itab_zycbt006-nrparc

AND ( dtpagto = '00000000' OR

dtpagto = ' ' OR

dtpagto = space ).

LOOP AT itab_zycbt004_aud.

MOVE-CORRESPONDING itab_zycbt004_aud TO /pws/zycbt004.

PERFORM carrega_log USING '/PWS/ZYCBT004'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt006-nrseqc.

ENDLOOP.

* << Fim da inclusão

delete from /pws/zycbt004 where

nrseqc = itab_zycbt006-nrseqc

and tpdesp = 'J'

and nrinvoic = itab_zycbt006-nrinvoic

and dtincl = itab_zycbt006-dtvincul

and tpjuros = itab_zycbt006-tpjuros

and dtliquid = v_dtpagto

and dtpagext = v_dtpagext

and nrparc = itab_zycbt006-nrparc

and ( dtpagto = '00000000' or

dtpagto = ' ' or

dtpagto = space ).

if sy-subrc ne 0.

* >> Início da inclusão: FORM ATUALIZA_ZYCBT004

REFRESH itab_zycbt004_aud.

SELECT * FROM /pws/zycbt004

INTO TABLE itab_zycbt004_aud

WHERE nrseqc = itab_zycbt006-nrseqc

AND tpdesp = 'J'

AND nrinvoic = itab_zycbt006-nrinvoic

AND dtincl = itab_zycbt006-dtvincul

AND tpjuros = itab_zycbt006-tpjuros

AND nrparc = itab_zycbt006-nrparc

AND dtpagext = v_dtpagext

AND ( dtpagto = '00000000' OR

dtpagto = ' ' OR

dtpagto = space )

AND ( dtliquid = '00000000' OR

dtliquid = ' ' OR

dtliquid = space ).

LOOP AT itab_zycbt004_aud.

MOVE-CORRESPONDING itab_zycbt004_aud TO /pws/zycbt004.

PERFORM carrega_log USING '/PWS/ZYCBT004'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt006-nrseqc.

ENDLOOP.

* << Fim da inclusão

delete from /pws/zycbt004 where

nrseqc = itab_zycbt006-nrseqc

and tpdesp = 'J'

and nrinvoic = itab_zycbt006-nrinvoic

and dtincl = itab_zycbt006-dtvincul

and tpjuros = itab_zycbt006-tpjuros

and nrparc = itab_zycbt006-nrparc

and dtpagext = v_dtpagext

and ( dtpagto = '00000000' or

dtpagto = ' ' or

...

/pws/zycbt004-percdesp,

/pws/zycbt004-txcneg,

/pws/zycbt004-belnr,

/pws/zycbt004-dtpagto.

perform grava_cco.

if /pws/zycbt004-vlme > 0.

perform verifica_exit_cliente.

if not wa_zycbt004 is initial.

move wa_zycbt004 to /pws/zycbt004.

insert /pws/zycbt004.

* >> Início da inclusão: FORM ATUALIZA_ZYCBT004

PERFORM carrega_log USING '/PWS/ZYCBT004'

'I'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt004-nrseqc.

* << Fim da inclusão

endif.

v_sy_subrc = sy-subrc.

if v_vinculacao is initial.

commit work.

endif.

else.

if itab_zycbt005-tpcontr(1) = 'E' or

itab_zycbt005-tpcontr(1) = 'A'.

/pws/zycbt004-tpdesp = 'J'.

...

/pws/zycbt004-percdesp,

/pws/zycbt004-txcneg,

/pws/zycbt004-belnr,

/pws/zycbt004-dtpagto.

perform grava_cco.

if /pws/zycbt004-vlme > 0.

perform verifica_exit_cliente.

if not wa_zycbt004 is initial.

move wa_zycbt004 to /pws/zycbt004.

insert /pws/zycbt004.

* >> Início da inclusão: FORM ATUALIZA_ZYCBT004

PERFORM carrega_log USING '/PWS/ZYCBT004'

'I'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt004-nrseqc.

* << Fim da inclusão

endif.

v_sy_subrc = sy-subrc.

if v_vinculacao is initial.

commit work.

endif.

/pws/zycbt004-tpdesp = 'J'.

/pws/zycbt004-dtincl = itab_zycbt005-dtvincul.

/pws/zycbt004-nrparc = itab_zycbt005-nrparc.

/pws/zycbt004-benefic = itab_zycbt001-bconegoc.

...

/pws/zycbt004-percdesp,

/pws/zycbt004-txcneg,

/pws/zycbt004-belnr,

/pws/zycbt004-dtpagto.

perform grava_cco.

if /pws/zycbt004-vlme > 0.

perform verifica_exit_cliente.

if not wa_zycbt004 is initial.

move wa_zycbt004 to /pws/zycbt004.

insert /pws/zycbt004.

* >> Início da inclusão: FORM ATUALIZA_ZYCBT004

PERFORM carrega_log USING '/PWS/ZYCBT004'

'I'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt004-nrseqc.

* << Fim da inclusão

endif.

v_sy_subrc = sy-subrc.

endif.

* >> Início da inclusão: FORM ATUALIZA_ZYCBT004

REFRESH itab_zycbt004_aud.

SELECT * FROM /pws/zycbt004

INTO TABLE itab_zycbt004_aud

WHERE nrseqc = itab_zycbt006-nrseqc

AND tpdesp = 'J'

AND nrinvoic = itab_zycbt006-nrinvoic

AND dtincl = itab_zycbt006-dtvincul

AND tpjuros = itab_zycbt006-tpjuros

AND dtliquid = v_dtpagto

AND dtpagext = v_dtpagext

AND nrparc = itab_zycbt006-nrparc

AND ( dtpagto = '00000000' OR

dtpagto = ' ' OR

dtpagto = space ).

LOOP AT itab_zycbt004_aud.

MOVE-CORRESPONDING itab_zycbt004_aud TO /pws/zycbt004.

PERFORM carrega_log USING '/PWS/ZYCBT004'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt006-nrseqc.

ENDLOOP.

* << Fim da inclusão

delete from /pws/zycbt004 where

nrseqc = itab_zycbt006-nrseqc

and tpdesp = 'J'

and nrinvoic = itab_zycbt006-nrinvoic

and dtincl = itab_zycbt006-dtvincul

and tpjuros = itab_zycbt006-tpjuros

and dtliquid = v_dtpagto

and dtpagext = v_dtpagext

and nrparc = itab_zycbt006-nrparc

and ( dtpagto = '00000000' or

dtpagto = ' ' or

dtpagto = space ).

if sy-subrc ne 0.

* >> Início da inclusão: FORM ATUALIZA_ZYCBT004

REFRESH itab_zycbt004_aud.

SELECT * FROM /pws/zycbt004

INTO TABLE itab_zycbt004_aud

WHERE nrseqc = itab_zycbt006-nrseqc

AND tpdesp = 'J'

AND nrinvoic = itab_zycbt006-nrinvoic

AND dtincl = itab_zycbt006-dtvincul

AND tpjuros = itab_zycbt006-tpjuros

AND nrparc = itab_zycbt006-nrparc

AND dtpagext = v_dtpagext

AND ( dtpagto = '00000000' OR

dtpagto = ' ' OR

dtpagto = space )

AND ( dtliquid = '00000000' OR

dtliquid = ' ' OR

dtliquid = space ).

LOOP AT itab_zycbt004_aud.

MOVE-CORRESPONDING itab_zycbt004_aud TO /pws/zycbt004.

PERFORM carrega_log USING '/PWS/ZYCBT004'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt006-nrseqc.

ENDLOOP.

* << Fim da inclusão

delete from /pws/zycbt004 where

nrseqc = itab_zycbt006-nrseqc

and tpdesp = 'J'

and nrinvoic = itab_zycbt006-nrinvoic

and dtincl = itab_zycbt006-dtvincul

and tpjuros = itab_zycbt006-tpjuros

and nrparc = itab_zycbt006-nrparc

and dtpagext = v_dtpagext

and ( dtpagto = '00000000' or

dtpagto = ' ' or

...

prctr = /pws/zycbt004-prctr

ps_posid = /pws/zycbt004-ps_posid

fipos = /pws/zycbt004-fipos

nplnr = /pws/zycbt004-nplnr

matnr = /pws/zycbt004-matnr

geber = /pws/zycbt004-geber

ebeln = /pws/zycbt004-ebeln

kdauf = /pws/zycbt004-kdauf

cod_area = /pws/zycbt004-cod_area

fictr = /pws/zycbt004-fictr

* >> Início da inclusão: FORM ATUALIZA_ZYCBT004

WHERE nrseqc = itab_zycbt006-nrseqc

AND tpdesp = 'J'

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparcf = itab_zycbt006-nrparcf

AND dtincl = itab_zycbt006-dtvincul

AND dtpagext = itab_zycbt006-dtpagext

AND nrparc = itab_zycbt006-nrparc

AND dtliquid = v_dtpagto.

IF sy-subrc EQ 0.

REFRESH itab_zycbt004_aud.

SELECT * FROM /pws/zycbt004

INTO TABLE itab_zycbt004_aud

* << Fim da inclusão

where nrseqc = itab_zycbt006-nrseqc

and tpdesp = 'J'

and nrinvoic = itab_zycbt006-nrinvoic

and nrparcf = itab_zycbt006-nrparcf

and dtincl = itab_zycbt006-dtvincul

and dtpagext = itab_zycbt006-dtpagext

and nrparc = itab_zycbt006-nrparc

and dtliquid = v_dtpagto.

* >> Início da inclusão: FORM ATUALIZA_ZYCBT004

LOOP AT itab_zycbt004_aud.

MOVE-CORRESPONDING itab_zycbt004_aud TO /pws/zycbt004.

PERFORM carrega_log USING '/PWS/ZYCBT004'

'U'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt004-nrseqc.

ENDLOOP.

ENDIF.

* << Fim da inclusão

else.

if itab_zycbt005-tpcontr(1) = 'E' or

itab_zycbt005-tpcontr(1) = 'A'

and itab_zycbt006-vljur_acc > 0.

perform grava_cco.

update /pws/zycbt004 set vlme = itab_zycbt006-vljur_acc

slvinc = itab_zycbt006-vljur_acc

aufnr = /pws/zycbt004-aufnr

kostl = /pws/zycbt004-kostl

prctr = /pws/zycbt004-prctr

ps_posid = /pws/zycbt004-ps_posid

fipos = /pws/zycbt004-fipos

nplnr = /pws/zycbt004-nplnr

matnr = /pws/zycbt004-matnr

geber = /pws/zycbt004-geber

ebeln = /pws/zycbt004-ebeln

kdauf = /pws/zycbt004-kdauf

cod_area = /pws/zycbt004-cod_area

fictr = /pws/zycbt004-fictr

* >> Início da inclusão: FORM ATUALIZA_ZYCBT004

WHERE nrseqc = itab_zycbt006-nrseqc

AND tpdesp = 'J'

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparcf = itab_zycbt006-nrparcf

AND dtincl = itab_zycbt006-dtvincul

AND dtpagext = itab_zycbt006-dtpagext

AND nrparc = itab_zycbt006-nrparc

AND dtliquid = v_dtpagto

AND tpjuros = 'A'.

IF sy-subrc EQ 0.

REFRESH itab_zycbt004_aud.

SELECT * FROM /pws/zycbt004

INTO TABLE itab_zycbt004_aud

* << Fim da inclusão

where nrseqc = itab_zycbt006-nrseqc

and tpdesp = 'J'

and nrinvoic = itab_zycbt006-nrinvoic

and nrparcf = itab_zycbt006-nrparcf

and dtincl = itab_zycbt006-dtvincul

and dtpagext = itab_zycbt006-dtpagext

and nrparc = itab_zycbt006-nrparc

and dtliquid = v_dtpagto

and tpjuros = 'A'.

* >> Início da inclusão: FORM ATUALIZA_ZYCBT004

LOOP AT itab_zycbt004_aud.

MOVE-CORRESPONDING itab_zycbt004_aud TO /pws/zycbt004.

PERFORM carrega_log USING '/PWS/ZYCBT004'

'U'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt004-nrseqc.

ENDLOOP.

ENDIF.

* << Fim da inclusão

update /pws/zycbt004 set vlme = itab_zycbt006-vljur_ace

slvinc = itab_zycbt006-vljur_ace

aufnr = /pws/zycbt004-aufnr

kostl = /pws/zycbt004-kostl

prctr = /pws/zycbt004-prctr

ps_posid = /pws/zycbt004-ps_posid

fipos = /pws/zycbt004-fipos

nplnr = /pws/zycbt004-nplnr

matnr = /pws/zycbt004-matnr

geber = /pws/zycbt004-geber

...

where nrseqc = itab_zycbt006-nrseqc

and tpdesp = 'J'

and nrinvoic = itab_zycbt006-nrinvoic

and nrparcf = itab_zycbt006-nrparcf

and dtincl = itab_zycbt006-dtvincul

and dtpagext = itab_zycbt006-dtpagext

and nrparc = itab_zycbt006-nrparc

and dtliquid = v_dtpagto

and tpjuros = 'E'.

v_sy_subrc = sy-subrc.

* >> Início da inclusão: FORM ATUALIZA_ZYCBT004

IF sy-subrc EQ 0.

REFRESH itab_zycbt004_aud.

SELECT * FROM /pws/zycbt004

INTO TABLE itab_zycbt004_aud

WHERE nrseqc = itab_zycbt006-nrseqc

AND tpdesp = 'J'

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparcf = itab_zycbt006-nrparcf

AND dtincl = itab_zycbt006-dtvincul

AND dtpagext = itab_zycbt006-dtpagext

AND nrparc = itab_zycbt006-nrparc

AND dtliquid = v_dtpagto

AND tpjuros = 'E'.

LOOP AT itab_zycbt004_aud.

MOVE-CORRESPONDING itab_zycbt004_aud TO /pws/zycbt004.

PERFORM carrega_log USING '/PWS/ZYCBT004'

'U'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt004-nrseqc.

ENDLOOP.

ENDIF.

* << Fim da inclusão

if v_vinculacao is initial.

commit work.

endif.

endform.

form busca_envento_taxa.

clear wa_zycbt011.

...

dtlanc

status

dtpagto

belnr51

belnr_p

where nrseq = itab_zycet010-nrseq and

lifnr = itab_zycet010-lifnr and

dtvencto = itab_zycet010-dtvencto.

endif.

modify /pws/zycet010 from itab_zycet010.

* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE

MOVE-CORRESPONDING itab_zycet010 TO /pws/zycet010.

PERFORM carrega_log USING '/PWS/ZYCET010'

'U'

sy-tcode

'/PWS/SAPMZYCE017'

/pws/zycet010-nrseq.

* << Fim da inclusão

if v_vinculacao is initial.

commit work.

endif.

else.

if itab_zycbt006-v_status <> 'E'.

loop at itab_zycet013 where nrseq eq itab_zycbt006-nrinvoic .

itab_zycet013-belnr_cl = itab_zycbt032-belnr.

modify itab_zycet013 transporting belnr_cl

where nrseq = itab_zycet013-nrseq

and gsber = itab_zycet013-gsber

and lifnr = itab_zycet013-lifnr

and prctr = itab_zycet013-prctr.

modify /pws/zycet013 from itab_zycet013 .

* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE

MOVE-CORRESPONDING itab_zycet013 TO /pws/zycet013.

PERFORM carrega_log USING '/PWS/ZYCET013'

'U'

sy-tcode

'/PWS/SAPMZYCE017'

/pws/zycet013-nrseq.

* << Fim da inclusão

if v_vinculacao is initial.

commit work.

endif.

endloop.

else.

loop at itab_zycet013 where nrseq eq itab_zycbt006-nrinvoic .

itab_zycet013-belnr = itab_zycbt032-belnr.

itab_zycet013-dtlanc = itab_zycbe033-budat.

itab_zycet013-status = space.

itab_zycet013-dtpagto = '00000000'.

...

dtlanc

status

dtpagto

belnr_cl

belnr_c

where nrseq = itab_zycet013-nrseq

and gsber = itab_zycet013-gsber

and lifnr = itab_zycet013-lifnr

and prctr = itab_zycet013-prctr.

modify /pws/zycet013 from itab_zycet013 .

* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE

MOVE-CORRESPONDING itab_zycet013 TO /pws/zycet013.

PERFORM carrega_log USING '/PWS/ZYCET013'

'U'

sy-tcode

'/PWS/SAPMZYCE017'

/pws/zycet013-nrseq.

* << Fim da inclusão

if v_vinculacao is initial.

commit work.

endif.

endloop.

endif.

if itab_zycbt006-v_status <> 'E'.

itab_zycbt006-vlcomis = /pws/zycbt017-vlcomis.

else.

itab_zycbt006-vlcomis = space.

endif.

update /pws/zycbt006 set vlcomis = itab_zycbt006-vlcomis

where nrseqc = itab_zycbt006-nrseqc

and nrinvoic = itab_zycbt006-nrinvoic

and nrparcf = itab_zycbt006-nrparcf

and gsberf = itab_zycbt006-gsberf

and dtvincul = itab_zycbt006-dtvincul

and dtpagto = itab_zycbt006-dtpagto.

if v_vinculacao is initial.

commit work.

* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE

ENDIF.

IF sy-subrc EQ 0.

REFRESH itab_zycbt006_aud.

SELECT * FROM /pws/zycbt006

INTO TABLE itab_zycbt006_aud

WHERE nrseqc = itab_zycbt006-nrseqc

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparcf = itab_zycbt006-nrparcf

AND gsberf = itab_zycbt006-gsberf

AND dtvincul = itab_zycbt006-dtvincul

AND dtpagto = itab_zycbt006-dtpagto.

LOOP AT itab_zycbt006_aud.

MOVE-CORRESPONDING itab_zycbt006_aud TO /pws/zycbt006.

PERFORM carrega_log USING '/PWS/ZYCBT006'

'U'

sy-tcode

SY-REPID

/pws/zycbt006-nrseqc.

ENDLOOP.

* << Fim da inclusão

endif.

itab_contabil-vbeln = itab_zycbt006-nrinvoic.

itab_contabil-nrparcf = itab_zycbt006-nrparcf.

itab_contabil-gsberf = itab_zycbt006-gsberf.

itab_contabil-docto = itab_zycbt032-belnr.

itab_contabil-dtdocto = itab_zycbe033-budat.

itab_contabil-bukrs = itab_zycbt006-bukrs.

itab_contabil-msg = text-114.

append itab_contabil.

itab_zycbt077-belnr = itab_zycbt032-belnr.

...

loop at itab_zycbt006 where v_status eq 'E'

and not vlcomis is initial.

read table itab_zycbt226 into wa_zycbt226

with key nrinvoic = itab_zycbt006-nrinvoic

nrparcf = itab_zycbt006-nrparcf

gsberf = itab_zycbt006-gsberf.

check sy-subrc ne 0.

select *

from /pws/zycbt006

into corresponding fields of table itab_zycbt006_ca

* >> Início da exclusão: FORM ESTORNA_COMISSAO

where nrinvoic = itab_zycbt006-nrinvoic. "#EC CI_NOFIRST

* << Fim da exclusão

* >> Início da inclusão: FORM ESTORNA_COMISSAO

WHERE nrinvoic = itab_zycbt006-nrinvoic. "#EC CI_NOFIRST

* << Fim da inclusão

describe table itab_zycbt006_ca lines v_linha.

check v_linha < 2.

clear: itab_selreg,

itab_zycet010,

itab_zycet013.

refresh: itab_zycet010,

itab_zycet013.

select single * from /pws/zycbt017

where nrinvoic eq itab_zycbt006-nrinvoic

and nrparcf eq itab_zycbt006-nrparcf.

...

if /pws/zycet037-comis_provisao is initial or

/pws/zycet037-comis_provisao eq 0.

itab_zycet010-belnr = itab_zycbt032-belnr.

itab_zycet010-status = space.

itab_zycet010-dtpagto = '00000000'.

modify itab_zycet010 transporting belnr status dtpagto

where nrseq = itab_zycet010-nrseq

and lifnr = itab_zycet010-lifnr

and dtvencto = itab_zycet010-dtvencto.

modify /pws/zycet010 from itab_zycet010.

* >> Início da inclusão: FORM FILL_DATE6_F22_COMISSAO

MOVE-CORRESPONDING itab_zycet010 TO /pws/zycet010.

PERFORM carrega_log USING '/PWS/ZYCET010'

'U'

sy-tcode

'/PWS/SAPMZYCE017'

/pws/zycet010-nrseq.

* << Fim da inclusão

else.

loop at itab_zycet013 where nrseq eq itab_zycbt006-nrinvoic .

itab_zycet013-belnr = itab_zycbt032-belnr.

itab_zycet013-status = space.

itab_zycet013-dtpagto = '00000000'.

modify itab_zycet013 transporting status

belnr

dtpagto

where nrseq = itab_zycet013-nrseq

and lifnr = itab_zycet013-lifnr

and gsber = itab_zycet013-gsber

and prctr = itab_zycet013-prctr.

modify /pws/zycet013 from itab_zycet013.

* >> Início da inclusão: FORM FILL_DATE6_F22_COMISSAO

MOVE-CORRESPONDING itab_zycet013 TO /pws/zycet013.

PERFORM carrega_log USING '/PWS/ZYCET013'

'U'

sy-tcode

'/PWS/SAPMZYCE017'

/pws/zycet013-nrseq.

* << Fim da inclusão

endloop.

endif.

move itab_zycbt032 to itab_zycbt032a.

itab_zycbt032a-budat = itab_zycbe033-budat.

append itab_zycbt032a.

itab_contabil-nrinvoic = itab_zycbt030-nrinvoic.

itab_contabil-nrparcf = itab_zycbt030-nrparcf.

itab_contabil-vbeln = itab_zycbt030-vbeln.

itab_contabil-gsberf = itab_zycbt030-gsberf.

itab_contabil-docto = itab_zycbt032-belnr.

...

itab_zycbt030-budat = itab_zycbe033-budat.

itab_zycbt030-vlslliq = itab_zycbt030-vlslliq + v_vlme .

modify itab_zycbt030 transporting belnr6 budat vlslliq

where nrinvoic = itab_aux-nrinvoic and

nrparcf = itab_aux-nrparcf and

vbeln = itab_aux-vbeln and

gsberf = itab_aux-gsberf.

modify itab_zycbt030 transporting belnr6 budat

where belnr6 = v_belnr6.

modify /pws/zycbt030 from table itab_zycbt030.

* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE

REFRESH itab_zycbt030_aud.

SELECT * FROM /pws/zycbt030

INTO TABLE itab_zycbt030_aud

FOR ALL ENTRIES IN itab_zycbt030

WHERE nrinvoic = itab_zycbt030-nrinvoic

AND nrparcf = itab_zycbt030-nrparcf

AND gsberf = itab_zycbt030-gsberf.

LOOP AT itab_zycbt030_aud.

CLEAR v_identificador.

MOVE-CORRESPONDING itab_zycbt030_aud TO /pws/zycbt030.

CONCATENATE /pws/zycbt030-nrinvoic /pws/zycbt030-nrparcf

/pws/zycbt030-gsberf INTO v_identificador.

PERFORM carrega_log USING '/PWS/ZYCBT030'

'U'

sy-tcode

'/PWS/SAPMZYCB005'

v_identificador.

ENDLOOP.

* << Fim da inclusão

if v_vinculacao is initial.

commit work.

endif.

if /pws/zycet037-comis_provisao is initial or

/pws/zycet037-comis_provisao eq 0.

clear :itab_zycet010-belnr_p .

modify itab_zycet010 transporting belnr_p

where nrseq = itab_zycet010-nrseq

and lifnr = itab_zycet010-lifnr

and dtvencto = itab_zycet010-dtvencto.

modify /pws/zycet010 from itab_zycet010.

* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE

MOVE-CORRESPONDING itab_zycet010 TO /pws/zycet010.

PERFORM carrega_log USING '/PWS/ZYCET010'

'U'

sy-tcode

'/PWS/SAPMZYCE017'

/pws/zycet010-nrseq.

* << Fim da inclusão

if v_vinculacao is initial.

commit work.

endif.

else.

loop at itab_zycet013 where nrseq eq itab_zycbt006-nrinvoic.

clear: itab_zycet013-belnr_c ,

itab_zycet013-belnr_cl .

modify itab_zycet013 transporting belnr_c

belnr_cl

where nrseq = itab_zycet013-nrseq

and lifnr = itab_zycet013-lifnr

and gsber = itab_zycet013-gsber

and prctr = itab_zycet013-prctr.

modify /pws/zycet013 from itab_zycet013.

* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE

MOVE-CORRESPONDING itab_zycet013 TO /pws/zycet013.

PERFORM carrega_log USING '/PWS/ZYCET013'

'U'

sy-tcode

'/PWS/SAPMZYCE017'

/pws/zycet013-nrseq.

* << Fim da inclusão

endloop.

endif.

itab_aux-belnr6 = itab_zycbt032-belnr.

itab_aux-budat = itab_zycbe033-budat.

modify itab_aux transporting belnr6

where belnr6 = v_belnr6.

itab_contabil-nrinvoic = itab_aux-nrinvoic.

itab_contabil-nrparcf = itab_aux-nrparcf.

itab_contabil-vbeln = itab_aux-vbeln.

itab_contabil-gsberf = itab_aux-gsberf.

...

/pws/zycbt084-gsberf = itab_zycbt006-gsberf.

/pws/zycbt084-dtvincul = itab_zycbt006-dtvincul.

/pws/zycbt084-dtvencto = itab_zycbt006-dtvencto.

/pws/zycbt084-dtpagto = itab_zycbt006-dtpagto.

/pws/zycbt084-dtpagext = itab_zycbt006-dtpagext.

/pws/zycbt084-vbeln = itab_zycbt030-vbeln.

/pws/zycbt084-belnr = v_belnr6.

/pws/zycbt084-liq_and = space.

/pws/zycbt084-tdesmemb = ' '.

modify /pws/zycbt084 from /pws/zycbt084.

* >> Início da inclusão: FORM GRAVA_ZYCBT084

PERFORM carrega_log USING '/PWS/ZYCBT084'

'U'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt006-nrseqc.

* << Fim da inclusão

if v_vinculacao is initial.

commit work.

endif.

endform.

form calcula_montante.

data: v_difer like /pws/zycbt131-vlme,

v_vlme_fat like /pws/zycbt005-vlme_p,

v_contr_brl like /pws/zycbt005-vlme_p,

v_fat_brl like /pws/zycbt005-vlme_p,

v_tot_fat like /pws/zycbt005-vlme_p,

...

where nrinvoic = itab_aux-nrinvoic

and nrparcf = itab_aux-nrparcf

and vbeln = itab_aux-vbeln

and gsberf = itab_aux-gsberf.

update /pws/zycbt030 set: belnr6 = itab_zycbt032-belnr

budat = itab_zycbe033-budat

where nrinvoic = itab_aux-nrinvoic

and nrparcf = itab_aux-nrparcf

and vbeln = itab_aux-vbeln

and gsberf = itab_aux-gsberf.

* >> Início da inclusão: FORM LIQUIDA_COMIS_TRANS

MOVE-CORRESPONDING itab_aux TO /pws/zycbt030.

CONCATENATE /pws/zycbt030-nrinvoic /pws/zycbt030-nrparcf

/pws/zycbt030-gsberf INTO v_identificador.

PERFORM carrega_log USING '/PWS/ZYCBT030'

'U'

sy-tcode

'/PWS/SAPMZYCB005'

v_identificador.

* << Fim da inclusão

if /pws/zycet037-comis_provisao is initial or

/pws/zycet037-comis_provisao eq 0.

if itab_zycbt006-v_status <> 'E'.

itab_zycet010-status = 'C'.

itab_zycet010-belnr_p = itab_zycbt032-belnr.

itab_zycet010-dtpagto = v_dtpagto.

modify itab_zycet010 transporting status belnr_p dtpagto

where nrseq = itab_zycet010-nrseq

and lifnr = itab_zycet010-lifnr

and dtvencto = itab_zycet010-dtvencto.

else.

itab_zycet010-belnr = itab_zycbt032-belnr.

itab_zycet010-status = space.

itab_zycet010-dtpagto = '00000000'.

modify itab_zycet010 transporting belnr status dtpagto

where nrseq = itab_zycet010-nrseq

and lifnr = itab_zycet010-lifnr

and dtvencto = itab_zycet010-dtvencto.

endif.

modify /pws/zycet010 from itab_zycet010.

* >> Início da inclusão: FORM LIQUIDA_COMIS_TRANS

MOVE-CORRESPONDING itab_zycet010 TO /pws/zycet010.

PERFORM carrega_log USING '/PWS/ZYCET010'

'U'

sy-tcode

'/PWS/SAPMZYCE017'

/pws/zycet010-nrseq.

* << Fim da inclusão

else.

if itab_zycbt006-v_status <> 'E'.

itab_zycet013-status = 'C'.

itab_zycet013-belnr_c = itab_zycbt032-belnr.

itab_zycet013-dtpagto = v_dtpagto.

modify itab_zycet013 transporting status

belnr_c

dtpagto

where nrseq = itab_zycet013-nrseq

and lifnr = itab_zycet013-lifnr

...

itab_zycet013-dtpagto = '00000000'.

modify itab_zycet013 transporting status

belnr

dtpagto

where nrseq = itab_zycet013-nrseq

and lifnr = itab_zycet013-lifnr

and gsber = itab_zycet013-gsber

and prctr = itab_zycet013-prctr.

endif.

modify /pws/zycet013 from itab_zycet013.

* >> Início da inclusão: FORM LIQUIDA_COMIS_TRANS

MOVE-CORRESPONDING itab_zycet013 TO /pws/zycet013.

PERFORM carrega_log USING '/PWS/ZYCET013'

'U'

sy-tcode

'/PWS/SAPMZYCE017'

/pws/zycet013-nrseq.

* << Fim da inclusão

endif.

move itab_zycbt032 to itab_zycbt032a.

move itab_zycbe033-budat to itab_zycbt032a-budat.

append itab_zycbt032a.

clear itab_doc_f02.

move itab_zycbt032-belnr to itab_doc_f02-docto.

append itab_doc_f02.

v_status_f30 = 'S'.

if v_vinculacao is initial.

commit work.

...

if /pws/zycbe005-tpcontr(1) = 'P' or

/pws/zycbe005-tpcontr(1) = 'S' .

itab_zycbt069-belnr = itab_zycbt032-belnr.

endif.

modify itab_zycbt005 transporting belnr dtbelnr

where nrinvoic = itab_zycbt006-nrinvoic and

nrparcf = itab_zycbt006-nrparcf and

gsberf = itab_zycbt006-gsberf.

modify itab_zycbt005 transporting belnr dtbelnr

where belnr = itab_zycbt006-belnr5.

* >> Início da inclusão: FORM CLEAR_ACE_EST

REFRESH itab_zycbt005_aud.

SELECT * FROM /pws/zycbt005

INTO TABLE itab_zycbt005_aud

WHERE nrseqc = itab_zycbt006-nrseqc

AND dtvincul = itab_zycbt006-dtvincul

AND bukrs = itab_zycbt006-bukrs

AND belnr = itab_zycbt006-belnr5.

* << Fim da inclusão

update /pws/zycbt005 set: belnr = itab_zycbt032-belnr

dtbelnr = itab_zycbe033-budat

where nrseqc = itab_zycbt006-nrseqc

and dtvincul = itab_zycbt006-dtvincul

and bukrs = itab_zycbt006-bukrs

and belnr = itab_zycbt006-belnr5.

* >> Início da inclusão: FORM CLEAR_ACE_EST

LOOP AT itab_zycbt005_aud.

MOVE-CORRESPONDING itab_zycbt005_aud TO /pws/zycbt005.

PERFORM carrega_log USING '/PWS/ZYCBT005'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

/pws/zycbt005-nrseqc.

ENDLOOP.

* << Fim da inclusão

if /pws/zycbe005-tpcontr(1) = 'P' or

/pws/zycbe005-tpcontr(1) = 'S' .

modify /pws/zycbt069 from itab_zycbt069.

* >> Início da inclusão: FORM CLEAR_ACE_EST

MOVE-CORRESPONDING itab_zycbt069 TO /pws/zycbt069.

PERFORM carrega_log USING '/PWS/ZYCBT069'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

/pws/zycbt069-nrseqc.

REFRESH itab_zycbt069_aud.

SELECT * FROM /pws/zycbt069

INTO TABLE itab_zycbt069_aud

WHERE nrseqc = itab_zycbt006-nrseqc

AND dtvincul = itab_zycbt006-dtvincul

AND belnr = itab_zycbt006-belnr5.

* << Fim da inclusão

update /pws/zycbt069 set belnr = itab_zycbt032-belnr

where nrseqc = itab_zycbt006-nrseqc

and dtvincul = itab_zycbt006-dtvincul

and belnr = itab_zycbt006-belnr5.

* >> Início da inclusão: FORM CLEAR_ACE_EST

LOOP AT itab_zycbt069_aud.

MOVE-CORRESPONDING itab_zycbt069_aud TO /pws/zycbt069.

PERFORM carrega_log USING '/PWS/ZYCBT069'

'U'

sy-tcode

'/PWS/SAPMZYCBT009'

/pws/zycbt069-nrseqc.

ENDLOOP.

* << Fim da inclusão

endif.

update /pws/zycbt006 set belnr5 = itab_zycbt032-belnr

where nrseqc = itab_zycbt006-nrseqc

and dtvincul = itab_zycbt006-dtvincul

and dtpagto = itab_zycbt006-dtpagto

and bukrs = itab_zycbt006-bukrs.

* >> Início da inclusão: FORM CLEAR_ACE_EST

IF sy-subrc EQ 0.

REFRESH itab_zycbt006_aud.

SELECT * FROM /pws/zycbt006

INTO TABLE itab_zycbt006_aud

WHERE nrseqc = itab_zycbt006-nrseqc

AND dtvincul = itab_zycbt006-dtvincul

AND dtpagto = itab_zycbt006-dtpagto

AND bukrs = itab_zycbt006-bukrs.

LOOP AT itab_zycbt006_aud.

MOVE-CORRESPONDING itab_zycbt006_aud TO /pws/zycbt006.

PERFORM carrega_log USING '/PWS/ZYCBT006'

'U'

sy-tcode

SY-REPID

/pws/zycbt006-nrseqc.

ENDLOOP.

ENDIF.

* << Fim da inclusão

if /pws/zycbe005-tpcontr(1) eq 'E' or

/pws/zycbe005-tpcontr(1) eq 'C'.

update /pws/zycbt005 set belnr = itab_zycbt032-belnr

dtbelnr = itab_zycbe033-budat

* >> Início da inclusão: FORM CLEAR_ACE_EST

WHERE nrseqc = /pws/zycbe005-nrseqc

AND tpdesp = space

AND dtvincul = /pws/zycbe005-dtvincul.

IF sy-subrc EQ 0.

REFRESH itab_zycbt005_aud.

SELECT * FROM /pws/zycbt005

INTO TABLE itab_zycbt005_aud

* << Fim da inclusão

where nrseqc = /pws/zycbe005-nrseqc

and tpdesp = space

and dtvincul = /pws/zycbe005-dtvincul.

* >> Início da inclusão: FORM CLEAR_ACE_EST

LOOP AT itab_zycbt005_aud.

MOVE-CORRESPONDING itab_zycbt005_aud TO /pws/zycbt005.

PERFORM carrega_log USING '/PWS/ZYCBT005'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

/pws/zycbt005-nrseqc.

ENDLOOP.

ENDIF.

* << Fim da inclusão

update /pws/zycbt001 set belnr2 = itab_zycbt032-belnr

dtvincul = itab_zycbe033-budat

where nrseqc = /pws/zycbe005-nrseqc.

if v_vinculacao is initial.

commit work.

endif.

* >> Início da inclusão: FORM CLEAR_ACE_EST

SELECT SINGLE * FROM /pws/zycbt001

WHERE nrseqc = /pws/zycbe005-nrseqc.

PERFORM carrega_log USING '/PWS/ZYCBT001'

'U'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt001-nrseqc.

* << Fim da inclusão

itab_zycbt006-status = 'C'.

clear itab_zycbt006-belnr.

itab_zycbt006-belnr5 = itab_zycbt032-belnr.

modify itab_zycbt006 transporting status belnr belnr5

where nrseqc = itab_zycbt006-nrseqc

and dtvincul = itab_zycbt006-dtvincul

and dtpagto = itab_zycbt006-dtpagto

and gsberf = itab_zycbt006-gsberf.

read table itab_zycbe033 with key cpochv = v_cpochv.

itab_zycbt077-belnr = itab_zycbt032-belnr.

...

modify itab_zycet010 transporting belnr

dtlanc

status

dtpagto

belnr51

belnr_p

where nrseq = itab_zycet010-nrseq and

lifnr = itab_zycet010-lifnr and

dtvencto = itab_zycet010-dtvencto.

modify /pws/zycet010 from itab_zycet010.

* >> Início da inclusão: FORM ESTORNA_COMIS_T

MOVE-CORRESPONDING itab_zycet010 TO /pws/zycet010.

PERFORM carrega_log USING '/PWS/ZYCET010'

'U'

sy-tcode

'/PWS/SAPMZYCE017'

/pws/zycet010-nrseq.

* << Fim da inclusão

endif.

endloop.

clear v_flc.

endform.

form verif_contas.

data: v_bukrs like skb1-bukrs,

v_saknr like skb1-saknr,

v_kunnr like knb1-kunnr,

v_lifnr like lfb1-lifnr.

...

and gsberf = itab_zycbt006-gsberf

and nrparcf = itab_zycbt006-nrparcf.

itab_zycbt069-belnr = itab_zycbt005_ant-belnr_d.

modify itab_zycbt069.

update /pws/zycbt069 set belnr = itab_zycbt069-belnr

where nrseqc = itab_zycbt006-nrseqc and

nrinvoic = itab_zycbt006-nrinvoic and

dtvincul = itab_zycbt006-dtvincul and

gsberf = itab_zycbt006-gsberf and

nrparcf = itab_zycbt006-nrparcf.

* >> Início da inclusão: FORM LANCAMENTO_ESTORNO_ARBITR_3

MOVE-CORRESPONDING itab_zycbt069 TO /pws/zycbt069.

PERFORM carrega_log USING '/PWS/ZYCBT069'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

/pws/zycbt069-nrseqc.

* << Fim da inclusão

endloop.

itab_zycbt005_ant-belnr = itab_zycbt005_ant-belnr_d.

itab_zycbt005_ant-dtbelnr = v_datum.

itab_zycbt005_ant-slpagar = itab_zycbt005_ant-slpagar -

itab_zycbt006-v_vldif.

clear itab_zycbt005-belnr_d.

modify itab_zycbt005_ant transporting belnr dtbelnr slpagar belnr_d

where nrinvoic = itab_zycbt006-nrinvoic

and gsberf = itab_zycbt006-gsberf

and nrparcf = itab_zycbt006-nrparcf.

...

and gsberf = itab_zycbt006-gsberf

and nrparcf = itab_zycbt006-nrparcf.

endif.

if not itab_zycbt005-tpcontr(1) ca 'PS'.

itab_zycbt006-belnr5 = itab_zycbt005-belnr.

endif.

itab_zycbt006-status = 'E'.

else.

itab_zycbt006-status = ' '.

endif.

* >> Início da inclusão: FORM LANCAMENTO_ESTORNO_ARBITR_3

REFRESH itab_zycbt084_aud.

SELECT * FROM /pws/zycbt084

INTO TABLE itab_zycbt084

WHERE nrseqc = itab_zycbt006-nrseqc AND

nrparc = itab_zycbt006-nrparc AND

dtincl = itab_zycbt006-dtincl AND

nrinvoic = itab_zycbt006-nrinvoic AND

nrparcf = itab_zycbt006-nrparcf AND

gsberf = itab_zycbt006-gsberf AND

dtvincul = itab_zycbt006-dtvincul AND

dtvencto = itab_zycbt006-dtvencto AND

dtpagto = itab_zycbt006-dtpagto AND

dtpagext = itab_zycbt006-dtpagext AND

tdesmemb = 'K'.

LOOP AT itab_zycbt084_aud.

PERFORM carrega_log USING '/PWS/ZYCBT084'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt006-nrseqc.

ENDLOOP.

* << Fim da inclusão

delete from /pws/zycbt084

where nrseqc = itab_zycbt006-nrseqc and

nrparc = itab_zycbt006-nrparc and

dtincl = itab_zycbt006-dtincl and

nrinvoic = itab_zycbt006-nrinvoic and

nrparcf = itab_zycbt006-nrparcf and

gsberf = itab_zycbt006-gsberf and

dtvincul = itab_zycbt006-dtvincul and

dtvencto = itab_zycbt006-dtvencto and

dtpagto = itab_zycbt006-dtpagto and

dtpagext = itab_zycbt006-dtpagext and

tdesmemb = 'K'.

* >> Início da inclusão: FORM LANCAMENTO_ESTORNO_ARBITR_3

REFRESH itab_zycbt084_aud.

SELECT * FROM /pws/zycbt084

INTO TABLE itab_zycbt084

WHERE nrseqc = itab_zycbt006-nrseqc AND

nrparc = itab_zycbt006-nrparc AND

dtincl = itab_zycbt006-dtincl AND

nrinvoic = itab_zycbt006-nrinvoic AND

nrparcf = itab_zycbt006-nrparcf AND

gsberf = itab_zycbt006-gsberf AND

dtvincul = itab_zycbt006-dtvincul AND

dtvencto = itab_zycbt006-dtvencto AND

dtpagto = itab_zycbt006-dtpagto AND

dtpagext = itab_zycbt006-dtpagext AND

tdesmemb = 'E'.

LOOP AT itab_zycbt084_aud.

PERFORM carrega_log USING '/PWS/ZYCBT084'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt006-nrseqc.

ENDLOOP.

* << Fim da inclusão

delete from /pws/zycbt084

where nrseqc = itab_zycbt006-nrseqc and

nrparc = itab_zycbt006-nrparc and

dtincl = itab_zycbt006-dtincl and

nrinvoic = itab_zycbt006-nrinvoic and

nrparcf = itab_zycbt006-nrparcf and

gsberf = itab_zycbt006-gsberf and

dtvincul = itab_zycbt006-dtvincul and

dtvencto = itab_zycbt006-dtvencto and

dtpagto = itab_zycbt006-dtpagto and

...

and gsberf = itab_zycbt006-gsberf

and nrparcf = itab_zycbt006-nrparcf.

itab_zycbt069-belnr = itab_zycbt005_ant-belnr_d.

modify itab_zycbt069.

update /pws/zycbt069 set belnr = itab_zycbt069-belnr

where nrseqc = itab_zycbt006-nrseqc and

nrinvoic = itab_zycbt006-nrinvoic and

dtvincul = itab_zycbt006-dtvincul and

gsberf = itab_zycbt006-gsberf and

nrparcf = itab_zycbt006-nrparcf.

* >> Início da inclusão: FORM ESTORNO_PERIODO_FEC_PERF

MOVE-CORRESPONDING itab_zycbt069 TO /pws/zycbt069.

PERFORM carrega_log USING '/PWS/ZYCBT069'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

/pws/zycbt069-nrseqc.

* << Fim da inclusão

endloop.

itab_zycbt005_ant-belnr = itab_zycbt005_ant-belnr_d.

itab_zycbt005_ant-dtbelnr = v_datum.

itab_zycbt005_ant-slpagar = itab_zycbt005_ant-slpagar -

itab_zycbt006-v_vldif.

clear itab_zycbt005-belnr_d.

modify itab_zycbt005_ant transporting belnr dtbelnr slpagar belnr_d

where nrinvoic = itab_zycbt006-nrinvoic

and gsberf = itab_zycbt006-gsberf

and nrparcf = itab_zycbt006-nrparcf.

...

and gsberf = itab_zycbt006-gsberf

and nrparcf = itab_zycbt006-nrparcf.

endif.

if not itab_zycbt005-tpcontr(1) ca 'PS'.

itab_zycbt006-belnr5 = itab_zycbt005-belnr.

endif.

itab_zycbt006-status = 'E'.

else.

itab_zycbt006-status = ' '.

endif.

* >> Início da inclusão: FORM ESTORNO_PERIODO_FEC_PERF

REFRESH itab_zycbt084_aud.

SELECT * FROM /pws/zycbt084

INTO TABLE itab_zycbt084

WHERE nrseqc = itab_zycbt006-nrseqc AND

nrparc = itab_zycbt006-nrparc AND

dtincl = itab_zycbt006-dtincl AND

nrinvoic = itab_zycbt006-nrinvoic AND

nrparcf = itab_zycbt006-nrparcf AND

gsberf = itab_zycbt006-gsberf AND

dtvincul = itab_zycbt006-dtvincul AND

dtvencto = itab_zycbt006-dtvencto AND

dtpagto = itab_zycbt006-dtpagto AND

dtpagext = itab_zycbt006-dtpagext AND

tdesmemb = 'K'.

LOOP AT itab_zycbt084_aud.

PERFORM carrega_log USING '/PWS/ZYCBT084'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt006-nrseqc.

ENDLOOP.

* << Fim da inclusão

delete from /pws/zycbt084

where nrseqc = itab_zycbt006-nrseqc and

nrparc = itab_zycbt006-nrparc and

dtincl = itab_zycbt006-dtincl and

nrinvoic = itab_zycbt006-nrinvoic and

nrparcf = itab_zycbt006-nrparcf and

gsberf = itab_zycbt006-gsberf and

dtvincul = itab_zycbt006-dtvincul and

dtvencto = itab_zycbt006-dtvencto and

dtpagto = itab_zycbt006-dtpagto and

dtpagext = itab_zycbt006-dtpagext and

tdesmemb = 'K'.

* >> Início da inclusão: FORM ESTORNO_PERIODO_FEC_PERF

REFRESH itab_zycbt084_aud.

SELECT * FROM /pws/zycbt084

INTO TABLE itab_zycbt084

WHERE nrseqc = itab_zycbt006-nrseqc AND

nrparc = itab_zycbt006-nrparc AND

dtincl = itab_zycbt006-dtincl AND

nrinvoic = itab_zycbt006-nrinvoic AND

nrparcf = itab_zycbt006-nrparcf AND

gsberf = itab_zycbt006-gsberf AND

dtvincul = itab_zycbt006-dtvincul AND

dtvencto = itab_zycbt006-dtvencto AND

dtpagto = itab_zycbt006-dtpagto AND

dtpagext = itab_zycbt006-dtpagext AND

tdesmemb = 'E'.

LOOP AT itab_zycbt084_aud.

PERFORM carrega_log USING '/PWS/ZYCBT084'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt006-nrseqc.

ENDLOOP.

* << Fim da inclusão

delete from /pws/zycbt084

where nrseqc = itab_zycbt006-nrseqc and

nrparc = itab_zycbt006-nrparc and

dtincl = itab_zycbt006-dtincl and

nrinvoic = itab_zycbt006-nrinvoic and

nrparcf = itab_zycbt006-nrparcf and

gsberf = itab_zycbt006-gsberf and

dtvincul = itab_zycbt006-dtvincul and

dtvencto = itab_zycbt006-dtvencto and

dtpagto = itab_zycbt006-dtpagto and

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCB004F02

...

READ TABLE itab_paridade WITH KEY nrinvoic = itab_zycbt006-nrinvoic

nrparcf = itab_zycbt006-nrparcf

gsberf = itab_zycbt006-gsberf.

IF sy-subrc = 0.

itab_zycbt006-waers_c = itab_paridade-waers_c.

itab_zycbt006-vlme_c = itab_paridade-v_vlme_c.

MODIFY itab_zycbt006.

ENDIF.

ENDLOOP.

MODIFY /pws/zycbt005 FROM TABLE itab_zycbt005.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

LOOP AT itab_zycbt005.

MOVE-CORRESPONDING itab_zycbt005 TO /pws/zycbt005.

PERFORM carrega_log USING '/PWS/ZYCBT005'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

/pws/zycbt005-nrseqc.

ENDLOOP.

* << Fim da inclusão

itab_zycbt005-dtpagext = /pws/zycbe006-dtpagext.

MODIFY itab_zycbt005 TRANSPORTING dtpagext

WHERE nrseqc = /pws/zycbe001-nrseqc.

MODIFY /pws/zycbt074 FROM TABLE itab_zycbt074.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

LOOP AT itab_zycbt074.

MOVE-CORRESPONDING itab_zycbt074 TO /pws/zycbt074.

PERFORM carrega_log USING '/PWS/ZYCBT074'

'U'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt074-nrseqc.

ENDLOOP.

* << Fim da inclusão

MODIFY /pws/zycbt231 FROM TABLE itab_zycbt231.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

LOOP AT itab_zycbt231.

MOVE-CORRESPONDING itab_zycbt231 TO /pws/zycbt231.

PERFORM carrega_log USING '/PWS/ZYCBT231'

'U'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt231-nrseqc.

ENDLOOP.

* << Fim da inclusão

CALL CUSTOMER-FUNCTION '002'

IMPORTING

v_subrc = v_subrc.

LOOP AT itab_zycbt006.

READ TABLE itab_zycbt005 WITH KEY

nrseqc = itab_zycbt006-nrseqc

nrinvoic = itab_zycbt006-nrinvoic

dtvincul = itab_zycbt006-dtvincul

nrparcf = itab_zycbt006-nrparcf

gsberf = itab_zycbt006-gsberf.

...

AND dtpagext = itab_zycbt006-dtpagext

AND dtpagto = itab_zycbt006-dtpagto.

PERFORM monta_log_cfm USING wa_zycbt006_log

'/PWS/ZYCBT006'

'6T'

CHANGING wa_log.

PERFORM grava_log USING '/PWS/ZYCBT006'

wa_log

'E'.

ENDIF.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

MOVE-CORRESPONDING itab_zycbt006 TO /pws/zycbt006.

PERFORM carrega_log USING '/PWS/ZYCBT006'

'D'

sy-tcode

SY-REPID

itab_zycbt006-nrseqc.

* << Fim da inclusão

DELETE FROM /pws/zycbt006 WHERE nrseqc = itab_zycbt006-nrseqc

AND tpdesp = itab_zycbt006-tpdesp

AND nrparc = itab_zycbt006-nrparc

AND dtincl = itab_zycbt006-dtincl

AND nrinvoic = itab_zycbt006-nrinvoic

AND gsberf = itab_zycbt006-gsberf

AND dtvincul = itab_zycbt006-dtvincul

AND dtvencto = itab_zycbt006-dtvencto

AND dtpagto = itab_zycbt006-dtpagto

AND dtpagext = itab_zycbt006-dtpagext

...

v_vlme_sl = v_vlme_sl * -1.

ENDIF.

itab_zycbt006-v_vldif_arb = v_vlme_sl.

ENDIF.

v_slpagar001 = v_slpagar001 + itab_zycbt006-v_vldif_arb.

MODIFY itab_zycbt006.

UPDATE /pws/zycbt005 SET slpagar = slpagar - v_vlme_sl

belnr = itab_zycbt005_ant-belnr

dtbelnr = itab_zycbt005_ant-dtbelnr

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

WHERE nrseqc = itab_zycbt006-nrseqc

AND tpdesp = itab_zycbt006-tpdesp

AND nrparc = itab_zycbt006-nrparc

AND dtincl = itab_zycbt006-dtincl

AND nrinvoic = itab_zycbt006-nrinvoic

AND gsberf = itab_zycbt006-gsberf

AND dtvincul = itab_zycbt006-dtvincul

AND dtvencto = itab_zycbt006-dtvencto

AND nrparcf = itab_zycbt006-nrparcf.

IF sy-subrc EQ 0.

REFRESH itab_zycbt005_aud.

SELECT * FROM /pws/zycbt005

INTO TABLE itab_zycbt005_aud

* << Fim da inclusão

WHERE nrseqc = itab_zycbt006-nrseqc

AND tpdesp = itab_zycbt006-tpdesp

AND nrparc = itab_zycbt006-nrparc

AND dtincl = itab_zycbt006-dtincl

AND nrinvoic = itab_zycbt006-nrinvoic

AND gsberf = itab_zycbt006-gsberf

AND dtvincul = itab_zycbt006-dtvincul

AND dtvencto = itab_zycbt006-dtvencto

AND nrparcf = itab_zycbt006-nrparcf.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

LOOP AT itab_zycbt005_aud.

MOVE-CORRESPONDING itab_zycbt005_aud TO /pws/zycbt005.

PERFORM carrega_log USING '/PWS/ZYCBT005'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

/pws/zycbt005-nrseqc.

ENDLOOP.

ENDIF.

* << Fim da inclusão

IF itab_zycbt005_ant-belnr = /pws/zycbe001-belnr2.

UPDATE /pws/zycbt005 SET belnr = itab_zycbt005_ant-belnr

dtbelnr = itab_zycbt005_ant-dtbelnr

WHERE nrseqc = itab_zycbt006-nrseqc

AND dtvincul = itab_zycbt006-dtvincul.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

IF sy-subrc EQ 0.

REFRESH itab_zycbt005_aud.

SELECT * FROM /pws/zycbt005

INTO TABLE itab_zycbt005_aud

WHERE nrseqc = itab_zycbt006-nrseqc

AND dtvincul = itab_zycbt006-dtvincul.

LOOP AT itab_zycbt005_aud.

MOVE-CORRESPONDING itab_zycbt005_aud TO /pws/zycbt005.

PERFORM carrega_log USING '/PWS/ZYCBT005'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

/pws/zycbt005-nrseqc.

ENDLOOP.

ENDIF.

* << Fim da inclusão

ENDIF.

MOVE itab_zycbt006 TO wa_zycbt006_sbu.

CALL CUSTOMER-FUNCTION '043'

EXPORTING

wa_zycbt006 = wa_zycbt006_sbu.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

REFRESH itab_zycbt084_aud.

SELECT * FROM /pws/zycbt084

INTO TABLE itab_zycbt084_aud

WHERE nrseqc = itab_zycbt006-nrseqc

AND nrinvoic = itab_zycbt006-nrinvoic

AND gsberf = itab_zycbt006-gsberf

AND dtvincul = itab_zycbt006-dtvincul

AND dtpagto = itab_zycbt006-dtpagto

AND dtpagext = itab_zycbt006-dtpagext

AND nrparcf = itab_zycbt006-nrparcf.

LOOP AT itab_zycbt084_aud.

MOVE-CORRESPONDING itab_zycbt084_aud TO /pws/zycbt084.

PERFORM carrega_log USING '/PWS/ZYCBT084'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt006-nrseqc.

ENDLOOP.

* << Fim da inclusão

DELETE FROM /pws/zycbt084 WHERE nrseqc = itab_zycbt006-nrseqc

AND nrinvoic = itab_zycbt006-nrinvoic

AND gsberf = itab_zycbt006-gsberf

AND dtvincul = itab_zycbt006-dtvincul

AND dtpagto = itab_zycbt006-dtpagto

AND dtpagext = itab_zycbt006-dtpagext

AND nrparcf = itab_zycbt006-nrparcf.

SELECT SINGLE vljur FROM /pws/zycbt005

INTO v_vljur_aux

WHERE nrseqc = itab_zycbt006-nrseqc

AND tpdesp = itab_zycbt006-tpdesp

AND nrparc = itab_zycbt006-nrparc

AND nrinvoic = itab_zycbt006-nrinvoic

AND gsberf = itab_zycbt006-gsberf

AND dtvincul = itab_zycbt006-dtvincul

AND dtvencto = itab_zycbt006-dtvencto

AND nrparcf = itab_zycbt006-nrparcf.

IF v_subrc IS INITIAL.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

REFRESH itab_zycbt004_aud.

SELECT * FROM /pws/zycbt004

INTO TABLE itab_zycbt004_aud

WHERE nrseqc = itab_zycbt006-nrseqc

AND tpdesp = 'J'

AND nrparc = itab_zycbt006-nrparc

AND dtincl = itab_zycbt006-dtvincul

AND nrinvoic = itab_zycbt006-nrinvoic

AND dtliquid = v_dtpagto

AND dtpagext = itab_zycbt006-dtpagext

AND ( dtpagto = '00000000' OR

dtpagto = ' ' OR

dtpagto = space ).

LOOP AT itab_zycbt004_aud.

MOVE-CORRESPONDING itab_zycbt004_aud TO /pws/zycbt004.

PERFORM carrega_log USING '/PWS/ZYCBT004'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt006-nrseqc.

ENDLOOP.

* << Fim da inclusão

DELETE FROM /pws/zycbt004 WHERE nrseqc = itab_zycbt006-nrseqc

AND tpdesp = 'J'

AND nrparc = itab_zycbt006-nrparc

AND dtincl = itab_zycbt006-dtvincul

AND nrinvoic = itab_zycbt006-nrinvoic

AND dtliquid = v_dtpagto

AND dtpagext = itab_zycbt006-dtpagext

AND ( dtpagto = '00000000' OR

dtpagto = ' ' OR

dtpagto = space ).

ENDIF.

ELSE.

IF itab_zycbt006-v_status = 'N'.

v_slpagar = itab_zycbt005-slpagar +

( itab_zycbt006-v_vldif * itab_zycbt005-parid ).

READ TABLE /pws/zycbt005.

UPDATE /pws/zycbt005 SET slpagar = v_slpagar

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

WHERE nrseqc = itab_zycbt006-nrseqc

AND nrinvoic = itab_zycbt006-nrinvoic

AND dtvincul = itab_zycbt006-dtvincul

AND nrparcf = itab_zycbt006-nrparcf

AND gsberf = itab_zycbt006-gsberf.

IF sy-subrc EQ 0.

REFRESH itab_zycbt005_aud.

SELECT * FROM /pws/zycbt005

INTO TABLE itab_zycbt005_aud

* << Fim da inclusão

WHERE nrseqc = itab_zycbt006-nrseqc

AND nrinvoic = itab_zycbt006-nrinvoic

AND dtvincul = itab_zycbt006-dtvincul

AND nrparcf = itab_zycbt006-nrparcf

AND gsberf = itab_zycbt006-gsberf.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

LOOP AT itab_zycbt005_aud.

MOVE-CORRESPONDING itab_zycbt005_aud TO /pws/zycbt005.

PERFORM carrega_log USING '/PWS/ZYCBT005'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

/pws/zycbt005-nrseqc.

ENDLOOP.

ENDIF.

* << Fim da inclusão

itab_zycbt005-slpagar = v_slpagar.

MODIFY itab_zycbt005 TRANSPORTING slpagar

WHERE nrseqc = itab_zycbt006-nrseqc

AND nrparc = itab_zycbt006-nrparc

AND dtincl = itab_zycbt006-dtincl

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparcf = itab_zycbt006-nrparcf

AND gsberf = itab_zycbt006-gsberf

AND dtvincul = itab_zycbt006-dtvincul

AND dtvencto = itab_zycbt006-dtvencto.

...

AND tpdesp = itab_zycbt006-tpdesp

AND nrparc = itab_zycbt006-nrparc

AND dtincl = itab_zycbt006-dtincl

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparcf = itab_zycbt006-nrparcf

AND gsberf = itab_zycbt006-gsberf

AND dtvincul = itab_zycbt006-dtvincul

AND dtvencto = itab_zycbt006-dtvencto

AND dtpagext = itab_zycbt006-dtpagext

AND dtpagto = itab_zycbt006-dtpagto.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

IF sy-subrc EQ 0.

MOVE-CORRESPONDING itab_zycbt006 TO /pws/zycbt006.

PERFORM carrega_log USING '/PWS/ZYCBT006'

'X'

sy-tcode

SY-REPID

/pws/zycbt006-nrseqc.

ENDIF.

* << Fim da inclusão

UPDATE /pws/zycbt006 SET deduz_juros = itab_zycbt006-deduz_juros

WHERE nrseqc = itab_zycbt006-nrseqc

AND tpdesp = itab_zycbt006-tpdesp

AND nrparc = itab_zycbt006-nrparc

AND dtincl = itab_zycbt006-dtincl

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparcf = itab_zycbt006-nrparcf

AND gsberf = itab_zycbt006-gsberf

AND dtvincul = itab_zycbt006-dtvincul

AND dtvencto = itab_zycbt006-dtvencto

AND dtpagext = itab_zycbt006-dtpagext

AND dtpagto = itab_zycbt006-dtpagto.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

MOVE-CORRESPONDING itab_zycbt006 TO /pws/zycbt006.

PERFORM carrega_log USING '/PWS/ZYCBT006'

'U'

sy-tcode

SY-REPID

/pws/zycbt006-nrseqc.

* << Fim da inclusão

IF v_subrc IS INITIAL.

IF NOT itab_zycbt006-vljur IS INITIAL

AND ( /pws/zycbe001-tpcontr(1) NE 'P' AND

/pws/zycbe001-tpcontr(1) NE 'S' ).

PERFORM atualiza_zycbt004.

IF v_sy_subrc <> 0.

UPDATE /pws/zycbt004 SET: vlme = itab_zycbt006-vljur

slvinc = itab_zycbt006-vljur

fcalcjur = 'X'

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

WHERE nrseqc = itab_zycbt006-nrseqc

AND tpdesp = 'J'

AND nrinvoic = itab_zycbt006-nrinvoic

AND dtincl = itab_zycbt006-dtvincul

AND dtpagext = v_dtpagext

AND dtliquid = v_dtpagto

AND nrparc = itab_zycbt006-nrparc

AND ( dtpagto = '00000000' OR

dtpagto = ' ' OR

dtpagto = space ).

IF sy-subrc EQ 0.

REFRESH itab_zycbt004_aud.

SELECT * FROM /pws/zycbt004

INTO TABLE itab_zycbt004_aud

* << Fim da inclusão

WHERE nrseqc = itab_zycbt006-nrseqc

AND tpdesp = 'J'

AND nrinvoic = itab_zycbt006-nrinvoic

AND dtincl = itab_zycbt006-dtvincul

AND dtpagext = v_dtpagext

AND dtliquid = v_dtpagto

AND nrparc = itab_zycbt006-nrparc

AND ( dtpagto = '00000000' OR

dtpagto = ' ' OR

dtpagto = space ).

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

LOOP AT itab_zycbt004_aud.

MOVE-CORRESPONDING itab_zycbt004_aud TO /pws/zycbt004.

PERFORM carrega_log USING '/PWS/ZYCBT004'

'U'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt004-nrseqc.

ENDLOOP.

* << Fim da inclusão

ENDIF.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

ENDIF.

* << Fim da inclusão

ELSE.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

REFRESH itab_zycbt004_aud.

SELECT * FROM /pws/zycbt004

INTO TABLE itab_zycbt004_aud

WHERE nrseqc = itab_zycbt006-nrseqc

AND tpdesp = 'J'

AND nrinvoic = itab_zycbt006-nrinvoic

AND dtincl = itab_zycbt006-dtvincul

AND tpjuros = itab_zycbt006-tpjuros

AND dtpagext = v_dtpagext

AND dtliquid = v_dtpagto

AND nrparc = itab_zycbt006-nrparc

AND ( dtpagto = '00000000' OR

dtpagto = ' ' OR

dtpagto = space ).

LOOP AT itab_zycbt004_aud.

MOVE-CORRESPONDING itab_zycbt004_aud TO /pws/zycbt004.

PERFORM carrega_log USING '/PWS/ZYCBT004'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt006-nrseqc.

ENDLOOP.

* << Fim da inclusão

DELETE FROM /pws/zycbt004 WHERE

nrseqc = itab_zycbt006-nrseqc

AND tpdesp = 'J'

AND nrinvoic = itab_zycbt006-nrinvoic

AND dtincl = itab_zycbt006-dtvincul

AND tpjuros = itab_zycbt006-tpjuros

AND dtpagext = v_dtpagext

AND dtliquid = v_dtpagto

AND nrparc = itab_zycbt006-nrparc

AND ( dtpagto = '00000000' OR

dtpagto = ' ' OR

dtpagto = space ).

IF sy-subrc NE 0.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

REFRESH itab_zycbt004_aud.

SELECT * FROM /pws/zycbt004

INTO TABLE itab_zycbt004_aud

WHERE nrseqc = itab_zycbt006-nrseqc

AND tpdesp = 'J'

AND nrinvoic = itab_zycbt006-nrinvoic

AND dtincl = itab_zycbt006-dtvincul

AND tpjuros = itab_zycbt006-tpjuros

AND nrparc = itab_zycbt006-nrparc

AND dtpagext = itab_zycbt006-dtpagext

AND ( dtpagto = '00000000' OR

dtpagto = ' ' OR

dtpagto = space )

AND ( dtliquid = '00000000' OR

dtliquid = ' ' OR

dtliquid = space ).

LOOP AT itab_zycbt004_aud.

MOVE-CORRESPONDING itab_zycbt004_aud TO /pws/zycbt004.

PERFORM carrega_log USING '/PWS/ZYCBT004'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt006-nrseqc.

ENDLOOP.

* << Fim da inclusão

DELETE FROM /pws/zycbt004 WHERE

nrseqc = itab_zycbt006-nrseqc

AND tpdesp = 'J'

AND nrinvoic = itab_zycbt006-nrinvoic

AND dtincl = itab_zycbt006-dtvincul

AND tpjuros = itab_zycbt006-tpjuros

AND nrparc = itab_zycbt006-nrparc

AND dtpagext = itab_zycbt006-dtpagext

AND ( dtpagto = '00000000' OR

dtpagto = ' ' OR

...

AND nrparc = /pws/zycbt006-nrparc

AND dtincl = /pws/zycbt006-dtincl

AND nrinvoic = /pws/zycbt006-nrinvoic

AND gsberf = /pws/zycbt006-gsberf

AND dtvincul = /pws/zycbt006-dtvincul

AND dtvencto = /pws/zycbt006-dtvencto

AND dtpagext = /pws/zycbt006-dtpagext

AND dtpagto = /pws/zycbt006-dtpagto.

ENDIF.

MODIFY /pws/zycbt006.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

PERFORM carrega_log USING '/PWS/ZYCBT006'

'U'

sy-tcode

SY-REPID

/pws/zycbt006-nrseqc.

* << Fim da inclusão

IF sy-subrc EQ 0.

READ TABLE itab_zyglt100 WITH KEY zexit = 'LIQ017'.

IF sy-subrc EQ 0.

IF NOT itab_zyglt100-zexit_ativa IS INITIAL.

PERFORM (itab_zyglt100-formulario)

IN PROGRAM (itab_zyglt100-programa).

ENDIF.

IF wa_zycbt007-cfm = 'X'.

...

ELSE.

PERFORM grava_log USING '/PWS/ZYCBT006'

wa_log

'A'.

ENDIF.

IF itab_zycbt006-v_status NE 'N'.

IF NOT itab_zycbt006-belnr_d IS INITIAL.

IF itab_zycbt005-dtbelnr > itab_zycbt006-dtpagto.

UPDATE /pws/zycbt005 SET belnr = itab_zycbt006-belnr_d

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

WHERE nrseqc = itab_zycbt006-nrseqc

AND dtvincul = itab_zycbt006-dtvincul

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparcf = itab_zycbt006-nrparcf

AND gsberf = itab_zycbt006-gsberf.

IF sy-subrc EQ 0.

REFRESH itab_zycbt005_aud.

SELECT * FROM /pws/zycbt005

INTO TABLE itab_zycbt005_aud

* << Fim da inclusão

WHERE nrseqc = itab_zycbt006-nrseqc

AND dtvincul = itab_zycbt006-dtvincul

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparcf = itab_zycbt006-nrparcf

AND gsberf = itab_zycbt006-gsberf.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

LOOP AT itab_zycbt005_aud.

MOVE-CORRESPONDING itab_zycbt005_aud TO /pws/zycbt005.

PERFORM carrega_log USING '/PWS/ZYCBT005'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

/pws/zycbt005-nrseqc.

ENDLOOP.

ENDIF.

* << Fim da inclusão

IF itab_zycbt006-belnr_d = /pws/zycbe001-belnr2.

UPDATE /pws/zycbt005 SET belnr = itab_zycbt006-belnr_d

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

WHERE nrseqc = itab_zycbt006-nrseqc

AND dtvincul = itab_zycbt006-dtvincul.

IF sy-subrc EQ 0.

REFRESH itab_zycbt005_aud.

SELECT * FROM /pws/zycbt005

INTO TABLE itab_zycbt005_aud

* << Fim da inclusão

WHERE nrseqc = itab_zycbt006-nrseqc

AND dtvincul = itab_zycbt006-dtvincul.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

LOOP AT itab_zycbt005_aud.

MOVE-CORRESPONDING itab_zycbt005_aud TO /pws/zycbt005.

PERFORM carrega_log USING '/PWS/ZYCBT005'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

/pws/zycbt005-nrseqc.

ENDLOOP.

* << Fim da inclusão

ENDIF.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

ENDIF.

* << Fim da inclusão

ELSE.

IF itab_zycbt006-belnr_d NE itab_zycbt005-belnr.

UPDATE /pws/zycbt005 SET belnr = itab_zycbt006-belnr_d

dtbelnr = itab_zycbt006-dtpagto

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

WHERE nrseqc = itab_zycbt006-nrseqc

AND dtvincul = itab_zycbt006-dtvincul

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparcf = itab_zycbt006-nrparcf

AND gsberf = itab_zycbt006-gsberf.

IF sy-subrc EQ 0.

REFRESH itab_zycbt005_aud.

SELECT * FROM /pws/zycbt005

INTO TABLE itab_zycbt005_aud

* << Fim da inclusão

WHERE nrseqc = itab_zycbt006-nrseqc

AND dtvincul = itab_zycbt006-dtvincul

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparcf = itab_zycbt006-nrparcf

AND gsberf = itab_zycbt006-gsberf.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

LOOP AT itab_zycbt005_aud.

MOVE-CORRESPONDING itab_zycbt005_aud TO /pws/zycbt005.

PERFORM carrega_log USING '/PWS/ZYCBT005'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

/pws/zycbt005-nrseqc.

ENDLOOP.

* << Fim da inclusão

ENDIF.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

ENDIF.

* << Fim da inclusão

IF itab_zycbt006-belnr_d = /pws/zycbe001-belnr2.

UPDATE /pws/zycbt005 SET belnr = itab_zycbt006-belnr_d

dtbelnr = itab_zycbt006-dtpagto

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

WHERE nrseqc = itab_zycbt006-nrseqc

AND dtvincul = itab_zycbt006-dtvincul.

IF sy-subrc EQ 0.

REFRESH itab_zycbt005_aud.

SELECT * FROM /pws/zycbt005

INTO TABLE itab_zycbt005_aud

* << Fim da inclusão

WHERE nrseqc = itab_zycbt006-nrseqc

AND dtvincul = itab_zycbt006-dtvincul.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

LOOP AT itab_zycbt005_aud.

MOVE-CORRESPONDING itab_zycbt005_aud TO /pws/zycbt005.

PERFORM carrega_log USING '/PWS/ZYCBT005'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

/pws/zycbt005-nrseqc.

ENDLOOP.

ENDIF.

* << Fim da inclusão

ENDIF.

ELSE.

IF v_liquida EQ 'X'.

IF itab_zycbt006-status = 'C'.

v_slpagar = itab_zycbt005-slpagar + ( itab_zycbt006-vlme *

itab_zycbt005-parid ).

ENDIF.

READ TABLE /pws/zycbt005.

UPDATE /pws/zycbt005 SET slpagar = v_slpagar

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

WHERE nrseqc = itab_zycbt006-nrseqc

AND nrinvoic = itab_zycbt006-nrinvoic

AND dtvincul = itab_zycbt006-dtvincul

AND nrparcf = itab_zycbt006-nrparcf

AND gsberf = itab_zycbt006-gsberf.

IF sy-subrc EQ 0.

REFRESH itab_zycbt005_aud.

SELECT * FROM /pws/zycbt005

INTO TABLE itab_zycbt005_aud

* << Fim da inclusão

WHERE nrseqc = itab_zycbt006-nrseqc

AND nrinvoic = itab_zycbt006-nrinvoic

AND dtvincul = itab_zycbt006-dtvincul

AND nrparcf = itab_zycbt006-nrparcf

AND gsberf = itab_zycbt006-gsberf.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

LOOP AT itab_zycbt005_aud.

MOVE-CORRESPONDING itab_zycbt005_aud TO /pws/zycbt005.

PERFORM carrega_log USING '/PWS/ZYCBT005'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

/pws/zycbt005-nrseqc.

ENDLOOP.

ENDIF.

* << Fim da inclusão

itab_zycbt005-slpagar = v_slpagar.

MODIFY itab_zycbt005 TRANSPORTING slpagar

WHERE nrseqc = itab_zycbt006-nrseqc

AND nrparc = itab_zycbt006-nrparc

AND dtincl = itab_zycbt006-dtincl

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparcf = itab_zycbt006-nrparcf

AND gsberf = itab_zycbt006-gsberf

AND dtvincul = itab_zycbt006-dtvincul

AND dtvencto = itab_zycbt006-dtvencto.

ENDIF.

LOOP AT itab_zycbt069 WHERE nrseqc = itab_zycbt006-nrseqc

AND nrinvoic = itab_zycbt006-nrinvoic

AND dtvincul = itab_zycbt006-dtvincul

AND gsberf = itab_zycbt006-gsberf

AND nrparcf = itab_zycbt006-nrparcf.

MOVE-CORRESPONDING itab_zycbt069 TO /pws/zycbt069.

MODIFY /pws/zycbt069.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

PERFORM carrega_log USING '/PWS/ZYCBT069'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

/pws/zycbt069-nrseqc.

* << Fim da inclusão

ENDLOOP.

IF v_subrc IS INITIAL.

IF NOT itab_zycbt006-vljur IS INITIAL

AND ( /pws/zycbe001-tpcontr(1) NE 'P' AND

/pws/zycbe001-tpcontr(1) NE 'S' ).

PERFORM atualiza_zycbt004.

IF v_sy_subrc <> 0.

UPDATE /pws/zycbt004 SET: vlme = itab_zycbt006-vljur

slvinc = itab_zycbt006-vljur

fcalcjur = 'X'

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

WHERE nrseqc = itab_zycbt006-nrseqc

AND tpdesp = 'J'

AND nrinvoic = itab_zycbt006-nrinvoic

AND dtincl = itab_zycbt006-dtvincul

AND dtliquid = v_dtpagto

AND dtpagext = v_dtpagext

AND nrparc = itab_zycbt006-nrparc

AND ( dtpagto = '00000000' OR

dtpagto = ' ' OR

dtpagto = space ).

IF sy-subrc EQ 0.

REFRESH itab_zycbt004_aud.

SELECT * FROM /pws/zycbt004

INTO TABLE itab_zycbt004_aud

* << Fim da inclusão

WHERE nrseqc = itab_zycbt006-nrseqc

AND tpdesp = 'J'

AND nrinvoic = itab_zycbt006-nrinvoic

AND dtincl = itab_zycbt006-dtvincul

AND dtliquid = v_dtpagto

AND dtpagext = v_dtpagext

AND nrparc = itab_zycbt006-nrparc

AND ( dtpagto = '00000000' OR

dtpagto = ' ' OR

dtpagto = space ).

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

LOOP AT itab_zycbt004_aud.

MOVE-CORRESPONDING itab_zycbt004_aud TO /pws/zycbt004.

PERFORM carrega_log USING '/PWS/ZYCBT004'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt004-nrseqc.

ENDLOOP.

ENDIF.

* << Fim da inclusão

ENDIF.

ELSE.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

REFRESH itab_zycbt004_aud.

SELECT * FROM /pws/zycbt004

INTO TABLE itab_zycbt004_aud

WHERE nrseqc = itab_zycbt006-nrseqc

AND tpdesp = 'J'

AND nrinvoic = itab_zycbt006-nrinvoic

AND dtincl = itab_zycbt006-dtvincul

AND tpjuros = itab_zycbt006-tpjuros

AND dtliquid = v_dtpagto

AND dtpagext = v_dtpagext

AND nrparc = itab_zycbt006-nrparc

AND ( dtpagto = '00000000' OR

dtpagto = ' ' OR

dtpagto = space ).

LOOP AT itab_zycbt004_aud.

MOVE-CORRESPONDING itab_zycbt004_aud TO /pws/zycbt004.

PERFORM carrega_log USING '/PWS/ZYCBT004'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt006-nrseqc.

ENDLOOP.

* << Fim da inclusão

DELETE FROM /pws/zycbt004 WHERE

nrseqc = itab_zycbt006-nrseqc

AND tpdesp = 'J'

AND nrinvoic = itab_zycbt006-nrinvoic

AND dtincl = itab_zycbt006-dtvincul

AND tpjuros = itab_zycbt006-tpjuros

AND dtliquid = v_dtpagto

AND dtpagext = v_dtpagext

AND nrparc = itab_zycbt006-nrparc

AND ( dtpagto = '00000000' OR

dtpagto = ' ' OR

dtpagto = space ).

IF sy-subrc NE 0.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

REFRESH itab_zycbt004_aud.

SELECT * FROM /pws/zycbt004

INTO TABLE itab_zycbt004_aud

WHERE nrseqc = itab_zycbt006-nrseqc

AND tpdesp = 'J'

AND nrinvoic = itab_zycbt006-nrinvoic

AND dtincl = itab_zycbt006-dtvincul

AND tpjuros = itab_zycbt006-tpjuros

AND nrparc = itab_zycbt006-nrparc

AND dtpagext = v_dtpagext

AND ( dtpagto = '00000000' OR

dtpagto = ' ' OR

dtpagto = space )

AND ( dtliquid = '00000000' OR

dtliquid = ' ' OR

dtliquid = space ).

LOOP AT itab_zycbt004_aud.

MOVE-CORRESPONDING itab_zycbt004_aud TO /pws/zycbt004.

PERFORM carrega_log USING '/PWS/ZYCBT004'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt006-nrseqc.

ENDLOOP.

* << Fim da inclusão

DELETE FROM /pws/zycbt004 WHERE

nrseqc = itab_zycbt006-nrseqc

AND tpdesp = 'J'

AND nrinvoic = itab_zycbt006-nrinvoic

AND dtincl = itab_zycbt006-dtvincul

AND tpjuros = itab_zycbt006-tpjuros

AND nrparc = itab_zycbt006-nrparc

AND dtpagext = v_dtpagext

AND ( dtpagto = '00000000' OR

dtpagto = ' ' OR

...

ENDIF.

IF itab_zycbt006-v_vldif < 0.

itab_zycbt006-v_vldif_arb = itab_zycbt006-v_vldif_arb * -1.

ENDIF.

v_slpagar001 = v_slpagar001 +

itab_zycbt006-v_vldif_arb.

v_slpagar = itab_zycbt005-slpagar - itab_zycbt006-v_vldif_arb.

UPDATE /pws/zycbt005 SET slpagar = v_slpagar

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

WHERE nrseqc = itab_zycbt006-nrseqc

AND nrinvoic = itab_zycbt006-nrinvoic

AND dtvincul = itab_zycbt006-dtvincul

AND nrparcf = itab_zycbt006-nrparcf

AND gsberf = itab_zycbt006-gsberf.

IF sy-subrc EQ 0.

REFRESH itab_zycbt005_aud.

SELECT * FROM /pws/zycbt005

INTO TABLE itab_zycbt005_aud

* << Fim da inclusão

WHERE nrseqc = itab_zycbt006-nrseqc

AND nrinvoic = itab_zycbt006-nrinvoic

AND dtvincul = itab_zycbt006-dtvincul

AND nrparcf = itab_zycbt006-nrparcf

AND gsberf = itab_zycbt006-gsberf.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

LOOP AT itab_zycbt005_aud.

MOVE-CORRESPONDING itab_zycbt005_aud TO /pws/zycbt005.

PERFORM carrega_log USING '/PWS/ZYCBT005'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

/pws/zycbt005-nrseqc.

ENDLOOP.

ENDIF.

* << Fim da inclusão

itab_zycbt005-slpagar = v_slpagar.

MODIFY itab_zycbt005 TRANSPORTING slpagar

WHERE nrseqc = itab_zycbt006-nrseqc

AND nrparc = itab_zycbt006-nrparc

AND dtincl = itab_zycbt006-dtincl

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparcf = itab_zycbt006-nrparcf

AND gsberf = itab_zycbt006-gsberf

AND dtvincul = itab_zycbt006-dtvincul

AND dtvencto = itab_zycbt006-dtvencto.

ENDIF.

MODIFY itab_zycbt006.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

PERFORM carrega_log USING '/PWS/ZYCBT006'

'U'

sy-tcode

SY-REPID

/pws/zycbt006-nrseqc.

* << Fim da inclusão

CLEAR itab_recurso_aux.

READ TABLE itab_recurso_aux

WITH KEY nrinvoic = itab_zycbt006-nrinvoic

gsberf = itab_zycbt006-gsberf

nrparcf = itab_zycbt006-nrparcf.

IF itab_recurso_aux-descorigem EQ c_liq_vme.

MOVE 'X' TO /pws/zycbt006-tpfatura_or.

MODIFY /pws/zycbt006.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

PERFORM carrega_log USING '/PWS/ZYCBT006'

'U'

sy-tcode

SY-REPID

/pws/zycbt006-nrseqc.

* << Fim da inclusão

ELSEIF itab_recurso_aux-descorigem EQ c_liq_and.

MOVE 'X' TO /pws/zycbt006-tpfatura_or.

MODIFY /pws/zycbt006.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

PERFORM carrega_log USING '/PWS/ZYCBT006'

'U'

sy-tcode

SY-REPID

/pws/zycbt006-nrseqc.

* << Fim da inclusão

ELSEIF itab_recurso_aux-descorigem EQ c_liq_cliente.

MOVE 'X' TO /pws/zycbt006-tpfatura_or.

MODIFY /pws/zycbt006.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

PERFORM carrega_log USING '/PWS/ZYCBT006'

'U'

sy-tcode

SY-REPID

/pws/zycbt006-nrseqc.

* << Fim da inclusão

ENDIF.

ENDLOOP.

IF v_vinculacao IS INITIAL.

UPDATE /pws/zycbt001

SET slpagar = slpagar - v_slpagar001

WHERE nrseqc EQ itab_zycbt006-nrseqc.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

MOVE itab_zycbt006-nrseqc TO /pws/zycbt001-nrseqc.

PERFORM carrega_log USING '/PWS/ZYCBT001'

'U'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt001-nrseqc.

* << Fim da inclusão

ENDIF.

IF /pws/zycbt017-parvw NE 'CG' OR

/pws/zycbt017-parvw NE 'AD' OR

/pws/zycbt017-parvw NE 'DA'.

MODIFY /pws/zycbt030 FROM TABLE itab_zycbt030.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

REFRESH itab_zycbt030_aud.

SELECT * FROM /pws/zycbt030

INTO TABLE itab_zycbt030_aud

FOR ALL ENTRIES IN itab_zycbt030

WHERE nrinvoic = itab_zycbt030-nrinvoic

AND nrparcf = itab_zycbt030-nrparcf

AND gsberf = itab_zycbt030-gsberf.

LOOP AT itab_zycbt030_aud.

MOVE-CORRESPONDING itab_zycbt030_aud TO /pws/zycbt030.

CLEAR v_identificador.

CONCATENATE /pws/zycbt030-nrinvoic /pws/zycbt030-nrparcf

/pws/zycbt030-gsberf INTO v_identificador.

PERFORM carrega_log USING '/PWS/ZYCBT030'

'U'

sy-tcode

'/PWS/SAPMZYCB005'

v_identificador.

ENDLOOP.

* << Fim da inclusão

ENDIF.

MODIFY /pws/zycbt209 FROM TABLE itab_zycbt209.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

LOOP AT itab_zycbt209.

MOVE-CORRESPONDING itab_zycbt209 TO /pws/zycbt209.

CLEAR v_identificador.

CONCATENATE /pws/zycbt209-nrinvoic /pws/zycbt209-nrparcf

/pws/zycbt209-gsberf INTO v_identificador.

PERFORM carrega_log USING '/PWS/ZYCBT209'

'U'

sy-tcode

'/PWS/SAPMZYCB031'

v_identificador.

ENDLOOP.

* << Fim da inclusão

MODIFY /pws/zycbt219 FROM TABLE itab_zycbt219.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

LOOP AT itab_zycbt219.

MOVE-CORRESPONDING itab_zycbt219 TO /pws/zycbt219.

CLEAR v_identificador.

CONCATENATE /pws/zycbt219-nrinvoic /pws/zycbt219-nrparcf

/pws/zycbt219-gsberf INTO v_identificador.

PERFORM carrega_log USING '/PWS/ZYCBT219'

'U'

sy-tcode

'/PWS/SAPMZYCB033'

v_identificador.

ENDLOOP.

* << Fim da inclusão

IF /pws/zycbe001-tpcontr(1) CA 'CE'

OR ( /pws/zycbe001-tpcontr(1) EQ 'D' AND

/pws/zycbt089-f_cont_vinc EQ 'F' ).

UPDATE /pws/zycbt001 SET: belnr2 = /pws/zycbe001-belnr2

dtvincul = /pws/zycbe001-dtvincul

WHERE nrseqc = /pws/zycbe001-nrseqc.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

MOVE-CORRESPONDING /pws/zycbe001 TO /pws/zycbt001.

PERFORM carrega_log USING '/PWS/ZYCBT001'

'U'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt005-nrseqc.

* << Fim da inclusão

IF /pws/zycbe001-tpcontr(1) CA 'CE'.

UPDATE /pws/zycbt005 SET: belnr = /pws/zycbe001-belnr2

WHERE nrseqc = /pws/zycbe001-nrseqc.

* >> Início da inclusão: FORM ATUALIZA_TABELAS_TRANSP2

REFRESH itab_zycbt005_aud.

SELECT * FROM /pws/zycbt005

INTO TABLE itab_zycbt005_aud

WHERE nrseqc = /pws/zycbe001-nrseqc.

LOOP AT itab_zycbt005_aud.

MOVE-CORRESPONDING itab_zycbt005_aud TO /pws/zycbt005.

PERFORM carrega_log USING '/PWS/ZYCBT005'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

/pws/zycbt005-nrseqc.

ENDLOOP.

* << Fim da inclusão

ENDIF.

CLEAR itab_zycbt005_ant.

REFRESH: itab_zycbt005_ant, itab_zycbt006_pre.

MOVE itab_zycbt005[] TO itab_zycbt005_ant[].

CLEAR v_exec_arb.

IF v_vinculacao IS INITIAL.

COMMIT WORK.

PERFORM carga_valor_contrato.

ENDIF.

...

/pws/zycbt084-dtpagto = itab_zycbt006-dtpagto.

/pws/zycbt084-dtpagext = itab_zycbt006-dtpagext.

/pws/zycbt084-vbeln = itab_zycbt030-vbeln.

/pws/zycbt084-belnr = itab_zycbt032-belnr.

/pws/zycbt084-liq_and = space.

/pws/zycbt084-tdesmemb = 'K'.

IF NOT v_tot_cliente IS INITIAL.

/pws/zycbt084-cont_desmemb = 'X'.

ENDIF.

MODIFY /pws/zycbt084 FROM /pws/zycbt084.

* >> Início da inclusão: FORM DESMEMBRA_CLIENTE

PERFORM carrega_log USING '/PWS/ZYCBT084'

'U'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt084-nrseqc.

* << Fim da inclusão

ELSE.

LOOP AT itab_zycbt032 WHERE tcode = 'F-30'

AND tabela = 'ZYCBT006'

AND cpochv = v_cpochv.

itab_erro-vbeln = itab_zycbt030-vbeln.

itab_erro-msg = itab_zycbt032-msg.

APPEND itab_erro.

ENDLOOP.

v_subrc = 4.

ENDIF.

...

/pws/zycbt084-dtpagto = itab_zycbt006-dtpagto.

/pws/zycbt084-dtpagext = itab_zycbt006-dtpagext.

/pws/zycbt084-vbeln = itab_zycbt030-vbeln.

/pws/zycbt084-belnr = itab_zycbt032-belnr.

/pws/zycbt084-liq_and = space.

/pws/zycbt084-tdesmemb = 'E'.

IF NOT v_tot_contrato IS INITIAL.

/pws/zycbt084-cont_desmemb = 'X'.

ENDIF.

MODIFY /pws/zycbt084 FROM /pws/zycbt084.

* >> Início da inclusão: FORM DESMEMBRA_ACE

PERFORM carrega_log USING '/PWS/ZYCBT084'

'U'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt084-nrseqc.

* << Fim da inclusão

ELSE.

LOOP AT itab_zycbt032 WHERE tcode = 'F-30'

AND tabela = 'ZYCBT006'

AND cpochv = itab_zycbe033-cpochv.

itab_erro-vbeln = itab_zycbt006-belnr5.

itab_erro-msg = itab_zycbt032-msg.

APPEND itab_erro.

ENDLOOP.

v_subrc = 4.

ENDIF.

...

AND gsberf = itab_zycbt006-gsberf

AND nrparcf = itab_zycbt006-nrparcf.

itab_zycbt069-belnr = v_belnr.

MODIFY itab_zycbt069.

UPDATE /pws/zycbt069 SET belnr = itab_zycbt069-belnr

WHERE nrseqc = itab_zycbt006-nrseqc AND

nrinvoic = itab_zycbt006-nrinvoic AND

dtvincul = itab_zycbt006-dtvincul AND

gsberf = itab_zycbt006-gsberf AND

nrparcf = itab_zycbt006-nrparcf.

* >> Início da inclusão: FORM ESTORNO_PERIODO_ABERTO

MOVE-CORRESPONDING itab_zycbt069 TO /pws/zycbt069.

PERFORM carrega_log USING '/PWS/ZYCBT069'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

/pws/zycbt069-nrseqc.

* << Fim da inclusão

ENDLOOP.

IF /pws/zycbt084-cont_desmemb IS INITIAL.

itab_zycbt005_ant-belnr = v_belnr.

itab_zycbt005_ant-dtbelnr = itab_zycbt006-dtpagto.

ENDIF.

itab_zycbt005_ant-slpagar = itab_zycbt005_ant-slpagar -

itab_zycbt006-v_vldif.

MODIFY itab_zycbt005_ant TRANSPORTING belnr dtbelnr slpagar

WHERE nrinvoic = itab_zycbt006-nrinvoic

AND gsberf = itab_zycbt006-gsberf

AND nrparcf = itab_zycbt006-nrparcf.

MODIFY /pws/zycbt219 FROM TABLE itab_zycbt219.

* >> Início da inclusão: FORM ESTORNO_PERIODO_ABERTO

LOOP AT itab_zycbt219.

MOVE-CORRESPONDING itab_zycbt219 TO /pws/zycbt219.

CLEAR v_identificador.

CONCATENATE /pws/zycbt219-nrinvoic /pws/zycbt219-nrparcf

/pws/zycbt219-gsberf INTO v_identificador.

PERFORM carrega_log USING '/PWS/ZYCBT219'

'U'

sy-tcode

'/PWS/SAPMZYCB033'

v_identificador.

ENDLOOP.

* << Fim da inclusão

IF v_vinculacao IS INITIAL.

COMMIT WORK.

ENDIF.

IF itab_zycbt006-v_status EQ 'A'.

itab_zycbt006-v_status = 'I'.

READ TABLE itab_zycbt005

WITH KEY nrinvoic = itab_zycbt006-nrinvoic

gsberf = itab_zycbt006-gsberf

nrparcf = itab_zycbt006-nrparcf.

IF sy-subrc EQ 0.

...

ELSE.

itab_zycbt006-status = ' '.

ENDIF.

MODIFY itab_zycbt006.

IF /pws/zycbe001-tpcontr(1) CA 'CE'

OR ( /pws/zycbe001-tpcontr(1) EQ 'D' AND

/pws/zycbt089-f_cont_vinc EQ 'F' ).

/pws/zycbe001-belnr2 = v_belnr.

/pws/zycbe001-dtvincul = itab_zycbt006-dtpagto.

ENDIF.

* >> Início da inclusão: FORM ESTORNO_PERIODO_ABERTO

REFRESH itab_zycbt084_aud.

SELECT * FROM /pws/zycbt084

INTO TABLE itab_zycbt084_aud

WHERE nrseqc = itab_zycbt006-nrseqc AND

nrparc = itab_zycbt006-nrparc AND

dtincl = itab_zycbt006-dtincl AND

nrinvoic = itab_zycbt006-nrinvoic AND

nrparcf = itab_zycbt006-nrparcf AND

gsberf = itab_zycbt006-gsberf AND

dtvincul = itab_zycbt006-dtvincul AND

dtvencto = itab_zycbt006-dtvencto AND

dtpagto = itab_zycbt006-dtpagto AND

dtpagext = itab_zycbt006-dtpagext AND

tdesmemb = 'K'.

LOOP AT itab_zycbt084_aud.

MOVE-CORRESPONDING itab_zycbt084_aud TO /pws/zycbt084.

PERFORM carrega_log USING '/PWS/ZYCBT084'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt006-nrseqc.

ENDLOOP.

* << Fim da inclusão

DELETE FROM /pws/zycbt084

WHERE nrseqc = itab_zycbt006-nrseqc AND

nrparc = itab_zycbt006-nrparc AND

dtincl = itab_zycbt006-dtincl AND

nrinvoic = itab_zycbt006-nrinvoic AND

nrparcf = itab_zycbt006-nrparcf AND

gsberf = itab_zycbt006-gsberf AND

dtvincul = itab_zycbt006-dtvincul AND

dtvencto = itab_zycbt006-dtvencto AND

dtpagto = itab_zycbt006-dtpagto AND

dtpagext = itab_zycbt006-dtpagext AND

tdesmemb = 'K'.

* >> Início da inclusão: FORM ESTORNO_PERIODO_ABERTO

REFRESH itab_zycbt084_aud.

SELECT * FROM /pws/zycbt084

INTO TABLE itab_zycbt084_aud

WHERE nrseqc = itab_zycbt006-nrseqc AND

nrparc = itab_zycbt006-nrparc AND

dtincl = itab_zycbt006-dtincl AND

nrinvoic = itab_zycbt006-nrinvoic AND

nrparcf = itab_zycbt006-nrparcf AND

gsberf = itab_zycbt006-gsberf AND

dtvincul = itab_zycbt006-dtvincul AND

dtvencto = itab_zycbt006-dtvencto AND

dtpagto = itab_zycbt006-dtpagto AND

dtpagext = itab_zycbt006-dtpagext AND

tdesmemb = 'E'.

LOOP AT itab_zycbt084_aud.

MOVE-CORRESPONDING itab_zycbt084_aud TO /pws/zycbt084.

PERFORM carrega_log USING '/PWS/ZYCBT084'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt006-nrseqc.

ENDLOOP.

* << Fim da inclusão

DELETE FROM /pws/zycbt084

WHERE nrseqc = itab_zycbt006-nrseqc AND

nrparc = itab_zycbt006-nrparc AND

dtincl = itab_zycbt006-dtincl AND

nrinvoic = itab_zycbt006-nrinvoic AND

nrparcf = itab_zycbt006-nrparcf AND

gsberf = itab_zycbt006-gsberf AND

dtvincul = itab_zycbt006-dtvincul AND

dtvencto = itab_zycbt006-dtvencto AND

dtpagto = itab_zycbt006-dtpagto AND

...

AND gsberf = itab_zycbt006-gsberf

AND nrparcf = itab_zycbt006-nrparcf.

itab_zycbt069-belnr = itab_zycbt005_ant-belnr_d.

MODIFY itab_zycbt069.

UPDATE /pws/zycbt069 SET belnr = itab_zycbt069-belnr

WHERE nrseqc = itab_zycbt006-nrseqc AND

nrinvoic = itab_zycbt006-nrinvoic AND

dtvincul = itab_zycbt006-dtvincul AND

gsberf = itab_zycbt006-gsberf AND

nrparcf = itab_zycbt006-nrparcf.

* >> Início da inclusão: FORM ESTORNO_PERIODO_FECHADO

MOVE-CORRESPONDING itab_zycbt069 TO /pws/zycbt069.

PERFORM carrega_log USING '/PWS/ZYCBT069'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

/pws/zycbt069-nrseqc.

* << Fim da inclusão

ENDLOOP.

itab_zycbt005_ant-belnr = itab_zycbt005_ant-belnr_d.

itab_zycbt005_ant-dtbelnr = v_datum.

itab_zycbt005_ant-slpagar = itab_zycbt005_ant-slpagar -

itab_zycbt006-v_vldif.

CLEAR itab_zycbt005-belnr_d.

MODIFY itab_zycbt005_ant TRANSPORTING belnr dtbelnr slpagar belnr_d

WHERE nrinvoic = itab_zycbt006-nrinvoic

AND gsberf = itab_zycbt006-gsberf

AND nrparcf = itab_zycbt006-nrparcf.

...

AND gsberf = itab_zycbt006-gsberf

AND nrparcf = itab_zycbt006-nrparcf.

ENDIF.

IF NOT itab_zycbt005-tpcontr(1) CA 'PS'.

itab_zycbt006-belnr5 = itab_zycbt005-belnr.

ENDIF.

itab_zycbt006-status = 'E'.

ELSE.

itab_zycbt006-status = ' '.

ENDIF.

* >> Início da inclusão: FORM ESTORNO_PERIODO_FECHADO

REFRESH itab_zycbt084_aud.

SELECT * FROM /pws/zycbt084

INTO TABLE itab_zycbt084_aud

WHERE nrseqc = itab_zycbt006-nrseqc AND

nrparc = itab_zycbt006-nrparc AND

dtincl = itab_zycbt006-dtincl AND

nrinvoic = itab_zycbt006-nrinvoic AND

nrparcf = itab_zycbt006-nrparcf AND

gsberf = itab_zycbt006-gsberf AND

dtvincul = itab_zycbt006-dtvincul AND

dtvencto = itab_zycbt006-dtvencto AND

dtpagto = itab_zycbt006-dtpagto AND

dtpagext = itab_zycbt006-dtpagext AND

tdesmemb = 'K'.

LOOP AT itab_zycbt084_aud.

MOVE-CORRESPONDING itab_zycbt084_aud TO /pws/zycbt084.

PERFORM carrega_log USING '/PWS/ZYCBT084'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt006-nrseqc.

ENDLOOP.

* << Fim da inclusão

DELETE FROM /pws/zycbt084

WHERE nrseqc = itab_zycbt006-nrseqc AND

nrparc = itab_zycbt006-nrparc AND

dtincl = itab_zycbt006-dtincl AND

nrinvoic = itab_zycbt006-nrinvoic AND

nrparcf = itab_zycbt006-nrparcf AND

gsberf = itab_zycbt006-gsberf AND

dtvincul = itab_zycbt006-dtvincul AND

dtvencto = itab_zycbt006-dtvencto AND

dtpagto = itab_zycbt006-dtpagto AND

dtpagext = itab_zycbt006-dtpagext AND

tdesmemb = 'K'.

* >> Início da inclusão: FORM ESTORNO_PERIODO_FECHADO

REFRESH itab_zycbt084_aud.

SELECT * FROM /pws/zycbt084

INTO TABLE itab_zycbt084_aud

WHERE nrseqc = itab_zycbt006-nrseqc AND

nrparc = itab_zycbt006-nrparc AND

dtincl = itab_zycbt006-dtincl AND

nrinvoic = itab_zycbt006-nrinvoic AND

nrparcf = itab_zycbt006-nrparcf AND

gsberf = itab_zycbt006-gsberf AND

dtvincul = itab_zycbt006-dtvincul AND

dtvencto = itab_zycbt006-dtvencto AND

dtpagto = itab_zycbt006-dtpagto AND

dtpagext = itab_zycbt006-dtpagext AND

tdesmemb = 'E'.

LOOP AT itab_zycbt084_aud.

MOVE-CORRESPONDING itab_zycbt084_aud TO /pws/zycbt084.

PERFORM carrega_log USING '/PWS/ZYCBT084'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt006-nrseqc.

ENDLOOP.

* << Fim da inclusão

DELETE FROM /pws/zycbt084

WHERE nrseqc = itab_zycbt006-nrseqc AND

nrparc = itab_zycbt006-nrparc AND

dtincl = itab_zycbt006-dtincl AND

nrinvoic = itab_zycbt006-nrinvoic AND

nrparcf = itab_zycbt006-nrparcf AND

gsberf = itab_zycbt006-gsberf AND

dtvincul = itab_zycbt006-dtvincul AND

dtvencto = itab_zycbt006-dtvencto AND

dtpagto = itab_zycbt006-dtpagto AND

...

PERFORM grava_zycbt084 USING itab_zycbt032-belnr.

itab_zycbt209-dtbelnr = v_dtpagto.

itab_zycbt209-belnr2 = itab_zycbt032-belnr.

itab_zycbt209-saldo = itab_zycbt209-saldo +

itab_zycbt006-vlme.

MODIFY itab_zycbt209 TRANSPORTING belnr2 dtbelnr saldo

WHERE nrinvoic = itab_zycbt006-nrinvoic

AND nrparcf = itab_zycbt006-nrparcf

AND gsberf = itab_zycbt006-gsberf.

MODIFY /pws/zycbt209 FROM TABLE itab_zycbt209.

* >> Início da inclusão: FORM CLEARING_CLIENTE

LOOP AT itab_zycbt209.

MOVE-CORRESPONDING itab_zycbt209 TO /pws/zycbt209.

CLEAR v_identificador.

CONCATENATE /pws/zycbt209-nrinvoic /pws/zycbt209-nrparcf

/pws/zycbt209-gsberf INTO v_identificador.

PERFORM carrega_log USING '/PWS/ZYCBT209'

'U'

sy-tcode

'/PWS/SAPMZYCB031'

v_identificador.

ENDLOOP.

* << Fim da inclusão

MODIFY /pws/zycbt219 FROM TABLE itab_zycbt219.

* >> Início da inclusão: FORM CLEARING_CLIENTE

LOOP AT itab_zycbt219.

MOVE-CORRESPONDING itab_zycbt219 TO /pws/zycbt219.

CLEAR v_identificador.

CONCATENATE /pws/zycbt219-nrinvoic /pws/zycbt219-nrparcf

/pws/zycbt219-gsberf INTO v_identificador.

PERFORM carrega_log USING '/PWS/ZYCBT219'

'U'

sy-tcode

'/PWS/SAPMZYCB031'

v_identificador.

ENDLOOP.

* << Fim da inclusão

ENDIF.

ELSE.

itab_zycbt209-belnr2 = itab_zycbt032-belnr.

CLEAR itab_zycbt209-belnr_f28.

PERFORM grava_zycbt084 USING itab_zycbt032-belnr.

itab_zycbt209-saldo = itab_zycbt209-saldo +

itab_zycbt006-vlme.

itab_zycbt209-dtbelnr = v_dtpagto.

MODIFY itab_zycbt209 TRANSPORTING belnr2 dtbelnr saldo

WHERE nrinvoic = itab_zycbt006-nrinvoic

AND gsberf = itab_zycbt006-gsberf

AND nrparcf = itab_zycbt030-nrparcf

AND nrseqc = itab_zycbt006-nrseqc.

MODIFY /pws/zycbt209 FROM TABLE itab_zycbt209.

* >> Início da inclusão: FORM CLEARING_CLIENTE

LOOP AT itab_zycbt209.

MOVE-CORRESPONDING itab_zycbt209 TO /pws/zycbt209.

CLEAR v_identificador.

CONCATENATE /pws/zycbt209-nrinvoic /pws/zycbt209-nrparcf

/pws/zycbt209-gsberf INTO v_identificador.

PERFORM carrega_log USING '/PWS/ZYCBT209'

'U'

sy-tcode

'/PWS/SAPMZYCB031'

v_identificador.

ENDLOOP.

* << Fim da inclusão

MODIFY /pws/zycbt219 FROM TABLE itab_zycbt219.

* >> Início da inclusão: FORM CLEARING_CLIENTE

LOOP AT itab_zycbt219.

MOVE-CORRESPONDING itab_zycbt219 TO /pws/zycbt219.

CLEAR v_identificador.

CONCATENATE /pws/zycbt219-nrinvoic /pws/zycbt219-nrparcf

/pws/zycbt219-gsberf INTO v_identificador.

PERFORM carrega_log USING '/PWS/ZYCBT219'

'U'

sy-tcode

'/PWS/SAPMZYCB031'

v_identificador.

ENDLOOP.

* << Fim da inclusão

ENDIF.

IF itab_zycbt006-v_status EQ 'A' AND

itab_zycbt006-status = 'C'.

CLEAR itab_zycbt030-v_belnr.

MODIFY itab_zycbt030 TRANSPORTING v_belnr

WHERE nrinvoic = itab_zycbt006-nrinvoic

AND gsberf = itab_zycbt006-gsberf

AND vbeln = itab_zycbt030-vbeln

AND nrparcf = itab_zycbt030-nrparcf.

ENDIF.

...

AND gsberf = itab_zycbt006-gsberf

AND nrparcf = itab_zycbt006-nrparcf.

itab_zycbt069-belnr = itab_zycbt032-belnr.

MODIFY itab_zycbt069.

UPDATE /pws/zycbt069 SET belnr = itab_zycbt069-belnr

WHERE nrseqc = itab_zycbt006-nrseqc AND

nrinvoic = itab_zycbt006-nrinvoic AND

dtvincul = itab_zycbt006-dtvincul AND

gsberf = itab_zycbt006-gsberf AND

nrparcf = itab_zycbt006-nrparcf.

* >> Início da inclusão: FORM CLEARRIG_ACE

MOVE-CORRESPONDING itab_zycbt069 TO /pws/zycbt069.

PERFORM carrega_log USING '/PWS/ZYCBT069'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

/pws/zycbt069-nrseqc.

* << Fim da inclusão

ENDLOOP.

itab_zycbt005-belnr = itab_zycbt032-belnr.

itab_zycbt005-dtbelnr = itab_zycbe033-budat.

MODIFY itab_zycbt005 TRANSPORTING belnr dtbelnr

WHERE nrinvoic = itab_zycbt006-nrinvoic AND

gsberf = itab_zycbt006-gsberf AND

nrparcf = itab_zycbt006-nrparcf.

MODIFY itab_zycbt006 TRANSPORTING belnr5 status v_status

WHERE nrinvoic = itab_zycbt006-nrinvoic

AND gsberf = itab_zycbt006-gsberf

...

IF sy-subrc = 0.

PERFORM estorna_fbra_fb08

USING

itab_zycbt084-belnr

itab_zycbt006-dtpagto

itab_zycbt006-bukrs

'X'

CHANGING

v_subrc.

IF v_subrc EQ 0.

* >> Início da inclusão: FORM LANCAMENTO_PROVISAO_ARBITR_2

REFRESH itab_zycbt084_aud.

SELECT * FROM /pws/zycbt084

INTO TABLE itab_zycbt084_aud

WHERE nrseqc = itab_zycbt006-nrseqc

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparc = itab_zycbt006-nrparc

AND nrparcf = itab_zycbt006-nrparcf

AND tpdesp = itab_zycbt006-tpdesp

AND gsberf = itab_zycbt006-gsberf

AND dtincl = itab_zycbt006-dtincl

AND dtvincul = itab_zycbt006-dtvincul

AND dtpagext = itab_zycbt006-dtpagext

AND dtpagto = itab_zycbt006-dtpagto

AND dtvencto = itab_zycbt006-dtvencto

AND liq_and = space

AND tdesmemb = 'A'.

LOOP AT itab_zycbt084_aud.

MOVE-CORRESPONDING itab_zycbt084_aud TO /pws/zycbt084.

PERFORM carrega_log USING '/PWS/ZYCBT084'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt006-nrseqc.

ENDLOOP.

* << Fim da inclusão

DELETE FROM /pws/zycbt084

WHERE nrseqc = itab_zycbt006-nrseqc

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparc = itab_zycbt006-nrparc

AND nrparcf = itab_zycbt006-nrparcf

AND tpdesp = itab_zycbt006-tpdesp

AND gsberf = itab_zycbt006-gsberf

AND dtincl = itab_zycbt006-dtincl

AND dtvincul = itab_zycbt006-dtvincul

AND dtpagext = itab_zycbt006-dtpagext

...

IF sy-subrc = 0.

PERFORM estorna_fbra_fb08

USING

itab_zycbt084-belnr

itab_zycbt006-dtpagto

itab_zycbt006-bukrs

' '

CHANGING

v_subrc.

IF v_subrc EQ 0.

* >> Início da inclusão: FORM LANCAMENTO_PROVISAO_ARBITR_2

REFRESH itab_zycbt084_aud.

SELECT * FROM /pws/zycbt084

INTO TABLE itab_zycbt084_aud

WHERE nrseqc = itab_zycbt006-nrseqc

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparc = itab_zycbt006-nrparc

AND nrparcf = itab_zycbt006-nrparcf

AND tpdesp = itab_zycbt006-tpdesp

AND gsberf = itab_zycbt006-gsberf

AND dtincl = itab_zycbt006-dtincl

AND dtvincul = itab_zycbt006-dtvincul

AND dtpagext = itab_zycbt006-dtpagext

AND dtpagto = itab_zycbt006-dtpagto

AND dtvencto = itab_zycbt006-dtvencto

AND liq_and = space

AND tdesmemb = 'V'.

LOOP AT itab_zycbt084_aud.

MOVE-CORRESPONDING itab_zycbt084_aud TO /pws/zycbt084.

PERFORM carrega_log USING '/PWS/ZYCBT084'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt006-nrseqc.

ENDLOOP.

* << Fim da inclusão

DELETE FROM /pws/zycbt084

WHERE nrseqc = itab_zycbt006-nrseqc

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparc = itab_zycbt006-nrparc

AND nrparcf = itab_zycbt006-nrparcf

AND tpdesp = itab_zycbt006-tpdesp

AND gsberf = itab_zycbt006-gsberf

AND dtincl = itab_zycbt006-dtincl

AND dtvincul = itab_zycbt006-dtvincul

AND dtpagext = itab_zycbt006-dtpagext

...

/pws/zycbt084-dtpagext = itab_zycbt006-dtpagext.

/pws/zycbt084-vbeln = itab_zycbt030-vbeln.

/pws/zycbt084-belnr = itab_zycbt032-belnr.

/pws/zycbt084-liq_and = space.

/pws/zycbt084-tdesmemb = 'K'.

IF NOT v_tot_cliente IS INITIAL.

/pws/zycbt084-cont_desmemb = 'X'.

ENDIF.

/pws/zycbt084-result_saldo = itab_zycbe033-wrbtr.

MODIFY /pws/zycbt084 FROM /pws/zycbt084.

* >> Início da inclusão: FORM ABRE_DOCTO_CLIENTE_2

PERFORM carrega_log USING '/PWS/ZYCBT084'

'U'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt084-nrseqc.

* << Fim da inclusão

ELSE.

v_subrc = 4.

LOOP AT itab_zycbt032 WHERE tcode = 'F-30'

AND tabela = 'ZYCBT006'

AND cpochv = v_cpochv.

itab_erro-vbeln = itab_zycbt030-vbeln.

itab_erro-msg = itab_zycbt032-msg.

APPEND itab_erro.

ENDLOOP.

IF sy-subrc EQ 0.

...

/pws/zycbt084-dtpagto = itab_zycbt006-dtpagto.

/pws/zycbt084-dtpagext = itab_zycbt006-dtpagext.

/pws/zycbt084-vbeln = itab_zycbt030-vbeln.

/pws/zycbt084-belnr = itab_zycbt032-belnr.

/pws/zycbt084-liq_and = space.

/pws/zycbt084-tdesmemb = 'E'.

IF NOT v_tot_contrato IS INITIAL.

/pws/zycbt084-cont_desmemb = 'X'.

ENDIF.

MODIFY /pws/zycbt084 FROM /pws/zycbt084.

* >> Início da inclusão: FORM ABRE_DOCTO_ACE_2

PERFORM carrega_log USING '/PWS/ZYCBT084'

'U'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt084-nrseqc.

* << Fim da inclusão

ELSE.

v_subrc = 4.

LOOP AT itab_zycbt032 WHERE tcode = 'F-30'

AND tabela = 'ZYCBT006'

AND cpochv = v_cpochv.

itab_erro-vbeln = itab_zycbt030-vbeln.

itab_erro-msg = itab_zycbt032-msg.

APPEND itab_erro.

ENDLOOP.

IF sy-subrc EQ 0.

...

/pws/zycbt084-gsberf = itab_zycbt006-gsberf.

/pws/zycbt084-dtvincul = itab_zycbt006-dtvincul.

/pws/zycbt084-dtvencto = itab_zycbt006-dtvencto.

/pws/zycbt084-dtpagto = itab_zycbt006-dtpagto.

/pws/zycbt084-dtpagext = itab_zycbt006-dtpagext.

/pws/zycbt084-vbeln = itab_zycbt030-vbeln.

/pws/zycbt084-belnr = itab_zycbt032-belnr.

/pws/zycbt084-liq_and = space.

/pws/zycbt084-tdesmemb = 'A'.

MODIFY /pws/zycbt084 FROM /pws/zycbt084.

* >> Início da inclusão: FORM LANCAMENTO_CLEARING_2

PERFORM carrega_log USING '/PWS/ZYCBT084'

'U'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt084-nrseqc.

* << Fim da inclusão

CLEAR itab_zycbt084.

MOVE-CORRESPONDING /pws/zycbt084 TO itab_zycbt084.

APPEND itab_zycbt084.

IF v_vinculacao IS INITIAL.

COMMIT WORK.

ENDIF.

itab_contabil-docto = itab_zycbt032-belnr.

itab_contabil-dtdocto = itab_zycbe033-budat.

itab_contabil-bukrs = itab_zycbt006-bukrs.

itab_contabil-msg = text-056.

...

ENDLOOP.

itab_contabil-nrinvoic = itab_zycbt006-nrinvoic.

CLEAR itab_contabil-vbeln.

itab_contabil-gsberf = itab_zycbt006-gsberf.

itab_contabil-nrparcf = itab_zycbt006-nrparcf.

itab_contabil-docto = itab_zycbt032-belnr.

itab_contabil-msg = text-194.

itab_contabil-dtdocto = itab_zycbt006-dtpagto.

itab_contabil-bukrs = itab_zycbt006-bukrs.

APPEND itab_contabil.

* >> Início da inclusão: FORM ANULA_DESM_ACE_ABITR

REFRESH itab_zycbt084_aud.

SELECT * FROM /pws/zycbt084

INTO TABLE itab_zycbt084_aud

WHERE belnr = v_belnr_ant

AND tdesmemb = 'E'. "#EC CI_NOFIRST

LOOP AT itab_zycbt084_aud.

MOVE-CORRESPONDING itab_zycbt084_aud TO /pws/zycbt084.

PERFORM carrega_log USING '/PWS/ZYCBT084'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt006-nrseqc.

ENDLOOP.

* << Fim da inclusão

DELETE FROM /pws/zycbt084

WHERE belnr = v_belnr_ant

AND tdesmemb = 'E'. "#EC CI_NOFIRST

ELSE.

LOOP AT itab_zycbt032 WHERE tcode = 'FB08'

AND tabela = 'ZYCBT006'

AND cpochv = v_cpochv.

itab_erro-vbeln = itab_zycbt006-belnr_d.

itab_erro-msg = itab_zycbt032-msg.

APPEND itab_erro.

...

/pws/zycbt084-tdesmemb = 'H'.

IF NOT itab_recurso_aux-vl_total_saldo IS INITIAL.

/pws/zycbt084-result_saldo = itab_recurso_aux-vl_total_saldo.

ELSE.

/pws/zycbt084-result_saldo = itab_zycbe033-wrbtr.

ENDIF.

IF NOT v_tot_cliente IS INITIAL.

/pws/zycbt084-cont_desmemb = 'X'.

ENDIF.

MODIFY /pws/zycbt084 FROM /pws/zycbt084.

* >> Início da inclusão: FORM DESMEMBRA_LIQ_AND

PERFORM carrega_log USING '/PWS/ZYCBT084'

'U'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt084-nrseqc.

* << Fim da inclusão

v_subrc = 0.

ELSE.

LOOP AT itab_zycbt032 WHERE tcode = 'F-30'

AND tabela = 'ZYCBT006'

AND cpochv = v_cpochv.

itab_erro-vbeln = itab_zycbt209-belnr.

itab_erro-msg = itab_zycbt032-msg.

APPEND itab_erro.

ENDLOOP.

v_subrc = 4.

...

/pws/zycbt084-gsberf = itab_zycbt006-gsberf.

/pws/zycbt084-dtvincul = itab_zycbt006-dtvincul.

/pws/zycbt084-dtvencto = itab_zycbt006-dtvencto.

/pws/zycbt084-dtpagto = itab_zycbt006-dtpagto.

/pws/zycbt084-vbeln = itab_zycbt209-belnr.

/pws/zycbt084-belnr = p_belnr.

/pws/zycbt084-dtpagext = itab_zycbt006-dtpagext.

/pws/zycbt084-liq_and = space.

/pws/zycbt084-tdesmemb = ' '.

MODIFY /pws/zycbt084 FROM /pws/zycbt084.

* >> Início da inclusão: FORM GRAVA_ZYCBT084_AND

PERFORM carrega_log USING '/PWS/ZYCBT084'

'U'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt084-nrseqc.

* << Fim da inclusão

IF v_vinculacao IS INITIAL.

COMMIT WORK.

ENDIF.

CLEAR /pws/zycbt084.

ENDFORM.

FORM clearing_liq_and USING p_datum

CHANGING v_subrc.

CLEAR v_subrc.

PERFORM clear_date_batch.

itab_zycbe033-tcode = 'F-30'.

...

/pws/zycbt154-kursf = itab_zycbe033-kursf.

/pws/zycbt154-dtcont = v_dtcalcjur.

/pws/zycbt154-dtpagext = /pws/zycbe006-dtpagext.

/pws/zycbt154-vlme = itab_periodos_j-vlme.

/pws/zycbt154-codmodul = 'JU'.

/pws/zycbt154-codmod = 'E'.

/pws/zycbt154-bco = /pws/zycbt001-bconegoc.

/pws/zycbt154-belnr_pr = itab_zycbt032-belnr.

/pws/zycbt154-liquid = 'X'.

INSERT /pws/zycbt154.

* >> Início da inclusão: FORM F_02_PROVISAO_JUROS_DIF

PERFORM carrega_log USING '/PWS/ZYCBT154'

'D'

sy-tcode

'/PWS/ZYCBR003'

/pws/zycbt154-nrcorresp.

* << Fim da inclusão

ENDIF.

LOOP AT itab_zycbt006.

itab_zycbt006-dtcont_jur = v_dtcalcjur.

itab_zycbt006-belnr_jur = itab_zycbt032-belnr.

MODIFY itab_zycbt006.

ENDLOOP.

READ TABLE itab_zycbt032 WITH KEY tcode = 'F-02'

tabela = '/PWS/ZYCBT006'

cpochv = v_cpochv.

CLEAR itab_contabil.

...

IF sy-subrc = 0.

READ TABLE itab_zycbt032 WITH KEY tcode = 'FB08'

tabela = '/PWS/ZYCBT006'

cpochv = /pws/zycbe005-nrseqc

tpmsg = 'S'.

IF sy-subrc EQ 0.

UPDATE /pws/zycbt006 SET belnr_jur = ' '

dtcont_jur = ' '

WHERE nrseqc EQ /pws/zycbe005-nrseqc

AND belnr_jur EQ itab_zycbt154-belnr_pr.

* >> Início da inclusão: FORM ESTORNA_DIFERENCA_JUROS

IF sy-subrc EQ 0.

REFRESH itab_zycbt006_aud.

SELECT * FROM /pws/zycbt006

INTO TABLE itab_zycbt006_aud

WHERE nrseqc = /pws/zycbe005-nrseqc

AND belnr_jur = itab_zycbt154-belnr_pr.

LOOP AT itab_zycbt006_aud.

MOVE-CORRESPONDING itab_zycbt006_aud TO /pws/zycbt006.

PERFORM carrega_log USING '/PWS/ZYCBT006'

'U'

sy-tcode

SY-REPID

/pws/zycbt006-nrseqc.

ENDLOOP.

ENDIF.

REFRESH itab_zycbt154_aud.

SELECT * FROM /pws/zycbt154

INTO TABLE itab_zycbt154_aud

WHERE nrcorresp EQ /pws/zycbe005-nrseqc

AND codmodul EQ 'JU'

AND codmod EQ 'E'

AND belnr_pr EQ itab_zycbt154-belnr_pr.

LOOP AT itab_zycbt154_aud.

MOVE-CORRESPONDING itab_zycbt154_aud TO /pws/zycbt154.

PERFORM carrega_log USING '/PWS/ZYCBT154'

'D'

sy-tcode

'/PWS/ZYCBR003'

/pws/zycbe005-nrseqc.

ENDLOOP.

* << Fim da inclusão

DELETE FROM /pws/zycbt154

WHERE nrcorresp EQ /pws/zycbe005-nrseqc

AND codmodul EQ 'JU'

AND codmod EQ 'E'

AND belnr_pr EQ itab_zycbt154-belnr_pr.

CLEAR itab_contabil.

itab_contabil-docto = itab_zycbt032-belnr.

itab_contabil-dtdocto = itab_zycbe033-budat.

itab_contabil-bukrs = /pws/zycbt001-bukrs.

itab_contabil-msg = text-459.

...

IF sy-subrc = 0.

PERFORM estorna_fbra_fb08

USING

itab_zycbt084-belnr

itab_zycbt006-dtpagto

itab_zycbt006-bukrs

' '

CHANGING

v_subrc.

IF v_subrc EQ 0.

* >> Início da inclusão: FORM LANCAMENTO_PROVISAO3

REFRESH itab_zycbt084_aud.

SELECT * FROM /pws/zycbt084

INTO TABLE itab_zycbt084_aud

WHERE nrseqc = itab_zycbt006-nrseqc

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparc = itab_zycbt006-nrparc

AND nrparcf = itab_zycbt006-nrparcf

AND tpdesp = itab_zycbt006-tpdesp

AND gsberf = itab_zycbt006-gsberf

AND dtincl = itab_zycbt006-dtincl

AND dtvincul = itab_zycbt006-dtvincul

AND dtpagext = itab_zycbt006-dtpagext

AND dtpagto = itab_zycbt006-dtpagto

AND dtvencto = itab_zycbt006-dtvencto

AND liq_and = space

AND tdesmemb = 'V'.

LOOP AT itab_zycbt084_aud.

MOVE-CORRESPONDING itab_zycbt084_aud TO /pws/zycbt084.

PERFORM carrega_log USING '/PWS/ZYCBT084'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt006-nrseqc.

ENDLOOP.

* << Fim da inclusão

DELETE FROM /pws/zycbt084

WHERE nrseqc = itab_zycbt006-nrseqc

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparc = itab_zycbt006-nrparc

AND nrparcf = itab_zycbt006-nrparcf

AND tpdesp = itab_zycbt006-tpdesp

AND gsberf = itab_zycbt006-gsberf

AND dtincl = itab_zycbt006-dtincl

AND dtvincul = itab_zycbt006-dtvincul

AND dtpagext = itab_zycbt006-dtpagext

...

itab_zycbt006-dtpagto

itab_zycbt006-bukrs

' '

CHANGING

v_subrc.

IF sy-subrc NE 0.

v_subrc = 4.

EXIT.

ELSE.

PERFORM atualiza_saldo_ordem_estorno.

* >> Início da inclusão: FORM ESTORNO_PERIODO_AB_PERF

REFRESH itab_zycbt084_aud.

SELECT * FROM /pws/zycbt084

INTO TABLE itab_zycbt084_aud

WHERE nrseqc = itab_zycbt006-nrseqc

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparc = itab_zycbt006-nrparc

AND nrparcf = itab_zycbt006-nrparcf

AND tpdesp = itab_zycbt006-tpdesp

AND gsberf = itab_zycbt006-gsberf

AND dtincl = itab_zycbt006-dtincl

AND dtvincul = itab_zycbt006-dtvincul

AND dtpagext = itab_zycbt006-dtpagext

AND dtpagto = itab_zycbt006-dtpagto

AND dtvencto = itab_zycbt006-dtvencto

AND liq_and = space

AND tdesmemb = 'V'.

LOOP AT itab_zycbt084_aud.

MOVE-CORRESPONDING itab_zycbt084_aud TO /pws/zycbt084.

PERFORM carrega_log USING '/PWS/ZYCBT084'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt006-nrseqc.

ENDLOOP.

* << Fim da inclusão

DELETE FROM /pws/zycbt084

WHERE nrseqc = itab_zycbt006-nrseqc

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparc = itab_zycbt006-nrparc

AND nrparcf = itab_zycbt006-nrparcf

AND tpdesp = itab_zycbt006-tpdesp

AND gsberf = itab_zycbt006-gsberf

AND dtincl = itab_zycbt006-dtincl

AND dtvincul = itab_zycbt006-dtvincul

AND dtpagext = itab_zycbt006-dtpagext

...

AND gsberf = itab_zycbt006-gsberf

AND nrparcf = itab_zycbt006-nrparcf.

itab_zycbt069-belnr = v_belnr.

MODIFY itab_zycbt069.

UPDATE /pws/zycbt069 SET belnr = itab_zycbt069-belnr

WHERE nrseqc = itab_zycbt006-nrseqc AND

nrinvoic = itab_zycbt006-nrinvoic AND

dtvincul = itab_zycbt006-dtvincul AND

gsberf = itab_zycbt006-gsberf AND

nrparcf = itab_zycbt006-nrparcf.

* >> Início da inclusão: FORM ESTORNO_PERIODO_AB_PERF

MOVE-CORRESPONDING itab_zycbt069 TO /pws/zycbt069.

PERFORM carrega_log USING '/PWS/ZYCBT069'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

/pws/zycbt069-nrseqc.

* << Fim da inclusão

ENDLOOP.

IF /pws/zycbt084-cont_desmemb IS INITIAL.

itab_zycbt005_ant-belnr = v_belnr.

itab_zycbt005_ant-dtbelnr = itab_zycbt006-dtpagto.

ENDIF.

itab_zycbt005_ant-slpagar = itab_zycbt005_ant-slpagar -

itab_zycbt006-v_vldif.

MODIFY itab_zycbt005_ant TRANSPORTING belnr dtbelnr slpagar

WHERE nrinvoic = itab_zycbt006-nrinvoic

AND gsberf = itab_zycbt006-gsberf

...

MODIFY itab_zycbt219

TRANSPORTING belnr_cli dtbelnr saldo_liq

WHERE bukrs = itab_zycbt006-bukrs

AND nrinvoic = itab_zycbt006-nrinvoic

AND belnr = itab_zycbt220-belnr

AND gsberf = itab_zycbt006-gsberf

AND nrparcf = itab_zycbt006-nrparcf.

ENDLOOP.

ENDIF.

MODIFY /pws/zycbt219 FROM TABLE itab_zycbt219.

* >> Início da inclusão: FORM ESTORNO_PERIODO_AB_PERF

LOOP AT itab_zycbt219.

MOVE-CORRESPONDING itab_zycbt219 TO /pws/zycbt219.

CLEAR v_identificador.

CONCATENATE /pws/zycbt219-nrinvoic /pws/zycbt219-nrparcf

/pws/zycbt219-gsberf INTO v_identificador.

PERFORM carrega_log USING '/PWS/ZYCBT219'

'U'

sy-tcode

'/PWS/SAPMZYCB033'

v_identificador.

ENDLOOP.

* << Fim da inclusão

IF v_vinculacao IS INITIAL.

COMMIT WORK.

ENDIF.

IF itab_zycbt006-v_status EQ 'A'.

itab_zycbt006-v_status = 'I'.

READ TABLE itab_zycbt005

WITH KEY nrinvoic = itab_zycbt006-nrinvoic

gsberf = itab_zycbt006-gsberf

nrparcf = itab_zycbt006-nrparcf.

IF sy-subrc EQ 0.

...

ELSE.

itab_zycbt006-status = ' '.

ENDIF.

MODIFY itab_zycbt006.

IF /pws/zycbe001-tpcontr(1) CA 'CE'

OR ( /pws/zycbe001-tpcontr(1) EQ 'D' AND

/pws/zycbt089-f_cont_vinc EQ 'F' ).

/pws/zycbe001-belnr2 = v_belnr.

/pws/zycbe001-dtvincul = itab_zycbt006-dtpagto.

ENDIF.

* >> Início da inclusão: FORM ESTORNO_PERIODO_AB_PERF

REFRESH itab_zycbt084_aud.

SELECT * FROM /pws/zycbt084

INTO TABLE itab_zycbt084_aud

WHERE nrseqc = itab_zycbt006-nrseqc AND

nrparc = itab_zycbt006-nrparc AND

dtincl = itab_zycbt006-dtincl AND

nrinvoic = itab_zycbt006-nrinvoic AND

nrparcf = itab_zycbt006-nrparcf AND

gsberf = itab_zycbt006-gsberf AND

dtvincul = itab_zycbt006-dtvincul AND

dtvencto = itab_zycbt006-dtvencto AND

dtpagto = itab_zycbt006-dtpagto AND

dtpagext = itab_zycbt006-dtpagext AND

tdesmemb = 'K'.

LOOP AT itab_zycbt084_aud.

MOVE-CORRESPONDING itab_zycbt084_aud TO /pws/zycbt084.

PERFORM carrega_log USING '/PWS/ZYCBT084'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt006-nrseqc.

ENDLOOP.

* << Fim da inclusão

DELETE FROM /pws/zycbt084

WHERE nrseqc = itab_zycbt006-nrseqc AND

nrparc = itab_zycbt006-nrparc AND

dtincl = itab_zycbt006-dtincl AND

nrinvoic = itab_zycbt006-nrinvoic AND

nrparcf = itab_zycbt006-nrparcf AND

gsberf = itab_zycbt006-gsberf AND

dtvincul = itab_zycbt006-dtvincul AND

dtvencto = itab_zycbt006-dtvencto AND

dtpagto = itab_zycbt006-dtpagto AND

dtpagext = itab_zycbt006-dtpagext AND

tdesmemb = 'K'.

* >> Início da inclusão: FORM ESTORNO_PERIODO_AB_PERF

REFRESH itab_zycbt084_aud.

SELECT * FROM /pws/zycbt084

INTO TABLE itab_zycbt084_aud

WHERE nrseqc = itab_zycbt006-nrseqc AND

nrparc = itab_zycbt006-nrparc AND

dtincl = itab_zycbt006-dtincl AND

nrinvoic = itab_zycbt006-nrinvoic AND

nrparcf = itab_zycbt006-nrparcf AND

gsberf = itab_zycbt006-gsberf AND

dtvincul = itab_zycbt006-dtvincul AND

dtvencto = itab_zycbt006-dtvencto AND

dtpagto = itab_zycbt006-dtpagto AND

dtpagext = itab_zycbt006-dtpagext AND

tdesmemb = 'E'.

LOOP AT itab_zycbt084_aud.

MOVE-CORRESPONDING itab_zycbt084_aud TO /pws/zycbt084.

PERFORM carrega_log USING '/PWS/ZYCBT084'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt006-nrseqc.

ENDLOOP.

* << Fim da inclusão

DELETE FROM /pws/zycbt084

WHERE nrseqc = itab_zycbt006-nrseqc AND

nrparc = itab_zycbt006-nrparc AND

dtincl = itab_zycbt006-dtincl AND

nrinvoic = itab_zycbt006-nrinvoic AND

nrparcf = itab_zycbt006-nrparcf AND

gsberf = itab_zycbt006-gsberf AND

dtvincul = itab_zycbt006-dtvincul AND

dtvencto = itab_zycbt006-dtvencto AND

dtpagto = itab_zycbt006-dtpagto AND

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCB004F03

...

/pws/zycbt084-gsberf = itab_zycbt006-gsberf.

/pws/zycbt084-dtvincul = itab_zycbt006-dtvincul.

/pws/zycbt084-dtvencto = itab_zycbt006-dtvencto.

/pws/zycbt084-dtpagto = itab_zycbt006-dtpagto.

/pws/zycbt084-dtpagext = itab_zycbt006-dtpagext.

/pws/zycbt084-vbeln = itab_zycbt030-vbeln.

/pws/zycbt084-nrseq_ordem = <fs_zycbt226>-nrseq.

/pws/zycbt084-liq_and = space.

/pws/zycbt084-tdesmemb = 'O'.

MODIFY /pws/zycbt084 FROM /pws/zycbt084.

* >> Início da inclusão: FORM DESM_CONTA_CORRENTE

PERFORM carrega_log USING '/PWS/ZYCBT084'

'U'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt084-nrseqc.

* << Fim da inclusão

IF v_vinculacao IS INITIAL.

COMMIT WORK.

ENDIF.

v_gravar = 'N'.

ENDIF.

IF itab_recurso_aux[] IS INITIAL AND v_gravar = 'S'.

CLEAR /pws/zycbt084.

/pws/zycbt084-result_saldo = p_v_slliq.

/pws/zycbt084-nrseqc = itab_zycbt006-nrseqc.

/pws/zycbt084-tpdesp = itab_zycbt006-tpdesp.

...

/pws/zycbt084-gsberf = itab_zycbt006-gsberf.

/pws/zycbt084-dtvincul = itab_zycbt006-dtvincul.

/pws/zycbt084-dtvencto = itab_zycbt006-dtvencto.

/pws/zycbt084-dtpagto = itab_zycbt006-dtpagto.

/pws/zycbt084-dtpagext = itab_zycbt006-dtpagext.

/pws/zycbt084-vbeln = itab_zycbt030-vbeln.

/pws/zycbt084-nrseq_ordem = <fs_zycbt226>-nrseq.

/pws/zycbt084-liq_and = space.

/pws/zycbt084-tdesmemb = 'O'.

MODIFY /pws/zycbt084 FROM /pws/zycbt084.

* >> Início da inclusão: FORM DESM_CONTA_CORRENTE

PERFORM carrega_log USING '/PWS/ZYCBT084'

'U'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt084-nrseqc.

* << Fim da inclusão

IF v_vinculacao IS INITIAL.

COMMIT WORK.

ENDIF.

ELSE.

CHECK NOT /pws/zyglt009-comp_aut_cc IS INITIAL.

PERFORM clear_date_batch.

PERFORM busca_parametros_op.

itab_zycbe033-tcode = 'F-30'.

itab_zycbe033-tabela = '/PWS/ZYCBT006'.

...

itab_zycbt226i-sld_exterior = <fs_zycbt226>-sld_exterior.

itab_zycbt226i-conta_contabil = <fs_zycbt226>-conta_contabil.

APPEND itab_zycbt226i.

UPDATE /pws/zycbt226 SET belnr_op2 = <fs_zycbt226>-belnr_op2

dtlancto2 = <fs_zycbt226>-dtlancto2

sld_exterior = <fs_zycbt226>-sld_exterior

WHERE nrseq = <fs_zycbt226>-nrseq

AND nrinvoic = <fs_zycbt226>-nrinvoic

AND nrparcf = <fs_zycbt226>-nrparcf

AND gsberf = <fs_zycbt226>-gsberf.

* >> Início da inclusão: FORM ATUALIZA_TABELAS

IF sy-subrc EQ 0.

REFRESH itab_zycbt226_aud.

SELECT * FROM /pws/zycbt226

INTO TABLE itab_zycbt226_aud

WHERE nrseq = <fs_zycbt226>-nrseq

AND nrinvoic = <fs_zycbt226>-nrinvoic

AND nrparcf = <fs_zycbt226>-nrparcf

AND gsberf = <fs_zycbt226>-gsberf.

LOOP AT itab_zycbt226_aud.

MOVE-CORRESPONDING itab_zycbt226_aud TO /pws/zycbt226.

PERFORM carrega_log USING '/PWS/ZYCBT226'

'U'

sy-tcode

'/PWS/SAPMZYCB034'

/pws/zycbt226-nrseq.

ENDLOOP.

ENDIF.

* << Fim da inclusão

CHECK NOT /pws/zyglt009-comp_aut_cc IS INITIAL.

CLEAR /pws/zycbt084.

/pws/zycbt084-nrseqc = itab_zycbt006-nrseqc.

/pws/zycbt084-tpdesp = itab_zycbt006-tpdesp.

/pws/zycbt084-nrparc = itab_zycbt006-nrparc.

/pws/zycbt084-dtincl = <fs_zycbt226>-dtlancto2.

/pws/zycbt084-nrinvoic = itab_zycbt006-nrinvoic.

/pws/zycbt084-nrparcf = itab_zycbt006-nrparcf.

/pws/zycbt084-gsberf = itab_zycbt006-gsberf.

/pws/zycbt084-dtvincul = itab_zycbt006-dtvincul.

...

/pws/zycbt084-belnr = <fs_zycbt226>-belnr_op2.

/pws/zycbt084-nrseq_ordem = <fs_zycbt226>-nrseq.

/pws/zycbt084-liq_and = space.

/pws/zycbt084-tdesmemb = 'O'.

IF NOT itab_recurso_aux-vl_total_saldo IS INITIAL.

/pws/zycbt084-result_saldo = itab_recurso_aux-vl_total_saldo.

ELSE.

/pws/zycbt084-result_saldo = itab_zycbt036-residuo.

ENDIF.

MODIFY /pws/zycbt084 FROM /pws/zycbt084.

* >> Início da inclusão: FORM ATUALIZA_TABELAS

PERFORM carrega_log USING '/PWS/ZYCBT084'

'U'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt084-nrseqc.

* << Fim da inclusão

IF v_vinculacao IS INITIAL.

COMMIT WORK.

ENDIF.

ENDFORM.

FORM atualiza_zycbt231 USING p_valor.

itab_zycbt231-nrseq = <fs_zycbt226>-nrseq.

itab_zycbt231-nrseqc = itab_zycbt006-nrseqc.

itab_zycbt231-dtpagext = itab_zycbt006-dtpagext.

itab_zycbt231-dtpagto = itab_zycbt006-dtpagto.

itab_zycbt231-waers = <fs_zycbt226>-waers.

...

itab_contabil-docto = itab_zycbt032-belnr.

itab_contabil-dtdocto = itab_zycbt006-dtpagto.

itab_contabil-bukrs = itab_zycbt006-bukrs.

itab_contabil-msg = text-219.

APPEND itab_contabil.

UPDATE /pws/zycbt226

SET belnr_op2 = <fs_zycbt226>-belnr_op2

dtlancto2 = <fs_zycbt226>-dtlancto2

sld_exterior = <fs_zycbt226>-sld_exterior

WHERE nrseq = itab_zycbt231-nrseq.

* >> Início da inclusão: FORM CLEARING_CC

IF sy-subrc EQ 0.

MOVE-CORRESPONDING itab_zycbt231 TO /pws/zycbt226.

PERFORM carrega_log USING '/PWS/ZYCBT226'

'U'

sy-tcode

'/PWS/SAPMZYCB034'

/pws/zycbt226-nrseq.

ENDIF.

* << Fim da inclusão

IF v_subrc NE '4'.

itab_zycbt030-vlslliq = itab_zycbt030-vlslliq +

itab_zycbt231-vlme.

ENDIF.

MODIFY itab_zycbt030 TRANSPORTING vlslliq

WHERE nrinvoic = itab_zycbt006-nrinvoic

AND gsberf = itab_zycbt006-gsberf

AND nrparcf = itab_zycbt006-nrparcf.

* >> Início da inclusão: FORM CLEARING_CC

MOVE-CORRESPONDING itab_zycbt231 TO /pws/zycbt231.

PERFORM carrega_log USING '/PWS/ZYCBT231'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt006-nrseqc.

* << Fim da inclusão

DELETE FROM /pws/zycbt231 WHERE nrseq = itab_zycbt231-nrseq

AND nrseqc = itab_zycbt231-nrseqc

AND dtpagext = itab_zycbt231-dtpagext

AND dtpagto = itab_zycbt231-dtpagto.

DELETE itab_zycbt231.

LOOP AT itab_zycbt084 WHERE nrseqc = itab_zycbt006-nrseqc

AND nrinvoic = itab_zycbt006-nrinvoic

AND gsberf = itab_zycbt006-gsberf

AND nrparcf = itab_zycbt006-nrparcf

AND dtvincul = itab_zycbt006-dtvincul

AND dtvencto = itab_zycbt006-dtvencto

AND dtpagto = itab_zycbt006-dtpagto

AND dtpagext = itab_zycbt006-dtpagext

AND nrseq_ordem = itab_zycbt231-nrseq

AND tdesmemb = 'O'.

* >> Início da inclusão: FORM CLEARING_CC

REFRESH itab_zycbt084_aud.

SELECT * FROM /pws/zycbt084

INTO TABLE itab_zycbt084_aud

WHERE nrseqc = itab_zycbt006-nrseqc

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparcf = itab_zycbt006-nrparcf

AND gsberf = itab_zycbt006-gsberf

AND dtvincul = itab_zycbt006-dtvincul

AND dtvencto = itab_zycbt006-dtvencto

AND dtpagext = itab_zycbt006-dtpagext

AND dtpagto = itab_zycbt006-dtpagto

AND dtincl = itab_zycbt084-dtincl

AND belnr = itab_zycbt084-belnr

AND nrseq_ordem = itab_zycbt231-nrseq

AND tdesmemb = 'O'.

LOOP AT itab_zycbt084_aud.

MOVE-CORRESPONDING itab_zycbt084_aud TO /pws/zycbt084.

PERFORM carrega_log USING '/PWS/ZYCBT084'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt006-nrseqc.

ENDLOOP.

* << Fim da inclusão

DELETE FROM /pws/zycbt084 WHERE nrseqc = itab_zycbt006-nrseqc

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparcf = itab_zycbt006-nrparcf

AND gsberf = itab_zycbt006-gsberf

AND dtvincul = itab_zycbt006-dtvincul

AND dtvencto = itab_zycbt006-dtvencto

AND dtpagext = itab_zycbt006-dtpagext

AND dtpagto = itab_zycbt006-dtpagto

AND dtincl = itab_zycbt084-dtincl

AND belnr = itab_zycbt084-belnr

...

READ TABLE itab_zycbt006

WITH KEY nrseqc = itab_zycbt231-nrseqc.

IF itab_zycbt006-belnr IS INITIAL.

<fs_zycbt226>-sld_exterior =

<fs_zycbt226>-sld_exterior + itab_zycbt231-vlme.

UPDATE /pws/zycbt226

SET belnr_op2 = <fs_zycbt226>-belnr_op2

dtlancto2 = <fs_zycbt226>-dtlancto2

sld_exterior = <fs_zycbt226>-sld_exterior

WHERE nrseq = itab_zycbt231-nrseq.

* >> Início da inclusão: FORM ESTORNO_CONT_ERRO

IF sy-subrc EQ 0.

MOVE-CORRESPONDING itab_zycbt231 TO /pws/zycbt226.

PERFORM carrega_log USING '/PWS/ZYCBT226'

'U'

sy-tcode

'/PWS/SAPMZYCB034'

/pws/zycbt226-nrseq.

ENDIF.

* << Fim da inclusão

ENDIF.

ENDLOOP.

ENDFORM.

FORM busca_conta_ace

USING

value(p_wa_zycbt006) LIKE LINE OF itab_zycbt006[].

FIELD-SYMBOLS:

<fs_zyglt316> TYPE /pws/zyglt316.

DATA:

...

UNASSIGN <fs_zycbt006_aux>.

ELSE.

IF v_zycbe001-belnr2 IS INITIAL.

v_zycbe001-belnr2 = <fs_zycbe001>-belnr2.

v_zycbe001-dtvincul = <fs_zycbe001>-dtvincul.

ENDIF.

MODIFY /pws/zycbt084 FROM TABLE itab_zycbt084.

* >> Início da inclusão: FORM ATUALIZA_TAB_CONT_ERRO

LOOP AT itab_zycbt084.

MOVE-CORRESPONDING itab_zycbt084 TO /pws/zycbt084.

PERFORM carrega_log USING '/PWS/ZYCBT084'

'U'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt084-nrseqc.

ENDLOOP.

* << Fim da inclusão

ENDFORM.

FORM atualiza_zycbt069.

FIELD-SYMBOLS:

<fs_zycbt069> LIKE LINE OF itab_zycbt069[].

LOOP AT itab_zycbt069

ASSIGNING <fs_zycbt069>

WHERE

nrseqc EQ <fs_zycbt006>-nrseqc AND

nrinvoic EQ <fs_zycbt006>-nrinvoic AND

nrparcf EQ <fs_zycbt006>-nrparcf AND

...

ENDLOOP.

ENDFORM.

FORM atualiza_saldo_ordem.

<fs_zycbt226>-sld_exterior =

<fs_zycbt226>-sld_exterior + itab_zycbt231-vlme.

UPDATE /pws/zycbt226

SET belnr_op2 = <fs_zycbt226>-belnr_op2

dtlancto2 = <fs_zycbt226>-dtlancto2

sld_exterior = <fs_zycbt226>-sld_exterior

WHERE nrseq = itab_zycbt231-nrseq.

* >> Início da inclusão: FORM ATUALIZA_SALDO_ORDEM

IF sy-subrc EQ 0.

MOVE-CORRESPONDING itab_zycbt231 TO /pws/zycbt226.

PERFORM carrega_log USING '/PWS/ZYCBT226'

'U'

sy-tcode

'/PWS/SAPMZYCB034'

/pws/zycbt226-nrseq.

ENDIF.

* << Fim da inclusão

IF v_periodo_aberto IS INITIAL.

itab_zycbt030-vlslliq = itab_zycbt030-vlslliq +

itab_zycbt231-vlme.

ELSE.

itab_zycbt030-vlsltrans = itab_zycbt030-vlsltrans -

itab_zycbt231-vlme.

ENDIF.

MODIFY itab_zycbt030 TRANSPORTING vlsltrans vlslliq

WHERE nrinvoic = itab_zycbt006-nrinvoic

AND gsberf = itab_zycbt006-gsberf

AND nrparcf = itab_zycbt006-nrparcf.

* >> Início da inclusão: FORM ATUALIZA_SALDO_ORDEM

MOVE-CORRESPONDING itab_zycbt231 TO /pws/zycbt231.

PERFORM carrega_log USING '/PWS/ZYCBT231'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt231-nrseqc.

* << Fim da inclusão

DELETE FROM /pws/zycbt231 WHERE nrseq = itab_zycbt231-nrseq

AND nrseqc = itab_zycbt231-nrseqc

AND dtpagext = itab_zycbt231-dtpagext

AND dtpagto = itab_zycbt231-dtpagto.

DELETE itab_zycbt231.

IF v_vinculacao IS INITIAL.

COMMIT WORK.

ENDIF.

ENDFORM.

FORM selecao_faturas.

...

/pws/zycbt084-dtvincul = itab_zycbt006-dtvincul.

/pws/zycbt084-dtvencto = itab_zycbt006-dtvencto.

/pws/zycbt084-dtpagto = itab_zycbt006-dtpagto.

/pws/zycbt084-dtpagext = itab_zycbt006-dtpagext.

/pws/zycbt084-vbeln = itab_zycbt030-vbeln.

/pws/zycbt084-belnr = itab_zycbt032-belnr.

/pws/zycbt084-liq_and = space.

/pws/zycbt084-result_saldo = itab_zycbe033-wrbtr.

/pws/zycbt084-tdesmemb = 'V'.

MODIFY /pws/zycbt084 FROM /pws/zycbt084.

* >> Início da inclusão: FORM LANCAMENTO_LIQUID_F_02

PERFORM carrega_log USING '/PWS/ZYCBT084'

'U'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt084-nrseqc.

* << Fim da inclusão

IF v_vinculacao IS INITIAL.

COMMIT WORK.

ENDIF.

CLEAR itab_zycbt084.

itab_zycbt084-nrseqc = itab_zycbt006-nrseqc.

itab_zycbt084-tpdesp = itab_zycbt006-tpdesp.

itab_zycbt084-nrparc = itab_zycbt006-nrparc.

itab_zycbt084-dtincl = itab_zycbt006-dtincl.

itab_zycbt084-nrinvoic = itab_zycbt006-nrinvoic.

itab_zycbt084-nrparcf = itab_zycbt006-nrparcf.

...

itab_contabil-nrinvoic = itab_zycbt006-nrinvoic.

CLEAR itab_contabil-vbeln.

itab_contabil-nrparcf = itab_zycbt006-nrparcf.

itab_contabil-gsberf = itab_zycbe033-c_gsber.

itab_contabil-docto = itab_zycbt032-belnr.

itab_contabil-msg = text-457.

itab_contabil-bukrs = itab_zycbe033-bukrs.

itab_contabil-dtdocto = itab_zycbt006-dtpagto.

APPEND itab_contabil.

ELSE.

* >> Início da inclusão: FORM LANCAMENTO_LIQUID_F_02

REFRESH itab_zycbt084_aud.

SELECT * FROM /pws/zycbt084

INTO TABLE itab_zycbt084_aud

WHERE nrseqc = itab_zycbt006-nrseqc

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparc = itab_zycbt006-nrparc

AND nrparcf = itab_zycbt006-nrparcf

AND tpdesp = itab_zycbt006-tpdesp

AND gsberf = itab_zycbt006-gsberf

AND dtincl = itab_zycbt006-dtincl

AND dtvincul = itab_zycbt006-dtvincul

AND dtpagext = itab_zycbt006-dtpagext

AND dtpagto = itab_zycbt006-dtpagto

AND dtvencto = itab_zycbt006-dtvencto

AND liq_and = space

AND tdesmemb = 'V'.

LOOP AT itab_zycbt084_aud.

MOVE-CORRESPONDING itab_zycbt084_aud TO /pws/zycbt084.

PERFORM carrega_log USING '/PWS/ZYCBT084'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt006-nrseqc.

ENDLOOP.

* << Fim da inclusão

DELETE FROM /pws/zycbt084

WHERE nrseqc = itab_zycbt006-nrseqc

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparc = itab_zycbt006-nrparc

AND nrparcf = itab_zycbt006-nrparcf

AND tpdesp = itab_zycbt006-tpdesp

AND gsberf = itab_zycbt006-gsberf

AND dtincl = itab_zycbt006-dtincl

AND dtvincul = itab_zycbt006-dtvincul

AND dtpagext = itab_zycbt006-dtpagext

...

dtpagto = itab_zycbt006-dtpagto

dtpagext = itab_zycbt006-dtpagext.

IF sy-subrc = 0.

wa_zycbt226-sld_exterior = wa_zycbt226-sld_exterior +

itab_zycbt231-vlme.

MODIFY itab_zycbt226 FROM wa_zycbt226.

DELETE itab_zycbt231 WHERE nrseq = wa_zycbt226-nrseq

AND nrseqc = /pws/zycbe001-nrseqc

AND dtpagto = itab_zycbt006-dtpagto

AND dtpagext = itab_zycbt006-dtpagext.

* >> Início da inclusão: FORM ATUALIZA_SALDO_ORDEM_ESTORNO

MOVE-CORRESPONDING itab_zycbt231 TO /pws/zycbt231.

PERFORM carrega_log USING '/PWS/ZYCBT231'

'D'

sy-tcode

'/PWS/SAPMZYCB001'

itab_zycbt231-nrseqc.

* << Fim da inclusão

DELETE FROM /pws/zycbt231

WHERE nrseq = wa_zycbt226-nrseq

AND nrseqc = /pws/zycbe001-nrseqc

AND dtpagto = itab_zycbt006-dtpagto

AND dtpagext = itab_zycbt006-dtpagext.

ENDIF.

ENDLOOP.

MODIFY /pws/zycbt226 FROM TABLE itab_zycbt226.

* >> Início da inclusão: FORM ATUALIZA_SALDO_ORDEM_ESTORNO

LOOP AT itab_zycbt226 INTO /pws/zycbt226.

PERFORM carrega_log USING '/PWS/ZYCBT226'

'U'

sy-tcode

'/PWS/SAPMZYCB034'

/pws/zycbt226-nrseq.

ENDLOOP.

* << Fim da inclusão

ENDFORM.

FORM atualiza_saldo_ordem_ida.

CLEAR v_subrc.

LOOP AT itab_zycbt226 INTO wa_zycbt226

WHERE nrinvoic = itab_zycbt006-nrinvoic

AND gsberf = itab_zycbt006-gsberf

AND nrparcf = itab_zycbt006-nrparcf.

v_subrc = v_subrc + 1.

v_sld_exterior = wa_zycbt226-sld_exterior.

IF v_subrc = 1.

...

IF wa_zycbt226-sld_exterior IS INITIAL.

itab_zycbt231-vlme = v_sld_exterior.

ELSE.

itab_zycbt231-vlme = v_sld_exterior -

wa_zycbt226-sld_exterior.

ENDIF.

APPEND itab_zycbt231.

ENDLOOP.

MODIFY /pws/zycbt226 FROM TABLE itab_zycbt226.

MODIFY /pws/zycbt231 FROM TABLE itab_zycbt231.

* >> Início da inclusão: FORM ATUALIZA_SALDO_ORDEM_IDA

LOOP AT itab_zycbt226 INTO /pws/zycbt226.

PERFORM carrega_log USING '/PWS/ZYCBT226'

'U'

sy-tcode

'/PWS/SAPMZYCB034'

/pws/zycbt226-nrseq.

ENDLOOP.

LOOP AT itab_zycbt231.

MOVE-CORRESPONDING itab_zycbt231 TO /pws/zycbt231.

PERFORM carrega_log USING '/PWS/ZYCBT231'

'U'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt231-nrseqc.

ENDLOOP.

* << Fim da inclusão

ENDFORM.

FORM consiste_saldos_erro.

SELECT SINGLE slpagar FROM /pws/zycbt001

INTO /pws/zycbe001-slpagar

WHERE nrseqc = /pws/zycbe001-nrseqc.

LOOP AT itab_zycbt006 WHERE status NE 'C'.

READ TABLE itab_zycbt005

WITH KEY nrinvoic = itab_zycbt006-nrinvoic

gsberf = itab_zycbt006-gsberf

nrparcf = itab_zycbt006-nrparcf

...

AND nrparc = itab_zycbt006-nrparc

AND dtincl = itab_zycbt006-dtincl

AND nrinvoic = itab_zycbt006-nrinvoic

AND nrparcf = itab_zycbt006-nrparcf

AND gsberf = itab_zycbt006-gsberf

AND dtvincul = itab_zycbt006-dtvincul

AND dtvencto = itab_zycbt006-dtvencto.

ENDIF.

ENDLOOP.

MODIFY /pws/zycbt005 FROM TABLE itab_zycbt005.

* >> Início da inclusão: FORM CONSISTE_SALDOS_ERRO

LOOP AT itab_zycbt005.

MOVE-CORRESPONDING itab_zycbt005 TO /pws/zycbt005.

PERFORM carrega_log USING '/PWS/ZYCBT005'

'U'

sy-tcode

'/PWS/SAPMZYCB009'

/pws/zycbt005-nrseqc.

ENDLOOP.

* << Fim da inclusão

itab_zycbt005-dtpagext = /pws/zycbe006-dtpagext.

MODIFY itab_zycbt005 TRANSPORTING dtpagext

WHERE nrseqc = /pws/zycbe001-nrseqc.

MOVE-CORRESPONDING /pws/zycbe001 TO /pws/zycbt001.

MODIFY /pws/zycbt001.

* >> Início da inclusão: FORM CONSISTE_SALDOS_ERRO

PERFORM carrega_log USING '/PWS/ZYCBT001'

'U'

sy-tcode

'/PWS/SAPMZYCB001'

/pws/zycbt001-nrseqc.

* << Fim da inclusão

ENDFORM.

FORM oculta_deduz_juros.

IF v_check_flag_deduz IS INITIAL.

CLEAR vg_flag.

DESCRIBE TABLE itab_zycbt005 LINES v_linha.

READ TABLE itab_zycbt005 WITH KEY deduz_juros = 'X'.

IF sy-subrc = 0 AND v_linha = 1.

vg_flag = 'X'.

ELSEIF sy-subrc = 0 AND v_linha > 1.

READ TABLE itab_zycbt005 WITH KEY deduz_juros = ' '.

...

AND tpdesp = itab_zycbt006_carga-tpdesp

AND nrparc = itab_zycbt006_carga-nrparc

AND dtincl = itab_zycbt006_carga-dtincl

AND nrinvoic = itab_zycbt006_carga-nrinvoic

AND nrparcf = itab_zycbt006_carga-nrparcf

AND gsberf = itab_zycbt006_carga-gsberf

AND dtvincul = itab_zycbt006_carga-dtvincul

AND dtvencto = itab_zycbt006_carga-dtvencto

AND dtpagto = itab_zycbt006_carga-dtpagto

AND dtpagext = itab_zycbt006_carga-dtpagext.

* >> Início da inclusão: FORM CARGA_VALOR_CONTRATO

PERFORM carrega_log USING '/PWS/ZYCBT006'

'X'

sy-tcode

SY-REPID

itab_zycbt006_carga-nrseqc.

* << Fim da inclusão

ENDIF.

ENDLOOP.

REFRESH: itab_zycbt006_carga, itab_zycbt005_carga.

IF v_vinculacao IS INITIAL.

COMMIT WORK.

ENDIF.

ENDFORM.

FORM determina_fator_carga USING p_bukrs

p_defator

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCB004I01

...

WHEN 'OBJRES'.

CLEAR cont.

LOOP AT itab_zycbt005 WHERE mark EQ 'X'.

cont = cont + 1.

ENDLOOP.

IF cont EQ 1.

CALL SCREEN '0101' STARTING AT 3 3.

ELSE.

MESSAGE i015 WITH text-190.

ENDIF.

* >> Início da inclusão: MODULE USER_COMMAND_0100

when 'LOG_TRILHA'.

perform log_trilha using sy-repid

/pws/zycbe001-nrseqc

' '.

* << Fim da inclusão

ENDCASE.

CLEAR: ok_code.

ENDMODULE.

MODULE user_command_exit INPUT.

CASE sy-dynnr.

WHEN '0010'.

SET SCREEN 0.

LEAVE SCREEN.

WHEN '0011'.

SET SCREEN 0.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCB004O01

module status_0100 output.

data: v_fat_sbu.

* >> Início da inclusão: MODULE STATUS_0100

DATA: v_trilha_auditoria TYPE /pws/zyglt009-trilha_auditoria.

* << Fim da inclusão

if v_trans eq '3'.

itab_pf_status-fcode = 'DELE'.

append itab_pf_status.

itab_pf_status-fcode = 'SAVE'.

append itab_pf_status.

* >> Início da inclusão: MODULE STATUS_0100

APPEND itab_pf_status.

ENDIF.

CLEAR v_trilha_auditoria.

SELECT trilha_auditoria FROM /pws/zyglt009

INTO v_trilha_auditoria

UP TO 1 ROWS

WHERE bukrs = space.

ENDSELECT.

IF v_trilha_auditoria IS INITIAL OR

sy-tcode = c_transacao_c.

itab_pf_status-fcode = 'LOG_TRILHA'.

* << Fim da inclusão

append itab_pf_status.

endif.

call customer-function '042'

exporting

v_sbu = v_sbu

v_tcode = sy-tcode

importing

v_fat_sbu = v_fat_sbu

tables

itab_zycbt005 = itab_zycbt005.

...

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCB004TOP

...

t001a,

/pws/zycbt009,

/pws/zyglt009,

/pws/zycbt003,

/pws/zyglt364,

/pws/zycbt154,

j_1bbranch,

adrc,

t001,

/pws/zycbt074,

* >> Início da exclusão:

bseg.

* << Fim da exclusão

* >> Início da inclusão:

bseg,

/pws/zycbt209,

/pws/zycbt219.

* << Fim da inclusão

FIELD-SYMBOLS: <fs_zycbt226> TYPE t_s_ordem,

<fs_zycbt225> TYPE t_s_liqand,

<fs_liqand> TYPE t_s_liqand-vlme,

<fs_vltrans> TYPE t_s_liqand-vlme.

CONSTANTS: c_transacao_c(14) VALUE '/PWS/ZYCB004_C',

c_transacao_a(14) VALUE '/PWS/ZYCB004_A',

c_transacao_cap(16) VALUE '/PWS/ZYCB004_CAP',

c_transacao_e(14) VALUE '/PWS/ZYCB004_E'.

DEFINE preenche_erro.

data:

...

augbl TYPE bsas-augbl,

gjahr LIKE bsas-gjahr,

belnr LIKE bsas-belnr,

bschl LIKE bsas-bschl,

gsber LIKE bsas-gsber,

wrbtr LIKE bsas-wrbtr,

sgtxt LIKE bsas-sgtxt,

zuonr LIKE bsas-zuonr,

budat LIKE bsas-budat,

END OF itab_bsas_aux.

* >> Início da inclusão:

data: itab_zycbt084_aud type /pws/zycbt084 occurs 0 with header line,

itab_zycbt004_aud type /pws/zycbt004 occurs 0 with header line,

itab_zycbt154_aud type /pws/zycbt154 occurs 0 with header line,

itab_zycbt030_aud type /pws/zycbt030 occurs 0 with header line,

itab_zycbt005_aud type /pws/zycbt005 occurs 0 with header line,

itab_zycbt006_aud type /pws/zycbt006 occurs 0 with header line,

itab_zycbt226_aud type /pws/zycbt226 occurs 0 with header line,

itab_zycbt069_aud type /pws/zycbt069 occurs 0 with header line.

* << Fim da inclusão

TYPE-POOLS: sydes.

DATA: t_sydes TYPE sydes_desc,

wa_types TYPE sydes_typeinfo,

v_len TYPE i.

DATA:

wa_zycbt009 LIKE /pws/zycbt009,

wa_zycbt011 LIKE /pws/zycbt011,

wa_zycbt011_d LIKE /pws/zycbt011,

wa_t001w LIKE t001w.

CONTROLS:

...

v_campo(35) TYPE c.

DATA: BEGIN OF itab_zycbt006_ca OCCURS 0.

INCLUDE STRUCTURE /pws/zycbt006.

DATA: END OF itab_zycbt006_ca.

DATA: v_line TYPE n.

DATA: v_vlme TYPE /pws/zycet013-vlme,

v_belnr_cg TYPE /pws/zycet013-belnr.

DATA: v_loop TYPE i .

DATA: v_total_liq LIKE /pws/zycbt006-vlme.

DATA: v_ms(5) TYPE c.

* >> Início da inclusão:

data: v_identificador type /pws/zyglt390-identificador.

* << Fim da inclusão

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/SAPMZYCB004

INCLUDE /PWS/MZYCB004TOP.

INCLUDE /PWS/MZYCB004O01.

INCLUDE /PWS/MZYCB004I01.

INCLUDE /PWS/MZYCB004F01.

INCLUDE /PWS/MZYCB004F02.

INCLUDE /PWS/MZYCB004F03.

INCLUDE /PWS/MZYCB004H01.

* >> Início da inclusão:

include /pws/zygllog.

* << Fim da inclusão