CE PLUS - Nota 010993
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Relatórios
Data/Hora da Publicação: 25/02/2011 00:00:00
Data/Hora Última Alteração: 25/02/2011 16:58:31
Descrição da Nota: CODE INSPECTOR
Sintoma
Validações de Code Inspector
Solução
Validações de Code Inspector
Versões Tratadas
8.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10993 Data: 25/02/2011 Hora: 16:34:35
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10993
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 8.0
Pacote : 00006
Agrupamento : 00060
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
CODE INSPECTOR
----------------------------------------------------------------------------------------------------
Palavras Chave:
CODE INSPECTOR
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/LZYCMGF2F01
REPS /PWS/MZYCA109F01
REPS /PWS/MZYCA111F01
REPS /PWS/MZYCB001F01
REPS /PWS/MZYCB001F04
REPS /PWS/MZYCB001I01
REPS /PWS/MZYCB001X01
REPS /PWS/MZYCB002F01
REPS /PWS/MZYCB004F03
REPS /PWS/MZYCB009F01
REPS /PWS/MZYCB009F03
REPS /PWS/MZYCB009F08
REPS /PWS/MZYCB009F09
REPS /PWS/MZYCB009F10
REPS /PWS/MZYCB010F01
REPS /PWS/MZYCB028F01
REPS /PWS/MZYCB105F01
REPS /PWS/MZYCB105I01
REPS /PWS/MZYCB106F01
REPS /PWS/MZYCB106TOP
REPS /PWS/MZYCB106X01
REPS /PWS/MZYCB110F01
REPS /PWS/MZYCB113F01
REPS /PWS/MZYCB114F01
REPS /PWS/MZYCB116F03
REPS /PWS/MZYCM101F01
REPS /PWS/MZYGL032F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCMGF2F01
...
clear v_ind_delecao.
endif.
endif.
if itab_zycbt131_ant[] is initial.
v_ind_mudanca = 'X'.
endif.
if v_ind_mudanca is initial.
if v_ind_errocont is initial.
modify /pws/zycbt131 from table itab_zycbt131.
modify /pws/zycbt108 from table itab_zycbt108.
* >> Início da exclusão: FORM GRAVA_ASSOC_PGFAT
modify /pws/zycbt119 from /pws/zycbe119.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_ASSOC_PGFAT
move-corresponding /pws/zycbe119 to /pws/zycbt119.
modify /pws/zycbt119.
* << Fim da inclusão
loop at itab_zycmt020.
update /pws/zycmt020 set saldo = itab_zycmt020-saldo
where nrseq = itab_zycmt020-nrseq
and codmod = itab_zycmt020-codmod
and ebeln = itab_zycmt020-ebeln
and ebelp = itab_zycmt020-ebelp.
endloop.
loop at itab_zycbt108 where belnr_lq ne ' '.
if itab_zycbt108-slfat eq 0.
update /pws/zycbt119 set slpgfat = itab_zycbt108-slfat
...
...
endif.
delete itab_zycbt131 where vlme eq ' '.
if v_erro_inclusao eq 'X'.
clear v_erro_inclusao.
clear v_sucesso.
else.
v_sucesso = 'X'.
if v_erro_estorno is initial.
modify /pws/zycbt131 from table itab_zycbt131.
modify /pws/zycbt108 from table itab_zycbt108.
* >> Início da exclusão: FORM GRAVA_ASSOC_PGFAT
modify /pws/zycbt119 from /pws/zycbe119.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_ASSOC_PGFAT
move-corresponding /pws/zycbe119 to /pws/zycbt119.
modify /pws/zycbt119.
* << Fim da inclusão
loop at itab_zycbt108 where belnr_lq ne ' '.
if itab_zycbt108-slfat eq 0.
update /pws/zycbt119 set slpgfat = itab_zycbt108-slfat
belnr_p = itab_zycbt131-belnr_as
dtpagto = sy-datum
where nrseq = itab_zycbt108-nrseq_pgfat.
else.
update /pws/zycbt119 set slpgfat = itab_zycbt108-slfat
belnr_p = itab_zycbt108-belnr_lq
where nrseq = itab_zycbt108-nrseq_pgfat.
...
...
where nrseq = v_nrseq
and nrseq_pgfat <> itab_zycbt108-nrseq_pgfat
and mdcorresp = 'IF'.
endselect.
if sy-subrc = 0.
/pws/zycbe112-belnr2 = v_belnr_a.
else.
clear: /pws/zycbe112-belnr2, /pws/zycbe112-fassoc.
endif.
modify /pws/zycbt108 from itab_zycbt108.
* >> Início da exclusão: FORM ESTORNAR_COMPENSACAO
modify /pws/zycbt112 from /pws/zycbe112.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNAR_COMPENSACAO
move-corresponding /pws/zycbe112 to /pws/zycbt112.
modify /pws/zycbt112.
* << Fim da inclusão
elseif v_tpdoc eq 'A'.
itab_zycbt108-slfat = itab_zycbt131-vlme + itab_zycbt108-slfat.
if ( /pws/zyglt009-contpa = 'Y' and /pws/zycbe117-codint = 'IM' )
or
( /pws/zyglt009-contpa = 'Y' and /pws/zycbe117-codint = 'ES'
and v_trans is initial ).
perform ultima_associacao.
/pws/zycbe117-belnr2 = v_belnr_ult.
endif.
clear: itab_zycbt108-fassoc.
...
...
where nrseq = v_nrseq
and nrseq_pgfat <> itab_zycbt108-nrseq_pgfat
and mdcorresp = 'IA'.
endselect.
if sy-subrc = 0.
/pws/zycbe117-belnr2 = v_belnr_a.
else.
clear: /pws/zycbe117-belnr2.
endif.
modify /pws/zycbt108 from itab_zycbt108.
* >> Início da exclusão: FORM ESTORNAR_COMPENSACAO
modify /pws/zycbt117 from /pws/zycbe117.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNAR_COMPENSACAO
move-corresponding /pws/zycbe117 to /pws/zycbt117.
modify /pws/zycbt117.
* << Fim da inclusão
elseif v_tpdoc eq 'P'.
itab_zycbt108-slfat = itab_zycbt131-vlme + itab_zycbt108-slfat.
clear : itab_zycbt108-fassoc.
modify itab_zycbt108 index v_tabix.
if itab_zycbt131-waers eq /pws/zycbe119-waers.
/pws/zycbe119-slpgfat = itab_zycbt131-vlme +
/pws/zycbe119-slpgfat.
else.
/pws/zycbe119-slpgfat = ( itab_zycbt131-vlme *
itab_zycbt131-parid )
...
...
where nrseq = v_nrseq
and nrseq_pgfat <> itab_zycbt108-nrseq_pgfat
and mdcorresp = 'IP'.
endselect.
if sy-subrc = 0.
/pws/zycbe119-belnr2 = v_belnr_a.
else.
clear: /pws/zycbe119-belnr2.
endif.
modify /pws/zycbt108 from itab_zycbt108.
* >> Início da exclusão: FORM ESTORNAR_COMPENSACAO
modify /pws/zycbt119 from /pws/zycbe119.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNAR_COMPENSACAO
move-corresponding /pws/zycbe119 to /pws/zycbt119.
modify /pws/zycbt119.
* << Fim da inclusão
endif.
loop at itab_zycmt020.
update /pws/zycmt020 set saldo = itab_zycmt020-saldo
where nrseq = itab_zycmt020-nrseq
and codmod = itab_zycmt020-codmod
and ebeln = itab_zycmt020-ebeln
and ebelp = itab_zycmt020-ebelp.
endloop.
if v_tpdoc eq 'I'.
v_mdcorresp = 'IF'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA109F01
...
endloop.
if /pws/zycbe124-tpoper eq 'P' and
( ( /pws/zycbe124-frpagto eq 'C' and
/pws/zycbe124-criacao eq 'S' ) or
v_competencia eq 'X' ).
perform verifica_estrategia_liberacao.
elseif /pws/zycbe124-tpoper eq 'R'.
/pws/zycbe124-frgzu = '2'.
endif.
endif.
* >> Início da exclusão: FORM ALTERA_DADOS
modify /pws/zycbt124 from /pws/zycbe124.
* << Fim da exclusão
* >> Início da inclusão: FORM ALTERA_DADOS
move-corresponding /pws/zycbe124 to /pws/zycbt124.
modify /pws/zycbt124.
* << Fim da inclusão
delete from /pws/zycbt115 where nrcorrep = /pws/zycbe124-nrseq
and tpdoc = 'N'.
/pws/zycbt115-nrcorrep = /pws/zycbe124-nrseq.
/pws/zycbt115-rof = /pws/zycbe115-rof.
/pws/zycbt115-dtrof = /pws/zycbe124-dtrof.
/pws/zycbt115-tpdoc = 'N'.
modify /pws/zycbt115.
if /pws/zycbe127 <> wa_zycbt127.
/pws/zycbe127-waers = /pws/zycbe124-waers.
/pws/zycbe127-nrseq = /pws/zycbe124-nrseq.
...
...
exceptions
text_not_found = 1
others = 2.
if sy-subrc = 0 .
else.
endif.
if v_resp eq '1'.
authority-check object 'S_TCODE' id 'TCD' field '/PWS/ZYCBR102'.
if sy-subrc eq 0.
v_processa = 'X'.
* >> Início da exclusão: FORM PROCESSA_BOLETO
modify /pws/zycbt124 from /pws/zycbe124.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSA_BOLETO
move-corresponding /pws/zycbe124 to /pws/zycbt124.
modify /pws/zycbt124.
* << Fim da inclusão
perform gera_boleto.
else.
message e279.
endif.
else.
exit.
endif.
endform.
form gera_boleto.
data: limpaid type c value space,
...
...
exit.
endloop.
if /pws/zycbe124-tpoper eq 'P' and
( ( /pws/zycbe124-frpagto eq 'C' and /pws/zycbe124-criacao = 'S' )
or v_competencia = 'X' ).
perform verifica_estrategia_liberacao.
elseif /pws/zycbe124-tpoper eq 'R'.
/pws/zycbe124-frgzu = '2'.
endif.
endif.
* >> Início da exclusão: FORM EFETUA_LANCAMENTO
modify /pws/zycbt124 from /pws/zycbe124.
* << Fim da exclusão
* >> Início da inclusão: FORM EFETUA_LANCAMENTO
move-corresponding /pws/zycbe124 to /pws/zycbt124.
modify /pws/zycbt124.
* << Fim da inclusão
check erro_bi_principal is initial and
erro_bi_irrf is initial and
erro_bi_cide is initial and
erro_bi_pis is initial and
erro_bi_cofins is initial and
erro_bi_iof is initial and
erro_bi_iss is initial.
check /pws/zycbe124-criacao eq 'S' or
( /pws/zycbe124-criacao ne 'O' and
not itab_zycat025[] is initial ).
...
...
exit.
endif.
endif.
endif.
if /pws/zycbe124-frgzu = '2'.
perform call_function_f63
using p_tpimp
v_koart_bi
v_shkzg_bi.
elseif /pws/zycbe124-frgzu = '1'.
* >> Início da exclusão: FORM PREENCHE_GERA_CONTABEIS
modify /pws/zycbt124 from /pws/zycbe124.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_GERA_CONTABEIS
move-corresponding /pws/zycbe124 to /pws/zycbt124.
modify /pws/zycbt124.
* << Fim da inclusão
endif.
endform.
form preenche_estorna_contabeis using p_tpimp
p_belnr
p_data.
clear bkpf.
perform determina_ano using p_data
wa_zycbt124-bukrs
changing v_ano.
select single * from bkpf
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA111F01
...
where nrseq = v_nrseq_ant.
itab_zycbt129j-nrseq = /pws/zycbe128-nrseq.
modify itab_zycbt129j transporting nrseq
where nrseq = v_nrseq_ant.
itab_zycbt129c-nrseq = /pws/zycbe128-nrseq.
modify itab_zycbt129c transporting nrseq
where nrseq = v_nrseq_ant.
endif.
elseif v_controle = 1.
/pws/zycbe128-statusp = 'A'.
* >> Início da exclusão: FORM SAVE_ZYCBT128
modify /pws/zycbt128 from /pws/zycbe128.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT128
move-corresponding /pws/zycbe128 to /pws/zycbt128.
modify /pws/zycbt128.
* << Fim da inclusão
endif.
select *
up to 1 rows
from /pws/zyglt009
into wa_zyglt009
where bukrs eq /pws/zycbe128-bukrs.
endselect.
perform fill_date1_f02.
move v_budat_lanc to /pws/zycbe128-dtcont.
* >> Início da exclusão: FORM SAVE_ZYCBT128
modify /pws/zycbt128 from /pws/zycbe128.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT128
move-corresponding /pws/zycbe128 to /pws/zycbt128.
modify /pws/zycbt128.
* << Fim da inclusão
if wa_zyglt009-comp_transemp = 'C'.
perform fill_date_f04.
endif.
free v_erro_exclusao.
perform save_zycbt129.
else.
loop at itab_zycbt129p where belnr ne ' '.
endloop.
if sy-subrc ne 0.
perform fill_date1_f02.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F01
...
message s008.
endif.
endif.
endif.
move-corresponding /pws/zycbe004 to wa_zycbt004.
check v_erro_bi is initial.
if /pws/zycbe004-frpagto = 'C'.
if /pws/zycbe004-belnr is initial.
perform verifica_estrategia_liberacao.
if /pws/zycbe004-frgzu = '1'.
* >> Início da exclusão: FORM SAVE_ZYCBT004
modify /pws/zycbt004 from /pws/zycbe004.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT004
move-corresponding /pws/zycbe004 to /pws/zycbt004.
modify /pws/zycbt004.
* << Fim da inclusão
endif.
check v_erro_bi is initial.
if /pws/zycbe004-frgzu = '2'.
perform contabiliza_despesa.
endif.
else.
check v_msg is initial.
perform estorna_despesa.
clear: /pws/zycbe004-frgsx1, /pws/zycbe004-frgsx2,
/pws/zycbe004-frgsx3, /pws/zycbe004-frgsx4,
/pws/zycbe004-frgsx5, /pws/zycbe004-estrat,
/pws/zycbe004-bname, /pws/zycbe004-frgzu.
perform verifica_estrategia_liberacao.
if /pws/zycbe004-frgzu = '1'.
* >> Início da exclusão: FORM SAVE_ZYCBT004
modify /pws/zycbt004 from /pws/zycbe004.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT004
move-corresponding /pws/zycbe004 to /pws/zycbt004.
modify /pws/zycbt004.
* << Fim da inclusão
endif.
check v_erro_bi is initial.
if /pws/zycbe004-frgzu = '2'.
perform contabiliza_despesa.
endif.
endif.
endif.
v_status_s200 = '0'.
endform.
form find_tptxjur.
...
...
endloop.
endif.
endif.
sy-subrc = sysubrc.
endform.
form save_zycbt001_pre.
data: v_ok,
v_estorna(1) value 'N',
v_alt_soc_parc(1) type c.
data: v_modif,
* >> Início da exclusão: FORM SAVE_ZYCBT001_PRE
wa_jurosfixo type /pws/zycbe002.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT001_PRE
wa_jurosfixo type /pws/zycbt002.
* << Fim da inclusão
perform seleciona_zycbt002.
loop at itab_zycbt002p_ant.
read table itab_zycbt002p with key
belnr = itab_zycbt002p_ant-belnr.
if sy-subrc = 0.
if itab_zycbt002p_ant-vlme ne itab_zycbt002p-vlme
or itab_zycbt002p_ant-przcontr ne itab_zycbt002p-przcontr
or itab_zycbt002p_ant-belnr is initial.
itab_zycbt002p-v_flag = 'A'.
v_estorna = 'S'.
...
...
endif.
if v_ok ne 'N'.
perform altera_cab_pt.
if v_answer = 'A'.
exit.
endif.
perform save_zycbt002.
perform save_zycbt003.
/pws/zycbe001-slvinc = /pws/zycbe001-slpagar =
/pws/zycbe001-slreserv = /pws/zycbe001-vlme.
* >> Início da exclusão: FORM SAVE_ZYCBT001_PRE
modify /pws/zycbt001 from /pws/zycbe001.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT001_PRE
move-corresponding /pws/zycbe001 to /pws/zycbt001.
modify /pws/zycbt001.
* << Fim da inclusão
if wa_zycbt007-cfm = 'X'.
if /pws/zycbe001-tpcontr(1) ne 'C' and
/pws/zycbe001-tpcontr(1) ne 'E'.
select single *
from /pws/zycbt001
into wa_zycbt001_log
where nrseqc = /pws/zycbe001-nrseqc.
perform monta_log_cfm using wa_zycbt001_log
'/PWS/ZYCBT001'
'1T'
...
...
if v_erro_bi is initial.
perform save_zycbt002.
perform save_zycbt003.
else.
perform desfazer_alteracoes.
endif.
if v_ok ne 'N' and v_ok2 ne 'X'.
/pws/zycbe001-slvinc = /pws/zycbe001-slpagar =
/pws/zycbe001-slreserv = /pws/zycbe001-vlme.
endif.
* >> Início da exclusão: FORM SAVE_ZYCBT001_PRE
modify /pws/zycbt001 from /pws/zycbe001.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT001_PRE
move-corresponding /pws/zycbe001 to /pws/zycbt001.
modify /pws/zycbt001.
* << Fim da inclusão
if wa_zycbt007-cfm = 'X'.
if /pws/zycbe001-tpcontr(1) ne 'C' and
/pws/zycbe001-tpcontr(1) ne 'E'.
perform monta_log_cfm using /pws/zycbe001
'/PWS/ZYCBT001'
'1E'
changing wa_log.
perform grava_log using '/PWS/ZYCBT001'
wa_log
'A'.
...
...
and dtliquid = /pws/zycbe004-dtliquid
and tpjuros = /pws/zycbe004-tpjuros.
if sy-subrc ne 0.
message i015 with text-282 text-283.
clear: /pws/zycbe004-codnatoper,
/pws/zycbe004-codfrmentrega,
/pws/zycbe004-codmodtransa,
/pws/zycbe004-praca.
leave to screen 0.
else.
* >> Início da exclusão: FORM SALVAR_ADIC_DESPESAS
modify /pws/zycbt004 from /pws/zycbe004.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR_ADIC_DESPESAS
move-corresponding /pws/zycbe004 to /pws/zycbt004.
modify /pws/zycbt004.
* << Fim da inclusão
wa_zycbt004-mandt = /pws/zycbe004-mandt.
wa_zycbt004-codnatoper = /pws/zycbe004-codnatoper.
wa_zycbt004-codfrmentrega = /pws/zycbe004-codfrmentrega.
wa_zycbt004-codmodtransa = /pws/zycbe004-codmodtransa.
wa_zycbt004-praca = /pws/zycbe004-praca.
message i015 with text-308.
endif.
endform.
form salvar_alteracao.
v_status_s203 = '1'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F04
...
campo_em_branco = 1
others = 2.
if sy-subrc = 0.
read table itab_zycbt032 with key tcode = 'FBV0'
tabela = '/PWS/ZYCBT004'
cpochv = v_cpochv
tpmsg = 'S'.
if sy-subrc eq 0.
message i062 with /pws/zycbe004-belnr.
clear /pws/zycbe004-belnr.
* >> Início da exclusão: FORM REVERSE_DESP_FBV0
modify /pws/zycbt004 from /pws/zycbe004.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DESP_FBV0
move-corresponding /pws/zycbe004 to /pws/zycbt004.
modify /pws/zycbt004.
* << Fim da inclusão
commit work.
else.
loop at itab_zycbt032.
message i015 with itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
endloop.
endif.
else.
loop at itab_zycbt034.
message i127 with itab_zycbt034-descricao v_codeven.
...
...
others = 2.
if sy-subrc eq 0.
read table itab_zycbt032 with key tcode = 'FB08'
tabela = '/PWS/ZYCBT004'
cpochv = v_cpochv
tpmsg = 'S'.
if sy-subrc eq 0.
message i061 with text-149 /pws/zycbe004-belnr
text-166.
clear /pws/zycbe004-belnr.
* >> Início da exclusão: FORM ESTORNA_APROV_DESP
modify /pws/zycbt004 from /pws/zycbe004.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_APROV_DESP
move-corresponding /pws/zycbe004 to /pws/zycbt004.
modify /pws/zycbt004.
* << Fim da inclusão
commit work.
else.
loop at itab_zycbt032.
message i015 with itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
endloop.
endif.
else.
loop at itab_zycbt034.
message i127 with itab_zycbt034-descricao v_codeven.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001I01
...
perform save_changes.
perform verify_tpcontr.
elseif v_answer = 'N'.
move wa_zycbt001 to /pws/zycbe001.
perform verify_tpcontr.
endif.
when 'VINC'.
perform call_zycb009_c.
select single * from /pws/zycbt001 into /pws/zycbe001
where nrseqc = /pws/zycbe001-nrseqc.
* >> Início da exclusão: MODULE USER_COMMAND_CB001
wa_zycbt001 = /pws/zycbt001 = wa_zycbe001 =
wa_zycbt001_pre = /pws/zycbe001.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_CB001
move-corresponding /pws/zycbe001 to wa_zycbt001.
move-corresponding /pws/zycbe001 to /pws/zycbt001.
move-corresponding /pws/zycbe001 to wa_zycbe001.
move-corresponding /pws/zycbe001 to wa_zycbt001_pre.
* << Fim da inclusão
when 'CARTA'.
perform trata_carta.
when 'ENCE'.
perform encerramento.
when 'ANL_ENC'.
select single * from /pws/zycbt007
where bukrs eq /pws/zycbe001-bukrs.
case /pws/zycbt007-fprovisao.
when 'C'.
if /pws/zycbe001-tpcontr(01) eq 'P' or
...
...
call screen '0500'.
endif.
endif.
endif.
when 'MODO'.
perform modo_batch_input.
when 'LIQ'.
perform call_zycb004_2.
select single * from /pws/zycbt001 into /pws/zycbe001
where nrseqc = /pws/zycbe001-nrseqc.
* >> Início da exclusão: MODULE USER_COMMAND_CB001
wa_zycbt001 = /pws/zycbt001 = wa_zycbe001 =
wa_zycbt001_pre = /pws/zycbe001.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_CB001
move-corresponding /pws/zycbe001 to wa_zycbt001.
move-corresponding /pws/zycbe001 to /pws/zycbt001.
move-corresponding /pws/zycbe001 to wa_zycbe001.
move-corresponding /pws/zycbe001 to wa_zycbt001_pre.
* << Fim da inclusão
when 'CALCJUR'.
call screen '0004' starting at 2 2.
when 'HIST'.
perform historico_contabil.
when 'DEVDP'.
perform devolucao_down_payment.
when 'BOL'.
perform emite_boleto.
when 'INFO'.
call function 'POPUP_DISPLAY_TEXT'
...
...
v_status_s200 = '1'.
endif.
else.
v_status_s200 = '0'.
message i061 with text-515.
endif.
else.
message i120 with text-185.
endif.
else.
* >> Início da exclusão: MODULE USER_COMMAND_0200
if /pws/zycbe004 ne wa_zycbt004.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0200
move-corresponding /pws/zycbe004 to wa_zycbe004.
if wa_zycbe004 ne wa_zycbt004.
* << Fim da inclusão
perform popup_message using text-024 text-025.
if v_answer eq 'J'.
perform save_zycbt004.
endif.
else.
move-corresponding wa_zycbt004 to /pws/zycbe004.
endif.
v_status_s200 = '0'.
endif.
when 'BACK'.
if v_status_s200 ne 0.
* >> Início da exclusão: MODULE USER_COMMAND_0200
if /pws/zycbe004 ne wa_zycbt004.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0200
move-corresponding /pws/zycbe004 to wa_zycbe004.
if wa_zycbe004 ne wa_zycbt004.
* << Fim da inclusão
perform popup_message using text-024 text-025.
if v_answer eq 'J'.
perform save_zycbt004.
endif.
else.
v_answer = 'J'.
endif.
if v_answer ne 'A'.
clear: /pws/zycbe004.
leave to screen 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001X01
...
with header line,
itab_zycbt134_comissao
type standard table of t_zycbt134_comissao
with header line,
wa_comissao type t_comissao,
v_vltotcomis like /pws/zycbe001-vltotjur.
data: wa_zycbt001 like /pws/zycbe001,
wa_zycbe001 like /pws/zycbe001,
wa_zycbt001_pre like /pws/zycbt001,
wa_zycbt004 like /pws/zycbt004,
* >> Início da inclusão:
wa_zycbe004 type /pws/zycbt004,
* << Fim da inclusão
wa_zycbt091 like /pws/zycbt091,
wa_zycbt204 like /pws/zycbt204,
wa_zycbt136 like itab_zycbt136,
wa_zycbt002 like /pws/zycbt002,
wa_zycbt089 like /pws/zycbt089.
data:
v_contabiliza type c,
okcode like sy-ucomm,
v_zuonr like /pws/zycbe033-c_zuonr,
v_modo_bi.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB002F01
...
and nrparc = /pws/zycbe004-nrparc
and dtincl = /pws/zycbe004-dtincl
and dtvincul = v_dtvincul.
clear v_ind_delecao.
endif.
delete itab_zycbt005 where nrinvoic eq ' '.
delete itab_zycbt005 where vlvinc eq ' '.
if v_ind_mudanca is initial.
modify /pws/zycbt005 from table itab_zycbt005.
modify /pws/zycbt017 from table itab_zycbt017.
* >> Início da exclusão: FORM GRAVA_TABELAS
modify /pws/zycbt004 from /pws/zycbe004.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
move-corresponding /pws/zycbe004 to /pws/zycbt004.
modify /pws/zycbt004.
* << Fim da inclusão
else.
clear itab_zycbt005.
loop at itab_zycbt005.
move sy-tabix to v_pos_itab.
read table itab_zycbt005_aux3
with key nrinvoic = itab_zycbt005-nrinvoic
nrparcf = itab_zycbt005-nrparcf
gsberf = itab_zycbt005-gsberf.
if sy-subrc eq 0.
if itab_zycbt005_aux3 ne itab_zycbt005.
...
...
nrparcf = itab_zycbt005_aux3-nrparcf
gsberf = itab_zycbt005_aux3-gsberf.
if sy-subrc ne 0.
itab_zycbt005_aux3-flag = 'E'.
itab_zycbt005_aux3-vldif =
itab_zycbt005_aux3-vlvinc.
modify itab_zycbt005_aux3 from itab_zycbt005_aux3
index v_pos_itab transporting flag vldif.
endif.
endloop.
* >> Início da exclusão: FORM GRAVA_TABELAS
modify /pws/zycbt004 from /pws/zycbe004.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
move-corresponding /pws/zycbe004 to /pws/zycbt004.
modify /pws/zycbt004.
* << Fim da inclusão
itab_zycbt005-belnr = /pws/zycbe004-belnr.
modify itab_zycbt005 transporting belnr
where nrseqc = /pws/zycbe004-nrseqc
and tpdesp = 'J'
and nrparc = /pws/zycbe004-nrparc
and dtincl = /pws/zycbe004-dtincl.
message i008.
if /pws/zycbe004-status <> 'C'.
perform contabilizacao.
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F03
...
and nrparcf = itab_zycbt006-nrparcf
and gsberf = itab_zycbt006-gsberf
and dtvincul = itab_zycbt006-dtvincul
and dtvencto = itab_zycbt006-dtvencto.
endif.
endloop.
modify /pws/zycbt005 from table itab_zycbt005.
itab_zycbt005-dtpagext = /pws/zycbe006-dtpagext.
modify itab_zycbt005 transporting dtpagext
where nrseqc = /pws/zycbe001-nrseqc.
* >> Início da exclusão: FORM CONSISTE_SALDOS_ERRO
modify /pws/zycbt001 from /pws/zycbe001.
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTE_SALDOS_ERRO
move-corresponding /pws/zycbe001 to /pws/zycbt001.
modify /pws/zycbt001.
* << Fim da inclusão
endform.
form oculta_deduz_juros.
if v_check_flag_deduz is initial.
clear vg_flag.
describe table itab_zycbt005 lines v_linha.
read table itab_zycbt005 with key deduz_juros = 'X'.
if sy-subrc = 0 and v_linha = 1.
vg_flag = 'X'.
elseif sy-subrc = 0 and v_linha > 1.
read table itab_zycbt005 with key deduz_juros = ' '.
...
...
endcase.
modify screen.
endloop.
endform.
form busca_dados_bi using p_bukrs
p_tpcontabil.
data: wa_zycbt005 type /pws/zycbt005,
wa_zycbt006 type /pws/zycbt006,
wa_zycbt017 type /pws/zycbt017,
wa_zycbt030 type /pws/zycbt030.
* >> Início da inclusão: FORM BUSCA_DADOS_BI
data: wa_zycbt001 type /pws/zycbt001.
* << Fim da inclusão
data: v_vme type c.
move-corresponding: itab_zycbt005 to wa_zycbt005,
itab_zycbt006 to wa_zycbt006,
itab_zycbt017 to wa_zycbt017,
itab_zycbt030 to wa_zycbt030.
clear v_vme.
read table itab_zycbt226 into wa_zycbt226
with key nrinvoic = itab_zycbt005-nrinvoic
nrparcf = itab_zycbt005-nrparcf
gsberf = itab_zycbt005-gsberf.
...
...
elseif sy-subrc = 0 and not itab_recurso_aux2[] is initial.
read table itab_recurso_aux into wa_recurso_aux
with key nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf
nrparcf = itab_zycbt005-nrparcf
descorigem = c_liq_vme.
if sy-subrc = 0.
v_vme = 'X'.
endif.
endif.
* >> Início da inclusão: FORM BUSCA_DADOS_BI
move-corresponding /pws/zycbe001 to wa_zycbt001.
* << Fim da inclusão
call function '/PWS/ZYCB_DADOS_BI'
exporting
i_bukrs = p_bukrs
i_funcionalidade = 'LIQ'
i_tpcontr = /pws/zycbe001-tpcontr
i_tpcontabil = p_tpcontabil
* >> Início da exclusão: FORM BUSCA_DADOS_BI
i_zycbt001 = /pws/zycbe001
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_DADOS_BI
i_zycbt001 = wa_zycbt001
* << Fim da inclusão
i_zycbt005 = wa_zycbt005
i_zycbt006 = wa_zycbt006
i_dtlanc = v_dtpagto
i_zycbt007 = wa_zycbt007
i_zycbt030 = wa_zycbt030
i_zycbt017 = wa_zycbt017
i_zycbt226 = wa_zycbt226
i_kursf6 = v_kursf6
i_waers = itab_zycbe033-waers
i_ctmoed = wa_zycbt011-ctmoed
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F01
...
itab_erro-vbeln = itab_vinc-belnr.
itab_erro-msg = itab_zycbt032-msg.
append itab_erro.
endloop.
if sy-subrc eq 0.
v_erro_estorno = 'X'.
endif.
if itab_vinc-flag eq 'A'.
/pws/zycbe001-slvinc = /pws/zycbe001-slvinc -
itab_vinc-vldif.
* >> Início da exclusão: FORM FILL_DATE1_F02
modify /pws/zycbt001 from /pws/zycbe001.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F02
move-corresponding /pws/zycbe001 to /pws/zycbt001.
modify /pws/zycbt001.
* << Fim da inclusão
concatenate text-053 itab_vinc-nrinvoic text-075 into v_msg
separated by space.
itab_erro-msg = v_msg.
append itab_erro.
read table itab_zycbt005_ant
with key nrinvoic = itab_vinc-nrinvoic
nrparcf = itab_vinc-nrparcf
gsberf = itab_vinc-gsberf.
if sy-subrc eq 0.
itab_vinc-vlslf = itab_vinc-vlslf - itab_vinc-vldif.
...
...
and nrparcf = itab_vinc-nrparcf
and gsberf = itab_vinc-gsberf.
clear itab_vinc-vldif.
clear itab_vinc-flag.
modify itab_vinc.
endif.
endif.
if itab_vinc-flag eq 'E'.
/pws/zycbe001-slvinc = /pws/zycbe001-slvinc -
itab_vinc-vldif.
* >> Início da exclusão: FORM FILL_DATE1_F02
modify /pws/zycbt001 from /pws/zycbe001.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F02
move-corresponding /pws/zycbe001 to /pws/zycbt001.
modify /pws/zycbt001.
* << Fim da inclusão
concatenate text-053 itab_vinc-nrinvoic text-073 into v_msg
separated by space.
itab_erro-msg = v_msg.
append itab_erro.
read table itab_zycbt005_excluidas
with key nrinvoic = itab_vinc-nrinvoic
nrparcf = itab_vinc-nrparcf
gsberf = itab_vinc-gsberf.
if sy-subrc eq 0.
clear itab_zycbt005.
...
...
tpmsg = 'E'.
if sy-subrc eq 0.
if itab_vinc-flag eq 'A'.
perform estorna_lanctos_f02 using itab_vinc-nrinvoic
itab_vinc-nrparcf
v_cpochv
/pws/zycbe001-bukrs
itab_vinc-dtvincul
changing itab_vinc-belnr_f02.
/pws/zycbe001-slvinc = /pws/zycbe001-slvinc - itab_vinc-vldif.
* >> Início da exclusão: FORM FILL_DATE1_F30
modify /pws/zycbt001 from /pws/zycbe001.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F30
move-corresponding /pws/zycbe001 to /pws/zycbt001.
modify /pws/zycbt001.
* << Fim da inclusão
concatenate text-053 itab_vinc-nrinvoic text-075 into v_msg
separated by space.
itab_erro-msg = v_msg.
append itab_erro.
read table itab_zycbt005_ant
with key nrinvoic = itab_vinc-nrinvoic
nrparcf = itab_vinc-nrparcf
gsberf = itab_vinc-gsberf.
if sy-subrc eq 0.
itab_vinc-vlslf = itab_vinc-vlslf - itab_vinc-vldif.
...
...
and nrparcf = itab_zycbt005-nrparcf
and gsberf = itab_zycbt005-gsberf.
clear itab_zycbt005_excluidas.
itab_zycbt017-vlslf = itab_zycbt005-vlslf.
modify itab_zycbt017 transporting vlslf
where nrinvoic = itab_vinc-nrinvoic
and nrparcf = itab_vinc-nrparcf
and gsberf = itab_vinc-gsberf.
/pws/zycbe001-slvinc = /pws/zycbe001-slvinc -
itab_vinc-vldif.
* >> Início da exclusão: FORM FILL_DATE1_F30
modify /pws/zycbt001 from /pws/zycbe001.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F30
move-corresponding /pws/zycbe001 to /pws/zycbt001.
modify /pws/zycbt001.
* << Fim da inclusão
concatenate text-053 itab_vinc-nrinvoic text-073 into v_msg
separated by space.
itab_erro-msg = v_msg.
append itab_erro.
clear itab_vinc-vldif.
modify itab_vinc.
endif.
endif.
v_erro_compensacao = 'X'.
endif.
...
...
changing itab_vinc-belnr
itab_vinc-belnr_f02.
perform estorna_lanctos_f02 using itab_vinc-nrinvoic
itab_vinc-nrparcf
v_cpochv
/pws/zycbe001-bukrs
itab_vinc-dtvincul
changing itab_vinc-belnr_f02.
/pws/zycbe001-slvinc =
/pws/zycbe001-slvinc - itab_vinc-vldif.
* >> Início da exclusão: FORM FILL_DATE1_F30
modify /pws/zycbt001 from /pws/zycbe001.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F30
move-corresponding /pws/zycbe001 to /pws/zycbt001.
modify /pws/zycbt001.
* << Fim da inclusão
concatenate text-053 itab_vinc-nrinvoic text-075
into v_msg separated by space.
itab_erro-msg = v_msg.
append itab_erro.
read table itab_zycbt005_ant
with key nrinvoic = itab_vinc-nrinvoic
nrparcf = itab_vinc-nrparcf
gsberf = itab_vinc-gsberf.
if sy-subrc eq 0.
itab_vinc-vlslf = itab_vinc-vlslf - itab_vinc-vldif.
...
...
and gsberf = itab_zycbt005-gsberf.
clear itab_zycbt005_excluidas.
endif.
itab_zycbt017-vlslf = itab_zycbt005-vlslf.
modify itab_zycbt017 transporting vlslf
where nrinvoic = itab_vinc-nrinvoic
and nrparcf = itab_vinc-nrparcf
and gsberf = itab_vinc-gsberf.
/pws/zycbe001-slvinc =
/pws/zycbe001-slvinc - itab_vinc-vldif.
* >> Início da exclusão: FORM FILL_DATE1_F30
modify /pws/zycbt001 from /pws/zycbe001.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F30
move-corresponding /pws/zycbe001 to /pws/zycbt001.
modify /pws/zycbt001.
* << Fim da inclusão
concatenate text-053 itab_vinc-nrinvoic text-073
into v_msg separated by space.
itab_erro-msg = v_msg.
append itab_erro.
clear itab_vinc-vldif.
modify itab_vinc.
endif.
endif.
endloop.
endif.
...
...
move itab_vinc to wa_zycbt005.
if itab_vinc-waers eq itab_vinc-waers_c.
perform estorna_dp_s_arb.
perform executa_clearing_adcliente.
else.
perform estorna_cp_arbitr.
endif.
if v_erro_estorno is initial.
move wa_zycbt005 to itab_vinc.
modify itab_vinc.
* >> Início da exclusão: FORM FILL_DATE1_F30_DP
modify /pws/zycbt001 from /pws/zycbe001.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F30_DP
move-corresponding /pws/zycbe001 to /pws/zycbt001.
modify /pws/zycbt001.
* << Fim da inclusão
endif.
endloop.
/pws/zycbe001-slpagar = /pws/zycbe001-slvinc.
endform.
form estorna_dp_s_arb.
loop at itab_zycbt030 where nrinvoic = wa_zycbt005-nrinvoic
and nrparcf = wa_zycbt005-nrparcf
and gsberf = wa_zycbt005-gsberf.
perform encontra_documento.
perform preenche_itab_zycbe033.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F03
...
wa_log
'A'.
else.
perform grava_log using '/PWS/ZYCBT005'
wa_log
'C'.
endif.
endloop.
endif.
modify /pws/zycbt017 from table itab_zycbt017.
* >> Início da exclusão: FORM GRAVA_TABELAS
modify /pws/zycbt001 from /pws/zycbe001.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
move-corresponding /pws/zycbe001 to /pws/zycbt001.
modify /pws/zycbt001.
* << Fim da inclusão
commit work.
perform atualiza_reserva.
if sy-tcode = c_transacao_a.
loop at itab_zycbt005.
select single * from /pws/zycbt004
where nrseqc = itab_zycbt005-nrseqc
and tpdesp = 'J'
and nrparc = itab_zycbt005-nrparc
and dtincl = itab_zycbt005-dtvincul
and nrinvoic = itab_zycbt005-nrinvoic
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F08
...
tpmsg = 'E'.
if sy-subrc eq 0.
if itab_vinc-flag eq 'A' or itab_vinc-flag eq 'S'.
perform estorna_lanctos_f02_var using itab_vinc-nrinvoic
itab_vinc-nrparcf
v_cpochv
/pws/zycbe001-bukrs
itab_vinc-dtvincul
changing itab_vinc-belnr_f02.
/pws/zycbe001-slvinc = /pws/zycbe001-slvinc - itab_vinc-vldif.
* >> Início da exclusão: FORM FILL_DATE1_F30_ESTORNO
modify /pws/zycbt001 from /pws/zycbe001.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F30_ESTORNO
move-corresponding /pws/zycbe001 to /pws/zycbt001.
modify /pws/zycbt001.
* << Fim da inclusão
concatenate text-053 itab_vinc-nrinvoic text-075 into v_msg
separated by space.
itab_erro-msg = v_msg.
append itab_erro.
read table itab_zycbt005_ant
with key nrinvoic = itab_vinc-nrinvoic
gsberf = itab_vinc-gsberf.
if sy-subrc eq 0.
itab_vinc-vlslf = itab_vinc-vlslf - itab_vinc-vldif.
v_vlslf = itab_vinc-vlslf.
...
...
delete itab_zycbt005_excluidas
where nrinvoic = itab_zycbt005-nrinvoic
and gsberf = itab_zycbt005-gsberf.
clear itab_zycbt005_excluidas.
itab_zycbt017-vlslf = itab_zycbt005-vlslf.
modify itab_zycbt017 transporting vlslf
where nrinvoic = itab_vinc-nrinvoic
and gsberf = itab_vinc-gsberf.
/pws/zycbe001-slvinc = /pws/zycbe001-slvinc -
itab_vinc-vldif.
* >> Início da exclusão: FORM FILL_DATE1_F30_ESTORNO
modify /pws/zycbt001 from /pws/zycbe001.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F30_ESTORNO
move-corresponding /pws/zycbe001 to /pws/zycbt001.
modify /pws/zycbt001.
* << Fim da inclusão
concatenate text-053 itab_vinc-nrinvoic text-073 into v_msg
separated by space.
itab_erro-msg = v_msg.
append itab_erro.
clear itab_vinc-vldif.
modify itab_vinc.
endif.
endif.
endif.
endif.
...
...
changing itab_vinc-belnr
itab_vinc-belnr_f02.
perform estorna_lanctos_f02 using itab_vinc-nrinvoic
itab_vinc-nrparcf
v_cpochv
/pws/zycbe001-bukrs
itab_vinc-dtvincul
changing itab_vinc-belnr_f02.
/pws/zycbe001-slvinc = /pws/zycbe001-slvinc -
itab_vinc-vldif.
* >> Início da exclusão: FORM FILL_DATE1_F30_ESTORNO
modify /pws/zycbt001 from /pws/zycbe001.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F30_ESTORNO
move-corresponding /pws/zycbe001 to /pws/zycbt001.
modify /pws/zycbt001.
* << Fim da inclusão
concatenate text-053 itab_vinc-nrinvoic text-075
into v_msg separated by space.
itab_erro-msg = v_msg.
append itab_erro.
read table itab_zycbt005_ant
with key nrinvoic = itab_vinc-nrinvoic
gsberf = itab_vinc-gsberf.
if sy-subrc eq 0.
itab_vinc-vlslf = itab_vinc-vlslf - itab_vinc-vldif.
v_vlslf = itab_vinc-vlslf.
...
...
where nrinvoic = itab_zycbt005-nrinvoic
and gsberf = itab_zycbt005-gsberf.
clear itab_zycbt005_excluidas.
endif.
itab_zycbt017-vlslf = itab_zycbt005-vlslf.
modify itab_zycbt017 transporting vlslf
where nrinvoic = itab_vinc-nrinvoic
and gsberf = itab_vinc-gsberf.
/pws/zycbe001-slvinc = /pws/zycbe001-slvinc -
itab_vinc-vldif.
* >> Início da exclusão: FORM FILL_DATE1_F30_ESTORNO
modify /pws/zycbt001 from /pws/zycbe001.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F30_ESTORNO
move-corresponding /pws/zycbe001 to /pws/zycbt001.
modify /pws/zycbt001.
* << Fim da inclusão
concatenate text-053 itab_vinc-nrinvoic text-073
into v_msg separated by space.
itab_erro-msg = v_msg.
append itab_erro.
clear itab_vinc-vldif.
modify itab_vinc.
endif.
endif.
endloop.
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F09
...
v_doc_f30 eq 'X' ) or
( v_doc_f30 eq 'E' and
/pws/zycbe001-tpcontr(01) = 'P' )
or ( v_cp_ok eq 'X'
and /pws/zycbe001-tpcontr+0(1) eq 'C' )
.
/pws/zycbe001-slvinc = /pws/zycbe001-slvinc.
/pws/zycbe001-belnr2 = v_belnr_001.
/pws/zycbe001-dtvincul = v_dtdocto.
if v_doc_f30 ne 'E' .
* >> Início da exclusão: FORM SAVE_CHANGES
modify /pws/zycbt001 from /pws/zycbe001.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_CHANGES
move-corresponding /pws/zycbe001 to /pws/zycbt001.
modify /pws/zycbt001.
* << Fim da inclusão
endif.
delete itab_zycbt005 where nrinvoic eq ' '.
delete itab_zycbt006 where status eq 'E'.
delete itab_zycbt005 where vlvinc eq ' '.
loop at itab_zycbt005.
if itab_zycbt005-nrparc = '000'.
itab_zycbt005-nrparc = sy-tabix.
modify itab_zycbt005 transporting nrparc.
endif.
endloop.
...
...
and tabela = '/PWS/ZYCBT005'
and cpochv = v_cpochv
and tpmsg = 'E'.
itab_erro-vbeln = itab_vinc-belnr.
itab_erro-msg = itab_zycbt032-msg.
append itab_erro.
endloop.
if itab_vinc-flag eq 'A'.
/pws/zycbe001-slvinc = /pws/zycbe001-slvinc -
itab_vinc-vldif.
* >> Início da exclusão: FORM EST_DESC_RECEBIVEIS
modify /pws/zycbt001 from /pws/zycbe001.
* << Fim da exclusão
* >> Início da inclusão: FORM EST_DESC_RECEBIVEIS
move-corresponding /pws/zycbe001 to /pws/zycbt001.
modify /pws/zycbt001.
* << Fim da inclusão
concatenate text-053 itab_vinc-nrinvoic text-075 into v_msg
separated by space.
itab_erro-msg = v_msg.
append itab_erro.
read table itab_zycbt005_ant
with key nrinvoic = itab_vinc-nrinvoic
nrparcf = itab_vinc-nrparcf
gsberf = itab_vinc-gsberf.
if sy-subrc eq 0.
itab_vinc-vlslf = itab_vinc-vlslf - itab_vinc-vldif.
...
...
and nrparcf = itab_vinc-nrparcf
and gsberf = itab_vinc-gsberf.
clear itab_vinc-vldif.
clear itab_vinc-flag.
modify itab_vinc.
endif.
endif.
if itab_vinc-flag eq 'E'.
/pws/zycbe001-slvinc = /pws/zycbe001-slvinc -
itab_vinc-vldif.
* >> Início da exclusão: FORM EST_DESC_RECEBIVEIS
modify /pws/zycbt001 from /pws/zycbe001.
* << Fim da exclusão
* >> Início da inclusão: FORM EST_DESC_RECEBIVEIS
move-corresponding /pws/zycbe001 to /pws/zycbt001.
modify /pws/zycbt001.
* << Fim da inclusão
concatenate text-053 itab_vinc-nrinvoic text-073 into v_msg
separated by space.
itab_erro-msg = v_msg.
append itab_erro.
read table itab_zycbt005_excluidas
with key nrinvoic = itab_vinc-nrinvoic
nrparcf = itab_vinc-nrparcf
gsberf = itab_vinc-gsberf.
if sy-subrc eq 0.
clear itab_zycbt005.
...
...
clear:
v_doc_f30, v_dtdocto, v_belnr_001,
itab_zycbt077-belnr, itab_zycbt077-gjahr,
itab_zycbt077-status, itab_zycbt077-codeven,
itab_zycbt077-codmod, itab_zycbt077-dtvincul,
/pws/zycbt084-belnr, /pws/zycbt084-liq_and,
/pws/zycbt084-tdesmemb.
modify /pws/zycbt084 from /pws/zycbt084.
delete itab_contabil where docto = /pws/zycbe001-belnr2.
clear: /pws/zycbe001-belnr2.
* >> Início da exclusão: FORM ANULA_DESM_CLIENTE_DP
modify /pws/zycbt001 from /pws/zycbe001.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_DESM_CLIENTE_DP
move-corresponding /pws/zycbe001 to /pws/zycbt001.
modify /pws/zycbt001.
* << Fim da inclusão
commit work.
itab_contabil-nrinvoic = itab_zycbt030-nrinvoic.
itab_contabil-vbeln = itab_zycbt030-vbeln.
itab_contabil-gsberf = itab_zycbt030-gsberf.
itab_contabil-nrparcf = itab_zycbt030-nrparcf.
itab_contabil-docto = itab_zycbt032-belnr.
itab_contabil-msg = text-290.
itab_contabil-dtdocto = itab_zycbt005-dtvincul.
itab_contabil-bukrs = itab_zycbt005-bukrs.
append itab_contabil.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F10
...
if /pws/zycbe001-tpcontr(1) ne 'P' and
/pws/zycbe001-tpcontr(1) ne 'S'.
if /pws/zycbe001-slvinc = 0.
/pws/zycbe001-ftransf = 'X'.
else.
clear /pws/zycbe001-ftransf.
endif.
endif.
if v_erro_estorno is initial.
perform atualiza_dados_estorno.
* >> Início da exclusão: FORM GRAVA_CONTABILIZACAO
modify /pws/zycbt001 from /pws/zycbe001.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_CONTABILIZACAO
move-corresponding /pws/zycbe001 to /pws/zycbt001.
modify /pws/zycbt001.
* << Fim da inclusão
elseif /pws/zycbe001-tpcontr ne 'DP'.
* >> Início da exclusão: FORM GRAVA_CONTABILIZACAO
modify /pws/zycbt001 from /pws/zycbe001.
.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_CONTABILIZACAO
move-corresponding /pws/zycbe001 to /pws/zycbt001.
modify /pws/zycbt001.
* << Fim da inclusão
endif.
...
...
endif.
endif.
endloop.
endif.
endif.
select single belnr2 dtvincul from /pws/zycbt001
into (/pws/zycbe001-belnr2,/pws/zycbe001-dtvincul)
where nrseqc = /pws/zycbe001-nrseqc.
v_belnr_001 = /pws/zycbe001-belnr2.
if p_estorno is initial.
* >> Início da exclusão: FORM EFETUA_LIQUIDACAO_AUTOMATICA
modify /pws/zycbt001 from /pws/zycbe001.
* << Fim da exclusão
* >> Início da inclusão: FORM EFETUA_LIQUIDACAO_AUTOMATICA
move-corresponding /pws/zycbe001 to /pws/zycbt001.
modify /pws/zycbt001.
* << Fim da inclusão
modify /pws/zycbt005 from table itab_zycbt005.
elseif not v_fat_alterada is initial.
itab_zycbt005-belnr = /pws/zycbe001-belnr2.
clear itab_zycbt005-alterado.
modify itab_zycbt005 transporting belnr alterado
where not alterado is initial.
endif.
clear: v_vinculacao, itab_zycbt005_excluidas.
export: v_vinculacao to memory id 'VINCULACAO',
itab_zycbt005_excluidas-nrinvoic to memory id 'NRINVOIC',
...
...
itab_zycbt005-vljur = v_vljur.
modify itab_zycbt005 index sy-tabix.
endif.
endform.
form busca_dados_bi using p_bukrs
p_tpcontabil.
data: wa_zycbt005 type /pws/zycbt005,
wa_zycbt006 type /pws/zycbt006,
wa_zycbt017 type /pws/zycbt017,
wa_zycbt030 type /pws/zycbt030.
* >> Início da inclusão: FORM BUSCA_DADOS_BI
data: wa_zycbt001 type /pws/zycbt001.
* << Fim da inclusão
move-corresponding: itab_zycbt005 to wa_zycbt005,
itab_zycbt006 to wa_zycbt006,
itab_zycbt017 to wa_zycbt017,
itab_zycbt030 to wa_zycbt030.
if not itab_zycbt005_ant is initial.
move-corresponding itab_zycbt005_ant to wa_zycbt005.
endif.
* >> Início da inclusão: FORM BUSCA_DADOS_BI
move-corresponding /pws/zycbe001 to wa_zycbt001.
* << Fim da inclusão
call function '/PWS/ZYCB_DADOS_BI'
exporting
i_bukrs = p_bukrs
i_funcionalidade = 'VIN'
i_tpcontr = /pws/zycbe001-tpcontr
i_tpcontabil = p_tpcontabil
* >> Início da exclusão: FORM BUSCA_DADOS_BI
i_zycbt001 = /pws/zycbe001
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_DADOS_BI
i_zycbt001 = wa_zycbt001
* << Fim da inclusão
i_zycbt005 = wa_zycbt005
i_zycbt006 = wa_zycbt006
i_dtlanc = /pws/zycbe005-dtvincul
i_zycbt007 = wa_zycbt007
i_zycbt030 = wa_zycbt030
i_zycbt017 = wa_zycbt017
i_kursf6 = v_kursf6
i_waers = wa_zycbt005-waers
i_ctmoed = wa_zycbt011-ctmoed
i_tcode = itab_zycbe033-tcode
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB010F01
...
where nrseqc = /pws/zycbe001-nrseqc
and tpdesp = 'J'
and nrparc = itab_zycbt005_excluidas-nrparc
and dtincl = itab_zycbt005_excluidas-dtvincul.
endloop.
select single vlme from /pws/zycbt001
into v_vlme
where nrseqc = /pws/zycbe001-nrseqc.
/pws/zycbe001-vlme = v_vlme.
/pws/zycbe001-slvinc = v_vlme.
* >> Início da exclusão: FORM GRAVA_TABELAS
modify /pws/zycbt001 from /pws/zycbe001.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
move-corresponding /pws/zycbe001 to /pws/zycbt001.
modify /pws/zycbt001.
* << Fim da inclusão
modify /pws/zycbt017 from table itab_zycbt017.
else.
message i015 with text-047 text-048.
endif.
else.
loop at itab_zycbt005.
if itab_zycbt005-waers ne /pws/zycbe001-waers.
message i015 with text-028.
v_sai = 'X'.
exit.
...
...
move-corresponding itab_zycbt005 to wa_zycbt005_log.
perform monta_log_cfm using wa_zycbt005_log
'/PWS/ZYCBT005'
changing wa_log.
perform grava_log using '/PWS/ZYCBT005'
wa_log
'A'.
endloop.
endif.
if v_t005 <> 'X'.
* >> Início da exclusão: FORM GRAVA_TABELAS
modify /pws/zycbt001 from /pws/zycbe001.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
move-corresponding /pws/zycbe001 to /pws/zycbt001.
modify /pws/zycbt001.
* << Fim da inclusão
endif.
if sy-tcode = '/PWS/ZYCB010_A'.
loop at itab_zycbt005.
select * from /pws/zycbt004
up to 1 rows
where nrseqc = itab_zycbt005-nrseqc
and tpdesp = 'J'
and nrparc = itab_zycbt005-nrparc
and dtincl = itab_zycbt005-dtvincul.
endselect.
...
...
loop at itab_zycbt005.
if itab_zycbt005-nrparc = '000'.
itab_zycbt005-nrparc = sy-tabix.
itab_zycbt005-gsber = /pws/zycbe001-gsber.
itab_zycbt005-j_1bbranch = /pws/zycbe001-j_1bbranch.
itab_zycbt005-werks = /pws/zycbe001-werks.
modify itab_zycbt005 transporting nrparc gsber j_1bbranch
werks.
endif.
endloop.
* >> Início da exclusão: FORM GRAVA_TABELAS
modify /pws/zycbt001 from /pws/zycbe001.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
move-corresponding /pws/zycbe001 to /pws/zycbt001.
modify /pws/zycbt001.
* << Fim da inclusão
modify /pws/zycbt005 from table itab_zycbt005.
modify /pws/zycbt017 from table itab_zycbt017.
commit work.
if /pws/zycbe001-tpcontr eq 'E' and
/pws/zycbt007-cfm eq 'X'.
loop at itab_zycbt005.
move-corresponding itab_zycbt005 to wa_zycbt005_log.
perform monta_log_cfm using wa_zycbt005_log
'/PWS/ZYCBT005'
changing wa_log.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB028F01
...
where nrseq = /pws/zycbe086-nrseq.
commit work.
endif.
endif.
if v_ok is initial.
perform contabiliza.
endif.
endif.
endif.
if v_ok is initial.
* >> Início da exclusão: FORM ALTERA_DADOS
modify /pws/zycbt086 from /pws/zycbe086.
* << Fim da exclusão
* >> Início da inclusão: FORM ALTERA_DADOS
move-corresponding /pws/zycbe086 to /pws/zycbt086.
modify /pws/zycbt086.
* << Fim da inclusão
v_trans = 'E'.
if sy-subrc eq '0'.
wa_zycbt086 = /pws/zycbe086.
message s011(pc) with text-005.
endif.
endif.
endif.
endform.
form verifica_sequencial.
data: v_nrseq like /pws/zycbe086-nrseq,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB105F01
...
while sy-subrc ne 0.
perform find_nrseq.
insert into /pws/zycbt118 values /pws/zycbe118.
v_existe = 'S'.
endwhile.
if v_existe = 'S'.
message i061 with text-008 /pws/zycbe118-nrdesp
text-009 /pws/zycbe118-nrseq.
endif.
else.
* >> Início da exclusão: FORM ALTERA_DADOS
modify /pws/zycbt118 from /pws/zycbe118.
* << Fim da exclusão
* >> Início da inclusão: FORM ALTERA_DADOS
move-corresponding /pws/zycbe118 to /pws/zycbt118.
modify /pws/zycbt118.
* << Fim da inclusão
endif.
wa_zycbt118 = /pws/zycbe118.
if sy-subrc eq '0'.
message s601(sf) with text-005 wa_zycbt118-nrseq text-010.
endif.
if v_okcode <> 'OUTRO' and
sy-binpt is initial.
get parameter id '/PWS/ZYCMP300' field v_global.
if sy-tcode eq '/PWS/ZYCB105_C' and v_global is initial.
perform unlock_record.
...
...
exceptions
text_not_found = 1
others = 2.
if sy-subrc = 0.
else.
endif.
if v_resp eq '1'.
authority-check object 'S_TCODE' id 'TCD' field '/PWS/ZYCBR102'.
if sy-subrc eq 0.
v_estorno = 'X'.
* >> Início da exclusão: FORM FECHA_CAMBIO
modify /pws/zycbt118 from /pws/zycbe118.
* << Fim da exclusão
* >> Início da inclusão: FORM FECHA_CAMBIO
move-corresponding /pws/zycbe118 to /pws/zycbt118.
modify /pws/zycbt118.
* << Fim da inclusão
perform processa_boleto.
else.
message e303.
endif.
else.
exit.
endif.
endform.
form processa_boleto.
data: limpaid type c value space,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB105I01
...
move /pws/zycbe118 to wa_zycbt118.
call screen '0100'.
else.
message w036.
endif.
when 'CS'.
get cursor field v_campo value v_valor.
if v_campo eq '/PWS/ZYCBE118-NRSEQ'.
read table itab_zycbt118 with key nrseq = v_valor.
if sy-subrc eq 0.
* >> Início da exclusão: MODULE USER_COMMAND_0001
move: itab_zycbt118 to /pws/zycbe118,
itab_zycbt118 to wa_zycbt118,
/pws/zycbe118-nrseq to v_nrseq.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0001
move: /pws/zycbe118-nrseq to v_nrseq.
move-corresponding: itab_zycbt118 to /pws/zycbe118,
itab_zycbt118 to wa_zycbt118.
* << Fim da inclusão
v_status_s = 0.
call screen '0100'.
endif.
endif.
when 'BACK'.
free memory id '001'.
perform unlock_record.
free memory id '0100'.
leave program.
when 'CRDESP'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB106F01
...
modify itab_zycbt115 transporting nrcorrep
where nrcorrep = v_nrseq_ant.
endif.
move /pws/zycbe119-nrseq to wa_zycbt119-nrseq.
else.
select single * from /pws/zycit006
where nrseq = /pws/zycbe119-nrpagto.
if not /pws/zycbe119-nrdi is initial and sy-subrc = 0.
v_nrdi = /pws/zycbe119-nrdi.
clear /pws/zycbe119-nrdi.
* >> Início da exclusão: FORM SALVAR_DADOS
modify /pws/zycbt119 from /pws/zycbe119.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR_DADOS
move-corresponding /pws/zycbe119 to /pws/zycbt119.
modify /pws/zycbt119.
* << Fim da inclusão
/pws/zycbe119-nrdi = v_nrdi.
else.
* >> Início da exclusão: FORM SALVAR_DADOS
modify /pws/zycbt119 from /pws/zycbe119.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR_DADOS
move-corresponding /pws/zycbe119 to /pws/zycbt119.
modify /pws/zycbt119.
* << Fim da inclusão
endif.
...
...
else.
clear v_fat_imp.
endif.
if sy-tcode eq '/PWS/ZYCB106_A' and
/pws/zycbt108-slfat is initial
and not /pws/zycbe119-dtpagto is initial.
message i015 with text-098 text-099.
sy-tcode = '/PWS/ZYCB106_E'. "#EC *
v_status_s = 0.
endif.
* >> Início da exclusão: FORM SELECIONAR_DADOS
move /pws/zycbe119 to wa_zycbt119.
move /pws/zycbe119 to itab_zycbt119_aux.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_DADOS
move-corresponding:
/pws/zycbe119 to wa_zycbt119,
/pws/zycbe119 to itab_zycbt119_aux.
* << Fim da inclusão
perform calcula_moeda_interna.
move-corresponding /pws/zycbe119 to wa_zycbt119.
move-corresponding /pws/zycbe119 to itab_zycbt119_aux.
/pws/zycbe119-nrseq = v_exibe.
wa_zycbt119-nrseq = v_exibe.
if sy-tcode eq '/PWS/ZYCB106_E'.
v_status_s = '0'.
elseif sy-tcode eq '/PWS/ZYCB106_A'.
v_status_s = '1'.
endif.
...
...
authority-check object 'S_TCODE' id 'TCD' field '/PWS/ZYCB106_A'.
if sy-subrc ne 0.
message i261(sf) with '/PWS/ZYCB106_A'.
else.
perform lock_record.
v_status_s = '1'.
v_tcode = '/PWS/ZYCB106_A'.
endif.
else.
wa_zycbt119-nrseq = /pws/zycbe119-nrseq.
* >> Início da exclusão: FORM CHANGE_STATUS
if /pws/zycbe119 ne wa_zycbt119.
* << Fim da exclusão
* >> Início da inclusão: FORM CHANGE_STATUS
move-corresponding /pws/zycbe119 to wa_zycbe119.
if wa_zycbe119 ne wa_zycbt119.
* << Fim da inclusão
perform popup_message using text-014 text-006.
endif.
case v_answer.
when 'J'.
perform salvar_dados.
v_status_s = '0'.
v_tcode = '/PWS/ZYCB106_E'.
when 'N'.
move-corresponding wa_zycbt119 to /pws/zycbe119.
v_status_s = '0'.
...
...
endif.
endform.
form verifica_alteracoes.
if v_status_s = '1' or v_status_s is initial.
if ( sy-tcode eq '/PWS/ZYCB106_A' or sy-tcode eq '/PWS/ZYCB106_C' )
or ( sy-tcode eq '/PWS/ZYCB106_E' and v_status_s = '1' ).
wa_zycbt119-nrseq = /pws/zycbe119-nrseq.
clear sy-subrc.
perform ver_alter_prorrog.
perform ver_alter_item.
* >> Início da exclusão: FORM VERIFICA_ALTERACOES
if /pws/zycbe119 = wa_zycbt119 and
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ALTERACOES
move-corresponding /pws/zycbe119 to wa_zycbe119.
if wa_zycbe119 = wa_zycbt119 and
* << Fim da inclusão
sy-subrc ne 0.
v_answer = 'N'.
else.
perform popup_message using text-014 text-006.
endif.
if v_answer = 'J'.
perform salvar_dados.
elseif v_answer = 'N'.
move-corresponding wa_zycbt119 to /pws/zycbe119.
else.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB106TOP
...
DATA: END OF itab_zyglt316.
DATA: BEGIN OF itab_result OCCURS 0.
INCLUDE STRUCTURE ddshretval.
DATA: END OF itab_result.
DATA: BEGIN OF empresa OCCURS 0,
sign(1) TYPE c,
option(2) TYPE c,
low(4) TYPE c,
high(4) TYPE c,
END OF empresa.
* >> Início da inclusão:
DATA: wa_zycbe119 TYPE /pws/zycbt119.
* << Fim da inclusão
CONTROLS:
ts_contr TYPE TABSTRIP,
tc_ncm TYPE TABLEVIEW USING SCREEN '0102',
tc_rof TYPE TABLEVIEW USING SCREEN '0103',
tc_deduc TYPE TABLEVIEW USING SCREEN '0106',
tc_desc TYPE TABLEVIEW USING SCREEN '0108',
tc_pror TYPE TABLEVIEW USING SCREEN '0111',
tc_pgto TYPE TABLEVIEW USING SCREEN '0113'.
DATA:
wa_zyglt009 LIKE /pws/zyglt009,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB110F01
...
perform estornar_contabilizacoes
changing itab_contabilizacoes.
loop at itab_zycbt032.
itab_zycbt032-msgv1 = itab_zycbt032-msg(50).
itab_zycbt032-msgv2 = itab_zycbt032-msg+50.
perform message_store
using c_classe_msg
c_tipo_msg_e
itab_zycbt032-msgv1
itab_zycbt032-msgv2
* >> Início da exclusão: FORM CLEARING_FORNECEDOR_F51_IA
'Estorno dos documentos acima'
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_FORNECEDOR_F51_IA
text-459
* << Fim da inclusão
space
061.
endloop.
endif.
endif.
endform.
form clearing_f51_rze_ia.
data:
wa_mensagem like line of itab_mensagem,
wa_zycbe033 like line of itab_zycbe033,
...
...
perform estornar_contabilizacoes
changing itab_contabilizacoes.
loop at itab_zycbt032.
itab_zycbt032-msgv1 = itab_zycbt032-msg(50).
itab_zycbt032-msgv2 = itab_zycbt032-msg+50.
perform message_store
using c_classe_msg
c_tipo_msg_e
itab_zycbt032-msgv1
itab_zycbt032-msgv2
* >> Início da exclusão: FORM CLEARING_F51_RZE_IA
'Estorno dos documentos acima'
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_F51_RZE_IA
text-459
* << Fim da inclusão
space
061.
endloop.
endif.
endif.
endform.
form verifica_contabilizacao
using
value(p_transacao) type /pws/zycbt032-tcode
value(p_tabela) type /pws/zycbt032-tabela
...
MODIFICAR SÍMBOLOS DE TEXTO :
TEXTOS NOVOS:
SÍM.: TEXTO: CD. CM.
459 Estorno dos documentos acima 28 28
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB113F01
...
clear v_ind_delecao.
endif.
endif.
if itab_zycbt131_ant[] is initial.
v_ind_mudanca = 'X'.
endif.
if v_ind_mudanca is initial.
if v_ind_errocont is initial.
modify /pws/zycbt131 from table itab_zycbt131.
modify /pws/zycbt108 from table itab_zycbt108.
* >> Início da exclusão: FORM GRAVA_ASSOC_PGFAT
modify /pws/zycbt119 from /pws/zycbe119.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_ASSOC_PGFAT
move-corresponding /pws/zycbe119 to /pws/zycbt119.
modify /pws/zycbt119.
* << Fim da inclusão
loop at itab_zycbt108 where belnr_lq ne ' '.
if itab_zycbt108-slfat eq 0.
update /pws/zycbt119 set slpgfat = itab_zycbt108-slfat
belnr_p = itab_zycbt108-belnr_lq
dtpagto = sy-datum
where nrseq = itab_zycbt108-nrseq_pgfat.
else.
update /pws/zycbt119 set slpgfat = itab_zycbt108-slfat
belnr_p = itab_zycbt108-belnr_lq
where nrseq = itab_zycbt108-nrseq_pgfat.
...
...
endif.
delete itab_zycbt131 where vlme eq ' '.
if v_erro_inclusao eq 'X'.
clear v_erro_inclusao.
clear v_sucesso.
else.
v_sucesso = 'X'.
if v_erro_estorno is initial.
modify /pws/zycbt131 from table itab_zycbt131.
modify /pws/zycbt108 from table itab_zycbt108.
* >> Início da exclusão: FORM GRAVA_ASSOC_PGFAT
modify /pws/zycbt119 from /pws/zycbe119.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_ASSOC_PGFAT
move-corresponding /pws/zycbe119 to /pws/zycbt119.
modify /pws/zycbt119.
* << Fim da inclusão
loop at itab_zycbt108 where belnr_lq ne ' '.
if itab_zycbt108-slfat eq 0.
update /pws/zycbt119 set slpgfat = itab_zycbt108-slfat
belnr_p = itab_zycbt108-belnr_lq
dtpagto = sy-datum
where nrseq = itab_zycbt108-nrseq_pgfat.
else.
update /pws/zycbt119 set slpgfat = itab_zycbt108-slfat
belnr_p = itab_zycbt108-belnr_lq
where nrseq = itab_zycbt108-nrseq_pgfat.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB114F01
...
read table itab_zycbt116 index 1.
move: /pws/zycbe116-nrrefin to /pws/zycbe112-nrseq,
/pws/zycbe116-dtincl to /pws/zycbe112-dtincl,
/pws/zycbe116-vlrefinan to /pws/zycbe112-vlme,
/pws/zycbe116-vlrefinan to /pws/zycbe112-slrefin,
/pws/zycbe116-waers to /pws/zycbe112-waers,
'I' to /pws/zycbe112-status,
itab_zycbt116-bukrs to /pws/zycbe112-bukrs,
itab_zycbt116-gsber to /pws/zycbe112-gsber,
itab_zycbt116-codint to /pws/zycbe112-codint.
* >> Início da exclusão: FORM ATUALIZA_ZYCBT112
modify /pws/zycbt112 from /pws/zycbe112.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_ZYCBT112
move-corresponding /pws/zycbe112 to /pws/zycbt112.
modify /pws/zycbt112.
* << Fim da inclusão
commit work.
endform.
form selecao_automatica.
select /pws/zycbt113~nrseq /pws/zycbt113~tpparc
/pws/zycbt113~nrparc
/pws/zycbt113~vlme /pws/zycbt112~bukrs /pws/zycbt112~gsber
/pws/zycbt112~codint /pws/zycbt112~waers
/pws/zycbt112~slrefin
from /pws/zycbt113 inner join /pws/zycbt112
on /pws/zycbt112~nrseq = /pws/zycbt113~nrseq
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB116F03
...
endif.
endform.
form salva_dados_cotacao.
data: itab_243_aux type table of /pws/zycbt243,
itab_112_aux type table of /pws/zycbt112,
itab_001_aux type table of /pws/zycbt001,
itab_128_aux type table of /pws/zycbt128,
itab_234_aux type table of /pws/zycbt234.
data: eg_zycbt243 type /pws/zycbt243,
eg_243_aux type /pws/zycbe243,
* >> Início da exclusão: FORM SALVA_DADOS_COTACAO
eg_112_aux type /pws/zycbe112,
eg_001_aux type /pws/zycbe001,
eg_128_aux type /pws/zycbe128,
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_DADOS_COTACAO
eg_112_aux type /pws/zycbt112,
eg_001_aux type /pws/zycbt001,
eg_128_aux type /pws/zycbt128,
* << Fim da inclusão
eg_234_aux type /pws/zycbt234,
eg_234_est type /pws/zycbe234,
eg_ganhador type /pws/zycbe234,
eg_dados_tc type s_vlmecotado,
eg_zyglt025 type t_zyglt025.
data: vl_tabix type sy-tabix.
clear vg_101.
loop at itab_zycbt234 into eg_234_aux.
vl_tabix = sy-tabix.
read table itab_zycbe234 into eg_234_est with key
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCM101F01
...
if v_compra = 'X'.
/pws/zycbe112-ftaxa = 'G'.
else.
if v_venda = 'X'.
/pws/zycbe112-ftaxa = 'B'.
elseif v_media = 'X'.
/pws/zycbe112-ftaxa = 'M'.
endif.
endif.
endif.
* >> Início da exclusão: FORM SAVE_ZYCBT112
move /pws/zycbe112 to /pws/zycbt112.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT112
MOVE-CORRESPONDING /pws/zycbe112 TO /pws/zycbt112.
* << Fim da inclusão
clear : itab_zycbt113pa.
refresh : itab_zycbt113pa.
select *
from /pws/zycbt113
into table itab_zycbt113pa
where nrseq eq /pws/zycbe112-nrseq
and tpparc eq 'P'.
clear : v_modifp, v_mdparc.
clear /pws/zyglt009.
select single *
...
...
loop at itab_zycbt113p.
read table itab_zycbt113pa
with key nrseq = itab_zycbt113p-nrseq
tpparc = itab_zycbt113p-tpparc
nrparc = itab_zycbt113p-nrparc.
if itab_zycbt113p-vlme eq itab_zycbt113pa-vlme.
if itab_zycbt113p-dtfinal ne itab_zycbt113pa-dtfinal and
itab_zycbt113p-ftransf eq itab_zycbt113pa-ftransf.
perform fill_date_fb02.
endif.
* >> Início da exclusão: FORM SAVE_ZYCBT112
modify /pws/zycbt112 from /pws/zycbe112.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT112
MOVE-CORRESPONDING /pws/zycbe112 TO /pws/zycbt112.
MODIFY /pws/zycbt112.
* << Fim da inclusão
commit work.
endif.
endloop.
endif.
perform modify_zycbt112.
read table itab_zycbt113p with key belnr = ' '.
if sy-subrc eq 0 and /pws/zycbe112-fassoc eq 'X'.
perform finaliza_processo_contabil.
elseif sy-subrc eq 0 and
/pws/zycbe112-fassoc eq ' ' and
...
...
perform save_zycbt113.
else.
if /pws/zycbe112-nrseq+0(1) = '5'.
perform reverse_document_zycbt112.
if wa_zycbt007-cfm = 'X'.
select single *
from /pws/zycbt112
into wa_zycbt112_log
where nrseq = /pws/zycbe112-nrseq.
endif.
* >> Início da exclusão: FORM SAVE_ZYCBT112
modify /pws/zycbt112 from /pws/zycbe112.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT112
MOVE-CORRESPONDING /pws/zycbe112 TO /pws/zycbt112.
MODIFY /pws/zycbt112.
* << Fim da inclusão
if wa_zycbt007-cfm = 'X'.
perform monta_log_cfm using /pws/zycbe112
'/PWS/ZYCBT112'
changing wa_log. "#EC *
if wa_zycbt112_log is initial.
perform grava_log using '/PWS/ZYCBT112'
wa_log
'C'.
else.
perform grava_log using '/PWS/ZYCBT112'
...
...
loop at itab_zycbt113p.
read table itab_zycbt113pa
with key nrseq = itab_zycbt113p-nrseq
tpparc = itab_zycbt113p-tpparc
nrparc = itab_zycbt113p-nrparc.
if itab_zycbt113p-vlme eq itab_zycbt113pa-vlme.
if itab_zycbt113p-dtfinal ne itab_zycbt113pa-dtfinal and
itab_zycbt113p-ftransf eq itab_zycbt113pa-ftransf.
perform fill_date_fb02.
endif.
* >> Início da exclusão: FORM SAVE_ZYCBT112
modify /pws/zycbt112 from /pws/zycbe112.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT112
MOVE-CORRESPONDING /pws/zycbe112 TO /pws/zycbt112.
MODIFY /pws/zycbt112.
* << Fim da inclusão
commit work.
endif.
endloop.
perform reverse_document_zycbt112.
perform save_zycbt113.
endif.
endif.
endif.
endform.
form call_zycb105_l.
...
...
commit work.
loop at itab_zycbt115.
modify /pws/zycbt115 from itab_zycbt115.
endloop.
commit work.
endform.
form reverse_document_zycbt112.
data:
wa_mensagem like line of itab_mensagem.
data: v_monat like t001b-frpe1.
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT112
DATA: wa_zycbt112_aux LIKE /pws/zycbt112.
* << Fim da inclusão
clear /pws/zycbe112-fassoc.
select single fassoc from /pws/zycbt112
into /pws/zycbe112-fassoc
where nrseq eq /pws/zycbe112-nrseq.
if /pws/zycbe112-fassoc eq 'X'.
perform recontabiliza_parcelas.
exit.
endif.
if not itab_excluidos[] is initial.
perform estorna_parcelas_excluidas.
...
...
endloop.
if sy-subrc ne 0.
perform reverse_document_zycbt112_cab.
else.
if /pws/zycbe112-fassoc is initial.
refresh itab_zycbt113pe.
loop at itab_zycbt113p.
move-corresponding itab_zycbt113p to itab_zycbt113pe.
append itab_zycbt113pe.
endloop.
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT112
MOVE-CORRESPONDING /pws/zycbe112 TO wa_zycbt112_aux.
* << Fim da inclusão
call customer-function '001'
exporting
v_modo_bi = v_modo_bi
tables
itab_zycbt113p = itab_zycbt113pe
changing
* >> Início da exclusão: FORM REVERSE_DOCUMENT_ZYCBT112
/pws/zycbe112 = /pws/zycbe112.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT112
/pws/zycbe112 = wa_zycbt112_aux.
MOVE-CORRESPONDING wa_zycbt112_aux TO /pws/zycbe112.
* << Fim da inclusão
loop at itab_zycbt113p.
read table itab_zycbt113pe
with key nrparc = itab_zycbt113p-nrparc.
move-corresponding itab_zycbt113pe to itab_zycbt113p.
modify itab_zycbt113p.
endloop.
move /pws/zycbe112 to wa_zycbt112.
exit.
endif.
endif.
else.
if /pws/zycbe112-fassoc is initial.
refresh itab_zycbt113pe.
loop at itab_zycbt113p.
move-corresponding itab_zycbt113p to itab_zycbt113pe.
append itab_zycbt113pe.
endloop.
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT112
MOVE-CORRESPONDING /pws/zycbe112 TO wa_zycbt112_aux.
* << Fim da inclusão
call customer-function '001'
exporting
v_modo_bi = v_modo_bi
tables
itab_zycbt113p = itab_zycbt113pe
changing
* >> Início da exclusão: FORM REVERSE_DOCUMENT_ZYCBT112
/pws/zycbe112 = /pws/zycbe112.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT112
/pws/zycbe112 = wa_zycbt112_aux.
MOVE-CORRESPONDING wa_zycbt112_aux TO /pws/zycbe112.
* << Fim da inclusão
loop at itab_zycbt113p.
read table itab_zycbt113pe
with key nrparc = itab_zycbt113p-nrparc.
move-corresponding itab_zycbt113pe to itab_zycbt113p.
modify itab_zycbt113p.
endloop.
move /pws/zycbe112 to wa_zycbt112.
exit.
endif.
endif.
...
...
and tpdoc eq 'I'
and fassoc eq 'S'. "#EC CI_NOFIELD
endselect.
if sy-subrc eq 0.
v_apagar = 'N'.
message i015 with text-033 text-034.
endif.
endform.
form exclui_financiamento.
/pws/zycbe112-status = 'E'.
* >> Início da exclusão: FORM EXCLUI_FINANCIAMENTO
modify /pws/zycbt112 from /pws/zycbe112.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_FINANCIAMENTO
MOVE-CORRESPONDING /pws/zycbe112 TO /pws/zycbt112.
MODIFY /pws/zycbt112.
* << Fim da inclusão
if wa_zycbt007-cfm = 'X'.
select single *
from /pws/zycbt112
into wa_zycbt112_log
where nrseq = /pws/zycbe112-nrseq.
perform monta_log_cfm using wa_zycbt112_log
'/PWS/ZYCBT112'
changing wa_log. "#EC *
perform grava_log using '/PWS/ZYCBT112'
wa_log
...
...
else.
if wa_zycbt007-cfm = 'X'.
select single *
from /pws/zycbt112
into wa_zycbt112_log
where nrseq = /pws/zycbe112-nrseq.
perform monta_log_cfm using /pws/zycbe112
'/PWS/ZYCBT112'
changing wa_log. "#EC *
endif.
* >> Início da exclusão: FORM MODIFY_ZYCBT112
modify /pws/zycbt112 from /pws/zycbe112.
* << Fim da exclusão
* >> Início da inclusão: FORM MODIFY_ZYCBT112
MOVE-CORRESPONDING /pws/zycbe112 TO /pws/zycbt112.
MODIFY /pws/zycbt112.
* << Fim da inclusão
if wa_zycbt007-cfm = 'X'.
if wa_zycbt112_log is initial.
perform grava_log using '/PWS/ZYCBT112'
wa_log
'C'.
else.
perform grava_log using '/PWS/ZYCBT112'
wa_log
'A'.
endif.
...
...
space
space
space
'061'.
endloop.
endif.
endif.
perform clear_date_batch.
endloop.
/pws/zycbe112-agums = wa_zycbt011-agums.
* >> Início da exclusão: FORM GERA_NOVAS_PARCELAS
move /pws/zycbe112 to /pws/zycbt112.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_NOVAS_PARCELAS
MOVE-CORRESPONDING /pws/zycbe112 TO /pws/zycbt112.
* << Fim da inclusão
modify /pws/zycbt112.
if wa_zycbt007-cfm = 'X'.
select single *
from /pws/zycbt112
into wa_zycbt112_log
where nrseq = /pws/zycbe112-nrseq.
perform grava_log using '/PWS/ZYCBT112'
wa_log
'A'.
endif.
* >> Início da exclusão: FORM GERA_NOVAS_PARCELAS
move /pws/zycbt112 to wa_zycbt112.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_NOVAS_PARCELAS
MOVE-CORRESPONDING /pws/zycbt112 TO wa_zycbt112.
* << Fim da inclusão
endform.
form busca_conta_parcela.
if itab_zycbt113pa-ftransf eq c_prazo_l.
v_prazo = c_prazo_l.
elseif itab_zycbt113pa-ftransf eq c_prazo_c.
v_prazo = c_prazo_c.
else.
v_prazo = c_prazo_s.
endif.
concatenate wa_zycbt112-codint v_prazo
...
...
wa_mensagem-msg
space
space
space
'061'.
endloop.
endif.
endif.
perform clear_date_batch.
endloop.
* >> Início da exclusão: FORM FINALIZA_PROCESSO_CONTABIL
move /pws/zycbe112 to /pws/zycbt112.
* << Fim da exclusão
* >> Início da inclusão: FORM FINALIZA_PROCESSO_CONTABIL
MOVE-CORRESPONDING /pws/zycbe112 TO /pws/zycbt112.
* << Fim da inclusão
modify /pws/zycbt112.
* >> Início da exclusão: FORM FINALIZA_PROCESSO_CONTABIL
move /pws/zycbt112 to wa_zycbt112.
* << Fim da exclusão
* >> Início da inclusão: FORM FINALIZA_PROCESSO_CONTABIL
MOVE-CORRESPONDING /pws/zycbt112 TO wa_zycbt112.
* << Fim da inclusão
endform.
form busca_conta_financ.
data : v_diasp like /pws/zycbt113-nrdias.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL032F01
...
SET: tp_conta = /pws/zycbe214-tp_conta
cod_cli = /pws/zycbe214-cod_cli
WHERE tpcontr = /pws/zycbe214-tpcontr.
IF sy-subrc NE 0 .
INSERT INTO /pws/zycbt214 VALUES /pws/zycbe214. "#EC ENHOK
COMMIT WORK.
ENDIF.
MESSAGE s001 WITH text-009.
CLEAR: itab_zycbt214_gr.
REFRESH:itab_zycbt214_gr.
* >> Início da exclusão: FORM SAVE_CHANGES
itab_zycbt214_gr = /pws/zycbe214.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_CHANGES
MOVE-CORRESPONDING /pws/zycbe214 TO itab_zycbt214_gr.
* << Fim da inclusão
APPEND itab_zycbt214_gr.
PERFORM grava_request TABLES itab_zycbt214_gr.
v_status_s = 0.
REFRESH itab_zycbt214.
FREE itab_zycbt214.
PERFORM fill_nodes.
ENDIF.
ENDFORM.
FORM exclui_reg.
CLEAR v_answer.
PERFORM popup_message USING text-007 text-008.
IF v_answer EQ 'J'.
DELETE itab_zycbt214 WHERE tpcontr = /pws/zycbe214-tpcontr.
DELETE FROM /pws/zycbt214 WHERE tpcontr = /pws/zycbe214-tpcontr.
COMMIT WORK.
CLEAR: itab_zycbt214_gr.
REFRESH:itab_zycbt214_gr.
* >> Início da exclusão: FORM EXCLUI_REG
itab_zycbt214_gr = /pws/zycbe214.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_REG
MOVE-CORRESPONDING /pws/zycbe214 TO itab_zycbt214_gr.
* << Fim da inclusão
APPEND itab_zycbt214_gr.
PERFORM grava_request TABLES itab_zycbt214_gr.
REFRESH: node_table.
PERFORM fill_nodes.
CLEAR /pws/zycbe214.
ENDIF.
ENDFORM.
FORM criar.
IF /pws/zycbe214 NE wa_zycbt214. "#EC ENHOK
PERFORM popup_message USING text-005 text-006.
...