CE PLUS - Nota 006012
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Relatórios
Data/Hora da Publicação: 25/02/2008 00:00:00
Data/Hora Última Alteração: 03/03/2010 17:45:32
Descrição da Nota: CODE INSPECTOR, VERIFICAÇÃO AMPLIADA, PROGRAMAS CAMBIO
Sintoma
sintaxe e performance
Solução
code inspector e verificação ampliada
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06012 Data: 25/02/2008 Hora: 09:20:48
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06012
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:
CODE INSPECTOR, VERIFICAÇÃO AMPLIADA, PROGRAMAS CAMBIO
----------------------------------------------------------------------------------------------------
Palavras Chave:
CODE INSPECTOR, VERIFICAÇÃO AMPLIADA, PROGRAMAS CAMBIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB002F01
REPS /PWS/MZYCB002I01
REPS /PWS/MZYCB002O01
REPS /PWS/MZYCB002TOP
REPS /PWS/MZYCB005F01
REPS /PWS/MZYCB005I01
REPS /PWS/MZYCB005O01
REPS /PWS/MZYCB005TOP
REPS /PWS/MZYCB005X01
REPS /PWS/MZYCB006F01
REPS /PWS/MZYCB006I01
REPS /PWS/MZYCB006TOP
REPS /PWS/MZYCB007F01
REPS /PWS/MZYCB007I02
REPS /PWS/MZYCB007O01
REPS /PWS/MZYCB007TOP
REPS /PWS/MZYCB008F01
REPS /PWS/MZYCB008I01
REPS /PWS/MZYCB008O01
REPS /PWS/MZYCB008TOP
REPT /PWS/SAPMZYCB006
REPT /PWS/SAPMZYCB007
REPT /PWS/SAPMZYCB008
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB002F01
...
from /pws/zycbt017
for all entries in itab_zycbt005
where nrinvoic = itab_zycbt005-nrinvoic
and nrparcf = itab_zycbt005-nrparcf
and gsberf = itab_zycbt005-gsberf.
delete itab_zycbt017 where nrinvoic eq ' '.
endif.
endif.
endform.
form altera_itab_zycbt005.
* >> Início da exclusão: FORM ALTERA_ITAB_ZYCBT005
data v_linha(40) type c.
* << Fim da exclusão
if v_ind_pagto is initial.
if ok_code eq 'DELE'.
exit.
endif.
if not v_ind_erroinv is initial.
exit.
endif.
clear v_ind_existe005.
read table itab_zycbt005_aux
with key nrinvoic = /pws/zycbe005-nrinvoic
...
...
clear itab_zycbt017.
read table itab_zycbt017
with key nrinvoic = itab_zycbt005-nrinvoic
nrparcf = itab_zycbt005-nrparcf.
endif.
if not v_ind_existe005 is initial.
/pws/zycbe005-vlslf = ( v_vlvinc_old + v_vlslf_old ).
/pws/zycbe004-slvinc = ( v_slcont_old + v_vlvinc_old ).
endif.
if /pws/zycbe005-vlslf is initial.
* >> Início da exclusão: FORM CALCULA_SALDO_FATURA
select single vlslf from /pws/zycbt017
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_SALDO_FATURA
select vlslf from /pws/zycbt017
up to 1 rows
* << Fim da inclusão
into /pws/zycbe005-vlslf
where nrinvoic = /pws/zycbe005-nrinvoic
and nrparcf = /pws/zycbe005-nrparcf.
* >> Início da inclusão: FORM CALCULA_SALDO_FATURA
endselect.
* << Fim da inclusão
endif.
if /pws/zycbe005-vlvinc gt /pws/zycbe004-slvinc.
* >> Início da exclusão: FORM CALCULA_SALDO_FATURA
message i011(pc)
with text-020.
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_SALDO_FATURA
message i899(f5) with text-020.
* << Fim da inclusão
if v_ind_vlvinc = 'X'.
/pws/zycbe005-vlvinc = v_vlvinc_old.
/pws/zycbe004-slvinc = v_slcont_old.
v_ind_vlvinc = ' '.
endif.
else.
v_vlslf = ( /pws/zycbe005-vlslf - /pws/zycbe005-vlvinc ).
if v_vlslf lt 0.
* >> Início da exclusão: FORM CALCULA_SALDO_FATURA
message i011(pc)
with text-021.
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_SALDO_FATURA
message i899(f5) with text-021.
* << Fim da inclusão
if v_ind_vlvinc = 'X'.
/pws/zycbe004-slvinc = v_slcont_old.
/pws/zycbe005-vlvinc = v_vlvinc_old.
v_ind_vlvinc = ' '.
endif.
else.
itab_zycbt017-vlslf = v_vlslf.
modify itab_zycbt017 transporting vlslf
where nrinvoic = /pws/zycbe005-nrinvoic
and nrparcf = /pws/zycbe005-nrparcf
...
...
form msg_pagto.
call function 'POPUP_TO_DISPLAY_TEXT_LO'
exporting
titel = text-028
textline1 = text-023
textline2 = text-022
textline3 = text-024
start_column = 15
start_row = 6
exceptions
* >> Início da exclusão: FORM MSG_PAGTO
others = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM MSG_PAGTO
others = 0.
* << Fim da inclusão
endform.
form exclui_dados_itab.
call function 'POPUP_TO_CONFIRM_STEP'
exporting
defaultoption = 'Y'
textline1 = text-026
textline2 = text-027
titel = text-025
start_column = 25
start_row = 6
...
...
endif.
else.
perform msg_pagto.
endif.
endif.
clear ok_code.
endform.
form define_cambio using value(p_data)
value(p_moedae)
value(p_moedal)
* >> Início da exclusão: FORM DEFINE_CAMBIO
p_kursf.
* << Fim da exclusão
* >> Início da inclusão: FORM DEFINE_CAMBIO
p_kursf."#EC *
* << Fim da inclusão
select single codpadr kurst
into (/pws/zycbt009-codpadr, /pws/zycbt009-kurst)
from /pws/zycbt009
where codpadr = wa_zycbt011-ctmoed.
call function 'READ_EXCHANGE_RATE'
exporting
date = p_data
foreign_currency = p_moedae
local_currency = p_moedal
type_of_rate = /pws/zycbt009-kurst
importing
exchange_rate = p_kursf
exceptions
no_rate_found = 1
no_factors_found = 2
no_spread_found = 3
derived_2_times = 4
* >> Início da exclusão: FORM DEFINE_CAMBIO
others = 5.
* << Fim da exclusão
* >> Início da inclusão: FORM DEFINE_CAMBIO
others = 5."#EC *
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
endform.
form ver_alt_cabec.
clear v_ind_msg.
if v_frcont ne /pws/zycbe005-frcont.
perform ver_alt_pagto.
v_ind_mudanca = 'X'.
endif.
if v_kostl ne /pws/zycbe005-kostl.
perform ver_alt_pagto.
v_ind_mudanca = 'X'.
...
...
concatenate text-053 /pws/zycbe005-nrinvoic
into v_msg.
call function 'POPUP_TO_DISPLAY_TEXT_LO'
exporting
titel = text-028
textline1 = v_msg
textline2 = text-054
start_column = 15
start_row = 6
exceptions
* >> Início da exclusão: FORM VER_DT_VENCTO
others = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM VER_DT_VENCTO
others = 0.
* << Fim da inclusão
v_ind_erroinv = 'X'.
else.
clear itab_zycbt005_aux4.
itab_zycbt005_aux4-nrinvoic = /pws/zycbe005-nrinvoic.
itab_zycbt005_aux4-nrparcf = /pws/zycbe005-nrparcf.
itab_zycbt005_aux4-dtvincul = v_dtvincul.
append itab_zycbt005_aux4.
endif.
if not v_ind_erroinv is initial.
exit.
...
...
with dtentrad = sy-datum
with waers = /pws/zycbe004-waers
with tprelat = /pws/zycbe004-tpcontr+0(1)
with txt_c1 = /pws/zycbe004-txtinf
and return.
endform.
form contabilizacao.
perform fill_date1_f28 tables itab_zycbt005.
endform.
form fill_date1_f28 tables p_itab_zycbt005 structure
* >> Início da exclusão: FORM FILL_DATE1_F28
itab_zycbt005.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F28
itab_zycbt005."#EC *
* << Fim da inclusão
endform.
form lock_record.
check not itab_zycbt005-nrseqc is initial.
call function '/PWS/ZYCB_ENQUEUE_ZYCBT005'
exporting
nrseqc = itab_zycbt005-nrseqc
tpdesp = itab_zycbt005-tpdesp
nrparc = itab_zycbt005-nrparc
dtincl = itab_zycbt005-dtincl
nrinvoic = itab_zycbt005-nrinvoic
...
...
/pws/zycbe017-dtvencto = ''.
/pws/zycbe017-inco1 = ''.
/pws/zycbe017a-nrinvoic = ''.
/pws/zycbe017a-gsberf = ''.
/pws/zycbe017a-dtbl = ''.
/pws/zycbe017a-fkdat = ''.
/pws/zycbe017a-kunag = ''.
/pws/zycbe017a-dtvencto = ''.
/pws/zycbe017a-inco1 = ''.
endform.
* >> Início da exclusão: FORM ATUALIZA_ITAB_ZYCBT005
form atualiza_itab_zycbt005.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_ITAB_ZYCBT005
form atualiza_itab_zycbt005."#EC CALLED
* << Fim da inclusão
itab_zycbt005-kostl = /pws/zycbe005-kostl.
itab_zycbt005-prctr = /pws/zycbe005-prctr.
itab_zycbt005-fipos = /pws/zycbe005-fipos.
itab_zycbt005-frcont = /pws/zycbe005-frcont.
itab_zycbt005-ftxt = /pws/zycbe005-ftxt.
itab_zycbt005-txtinf = /pws/zycbe005-txtinf.
itab_zycbt005-txtobs = /pws/zycbe005-txtobs.
itab_zycbt005-dtvincul = /pws/zycbe005-dtvincul.
itab_zycbt005-nrseqc = /pws/zycbe001-nrseqc.
itab_zycbt005-nrcontr = /pws/zycbe001-nrcontr.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB002I01
...
v_kostl,
v_prctr,
v_fipos,
v_dtvincul,
v_ftxt,
v_txtinf,
v_txtobs,
v_ind_carrega,
/pws/zycbe004,
/pws/zycbe005,
* >> Início da exclusão: MODULE USER_COMMAND_EXIT
itab_zycbt004,
* << Fim da exclusão
itab_zycbt005_aux,
itab_zycbt017,
itab_zycbt017_aux.
refresh:
* >> Início da exclusão: MODULE USER_COMMAND_EXIT
itab_zycbt004,
* << Fim da exclusão
itab_zycbt005_aux,
itab_zycbt017,
itab_zycbt017_aux.
free:
* >> Início da exclusão: MODULE USER_COMMAND_EXIT
itab_zycbt004,
* << Fim da exclusão
itab_zycbt005_aux,
itab_zycbt017,
itab_zycbt017_aux.
case ok_code.
when 'BACK'.
perform unlock_record.
perform limpa_tabelas.
leave to screen '0001'.
when '%EX'.
perform unlock_record.
...
...
endcase.
endmodule.
module user_command_0001 input.
case ok_code.
when 'DATAS'.
clear v_dtvincul.
call screen '0010' starting at 2 2.
when 'ENTE'.
clear v_ind_mudanca.
if v_dtvincul is initial.
* >> Início da exclusão: MODULE USER_COMMAND_0001
message i011(pc) with text-018.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0001
message i899(f5) with text-018.
* << Fim da inclusão
exit.
endif.
* >> Início da exclusão: MODULE USER_COMMAND_0001
select single * from /pws/zycbt004 into /pws/zycbe004
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0001
select * from /pws/zycbt004
up to 1 rows
into /pws/zycbe004
* << Fim da inclusão
where nrseqc = /pws/zycbe004-nrseqc
and tpdesp = 'J'
and nrparc = /pws/zycbe004-nrparc
and dtincl = /pws/zycbe004-dtincl.
* >> Início da inclusão: MODULE USER_COMMAND_0001
endselect.
* << Fim da inclusão
if sy-subrc = 0.
clear v_ind_msg2.
if not /pws/zycbe004-dtpagto is initial.
...
...
set screen 0.
leave screen.
endmodule.
module ver_alt_cabec input.
perform limpa_itab_zycbt005_aux4.
perform ver_alt_cabec.
endmodule.
module ver_dt_vencto input.
perform ver_dt_vencto.
endmodule.
* >> Início da exclusão: MODULE CARGA_SALDO_FATURA
module carga_saldo_fatura input.
* << Fim da exclusão
* >> Início da inclusão: MODULE CARGA_SALDO_FATURA
module carga_saldo_fatura input."#EC *
* << Fim da inclusão
if /pws/zycbe005-vlslf eq 0 and itab_zycbt005-v_fsaldo is initial.
* >> Início da exclusão: MODULE CARGA_SALDO_FATURA
select single vlslf from /pws/zycbt017
* << Fim da exclusão
* >> Início da inclusão: MODULE CARGA_SALDO_FATURA
select vlslf from /pws/zycbt017
up to 1 rows
* << Fim da inclusão
into /pws/zycbt017-vlslf
where nrinvoic = /pws/zycbe005-nrinvoic
and nrparcf = /pws/zycbe005-nrparcf.
* >> Início da inclusão: MODULE CARGA_SALDO_FATURA
endselect.
* << Fim da inclusão
itab_zycbt005-vlslf = /pws/zycbt017-vlslf.
/pws/zycbe005-vlslf = /pws/zycbt017-vlslf.
itab_zycbt005-v_fsaldo = 'X'.
v_ind_vlvinc = 'X'.
modify itab_zycbt005 index tc_faturas-current_line.
else.
itab_zycbt005-vlslf = /pws/zycbe005-vlslf.
endif.
endmodule.
module user_command_0200 input.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB002O01
MODULE status_0100 OUTPUT.
SET PF-STATUS '0100'.
SET TITLEBAR '100'.
PERFORM limpa_itab_zycbt005_aux4.
ENDMODULE.
MODULE status_0001 OUTPUT.
SET PF-STATUS '0001'.
SET TITLEBAR '100'.
ENDMODULE.
* >> Início da exclusão: MODULE CARREGA_ITAB_ZYCBT017
MODULE carrega_itab_zycbt017 OUTPUT.
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_ITAB_ZYCBT017
MODULE carrega_itab_zycbt017 OUTPUT."#EC *
* << Fim da inclusão
PERFORM carrega_itab_zycbt017.
ENDMODULE.
MODULE carrega_zycbe005 OUTPUT.
PERFORM carrega_zycbe005.
ENDMODULE.
MODULE carrega_datas OUTPUT.
REFRESH: itab_zycbt005_aux2.
CLEAR itab_zycbt005_aux2.
SELECT DISTINCT dtvincul
FROM /pws/zycbt005
...
...
LOOP AT itab_zycbt017 WHERE nrinvoic EQ ' ' OR
nrinvoic EQ space.
DELETE itab_zycbt017 WHERE nrinvoic = ' ' OR
nrinvoic = space.
ENDLOOP.
SORT itab_zycbt017 BY nrinvoic nrparcf.
DELETE ADJACENT DUPLICATES FROM itab_zycbt017[].
CLEAR itab_zycbt005.
ENDMODULE.
MODULE carrega_zycbt017 OUTPUT.
* >> Início da exclusão: MODULE CARREGA_ZYCBT017
DATA: v_linhas(40) TYPE c.
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_ZYCBT017
DATA: v_linhas(40) TYPE c."#EC NEEDED
* << Fim da inclusão
CLEAR: itab_zycbt017, v_linhas, sy-tabix.
IF itab_zycbt017[] IS INITIAL.
IF NOT itab_zycbt005[] IS INITIAL.
SELECT * FROM /pws/zycbt017
INTO TABLE itab_zycbt017
FOR ALL ENTRIES IN itab_zycbt005
WHERE nrinvoic = itab_zycbt005-nrinvoic AND
nrparcf = itab_zycbt005-nrparcf AND
gsberf = itab_zycbt005-gsberf.
ELSE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB002TOP
PROGRAM /PWS/SAPMZYCB002 MESSAGE-ID /PWS/ZYCBM.
TABLES:
* >> Início da exclusão:
BSID,
* << Fim da exclusão
/PWS/ZYCBE001,
/PWS/ZYCBE004,
/PWS/ZYCBE005,
* >> Início da exclusão:
/PWS/ZYCBT004,
/PWS/ZYCBT005,
/PWS/ZYCBT006,
/PWS/ZYCBT007,
* << Fim da exclusão
* >> Início da inclusão:
/PWS/ZYCBT004,"#EC *
/PWS/ZYCBT005,"#EC *
* << Fim da inclusão
/PWS/ZYCBT009,
/PWS/ZYCBT017,
/PWS/ZYCBE017,
/PWS/ZYCBE017A,
/PWS/ZYCBT035.
* >> Início da exclusão:
DATA: BEGIN OF itab_ZYCBT004 OCCURS 0.
INCLUDE STRUCTURE /PWS/ZYCBT004.
DATA: END OF itab_ZYCBT004.
* << Fim da exclusão
DATA: BEGIN OF itab_ZYCBT005 OCCURS 0.
INCLUDE STRUCTURE /PWS/ZYCBT005.
DATA: VLSLF LIKE /PWS/ZYCBE005-VLSLF,
FLAG TYPE C,
VLDIF LIKE /PWS/ZYCBE005-VLSLF,
BELNR_F02 LIKE /PWS/ZYCBT005-BELNR,
STATRANS(4) TYPE C,
v_fsaldo type c,
END OF itab_ZYCBT005.
DATA: BEGIN OF itab_ZYCBT005_AUX OCCURS 0.
...
...
END OF itab_ZYCBT005_AUX.
DATA: BEGIN OF itab_ZYCBT005_AUX3 OCCURS 0.
INCLUDE STRUCTURE /PWS/ZYCBT005.
DATA: VLSLF LIKE /PWS/ZYCBE005-VLSLF,
FLAG TYPE C,
VLDIF LIKE /PWS/ZYCBE005-VLSLF,
BELNR_F02 LIKE /PWS/ZYCBT005-BELNR,
STATRANS(4) TYPE C,
v_fsaldo type c,
END OF itab_ZYCBT005_AUX3.
* >> Início da exclusão:
DATA: BEGIN OF itab_ZYCBT005_AUX2 OCCURS 0,
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF itab_ZYCBT005_AUX2 OCCURS 0,"#EC NEEDED
* << Fim da inclusão
DTVINCUL LIKE /PWS/ZYCBT005-DTVINCUL,
END OF itab_ZYCBT005_AUX2.
DATA: BEGIN OF itab_ZYCBT005_AUX4 OCCURS 0,
NRINVOIC LIKE /PWS/ZYCBT005-NRINVOIC,
NRPARCF LIKE /PWS/ZYCBT005-NRPARCF,
DTVINCUL LIKE /PWS/ZYCBT005-DTVINCUL,
END OF itab_ZYCBT005_AUX4.
DATA: BEGIN OF itab_ZYCBT005_AUX5 OCCURS 0.
INCLUDE STRUCTURE /PWS/ZYCBT005.
DATA: END OF itab_ZYCBT005_AUX5.
...
...
DATA: BEGIN OF itab_ZYCBT017_AUX OCCURS 0.
INCLUDE STRUCTURE /PWS/ZYCBT017.
DATA: v_fsaldo type c.
DATA: END OF itab_ZYCBT017_AUX.
data: begin of itab_nrinvoic occurs 1,
sign(1) type c,
option(2) type c,
low like /pws/zycbe017-nrinvoic,
high like /pws/zycbe017a-nrinvoic,
end of itab_nrinvoic.
* >> Início da exclusão:
data: begin of itab_nrparcf occurs 1,
sign(1) type c,
option(2) type c,
low like /pws/zycbe017-nrparcf,
high like /pws/zycbe017a-nrparcf,
end of itab_nrparcf.
* << Fim da exclusão
data: begin of itab_gsberf occurs 1,
sign(1) type c,
option(2) type c,
low like /pws/zycbe017-gsberf,
high like /pws/zycbe017a-gsberf,
end of itab_gsberf.
data: begin of itab_fkdat occurs 1,
sign(1) type c,
option(2) type c,
low like /pws/zycbe017-fkdat,
...
...
option(2) type c,
low like /pws/zycbe017-dtbl,
high like /pws/zycbe017a-dtbl,
end of itab_dtbl.
data: begin of itab_inco1 occurs 1,
sign(1) type c,
option(2) type c,
low like /pws/zycbe017-inco1,
high like /pws/zycbe017a-inco1,
end of itab_inco1.
* >> Início da exclusão:
data: begin of itab_pf_status occurs 10,
fcode like rsmpe-func,
end of itab_pf_status.
DATA: wa_ZYCBT011 LIKE /PWS/ZYCBT011 OCCURS 5 WITH HEADER LINE.
* << Fim da exclusão
* >> Início da inclusão:
DATA: wa_ZYCBT011 LIKE /PWS/ZYCBT011 OCCURS 5 WITH HEADER LINE."#EC *
* << Fim da inclusão
DATA:
OK_CODE LIKE SY-UCOMM,
V_MSG(40) TYPE C,
V_OK5 TYPE C,
V_INDEX_1 TYPE N,
V_IND_VLVINC TYPE C,
V_IND_MUDANCA TYPE C,
V_IND_DELECAO TYPE C,
V_IND_PAGTO TYPE C,
V_IND_CARREGA TYPE C,
...
...
V_VLVINC_OLD LIKE /PWS/ZYCBE005-VLVINC,
V_VLSLF LIKE /PWS/ZYCBT017-VLSLF,
V_SLCONT_OLD LIKE /PWS/ZYCBT001-SLVINC,
v_nrinvoic value space,
v_gsberf value space,
v_fkdat value space,
v_kunag value space,
v_dtvencto value space,
v_dtbl value space,
v_inco1 value space,
* >> Início da exclusão:
V_VERIFICA(1) TYPE C,
* << Fim da exclusão
v_nrinvoic2 like /pws/zycbt017-nrinvoic,
* >> Início da exclusão:
v_test(1) type C,
* << Fim da exclusão
* >> Início da inclusão:
v_test(1) type C,"#EC NEEDED
* << Fim da inclusão
V_COuNT(40) TYPE c,
* >> Início da exclusão:
V_COuNT2(40) TYPE c,
V_CONT(40) TYPE N.
* << Fim da exclusão
* >> Início da inclusão:
V_COuNT2(40) TYPE c, "#EC NEEDED
V_CONT(40) TYPE N."#EC NEEDED
* << Fim da inclusão
CONTROLS:
TC_FATURAS TYPE TABLEVIEW USING SCREEN '0100',
TC_DATAS TYPE TABLEVIEW USING SCREEN '0010'.
DATA:
WA_COLS TYPE CXTAB_COLUMN.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB005F01
...
itab_zycbt045_ant.
IF /pws/zycbe017-nrinvoic IS INITIAL OR
/pws/zycbe017-nrinvoic EQ space OR
/pws/zycbe017-nrinvoic EQ ' '.
GET PARAMETER ID '/PWS/ZYCBP084' FIELD /pws/zycbe017-nrinvoic.
GET PARAMETER ID 'GSB' FIELD /pws/zycbe017-gsberf.
ENDIF.
IF /pws/zycbe017-nrparcf IS INITIAL.
IMPORT v_nrparcf FROM MEMORY ID '001'.
IF v_nrparcf IS INITIAL.
* >> Início da exclusão: FORM CARREGA_FATURA
GET PARAMETER ID '001' FIELD v_nrparcf.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_FATURA
GET PARAMETER ID '001' FIELD v_nrparcf."#EC *
* << Fim da inclusão
ENDIF.
MOVE: v_nrparcf TO /pws/zycbe017-nrparcf.
ENDIF.
IF ( NOT doc_forn IS INITIAL ) AND
( /pws/zycbe017-nrinvoic IS INITIAL ).
SELECT *
UP TO 1 ROWS
FROM /pws/zycet002
* >> Início da exclusão: FORM CARREGA_FATURA
WHERE vbeln_vl = doc_forn.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_FATURA
WHERE vbeln_vl = doc_forn."#EC CI_NOFIRST
* << Fim da inclusão
ENDSELECT.
IF sy-subrc EQ 0.
/pws/zycbe017-nrinvoic = /pws/zycet002-nrseq.
/pws/zycbe017-bukrs = /pws/zycet002-bukrs.
/pws/zycbe017-gsberf = /pws/zycet002-gsber.
/pws/zycbe017-werks = /pws/zycet002-werks.
ENDIF.
ENDIF.
IF NOT /pws/zycbe017-nrinvoic IS INITIAL.
SELECT *
...
...
WHERE nrinvoic EQ /pws/zycbe017-nrinvoic AND
nrparcf EQ /pws/zycbe017-nrparcf AND
gsberf EQ /pws/zycbe017-gsberf.
IF sy-subrc EQ 0.
MOVE 'X' TO v_ok17.
ENDIF.
SELECT * FROM /pws/zycbt207
INTO TABLE itab_zycbt207
WHERE nrinvoic = /pws/zycbe017-nrinvoic AND
nrparcf = /pws/zycbe017-nrparcf AND
* >> Início da exclusão: FORM CARREGA_FATURA
gsberf = /pws/zycbe017-gsberf.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_FATURA
gsberf = /pws/zycbe017-gsberf."#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
SELECT *
FROM /pws/zycbt045
INTO TABLE itab_zycbt045_ant
WHERE nrinvoic = /pws/zycbe017-nrinvoic AND
nrparcf = /pws/zycbe017-nrparcf AND
gsberf = /pws/zycbe017-gsberf.
itab_zycbt045[] = itab_zycbt045_ant[].
ENDFORM.
FORM carrega_zycbe017.
...
...
prazo = /pws/zycbe017-prazo
swift = /pws/zycbe017-swift
observ = /pws/zycbe017-observ
for_cour = /pws/zycbe017-for_cour
WHERE nrinvoic = /pws/zycbe017-nrinvoic AND
nrparcf = /pws/zycbe017-nrparcf AND
gsberf = /pws/zycbe017-gsberf.
PERFORM grava_zycbt005.
COMMIT WORK.
IF sy-subrc = 0.
* >> Início da exclusão: FORM GRAVA_ZYCBT017
MESSAGE i011(pc) WITH text-002.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_ZYCBT017
MESSAGE i088(sf) WITH text-002.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FORM GRAVA_ZYCBT017
MESSAGE i011(pc) WITH text-001.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_ZYCBT017
MESSAGE i088(sf) WITH text-001.
* << Fim da inclusão
ENDIF.
IF ok_code EQ 'SAVE'.
DELETE /pws/zycbt045 FROM TABLE itab_zycbt045_ant.
MODIFY /pws/zycbt045 FROM TABLE itab_zycbt045.
CLEAR itab_zycbt045_ant.
REFRESH itab_zycbt045_ant.
MOVE itab_zycbt045[] TO itab_zycbt045_ant[].
DELETE FROM /pws/zycbt207
WHERE nrinvoic = /pws/zycbe017-nrinvoic AND
nrparcf = /pws/zycbe017-nrparcf AND
* >> Início da exclusão: FORM GRAVA_ZYCBT017
gsberf = /pws/zycbe017-gsberf.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_ZYCBT017
gsberf = /pws/zycbe017-gsberf. "#EC CI_NOFIRST
* << Fim da inclusão
MODIFY /pws/zycbt207 FROM TABLE itab_zycbt207.
PERFORM grava_dias_cond_pagto.
ENDIF.
CLEAR ok_code.
ENDFORM.
FORM altera_itab_zycbt017.
CLEAR: v_prazo, v_ok.
READ TABLE itab_zycbt017 INDEX 1.
IF /pws/zycbe017-dtvencto NE itab_zycbt017-dtvencto.
/pws/zycbe017-prazo = /pws/zycbe017-dtbl - /pws/zycbe017-dtvencto.
v_prazo = /pws/zycbe017-prazo.
v_ok = 'X'.
SELECT *
FROM /pws/zycbt005
UP TO 1 ROWS
WHERE nrinvoic EQ itab_zycbt017-nrinvoic AND
nrparcf EQ itab_zycbt017-nrparcf.
* >> Início da exclusão: FORM ALTERA_ITAB_ZYCBT017
ENDSELECT.
* << Fim da exclusão
* >> Início da inclusão: FORM ALTERA_ITAB_ZYCBT017
ENDSELECT. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT *
FROM /pws/zycbt006
UP TO 1 ROWS
WHERE nrinvoic EQ itab_zycbt017-nrinvoic AND
nrparcf EQ itab_zycbt017-nrparcf.
* >> Início da exclusão: FORM ALTERA_ITAB_ZYCBT017
ENDSELECT.
* << Fim da exclusão
* >> Início da inclusão: FORM ALTERA_ITAB_ZYCBT017
ENDSELECT. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
MESSAGE i289 WITH itab_zycbt017-nrinvoic text-086.
ELSE.
MESSAGE i289 WITH itab_zycbt017-nrinvoic text-085.
ENDIF.
ENDIF.
ENDIF.
itab_zycbt017-dtvencto = /pws/zycbe017-dtvencto.
itab_zycbt017-bconegoc = /pws/zycbe017-bconegoc.
itab_zycbt017-dtnegocd = /pws/zycbe017-dtnegocd.
...
...
APPEND itab_zycbt045.
ENDIF.
ENDFORM.
FORM carrega_itab_zycbt005.
SELECT *
UP TO 1 ROWS
INTO itab_zycbt005
FROM /pws/zycbt005
WHERE nrinvoic = itab_zycbt017-nrinvoic AND
nrparcf = itab_zycbt017-nrparcf.
* >> Início da exclusão: FORM CARREGA_ITAB_ZYCBT005
ENDSELECT.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_ITAB_ZYCBT005
ENDSELECT. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
v_ok05 = 'X'.
ENDIF.
ENDFORM.
FORM carrega_itab_zycbt004.
SELECT *
UP TO 1 ROWS
INTO itab_zycbt004
FROM /pws/zycbt004
WHERE nrinvoic = itab_zycbt017-nrinvoic AND
nrparcf = itab_zycbt017-nrparcf.
* >> Início da exclusão: FORM CARREGA_ITAB_ZYCBT004
ENDSELECT.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_ITAB_ZYCBT004
ENDSELECT. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc EQ 0 AND itab_zycbt004-dtpagto EQ '00000000 '.
v_ok04 = 'X'.
ENDIF.
ENDFORM.
FORM carrega_zycbe001.
SELECT *
UP TO 1 ROWS
FROM /pws/zycbt001 INTO /pws/zycbe001
WHERE nrseqc = itab_zycbt005-nrseqc.
ENDSELECT.
...
...
sld_fatura = itab_zycbt017-vlavinc.
sld_vincul = itab_zycbt017-vlslf.
CLEAR sld_liquid.
IF sld_vincul EQ 0.
vinc_tot = 'X'.
SELECT *
FROM /pws/zycbt006
INTO TABLE itab_zycbt006
WHERE nrinvoic = itab_zycbt017-nrinvoic AND
nrparcf = itab_zycbt017-nrparcf AND
* >> Início da exclusão: FORM CARREGA_RESUMO
gsberf = itab_zycbt017-gsberf.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_RESUMO
gsberf = itab_zycbt017-gsberf."#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_zycbt006.
sld_liquid = sld_liquid + itab_zycbt006-vlme.
ENDLOOP.
IF sld_liquid EQ sld_fatura.
liq_tot = 'X'.
ENDIF.
ENDIF.
IF NOT itab_resumo IS INITIAL.
EXIT.
ENDIF.
...
...
AND gsberf = /pws/zycbe017-gsberf.
COMMIT WORK.
LOOP AT itab_zycbt045.
INSERT INTO /pws/zycbt045 VALUES itab_zycbt045.
ENDLOOP.
COMMIT WORK.
CLEAR itab_zycbt045_ant.
REFRESH itab_zycbt045_ant.
itab_zycbt045_ant[] = itab_zycbt045[].
ENDFORM.
* >> Início da exclusão: FORM CALCULA_PRORROG_EXC
FORM calcula_prorrog_exc.
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_PRORROG_EXC
FORM calcula_prorrog_exc."#EC CALLED
* << Fim da inclusão
IF v_smdt IS INITIAL.
itab_zycbt045_exc-dtpror = /pws/zycbe017-dtvencto +
itab_zycbt045_exc-nrdias.
ELSE.
itab_zycbt045_exc-dtpror = v_smdt + itab_zycbt045_exc-nrdias.
ENDIF.
MODIFY itab_zycbt045_exc INDEX sy-tabix.
v_smdt = itab_zycbt045_exc-dtpror.
ENDFORM.
FORM carrega_itab_vinc.
CLEAR itab_vinc.
IF itab_vinc[] IS INITIAL.
SELECT nrseqc nrinvoic nrparcf nrcontr vlvinc waers dtvincul
bconegoc dtnegocd bcoentr refbanco
FROM /pws/zycbt005
INTO TABLE itab_vinc
WHERE nrinvoic = /pws/zycbe017-nrinvoic AND
nrparcf = /pws/zycbe017-nrparcf AND
* >> Início da exclusão: FORM CARREGA_ITAB_VINC
gsberf = /pws/zycbe017-gsberf.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_ITAB_VINC
gsberf = /pws/zycbe017-gsberf."#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
v_ok_vinc = 'X'.
ENDIF.
ENDIF.
SELECT *
FROM /pws/zycbt001
INTO TABLE itab_zycbt001_aux
FOR ALL ENTRIES IN itab_vinc
WHERE nrseqc = itab_vinc-nrseqc.
ENDFORM.
...
...
FORM grava_alteracoes.
DATA v_answer.
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
defaultoption = 'Y'
textline1 = text-008
titel = text-009
IMPORTING
answer = v_answer
EXCEPTIONS
* >> Início da exclusão: FORM GRAVA_ALTERACOES
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_ALTERACOES
OTHERS = 0.
* << Fim da inclusão
IF v_answer EQ 'J'.
ok_code = 'SAVE'.
PERFORM salvar_zycbt045.
PERFORM grava_prorrogacoes.
PERFORM grava_zycbt017.
CLEAR sy-subrc.
ELSEIF v_answer EQ 'A'.
sy-subrc = 4.
ELSE.
CLEAR: itab_zycbt045, itab_zycbt045_ant, sy-subrc.
...
...
LOOP AT itab_zycbt045_ant.
v_nrdias2 = v_nrdias2 + itab_zycbt045_ant-nrdias.
ENDLOOP.
v_pror = v_nrdias - v_nrdias2.
ENDFORM.
FORM grava_dias_cond_pagto.
DATA: v_zterm LIKE bsid-zterm,
v_zbd1t LIKE bsid-zbd1t,
v_belnr LIKE bkpf-belnr,
v_buzei LIKE bseg-buzei,
* >> Início da exclusão: FORM GRAVA_DIAS_COND_PAGTO
v_ztag1 LIKE t052-ztag1.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_DIAS_COND_PAGTO
v_ztag1 LIKE t052-ztag1."#EC NEEDED
* << Fim da inclusão
DATA: itab_zycbt032 LIKE /pws/zycbt032 OCCURS 10 WITH HEADER LINE,
itab_zycbt034 LIKE /pws/zycbt034 OCCURS 10 WITH HEADER LINE,
itab_zycbe033 LIKE /pws/zycbe033 OCCURS 10 WITH HEADER LINE.
LOOP AT itab_zycbt030.
IF itab_zycbt030-belnr6 IS INITIAL.
v_belnr = itab_zycbt030-belnr.
ELSE.
v_belnr = itab_zycbt030-belnr6.
ENDIF.
SELECT buzei zterm zbd1t
...
...
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
* >> Início da inclusão: FORM GRAVA_DIAS_COND_PAGTO
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDLOOP.
ENDFORM.
FORM modo_batch_input.
DATA: BEGIN OF itab_modo OCCURS 0.
DATA: modo LIKE /pws/zycbt039-modo,
descr LIKE /pws/zycbt039-descr.
INCLUDE STRUCTURE spopli.
DATA: END OF itab_modo.
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-010
textline2 = text-011
titel = text-012
IMPORTING
answer = v_modo_bi
TABLES
t_spopli = itab_modo
EXCEPTIONS
not_enough_answers = 1
too_much_answers = 2
too_much_marks = 3
* >> Início da exclusão: FORM MODO_BATCH_INPUT
OTHERS = 4.
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_BATCH_INPUT
OTHERS = 4."#EC *
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
IF v_modo_bi EQ '1' OR v_modo_bi EQ 'A'.
v_modo_bi = 'N'.
ELSEIF v_modo_bi EQ '3'.
v_modo_bi = 'A'.
ELSEIF v_modo_bi EQ '2'.
v_modo_bi = 'E'.
ENDIF.
ENDFORM.
FORM grava_zycbt005.
LOOP AT itab_vinc.
...
...
e_txc = itab_zycbt213-txcamb
EXCEPTIONS
i_demoeda_nao_encontrado = 1
i_paramoeda_nao_encontrado = 2
i_ctmoeda_nao_encontrado = 3
i_dtbase_nao_encontrada = 4
taxa_nao_encontrada = 5
fator_nao_encontrado = 6
i_montante_nao_encontrado = 7
OTHERS = 8.
* >> Início da inclusão: FORM APR_DESPESA
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zycbt213_ant WITH KEY
nrinvoic = itab_zycbt213-nrinvoic
nrparcf = itab_zycbt213-nrparcf
gsberf = itab_zycbt213-gsberf
dtpdd = itab_zycbt213-dtpdd
dtapr = itab_zycbt213-dtapr.
IF sy-subrc EQ 0.
MESSAGE i015 WITH text-016.
CONTINUE.
...
...
CLEAR wa_zycbt009.
SELECT *
UP TO 1 ROWS
FROM /pws/zycbt009
INTO wa_zycbt009
WHERE codpadr EQ wa_zycbt011-ctmoed.
ENDSELECT.
ENDFORM.
FORM determina_periodo USING value(p_budat)
value(p_bukrs)
* >> Início da exclusão: FORM DETERMINA_PERIODO
CHANGING p_monat.
* << Fim da exclusão
* >> Início da inclusão: FORM DETERMINA_PERIODO
CHANGING p_monat."#EC *
* << Fim da inclusão
DATA v_periv(2).
SELECT periv FROM t001
UP TO 1 ROWS
INTO v_periv
WHERE bukrs EQ itab_zycbt213-bukrs.
ENDSELECT.
CALL FUNCTION 'DETERMINE_PERIOD'
EXPORTING
date = p_budat
version = v_periv
IMPORTING
period = p_monat
EXCEPTIONS
period_in_not_valid = 1
period_not_assigned = 2
version_undefined = 3
OTHERS = 4.
* >> Início da inclusão: FORM DETERMINA_PERIODO
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDFORM.
FORM determina_ano USING p_budat
p_bukrs
* >> Início da exclusão: FORM DETERMINA_ANO
CHANGING p_ano.
CLEAR v_ano.
* << Fim da exclusão
* >> Início da inclusão: FORM DETERMINA_ANO
CHANGING p_ano."#EC *
CLEAR p_ano.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
v_bukrs = p_bukrs
v_date = p_budat
IMPORTING
* >> Início da exclusão: FORM DETERMINA_ANO
v_year = p_ano.
* << Fim da exclusão
* >> Início da inclusão: FORM DETERMINA_ANO
v_year = p_ano."#EC *
* << Fim da inclusão
ENDFORM.
FORM limpa_itabs_contabil.
CLEAR:
itab_zycbt034,
itab_zycbe033,
itab_zycbt032,
itab_zycbe033a,
itab_zycbt036,
itab_doctos.
REFRESH:
...
...
itab_zycbe033a-wrbtr = itab_zycbt030-v_kwert.
PERFORM verify_null_field USING itab_zycbt030-v_belnr
'BELNR'
text-120.
itab_zycbe033a-belnr = itab_zycbt030-v_belnr.
itab_zycbe033a-d_kostl = itab_zycbt213-kostl.
APPEND itab_zycbe033a.
ENDFORM.
FORM verify_null_field USING value(p_field)
value(p_fieldname)
* >> Início da exclusão: FORM VERIFY_NULL_FIELD
value(p_description).
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFY_NULL_FIELD
value(p_description)."#EC *
* << Fim da inclusão
IF p_field IS INITIAL.
itab_zycbt034-campo = p_fieldname.
itab_zycbt034-descricao = p_description.
APPEND itab_zycbt034.
ENDIF.
ENDFORM.
FORM estorno.
CLEAR itab_erro.
REFRESH itab_erro.
READ TABLE itab_zycbt213 WITH KEY mark = 'X'.
...
...
e_txc = itab_zycbt213-txcamb
EXCEPTIONS
i_demoeda_nao_encontrado = 1
i_paramoeda_nao_encontrado = 2
i_ctmoeda_nao_encontrado = 3
i_dtbase_nao_encontrada = 4
taxa_nao_encontrada = 5
fator_nao_encontrado = 6
i_montante_nao_encontrado = 7
OTHERS = 8.
* >> Início da inclusão: FORM LANCAMENTO_PDD
if sy-subrc = 0.
else.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM LANCAMENTO_PDD
ENDIF.
* << Fim da inclusão
READ TABLE itab_zycbt213_ant WITH KEY
nrinvoic = itab_zycbt213-nrinvoic
nrparcf = itab_zycbt213-nrparcf
gsberf = itab_zycbt213-gsberf
dtpdd = itab_zycbt213-dtpdd
dtapr = itab_zycbt213-dtapr.
...
...
ENDCASE.
ENDLOOP.
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
itab_zycbe033-c_kostl = itab_zycbt213-kostl.
itab_zycbe033-kursf = itab_zycbt213-txcamb.
APPEND itab_zycbe033.
ENDFORM.
* >> Início da exclusão: FORM FILL_DATE_F30_BX_CL
FORM fill_date_f30_bx_cl USING p_belnr_f02.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F30_BX_CL
FORM fill_date_f30_bx_cl USING p_belnr_f02 LIKE /pws/zycbt032-belnr.
* << Fim da inclusão
PERFORM limpa_itabs_contabil.
itab_zycbe033-tcode = 'F-30'.
itab_zycbe033-tabela = '/PWS/ZYCBT213'.
CLEAR v_cpochv.
CONCATENATE itab_zycbt213-nrinvoic itab_zycbt213-nrparcf
itab_zycbt213-gsberf itab_zycbt213-dtbx_cl
itab_zycbt030-vbeln
INTO v_cpochv.
itab_zycbe033-cpochv = v_cpochv.
itab_zycbe033-agkoa = 'D'.
...
...
e_txc = itab_zycbt213-txcamb
EXCEPTIONS
i_demoeda_nao_encontrado = 1
i_paramoeda_nao_encontrado = 2
i_ctmoeda_nao_encontrado = 3
i_dtbase_nao_encontrada = 4
taxa_nao_encontrada = 5
fator_nao_encontrado = 6
i_montante_nao_encontrado = 7
OTHERS = 8.
* >> Início da inclusão: FORM APR_DESPESA_2
if sy-subrc = 0.
else.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM APR_DESPESA_2
ENDIF.
* << Fim da inclusão
READ TABLE itab_zycbt213_ant WITH KEY
nrinvoic = itab_zycbt213-nrinvoic
nrparcf = itab_zycbt213-nrparcf
gsberf = itab_zycbt213-gsberf
dtpdd = itab_zycbt213-dtpdd
dtapr = itab_zycbt213-dtapr.
...
...
v_wrbtr = itab_bsid-wrbtr + v_wrbtr.
ENDLOOP.
CLEAR v_apr_total.
IF v_wrbtr EQ itab_zycbt030-v_kwert.
v_apr_total = 'X'.
IF ok_code = 'APR'.
itab_zycbt213-tpdev = 'DP'.
ELSE.
itab_zycbt213-tpdev = 'PD'.
ENDIF.
* >> Início da exclusão: FORM APR_DESPESA_2
PERFORM apr_pdd_3 USING itab_zycbt213-dtapr itab_zycbt213-tpdev.
* << Fim da exclusão
* >> Início da inclusão: FORM APR_DESPESA_2
PERFORM apr_pdd_3
USING itab_zycbt213-dtapr itab_zycbt213-tpdev."#EC *
* << Fim da inclusão
ELSE.
CLEAR: v_apr_total.
PERFORM limpa_itabs_contabil.
PERFORM preenche_zycbe033a USING itab_zycbt213-dtapr.
itab_zycbt036-tcode = itab_zycbe033a-tcode.
itab_zycbt036-tabela = itab_zycbe033a-tabela.
itab_zycbt036-cpochv = itab_zycbe033a-cpochv.
itab_zycbt036-residuo = itab_zycbe033a-wrbtr.
itab_zycbt036-zuonr = itab_zycbe033a-d_zuonr.
APPEND itab_zycbt036.
...
...
itab_contabil-msg = text-288.
itab_contabil-bukrs = itab_zycbt213-bukrs.
itab_contabil-dtdocto = itab_zycbe033a-budat.
APPEND itab_contabil.
IF ok_code = 'APR'.
itab_zycbt213-tpdev = 'DP'.
ELSE.
itab_zycbt213-tpdev = 'PD'.
ENDIF.
PERFORM apr_pdd_3 USING
* >> Início da exclusão: FORM APR_DESPESA_2
itab_zycbt213-dtapr itab_zycbt213-tpdev.
* << Fim da exclusão
* >> Início da inclusão: FORM APR_DESPESA_2
itab_zycbt213-dtapr itab_zycbt213-tpdev."#EC *
* << Fim da inclusão
ELSE.
LOOP AT itab_zycbt032 WHERE tcode = 'F-30'
AND tabela = '/PWS/ZYCBT213'
AND cpochv = v_cpochv.
itab_erro-msg = itab_zycbt032-msg.
APPEND itab_erro.
ENDLOOP.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
...
...
IF sy-subrc NE 0.
MESSAGE i015 WITH text-015 text-233.
ENDIF.
IF NOT itab_erro[] IS INITIAL.
EXPORT itab_erro TO MEMORY ID '001'.
SUBMIT /pws/zycbr126 AND RETURN.
REFRESH itab_erro.
ENDIF.
ENDFORM.
FORM apr_pdd_3 USING budat
* >> Início da exclusão: FORM APR_PDD_3
tpdev.
* << Fim da exclusão
* >> Início da inclusão: FORM APR_PDD_3
tpdev."#EC *
* << Fim da inclusão
PERFORM limpa_itabs_contabil.
itab_zycbe033-d_newko = v_contad.
itab_zycbe033-d_zuonr = itab_zycbt213-nrinvoic.
PERFORM verify_null_field USING v_contad
'NEWKO'
text-020.
itab_zycbe033-agkon = itab_zycbt213-kunag.
PERFORM verify_null_field USING itab_zycbt213-kunag
'AGKON'
text-021.
...
...
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
ENDIF.
ENDFORM.
* >> Início da exclusão: FORM PREENCHE_ZYCBE033A
FORM preenche_zycbe033a USING budat.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_ZYCBE033A
FORM preenche_zycbe033a USING budat."#EC *
* << Fim da inclusão
itab_zycbe033a-budat = budat.
itab_zycbe033a-mandt = sy-mandt.
itab_zycbe033a-tcode = text-041.
itab_zycbe033a-tabela = text-040.
CONCATENATE itab_zycbt213-nrinvoic itab_zycbt213-nrparcf
itab_zycbt213-gsberf itab_zycbt213-dtpdd
itab_zycbt213-dtapr itab_zycbt030-vbeln
INTO v_cpochv.
itab_zycbe033a-cpochv = v_cpochv.
itab_zycbe033a-agkon = v_contad.
...
...
ENDIF.
PERFORM verify_null_field USING itab_zycbe033a-belnr
'BELNR'
text-120.
PERFORM verify_null_field USING itab_zycbt213-waers_fat
'WAERS'
text-023.
itab_zycbe033a-waers = itab_zycbt213-waers_fat.
APPEND itab_zycbt030_aux.
ENDFORM.
* >> Início da exclusão: FORM DETERMINA_PER_ABERTO
FORM determina_per_aberto USING value(budat).
* << Fim da exclusão
* >> Início da inclusão: FORM DETERMINA_PER_ABERTO
FORM determina_per_aberto USING value(budat)."#EC *
* << Fim da inclusão
CLEAR v_periodo_fechado.
PERFORM determina_periodo USING budat
itab_zycbt213-bukrs
CHANGING v_monat.
PERFORM determina_ano USING budat
itab_zycbt213-bukrs
CHANGING v_ano.
CALL FUNCTION 'FI_PERIOD_CHECK'
EXPORTING
i_bukrs = itab_zycbt213-bukrs
...
...
i_monat = v_monat
EXCEPTIONS
error_period = 1
error_period_acc = 2
OTHERS = 3.
IF sy-subrc NE 0.
v_periodo_fechado = 'X'.
ENDIF.
ENDIF.
ENDFORM.
* >> Início da exclusão: FORM ESTORNA_DP_2
FORM estorna_dp_2 USING value(motivo).
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_DP_2
FORM estorna_dp_2 USING value(motivo)."#EC *
* << Fim da inclusão
PERFORM get_parameters USING v_codeven_dev.
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = itab_zycbt213-bukrs
ktosl = 'DSE'
codaux1 = motivo
TABLES
account = itab_zyglt316
EXCEPTIONS
key_not_found = 1
...
...
ENDLOOP.
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-augtx = wa_zycbt011-txtdesc.
itab_zycbe033-c_kostl = itab_zycbt213-kostl.
itab_zycbe033-d_kostl = itab_zycbt213-kostl.
itab_zycbe033-kursf = itab_zycbt213-txcamb.
APPEND itab_zycbe033.
ENDFORM.
* >> Início da exclusão: FORM CLEARING_ESTORNO_DP_2
FORM clearing_estorno_dp_2 USING value(belnr).
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_ESTORNO_DP_2
FORM clearing_estorno_dp_2 USING value(belnr)."#EC *
* << Fim da inclusão
PERFORM limpa_itabs_contabil.
itab_zycbe033-tcode = 'F-30'.
itab_zycbe033-tabela = '/PWS/ZYCBT213'.
CLEAR v_cpochv.
CONCATENATE itab_zycbt213-nrinvoic itab_zycbt213-nrparcf
itab_zycbt213-gsberf itab_zycbt213-dtapr
itab_zycbt030-vbeln
INTO v_cpochv.
itab_zycbe033-cpochv = v_cpochv.
itab_zycbe033-agkoa = 'D'.
...
...
ELSE.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
itab_erro-msg = itab_zycbt034-descricao.
CLEAR itab_erro-belnr.
APPEND itab_erro.
ENDLOOP.
ENDIF.
ENDFORM.
FORM estorna_dp_3 USING value(belnr)
* >> Início da exclusão: FORM ESTORNA_DP_3
value(budat).
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_DP_3
value(budat)."#EC *
* << Fim da inclusão
CLEAR v_est_baixa.
PERFORM get_parameters USING v_codeven_dev.
PERFORM limpa_itabs_contabil.
SELECT *
FROM /pws/zycbt030
INTO TABLE itab_zycbt030
WHERE nrinvoic = itab_zycbt213-nrinvoic AND
gsberf = itab_zycbt213-gsberf AND
nrparcf = itab_zycbt213-nrparcf.
SELECT *
...
...
WHERE nrinvoic = itab_zycbt213-nrinvoic.
v_vlslf = /pws/zycbe017-vlslf.
DELETE TABLE itab_zycbt213.
COMMIT WORK.
itab_zycbt213_ant[] = itab_zycbt213[].
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM executa_fb08_dp USING value(data)
* >> Início da exclusão: FORM EXECUTA_FB08_DP
value(belnr).
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_FB08_DP
value(belnr)."#EC *
* << Fim da inclusão
PERFORM limpa_itabs_contabil.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = 'FB08'.
itab_zycbe033-tabela = 'ZYCBT213'.
CLEAR v_cpochv.
CONCATENATE itab_zycbt213-nrinvoic itab_zycbt213-nrparcf
itab_zycbt213-gsberf itab_zycbt213-dtpdd
itab_zycbt213-dtapr itab_zycbt030-vbeln
INTO v_cpochv.
itab_zycbe033-cpochv = v_cpochv.
...
...
LOOP AT itab_zycbt032.
MESSAGE i015 WITH itab_zycbt032-msg.
ENDLOOP.
v_est_baixa = 'X'.
ENDIF.
ELSE.
v_est_baixa = 'X'.
ENDIF.
ENDFORM.
FORM executa_clearing_pd USING value(motivo)
* >> Início da exclusão: FORM EXECUTA_CLEARING_PD
value(budat).
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTA_CLEARING_PD
value(budat)."#EC *
* << Fim da inclusão
PERFORM limpa_itabs_contabil.
PERFORM get_parameters USING v_codeven_dev.
READ TABLE itab_zycbt030 WITH KEY
nrinvoic = itab_zycbt215-nrinvoic
nrparcf = itab_zycbt215-nrparcf
vbeln = itab_zycbt215-vbeln
gsberf = itab_zycbt215-gsberf.
itab_zycbe033-tcode = 'F-30'.
itab_zycbe033-tabela = 'ZYCBT213'.
CLEAR v_cpochv.
...
...
ENDLOOP.
CLEAR v_apr_total.
IF v_wrbtr EQ itab_zycbt030-v_kwert.
v_apr_total = 'X'.
IF ok_code = 'APR'.
itab_zycbt213-tpdev = 'DP'.
ELSE.
itab_zycbt213-tpdev = 'PD'.
ENDIF.
PERFORM apr_pdd_3 USING itab_zycbt213-dtbx_cl
* >> Início da exclusão: FORM BAIXA_CLIENTE_PDD_2
itab_zycbt213-tpdev.
* << Fim da exclusão
* >> Início da inclusão: FORM BAIXA_CLIENTE_PDD_2
itab_zycbt213-tpdev."#EC *
* << Fim da inclusão
ELSE.
CLEAR v_apr_total.
PERFORM preenche_zycbe033a USING itab_zycbt213-dtbx_cl.
itab_zycbt036-tcode = itab_zycbe033a-tcode.
itab_zycbt036-tabela = itab_zycbe033a-tabela.
itab_zycbt036-cpochv = itab_zycbe033a-cpochv.
itab_zycbt036-residuo = itab_zycbe033a-wrbtr.
itab_zycbt036-zuonr = itab_zycbe033a-d_zuonr.
APPEND itab_zycbt036.
itab_doctos-tcode = itab_zycbe033a-tcode.
...
...
AND gsberf = itab_zycbt213-gsberf.
MODIFY /pws/zycbt030 FROM TABLE itab_zycbt030.
COMMIT WORK.
itab_contabil-nrinvoic = itab_zycbt213-nrinvoic.
itab_contabil-docto = itab_zycbt032-belnr.
itab_contabil-msg = text-288.
itab_contabil-bukrs = itab_zycbt213-bukrs.
itab_contabil-dtdocto = itab_zycbe033a-budat.
APPEND itab_contabil.
PERFORM apr_pdd_3 USING
* >> Início da exclusão: FORM BAIXA_CLIENTE_PDD_2
itab_zycbt213-dtbx_cl itab_zycbt213-tpdev.
* << Fim da exclusão
* >> Início da inclusão: FORM BAIXA_CLIENTE_PDD_2
itab_zycbt213-dtbx_cl itab_zycbt213-tpdev."#EC *
* << Fim da inclusão
ELSE.
LOOP AT itab_zycbt032 WHERE tcode = 'F-30'
AND tabela = 'ZYCBT213'
AND cpochv = v_cpochv.
itab_erro-msg = itab_zycbt032-msg.
APPEND itab_erro.
ENDLOOP.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
...
...
CASE p_nome_itab.
WHEN 'ITAB_ZYCBT017'.
DELETE itab_zycbt017 WHERE bukrs IN itab_bukrs_nao_autor.
ENDCASE.
ENDIF.
ENDFORM.
FORM authority_check
USING value(p_objeto)
value(p_campo_obj)
value(p_campo)
* >> Início da exclusão: FORM AUTHORITY_CHECK
value(p_acao).
* << Fim da exclusão
* >> Início da inclusão: FORM AUTHORITY_CHECK
value(p_acao)."#EC *
* << Fim da inclusão
AUTHORITY-CHECK
OBJECT p_objeto
ID p_campo_obj
DUMMY
ID 'ACTVT'
FIELD p_acao.
IF sy-subrc NE 0.
AUTHORITY-CHECK
OBJECT p_objeto
ID p_campo_obj
...
...
READ TABLE itab_zyglt100 WITH KEY zexit = p_exit.
CHECK:
sy-subrc EQ 0,
itab_zyglt100-zexit_ativa EQ 'X',
NOT itab_zyglt100-formulario IS INITIAL,
NOT itab_zyglt100-programa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa)
IF FOUND.
ENDFORM.
* >> Início da exclusão: FORM VERIFICA_PAIS_FILIAL
FORM verifica_pais_filial USING p_bukrs
p_brnch.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PAIS_FILIAL
FORM verifica_pais_filial USING p_bukrs like /pws/zycbe017-bukrs
p_brnch like t001w-j_1bbranch.
* << Fim da inclusão
SELECT SINGLE adrnr FROM j_1bbranch INTO j_1bbranch-adrnr
WHERE bukrs = p_bukrs
AND branch = p_brnch.
IF sy-subrc = 0.
* >> Início da exclusão: FORM VERIFICA_PAIS_FILIAL
SELECT SINGLE country FROM adrc INTO adrc-country
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PAIS_FILIAL
SELECT country
FROM adrc
up to 1 rows
INTO adrc-country
* << Fim da inclusão
WHERE addrnumber = j_1bbranch-adrnr.
* >> Início da inclusão: FORM VERIFICA_PAIS_FILIAL
endselect.
* << Fim da inclusão
IF sy-subrc = 0 AND
adrc-country NE 'BR' AND adrc-country NE 'TW'.
CLEAR p_brnch.
ENDIF.
ENDIF.
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB005I01
...
IF itab_zycbt017[] IS INITIAL.
CLEAR v_ok17.
ENDIF.
ENDCASE.
CASE v_ok17.
WHEN 'X'.
PERFORM lock_record.
CALL SCREEN '0100'.
WHEN OTHERS.
PERFORM mensagem_authority_check.
* >> Início da exclusão: MODULE USER_COMMAND_0001
MESSAGE i011(pc) WITH text-001.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0001
MESSAGE i088(sf) WITH text-001.
* << Fim da inclusão
CLEAR /pws/zycbe017.
ENDCASE.
ENDMODULE.
MODULE user_command_0100 INPUT.
DATA: v_index_6 TYPE i.
DATA: e_subrc LIKE sy-subrc,
e_exec_okcode. "#EC NEEDED
CLEAR: r_okcode, e_exec_okcode, v_syrepid.
CALL METHOD cl_gui_cfw=>dispatch.
IF NOT r_okcode IS INITIAL.
...
...
EXPORTING
i_codmod = 'E'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* >> Início da inclusão: MODULE USER_COMMAND_0100
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'FAT001' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa)
USING ok_code
CHANGING e_subrc.
IF e_subrc NE 0.
EXIT.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB005O01
...
ENDMODULE.
MODULE texto_descritivo OUTPUT.
CLEAR: v_txtmoeda, v_txtpais, v_txtcom, v_txtbcon.
IF NOT /pws/zycbe017-waers IS INITIAL.
SELECT ltext
UP TO 1 ROWS
INTO (tcurt-ltext)
FROM tcurt
WHERE spras EQ sy-langu AND
waers EQ /pws/zycbe017-waers.
* >> Início da exclusão: MODULE TEXTO_DESCRITIVO
ENDSELECT.
* << Fim da exclusão
* >> Início da inclusão: MODULE TEXTO_DESCRITIVO
ENDSELECT. "#EC CI_SGLSELECT
* << Fim da inclusão
v_txtmoeda = tcurt-ltext.
ENDIF.
IF NOT /pws/zycbe017-land1 IS INITIAL.
SELECT *
UP TO 1 ROWS
FROM t005t
WHERE spras EQ sy-langu AND
land1 EQ /pws/zycbe017-land1.
ENDSELECT.
v_txtpais = t005t-landx.
ENDIF.
IF NOT /pws/zycbe017-parvw IS INITIAL.
SELECT txtdesc
UP TO 1 ROWS
INTO (/pws/zycbt037-txtdesc)
FROM /pws/zycbt037
WHERE parvw EQ /pws/zycbe017-parvw.
* >> Início da exclusão: MODULE TEXTO_DESCRITIVO
ENDSELECT.
* << Fim da exclusão
* >> Início da inclusão: MODULE TEXTO_DESCRITIVO
ENDSELECT. "#EC CI_NOFIRST
* << Fim da inclusão
v_txtcom = /pws/zycbt037-txtdesc.
ENDIF.
IF NOT /pws/zycbe017-banco IS INITIAL.
SELECT lifnr name1
UP TO 1 ROWS
INTO (lfa1-lifnr, lfa1-name1)
FROM lfa1
WHERE lifnr EQ /pws/zycbe017-banco.
ENDSELECT.
v_txtbcon = lfa1-name1.
...
...
MODULE trata_tbcontrol OUTPUT.
CLEAR: itab_t320[], itab_nome_campo[], v_nome_campo, v_comp.
IF sy-dynnr EQ '0200'.
v_cod_grupo = 'CCO'.
ENDIF.
SELECT campo flag
FROM /pws/zyglt320
INTO TABLE itab_t320
WHERE programa = sy-repid AND
tela = sy-dynnr AND
* >> Início da exclusão: MODULE TRATA_TBCONTROL
cod_grupo = v_cod_grupo.
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_TBCONTROL
cod_grupo = v_cod_grupo."#EC CI_NOFIRST
* << Fim da inclusão
SORT itab_t320 BY campo.
LOOP AT SCREEN.
itab_nome_campo-nome_campo_tela = screen-name.
APPEND itab_nome_campo.
ENDLOOP.
SORT itab_nome_campo.
LOOP AT itab_t320.
CONCATENATE '.' itab_t320-campo '.' INTO v_comp.
SEARCH itab_nome_campo FOR v_comp STARTING AT 1.
IF sy-subrc EQ 0.
READ TABLE itab_nome_campo INDEX sy-tabix.
* >> Início da exclusão: MODULE TRATA_TBCONTROL
IF sy-subrc EQ 0 AND itab_nome_campo-modif = ' '. .
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_TBCONTROL
IF sy-subrc EQ 0 AND itab_nome_campo-modif = ' '.
* << Fim da inclusão
itab_t320-campo = itab_nome_campo-nome_campo_tela.
MODIFY itab_t320.
DELETE itab_nome_campo INDEX sy-tabix.
ENDIF.
ENDIF.
CLEAR: itab_t320, itab_nome_campo.
ENDLOOP.
IF sy-dynnr EQ '0200'.
LOOP AT tc_cancel-cols INTO wa_cols.
v_nome_campo = wa_cols-screen-name.
...
...
MODULE load_html_help OUTPUT.
IF my_container IS INITIAL.
CREATE OBJECT my_container
EXPORTING
container_name = 'CC_HTML_HELP'
EXCEPTIONS
others = 1.
CASE sy-subrc.
WHEN 0.
WHEN OTHERS.
* >> Início da exclusão: MODULE LOAD_HTML_HELP
RAISE cntl_error.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_HTML_HELP
RAISE cntl_error."#EC *
* << Fim da inclusão
ENDCASE.
ENDIF.
IF html_control IS INITIAL.
CREATE OBJECT html_control
EXPORTING
parent = my_container.
IF sy-subrc NE 0.
* >> Início da exclusão: MODULE LOAD_HTML_HELP
RAISE cntl_error.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_HTML_HELP
RAISE cntl_error."#EC *
* << Fim da inclusão
ENDIF.
alignment = html_control->align_at_left +
html_control->align_at_right +
html_control->align_at_top +
html_control->align_at_bottom.
CALL METHOD html_control->set_alignment
EXPORTING
alignment = alignment.
myevent-eventid = html_control->m_id_sapevent.
myevent-appl_event = 'X'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB005TOP
...
t005t,
lfa1,
kna1,
t001w,
j_1bbranch,
adrc,
/pws/zycbt037,
/pws/zycbt006, "#EC NEEDED
/pws/zycbt089,
/pws/zycbt215,
* >> Início da exclusão:
/pws/zycbt039,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt039,"#EC *
* << Fim da inclusão
/pws/zycet002,
/pws/zycet001,
/pws/zycet020.
DATA: BEGIN OF itab_doctos OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt036.
DATA: END OF itab_doctos.
DATA: BEGIN OF itab_bsid OCCURS 0.
INCLUDE STRUCTURE bsid.
DATA: END OF itab_bsid.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycbt004 OCCURS 0.
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF itab_zycbt004 OCCURS 0. "#EC *
* << Fim da inclusão
INCLUDE STRUCTURE /pws/zycbt004.
DATA: END OF itab_zycbt004.
DATA: BEGIN OF itab_zycet002 OCCURS 2.
INCLUDE STRUCTURE /pws/zycet002.
DATA: END OF itab_zycet002.
DATA: BEGIN OF itab_zycet003 OCCURS 2.
INCLUDE STRUCTURE /pws/zycet003.
DATA: END OF itab_zycet003.
DATA: BEGIN OF itab_vbrp OCCURS 2.
INCLUDE STRUCTURE vbrp.
DATA: END OF itab_vbrp.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycet118 OCCURS 2. "#EC NEEDED
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF itab_zycet118 OCCURS 2. "#EC *
* << Fim da inclusão
INCLUDE STRUCTURE /pws/zycet118.
DATA: END OF itab_zycet118.
DATA: BEGIN OF itab_zycbt006 OCCURS 2.
INCLUDE STRUCTURE /pws/zycbt006.
DATA: END OF itab_zycbt006.
DATA: BEGIN OF itab_zycbt001_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt001.
DATA: END OF itab_zycbt001_aux.
DATA: BEGIN OF itab_zycbt215 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt215.
DATA: END OF itab_zycbt215.
DATA: BEGIN OF itab_zyglt316 OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt316.
DATA: END OF itab_zyglt316.
DATA: BEGIN OF itab_zycbt213_ant OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt213.
DATA: mark(1),
END OF itab_zycbt213_ant.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycbt045_exc OCCURS 0.
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF itab_zycbt045_exc OCCURS 0."#EC NEEDED
* << Fim da inclusão
INCLUDE STRUCTURE /pws/zycbt045.
DATA: mark(1).
DATA: END OF itab_zycbt045_exc.
DATA: BEGIN OF itab_zycbt045_ant OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt045.
DATA: mark(1).
DATA: END OF itab_zycbt045_ant.
DATA: BEGIN OF itab_erro OCCURS 0,
belnr LIKE /pws/zycbt005-belnr,
msg LIKE /pws/zycbt032-msg,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB005X01
TABLES:
* >> Início da exclusão:
/pws/zycbt001,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt001,"#EC *
* << Fim da inclusão
/pws/zycbe001,
* >> Início da exclusão:
/pws/zycbt005,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt005,"#EC NEEDED
* << Fim da inclusão
/pws/zycbe005,
* >> Início da exclusão:
/pws/zycbt017,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt017,"#EC NEEDED
* << Fim da inclusão
/pws/zycbe017,
/pws/zycbt018,
/pws/zycbt030,
/pws/zycbt045,
/pws/zycbe045,
* >> Início da exclusão:
/pws/zycbt207,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt207,"#EC *
* << Fim da inclusão
/pws/zycbe207,
/pws/zycbt213,
/pws/zycbe213.
* >> Início da exclusão:
DATA: BEGIN OF COMMON PART c.
DATA:
wa_zycbt213 LIKE /pws/zycbt213.
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF COMMON PART c. "#EC PART_OK
* << Fim da inclusão
DATA: BEGIN OF itab_zycbt213 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt213.
DATA: mark(1),
END OF itab_zycbt213.
DATA: BEGIN OF itab_zycbt017 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt017.
DATA: END OF itab_zycbt017.
DATA: BEGIN OF itab_zycbt018 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt018.
DATA: END OF itab_zycbt018.
...
...
v_kwert LIKE /pws/zycbt030-kwert,
belnr7 LIKE /pws/zycbt030-belnr,
flag(1) TYPE c,
belnr_d LIKE /pws/zycbt030-belnr,
status_d LIKE /pws/zycbt005-status,
END OF itab_zycbt030.
DATA: BEGIN OF itab_zycbt045 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt045.
DATA: mark(1).
DATA: END OF itab_zycbt045.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycbt001 OCCURS 0.
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF itab_zycbt001 OCCURS 0."#EC *
* << Fim da inclusão
INCLUDE STRUCTURE /pws/zycbt001.
DATA: END OF itab_zycbt001.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycbt005 OCCURS 0.
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF itab_zycbt005 OCCURS 0."#EC *
* << Fim da inclusão
INCLUDE STRUCTURE /pws/zycbt005.
DATA: vlslf LIKE /pws/zycbe005-vlslf,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB006F01
...
tpdesp = itab_zycbt023_tela-tpdesp
nrparc = itab_zycbt023_tela-nrparc
dtincl = itab_zycbt023_tela-dtincl
gsberf = itab_zycbt023_tela-gsberf
dtvincul = itab_zycbt023_tela-dtvincul
dtvencto = itab_zycbt023_tela-dtvencto.
CHECK sy-subrc EQ 0.
IF itab_zycbt023_tela-vlcomis NE /pws/zycbe023-vlcomis OR
v_calcula = '1'.
IF v_saldo EQ '0'.
* >> Início da exclusão: FORM ATUALIZA_ITAB_ZYCBT023_TELA
/pws/zycbe023-vlcomis = /pws/zycbe023-vlcomis.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_ITAB_ZYCBT023_TELA
/pws/zycbe023-vlcomis = /pws/zycbe023-vlcomis. "#EC *
* << Fim da inclusão
IF itab_zycbt023_tela-slcomi GE /pws/zycbe023-vlcomis.
/pws/zycbt005-slcomi =
itab_zycbt023_tela-slcomi - /pws/zycbe023-vlcomis.
ENDIF.
itab_zycbt023_tela-vlcomis = /pws/zycbe023-vlcomis.
itab_zycbt023_tela-slcomi = /pws/zycbt005-slcomi.
ENDIF.
IF v_saldo LT '0'.
IF /pws/zycbe023-vlcomis LE /pws/zycbt005-slcomi.
IF sy-tcode EQ '/PWS/ZYCB006_C'.
* >> Início da exclusão: FORM ATUALIZA_ITAB_ZYCBT023_TELA
/pws/zycbe023-vlcomis = /pws/zycbe023-vlcomis.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_ITAB_ZYCBT023_TELA
/pws/zycbe023-vlcomis = /pws/zycbe023-vlcomis."#EC *
* << Fim da inclusão
/pws/zycbt005-slcomi = /pws/zycbt005-slcomi -
/pws/zycbe023-vlcomis.
ELSE.
/pws/zycbt005-slcomi =
/pws/zycbt005-slcomi + ( v_saldo_ant -
/pws/zycbe023-vlcomis ).
ENDIF.
ELSEIF ( /pws/zycbe023-vlcomis GT /pws/zycbt005-slcomi ).
* >> Início da exclusão: FORM ATUALIZA_ITAB_ZYCBT023_TELA
/pws/zycbe023-vlcomis = /pws/zycbe023-vlcomis.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_ITAB_ZYCBT023_TELA
/pws/zycbe023-vlcomis = /pws/zycbe023-vlcomis."#EC *
* << Fim da inclusão
/pws/zycbt005-slcomi = /pws/zycbt005-slcomi - v_saldo.
ENDIF.
itab_zycbt023_tela-vlcomis = /pws/zycbe023-vlcomis.
itab_zycbt023_tela-slcomi = /pws/zycbt005-slcomi.
ENDIF.
IF v_saldo GT '0'.
IF ( /pws/zycbe023-vlcomis GT /pws/zycbt005-slcomi ) AND
( /pws/zycbt005-slcomi GT '0' ).
READ TABLE itab_zycbt023
WITH KEY nrseqc = v_nrseqc
...
...
dtincl = itab_zycbt023_tela-dtincl
nrinvoic = itab_zycbt023_tela-nrinvoic
gsberf = itab_zycbt023_tela-gsberf
dtvincul = v_dtvincul
dtvencto = itab_zycbt023_tela-dtvencto.
IF sy-subrc EQ 0.
v_slcomi = itab_zycbt005-slcomi.
ENDIF.
v_vlcomis = v_vlcomis + v_slcomi.
IF /pws/zycbe023-vlcomis LE v_vlcomis.
* >> Início da exclusão: FORM ATUALIZA_ITAB_ZYCBT023_TELA
/pws/zycbe023-vlcomis = /pws/zycbe023-vlcomis.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_ITAB_ZYCBT023_TELA
/pws/zycbe023-vlcomis = /pws/zycbe023-vlcomis."#EC *
* << Fim da inclusão
/pws/zycbt005-slcomi = v_vlcomis - /pws/zycbe023-vlcomis.
ELSE.
/pws/zycbe023-vlcomis = v_vlcomis.
/pws/zycbt005-slcomi = 0.
ENDIF.
ELSE.
* >> Início da exclusão: FORM ATUALIZA_ITAB_ZYCBT023_TELA
/pws/zycbe023-vlcomis = /pws/zycbe023-vlcomis.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA_ITAB_ZYCBT023_TELA
/pws/zycbe023-vlcomis = /pws/zycbe023-vlcomis."#EC *
* << Fim da inclusão
/pws/zycbt005-slcomi =
v_saldo_ant + ( /pws/zycbt005-slcomi - /pws/zycbe023-vlcomis
).
ENDIF.
IF /pws/zycbt005-slcomi GE /pws/zycbe023-vlcomis.
/pws/zycbt005-slcomi = /pws/zycbt005-slcomi -
/pws/zycbe023-vlcomis.
ENDIF.
itab_zycbt023_tela-vlcomis = /pws/zycbe023-vlcomis.
itab_zycbt023_tela-slcomi = /pws/zycbt005-slcomi.
...
...
itab_zycbt023-ftaxa.
APPEND itab_zycbt023.
SELECT SINGLE * FROM /pws/zycbt005 INTO st_zycbt005
WHERE nrseqc = itab_zycbt023_tela-nrseqc AND
tpdesp = itab_zycbt023_tela-tpdesp AND
nrparc = itab_zycbt023_tela-nrparc AND
dtincl = itab_zycbt023_tela-dtincl AND
nrinvoic = itab_zycbt023_tela-nrinvoic AND
gsberf = itab_zycbt023_tela-gsberf AND
dtvincul = itab_zycbt023_tela-dtvincul AND
* >> Início da exclusão: FORM GRAVA_TABELAS
dtvencto = itab_zycbt023_tela-dtvencto.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_TABELAS
dtvencto = itab_zycbt023_tela-dtvencto."#EC *
* << Fim da inclusão
IF sy-subrc EQ 0.
MOVE: itab_zycbt023_tela-slcomi TO st_zycbt005-slcomi.
MODIFY /pws/zycbt005 FROM st_zycbt005.
ENDIF.
ENDLOOP.
MODIFY /pws/zycbt023 FROM TABLE itab_zycbt023.
IF sy-subrc EQ 0.
COMMIT WORK.
MESSAGE s015 WITH text-001.
ENDIF.
...
...
WITH KEY nrseqc = itab_zycbt023_ant-nrseqc
tpdesp = itab_zycbt023_ant-tpdesp
nrparc = itab_zycbt023_ant-nrparc
dtincl = itab_zycbt023_ant-dtincl
nrinvoic = itab_zycbt023_ant-nrinvoic
gsberf = itab_zycbt023_ant-gsberf
dtvincul = itab_zycbt023_ant-dtvincul
dtvencto = itab_zycbt023_ant-dtvencto
dtincl2 = itab_zycbt023_ant-dtincl2.
IF sy-subrc NE 0.
* >> Início da exclusão: FORM EXCLUI_FATURA
SELECT SINGLE * FROM /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_FATURA
SELECT * FROM /pws/zycbt031
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrcorresp = itab_zycbt023_ant-nrseqc
AND mdcorresp = 'EL'.
* >> Início da inclusão: FORM EXCLUI_FATURA
endselect.
* << Fim da inclusão
IF itab_zycbt023_ant-dtpagto EQ '00000000' AND
/pws/zycbt031-nrseq IS INITIAL.
DELETE FROM /pws/zycbt023
WHERE nrseqc = itab_zycbt023_ant-nrseqc AND
tpdesp = itab_zycbt023_ant-tpdesp AND
...
...
ENDIF.
SELECT SINGLE slcomi FROM /pws/zycbt005 INTO
/pws/zycbt005-slcomi
WHERE nrseqc = itab_zycbt023_ant-nrseqc AND
tpdesp = itab_zycbt023_ant-tpdesp AND
nrparc = itab_zycbt023_ant-nrparc AND
dtincl = itab_zycbt023_ant-dtincl AND
nrinvoic = itab_zycbt023_ant-nrinvoic AND
gsberf = itab_zycbt023_ant-gsberf AND
dtvincul = itab_zycbt023_ant-dtvincul AND
* >> Início da exclusão: FORM EXCLUI_FATURA
dtvencto = itab_zycbt023_ant-dtvencto.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_FATURA
dtvencto = itab_zycbt023_ant-dtvencto."#EC *
* << Fim da inclusão
/pws/zycbt005-slcomi = /pws/zycbt005-slcomi + v_saldo_adic.
UPDATE /pws/zycbt005
SET slcomi = /pws/zycbt005-slcomi
WHERE nrseqc = itab_zycbt023_ant-nrseqc AND
tpdesp = itab_zycbt023_ant-tpdesp AND
nrparc = itab_zycbt023_ant-nrparc AND
dtincl = itab_zycbt023_ant-dtincl AND
nrinvoic = itab_zycbt023_ant-nrinvoic AND
gsberf = itab_zycbt023_ant-gsberf AND
dtvincul = itab_zycbt023_ant-dtvincul AND
...
...
DATA: v_dtcred LIKE /pws/zycbt001-dtcred,
v_dtdesem LIKE /pws/zycbt001-dtdesem.
SELECT SINGLE dtcred dtdesem FROM /pws/zycbt001
INTO (v_dtcred, v_dtdesem)
WHERE nrseqc EQ v_nrseqc.
IF sy-subrc EQ 0.
MOVE: v_dtcred TO /pws/zycbt001-dtcred,
v_dtdesem TO /pws/zycbt001-dtdesem.
ENDIF.
ENDFORM.
* >> Início da exclusão: FORM EXCLUI_TODAS_FATURAS
FORM exclui_todas_faturas CHANGING value(p_gravado).
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_TODAS_FATURAS
FORM exclui_todas_faturas CHANGING value(p_gravado)."#EC *
* << Fim da inclusão
READ TABLE itab_zycbt023_ant
WITH KEY nrseqc = itab_zycbt023_tela-nrseqc
tpdesp = itab_zycbt023_tela-tpdesp
nrparc = itab_zycbt023_tela-nrparc
dtincl = itab_zycbt023_tela-dtincl
nrinvoic = itab_zycbt023_tela-nrinvoic
gsberf = itab_zycbt023_tela-gsberf
dtvincul = itab_zycbt023_tela-dtvincul
dtvencto = itab_zycbt023_tela-dtvencto
dtincl2 = itab_zycbt023_tela-dtincl2.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM EXCLUI_TODAS_FATURAS
SELECT SINGLE * FROM /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_TODAS_FATURAS
SELECT * FROM /pws/zycbt031
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrcorresp = itab_zycbt023_ant-nrseqc
AND mdcorresp = 'EL'.
* >> Início da inclusão: FORM EXCLUI_TODAS_FATURAS
endselect.
* << Fim da inclusão
IF itab_zycbt023_ant-dtpagto EQ '00000000' AND
/pws/zycbt031-nrseq IS INITIAL.
DELETE FROM /pws/zycbt023
WHERE nrseqc = itab_zycbt023_ant-nrseqc AND
tpdesp = itab_zycbt023_ant-tpdesp AND
...
...
p_gravado = p_gravado + 1.
ENDIF.
SELECT SINGLE slcomi FROM /pws/zycbt005 INTO /pws/zycbt005-slcomi
WHERE nrseqc = itab_zycbt023_ant-nrseqc AND
tpdesp = itab_zycbt023_ant-tpdesp AND
nrparc = itab_zycbt023_ant-nrparc AND
dtincl = itab_zycbt023_ant-dtincl AND
nrinvoic = itab_zycbt023_ant-nrinvoic AND
gsberf = itab_zycbt023_ant-gsberf AND
dtvincul = itab_zycbt023_ant-dtvincul AND
* >> Início da exclusão: FORM EXCLUI_TODAS_FATURAS
dtvencto = itab_zycbt023_ant-dtvencto.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_TODAS_FATURAS
dtvencto = itab_zycbt023_ant-dtvencto."#EC *
* << Fim da inclusão
/pws/zycbt005-slcomi = /pws/zycbt005-slcomi + v_saldo_adic.
UPDATE /pws/zycbt005
SET slcomi = /pws/zycbt005-slcomi
WHERE nrseqc = itab_zycbt023_ant-nrseqc AND
tpdesp = itab_zycbt023_ant-tpdesp AND
nrparc = itab_zycbt023_ant-nrparc AND
dtincl = itab_zycbt023_ant-dtincl AND
nrinvoic = itab_zycbt023_ant-nrinvoic AND
gsberf = itab_zycbt023_ant-gsberf AND
dtvincul = itab_zycbt023_ant-dtvincul AND
dtvencto = itab_zycbt023_ant-dtvencto.
* >> Início da exclusão: FORM EXCLUI_TODAS_FATURAS
DELETE itab_zycbt023_tela.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_TODAS_FATURAS
DELETE itab_zycbt023_tela."#EC *
* << Fim da inclusão
ENDIF.
ENDIF.
ENDFORM.
FORM lock_record.
CHECK sy-tcode = '/PWS/ZYCB006_A'.
CHECK NOT itab_zycbt023-nrseqc IS INITIAL.
CALL FUNCTION '/PWS/ZYCB_ENQUEUE_ZYCBT023'
EXPORTING
nrseqc = itab_zycbt023-nrseqc
tpdesp = itab_zycbt023-tpdesp
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB006I01
...
if not v_ind_mudanca is initial.
call function 'POPUP_TO_CONFIRM_WITH_MESSAGE'
exporting
defaultoption = 'Y'
diagnosetext1 = text-020
textline1 = text-021
titel = text-022
importing
answer = v_resposta
exceptions
* >> Início da exclusão: MODULE USER_COMMAND_EXIT
others = 1.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_EXIT
others = 1."#EC *
* << Fim da inclusão
if sy-subrc eq 0 and v_resposta eq 'J'.
perform grava_tabelas.
endif.
if v_resposta eq 'A'.
exit.
endif.
endif.
clear: v_status_s, /pws/zycbe023, /pws/zycbe005,
itab_zycbt005, itab_zycbt005_aux2.
refresh: itab_zycbt005, itab_zycbt005_aux2.
...
...
case ok_code.
when 'PAGTOS'.
clear: v_dtvincul, v_dtincl2.
call screen '0011' starting at 2 2.
when 'ENTE'.
if sy-tcode eq '/PWS/ZYCB006_C'.
v_calcula = '1'.
endif.
clear v_ind_mudanca.
if v_dtvincul is initial.
* >> Início da exclusão: MODULE USER_COMMAND_0002
message i011(pc) with text-023.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0002
message i899(f5) with text-023.
* << Fim da inclusão
exit.
endif.
perform seleciona_zycbt001.
perform carrega_itab_zycbt023.
endcase.
endmodule.
module user_command_0100 input.
v_calcula = '0'.
case ok_code.
when 'SAVE'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB006TOP
program /pws/sapmzycb006 message-id /pws/zycbm.
tables:
/pws/zycbt001,
/pws/zycbe005, /pws/zycbt005,
* >> Início da exclusão:
/pws/zycbe023, /pws/zycbt023,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbe023,
/pws/zycbt023, "#EC *
* << Fim da inclusão
/pws/zycbt031.
types: begin of st_data,
nrcontr like /pws/zycbt023-nrcontr,
nrseqc like /pws/zycbt023-nrseqc,
tpcontr like /pws/zycbt023-tpcontr,
bukrs like /pws/zycbt023-bukrs,
ftxt like /pws/zycbt023-ftxt,
txtinf like /pws/zycbt023-txtinf,
bconegoc like /pws/zycbt023-bconegoc,
bcofinan like /pws/zycbt023-bcofinan,
...
...
include structure /pws/zycbt023.
data: end of itab_zycbt023.
data: begin of itab_zycbt023_ant occurs 0.
include structure /pws/zycbt023.
data: end of itab_zycbt023_ant.
data: itab_zycbt023_tela type standard table of st_data
with header line.
data: itab_zycbt023_tela2 type standard table of st_data
with header line.
data: itab_zycbt023_tela3 type standard table of st_data
* >> Início da exclusão:
with header line.
data: begin of itab_zycbt005_aux2 occurs 0,
* << Fim da exclusão
* >> Início da inclusão:
with header line."#EC *
data: begin of itab_zycbt005_aux2 occurs 0, "#EC NEEDED
* << Fim da inclusão
dtvincul like /pws/zycbt005-dtvincul,
end of itab_zycbt005_aux2.
* >> Início da exclusão:
data: begin of itab_zycbt023_aux2 occurs 0,
* << Fim da exclusão
* >> Início da inclusão:
data: begin of itab_zycbt023_aux2 occurs 0, "#EC NEEDED
* << Fim da inclusão
dtvincul like /pws/zycbt023-dtvincul,
dtincl2 like /pws/zycbt023-dtincl2,
end of itab_zycbt023_aux2.
controls:
tc_datas type tableview using screen '0010',
tc_pagtos type tableview using screen '0011',
* >> Início da exclusão:
tc_faturas type tableview using screen '0100'.
* << Fim da exclusão
* >> Início da inclusão:
tc_faturas type tableview using screen '0100'."#EC NEEDED
* << Fim da inclusão
data:
ok_code like sy-ucomm,
v_calcula type c value '0',
v_status_s type c,
v_trans type c,
v_media type c,
v_compra type c,
v_venda type c,
v_index_1 type n,
v_ind_mudanca type c,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB007F01
...
perform gravar_zycbt126_itab-tabela using 'PORDEST'
wa_zycbt026-pordest
/pws/zycbe026-pordest.
endif.
modify /pws/zycbt126 from table itab_zycbt126.
update /pws/zycbt028 set benefic = /pws/zycbe026-benefic
where nrseqc = /pws/zycbe026-nrseqc.
endform.
form gera_chave_emenda_zycbt126.
wa_zycbt126-nrcorresp = /pws/zycbe026-nrseqc.
* >> Início da exclusão: FORM GERA_CHAVE_EMENDA_ZYCBT126
select max( nremenda ) into (wa_zycbt126-nremenda) from
/pws/zycbt126
where nremenda between '5000000000' and '9999999999' .
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_CHAVE_EMENDA_ZYCBT126
select max( nremenda )
into (wa_zycbt126-nremenda)
from /pws/zycbt126
where nremenda between '5000000000' and '9999999999' ."#EC CI_NOFIRST
* << Fim da inclusão
if wa_zycbt126-nremenda is initial.
move 5000000000 to wa_zycbt126-nremenda.
endif.
wa_zycbt126-nremenda = ( wa_zycbt126-nremenda + 1 ).
shift wa_zycbt126-nremenda right deleting trailing space.
translate wa_zycbt126-nremenda using ' 0'.
endform.
form gravar_zycbt126_itab-tabela using value(v_campo)
value(v_contant)
* >> Início da exclusão: FORM GRAVAR_ZYCBT126_ITAB-TABELA
value(v_contatu).
delete from /pws/zycbt126 where nomcampo eq v_campo.
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVAR_ZYCBT126_ITAB-TABELA
value(v_contatu)."#EC *
delete from /pws/zycbt126 where nomcampo eq v_campo."#EC CI_NOFIRST
* << Fim da inclusão
wa_zycbt126-nomcampo = v_campo.
write v_contant to wa_zycbt126-contant.
write v_contatu to wa_zycbt126-contatu.
wa_zycbt126-dtmodif = sy-datum.
write sy-uzeit to wa_zycbt126-hrmodif.
perform verifica_descricao.
if wa_zycbt126-nomcampo eq 'VLME'.
shift wa_zycbt126-contant left deleting leading space.
shift wa_zycbt126-contatu left deleting leading space.
endif.
...
...
when 'WAERS'.
wa_zycbt126-descampo = text-021.
when 'VLME'.
wa_zycbt126-descampo = text-020.
when 'DTPRAZO'.
wa_zycbt126-descampo = text-019.
when 'TXTINF'.
wa_zycbt126-descampo = text-018.
endcase.
endform.
* >> Início da exclusão: FORM POPUP_MESSAGE
form popup_message using p_text_009 p_text_010.
* << Fim da exclusão
* >> Início da inclusão: FORM POPUP_MESSAGE
form popup_message using p_text_009 p_text_010."#EC *
* << Fim da inclusão
call function 'POPUP_TO_CONFIRM_STEP'
exporting
defaultoption = 'Y'
titel = p_text_010
textline1 = p_text_009
cancel_display = ' '
importing
answer = v_answer
exceptions
* >> Início da exclusão: FORM POPUP_MESSAGE
others = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM POPUP_MESSAGE
others = 0."#EC *
* << Fim da inclusão
endform.
form inicializa_028.
clear: /pws/zycbe028, wa_zycbt028.
move-corresponding /pws/zycbe026 to /pws/zycbe028.
/pws/zycbe028-dtincl = sy-datum.
/pws/zycbe028-ftaxa = 'G'.
perform find_nrseq.
clear /pws/zycbe028-vlme.
move-corresponding /pws/zycbe028 to wa_zycbt028.
endform.
...
...
and dtincl = itab_zycbt028_aux2-dtincl.
if /pws/zycbe028-ftaxa = 'G'.
v_ftaxag = 'X'.
elseif /pws/zycbe028-ftaxa = 'B'.
v_ftaxab = 'X'.
elseif /pws/zycbe028-ftaxa = 'M'.
v_ftaxam = 'X'.
endif.
move /pws/zycbe028 to wa_zycbt028.
endform.
* >> Início da exclusão: FORM EXIBE_ZYCBT126
form exibe_zycbt126.
* << Fim da exclusão
* >> Início da inclusão: FORM EXIBE_ZYCBT126
form exibe_zycbt126."#EC CALLED
* << Fim da inclusão
/pws/zycbe126 = itab_zycbt126.
endform.
form find_nrseq.
data:
v_nrseq like /pws/zycbt028-nrseq,
v_count(6) type n,
v_ano(3).
concatenate '%' sy-datum+2(2) into v_ano.
select max( nrseq ) into (v_nrseq) from /pws/zycbt028
* >> Início da exclusão: FORM FIND_NRSEQ
where nrseq like v_ano.
* << Fim da exclusão
* >> Início da inclusão: FORM FIND_NRSEQ
where nrseq like v_ano."#EC CI_NOFIRST
* << Fim da inclusão
v_count = v_nrseq+0(6) + 1.
concatenate v_count sy-datum+2(2) into /pws/zycbe028-nrseq.
endform.
form lock_record.
check sy-tcode = '/PWS/ZYCB007_A'.
check not /pws/zycbe026-nrseqc is initial.
call function '/PWS/ZYCB_ENQUEUE_ZYCBT026'
exporting
nrseqc = /pws/zycbe026-nrseqc
exceptions
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB007I02
...
else.
perform grava_028.
endif.
when 'ANLE'.
perform inicializa_028.
when 'DELE'.
if /pws/zycbe028-statusp ne 'I' and
/pws/zycbe028-statusp ne ' '.
message i081.
else.
* >> Início da exclusão: MODULE USER_COMMAND_0101
select single * from /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0101
select * from /pws/zycbt031
UP TO 1 ROWS
* << Fim da inclusão
where nrcorresp = /pws/zycbe028-nrseqc
and mdcorresp = 'EC'.
* >> Início da inclusão: MODULE USER_COMMAND_0101
endselect.
* << Fim da inclusão
if /pws/zycbe028-dtpagto eq '00000000' and /pws/zycbt031-nrseq
is initial.
delete /pws/zycbt028 from /pws/zycbe028.
if sy-subrc eq '0'.
message s018.
...
...
else.
message i187.
endif.
endif.
when 'CLI'.
perform drill_down.
when 'LIST'.
call screen '0102' starting at 2 2.
endcase.
endmodule.
* >> Início da exclusão: MODULE CARREGA_VALOR_LISTA_3
module carrega_valor_lista_3 input.
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_VALOR_LISTA_3
module carrega_valor_lista_3 input."#EC *
* << Fim da inclusão
clear: v_ftaxab, v_ftaxag, v_ftaxam, /pws/zycbe028.
select single *
from /pws/zycbt028
into /pws/zycbe028
where nrseqc = itab_zycbt028_aux2-nrseqc
and nrseq = itab_zycbt028_aux2-nrseq
and tpdesp = itab_zycbt028_aux2-tpdesp
and dtincl = itab_zycbt028_aux2-dtincl.
if /pws/zycbe028-ftaxa = 'G'.
v_ftaxag = 'X'.
...
...
/pws/zycbe026-dtprazo = space.
clear /pws/zycbe026-dtprazo.
endif.
if /pws/zycbe026-dtprazo > v_dtvalemb.
message w189.
clear /pws/zycbe026-dtprazo.
endif.
endif.
endmodule.
module consiste_porto input.
* >> Início da exclusão: MODULE CONSISTE_PORTO
select single land1 from t615 into t615-land1
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_PORTO
select land1 from t615
UP TO 1 ROWS
into t615-land1
* << Fim da inclusão
where zolla eq /pws/zycbe026-pordest.
* >> Início da inclusão: MODULE CONSISTE_PORTO
endselect.
* << Fim da inclusão
if t615-land1 = 'BR'.
message i161.
/pws/zycbe026-pordest = space.
endif.
endmodule.
module consiste_percentual input.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB007O01
...
and waers eq /pws/zycbe028-waers.
moeda = tcurt-ltext.
endif.
if not /pws/zycbe028-gsber is initial.
select single * from tgsbt
where spras eq sy-langu
and gsber eq /pws/zycbe028-gsber.
divisao = tgsbt-gtext.
endif.
endmodule.
* >> Início da exclusão: MODULE PREENCHE_ZYCBE0126
module preenche_zycbe0126 output.
* << Fim da exclusão
* >> Início da inclusão: MODULE PREENCHE_ZYCBE0126
module preenche_zycbe0126 output."#EC *
* << Fim da inclusão
perform carrega_zycbe126.
endmodule.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB007TOP
program /pws/sapmzycb007 message-id /pws/zycbm.
tables:
/pws/zycbt031,
/pws/zycbt026, /pws/zycbe026,
/pws/zycbt028, /pws/zycbe028,
* >> Início da exclusão:
/pws/zycbt126, /pws/zycbe126,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt126,
/pws/zycbe126, "#EC *
* << Fim da inclusão
/pws/zycbt007,
* >> Início da exclusão:
/pws/zycbt015,
* << Fim da exclusão
t001,
tcurt,
kna1,
t615,
t615t,
t005t,
tgsbt.
controls:
tc_valor type tableview using screen '0102',
tc_emend type tableview using screen '0300'.
* >> Início da exclusão:
data: begin of itab_zycbt028_aux2 occurs 0,
* << Fim da exclusão
* >> Início da inclusão:
data: begin of itab_zycbt028_aux2 occurs 0,"#EC NEEDED
* << Fim da inclusão
nrseqc like /pws/zycbt028-nrseqc,
nrseq like /pws/zycbt028-nrseq,
dtincl like /pws/zycbt028-dtincl,
tpdesp like /pws/zycbt028-tpdesp,
end of itab_zycbt028_aux2.
data: begin of itab_zycbt126 occurs 0.
include structure /pws/zycbe126.
data: end of itab_zycbt126.
data: begin of itab_pf_status occurs 10,
fcode like rsmpe-func,
end of itab_pf_status.
data: wa_zycbt026 like /pws/zycbt026,
wa_zycbt028 like /pws/zycbt028,
wa_zycbt126 like /pws/zycbt126.
data:
v_nrseqc like /pws/zycbt026-nrseqc,
* >> Início da exclusão:
v_nrseqcview(9) type c,
* << Fim da exclusão
* >> Início da inclusão:
v_nrseqcview(9) type c, "#EC NEEDED
* << Fim da inclusão
v_nrseqc_ant like /pws/zycbt026-nrseqc,
v_cria_novo(1),
v_existe(1) value 'N',
v_count(6) type n,
v_answer value 'N',
v_ftaxam,
v_ftaxag,
v_ftaxab,
ok_code like sy-ucomm,
w_ok like sy-ucomm,
...
...
porto like t615t-bezei,
empresa like t001-butxt,
benefic like t001-butxt,
nome_desp like /pws/zycbt015-txtdesc,
v_waers like /pws/zycbt026-waers,
v_pais like kna1-land1,
v_imprdiv(1),
v_erro(30) type c,
v_campo(21),
v_valor(20),
* >> Início da exclusão:
i_belnr like bkpf-belnr,
i_bukrs like bkpf-bukrs,
i_gjahr like bkpf-gjahr.
* << Fim da exclusão
* >> Início da inclusão:
i_belnr like bkpf-belnr,"#EC NEEDED
i_bukrs like bkpf-bukrs, "#EC NEEDED
i_gjahr like bkpf-gjahr."#EC NEEDED
* << Fim da inclusão
data:
* >> Início da exclusão:
i_looplines3 type i.
* << Fim da exclusão
* >> Início da inclusão:
i_looplines3 type i."#EC NEEDED
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB008F01
...
v_temporario = v_temporario + itab_zycbt027-vlme.
ELSE.
CLEAR v_temporario.
LOOP AT itab_zycbt027.
v_temporario = v_temporario + itab_zycbt027-vlme.
ENDLOOP.
ENDIF.
v_atualizado = 'X'.
ENDFORM.
FORM apaga_tablecontrol.
* >> Início da exclusão: FORM APAGA_TABLECONTROL
DATA: v_lisel LIKE itab_zycbt027-nrinvoic.
* << Fim da exclusão
CLEAR: itab_excluidos.
LOOP AT itab_zycbt027 WHERE mark = 'X'.
/pws/zycbe026-slvinc = /pws/zycbe026-slvinc +
itab_zycbt027-vlme.
IF itab_zycbt027-inclui = 'X'.
v_ind_inclusao = ' '.
ENDIF.
MOVE /pws/zycbe026-nrseqc TO itab_excluidos-nrseqc.
MOVE itab_zycbt027-nrinvoic TO itab_excluidos-nrinvoic.
MOVE itab_zycbt027-nrparcf TO itab_excluidos-nrparcf.
...
...
AND nrseq = itab_excluidos-nrinvoic.
IF itab_zycbt027 IS INITIAL.
DELETE FROM /pws/zycbt203
WHERE nrseqc = itab_excluidos-nrseqc.
ENDIF.
ENDLOOP.
ENDFORM.
FORM verifica_emb.
IF itab_zycbt027_emb IS INITIAL.
SELECT * FROM /pws/zycbt027
* >> Início da exclusão: FORM VERIFICA_EMB
APPENDING TABLE itab_zycbt027_emb.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_EMB
APPENDING TABLE itab_zycbt027_emb."#EC CI_NOWHERE
* << Fim da inclusão
ENDIF.
LOOP AT itab_zycbt027.
READ TABLE itab_zycbt027_emb WITH KEY
nrinvoic = itab_zycbt027-nrinvoic
nrparcf = itab_zycbt027-nrparcf
gsberf = itab_zycbt027-gsberf.
IF sy-subrc EQ 0.
IF /pws/zycbe026-nrseqc NE itab_zycbt027_emb-nrseqc.
MESSAGE w061 WITH text-020 itab_zycbt027-nrinvoic text-021
itab_zycbt027_emb-nrseqc.
...
...
itab_zycbt027-mark = 'X'.
MODIFY itab_zycbt027.
ENDLOOP.
ENDFORM.
FORM desmarca.
LOOP AT itab_zycbt027 WHERE NOT nrinvoic EQ ' '.
itab_zycbt027-mark = ' '.
MODIFY itab_zycbt027.
ENDLOOP.
ENDFORM.
* >> Início da exclusão: FORM VERIFICA_VALOR_VINCULAR
FORM verifica_valor_vincular.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_VALOR_VINCULAR
FORM verifica_valor_vincular."#EC CALLED
* << Fim da inclusão
IF /pws/zycbe027-vlme IS INITIAL.
MESSAGE i015 WITH text-008.
ELSE.
v_ind_mudanca = 'X'.
ENDIF.
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB008I01
...
if v_ind_mudanca = 'X'.
call function 'POPUP_TO_CONFIRM_WITH_MESSAGE'
exporting
defaultoption = 'Y'
diagnosetext1 = text-012
textline1 = text-011
titel = text-010
importing
answer = v_resposta
exceptions
* >> Início da exclusão: MODULE USER_COMMAND_EXIT
others = 1.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_EXIT
others = 1."#EC *
* << Fim da inclusão
if sy-subrc eq 0.
case v_resposta.
when 'J'.
perform grava_tabelas.
when 'A'.
exit.
endcase.
endif.
endif.
clear: /pws/zycbe026, /pws/zycbe027, itab_zycbt017.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB008O01
...
PERFORM calcula_saldo_ccred.
ENDMODULE.
MODULE inicializa_pai OUTPUT.
CLEAR: /pws/zycbe026-slvinc, /pws/zycbe017, /pws/zycbe027,
itab_zycbt017_saldo.
REFRESH: itab_zycbt017_saldo.
ENDMODULE.
MODULE exibe_mensagem OUTPUT.
PERFORM exibe_mensagem.
ENDMODULE.
* >> Início da exclusão: MODULE CARREGA_ITAB_ZYCBT017
MODULE carrega_itab_zycbt017 OUTPUT.
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_ITAB_ZYCBT017
MODULE carrega_itab_zycbt017 OUTPUT."#EC *
* << Fim da inclusão
REFRESH itab_zycbt017.
CLEAR itab_zycbt017.
DESCRIBE TABLE itab_zycbt027 LINES v_tfill.
IF v_tfill GT 0.
IF NOT itab_zycbt027[] IS INITIAL.
SELECT * FROM /pws/zycbt017 APPENDING TABLE itab_zycbt017
FOR ALL ENTRIES IN itab_zycbt027
WHERE nrinvoic = itab_zycbt027-nrinvoic
AND nrparcf = itab_zycbt027-nrparcf.
DELETE itab_zycbt017 WHERE nrinvoic EQ ' '.
ENDIF.
ENDIF.
ENDMODULE.
* >> Início da exclusão: MODULE CARREGA_DADOS
MODULE carrega_dados OUTPUT.
* << Fim da exclusão
* >> Início da inclusão: MODULE CARREGA_DADOS
MODULE carrega_dados OUTPUT."#EC *
* << Fim da inclusão
SELECT SINGLE * FROM /pws/zycbt026 INTO /pws/zycbe026
WHERE nrseqc = /pws/zycbe026-nrseqc.
ENDMODULE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB008TOP
program /pws/sapmzycb003 message-id /pws/zycbm.
tables:
kna1,
* >> Início da exclusão:
lfa1,
* << Fim da exclusão
* >> Início da inclusão:
lfa1,"#EC *
* << Fim da inclusão
/pws/zycbe026, /pws/zycbt026,
* >> Início da exclusão:
/pws/zycbe027, /pws/zycbt027,
/pws/zycbe017, /pws/zycbt017,
/pws/zycbt202,
/pws/zycbt203.
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbe027,
/pws/zycbt027,"#EC *
/pws/zycbe017, "#EC NEEDED
/pws/zycbt017,
/pws/zycbt202,"#EC *
/pws/zycbt203."#EC *
* << Fim da inclusão
data: begin of itab_zycbt027 occurs 0.
include structure /pws/zycbe027.
data: inclui type c.
data: mark(1).
data: flag type c.
data: end of itab_zycbt027.
* >> Início da exclusão:
data: begin of itab_zycbt027_aux2 occurs 0.
include structure /pws/zycbe027.
data: inclui type c.
data: flag type c.
data: end of itab_zycbt027_aux2.
* << Fim da exclusão
data: begin of itab_zycbt027_aux occurs 0.
include structure /pws/zycbe027.
data: flag type c.
data: end of itab_zycbt027_aux.
data: begin of itab_zycbt027_excluidos occurs 0.
include structure /pws/zycbe027.
data: end of itab_zycbt027_excluidos.
* >> Início da exclusão:
data: begin of itab_zycbt027_compondo occurs 0.
include structure /pws/zycbe027.
data: end of itab_zycbt027_compondo.
* << Fim da exclusão
data: begin of itab_zycbt017 occurs 0.
include structure /pws/zycbt017.
data: end of itab_zycbt017.
data: begin of itab_zycbt017_saldo occurs 0.
include structure /pws/zycbt017.
data: end of itab_zycbt017_saldo.
data: begin of itab_zycbt027_emb occurs 0.
include structure /pws/zycbt027.
data: end of itab_zycbt027_emb.
data: begin of itab_excluidos occurs 0,
...
...
end of itab_excluidos.
data: begin of itab_vlslf occurs 0,
nrinvoic like /pws/zycbe017-nrinvoic,
nrparcf like /pws/zycbe017-nrparcf,
gsberf like /pws/zycbt017-gsberf,
vlslf like /pws/zycbt017-vlslf,
end of itab_vlslf.
data:
v_cont type c,
mark,
* >> Início da exclusão:
vlslf_old like /pws/zycbt027-vlslf,
* << Fim da exclusão
cliente like kna1-name1,
* >> Início da exclusão:
v_vlslfc1 like itab_zycbt027-vlme,
* << Fim da exclusão
v_bconegoc like lfa1-name1,
ok_code like sy-ucomm,
v_temporario like /pws/zycbe027-vlslf,
v_saldo_ccred like /pws/zycbe026-vlme,
* >> Início da exclusão:
v_nrinvoic like /pws/zycbt017-nrinvoic,
* << Fim da exclusão
* >> Início da inclusão:
v_nrinvoic like /pws/zycbt017-nrinvoic,"#EC NEEDED
* << Fim da inclusão
v_kunag like /pws/zycbt017-kunag,
* >> Início da exclusão:
v_sel type i,
* << Fim da exclusão
v_ind_dif(14) type p decimals 2,
v_ind_inclusao type c,
v_vlme_old(14) type p decimals 2,
v_vlslf_old(14) type p decimals 2,
* >> Início da exclusão:
v_slvinc_old(14) type p decimals 2,
* << Fim da exclusão
* >> Início da inclusão:
v_slvinc_old(14) type p decimals 2,"#EC NEEDED
* << Fim da inclusão
v_ind_mudanca type c,
v_ind_erroinv type c,
v_resposta(1) type c,
v_tfill like sy-tfill,
* >> Início da exclusão:
v_adicional like /pws/zycbt027-vlme,
v_slvinc_cred like /pws/zycbt026-slvinc,
* << Fim da exclusão
* >> Início da inclusão:
v_adicional like /pws/zycbt027-vlme,"#EC NEEDED
v_slvinc_cred like /pws/zycbt026-slvinc,"#EC NEEDED
* << Fim da inclusão
v_lim_cred like /pws/zycbt026-vlme,
* >> Início da exclusão:
v_atualizado type c value ' ',
* << Fim da exclusão
* >> Início da inclusão:
v_atualizado type c value ' ',"#EC NEEDED
* << Fim da inclusão
v_mensagem type c,
v_vlvinc_real like /pws/zycbt026-slvinc,
* >> Início da exclusão:
v_vlslf like /pws/zycbt027-vlslf,
* << Fim da exclusão
v_total like /pws/zycbt027-vlme,
* >> Início da exclusão:
v_bukrs like /pws/zycbt017-bukrs,
* << Fim da exclusão
v_k type i value 0,
v_saldo type c,
v_linha type c,
v_erro type c.
controls:
tc_faturas type tableview using screen '0100',
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB006
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 004
Texto: (53 caracteres)
"A liquidação não pode ser excluída, pois já foi paga!"
Comprimento máximo: 53
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB007
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 001
Texto: (41 caracteres)
"Despesa de Carta de Crédito inexistente !"
Comprimento máximo: 41
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 002
Texto: (39 caracteres)
"Nº Seqüencial de Controle inexistente !"
Comprimento máximo: 39
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 004
Texto: (41 caracteres)
"Nº Seqüencial de Controle já cadastrado !"
Comprimento máximo: 41
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 006
Texto: (55 caracteres)
"Salvar a primeira tela para acessar a tela de despesa !"
Comprimento máximo: 55
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 007
Texto: (51 caracteres)
"Dados de despesa de Carta de Crédito inexistentes !"
Comprimento máximo: 51
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 008
Texto: (19 caracteres)
"Nao exite despesa !"
Comprimento máximo: 19
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 009
Texto: (21 caracteres)
"Deseja gerar despesa?"
Comprimento máximo: 21
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 010
Texto: (13 caracteres)
"Gerar despesa"
Comprimento máximo: 13
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 011
Texto: (54 caracteres)
"Salvar a primeira tela para acessar a tela de emenda !"
Comprimento máximo: 54
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 012
Texto: (18 caracteres)
"Despesa da emenda:"
Comprimento máximo: 18
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 013
Texto: (3 caracteres)
"em:"
Comprimento máximo: 3
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 014
Texto: (31 caracteres)
"Deseja sobrepor as informações?"
Comprimento máximo: 31
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 041
Texto: (27 caracteres)
"É possivel apenas exibí-la."
Comprimento máximo: 27
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 046
Texto: (18 caracteres)
"CE - Consignatário"
Comprimento máximo: 18
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 047
Texto: (8 caracteres)
"Rua e nº"
Comprimento máximo: 8
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 048
Texto: (6 caracteres)
"Cidade"
Comprimento máximo: 6
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 049
Texto: (8 caracteres)
"Condição"
Comprimento máximo: 8
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 050
Texto: (13 caracteres)
"Porto Destino"
Comprimento máximo: 13
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 051
Texto: (17 caracteres)
"Porto de Embarque"
Comprimento máximo: 17
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 052
Texto: (18 caracteres)
"Meio de Transporte"
Comprimento máximo: 18
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 053
Texto: (13 caracteres)
"Texto do Item"
Comprimento máximo: 13
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 054
Texto: (11 caracteres)
"Nº Material"
Comprimento máximo: 11
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 055
Texto: (23 caracteres)
"Valor da Característica"
Comprimento máximo: 23
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 056
Texto: (16 caracteres)
"Texto Descritivo"
Comprimento máximo: 16
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 057
Texto: (41 caracteres)
"Favor Salvar Textos de Obs Invoice e Obs."
Comprimento máximo: 41
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 058
Texto: (30 caracteres)
"Caso contrario serão perdidos."
Comprimento máximo: 30
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 059
Texto: (18 caracteres)
"Registro Alterado."
Comprimento máximo: 18
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 060
Texto: (9 caracteres)
"Documento"
Comprimento máximo: 9
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 061
Texto: (14 caracteres)
"foi eliminado."
Comprimento máximo: 14
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 062
Texto: (17 caracteres)
"foi estornado por"
Comprimento máximo: 17
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB008
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 005
Texto: (49 caracteres)
"O valor a vincular ultrapassa o saldo disponível."
Comprimento máximo: 49
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 006
Texto: (35 caracteres)
"Fatura em duplicidade, o saldo será"
Comprimento máximo: 35
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 007
Texto: (22 caracteres)
"adicionado ao anterior"
Comprimento máximo: 22
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 015
Texto: (33 caracteres)
"Não existe mais saldo a vincular!"
Comprimento máximo: 33