CE PLUS - Nota 006118
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Relatórios
Data/Hora da Publicação: 06/03/2008 00:00:00
Data/Hora Última Alteração: 03/03/2010 17:57:25
Descrição da Nota: CB - 445631 - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA.
Sintoma
CB - 445631 - Code Inspector e Verificação Ampliada.
Solução
CB - 445631 - Code Inspector e Verificação Ampliada.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06118 Data: 06/03/2008 Hora: 14:25:53
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06118
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00004
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
CB - 445631 - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA.
----------------------------------------------------------------------------------------------------
Palavras Chave:
CB - 445631 - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA.
----------------------------------------------------------------------------------------------------
Objetos da nota:
RELE F6DK958925 20080306 142153 PWSCB
REPS /PWS/MZYCA110F01
REPS /PWS/MZYCB110F01
REPS /PWS/MZYCB110I01
REPS /PWS/MZYCB110O01
REPS /PWS/MZYCM110F01
REPS /PWS/MZYGL110F01
REPT /PWS/SAPMZYCB110
----------------------------------------------------------------------------------------------------
Modificações efetuadas em RELE F6DK958925 20080306 142153 PWSCB
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA110F01
...
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-63'
tabela = '/PWS/ZYCBT031'
cpochv = /pws/zycbe031-nrseq
tpmsg = 'S'.
IF sy-subrc EQ 0.
CLEAR itab_zycbt064.
REFRESH itab_zycbt064.
SELECT * FROM /pws/zycbt064
INTO TABLE itab_zycbt064
WHERE nrboleto EQ /pws/zycbe031-nrseq
* >> Início da exclusão: FORM FILL_DATE_F-63_CE
AND dtboleto EQ /pws/zycbe031-dtboleto.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-63_CE
AND dtboleto EQ /pws/zycbe031-dtboleto."#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_zycbt064.
CLEAR wa_zycbt129.
SELECT SINGLE * FROM /pws/zycbt129
INTO wa_zycbt129
WHERE nrseq EQ itab_zycbt064-nrchave
AND nrparc EQ itab_zycbt064-nrparc
AND tpparc EQ itab_zycbt064-tpparc.
CLEAR wa_zycbt128.
SELECT SINGLE * FROM /pws/zycbt128
INTO wa_zycbt128
...
...
v_trans = 'F-51'.
ELSEIF wa_zycbt118-frpagto = 'R'.
v_codeven = '006DB'.
v_trans = 'F-02'.
ENDIF.
ENDIF.
REFRESH itab_zyglt321.
SELECT *
FROM /pws/zyglt321
INTO TABLE itab_zyglt321
* >> Início da exclusão: FORM GET_PARAMETERS_118E031CD
WHERE codeven = v_codeven.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_118E031CD
WHERE codeven = v_codeven."#EC CI_NOFIRST
* << Fim da inclusão
v_evento = v_codeven.
REFRESH itab_zycbt012.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012
WHERE codeven = v_codeven
AND codmod = 'F'.
SELECT SINGLE * FROM /pws/zycbt011
INTO wa_zycbt011
WHERE codeven = v_codeven
AND codmod = 'F'
...
...
WHERE bukrs EQ /pws/zycbe031-bukrs.
SELECT SINGLE * FROM /pws/zycbt089
WHERE bukrs EQ /pws/zycbe031-bukrs.
SELECT SINGLE * FROM /pws/zyglt009
WHERE bukrs EQ /pws/zycbe031-bukrs.
SELECT * FROM /pws/zycat024 INTO TABLE itab_zycat024
WHERE bukrs = /pws/zycbe031-bukrs.
IF itab_zycbt064[] IS INITIAL.
SELECT * FROM /pws/zycbt064
INTO TABLE itab_zycbt064
* >> Início da exclusão: FORM SELECIONAR_CP
WHERE nrboleto = /pws/zycbe031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_CP
WHERE nrboleto = /pws/zycbe031-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
IF NOT itab_zycbt064[] IS INITIAL AND
itab_zycbt124_aux[] IS INITIAL.
SELECT * FROM /pws/zycbt124 INTO TABLE itab_zycbt124_aux
FOR ALL ENTRIES IN itab_zycbt064
WHERE nrseq EQ itab_zycbt064-nrchave.
ENDIF.
IF itab_dados_tc[] IS INITIAL.
READ TABLE itab_zycbt124_aux INDEX 1.
IF sy-subrc = 0.
...
...
'S' TO itab_boleto-fcamb.
APPEND itab_boleto.
ENDLOOP.
CLEAR: v_tipo2, v_taxa_dia, itab_zycbt129, /pws/zycbt128, itab_boleto.
ENDFORM.
FORM selecionar_pagto_cfinan.
IF itab_zycbt124[] IS INITIAL.
IF itab_zycbt064[] IS INITIAL.
SELECT * FROM /pws/zycbt064
INTO TABLE itab_zycbt064
* >> Início da exclusão: FORM SELECIONAR_PAGTO_CFINAN
WHERE nrboleto = /pws/zycbe031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_PAGTO_CFINAN
WHERE nrboleto = /pws/zycbe031-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
IF NOT itab_zycbt064[] IS INITIAL.
SELECT * FROM /pws/zycbt124
INTO TABLE itab_zycbt124
FOR ALL ENTRIES IN itab_zycbt064
WHERE nrseq = itab_zycbt064-nrchave.
IF itab_zycat025[] IS INITIAL AND NOT itab_zycbt124[] IS INITIAL.
SELECT * FROM /pws/zycat025
INTO TABLE itab_zycat025
FOR ALL ENTRIES IN itab_zycbt124
...
...
itab_zycbe033-agums = wa_zycbt011-agums.
itab_zycbe033-agkoa = wa_zycbt011-koart.
itab_zycbt036-tcode = text-066.
itab_zycbt036-tabela = text-110.
itab_zycbt036-cpochv = /pws/zycbe031-nrseq.
CLEAR itab_zycbt064.
REFRESH itab_zycbt064.
SELECT * FROM /pws/zycbt064
INTO TABLE itab_zycbt064
WHERE nrboleto EQ /pws/zycbe031-nrseq
* >> Início da exclusão: FORM EXECUTA_CLEARING_EMP
AND dtboleto EQ /pws/zycbe031-dtboleto.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_EMP
AND dtboleto EQ /pws/zycbe031-dtboleto."#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_zycbt064.
CLEAR v_nrparc.
v_nrparc = itab_zycbt064-nrparc.
CLEAR wa_zycbt129.
SELECT SINGLE * FROM /pws/zycbt129
INTO wa_zycbt129
WHERE nrseq EQ itab_zycbt064-nrchave
AND nrparc EQ v_nrparc
AND tpparc EQ itab_zycbt064-tpparc.
CLEAR /pws/zycbt128.
...
...
ELSE.
EXIT.
ENDIF.
ENDIF.
itab_zycbe033-d_gsber = wa_pa0017-gsber.
itab_zycbe033-c_gsber = wa_pa0017-gsber.
CLEAR cskb.
SELECT SINGLE datbi FROM cskb
INTO cskb-datbi
WHERE kstar EQ itab_zycbe033-d_newko
* >> Início da exclusão: FORM CONTABILIZA_F02_TV_FUNC
AND datbi > /pws/zycbe031-dtcredpr.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_F02_TV_FUNC
AND datbi > /pws/zycbe031-dtcredpr."#EC CI_GENBUFF
* << Fim da inclusão
IF sy-subrc EQ 0.
itab_zycbe033-d_kostl = wa_pa0017-kostl.
itab_zycbe033-c_kostl = wa_pa0017-kostl.
ENDIF.
IF wa_zyglt009-infpernr EQ 'X'.
itab_zycbe033-pernr = /pws/zycbe031-lifnr.
ENDIF.
APPEND itab_zycbe033.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
...
...
AND bukrs = /pws/zycbe031-bukrs.
REFRESH itab_zycbt012.
CLEAR itab_zycbt012.
SELECT * FROM /pws/zycbt012
INTO TABLE itab_zycbt012
WHERE codeven = v_codeven
AND codmod = 'T'.
CLEAR wa_ftpt_req_advance.
SELECT SINGLE * FROM ftpt_req_advance
INTO wa_ftpt_req_advance
* >> Início da exclusão: FORM GET_PARAMETERS_TV
WHERE reinr EQ /pws/zycbe031-nrcorresp.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_TV
WHERE reinr EQ /pws/zycbe031-nrcorresp."#EC CI_NOFIRST
* << Fim da inclusão
CLEAR wa_pa0017.
SELECT SINGLE * FROM pa0017
INTO wa_pa0017
WHERE pernr EQ wa_ftpt_req_advance-pernr.
ENDFORM.
FORM estorna_doctos_tv.
PERFORM clear_date_batch.
DATA: v_belnr LIKE /pws/zycbe031-belnr_p,
v_monat LIKE t001b-frpe1,
wa_bkpf LIKE bkpf.
...
...
CLEAR: wa_zycbt118-belnr_p,
wa_zycbt118-dtpagto.
MODIFY /pws/zycbt118 FROM wa_zycbt118.
WHEN 'IP'.
CLEAR itab_zycbt064.
REFRESH itab_zycbt064.
SELECT *
FROM /pws/zycbt064
INTO TABLE itab_zycbt064
WHERE nrboleto EQ /pws/zycbe031-nrseq AND
* >> Início da exclusão: FORM ESTORNA_COMPENS
dtboleto EQ /pws/zycbe031-dtboleto.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_COMPENS
dtboleto EQ /pws/zycbe031-dtboleto."#EC CI_NOFIRST
* << Fim da inclusão
IF /pws/zycbe031-nrparc NE ' ' AND
/pws/zycbe031-nrparc NE '000'.
LOOP AT itab_zycbt064.
READ TABLE itab_zycmt005 WITH KEY
nrseq = itab_zycbt064-nrchave
nrparc = itab_zycbt064-nrparc.
CLEAR: itab_zycmt005-belnr_pag,
itab_zycmt005-belnr_resid,
itab_zycmt005-dtpagto.
MODIFY itab_zycmt005 INDEX sy-tabix.
UPDATE /pws/zycmt005 SET belnr_pag = space
belnr_resid = space
dtpagto = space
WHERE nrseq EQ itab_zycbt064-nrchave
AND nrparc EQ itab_zycbt064-nrparc.
CLEAR wa_zycbt108.
SELECT SINGLE * FROM /pws/zycbt108
INTO wa_zycbt108
* >> Início da exclusão: FORM ESTORNA_COMPENS
WHERE nrseq_pgfat EQ itab_zycbt064-nrchave.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_COMPENS
WHERE nrseq_pgfat EQ itab_zycbt064-nrchave."#EC CI_NOFIRST
* << Fim da inclusão
wa_zycbt108-slfat =
wa_zycbt108-slfat + itab_zycmt005-valor.
MODIFY /pws/zycbt108 FROM wa_zycbt108.
CLEAR wa_zycbt119.
SELECT SINGLE * FROM /pws/zycbt119
INTO wa_zycbt119
WHERE nrseq EQ itab_zycbt064-nrchave.
wa_zycbt119-slpgfat = wa_zycbt119-slpgfat +
itab_zycmt005-valor.
MODIFY /pws/zycbt119 FROM wa_zycbt119.
...
...
SELECT SINGLE * FROM /pws/zycbt119
INTO wa_zycbt119
WHERE nrseq EQ itab_zycbt064-nrchave.
wa_zycbt119-statusp = 'I'.
CLEAR: wa_zycbt119-belnr_p,
wa_zycbt119-belnr51,
wa_zycbt119-dtpagto.
CLEAR wa_zycbt108.
SELECT SINGLE * FROM /pws/zycbt108
INTO wa_zycbt108
* >> Início da exclusão: FORM ESTORNA_COMPENS
WHERE nrseq_pgfat EQ itab_zycbt064-nrchave.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_COMPENS
WHERE nrseq_pgfat EQ itab_zycbt064-nrchave."#EC CI_NOFIRST
* << Fim da inclusão
CLEAR /pws/zycit006.
SELECT SINGLE * FROM /pws/zycit006 INTO /pws/zycit006
WHERE nrseq = /pws/zycbe119-nrpagto
AND nrseq_pgfat = /pws/zycbe119-nrseq.
IF sy-subrc EQ 0 OR NOT wa_zycbt108-belnr_co IS INITIAL.
wa_zycbt119-slpgfat =
wa_zycbt119-slpgfat + itab_zycbt064-vlme.
wa_zycbt108-slfat =
wa_zycbt108-slfat + itab_zycbt064-vlme.
ENDIF.
...
...
CLEAR: wa_zycbt124-belnr_p,
wa_zycbt124-dtpagto.
MODIFY /pws/zycbt124 FROM wa_zycbt124.
WHEN 'CE'.
CLEAR itab_zycbt064.
REFRESH itab_zycbt064.
SELECT *
FROM /pws/zycbt064
INTO TABLE itab_zycbt064
WHERE nrboleto EQ /pws/zycbe031-nrseq AND
* >> Início da exclusão: FORM ESTORNA_COMPENS
dtboleto EQ /pws/zycbe031-dtboleto.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_COMPENS
dtboleto EQ /pws/zycbe031-dtboleto."#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_zycbt064.
CLEAR wa_zycbt129.
SELECT SINGLE * FROM /pws/zycbt129
INTO wa_zycbt129
WHERE nrseq EQ itab_zycbt064-nrchave
AND nrparc EQ itab_zycbt064-nrparc
AND tpparc EQ itab_zycbt064-tpparc.
CLEAR wa_zycbt128.
SELECT SINGLE * FROM /pws/zycbt128
INTO wa_zycbt128
...
...
IF NOT wa_despesa-frpagto = 'C' OR
( wa_despesa-tpcontr(1) CA 'PS' AND
wa_despesa-tpdesp EQ 'J' ).
CLEAR: wa_despesa-belnr.
ENDIF.
FREE: itab_zycbt064_aux, itab_zycbt004_aux.
SELECT nrchave nrinvoic nrparc dtliquid tpjuros
tpdesp dtincl
FROM /pws/zycbt064
INTO TABLE itab_zycbt064_aux
* >> Início da exclusão: FORM ESTORNA_COMPENS
WHERE nrboleto EQ /pws/zycbe031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_COMPENS
WHERE nrboleto EQ /pws/zycbe031-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
IF NOT itab_zycbt064_aux[] IS INITIAL.
SELECT nrseqc tpdesp nrparc dtincl nrcontr tpcontr
dtliquid tpjuros frpagto belnr nrinvoic
FROM /pws/zycbt004
INTO TABLE itab_zycbt004_aux
FOR ALL ENTRIES IN itab_zycbt064_aux
WHERE nrseqc EQ itab_zycbt064_aux-nrchave(8)
AND tpdesp EQ itab_zycbt064_aux-tpdesp
AND nrparc EQ itab_zycbt064_aux-nrparc
AND dtincl EQ itab_zycbt064_aux-dtincl
...
...
tpdesp = /pws/zycbe031-tpdesp.
ENDIF.
WHEN 'EJ'.
CLEAR: wa_zycbt086-belnr_p,
wa_zycbt086-belnr_pi,
wa_zycbt086-dtpagto.
FREE: itab_zycbt064_aux, itab_zycbt086_aux.
SELECT nrchave nrinvoic nrparc dtliquid tpjuros
FROM /pws/zycbt064
INTO TABLE itab_zycbt064_aux
* >> Início da exclusão: FORM ESTORNA_COMPENS
WHERE nrboleto EQ /pws/zycbe031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_COMPENS
WHERE nrboleto EQ /pws/zycbe031-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
IF NOT itab_zycbt064_aux[] IS INITIAL.
SELECT nrseq
FROM /pws/zycbt086
INTO TABLE itab_zycbt086_aux
FOR ALL ENTRIES IN itab_zycbt064_aux
WHERE nrseq EQ itab_zycbt064_aux-nrchave(8).
ENDIF.
LOOP AT itab_zycbt064_aux.
READ TABLE itab_zycbt086_aux WITH KEY
nrseq = itab_zycbt064_aux-nrchave(8).
...
...
ENDCASE.
ELSE.
CASE /pws/zycbe031-mdcorresp.
WHEN 'IF'.
CLEAR itab_zycbt064.
REFRESH itab_zycbt064.
SELECT *
FROM /pws/zycbt064
INTO TABLE itab_zycbt064
WHERE nrboleto EQ /pws/zycbe031-nrseq AND
* >> Início da exclusão: FORM ESTORNA_COMPENS
dtboleto EQ /pws/zycbe031-dtboleto.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_COMPENS
dtboleto EQ /pws/zycbe031-dtboleto."#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_zycbt064.
CLEAR wa_zycbt113.
SELECT SINGLE * FROM /pws/zycbt113
INTO wa_zycbt113
WHERE nrseq EQ itab_zycbt064-nrchave
AND nrparc EQ itab_zycbt064-nrparc
AND tpparc EQ itab_zycbt064-tpparc.
CLEAR wa_zycbt112.
SELECT SINGLE * FROM /pws/zycbt112
INTO wa_zycbt112
...
...
MODIFY /pws/zycbt112 FROM wa_zycbt112.
ENDIF.
ENDLOOP.
WHEN 'CE'.
CLEAR itab_zycbt064.
REFRESH itab_zycbt064.
SELECT *
FROM /pws/zycbt064
INTO TABLE itab_zycbt064
WHERE nrboleto EQ /pws/zycbe031-nrseq AND
* >> Início da exclusão: FORM ESTORNA_COMPENS
dtboleto EQ /pws/zycbe031-dtboleto.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_COMPENS
dtboleto EQ /pws/zycbe031-dtboleto."#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_zycbt064.
CLEAR wa_zycbt129.
SELECT SINGLE * FROM /pws/zycbt129
INTO wa_zycbt129
WHERE nrseq EQ itab_zycbt064-nrchave
AND nrparc EQ itab_zycbt064-nrparc
AND tpparc EQ itab_zycbt064-tpparc.
CLEAR wa_zycbt128.
SELECT SINGLE * FROM /pws/zycbt128
INTO wa_zycbt128
...
...
itab_zycbe033-c_zuonr = p_tpimp.
ELSEIF itab_zyglt321-cpocb IS INITIAL AND
NOT itab_zyglt321-descr IS INITIAL.
itab_zycbe033-c_zuonr = itab_zyglt321-descr.
ENDIF.
ENDCASE.
ENDLOOP.
IF /pws/zycbt125-tprem NE 2.
CALL CUSTOMER-FUNCTION '016'
TABLES
* >> Início da exclusão: FORM COMPENSA_EMPRESA_CP
t_dados = itab_zycbe033.
* << Fim da exclusão
* >> Início da inclusão: FORM COMPENSA_EMPRESA_CP
t_dados = itab_zycbe033."#EC *
* << Fim da inclusão
APPEND itab_zycbe033.
ELSE.
CALL CUSTOMER-FUNCTION '075'
TABLES
* >> Início da exclusão: FORM COMPENSA_EMPRESA_CP
t_dados = itab_zycbe033.
* << Fim da exclusão
* >> Início da inclusão: FORM COMPENSA_EMPRESA_CP
t_dados = itab_zycbe033."#EC *
* << Fim da inclusão
MODIFY itab_zycbe033 INDEX 1.
ENDIF.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
IF itab_zycbt034[] IS INITIAL.
CALL FUNCTION '/PWS/ZYGL_TRANSACAO_F_51K'
EXPORTING
v_modo = v_modo_bi
v_nfiltra_atrib = 'X'
...
...
APPEND itab_contas.
ENDIF.
ENDIF.
ENDLOOP.
v_area = itab_zycbt118-cod_area.
ENDFORM.
FORM carrega_dados_imp_cp.
IF NOT itab_zycbt064[] IS INITIAL.
SELECT * FROM /pws/zycat025 INTO TABLE itab_zycat025
FOR ALL ENTRIES IN itab_zycbt064
* >> Início da exclusão: FORM CARREGA_DADOS_IMP_CP
WHERE nrseq = itab_zycbt064-nrchave.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS_IMP_CP
WHERE nrseq = itab_zycbt064-nrchave."#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
CLEAR itab_dados_tc.
REFRESH itab_dados_tc.
itab_dados_tc-index = 0.
itab_dados_tc-tpimp = 'PRINCIPAL'.
itab_dados_tc-kursf = /pws/zycbe031-kursf.
itab_dados_tc-waers = /pws/zycbe031-waers.
itab_dados_tc-vlme = /pws/zycbe031-vlme.
itab_dados_tc-vlmi = /pws/zycbe031-vlmi.
itab_dados_tc-bcooper = /pws/zycbe031-bcooper.
...
...
ELSE.
IF NOT p_recontabiliza IS INITIAL AND p_recuperar IS INITIAL.
itab_zycat025-dtlanc = itab_dados_tc-dtlanc.
itab_zycat025-belnr_pr = itab_zycbt032-belnr.
MODIFY itab_zycat025 TRANSPORTING dtlanc belnr_pr
WHERE nrseq = itab_zycbt124_aux-nrseq
AND tpimp = p_tpimp.
UPDATE /pws/zycat025 SET dtlanc = itab_zycat025-dtlanc
belnr_pr = itab_zycat025-belnr_pr
WHERE nrseq = itab_zycbt124_aux-nrseq
* >> Início da exclusão: FORM CONTABILIZA_DOCTO_CP
AND tpimp = p_tpimp.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_DOCTO_CP
AND tpimp = p_tpimp."#EC CI_NOFIRST
* << Fim da inclusão
ELSE.
LOOP AT itab_zycbt124_aux.
LOOP AT itab_zycat025 WHERE tpimp = p_tpimp
AND nrseq = itab_zycbt124_aux-nrseq.
IF itab_zycat025-frpagto_imp = 'R'.
itab_zycat025-dtlanc = itab_dados_tc-dtlanc.
itab_zycat025-belnr_pr = itab_zycbt032-belnr.
ENDIF.
MODIFY itab_zycat025 TRANSPORTING dtlanc belnr_pr
WHERE nrseq = itab_zycbt124_aux-nrseq
AND tpimp = p_tpimp.
UPDATE /pws/zycat025 SET dtlanc = itab_zycat025-dtlanc
belnr_pr = itab_zycat025-belnr_pr
WHERE nrseq = itab_zycbt124_aux-nrseq
* >> Início da exclusão: FORM CONTABILIZA_DOCTO_CP
AND tpimp = p_tpimp.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_DOCTO_CP
AND tpimp = p_tpimp."#EC CI_NOFIRST
* << Fim da inclusão
ENDLOOP.
ENDLOOP.
IF p_tpimp(4) = 'IRRF'.
/pws/zycbe031-belnr_pi = itab_zycbt032-belnr.
ELSEIF p_tpimp(4) = 'CIDE'.
/pws/zycbe031-belnr_cide = itab_zycbt032-belnr.
ELSEIF p_tpimp(3) = 'IOF'.
/pws/zycbe145-belnr_iof = itab_zycbt032-belnr.
ELSEIF p_tpimp(3) = 'ISS'.
/pws/zycbe145-belnr_iss = itab_zycbt032-belnr.
...
...
LOOP AT itab_zycat025 WHERE tpimp = p_tpimp
AND nrseq = itab_zycbt124_aux-nrseq.
IF itab_zycat025-frpagto_imp = 'R'.
CLEAR: itab_zycat025-belnr_pr.
ENDIF.
MODIFY itab_zycat025 TRANSPORTING belnr_pr
WHERE nrseq = itab_zycbt124_aux-nrseq
AND tpimp = p_tpimp.
UPDATE /pws/zycat025 SET belnr_pr = itab_zycat025-belnr_pr
WHERE nrseq = itab_zycbt124_aux-nrseq
* >> Início da exclusão: FORM ESTORNA_DOCTO_CP
AND tpimp = p_tpimp.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_DOCTO_CP
AND tpimp = p_tpimp."#EC CI_NOFIRST
* << Fim da inclusão
ENDLOOP.
ENDLOOP.
IF p_tpimp(4) = 'IRRF'.
CLEAR: /pws/zycbe031-belnr_pi.
ELSEIF p_tpimp(4) = 'CIDE'.
CLEAR: /pws/zycbe031-belnr_cide.
ELSEIF p_tpimp(3) = 'IOF'.
CLEAR: /pws/zycbe145-belnr_iof.
ELSEIF p_tpimp(3) = 'ISS'.
CLEAR: /pws/zycbe145-belnr_iss.
...
...
UPDATE /pws/zycbt124
SET belnr_f51p = itab_zycbt124_aux-belnr_f51p
WHERE nrseq = itab_zycbt124_aux-nrseq.
ELSEIF sy-index = 2.
CLEAR: itab_zycat025-belnr_pr.
MODIFY itab_zycat025 TRANSPORTING belnr_pr
WHERE nrseq = itab_zycbt124_aux-nrseq
AND tpimp(4) = 'IRRF'.
UPDATE /pws/zycat025 SET belnr_pr = itab_zycat025-belnr_pr
WHERE nrseq = itab_zycbt124_aux-nrseq
* >> Início da exclusão: FORM ANULA_COMPENSACAO_CP
AND tpimp LIKE 'IRRF%'.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_COMPENSACAO_CP
AND tpimp LIKE 'IRRF%'."#EC CI_NOFIRST
* << Fim da inclusão
IF /pws/zycbe145-cod_fech NE 'TR'.
CLEAR: itab_dados_tc-belnr, /pws/zycbe031-belnr_pi.
MODIFY itab_dados_tc TRANSPORTING belnr
WHERE tpimp(4) = 'IRRF'.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
...
...
LOOP AT itab_zycat025 WHERE tpimp = p_tpimp
AND nrseq = itab_zycbt124_aux-nrseq.
IF itab_zycat025-frpagto_imp = 'R'.
CLEAR: itab_zycat025-belnr_pr.
ENDIF.
MODIFY itab_zycat025 TRANSPORTING belnr_pr
WHERE nrseq = itab_zycbt124_aux-nrseq
AND tpimp = p_tpimp.
UPDATE /pws/zycat025 SET belnr_pr = itab_zycat025-belnr_pr
WHERE nrseq = itab_zycbt124_aux-nrseq
* >> Início da exclusão: FORM ELIMINA_DOC_FBV0_CP
AND tpimp = p_tpimp.
* << Fim da exclusão
* >> Início da inclusão: FORM ELIMINA_DOC_FBV0_CP
AND tpimp = p_tpimp."#EC CI_NOFIRST
* << Fim da inclusão
ENDLOOP.
ENDLOOP.
IF p_tpimp(4) = 'IRRF'.
CLEAR: /pws/zycbe031-belnr_pi.
ELSEIF p_tpimp(4) = 'CIDE'.
CLEAR: /pws/zycbe031-belnr_cide.
ELSEIF p_tpimp(3) = 'IOF'.
CLEAR: /pws/zycbe145-belnr_iof.
ELSEIF p_tpimp(3) = 'ISS'.
CLEAR: /pws/zycbe145-belnr_iss.
...
...
CHANGING itab_zycat025-dtvencto.
ELSEIF sy-subrc = 0 AND
itab_zycat024-atualiza_dtvenct EQ 'S'.
itab_zycat025-dtvencto = /pws/zycbe031-dtvencto.
ENDIF.
IF itab_zycat025-dtvencto EQ wa_zycat025-dtvencto.
CONTINUE.
ENDIF.
UPDATE /pws/zycat025 SET dtvencto = itab_zycat025-dtvencto
WHERE nrseq = itab_zycat025-nrseq
* >> Início da exclusão: FORM ATUALIZA_DTVENCTO_IMP_CP
AND tpimp = itab_zycat025-tpimp.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_DTVENCTO_IMP_CP
AND tpimp = itab_zycat025-tpimp."#EC CI_NOFIRST
* << Fim da inclusão
MODIFY itab_zycat025 TRANSPORTING dtvencto
WHERE nrseq = itab_zycat025-nrseq
AND tpimp = itab_zycat025-tpimp.
IF itab_zycat025-frpagto_imp EQ 'C' AND
itab_zycat025-dtlanc NE itab_dados_tc-dtlanc.
CONTINUE.
ELSEIF itab_zycat025-frpagto_imp EQ 'C'.
PERFORM atualiza_dtvencto_fb02_cp USING /pws/zycbe031-bukrs
itab_zycat025-nrseq
itab_zycat025-tpimp
...
...
itab_zycat025-belnr_pr = itab_zycbt032-belnr.
IF NOT p_recontabiliza IS INITIAL.
itab_zycat025-dtlanc = itab_dados_tc-dtlanc.
ENDIF.
MODIFY itab_zycat025 TRANSPORTING dtlanc belnr_pr
WHERE tpimp(4) = 'IRRF'
AND nrseq = itab_zycbt124_aux-nrseq.
UPDATE /pws/zycat025 SET dtlanc = itab_zycat025-dtlanc
belnr_pr = itab_zycat025-belnr_pr
WHERE nrseq = itab_zycbt124_aux-nrseq
* >> Início da exclusão: FORM FILL_DATE_F_51_PRINC_IR_CP
AND tpimp LIKE 'IRRF%'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_PRINC_IR_CP
AND tpimp LIKE 'IRRF%'."#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
ELSE.
LOOP AT itab_zycbt032.
MESSAGE i015 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
ENDLOOP.
erro_bi = 'X'.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB110F01
...
PERFORM seleciona_dados_el.
LOOP AT itab_zycbt064.
IF /pws/zycet037-comis_provisao = '0' OR
/pws/zycet037-comis_provisao IS INITIAL.
READ TABLE itab_zycet010 WITH KEY nrseq = itab_zycbt064-nrchave
dtvencto = itab_zycbt064-dtvencto
lifnr = itab_zycbt064-lifnr.
SELECT SINGLE * FROM /pws/zycbt017
WHERE nrinvoic EQ itab_zycet010-nrseq.
SELECT * FROM /pws/zycbt037 UP TO 1 ROWS
* >> Início da exclusão: FORM SELECT_EXPORT
WHERE parvw EQ /pws/zycbt017-parvw.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_EXPORT
WHERE parvw EQ /pws/zycbt017-parvw."#EC CI_NOFIRST
* << Fim da inclusão
ENDSELECT.
MOVE:
itab_zycet010-nrseq TO itab_selreg-nrchave,
itab_zycet010-nrseq TO itab_selreg-docto,
itab_zycet010-dtvencto TO itab_selreg-dtvencto,
itab_zycet010-lifnr TO itab_selreg-lifnr,
/pws/zycbt037-codpad TO itab_selreg-codp.
IF sy-index = 2.
MOVE itab_zycet010-ir_calc TO itab_selreg-vlme.
ELSE.
...
...
APPEND itab_documentos.
ELSEIF /pws/zycet037-comis_provisao = '1'.
READ TABLE itab_zycet013 WITH KEY
nrseq = itab_zycbt064-nrinvoic(10)
lifnr = itab_zycbt064-lifnr
gsber = itab_zycbt064-gsberf
prctr = itab_zycbt064-prctr.
SELECT SINGLE * FROM /pws/zycbt017
WHERE nrinvoic EQ itab_zycet013-nrseq.
SELECT * FROM /pws/zycbt037 UP TO 1 ROWS
* >> Início da exclusão: FORM SELECT_EXPORT
WHERE parvw EQ /pws/zycbt017-parvw.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_EXPORT
WHERE parvw EQ /pws/zycbt017-parvw."#EC CI_NOFIRST
* << Fim da inclusão
ENDSELECT.
MOVE:
itab_zycet013-nrseq TO itab_selreg-nrchave,
itab_zycet013-nrseq TO itab_selreg-docto,
itab_zycet013-gsber TO itab_selreg-gsberf,
itab_zycet013-lifnr TO itab_selreg-lifnr,
itab_zycet013-prctr TO itab_selreg-prctr,
/pws/zycbt037-codpad TO itab_selreg-codp.
APPEND itab_selreg.
itab_documentos-tabela = '/PWS/ZYCET010'.
...
...
wa_zycbt086-dtpagto = /pws/zycbe031-dtcredpr.
CLEAR v_texto.
CONCATENATE itab_zycbt032-belnr text-019 INTO v_texto
SEPARATED BY space.
wa_zycbt086-belnr_p = itab_zycbt032-belnr.
/pws/zycbe031-belnr_p = itab_zycbt032-belnr.
MESSAGE i223 WITH v_texto.
FREE: itab_zycbt064_aux, itab_zycbt086_aux.
SELECT nrchave nrinvoic nrparc dtliquid FROM /pws/zycbt064
INTO TABLE itab_zycbt064_aux
* >> Início da exclusão: FORM FILL_DATE_F-02_EJ
WHERE nrboleto EQ /pws/zycbe031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-02_EJ
WHERE nrboleto EQ /pws/zycbe031-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
IF NOT itab_zycbt064_aux[] IS INITIAL.
SELECT nrseq
FROM /pws/zycbt086
INTO TABLE itab_zycbt086_aux
FOR ALL ENTRIES IN itab_zycbt064_aux
WHERE nrseq EQ itab_zycbt064_aux-nrchave(8).
ENDIF.
LOOP AT itab_zycbt064_aux.
READ TABLE itab_zycbt086_aux WITH KEY
nrseq = itab_zycbt064_aux-nrchave(8).
...
...
wa_despesa-status = 'I'.
CLEAR: wa_despesa-belnr,
wa_despesa-dtpagto.
ENDIF.
IF NOT /pws/zycbt004-tpcontr IS INITIAL.
FREE: itab_zycbt064_aux, itab_zycbt004_aux.
SELECT nrchave nrinvoic nrparc dtliquid tpjuros
tpdesp dtincl
FROM /pws/zycbt064
INTO TABLE itab_zycbt064_aux
* >> Início da exclusão: FORM REVERSE_DOCUMENT_FBV0_ED
WHERE nrboleto EQ /pws/zycbe031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_FBV0_ED
WHERE nrboleto EQ /pws/zycbe031-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
IF NOT itab_zycbt064_aux[] IS INITIAL.
SELECT nrseqc tpdesp nrparc dtincl nrcontr tpcontr
dtliquid tpjuros frpagto belnr nrinvoic
FROM /pws/zycbt004
INTO TABLE itab_zycbt004_aux
FOR ALL ENTRIES IN itab_zycbt064_aux
WHERE nrseqc EQ itab_zycbt064_aux-nrchave(8)
AND tpdesp EQ itab_zycbt064_aux-tpdesp
AND nrparc EQ itab_zycbt064_aux-nrparc
AND dtincl EQ itab_zycbt064_aux-dtincl
...
...
/pws/zycbe031-statusp = 'C'.
erro_bi = 'X'.
MESSAGE s076 WITH v_belnr.
PERFORM clear_date_batch.
IF NOT /pws/zycbt004-tpcontr IS INITIAL.
FREE: itab_zycbt064_aux, itab_zycbt004_aux.
SELECT nrchave nrinvoic nrparc dtliquid tpjuros
tpdesp dtincl
FROM /pws/zycbt064
INTO TABLE itab_zycbt064_aux
* >> Início da exclusão: FORM REVERSE_DOCUMENT_FBV0_ED
WHERE nrboleto EQ /pws/zycbe031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_FBV0_ED
WHERE nrboleto EQ /pws/zycbe031-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
IF NOT itab_zycbt064_aux[] IS INITIAL.
SELECT nrseqc tpdesp nrparc dtincl nrcontr tpcontr
dtliquid tpjuros frpagto belnr nrinvoic
FROM /pws/zycbt004
INTO TABLE itab_zycbt004_aux
FOR ALL ENTRIES IN itab_zycbt064_aux
WHERE nrseqc EQ itab_zycbt064_aux-nrchave(8)
AND tpdesp EQ itab_zycbt064_aux-tpdesp
AND nrparc EQ itab_zycbt064_aux-nrparc
AND dtincl EQ itab_zycbt064_aux-dtincl
...
...
WHERE nrinvoic EQ /pws/zycbe031-nrinvoic.
IF sy-subrc NE 0.
SELECT SINGLE * FROM /pws/zycbt017
WHERE nrinvoic EQ /pws/zycbe031-nrcorresp.
ENDIF.
ELSE.
SELECT SINGLE * FROM /pws/zycbt017
WHERE nrinvoic EQ /pws/zycbe031-nrcorresp.
ENDIF.
SELECT * FROM /pws/zycbt037 UP TO 1 ROWS
* >> Início da exclusão: FORM VERIFICA_TIPO_COMIS
WHERE parvw EQ /pws/zycbt017-parvw.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_TIPO_COMIS
WHERE parvw EQ /pws/zycbt017-parvw."#EC CI_NOFIRST
* << Fim da inclusão
ENDSELECT.
ENDFORM.
FORM selecionar_liq_com_temp.
IF NOT itab_zycbt031_tc[] IS INITIAL.
SELECT * FROM /pws/zycet010
INTO TABLE itab_zycet010
FOR ALL ENTRIES IN itab_zycbt031_tc
WHERE nrseq EQ itab_zycbt031_tc-nrcorresp
AND lifnr EQ itab_zycbt031_tc-lifnr
AND dtvencto EQ itab_zycbt031_tc-dtvencto.
ENDIF.
LOOP AT itab_zycet010.
SELECT SINGLE * FROM /pws/zycbt017
WHERE nrinvoic EQ itab_zycet010-nrseq.
SELECT * FROM /pws/zycbt037 UP TO 1 ROWS
* >> Início da exclusão: FORM SELECIONAR_LIQ_COM_TEMP
WHERE parvw EQ /pws/zycbt017-parvw.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_LIQ_COM_TEMP
WHERE parvw EQ /pws/zycbt017-parvw."#EC CI_NOFIRST
* << Fim da inclusão
ENDSELECT.
CONCATENATE text-047 itab_zycet010-nrseq INTO v_tipo2
SEPARATED BY space.
CLEAR: v_waers, v_vlme, v_vlusd, v_vlbrl.
v_waers = itab_zycet010-waers.
v_vlme = itab_zycet010-vlcomis.
PERFORM casas_decimais.
v_vlme = v_vlmeaux.
PERFORM converte_reais.
PERFORM converte_usd.
...
...
ENDIF.
ENDIF.
ENDFORM.
FORM get_parameters_051.
DATA v_codeven LIKE /pws/zycbt011-codeven.
SELECT SINGLE parvw FROM /pws/zycbt017
INTO /pws/zycbt017-parvw
WHERE nrinvoic EQ /pws/zycbe031-nrinvoic.
SELECT SINGLE codpad FROM /pws/zycbt037
INTO /pws/zycbt037-codpad
* >> Início da exclusão: FORM GET_PARAMETERS_051
WHERE parvw EQ /pws/zycbt017-parvw.
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_051
WHERE parvw EQ /pws/zycbt017-parvw."#EC CI_NOFIRST
* << Fim da inclusão
IF /pws/zycbt037-codpad = 'T'.
v_codeven = text-095.
ELSEIF /pws/zycbt037-codpad = 'R'.
v_codeven = text-100.
ELSEIF /pws/zycbt037-codpad = 'G'.
v_codeven = text-198.
ELSEIF /pws/zycbt037-codpad = 'D'.
v_codeven = text-199.
ENDIF.
CLEAR wa_zycbt007.
...
...
ELSE.
MESSAGE e261(sf) WITH '/PWS/ZYCB005'.
ENDIF.
ENDIF.
ENDFORM.
FORM seleciona_dados_el.
FREE: itab_zycbt064, itab_zycet010,
itab_zycet013, /pws/zycet037.
SELECT * FROM /pws/zycbt064
INTO TABLE itab_zycbt064
* >> Início da exclusão: FORM SELECIONA_DADOS_EL
WHERE nrboleto EQ /pws/zycbe031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_EL
WHERE nrboleto EQ /pws/zycbe031-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
IF NOT itab_zycbt064[] IS INITIAL.
SELECT SINGLE * FROM /pws/zycet037
WHERE bukrs EQ /pws/zycbe031-bukrs.
IF sy-subrc NE 0.
SELECT SINGLE * FROM /pws/zycet037
WHERE bukrs EQ space.
ENDIF.
IF /pws/zycet037-comis_provisao = '0'
OR /pws/zycet037-comis_provisao IS INITIAL.
SELECT * FROM /pws/zycet010
...
...
v_status_despesa = '0'.
v_status_s = '0'.
ENDIF.
ENDIF.
ENDFORM.
FORM estorna_comis_cg.
DATA: v_tabix LIKE sy-tabix.
CLEAR v_okcomis.
SELECT * FROM /pws/zycbt064
INTO TABLE itab_zycbt064a
* >> Início da exclusão: FORM ESTORNA_COMIS_CG
WHERE nrboleto EQ /pws/zycbe031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_COMIS_CG
WHERE nrboleto EQ /pws/zycbe031-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycet037
WHERE bukrs EQ /pws/zycbe031-bukrs.
IF sy-subrc NE 0.
SELECT SINGLE * FROM /pws/zycet037
WHERE bukrs EQ space.
ENDIF.
IF /pws/zycet037-comis_provisao = '0'
OR /pws/zycet037-comis_provisao IS INITIAL.
SELECT * FROM /pws/zycet010
...
...
WHERE nrseq EQ /pws/zycbe031-nrseq
AND dtboleto EQ /pws/zycbe031-dtboleto.
IF sy-subrc EQ 0.
MESSAGE s079 WITH /pws/zycbe031-nrseq.
DELETE FROM /pws/zycbt048
WHERE nrseq EQ /pws/zycbe031-nrseq
AND dtboleto EQ /pws/zycbe031-dtboleto.
ENDIF.
DELETE FROM /pws/zycbt064
WHERE nrboleto EQ /pws/zycbe031-nrseq
* >> Início da exclusão: FORM ESTORNA_COMIS_CG
AND dtboleto EQ /pws/zycbe031-dtboleto.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_COMIS_CG
AND dtboleto EQ /pws/zycbe031-dtboleto."#EC CI_NOFIRST
* << Fim da inclusão
DESCRIBE TABLE itab_zycbt031 LINES v_linha.
LEAVE TO SCREEN 0.
ENDIF.
IF NOT itab_erro[] IS INITIAL.
EXPORT itab_erro[] TO MEMORY ID '001'.
SUBMIT /pws/zycbr126 AND RETURN.
ENDIF.
ENDIF.
ENDFORM.
FORM get_parameters_comissao.
...
...
ENDLOOP.
ENDIF.
ENDIF.
ENDFORM.
FORM atualiza_despesa.
IF NOT /pws/zycbt004-tpcontr IS INITIAL.
FREE: itab_zycbt064_aux, itab_zycbt004_aux.
SELECT nrchave nrinvoic nrparc dtliquid tpjuros tpdesp dtincl
FROM /pws/zycbt064
INTO TABLE itab_zycbt064_aux
* >> Início da exclusão: FORM ATUALIZA_DESPESA
WHERE nrboleto EQ /pws/zycbe031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_DESPESA
WHERE nrboleto EQ /pws/zycbe031-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
IF NOT itab_zycbt064_aux[] IS INITIAL.
SELECT nrseqc tpdesp nrparc dtincl nrcontr tpcontr
dtliquid tpjuros frpagto belnr nrinvoic
FROM /pws/zycbt004
INTO TABLE itab_zycbt004_aux
FOR ALL ENTRIES IN itab_zycbt064_aux
WHERE nrseqc EQ itab_zycbt064_aux-nrchave(8).
ENDIF.
LOOP AT itab_zycbt064_aux.
IF /pws/zycbe031-tpdesp EQ 'PR'.
...
...
wa_zycbt086-dtpagto = /pws/zycbe031-dtcredpr.
CLEAR v_texto.
CONCATENATE itab_zycbt032-belnr text-019 INTO v_texto
SEPARATED BY space.
wa_zycbt086-belnr_p = itab_zycbt032-belnr.
/pws/zycbe031-belnr_p = itab_zycbt032-belnr.
MESSAGE i223 WITH v_texto.
FREE: itab_zycbt064_aux, itab_zycbt086_aux.
SELECT nrchave nrinvoic nrparc dtliquid FROM /pws/zycbt064
INTO TABLE itab_zycbt064_aux
* >> Início da exclusão: FORM FILL_DATE_F-28_EJ
WHERE nrboleto EQ /pws/zycbe031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-28_EJ
WHERE nrboleto EQ /pws/zycbe031-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
IF NOT itab_zycbt064_aux[] IS INITIAL.
SELECT nrseq
FROM /pws/zycbt086
INTO TABLE itab_zycbt086_aux
FOR ALL ENTRIES IN itab_zycbt064_aux
WHERE nrseq EQ itab_zycbt064_aux-nrchave(8).
ENDIF.
LOOP AT itab_zycbt064_aux.
READ TABLE itab_zycbt086_aux WITH KEY
nrseq = itab_zycbt064_aux-nrchave(8).
...
...
tabela = '/PWS/ZYCBT031'
cpochv = /pws/zycbe031-nrseq
tpmsg = 'S'.
IF sy-subrc EQ 0.
CLEAR itab_zycbt064.
REFRESH itab_zycbt064.
SELECT *
FROM /pws/zycbt064
INTO TABLE itab_zycbt064
WHERE nrboleto EQ /pws/zycbe031-nrseq AND
* >> Início da exclusão: FORM CONTAB_IR_ED
dtboleto EQ /pws/zycbe031-dtboleto.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTAB_IR_ED
dtboleto EQ /pws/zycbe031-dtboleto."#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT nrseqc tpdesp nrparc dtincl nrcontr tpcontr
dtliquid tpjuros frpagto belnr nrinvoic
FROM /pws/zycbt004
INTO TABLE itab_zycbt004_aux
FOR ALL ENTRIES IN itab_zycbt064
WHERE nrseqc EQ itab_zycbt064-nrchave(8).
ENDIF.
LOOP AT itab_zycbt064.
READ TABLE itab_zycbt004_aux WITH KEY
...
...
wa_despesa-statusp = 'I'.
wa_despesa-status = 'I'.
CLEAR: wa_despesa-belnr,
wa_despesa-dtpagto,
/pws/zycbe031-belnr_pi.
ENDIF.
FREE: itab_zycbt064_aux, itab_zycbt004_aux.
SELECT nrchave nrinvoic nrparc dtliquid tpjuros
FROM /pws/zycbt064
INTO TABLE itab_zycbt064_aux
* >> Início da exclusão: FORM REVERSE_DOCUMENT_FBV0_IR
WHERE nrboleto EQ /pws/zycbe031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_FBV0_IR
WHERE nrboleto EQ /pws/zycbe031-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
IF NOT itab_zycbt064_aux[] IS INITIAL.
SELECT nrseqc tpdesp nrparc dtincl nrcontr tpcontr
dtliquid tpjuros frpagto belnr nrinvoic
FROM /pws/zycbt004
INTO TABLE itab_zycbt004_aux
FOR ALL ENTRIES IN itab_zycbt064_aux
WHERE nrseqc EQ itab_zycbt064_aux-nrchave(8).
ENDIF.
LOOP AT itab_zycbt064_aux.
READ TABLE itab_zycbt004_aux WITH KEY
...
...
'WAERS'
text-011.
itab_zycbe033-waers = /pws/zycbe031-waers.
PERFORM verify_null_field USING wa_zycbt011-blart
'BLART'
text-012.
itab_zycbe033-blart = wa_zycbt011-blart.
IF /pws/zycbt125-tprem NE 2.
CALL CUSTOMER-FUNCTION '016'
TABLES
* >> Início da exclusão: FORM EXECUTA_F51_ED
t_dados = itab_zycbe033.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F51_ED
t_dados = itab_zycbe033."#EC *
* << Fim da inclusão
CLEAR itab_zycbe033-newbs.
APPEND itab_zycbe033.
ELSE.
CALL CUSTOMER-FUNCTION '075'
TABLES
* >> Início da exclusão: FORM EXECUTA_F51_ED
t_dados = itab_zycbe033.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F51_ED
t_dados = itab_zycbe033."#EC *
* << Fim da inclusão
CLEAR itab_zycbe033-newbs.
MODIFY itab_zycbe033 INDEX 1.
ENDIF.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
IF itab_zycbt034[] IS INITIAL.
CALL FUNCTION '/PWS/ZYGL_TRANSACAO_F_51K'
EXPORTING
v_modo = v_modo_bi_aux
...
...
'WAERS'
text-011.
itab_zycbe033-waers = /pws/zycbe031-waers.
PERFORM verify_null_field USING wa_zycbt011-blart
'BLART'
text-012.
itab_zycbe033-blart = wa_zycbt011-blart.
IF /pws/zycbt125-tprem NE 2.
CALL CUSTOMER-FUNCTION '016'
TABLES
* >> Início da exclusão: FORM EXECUTA_F51_EL
t_dados = itab_zycbe033.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F51_EL
t_dados = itab_zycbe033."#EC *
* << Fim da inclusão
APPEND itab_zycbe033.
ELSE.
CALL CUSTOMER-FUNCTION '075'
TABLES
* >> Início da exclusão: FORM EXECUTA_F51_EL
t_dados = itab_zycbe033.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F51_EL
t_dados = itab_zycbe033."#EC *
* << Fim da inclusão
MODIFY itab_zycbe033 INDEX 1.
ENDIF.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
IF itab_zycbt034[] IS INITIAL.
CALL FUNCTION '/PWS/ZYGL_TRANSACAO_F_51J'
EXPORTING
v_modo = v_modo_bi_aux
TABLES
...
...
wa_despesa-dtpagto = /pws/zycbe031-dtcredpr.
itab_zycbt031-v_process = 'X'.
MODIFY itab_zycbt031 TRANSPORTING v_process
WHERE nrseq EQ /pws/zycbe031-nrseq
AND dtboleto EQ /pws/zycbe031-dtboleto.
IF NOT /pws/zycbt004-tpcontr IS INITIAL.
FREE: itab_zycbt064_aux, itab_zycbt004_aux.
SELECT nrchave nrinvoic nrparc dtliquid tpjuros tpdesp dtincl
FROM /pws/zycbt064
INTO TABLE itab_zycbt064_aux
* >> Início da exclusão: FORM REG_FECH_ED
WHERE nrboleto EQ /pws/zycbe031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM REG_FECH_ED
WHERE nrboleto EQ /pws/zycbe031-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
IF NOT itab_zycbt064_aux[] IS INITIAL.
SELECT nrseqc tpdesp nrparc dtincl nrcontr tpcontr
dtliquid tpjuros frpagto belnr nrinvoic
FROM /pws/zycbt004
INTO TABLE itab_zycbt004_aux
FOR ALL ENTRIES IN itab_zycbt064_aux
WHERE nrseqc EQ itab_zycbt064_aux-nrchave(8).
ENDIF.
LOOP AT itab_zycbt064_aux.
IF /pws/zycbe031-tpdesp EQ 'PR'.
...
...
nrseq = itab_zycbt031_tc-nrcorresp.
IF sy-subrc = 0.
v_slpgfat = 0.
UPDATE /pws/zycbt119 SET belnr2 = itab_zycbt032-belnr
statusp = 'C'
dtpagto = sy-datum
slpgfat = v_slpgfat
WHERE nrseq = itab_zycbt031_tc-nrcorresp.
UPDATE /pws/zycbt108 SET belnr_lq = itab_zycbt032-belnr
slfat = v_slpgfat
* >> Início da exclusão: FORM EXECUTA_F53
WHERE nrseq_pgfat = itab_zycbt031_tc-nrcorresp.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F53
WHERE nrseq_pgfat = itab_zycbt031_tc-nrcorresp."#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
ENDLOOP.
MESSAGE i015 WITH itab_zycbt032-msg.
ENDIF.
ELSE.
LOOP AT itab_zycbt032 WHERE cpochv = v_cpochv.
MESSAGE i015 WITH itab_zycbt032-msg(50)
itab_zycbt032-msg+50.
ENDLOOP.
ENDIF.
...
...
ENDIF.
PERFORM clear_date_batch.
ENDLOOP.
ENDFORM.
FORM seleciona_faturas.
CLEAR: itab_zycbt064, itab_zycbt108.
REFRESH: itab_zycbt064, itab_zycbt108.
SELECT * FROM /pws/zycbt064
INTO TABLE itab_zycbt064
WHERE nrboleto EQ /pws/zycbe031-nrseq
* >> Início da exclusão: FORM SELECIONA_FATURAS
AND dtboleto EQ /pws/zycbe031-dtboleto.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_FATURAS
AND dtboleto EQ /pws/zycbe031-dtboleto."#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc = 0.
SELECT * FROM /pws/zycbt108
INTO TABLE itab_zycbt108
FOR ALL ENTRIES IN itab_zycbt064
* >> Início da exclusão: FORM SELECIONA_FATURAS
WHERE nrseq_pgfat = itab_zycbt064-nrchave.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_FATURAS
WHERE nrseq_pgfat = itab_zycbt064-nrchave."#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
LOOP AT itab_zycbt064 WHERE nrboleto = /pws/zycbe031-nrseq.
LOOP AT itab_zycbt108 WHERE nrseq_pgfat = itab_zycbt064-nrchave.
itab_zycbt036-tcode = 'F-53'.
itab_zycbt036-tabela = '/PWS/ZYCBT134'.
itab_zycbt036-cpochv = v_cpochv.
IF itab_zycbt108-belnr_lq IS INITIAL.
itab_zycbt036-belnr = itab_zycbt108-belnr_co.
ELSE.
itab_zycbt036-belnr = itab_zycbt108-belnr_lq.
...
...
APPEND itab_zycbt036.
ENDIF.
ENDLOOP.
ENDLOOP.
ENDFORM.
FORM atualiza_fatura.
CLEAR: v_slpgfat, v_slfat.
IF itab_zycbt064[] IS INITIAL.
SELECT * FROM /pws/zycbt064
INTO TABLE itab_zycbt064
* >> Início da exclusão: FORM ATUALIZA_FATURA
WHERE nrboleto = /pws/zycbe031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_FATURA
WHERE nrboleto = /pws/zycbe031-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
IF NOT itab_zycbt064[] IS INITIAL.
SELECT * FROM /pws/zycbt119
INTO TABLE itab_zycbt119
FOR ALL ENTRIES IN itab_zycbt064
WHERE nrseq = itab_zycbt064-nrchave.
PERFORM carrega_dados_ip.
ENDIF.
ENDIF.
LOOP AT itab_zycbt031_tc.
UPDATE /pws/zycbt108 SET slfat = itab_zycbt031_tc-v_vlme
belnr_lq = space
* >> Início da exclusão: FORM ATUALIZA_FATURA
WHERE nrseq_pgfat = itab_zycbt031_tc-nrcorresp.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_FATURA
WHERE nrseq_pgfat = itab_zycbt031_tc-nrcorresp."#EC CI_NOFIRST
* << Fim da inclusão
UPDATE /pws/zycbt119 SET belnr2 = space
dtpagto = space
statusp = 'I'
slpgfat = itab_zycbt031_tc-v_vlme
WHERE nrseq = itab_zycbt031_tc-nrcorresp.
ENDLOOP.
COMMIT WORK.
ENDFORM.
FORM executa_f51_el_ir.
PERFORM clear_date_batch.
...
...
error_period = 1
error_period_acc = 2
OTHERS = 3.
IF sy-subrc = 0.
itab_zycbe033-stgrd = '01'.
ELSE.
itab_zycbe033-stgrd = '02'.
ENDIF.
CALL CUSTOMER-FUNCTION '040'
TABLES
* >> Início da exclusão: FORM FBRA_PRINCIPAL
t_dados = itab_zycbe033.
* << Fim da exclusão
* >> Início da inclusão: FORM FBRA_PRINCIPAL
t_dados = itab_zycbe033."#EC *
* << Fim da inclusão
APPEND itab_zycbe033.
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_FBRA'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
EXCEPTIONS
campo_em_branco = 1
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB110I01
...
SELECT SINGLE * FROM t042z
WHERE land1 = t001-land1
AND zlsch = /pws/zycbe145-zlsch.
IF sy-subrc NE 0 AND NOT /pws/zycbe145-zlsch IS INITIAL.
MESSAGE e061 WITH text-211 /pws/zycbe145-zlsch text-212.
ENDIF.
ENDMODULE.
MODULE consiste_instituicao INPUT.
CHECK NOT /pws/zycbe048-instituicao IS INITIAL.
SELECT SINGLE * FROM /pws/zyglt215
* >> Início da exclusão: MODULE CONSISTE_INSTITUICAO
WHERE instituicao = /pws/zycbe048-instituicao.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_INSTITUICAO
WHERE instituicao = /pws/zycbe048-instituicao."#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc NE 0.
MESSAGE e061 WITH text-084.
ENDIF.
ENDMODULE.
MODULE user_command_0003 INPUT.
CASE ok_code.
WHEN 'OK' OR 'ENTE'.
SET SCREEN 0.
LEAVE SCREEN.
ENDCASE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB110O01
MODULE status_0200 OUTPUT.
PERFORM exibe_altera.
ENDMODULE.
MODULE set_screen OUTPUT.
PERFORM desabilitar.
ENDMODULE.
MODULE status_0001 OUTPUT.
* >> Início da exclusão: MODULE STATUS_0001
GET PARAMETER ID c_origem FIELD v_prog_origem.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0001
GET PARAMETER ID c_origem FIELD v_prog_origem."#EC *
* << Fim da inclusão
SET PF-STATUS '001'.
IF sy-tcode = '/PWS/ZYCB110_E'.
SET TITLEBAR '001E'.
ELSE.
SET TITLEBAR '001'.
ENDIF.
PERFORM limpa_estrutura.
IF v_init IS INITIAL.
v_import = 'X'.
v_cambio = 'X'.
...
...
IF /pws/zycbe145-nrseq IS INITIAL.
/pws/zycbe145-nrseq = /pws/zycbe031-nrseq.
ENDIF.
IF /pws/zycbe145 IS INITIAL.
SELECT SINGLE * FROM /pws/zycbt145 INTO /pws/zycbe145
WHERE nrseq = /pws/zycbe031-nrseq.
ENDIF.
IF itab_zycbt064[] IS INITIAL.
SELECT * FROM /pws/zycbt064
INTO TABLE itab_zycbt064
* >> Início da exclusão: MODULE CARREGA_DADOS
WHERE nrboleto = /pws/zycbe031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_DADOS
WHERE nrboleto = /pws/zycbe031-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
PERFORM seleciona_dados_gerais.
ENDIF.
IF itab_zycbt031_tc[] IS INITIAL.
PERFORM carrega_dados.
itab_zycbt031_tc1[] = itab_zycbt031_tc[].
ELSEIF NOT itab_zycbt031_tc[] IS INITIAL AND
itab_zycbt031_tc1[] IS INITIAL.
itab_zycbt031_tc1[] = itab_zycbt031_tc[].
ENDIF.
ENDMODULE.
...
...
MODIFY tc_dados-cols FROM wa_cols.
ENDIF.
ENDLOOP.
ELSE.
LOOP AT tc_dados-cols INTO wa_cols.
wa_cols-screen-input = '0'.
MODIFY tc_dados-cols FROM wa_cols.
ENDLOOP.
ENDIF.
SELECT SINGLE * FROM /pws/zycbt236 INTO /pws/zycbe236
* >> Início da exclusão: MODULE SET_SCREEN_101
WHERE nrboleto = /pws/zycbe031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN_101
WHERE nrboleto = /pws/zycbe031-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
IF v_prog_origem NE c_prog_cotacao.
LOOP AT tc_dados-cols INTO wa_cols.
wa_cols-screen-input = '0'.
MODIFY tc_dados-cols FROM wa_cols.
ENDLOOP.
ENDIF.
ENDIF.
ENDMODULE.
MODULE insere_dados_tc OUTPUT.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM110F01
...
CLEAR itab_zycbt036.
itab_zycbt036-tcode = text-066.
itab_zycbt036-tabela = text-092.
itab_zycbt036-cpochv = /pws/zycbe031-nrseq.
CLEAR itab_zycbt064.
REFRESH itab_zycbt064.
SELECT *
FROM /pws/zycbt064
INTO TABLE itab_zycbt064
WHERE nrboleto EQ /pws/zycbe031-nrseq AND
* >> Início da exclusão: FORM EXECUTA_CLEARING_FINANC
dtboleto EQ /pws/zycbe031-dtboleto.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_FINANC
dtboleto EQ /pws/zycbe031-dtboleto."#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_zycbt064.
CLEAR v_nrparc.
v_nrparc = itab_zycbt064-nrparc.
CLEAR : wa_zycbt113-belnr_c, wa_zycbt113-belnr,
wa_zycbt113-ftransf.
SELECT SINGLE belnr_c belnr ftransf FROM /pws/zycbt113
INTO (wa_zycbt113-belnr_c, wa_zycbt113-belnr,
wa_zycbt113-ftransf)
WHERE nrseq EQ itab_zycbt064-nrchave
AND nrparc EQ v_nrparc
...
...
tabela = '/PWS/ZYCBT031'
cpochv = /pws/zycbe031-nrseq
tpmsg = 'S'.
IF sy-subrc EQ 0.
CLEAR itab_zycbt064.
REFRESH itab_zycbt064.
SELECT *
FROM /pws/zycbt064
INTO TABLE itab_zycbt064
WHERE nrboleto EQ /pws/zycbe031-nrseq AND
* >> Início da exclusão: FORM FILL_DATE_F-63_IF
dtboleto EQ /pws/zycbe031-dtboleto.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-63_IF
dtboleto EQ /pws/zycbe031-dtboleto."#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_zycbt064.
CLEAR wa_zycbt113.
SELECT SINGLE * FROM /pws/zycbt113
INTO wa_zycbt113
WHERE nrseq EQ itab_zycbt064-nrchave
AND nrparc EQ itab_zycbt064-nrparc
AND tpparc EQ itab_zycbt064-tpparc.
CLEAR wa_zycbt112.
SELECT SINGLE * FROM /pws/zycbt112
INTO wa_zycbt112
...
...
cpochv = /pws/zycbe031-nrseq
tpmsg = 'S'.
ENDIF.
IF sy-subrc = 0.
CLEAR itab_zycbt064.
REFRESH itab_zycbt064.
SELECT *
FROM /pws/zycbt064
INTO TABLE itab_zycbt064
WHERE nrboleto EQ /pws/zycbe031-nrseq AND
* >> Início da exclusão: FORM FILL_DATE_F-63_IP
dtboleto EQ /pws/zycbe031-dtboleto.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-63_IP
dtboleto EQ /pws/zycbe031-dtboleto."#EC CI_NOFIRST
* << Fim da inclusão
IF /pws/zycbe031-nrparc NE ' ' AND
/pws/zycbe031-nrparc NE '000'.
LOOP AT itab_zycbt064.
READ TABLE itab_zycmt005
WITH KEY nrseq = itab_zycbt064-nrchave
nrparc = itab_zycbt064-nrparc.
itab_zycmt005-belnr_pag = itab_zycbt032-belnr.
itab_zycmt005-dtpagto = /pws/zycbe031-dtcredpr.
MODIFY itab_zycmt005 INDEX sy-tabix.
UPDATE /pws/zycmt005 SET belnr_pag = itab_zycbt032-belnr
dtpagto = /pws/zycbe031-dtcredpr
WHERE nrseq = itab_zycbt064-nrchave
AND nrparc = itab_zycbt064-nrparc.
CLEAR wa_zycbt108.
SELECT SINGLE * FROM /pws/zycbt108
INTO wa_zycbt108
* >> Início da exclusão: FORM FILL_DATE_F-63_IP
WHERE nrseq_pgfat EQ itab_zycbt064-nrchave.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-63_IP
WHERE nrseq_pgfat EQ itab_zycbt064-nrchave."#EC CI_NOFIRST
* << Fim da inclusão
wa_zycbt108-slfat = 0.
MODIFY /pws/zycbt108 FROM wa_zycbt108.
CLEAR wa_zycbt119.
SELECT SINGLE * FROM /pws/zycbt119
INTO wa_zycbt119
WHERE nrseq EQ itab_zycbt064-nrchave.
wa_zycbt119-statusp = 'P'.
wa_zycbt119-slpgfat = 0.
MODIFY /pws/zycbt119 FROM wa_zycbt119.
ENDLOOP.
ELSE.
LOOP AT itab_zycbt064.
CLEAR: wa_zycbt119, wa_zycbt108.
SELECT SINGLE * FROM /pws/zycbt119
INTO wa_zycbt119
WHERE nrseq EQ itab_zycbt064-nrchave.
SELECT SINGLE * FROM /pws/zycbt108
INTO wa_zycbt108
* >> Início da exclusão: FORM FILL_DATE_F-63_IP
WHERE nrseq_pgfat EQ itab_zycbt064-nrchave.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F-63_IP
WHERE nrseq_pgfat EQ itab_zycbt064-nrchave."#EC CI_NOFIRST
* << Fim da inclusão
wa_zycbt119-statusp = 'P'.
wa_zycbt119-belnr_p = itab_zycbt032-belnr.
wa_zycbt119-dtpagto = /pws/zycbe031-dtcredpr.
CLEAR /pws/zycit006.
SELECT SINGLE * FROM /pws/zycit006 INTO /pws/zycit006
WHERE nrseq = wa_zycbt119-nrpagto
AND nrseq_pgfat = wa_zycbt119-nrseq.
IF sy-subrc EQ 0 OR NOT wa_zycbt108-belnr_co IS INITIAL.
wa_zycbt119-slpgfat = 0.
itab_zycbt119-slpgfat = 0.
...
...
ENDIF.
ENDLOOP.
ENDFORM.
FORM selecionar_ip.
CLEAR: wa_zycbt119, wa_zycbt108.
SELECT SINGLE * FROM /pws/zycbt119
INTO wa_zycbt119
WHERE nrseq EQ /pws/zycbe031-nrcorresp.
SELECT SINGLE * FROM /pws/zycbt108
INTO wa_zycbt108
* >> Início da exclusão: FORM SELECIONAR_IP
WHERE nrseq_pgfat = /pws/zycbe031-nrcorresp.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_IP
WHERE nrseq_pgfat = /pws/zycbe031-nrcorresp."#EC CI_NOFIRST
* << Fim da inclusão
IF /pws/zycbe031-nrparc NE ' ' AND
/pws/zycbe031-nrparc NE '000'.
CLEAR itab_zycmt005.
REFRESH itab_zycmt005.
SELECT * FROM /pws/zycmt005
INTO TABLE itab_zycmt005
WHERE nrseq EQ /pws/zycbe031-nrcorresp.
ENDIF.
ENDFORM.
FORM selecionar_pagto_ant.
...
...
WHERE belnr EQ /pws/zycbe031-belnr_p
AND bukrs EQ /pws/zycbe031-bukrs
AND gjahr EQ /pws/zycbe031-dtcredpr(4).
APPEND itab_zycbt036.
CLEAR itab_zycbt064.
REFRESH itab_zycbt064.
SELECT *
FROM /pws/zycbt064
INTO TABLE itab_zycbt064
WHERE nrboleto EQ /pws/zycbe031-nrseq AND
* >> Início da exclusão: FORM EXECUTA_CLEARING
dtboleto EQ /pws/zycbe031-dtboleto.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING
dtboleto EQ /pws/zycbe031-dtboleto."#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_zycbt064.
SELECT SINGLE bldat belnr_co belnr_lq
INTO CORRESPONDING FIELDS OF /pws/zycbt108
FROM /pws/zycbt108
* >> Início da exclusão: FORM EXECUTA_CLEARING
WHERE nrseq_pgfat EQ itab_zycbt064-nrchave.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING
WHERE nrseq_pgfat EQ itab_zycbt064-nrchave."#EC CI_NOFIRST
* << Fim da inclusão
itab_zycbt036-tcode = text-066.
itab_zycbt036-tabela = text-067.
itab_zycbt036-cpochv = /pws/zycbe031-nrseq.
IF NOT /pws/zycbt108-belnr_lq IS INITIAL.
itab_zycbt036-belnr = /pws/zycbt108-belnr_lq.
ELSE.
itab_zycbt036-belnr = /pws/zycbt108-belnr_co.
ENDIF.
CLEAR /pws/zycbt131.
SELECT SINGLE dtassoc FROM /pws/zycbt131
...
...
( sy-ucomm = 'SAVE' AND ok_code NE 'DEL' ).
IF ok_code = 'DEL'.
/pws/zycbe031-status = 'E'.
ENDIF.
CLEAR itab_zycbt064.
REFRESH itab_zycbt064.
SELECT *
FROM /pws/zycbt064
INTO TABLE itab_zycbt064
WHERE nrboleto EQ /pws/zycbe031-nrseq AND
* >> Início da exclusão: FORM ANULA_COMPENS
dtboleto EQ /pws/zycbe031-dtboleto.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_COMPENS
dtboleto EQ /pws/zycbe031-dtboleto."#EC CI_NOFIRST
* << Fim da inclusão
IF /pws/zycbe031-nrparc NE ' ' AND
/pws/zycbe031-nrparc NE '000'.
LOOP AT itab_zycbt064.
READ TABLE itab_zycmt005 WITH KEY
nrseq = itab_zycbt064-nrchave
nrparc = itab_zycbt064-nrparc.
CLEAR: itab_zycmt005-belnr_pag,
itab_zycmt005-belnr_resid,
itab_zycmt005-dtpagto.
MODIFY itab_zycmt005 INDEX sy-tabix.
UPDATE /pws/zycmt005 SET belnr_pag = space
belnr_resid = space
dtpagto = space
WHERE nrseq EQ itab_zycbt064-nrchave
AND nrparc EQ itab_zycbt064-nrparc.
CLEAR wa_zycbt108.
SELECT SINGLE * FROM /pws/zycbt108
INTO wa_zycbt108
* >> Início da exclusão: FORM ANULA_COMPENS
WHERE nrseq_pgfat EQ itab_zycbt064-nrchave.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_COMPENS
WHERE nrseq_pgfat EQ itab_zycbt064-nrchave."#EC CI_NOFIRST
* << Fim da inclusão
wa_zycbt108-slfat = wa_zycbt108-slfat + itab_zycmt005-valor.
MODIFY /pws/zycbt108 FROM wa_zycbt108.
CLEAR wa_zycbt119.
SELECT SINGLE * FROM /pws/zycbt119
INTO wa_zycbt119
WHERE nrseq EQ itab_zycbt064-nrchave.
wa_zycbt119-slpgfat = wa_zycbt119-slpgfat +
itab_zycmt005-valor.
MODIFY /pws/zycbt119 FROM wa_zycbt119.
ENDLOOP.
ELSE.
LOOP AT itab_zycbt064.
CLEAR: wa_zycbt119, wa_zycbt108.
SELECT SINGLE * FROM /pws/zycbt119
INTO wa_zycbt119
WHERE nrseq EQ itab_zycbt064-nrchave.
SELECT SINGLE * FROM /pws/zycbt108
INTO wa_zycbt108
* >> Início da exclusão: FORM ANULA_COMPENS
WHERE nrseq_pgfat EQ wa_zycbt119-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_COMPENS
WHERE nrseq_pgfat EQ wa_zycbt119-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
wa_zycbt119-statusp = 'I'.
CLEAR: wa_zycbt119-belnr_p,
wa_zycbt119-belnr51,
wa_zycbt119-dtpagto.
CLEAR /pws/zycit006.
SELECT SINGLE * FROM /pws/zycit006 INTO /pws/zycit006
WHERE nrseq = wa_zycbt119-nrpagto
AND nrseq_pgfat = wa_zycbt119-nrseq.
IF sy-subrc EQ 0 OR NOT wa_zycbt108-belnr_co IS INITIAL.
wa_zycbt108-slfat =
...
...
ID 'TCD' FIELD '/PWS/ZYCB105_E'.
IF sy-subrc EQ 0.
CALL TRANSACTION '/PWS/ZYCB105_E' AND SKIP FIRST SCREEN.
ELSE.
MESSAGE e261(sf) WITH '/PWS/ZYCB105_E'.
ENDIF.
ENDFORM.
FORM vl_remeter_mn_imp.
REFRESH itab_zycbt064.
SELECT * FROM /pws/zycbt064 INTO TABLE itab_zycbt064
* >> Início da exclusão: FORM VL_REMETER_MN_IMP
WHERE nrboleto = /pws/zycbe031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM VL_REMETER_MN_IMP
WHERE nrboleto = /pws/zycbe031-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
v_vrmn = /pws/zycbe031-vlme.
v_vrmn = v_vrmn / ( 10 ** ( tcurx-currdec - 2 ) ).
ENDFORM.
FORM monta_itab_600.
CLEAR itab_zycbt031.
REFRESH itab_zycbt031.
IF s_forn6 IS INITIAL AND s_moed6 IS INITIAL AND s_fatu6 IS INITIAL AND
s_desp6 IS INITIAL AND s_fina6 IS INITIAL AND s_pgto6 IS INITIAL.
SELECT * FROM /pws/zycbt031 INTO TABLE itab_zycbt031
WHERE mdcorresp EQ 'ID' OR mdcorresp EQ 'IP' OR
...
...
FORM executa_clearing_parcial_ip.
DATA : v_nrparc LIKE /pws/zycmt005-nrparc,
v_linha1 TYPE i.
PERFORM clear_date_batch.
CLEAR itab_zycbt064.
REFRESH itab_zycbt064.
SELECT *
FROM /pws/zycbt064
INTO TABLE itab_zycbt064
WHERE nrboleto EQ /pws/zycbe031-nrseq AND
* >> Início da exclusão: FORM EXECUTA_CLEARING_PARCIAL_IP
dtboleto EQ /pws/zycbe031-dtboleto.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_PARCIAL_IP
dtboleto EQ /pws/zycbe031-dtboleto."#EC CI_NOFIRST
* << Fim da inclusão
READ TABLE itab_zycmt005 WITH KEY nrseq = /pws/zycbe031-nrcorresp
nrparc = /pws/zycbe031-nrparc.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = text-066.
itab_zycbe033-tabela = text-067.
itab_zycbe033-cpochv = /pws/zycbe031-nrseq.
itab_zycbe033-budat = /pws/zycbe031-dtcredpr.
IF wa_zycbt007-fdtdoc = 'D'.
itab_zycbe033-bldat = sy-datum.
ELSE.
...
...
itab_zycbt036-tabela = text-067.
itab_zycbt036-cpochv = /pws/zycbe031-nrseq.
itab_zycbt036-belnr = /pws/zycbe031-belnr_p.
APPEND itab_zycbt036.
DESCRIBE TABLE itab_zycmt005 LINES v_linha1.
READ TABLE itab_zycmt005 INDEX v_linha1.
v_nrparc = itab_zycmt005-nrparc.
CLEAR wa_zycbt108.
SELECT SINGLE * FROM /pws/zycbt108
INTO wa_zycbt108
* >> Início da exclusão: FORM EXECUTA_CLEARING_PARCIAL_IP
WHERE nrseq_pgfat EQ /pws/zycbe031-nrcorresp.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_PARCIAL_IP
WHERE nrseq_pgfat EQ /pws/zycbe031-nrcorresp."#EC CI_NOFIRST
* << Fim da inclusão
DO.
IF v_nrparc < 1.
IF NOT wa_zycbt108-belnr_lq IS INITIAL.
itab_zycbt036-belnr = wa_zycbt108-belnr_lq.
ELSE.
READ TABLE itab_zycmt005 INDEX 1.
itab_zycbt036-belnr = itab_zycmt005-belnr_co.
ENDIF.
EXIT.
ENDIF.
...
...
tpmsg = 'S'.
IF sy-subrc NE 0.
v_erro_anulacomp = 'X'.
ELSE.
CLEAR itab_zycbt064.
REFRESH itab_zycbt064.
SELECT *
FROM /pws/zycbt064
INTO TABLE itab_zycbt064
WHERE nrboleto EQ /pws/zycbe031-nrseq AND
* >> Início da exclusão: FORM ANULA_COMPENS_IP_PARCIAL
dtboleto EQ /pws/zycbe031-dtboleto.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_COMPENS_IP_PARCIAL
dtboleto EQ /pws/zycbe031-dtboleto."#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_zycbt064.
MESSAGE i077 WITH itab_zycmt005-belnr_resid.
READ TABLE itab_zycmt005 WITH KEY nrseq = itab_zycbt064-nrchave
nrparc = itab_zycbt064-nrparc.
IF sy-subrc EQ 0.
CLEAR itab_zycmt005-belnr_resid.
MODIFY itab_zycmt005 INDEX sy-tabix.
ENDIF.
ENDLOOP.
ENDIF.
...
...
itab_zycbe033-wrbtr = itab_zycbe033-dmbtr.
itab_zycbe033-waers = wa_zycbt007-waersb.
ENDFORM.
FORM seleciona_fatura.
CLEAR itab_zycbt036.
REFRESH itab_zycbt036.
READ TABLE itab_zycbt064 WITH KEY nrboleto = /pws/zycbe031-nrseq.
IF sy-subrc NE 0.
SELECT *
FROM /pws/zycbt064 INTO TABLE itab_zycbt064
* >> Início da exclusão: FORM SELECIONA_FATURA
WHERE nrboleto = /pws/zycbe031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_FATURA
WHERE nrboleto = /pws/zycbe031-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
LOOP AT itab_zycbt064.
SELECT SINGLE * FROM /pws/zycbt108 INTO /pws/zycbt108
* >> Início da exclusão: FORM SELECIONA_FATURA
WHERE nrseq_pgfat EQ itab_zycbt064-nrchave.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_FATURA
WHERE nrseq_pgfat EQ itab_zycbt064-nrchave."#EC CI_NOFIRST
* << Fim da inclusão
IF /pws/zycbe145-cod_fech = 'TR'.
...
...
AND dtvencto = itab_zycbt031_tc-dtvencto
AND lifnr = itab_zycbt031_tc-lifnr
AND tpjuros = itab_zycbt031_tc-tpjuros
AND tpdesp = itab_zycbt031_tc-tpdesp.
ENDLOOP.
ENDFORM.
FORM carrega_cp.
DATA: v_codeven LIKE /pws/zycbt011-codeven VALUE '007F'.
LOOP AT itab_zycbt031_tc.
SELECT SINGLE * FROM /pws/zycbt108 INTO /pws/zycbt108
* >> Início da exclusão: FORM CARREGA_CP
WHERE nrseq_pgfat EQ itab_zycbt031_tc-nrcorresp.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_CP
WHERE nrseq_pgfat EQ itab_zycbt031_tc-nrcorresp."#EC CI_NOFIRST
* << Fim da inclusão
v_codparc = 'IP'.
itab_documentos-tabela = '/PWS/ZYCBT119'.
itab_documentos-nrseq = /pws/zycbt108-nrseq_pgfat.
itab_documentos-belnr = /pws/zycbt108-belnr_co.
itab_documentos-dtdocto = /pws/zycbt108-bldat.
itab_documentos-waers = /pws/zycbt108-waers.
itab_documentos-lifnr = /pws/zycbt108-lifnr.
itab_documentos-codparc = v_codparc.
APPEND itab_documentos.
ENDLOOP.
...
...
FORM reg_fech_ip.
IF /pws/zycbe031-nrparc NE ' ' AND
/pws/zycbe031-nrparc NE '000'.
LOOP AT itab_zycbt064.
READ TABLE itab_zycmt005 WITH KEY nrseq = itab_zycbt064-nrchave
nrparc = itab_zycbt064-nrparc.
itab_zycmt005-belnr_pag = /pws/zycbe031-belnr_p.
CLEAR wa_zycbt108.
SELECT SINGLE * FROM /pws/zycbt108
INTO wa_zycbt108
* >> Início da exclusão: FORM REG_FECH_IP
WHERE nrseq_pgfat EQ itab_zycbt064-nrchave.
* << Fim da exclusão
* >> Início da inclusão: FORM REG_FECH_IP
WHERE nrseq_pgfat EQ itab_zycbt064-nrchave."#EC CI_NOFIRST
* << Fim da inclusão
MODIFY /pws/zycbt108 FROM wa_zycbt108.
CLEAR wa_zycbt119.
SELECT SINGLE * FROM /pws/zycbt119
INTO wa_zycbt119
WHERE nrseq EQ itab_zycbt064-nrchave.
wa_zycbt119-statusp = 'P'.
wa_zycbt119-slpgfat = 0.
MODIFY /pws/zycbt119 FROM wa_zycbt119.
ENDLOOP.
ELSE.
LOOP AT itab_zycbt064.
CLEAR: wa_zycbt119, wa_zycbt108.
SELECT SINGLE * FROM /pws/zycbt119
INTO wa_zycbt119
WHERE nrseq EQ itab_zycbt064-nrchave.
SELECT SINGLE * FROM /pws/zycbt108
INTO wa_zycbt108
* >> Início da exclusão: FORM REG_FECH_IP
WHERE nrseq_pgfat EQ itab_zycbt064-nrchave.
* << Fim da exclusão
* >> Início da inclusão: FORM REG_FECH_IP
WHERE nrseq_pgfat EQ itab_zycbt064-nrchave."#EC CI_NOFIRST
* << Fim da inclusão
IF wa_zycbt108-belnr_lq IS INITIAL.
/pws/zycbe031-belnr_p = wa_zycbt108-belnr_co.
ELSE.
/pws/zycbe031-belnr_p = wa_zycbt108-belnr_lq.
ENDIF.
wa_zycbt119-statusp = 'P'.
wa_zycbt119-belnr_p = /pws/zycbe031-belnr_p.
wa_zycbt119-dtpagto = /pws/zycbe031-dtcredpr.
CLEAR /pws/zycit006.
SELECT SINGLE * FROM /pws/zycit006 INTO /pws/zycit006
...
...
IF NOT /pws/zycbt119-nrpagto IS INITIAL.
SELECT SINGLE *
FROM /pws/zycit006
WHERE nrseq EQ /pws/zycbt119-nrpagto.
ENDIF.
IF NOT /pws/zycit006 IS INITIAL.
SELECT SINGLE *
FROM /pws/zycbt131
WHERE belnr EQ /pws/zycbt119-nrpagto AND
nrseq_pgfat EQ /pws/zycbt119-nrseq AND
* >> Início da exclusão: FORM VERIFICA_ASSOCIACAO
bukrs EQ /pws/zycbt119-bukrs.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ASSOCIACAO
bukrs EQ /pws/zycbt119-bukrs."#EC CI_NOFIRST
* << Fim da inclusão
ELSE.
SELECT SINGLE *
FROM /pws/zycbt131
WHERE mdcorresp EQ 'IP' AND
nrseq EQ /pws/zycbt119-nrseq AND
bukrs EQ /pws/zycbt119-bukrs.
ENDIF.
ENDIF.
ENDFORM.
FORM contabiliza_ed_e.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL110F01
...
empresa_nao_encontrada = 3
period_in_not_valid = 4
period_not_assigned = 5
version_undefined = 6
OTHERS = 7.
ENDFORM.
FORM atualiza_zycbt136.
FREE itab_zycbt064.
SELECT * FROM /pws/zycbt064
INTO TABLE itab_zycbt064
* >> Início da exclusão: FORM ATUALIZA_ZYCBT136
WHERE nrboleto = /pws/zycbe031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_ZYCBT136
WHERE nrboleto = /pws/zycbe031-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_zycbt064.
UPDATE /pws/zycbt136 SET: belnr = /pws/zycbe031-belnr_p
belnr_ir = /pws/zycbe031-belnr_pi
WHERE nrseqc = itab_zycbt064-nrchave
AND nrparc = itab_zycbt064-nrparc.
ENDLOOP.
ENDFORM.
FORM casas_decimais.
SELECT SINGLE * FROM tcurx WHERE currkey = v_waers.
IF sy-subrc <> 0.
...
...
CLEAR: wa_zycbt118-belnr_p,
wa_zycbt118-dtpagto.
MODIFY /pws/zycbt118 FROM wa_zycbt118.
WHEN 'IP'.
CLEAR itab_zycbt064.
REFRESH itab_zycbt064.
SELECT *
FROM /pws/zycbt064
INTO TABLE itab_zycbt064
WHERE nrboleto EQ /pws/zycbe031-nrseq AND
* >> Início da exclusão: FORM ESTORNA_APROV
dtboleto EQ /pws/zycbe031-dtboleto.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_APROV
dtboleto EQ /pws/zycbe031-dtboleto."#EC CI_NOFIRST
* << Fim da inclusão
IF /pws/zycbe031-nrparc NE ' ' AND
/pws/zycbe031-nrparc NE '000'.
LOOP AT itab_zycbt064.
READ TABLE itab_zycmt005 WITH KEY
nrseq = itab_zycbt064-nrchave
nrparc = itab_zycbt064-nrparc.
CLEAR: itab_zycmt005-belnr_pag,
itab_zycmt005-belnr_resid,
itab_zycmt005-dtpagto.
MODIFY itab_zycmt005 INDEX sy-tabix.
UPDATE /pws/zycmt005 SET belnr_pag = space
belnr_resid = space
dtpagto = space
WHERE nrseq EQ itab_zycbt064-nrchave
AND nrparc EQ itab_zycbt064-nrparc.
CLEAR wa_zycbt108.
SELECT SINGLE * FROM /pws/zycbt108
INTO wa_zycbt108
* >> Início da exclusão: FORM ESTORNA_APROV
WHERE nrseq_pgfat EQ itab_zycbt064-nrchave.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_APROV
WHERE nrseq_pgfat EQ itab_zycbt064-nrchave."#EC CI_NOFIRST
* << Fim da inclusão
wa_zycbt108-slfat = wa_zycbt108-slfat + itab_zycmt005-valor.
MODIFY /pws/zycbt108 FROM wa_zycbt108.
CLEAR wa_zycbt119.
SELECT SINGLE * FROM /pws/zycbt119
INTO wa_zycbt119
WHERE nrseq EQ itab_zycbt064-nrchave.
wa_zycbt119-slpgfat = wa_zycbt119-slpgfat +
itab_zycmt005-valor.
MODIFY /pws/zycbt119 FROM wa_zycbt119.
ENDLOOP.
ELSE.
LOOP AT itab_zycbt064.
CLEAR wa_zycbt119.
SELECT SINGLE * FROM /pws/zycbt119
INTO wa_zycbt119
WHERE nrseq EQ itab_zycbt064-nrchave.
CLEAR wa_zycbt108.
SELECT SINGLE * FROM /pws/zycbt108
INTO wa_zycbt108
* >> Início da exclusão: FORM ESTORNA_APROV
WHERE nrseq_pgfat = wa_zycbt119-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_APROV
WHERE nrseq_pgfat = wa_zycbt119-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
wa_zycbt119-statusp = 'I'.
CLEAR: wa_zycbt119-belnr_p,
wa_zycbt119-belnr51,
wa_zycbt119-dtpagto.
CLEAR /pws/zycit006.
SELECT SINGLE * FROM /pws/zycit006 INTO /pws/zycit006
WHERE nrseq = wa_zycbt119-nrpagto
AND nrseq_pgfat = wa_zycbt119-nrseq.
IF ( sy-subrc EQ 0 OR
NOT wa_zycbt108-belnr_co IS INITIAL )
...
...
WHERE nrseq = itab_zycbt064-nrchave.
ENDLOOP.
MODIFY /pws/zycbt117 FROM TABLE itab_zycbt117.
WHEN 'IF'.
CLEAR itab_zycbt064.
REFRESH itab_zycbt064.
SELECT *
FROM /pws/zycbt064
INTO TABLE itab_zycbt064
WHERE nrboleto EQ /pws/zycbe031-nrseq AND
* >> Início da exclusão: FORM ESTORNA_APROV
dtboleto EQ /pws/zycbe031-dtboleto.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_APROV
dtboleto EQ /pws/zycbe031-dtboleto."#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_zycbt064.
CLEAR wa_zycbt113.
SELECT SINGLE * FROM /pws/zycbt113
INTO wa_zycbt113
WHERE nrseq EQ itab_zycbt064-nrchave
AND nrparc EQ itab_zycbt064-nrparc
AND tpparc EQ itab_zycbt064-tpparc.
CLEAR wa_zycbt112.
SELECT SINGLE * FROM /pws/zycbt112
INTO wa_zycbt112
...
...
MODIFY itab_zycbt124.
MODIFY /pws/zycbt124 FROM itab_zycbt124.
ENDLOOP.
WHEN 'CE'.
CLEAR itab_zycbt064.
REFRESH itab_zycbt064.
SELECT *
FROM /pws/zycbt064
INTO TABLE itab_zycbt064
WHERE nrboleto EQ /pws/zycbe031-nrseq AND
* >> Início da exclusão: FORM ESTORNA_APROV
dtboleto EQ /pws/zycbe031-dtboleto.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_APROV
dtboleto EQ /pws/zycbe031-dtboleto."#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_zycbt064.
CLEAR wa_zycbt129.
SELECT SINGLE * FROM /pws/zycbt129
INTO wa_zycbt129
WHERE nrseq EQ itab_zycbt064-nrchave
AND nrparc EQ itab_zycbt064-nrparc
AND tpparc EQ itab_zycbt064-tpparc.
CLEAR wa_zycbt128.
SELECT SINGLE * FROM /pws/zycbt128
INTO wa_zycbt128
...
...
IF NOT wa_despesa-frpagto EQ 'C' OR
wa_despesa-tpdesp EQ 'J' OR
wa_despesa-tpdesp EQ 'D'.
CLEAR: wa_despesa-belnr.
ENDIF.
FREE: itab_zycbt064_aux, itab_zycbt004_aux.
SELECT nrchave nrinvoic nrparc dtliquid tpjuros
tpdesp dtincl
FROM /pws/zycbt064
INTO TABLE itab_zycbt064_aux
* >> Início da exclusão: FORM ESTORNA_APROV
WHERE nrboleto EQ /pws/zycbe031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_APROV
WHERE nrboleto EQ /pws/zycbe031-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
IF NOT itab_zycbt064_aux[] IS INITIAL.
SELECT nrseqc tpdesp nrparc dtincl nrcontr tpcontr
dtliquid tpjuros frpagto belnr nrinvoic
FROM /pws/zycbt004
INTO TABLE itab_zycbt004_aux
FOR ALL ENTRIES IN itab_zycbt064_aux
WHERE nrseqc EQ itab_zycbt064_aux-nrchave(8)
AND tpdesp EQ itab_zycbt064_aux-tpdesp
AND nrparc EQ itab_zycbt064_aux-nrparc
AND dtincl EQ itab_zycbt064_aux-dtincl
...
...
tpdesp = /pws/zycbe031-tpdesp.
ENDIF.
WHEN 'EJ'.
CLEAR: wa_zycbt086-belnr_p,
wa_zycbt086-belnr_pi,
wa_zycbt086-dtpagto.
FREE: itab_zycbt064_aux, itab_zycbt086_aux.
SELECT nrchave nrinvoic nrparc dtliquid tpjuros
FROM /pws/zycbt064
INTO TABLE itab_zycbt064_aux
* >> Início da exclusão: FORM ESTORNA_APROV
WHERE nrboleto EQ /pws/zycbe031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_APROV
WHERE nrboleto EQ /pws/zycbe031-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
IF NOT itab_zycbt064_aux[] IS INITIAL.
SELECT nrseq
FROM /pws/zycbt086
INTO TABLE itab_zycbt086_aux
FOR ALL ENTRIES IN itab_zycbt064_aux
WHERE nrseq EQ itab_zycbt064_aux-nrchave(8).
ENDIF.
LOOP AT itab_zycbt064_aux.
READ TABLE itab_zycbt086_aux WITH KEY
nrseq = itab_zycbt064_aux-nrchave(8).
...
...
ENDCASE.
ELSE.
CASE /pws/zycbe031-mdcorresp.
WHEN 'IF'.
CLEAR itab_zycbt064.
REFRESH itab_zycbt064.
SELECT *
FROM /pws/zycbt064
INTO TABLE itab_zycbt064
WHERE nrboleto EQ /pws/zycbe031-nrseq AND
* >> Início da exclusão: FORM ESTORNA_APROV
dtboleto EQ /pws/zycbe031-dtboleto.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_APROV
dtboleto EQ /pws/zycbe031-dtboleto."#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_zycbt064.
CLEAR wa_zycbt113.
SELECT SINGLE * FROM /pws/zycbt113
INTO wa_zycbt113
WHERE nrseq EQ itab_zycbt064-nrchave
AND nrparc EQ itab_zycbt064-nrparc
AND tpparc EQ itab_zycbt064-tpparc.
CLEAR wa_zycbt112.
SELECT SINGLE * FROM /pws/zycbt112
INTO wa_zycbt112
...
...
ENDIF.
MODIFY /pws/zycbt113 FROM wa_zycbt113.
ENDLOOP.
WHEN 'CE'.
CLEAR itab_zycbt064.
REFRESH itab_zycbt064.
SELECT *
FROM /pws/zycbt064
INTO TABLE itab_zycbt064
WHERE nrboleto EQ /pws/zycbe031-nrseq AND
* >> Início da exclusão: FORM ESTORNA_APROV
dtboleto EQ /pws/zycbe031-dtboleto.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_APROV
dtboleto EQ /pws/zycbe031-dtboleto."#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_zycbt064.
CLEAR wa_zycbt129.
SELECT SINGLE * FROM /pws/zycbt129
INTO wa_zycbt129
WHERE nrseq EQ itab_zycbt064-nrchave
AND nrparc EQ itab_zycbt064-nrparc
AND tpparc EQ itab_zycbt064-tpparc.
CLEAR wa_zycbt128.
SELECT SINGLE * FROM /pws/zycbt128
INTO wa_zycbt128
...
...
ENDLOOP.
IF sy-subrc = 0.
erro_bi = 'X'.
ENDIF.
ENDIF.
ENDFORM.
FORM excluir_dados.
ok_code = sy-ucomm.
w_ok = sy-ucomm.
SELECT SINGLE * FROM /pws/zycbt236 INTO /pws/zycbe236
* >> Início da exclusão: FORM EXCLUIR_DADOS
WHERE nrboleto = itab_zycbt031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUIR_DADOS
WHERE nrboleto = itab_zycbt031-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
IF v_prog_origem NE c_prog_cotacao.
MESSAGE e061(/pws/zycbm) WITH
'Existe cotação para esse boleto,'(261)
'exclusão não permitida.'(262).
ENDIF.
ENDIF.
IF v_resp IS INITIAL.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
...
...
EXIT.
ENDIF.
SELECT SINGLE * FROM /pws/zycbt134
WHERE nrseq = /pws/zycbe031-nrseq AND
dtboleto = /pws/zycbe031-dtboleto.
IF sy-subrc EQ 0.
IF /pws/zycbe031-mdcorresp = 'IP'.
PERFORM verifica_associacao.
SELECT SINGLE belnr_co FROM /pws/zycbt108
INTO wa_zycbt108-belnr_co
* >> Início da exclusão: FORM EXCLUIR_DADOS
WHERE nrseq_pgfat = /pws/zycbe031-nrcorresp.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUIR_DADOS
WHERE nrseq_pgfat = /pws/zycbe031-nrcorresp."#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
IF /pws/zycbe145-cod_fech EQ 'TR' OR
( /pws/zycbe145-cod_fech NE 'TR' AND
( /pws/zycbt007-saida_auto IS INITIAL OR
( NOT /pws/zycbt007-saida_auto IS INITIAL AND
( /pws/zycbe031-mdcorresp NE 'IP' OR
( /pws/zycbe031-mdcorresp EQ 'IP' AND
wa_zycbt108-belnr_co IS INITIAL ) ) ) ) ).
MESSAGE i015 WITH text-072 text-073.
EXIT.
...
...
WHERE nrseq EQ /pws/zycbe031-nrseq.
PERFORM atualiza_campos_estrategia_ori.
IF sy-subrc EQ 0.
MESSAGE s079 WITH /pws/zycbe031-nrseq.
DELETE FROM /pws/zycbt048
WHERE nrseq EQ /pws/zycbe031-nrseq
AND dtboleto EQ /pws/zycbe031-dtboleto.
ENDIF.
DELETE FROM /pws/zycbt064
WHERE nrboleto EQ /pws/zycbe031-nrseq
* >> Início da exclusão: FORM EXCLUIR_DADOS
AND dtboleto EQ /pws/zycbe031-dtboleto.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUIR_DADOS
AND dtboleto EQ /pws/zycbe031-dtboleto."#EC CI_NOFIRST
* << Fim da inclusão
DESCRIBE TABLE itab_zycbt031 LINES v_linha.
CLEAR /pws/zycbe031.
SET SCREEN '0002'.
ENDIF.
ENDIF.
ENDFORM.
FORM executa_aprovacao.
IF sy-index = 2.
v_belnr = /pws/zycbe031-belnr_pi.
ELSEIF sy-index = 1 OR sy-index = 0.
...
...
REFRESH: itab_zycbt064_aux2, itab_nrpgfat, itab_selreg.
FREE MEMORY: ID '003',
ID '004',
ID '005',
ID '006',
ID '010',
ID '093',
ID 'E011'.
SELECT * FROM /pws/zycbt064
INTO TABLE itab_zycbt064_aux2
* >> Início da exclusão: FORM IMPRIME_BOLETO
WHERE nrboleto EQ itab_zycbt031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM IMPRIME_BOLETO
WHERE nrboleto EQ itab_zycbt031-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
IF NOT itab_zycbt064_aux2[] IS INITIAL.
CLEAR itab_zycbt119.
REFRESH itab_zycbt119.
SELECT * FROM /pws/zycbt119
INTO TABLE itab_zycbt119
FOR ALL ENTRIES IN itab_zycbt064_aux2
WHERE nrseq = itab_zycbt064_aux2-nrchave.
ENDIF.
DESCRIBE TABLE itab_zycbt064_aux2 LINES v_linhas.
IF v_linhas > 1.
...
...
IN PROGRAM (itab_zyglt100-programa).
IF v_cbi002 EQ 'X'.
EXIT.
ENDIF.
ENDIF.
ENDIF.
IF /pws/zycbe031-mdcorresp EQ 'IP'.
PERFORM verifica_associacao.
SELECT SINGLE belnr_co FROM /pws/zycbt108
INTO wa_zycbt108-belnr_co
* >> Início da exclusão: FORM MARCA_EXCLUSAO
WHERE nrseq_pgfat = /pws/zycbe031-nrcorresp.
* << Fim da exclusão
* >> Início da inclusão: FORM MARCA_EXCLUSAO
WHERE nrseq_pgfat = /pws/zycbe031-nrcorresp."#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
IF NOT /pws/zycbt007-saida_auto IS INITIAL AND
/pws/zycbe145-cod_fech NE 'TR' AND
/pws/zycbe031-mdcorresp EQ 'IP' AND
NOT wa_zycbt108-belnr_co IS INITIAL.
IF NOT /pws/zycbe031-belnr_p IS INITIAL.
PERFORM estorno_f53.
PERFORM atualiza_fatura.
ELSE.
/pws/zycbe031-status = 'E'.
...
...
belnr_ir_comp = itab_zycbt002-belnr_ir_comp
dtpagto = itab_zycbt002-dtpagto
dtpagtoir = itab_zycbt002-dtpagtoir
WHERE nrseqc = itab_zycbt002-nrseqc
AND nrparc = itab_zycbt002-nrparc
AND tpparc = itab_zycbt002-tpparc.
ENDIF.
ENDFORM.
FORM modo_batch_input.
SELECT * FROM /pws/zycbt039
* >> Início da exclusão: FORM MODO_BATCH_INPUT
INTO CORRESPONDING FIELDS OF TABLE itab_modo.
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_BATCH_INPUT
INTO CORRESPONDING FIELDS OF TABLE itab_modo."#EC CI_NOWHERE
* << Fim da inclusão
SORT itab_modo DESCENDING.
CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
EXPORTING
textline1 = text-080
textline2 = text-081
titel = text-082
IMPORTING
answer = v_modo_bi
TABLES
t_spopli = itab_modo
...
...
IF NOT /pws/zycbt118-belnrdesp IS INITIAL.
itab_zycbt031_tc-belnr_p = /pws/zycbt118-belnrdesp.
ELSE.
itab_zycbt031_tc-belnr_p = /pws/zycbe031-belnr_p.
ENDIF.
ENDIF.
WHEN 'IP'.
READ TABLE itab_zycbt119
WITH KEY nrseq = itab_zycbt031_tc-nrcorresp.
SELECT SINGLE * FROM /pws/zycbt108
* >> Início da exclusão: FORM SALVAR_DADOS
WHERE nrseq_pgfat = itab_zycbt031_tc-nrcorresp.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR_DADOS
WHERE nrseq_pgfat = itab_zycbt031_tc-nrcorresp."#EC CI_NOFIRST
* << Fim da inclusão
IF /pws/zycbt108-belnr_co NE itab_zycbt119-belnr_p AND
NOT itab_zycbt119-belnr_p IS INITIAL.
itab_zycbt031_tc-belnr_p = itab_zycbt119-belnr_p.
ELSEIF NOT /pws/zycbt108-belnr_co IS INITIAL.
IF NOT /pws/zycbt108-belnr_lq IS INITIAL AND
NOT /pws/zycbt007-saida_auto = 'X'.
itab_zycbt031_tc-belnr_p = /pws/zycbt108-belnr_lq.
ELSE.
itab_zycbt031_tc-belnr_p = /pws/zycbt108-belnr_co.
ENDIF.
...
...
ENDIF.
IF v_bukrs_from IS INITIAL.
v_bukrs_from = v_bukrs_to.
ENDIF.
IF v_bukrs_to IS INITIAL.
v_bukrs_to = v_bukrs_from.
ENDIF.
IF /pws/zycbe031-nrseq IS INITIAL AND /pws/zycbe031a-nrseq IS INITIAL.
SELECT MIN( nrseq ) MAX( nrseq )
INTO (/pws/zycbe031-nrseq,/pws/zycbe031a-nrseq)
* >> Início da exclusão: FORM SELECT_DATA_ZYCBT031
FROM /pws/zycbt031.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_DATA_ZYCBT031
FROM /pws/zycbt031."#EC CI_BYPASS
* << Fim da inclusão
IF /pws/zycbe031-nrseq IS INITIAL.
/pws/zycbe031-nrseq = '0000000000'.
ENDIF.
ENDIF.
IF /pws/zycbe031-dtboleto IS INITIAL AND /pws/zycbe031a-dtboleto IS
INITIAL.
SELECT MIN( dtboleto ) MAX( dtboleto )
INTO (/pws/zycbe031-dtboleto,/pws/zycbe031a-dtboleto)
* >> Início da exclusão: FORM SELECT_DATA_ZYCBT031
FROM /pws/zycbt031.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_DATA_ZYCBT031
FROM /pws/zycbt031."#EC CI_BYPASS
* << Fim da inclusão
IF /pws/zycbe031-dtboleto IS INITIAL.
/pws/zycbe031-dtboleto = '00000000'.
ENDIF.
ENDIF.
IF /pws/zycbe031-dtvencto IS INITIAL AND /pws/zycbe031a-dtvencto IS
INITIAL.
SELECT MIN( dtvencto ) MAX( dtvencto )
INTO (/pws/zycbe031-dtvencto,/pws/zycbe031a-dtvencto)
* >> Início da exclusão: FORM SELECT_DATA_ZYCBT031
FROM /pws/zycbt031.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_DATA_ZYCBT031
FROM /pws/zycbt031."#EC CI_BYPASS
* << Fim da inclusão
IF /pws/zycbe031-dtvencto IS INITIAL OR
/pws/zycbe031-dtvencto EQ space.
/pws/zycbe031-dtvencto = '00000000'.
ENDIF.
ENDIF.
IF /pws/zycbe031-bukrs IS INITIAL AND /pws/zycbe031a-bukrs IS INITIAL.
SELECT MIN( bukrs ) MAX( bukrs )
INTO (/pws/zycbe031-bukrs,/pws/zycbe031a-bukrs)
* >> Início da exclusão: FORM SELECT_DATA_ZYCBT031
FROM /pws/zycbt031.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECT_DATA_ZYCBT031
FROM /pws/zycbt031."#EC CI_BYPASS
* << Fim da inclusão
IF /pws/zycbe031-bukrs IS INITIAL.
/pws/zycbe031-bukrs = '0000'.
ENDIF.
ENDIF.
IF v_export IS INITIAL AND v_import IS INITIAL AND v_cambio IS INITIAL
AND ( v_tv IS INITIAL AND NOT wa_zyglt009-viagemtv IS INITIAL ).
MESSAGE w015 WITH text-086.
ELSE.
IF /pws/zycbe031a-nrseq IS INITIAL.
/pws/zycbe031a-nrseq = /pws/zycbe031-nrseq.
...
...
FORM verifica_pagtoirrf.
IF /pws/zycbe031-vlir GT 0 AND /pws/zycbe031-pagtoirrf IS INITIAL.
MESSAGE e015 WITH text-084.
ENDIF.
ENDFORM.
FORM apaga_registro.
DATA:
wa_zycbt031_temp LIKE LINE OF itab_zycbt031.
IF itab_zycbt031-v_checked_flg EQ 'X' .
SELECT SINGLE * FROM /pws/zycbt236 INTO /pws/zycbe236
* >> Início da exclusão: FORM APAGA_REGISTRO
WHERE nrboleto = itab_zycbt031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM APAGA_REGISTRO
WHERE nrboleto = itab_zycbt031-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
IF v_prog_origem NE c_prog_cotacao.
MESSAGE e061(/pws/zycbm) WITH
'Existe cotação para esse boleto,'(261)
'exclusão não permitida.'(262).
ENDIF.
ENDIF.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
text_question = text-131
...
...
SELECT SINGLE * FROM /pws/zycbt031 INTO /pws/zycbe031
WHERE nrseq = itab_zycbt031-nrseq
AND dtboleto = itab_zycbt031-dtboleto.
IF sy-subrc NE 0.
MESSAGE w059(/pws/zycbm).
ELSE.
IF /pws/zycbe031-mdcorresp = 'IP'.
PERFORM verifica_associacao.
SELECT SINGLE belnr_co FROM /pws/zycbt108
INTO wa_zycbt108-belnr_co
* >> Início da exclusão: FORM APAGA_REGISTRO
WHERE nrseq_pgfat = /pws/zycbe031-nrcorresp.
* << Fim da exclusão
* >> Início da inclusão: FORM APAGA_REGISTRO
WHERE nrseq_pgfat = /pws/zycbe031-nrcorresp."#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
IF /pws/zycbe145-cod_fech EQ 'TR' OR
( /pws/zycbe145-cod_fech NE 'TR' AND
( /pws/zycbt007-saida_auto IS INITIAL OR
( NOT /pws/zycbt007-saida_auto IS INITIAL AND
( /pws/zycbe031-mdcorresp NE 'IP' OR
( /pws/zycbe031-mdcorresp EQ 'IP' AND
wa_zycbt108-belnr_co IS INITIAL ) ) ) ) ).
IF NOT /pws/zycbe031-statuspg IS INITIAL
AND /pws/zycbe031-statuspg <> 'F'.
...
...
ENDIF.
ENDIF.
MOVE /pws/zycbe031 TO wa_zycbt031.
v_status_s = '1'.
CLEAR /pws/zycbe048.
SELECT SINGLE * FROM /pws/zycbt048 INTO /pws/zycbe048
WHERE nrseq = itab_zycbt031-nrseq
AND dtboleto = itab_zycbt031-dtboleto.
SELECT * FROM /pws/zycbt064
INTO TABLE itab_zycbt064
* >> Início da exclusão: FORM APAGA_REGISTRO
WHERE nrboleto = itab_zycbt031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM APAGA_REGISTRO
WHERE nrboleto = itab_zycbt031-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
IF ( /pws/zycbe031-mdcorresp = 'CD' OR
( /pws/zycbe031-mdcorresp = 'ED' AND
/pws/zycbe031-tabela = '/PWS/ZYCBT118' ) OR
/pws/zycbe031-mdcorresp = 'ID' ).
SELECT SINGLE * FROM /pws/zycbt118 INTO wa_zycbt118
WHERE nrseq = /pws/zycbe031-nrcorresp.
IF wa_zycbt118-frpagto EQ 'C' AND
wa_zycbt118-fcambio EQ 'N'.
/pws/zycbe031-status = 'E'.
...
...
WHERE nrseq EQ /pws/zycbe031-nrseq
AND dtboleto EQ /pws/zycbe031-dtboleto.
DELETE FROM /pws/zycbt031
WHERE nrseq EQ /pws/zycbe031-nrseq
AND dtboleto EQ /pws/zycbe031-dtboleto.
DELETE FROM /pws/zycbt145
WHERE nrseq EQ /pws/zycbe031-nrseq.
PERFORM atualiza_campos_estrategia_ori.
DELETE FROM /pws/zycbt064
WHERE nrboleto EQ /pws/zycbe031-nrseq
* >> Início da exclusão: FORM APAGA_REGISTRO
AND dtboleto EQ /pws/zycbe031-dtboleto.
* << Fim da exclusão
* >> Início da inclusão: FORM APAGA_REGISTRO
AND dtboleto EQ /pws/zycbe031-dtboleto."#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
MESSAGE s011(pc) WITH text-007.
DELETE FROM /pws/zycbt048
WHERE nrseq EQ /pws/zycbe031-nrseq
AND dtboleto EQ /pws/zycbe031-dtboleto.
CLEAR: itab_dados_tc, itab_dados_tc_aux, itab_zycbt031_tc,
itab_zycbt124_aux, /pws/zycbe145.
REFRESH: itab_dados_tc, itab_dados_tc_aux, itab_zycbt031_tc,
itab_zycbt124_aux.
ENDIF.
...
...
( /pws/zycbe031-mdcorresp = 'ED' AND
/pws/zycbe031-tpdesp NE 'J' AND
/pws/zycbe031-tpdesp NE 'D' AND
/pws/zycbe031-tpdesp NE 'P' AND
/pws/zycbe031-tpdesp NE 'PR' ) ).
IF /pws/zycbe031-mdcorresp = 'CP'.
SELECT SINGLE * FROM /pws/zycbt124 INTO wa_zycbt124
WHERE nrseq = /pws/zycbe031-nrcorresp.
SELECT * FROM /pws/zycat025 INTO TABLE itab_zycat025
WHERE nrseq = /pws/zycbe031-nrcorresp
* >> Início da exclusão: FORM SELECIONA_BOLETO
AND frpagto_imp = 'R'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_BOLETO
AND frpagto_imp = 'R'."#EC CI_NOFIRST
* << Fim da inclusão
IF wa_zycbt124-tpoper = 'R' OR
wa_zycbt124-frpagto = 'R' OR
sy-subrc = 0.
/pws/zycbe145-cod_fech = 'PR'.
PERFORM sel_boleto.
EXIT.
ENDIF.
ENDIF.
CALL SCREEN '0102' STARTING AT 2 2.
IF NOT /pws/zygle326-cod_fech IS INITIAL.
...
...
ELSE.
LOOP AT SCREEN.
IF screen-name EQ '/PWS/ZYCBE031-BOLCOMPRA'.
screen-invisible = '1'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
SELECT SINGLE * FROM /pws/zycbt236 INTO /pws/zycbe236
* >> Início da exclusão: FORM DESABILITAR
WHERE nrboleto = /pws/zycbe031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM DESABILITAR
WHERE nrboleto = /pws/zycbe031-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
IF v_prog_origem NE c_prog_cotacao.
LOOP AT SCREEN.
screen-input = '0'.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
ENDIF.
ENDFORM.
FORM avanca_registro.
...
...
CHECK sy-subrc = 0.
SELECT SINGLE * FROM /pws/zycbt031 INTO /pws/zycbe031
WHERE nrseq = itab_zycbt031-nrseq
AND dtboleto = itab_zycbt031-dtboleto.
MOVE /pws/zycbe031 TO wa_zycbt031.
CLEAR /pws/zycbe064.
CLEAR itab_zycbt064.
REFRESH itab_zycbt064.
SELECT * FROM /pws/zycbt064
INTO TABLE itab_zycbt064
* >> Início da exclusão: FORM AVANCA_REGISTRO
WHERE nrboleto = itab_zycbt031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM AVANCA_REGISTRO
WHERE nrboleto = itab_zycbt031-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
IF /pws/zycbe031-mdcorresp NE 'TV'.
PERFORM seleciona_dados_gerais.
PERFORM carrega_dados.
PERFORM calcula_valores_totais.
ELSE.
CLEAR /pws/zycbe048.
SELECT SINGLE * FROM /pws/zycbt048 INTO /pws/zycbe048
WHERE nrseq = itab_zycbt031-nrseq
AND dtboleto = itab_zycbt031-dtboleto.
ENDIF.
...
...
DATA v_proximo LIKE sy-tabix.
READ TABLE itab_zycbt031 WITH KEY nrseq = /pws/zycbe031-nrseq.
v_proximo = sy-tabix - 1.
READ TABLE itab_zycbt031 INDEX v_proximo.
CHECK sy-subrc = 0.
CLEAR /pws/zycbe064.
CLEAR itab_zycbt064.
REFRESH itab_zycbt064.
SELECT * FROM /pws/zycbt064
INTO TABLE itab_zycbt064
* >> Início da exclusão: FORM VOLTA_REGISTRO
WHERE nrboleto = itab_zycbt031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM VOLTA_REGISTRO
WHERE nrboleto = itab_zycbt031-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycbt031 INTO /pws/zycbe031
WHERE nrseq = itab_zycbt031-nrseq
AND dtboleto = itab_zycbt031-dtboleto.
MOVE /pws/zycbe031 TO wa_zycbt031.
IF /pws/zycbe031-mdcorresp NE 'TV'.
PERFORM seleciona_dados_gerais.
PERFORM carrega_dados.
PERFORM calcula_valores_totais.
ELSE.
CLEAR /pws/zycbe048.
...
...
IF /pws/zycbe031-mdcorresp NE 'IP' AND
( wa_cols-screen-name EQ '/PWS/ZYCBE119-BCONEGOC' OR
wa_cols-screen-name EQ '/PWS/ZYCBE119-REFBANCO' ).
wa_cols-screen-input = '0'.
wa_cols-invisible = '1'.
ENDIF.
MODIFY tc_cont-cols FROM wa_cols.
ENDLOOP.
ENDIF.
SELECT SINGLE * FROM /pws/zycbt236 INTO /pws/zycbe236
* >> Início da exclusão: FORM DESABILITAR_100
WHERE nrboleto = /pws/zycbe031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM DESABILITAR_100
WHERE nrboleto = /pws/zycbe031-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
IF v_prog_origem NE c_prog_cotacao.
LOOP AT SCREEN.
IF screen-name NE 'V_PROPOR'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
...
...
FORM seleciona_dados_gerais.
IF NOT itab_zycbt064[] IS INITIAL.
SELECT * FROM /pws/zycbt134 INTO TABLE itab_zycbt134
FOR ALL ENTRIES IN itab_zycbt064
WHERE nrseq = itab_zycbt064-nrboleto.
SELECT * FROM /pws/zycbt048 INTO TABLE itab_zycbt048
FOR ALL ENTRIES IN itab_zycbt064
WHERE nrseq = itab_zycbt064-nrboleto.
SELECT * FROM /pws/zycbt236 INTO TABLE itab_zycbt236
FOR ALL ENTRIES IN itab_zycbt031
* >> Início da exclusão: FORM SELECIONA_DADOS_GERAIS
WHERE nrboleto = itab_zycbt031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_GERAIS
WHERE nrboleto = itab_zycbt031-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
CASE /pws/zycbe031-mdcorresp.
WHEN 'IP'.
SELECT * FROM /pws/zycbt119 INTO TABLE itab_zycbt119
FOR ALL ENTRIES IN itab_zycbt064
WHERE nrseq = itab_zycbt064-nrchave.
WHEN 'IF'.
SELECT * FROM /pws/zycbt112 INTO TABLE itab_zycbt112
FOR ALL ENTRIES IN itab_zycbt064
WHERE nrseq = itab_zycbt064-nrchave.
IF NOT itab_zycbt112[] IS INITIAL.
...
...
ENDIF.
SELECT * FROM /pws/zycet013 INTO TABLE itab_zycet013
FOR ALL ENTRIES IN itab_zycbt064
WHERE nrseq = itab_zycbt064-nrchave
AND lifnr = itab_zycbt064-lifnr
AND gsber = itab_zycbt064-gsberf
AND prctr = itab_zycbt064-prctr.
WHEN 'EP'.
SELECT * FROM /pws/zycet033 INTO TABLE itab_zycet033
FOR ALL ENTRIES IN itab_zycbt064
* >> Início da exclusão: FORM SELECIONA_DADOS_GERAIS
WHERE nrpres = itab_zycbt064-nrchave.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_GERAIS
WHERE nrpres = itab_zycbt064-nrchave."#EC CI_NOFIRST
* << Fim da inclusão
WHEN 'IU'.
SELECT * FROM /pws/zycmt001 INTO TABLE itab_zycmt001
FOR ALL ENTRIES IN itab_zycbt064
WHERE nrseq = itab_zycbt064-nrchave
AND bcosaidapgto = itab_zycbt064-lifnr
AND dtvencto = itab_zycbt064-dtvencto.
ENDCASE.
ENDIF.
ENDFORM.
FORM carrega_dados.
...
...
AND codmodul EQ /pws/zycbe031-codmodul.
IF NOT /pws/zycbt118-belnrdesp IS INITIAL.
itab_zycbt031_tc-belnr_p = /pws/zycbt118-belnrdesp.
ELSE.
itab_zycbt031_tc-belnr_p = /pws/zycbe031-belnr_p.
ENDIF.
WHEN 'IP'.
READ TABLE itab_zycbt119
WITH KEY nrseq = itab_zycbt031_tc-nrcorresp.
SELECT SINGLE * FROM /pws/zycbt108
* >> Início da exclusão: FORM CARREGA_DADOS
WHERE nrseq_pgfat = itab_zycbt031_tc-nrcorresp.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_DADOS
WHERE nrseq_pgfat = itab_zycbt031_tc-nrcorresp."#EC CI_NOFIRST
* << Fim da inclusão
IF /pws/zycbt108-belnr_co NE itab_zycbt119-belnr_p AND
NOT itab_zycbt119-belnr_p IS INITIAL.
itab_zycbt031_tc-belnr_p = itab_zycbt119-belnr_p.
ELSEIF NOT /pws/zycbt108-belnr_co IS INITIAL.
IF NOT /pws/zycbt108-belnr_lq IS INITIAL AND
NOT /pws/zycbt007-saida_auto = 'X' AND
NOT wa_zycbt089-fech_cm = space.
itab_zycbt031_tc-belnr_p = /pws/zycbt108-belnr_lq.
ELSE.
itab_zycbt031_tc-belnr_p = /pws/zycbt108-belnr_co.
...
...
ENDFORM.
FORM sel_boleto.
PERFORM lock_record.
IF v_block EQ 'X'.
EXIT.
ENDIF.
CLEAR: itab_zycbt064, itab_zycbt064.
REFRESH: itab_zycbt064, itab_zycbt064.
SELECT * FROM /pws/zycbt064
INTO TABLE itab_zycbt064
* >> Início da exclusão: FORM SEL_BOLETO
WHERE nrboleto = /pws/zycbe031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM SEL_BOLETO
WHERE nrboleto = /pws/zycbe031-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
itab_zycbt064[] = itab_zycbt064[].
PERFORM seleciona_dados_gerais.
PERFORM carrega_dados.
IF /pws/zycbe031-mdcorresp EQ 'EL'.
SELECT SINGLE parvw FROM /pws/zycbt017
INTO v_parvw
WHERE nrinvoic EQ /pws/zycbe031-nrcorresp.
SELECT SINGLE * FROM /pws/zycbt007.
IF ( v_parvw EQ 'CG' OR
v_parvw EQ 'AD' OR
...
...
INTO (rbkp-belnr,rbkp-gjahr)
WHERE belnr = wa_zycbt124-belnr_re
AND xblnr = wa_zycbt124-xblnr
AND blart = 'RE'.
IF sy-subrc = 0.
CONCATENATE rbkp-belnr rbkp-gjahr INTO v_awkey.
SELECT SINGLE belnr FROM bkpf INTO (bkpf-belnr)
WHERE gjahr = rbkp-gjahr
AND awkey = v_awkey
AND blart = 'RE'
* >> Início da exclusão: FORM EXECUTA_F51_CP
AND xblnr = wa_zycbt124-xblnr.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F51_CP
AND xblnr = wa_zycbt124-xblnr. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc = 0.
itab_zycbe033-belnr = bkpf-belnr.
itab_zycbe033-awkey = v_awkey.
ENDIF.
ENDIF.
ENDIF.
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = /pws/zycbe031-bukrs
ktosl = 'TRF'
...
...
text-011.
itab_zycbe033-waers = itab_zycbt124_aux-waers.
itab_zycbe033-zterm = wa_zycbt007-condpgvista.
PERFORM verify_null_field USING wa_zycbt011-blart
'BLART'
text-012.
itab_zycbe033-blart = wa_zycbt011-blart.
IF /pws/zycbt125-tprem NE 2.
CALL CUSTOMER-FUNCTION '016'
TABLES
* >> Início da exclusão: FORM EXECUTA_F51_CP
t_dados = itab_zycbe033.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F51_CP
t_dados = itab_zycbe033. "#EC *
* << Fim da inclusão
APPEND itab_zycbe033.
ELSE.
CALL CUSTOMER-FUNCTION '075'
TABLES
* >> Início da exclusão: FORM EXECUTA_F51_CP
t_dados = itab_zycbe033.
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_F51_CP
t_dados = itab_zycbe033. "#EC *
* << Fim da inclusão
MODIFY itab_zycbe033 INDEX 1.
ENDIF.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
IF itab_zycbt034[] IS INITIAL.
CALL FUNCTION '/PWS/ZYGL_TRANSACAO_F_51J'
EXPORTING
v_modo = v_modo_bi_aux
TABLES
...
...
WHERE nrseq = /pws/zycbe031-nrseq.
ENDIF.
ENDIF.
ENDFORM.
FORM exclui_boleto.
check erro_bi is initial.
/pws/zycbe031-status = 'I'.
/pws/zycbe031-statusp = 'I'.
SELECT * FROM /pws/zycbt064
INTO TABLE itab_zycbt064
* >> Início da exclusão: FORM EXCLUI_BOLETO
WHERE nrboleto = /pws/zycbe031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_BOLETO
WHERE nrboleto = /pws/zycbe031-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
IF sy-index = 1 OR sy-index = 0.
/pws/zycbe031-belnr_p = space.
ELSEIF sy-index = 2.
IF /pws/zycbe031-pagtoirrf EQ 'BCO'.
IF /pws/zycbe031-mdcorresp EQ 'EL'.
PERFORM clear_date_batch.
PERFORM seleciona_dados_el.
PERFORM anula_compens_el.
ENDIF.
ELSEIF /pws/zycbe031-pagtoirrf EQ 'EMP'.
...
...
IF NOT wa_despesa-frpagto = 'C' OR
( wa_despesa-tpcontr(1) CA 'PS' AND
wa_despesa-tpdesp EQ 'J' ).
CLEAR wa_despesa-belnr.
ENDIF.
FREE: itab_zycbt064_aux, itab_zycbt004_aux.
SELECT nrchave nrinvoic nrparc dtliquid tpjuros
tpdesp dtincl
FROM /pws/zycbt064
INTO TABLE itab_zycbt064_aux
* >> Início da exclusão: FORM EXCLUI_BOLETO
WHERE nrboleto EQ /pws/zycbe031-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_BOLETO
WHERE nrboleto EQ /pws/zycbe031-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
IF NOT itab_zycbt064_aux[] IS INITIAL.
SELECT nrseqc tpdesp nrparc dtincl nrcontr tpcontr
dtliquid tpjuros frpagto belnr nrinvoic
FROM /pws/zycbt004
INTO TABLE itab_zycbt004_aux
FOR ALL ENTRIES IN itab_zycbt064_aux
WHERE nrseqc EQ itab_zycbt064_aux-nrchave(8)
AND tpdesp EQ itab_zycbt064_aux-tpdesp
AND nrparc EQ itab_zycbt064_aux-nrparc
AND dtincl EQ itab_zycbt064_aux-dtincl
...
...
MESSAGE s205.
ENDFORM.
FORM limpa_status_liberacao.
IF /pws/zycbe031-mdcorresp EQ 'CP'.
SELECT SINGLE * FROM /pws/zycbt124
INTO wa_zycbt124
WHERE nrseq EQ /pws/zycbe031-nrcorresp.
IF NOT itab_zycbt031_tc[] IS INITIAL.
SELECT * FROM /pws/zycat025 INTO TABLE itab_zycat025
FOR ALL ENTRIES IN itab_zycbt031_tc
* >> Início da exclusão: FORM LIMPA_STATUS_LIBERACAO
WHERE nrseq = itab_zycbt031_tc-nrcorresp.
* << Fim da exclusão
* >> Início da inclusão: FORM LIMPA_STATUS_LIBERACAO
WHERE nrseq = itab_zycbt031_tc-nrcorresp."#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
LOOP AT itab_zycat025 WHERE frpagto_imp = 'C'.
EXIT.
ENDLOOP.
IF ( wa_zycbt124-criacao NE 'S' AND sy-subrc EQ 0 ) OR
wa_zycbt124-tpoper = 'R'.
EXIT.
ELSEIF wa_zycbt124-criacao EQ 'S' AND
( wa_zycbt124-frpagto = 'C' OR sy-subrc EQ 0 ).
EXIT.
...
...
p_tabela
CHANGING p_wa_log.
DATA: t_prog(72) TYPE c OCCURS 1000 WITH HEADER LINE,
w_prog LIKE trdir-name.
CLEAR: t_prog, wa_log.
REFRESH: t_prog.
APPEND 'report sy-repid. ' TO t_prog.
APPEND 'form log using p_dados ' TO t_prog.
APPEND ' p_tabela ' TO t_prog.
APPEND ' CHANGING P_WA_LOG. ' TO t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
IF sy-saprl(3) GE '620' OR sy-saprl(2) EQ '47'.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
IF sy-saprl(3) GE '620' OR sy-saprl(2) EQ '47'. "#EC PORTABLE
* << Fim da inclusão
APPEND 'tables: dd03l. ' TO t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
APPEND 'DATA: BEGIN OF binary_tab OCCURS 0, ' TO t_prog.
APPEND ' default(200) TYPE c, ' TO t_prog.
APPEND ' END OF binary_tab. ' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
APPEND text-270 TO t_prog.
APPEND text-271 TO t_prog.
APPEND text-272 TO t_prog.
* << Fim da inclusão
APPEND 'data: v_tam type dd03l-leng, ' TO t_prog.
APPEND ' v_valor(50) type c, ' TO t_prog.
APPEND ' v_xstring type xstring. ' TO t_prog.
APPEND 'FIELD-SYMBOLS: <VALOR> TYPE ANY. ' TO t_prog.
APPEND 'do. ' TO t_prog.
APPEND ' ASSIGN COMPONENT SY-INDEX OF STRUCTURE ' TO t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
APPEND ' p_dados TO <VALOR>. ' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
APPEND text-273 TO t_prog.
* << Fim da inclusão
APPEND ' if sy-subrc ne 0. ' TO t_prog.
APPEND ' exit. ' TO t_prog.
APPEND ' endif. ' TO t_prog.
APPEND ' select single * from dd03l ' TO t_prog.
APPEND ' where tabname = p_tabela ' TO t_prog.
APPEND ' and position = sy-index. ' TO t_prog.
MOVE text-451 TO t_prog.
APPEND t_prog.
MOVE text-452 TO t_prog.
APPEND t_prog.
APPEND ' clear v_valor. ' TO t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
APPEND ' v_valor = <VALOR>. ' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
APPEND text-274 TO t_prog.
* << Fim da inclusão
MOVE text-453 TO t_prog.
APPEND t_prog.
APPEND ' condense v_valor no-gaps. ' TO t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
APPEND ' SHIFT v_valor(dd03l-leng) RIGHT ' TO t_prog.
APPEND ' DELETING TRAILING space. ' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
APPEND text-275 TO t_prog.
APPEND text-276 TO t_prog.
* << Fim da inclusão
MOVE text-454 TO t_prog.
APPEND t_prog.
APPEND ' v_xstring = v_valor. ' TO t_prog.
MOVE text-455 TO t_prog.
APPEND t_prog.
APPEND ' EXPORTING ' TO t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
APPEND ' BUFFER = v_xstring ' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
APPEND text-277 TO t_prog.
* << Fim da inclusão
APPEND ' TABLES ' TO t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
APPEND ' BINARY_TAB = binary_tab. ' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
APPEND text-278 TO t_prog.
* << Fim da inclusão
APPEND ' move binary_tab(dd03l-intlen) to ' TO t_prog.
APPEND ' p_wa_log+v_tam(dd03l-intlen). ' TO t_prog.
APPEND ' v_tam = v_tam + dd03l-intlen. ' TO t_prog.
APPEND ' else. ' TO t_prog.
* >> Início da exclusão: FORM MONTA_LOG_CFM
APPEND ' p_wa_log+v_tam(dd03l-leng) = <VALOR>. ' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_LOG_CFM
APPEND text-279 TO t_prog.
* << Fim da inclusão
APPEND ' v_tam = v_tam + dd03l-leng. ' TO t_prog.
APPEND ' endif. ' TO t_prog.
APPEND 'enddo. ' TO t_prog.
ELSE.
APPEND 'p_wa_log = p_dados. ' TO t_prog.
ENDIF.
APPEND 'endform. ' TO t_prog.
GENERATE SUBROUTINE POOL t_prog NAME w_prog.
IF sy-subrc = 0.
PERFORM log IN PROGRAM (w_prog) USING p_dados
...
...
IF FOUND.
ENDIF.
ENDFORM.
FORM atualiza_itab_119_108.
CLEAR itab_zycbt064.
REFRESH itab_zycbt064.
SELECT *
FROM /pws/zycbt064
INTO TABLE itab_zycbt064
WHERE nrboleto EQ /pws/zycbe031-nrseq AND
* >> Início da exclusão: FORM ATUALIZA_ITAB_119_108
dtboleto EQ /pws/zycbe031-dtboleto.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_ITAB_119_108
dtboleto EQ /pws/zycbe031-dtboleto."#EC CI_NOFIRST
* << Fim da inclusão
IF /pws/zycbe031-nrparc NE ' ' AND
/pws/zycbe031-nrparc NE '000'.
LOOP AT itab_zycbt064.
READ TABLE itab_zycmt005 WITH KEY
nrseq = itab_zycbt064-nrchave
nrparc = itab_zycbt064-nrparc.
CLEAR: itab_zycmt005-belnr_pag,
itab_zycmt005-belnr_resid,
itab_zycmt005-dtpagto.
MODIFY itab_zycmt005 INDEX sy-tabix.
UPDATE /pws/zycmt005 SET belnr_pag = space
belnr_resid = space
dtpagto = space
WHERE nrseq EQ itab_zycbt064-nrchave
AND nrparc EQ itab_zycbt064-nrparc.
CLEAR wa_zycbt108.
SELECT SINGLE * FROM /pws/zycbt108
INTO wa_zycbt108
* >> Início da exclusão: FORM ATUALIZA_ITAB_119_108
WHERE nrseq_pgfat EQ itab_zycbt064-nrchave.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_ITAB_119_108
WHERE nrseq_pgfat EQ itab_zycbt064-nrchave."#EC CI_NOFIRST
* << Fim da inclusão
wa_zycbt108-slfat = wa_zycbt108-slfat + itab_zycmt005-valor.
MODIFY /pws/zycbt108 FROM wa_zycbt108.
CLEAR wa_zycbt119.
SELECT SINGLE * FROM /pws/zycbt119
INTO wa_zycbt119
WHERE nrseq EQ itab_zycbt064-nrchave.
wa_zycbt119-slpgfat = wa_zycbt119-slpgfat +
itab_zycmt005-valor.
MODIFY /pws/zycbt119 FROM wa_zycbt119.
ENDLOOP.
ELSE.
LOOP AT itab_zycbt064.
CLEAR wa_zycbt119.
SELECT SINGLE * FROM /pws/zycbt119
INTO wa_zycbt119
WHERE nrseq EQ itab_zycbt064-nrchave.
CLEAR wa_zycbt108.
SELECT SINGLE * FROM /pws/zycbt108
INTO wa_zycbt108
* >> Início da exclusão: FORM ATUALIZA_ITAB_119_108
WHERE nrseq_pgfat = wa_zycbt119-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_ITAB_119_108
WHERE nrseq_pgfat = wa_zycbt119-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
wa_zycbt119-statusp = 'I'.
CLEAR: wa_zycbt119-belnr_p,
wa_zycbt119-belnr51,
wa_zycbt119-dtpagto.
CLEAR /pws/zycit006.
SELECT SINGLE * FROM /pws/zycit006 INTO /pws/zycit006
WHERE nrseq = wa_zycbt119-nrpagto
AND nrseq_pgfat = wa_zycbt119-nrseq.
IF sy-subrc EQ 0 OR NOT wa_zycbt108-belnr_co IS INITIAL.
wa_zycbt119-slpgfat =
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB110
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 270
Texto: (35 caracteres)
"DATA: BEGIN OF binary_tab OCCURS 0,"
Comprimento máximo: 35
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 271
Texto: (20 caracteres)
"default(200) TYPE c,"
Comprimento máximo: 20
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 272
Texto: (18 caracteres)
"END OF binary_tab."
Comprimento máximo: 18
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 273
Texto: (19 caracteres)
"p_dados TO <VALOR>."
Comprimento máximo: 19
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 274
Texto: (18 caracteres)
"v_valor = <VALOR>."
Comprimento máximo: 18
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 275
Texto: (31 caracteres)
"SHIFT v_valor(dd03l-leng) RIGHT"
Comprimento máximo: 31
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 276
Texto: (24 caracteres)
"DELETING TRAILING space."
Comprimento máximo: 24
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 277
Texto: (22 caracteres)
"BUFFER = v_xstring"
Comprimento máximo: 22
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 278
Texto: (24 caracteres)
"BINARY_TAB = binary_tab."
Comprimento máximo: 24
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 279
Texto: (37 caracteres)
"p_wa_log+v_tam(dd03l-leng) = <VALOR>."
Comprimento máximo: 37