CE PLUS - Nota 006037
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Relatórios
Data/Hora da Publicação: 27/02/2008 00:00:00
Data/Hora Última Alteração: 03/03/2010 17:50:11
Descrição da Nota: CB - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA
Sintoma
CB - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA
Solução
CB - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 06037 Data: 27/02/2008 Hora: 10:06:21
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06037
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00036
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
CB - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA
----------------------------------------------------------------------------------------------------
Palavras Chave:
CB - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA
----------------------------------------------------------------------------------------------------
Objetos da nota:
FUNC /PWS/EFETUA_CONVERSAO
FUNC /PWS/F4IF_SHLP_EXIT_ZYCBA235
FUNC /PWS/F4IF_SHLP_EXIT_ZYCBA249
FUNC /PWS/ZYCBA069
FUNC /PWS/ZYCBA072
FUNC /PWS/ZYCBA121
FUNC /PWS/ZYCBA127
FUNC /PWS/ZYCBA173
FUNC /PWS/ZYCBA192
FUNC /PWS/ZYCBA202
FUNC /PWS/ZYCBA275
FUNC /PWS/ZYCBA282
FUNC /PWS/ZYCB_CALCULA_JUROS
FUNC /PWS/ZYCB_DOCUMENTO_RECUPERA
FUNC /PWS/ZYCB_DOCUMENTO_VERIFICA
FUNC /PWS/ZYCB_JUROS_CALCULA
FUNC /PWS/ZYCB_MONTANTE_CONVERTE
FUNC /PWS/ZYCB_PARIDADE_CALCULA
FUNC /PWS/ZYCE_SELECT_FIELDS
FUNC /PWS/ZYCMA008
FUNC /PWS/ZYCMA009
FUNC /PWS/ZYCMA027
FUNC /PWS/ZYCMA028
FUNC /PWS/ZYGL_CONVERTE_TAXA
FUNC /PWS/ZYGL_DADOS_FIN
FUNC /PWS/ZYGL_DADOS_IMP
FUNC /PWS/ZYGL_EXCEL
FUNC /PWS/ZYGL_GERA_RELATORIO_ALV
FUNC /PWS/ZYGL_LOG_TABLE
FUNC /PWS/ZYGL_MODO_BATCH_INPUT
FUNC /PWS/ZYGL_MONTANTE_CONVERTE
FUNC /PWS/ZYGL_OBTEM_ANO_CONTABIL
FUNC /PWS/ZYGL_PARAMETRO_IMPRESSAO
FUNC /PWS/ZYGL_RETORNA_STATUS
RELE F6DK958377 20080227 100150 PWSCB
REPS /PWS/LZYCBGF3TOP
REPS /PWS/LZYCBGFF01
REPS /PWS/LZYCBGFTOP
REPS /PWS/ZZYCBGF3U01
REPS /PWS/ZZYCBGF3U02
REPS /PWS/ZZYCBGF3U04
REPS /PWS/ZZYCBGF3U06
REPS /PWS/ZZYCBGF3U07
REPS /PWS/ZZYCBGF3U10
REPS /PWS/ZZYCBGF3U26
REPS /PWS/ZZYCBGF3U35
REPS /PWS/ZZYCBGF3U38
REPS /PWS/ZZYCBGF3U41
REPS /PWS/ZZYCBGF3U44
REPS /PWS/ZZYCBGF3U47
REPS /PWS/ZZYCBGF3U55
REPT /PWS/SAPLZYCBGF
REPT /PWS/SAPLZYCBGF3
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/EFETUA_CONVERSAO
FUNCTION /pws/efetua_conversao.
DATA:
v_defator TYPE tcurr-ffact,
v_parafator TYPE tcurr-tfact,
v_decde TYPE bapi1090_1,
v_decpara TYPE bapi1090_1,
* >> Início da exclusão: FUNCTION /PWS/EFETUA_CONVERSAO
v_bapireturn TYPE bapireturn.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/EFETUA_CONVERSAO
v_bapireturn TYPE bapireturn."#EC *
* << Fim da inclusão
CHECK:
NOT p_waersde IS INITIAL,
NOT p_waerspara IS INITIAL,
( p_valorde > 0 AND p_parid > 0 ) OR
( p_valorde > 0 AND p_valorpara > 0 ) OR
( p_parid > 0 AND p_valorpara > 0 ).
CHECK NOT p_kurst IS INITIAL.
CALL FUNCTION '/PWS/ZYGL_MONTANTE_CONVERTE'
EXPORTING
i_montante = p_valorde
i_demoeda = p_waersde
i_paramoeda = p_waerspara
i_ctmoeda = p_kurst
i_dtbase = sy-datum
IMPORTING
e_defator = v_defator
e_parafator = v_parafator
EXCEPTIONS
* >> Início da exclusão: FUNCTION /PWS/EFETUA_CONVERSAO
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
tabela_categ_nao_configurada = 8
OTHERS = 9.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/EFETUA_CONVERSAO
i_demoeda_nao_encontrado = 0
i_paramoeda_nao_encontrado = 0
i_ctmoeda_nao_encontrado = 0
i_dtbase_nao_encontrada = 0
taxa_nao_encontrada = 0
fator_nao_encontrado = 0
i_montante_nao_encontrado = 0
tabela_categ_nao_configurada = 0
OTHERS = 0.
* << Fim da inclusão
IF sy-subrc <> 0.
ENDIF.
IF p_waersde <> p_waerspara.
CALL FUNCTION 'BAPI_CURRENCY_GETDECIMALS'
EXPORTING
currency = p_waersde
IMPORTING
currency_decimals = v_decde
return = v_bapireturn.
CALL FUNCTION 'BAPI_CURRENCY_GETDECIMALS'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/F4IF_SHLP_EXIT_ZYCBA235
...
BEGIN OF t_s_shlp,
mandt TYPE vbak-mandt,
vbeln_va TYPE vbak-vbeln,
netwr TYPE vbak-netwr,
kunnr TYPE vbak-kunnr,
END OF t_s_shlp,
t_t_shlp TYPE STANDARD TABLE OF t_s_shlp.
TYPE-POOLS: sydes.
DATA: t_sydes TYPE sydes_desc,
wa_types TYPE sydes_typeinfo,
* >> Início da exclusão: FUNCTION /PWS/F4IF_SHLP_EXIT_ZYCBA235
v_len TYPE i.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/F4IF_SHLP_EXIT_ZYCBA235
v_len TYPE i."#EC *
* << Fim da inclusão
DATA:
shlp_tab_aux TYPE t_t_shlp,
v_fieldname TYPE dfies-lfieldname.
FIELD-SYMBOLS:
<fs_shlp_struc> LIKE LINE OF shlp_tab_aux,
<fs_shlp> LIKE LINE OF shlp_tab,
<fs_fielddescr> LIKE LINE OF shlp_tab-fielddescr.
IMPORT v_kunnr FROM MEMORY ID '112'.
IF callcontrol-step = 'RETURN'.
READ TABLE shlp_tab INDEX 1 ASSIGNING <fs_shlp>.
...
...
parameter = <fs_fielddescr>-fieldname
fieldname = v_fieldname
TABLES
shlp_tab = shlp_tab
record_tab = record_tab
results_tab = shlp_tab_aux
CHANGING
shlp = shlp
callcontrol = callcontrol
EXCEPTIONS
* >> Início da exclusão: FUNCTION /PWS/F4IF_SHLP_EXIT_ZYCBA235
parameter_unknown = 1
OTHERS = 2.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/F4IF_SHLP_EXIT_ZYCBA235
parameter_unknown = 0
OTHERS = 0.
* << Fim da inclusão
IF sy-subrc <> 0.
ENDIF.
ENDLOOP.
ENDIF.
READ TABLE shlp_tab_aux INDEX 1 ASSIGNING <fs_shlp_struc>.
IF <fs_shlp_struc> IS ASSIGNED.
EXPORT <fs_shlp_struc> TO MEMORY ID 'ZYCBA235'.
ENDIF.
ELSE.
TYPES: BEGIN OF ts_data,
...
...
DATA:
iselopt LIKE ddshselopt OCCURS 0,
x030l_wa LIKE x030l,
x031l_tab LIKE x031l OCCURS 0,
irc LIKE sy-subrc,
escape TYPE c,
output_descr TYPE TABLE OF dfies WITH HEADER LINE,
maxrows_save TYPE i,
lin LIKE sy-tabix,
rc LIKE sy-subrc,
* >> Início da exclusão: FUNCTION /PWS/F4IF_SHLP_EXIT_ZYCBA235
sort TYPE c,
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/F4IF_SHLP_EXIT_ZYCBA235
sort TYPE c,"#EC *
* << Fim da inclusão
maxcount TYPE i,
i_record TYPE ts_data_aux.
DATA:
itab_data TYPE TABLE OF ts_data WITH HEADER LINE.
* >> Início da exclusão: FUNCTION /PWS/F4IF_SHLP_EXIT_ZYCBA235
DATA: BEGIN OF where_tab OCCURS 20,
line(72) TYPE c,
END OF where_tab.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/F4IF_SHLP_EXIT_ZYCBA235
DATA: BEGIN OF where_tab OCCURS 20,"#EC *
line(72) TYPE c,"#EC *
END OF where_tab."#EC *
* << Fim da inclusão
CHECK callcontrol-step = 'SELECT' OR
callcontrol-step = 'TSTSEL'.
CLEAR callcontrol-maxexceed.
CLEAR callcontrol-steprc.
REFRESH record_tab.
IF callcontrol-step = 'TSTSEL'.
maxcount = 100.
ELSE.
maxcount = callcontrol-maxrecords.
IF shlp-intdescr-dialogtype <> 'C'.
...
...
not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE e117(dh) WITH shlp-intdescr-selmethod.
ENDIF.
PERFORM purify_selopt_fields(saplsdh3) TABLES iselopt x031l_tab
CHANGING irc.
PERFORM check_escape_allowed(saplsdh3) USING x030l_wa
CHANGING escape.
IF sy-saprl(2) NE '46'.
* >> Início da exclusão: FUNCTION /PWS/F4IF_SHLP_EXIT_ZYCBA235
CALL FUNCTION 'F4_CONV_SELOPT_TO_WHERECLAUSE'
TABLES
selopt_tab = iselopt.
* << Fim da exclusão
ELSE.
* >> Início da exclusão: FUNCTION /PWS/F4IF_SHLP_EXIT_ZYCBA235
PERFORM selopt2whereclause(saplsdh3)
TABLES iselopt
where_tab
USING escape.
* << Fim da exclusão
ENDIF.
SELECT mandt
vbeln_va
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/F4IF_SHLP_EXIT_ZYCBA249
...
werks TYPE /pws/zycbt017-werks,
dtvencto TYPE /pws/zycbt017-dtvencto,
vlavinc TYPE /pws/zycbt017-vlavinc,
vlslf TYPE /pws/zycbt017-vlslf,
vlsltrans TYPE /pws/zycbt030-vlsltrans,
shkzg TYPE /pws/zycbt030-shkzg,
END OF t_s_dados,
t_t_dados TYPE STANDARD TABLE OF t_s_dados.
DATA:
itab_dados TYPE t_t_dados,
* >> Início da exclusão: FUNCTION /PWS/F4IF_SHLP_EXIT_ZYCBA249
wa_dados LIKE LINE OF itab_dados,
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/F4IF_SHLP_EXIT_ZYCBA249
wa_dados LIKE LINE OF itab_dados, "#EC *
* << Fim da inclusão
v_fieldname TYPE dfies-lfieldname.
FIELD-SYMBOLS:
<fs_shlp> LIKE LINE OF shlp_tab,
<fs_fielddescr> LIKE LINE OF shlp_tab-fielddescr,
<fs_dados> LIKE LINE OF itab_dados.
CLEAR callcontrol-maxrecords.
IF callcontrol-step = 'DISP'.
READ TABLE shlp_tab INDEX 1 ASSIGNING <fs_shlp>.
CHECK <fs_shlp> IS ASSIGNED.
LOOP AT <fs_shlp>-fielddescr ASSIGNING <fs_fielddescr>.
...
...
CHECK callcontrol-step = 'RETURN'.
READ TABLE record_tab INDEX 1.
IF sy-subrc = '0' AND record_tab+0(3) EQ sy-mandt.
MOVE record_tab-string(1000) TO v_tab(1000).
ELSEIF sy-subrc = '0'.
CONCATENATE '###' record_tab-string INTO v_tab.
REPLACE '###' WITH ' ' INTO v_tab.
ENDIF.
CLEAR shlp_struc.
MOVE: v_tab(60) TO shlp_struc(60).
* >> Início da exclusão: FUNCTION /PWS/F4IF_SHLP_EXIT_ZYCBA249
GET PARAMETER ID 'F4GMETHOD' FIELD ask_activex.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/F4IF_SHLP_EXIT_ZYCBA249
GET PARAMETER ID 'F4GMETHOD' FIELD ask_activex. "#EC *
* << Fim da inclusão
IF ask_activex EQ 'ActiveX'.
CLEAR: shlp_struc-dtvencto.
CONCATENATE v_tab+58(4)
v_tab+55(2)
v_tab+52(2)
INTO shlp_struc-dtvencto.
ENDIF.
* >> Início da exclusão: FUNCTION /PWS/F4IF_SHLP_EXIT_ZYCBA249
SELECT SINGLE vlsltrans INTO shlp_struc-vlsltrans
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/F4IF_SHLP_EXIT_ZYCBA249
SELECT vlsltrans INTO shlp_struc-vlsltrans
* << Fim da inclusão
FROM /pws/zycbt030
* >> Início da inclusão: FUNCTION /PWS/F4IF_SHLP_EXIT_ZYCBA249
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrinvoic = v_tab+3(15)
AND nrparcf = v_tab+27(2)
AND gsberf = v_tab+23(4).
* >> Início da inclusão: FUNCTION /PWS/F4IF_SHLP_EXIT_ZYCBA249
ENDSELECT.
* << Fim da inclusão
IF ask_activex NE 'ActiveX'.
shlp_curr-shlpname = '/PWS/ZYCBA249'.
EXPORT shlp_curr TO MEMORY ID 'mcx_shlp_curr'.
EXPORT record_tab[] TO MEMORY ID 'mcx_record_tab'.
ENDIF.
EXPORT shlp_struc TO MEMORY ID 'ZYCBA249'.
ENDFUNCTION.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCBA069
...
kunnr TYPE kna1-kunnr,
name1 TYPE kna1-name1,
fvinc TYPE /pws/zycbt017-fvinc,
waers TYPE /pws/zycbt017-waers,
kunag TYPE /pws/zycbt017-kunag,
spras TYPE kna1-spras,
END OF t_s_dados,
t_t_dados TYPE STANDARD TABLE OF t_s_dados.
DATA:
itab_dados TYPE t_t_dados,
* >> Início da exclusão: FUNCTION /PWS/ZYCBA069
wa_dados LIKE LINE OF itab_dados,
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCBA069
wa_dados LIKE LINE OF itab_dados,"#EC *
* << Fim da inclusão
v_fieldname TYPE dfies-lfieldname,
v_tabix type sy-tabix.
DATA: BEGIN OF itab_zycet001 OCCURS 0,
nrinvoic LIKE /pws/zycet001-nrseq,
gsberf LIKE /pws/zycet001-gsber,
END OF itab_zycet001.
FIELD-SYMBOLS:
<fs_shlp> LIKE LINE OF shlp_tab,
<fs_fielddescr> LIKE LINE OF shlp_tab-fielddescr,
<fs_dados> LIKE LINE OF itab_dados.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCBA072
...
BEGIN OF t_s_dados,
nrseqc TYPE /pws/zycbt001-nrseqc,
nrcontr TYPE /pws/zycbt001-nrcontr,
tpcontr TYPE /pws/zycbt001-tpcontr,
slvinc TYPE /pws/zycbt001-slvinc,
waers TYPE /pws/zycbt001-waers,
END OF t_s_dados,
t_t_dados TYPE STANDARD TABLE OF t_s_dados.
DATA:
itab_dados TYPE t_t_dados,
* >> Início da exclusão: FUNCTION /PWS/ZYCBA072
wa_dados LIKE LINE OF itab_dados,
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCBA072
wa_dados LIKE LINE OF itab_dados,"#EC *
* << Fim da inclusão
v_fieldname TYPE dfies-lfieldname.
FIELD-SYMBOLS:
<fs_shlp> LIKE LINE OF shlp_tab,
<fs_fielddescr> LIKE LINE OF shlp_tab-fielddescr,
<fs_dados> LIKE LINE OF itab_dados.
IF callcontrol-step = 'DISP'.
READ TABLE shlp_tab INDEX 1 ASSIGNING <fs_shlp>.
CHECK <fs_shlp> IS ASSIGNED.
LOOP AT <fs_shlp>-fielddescr ASSIGNING <fs_fielddescr>.
CHECK <fs_fielddescr>-fieldname = 'NRSEQC' OR
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCBA121
...
nrparc TYPE /pws/zycbt113-nrparc,
waers TYPE /pws/zycbt112-waers,
vlme TYPE /pws/zycbt112-vlme,
gsber TYPE /pws/zycbt112-gsber,
bukrs TYPE /pws/zycbt112-bukrs,
codint TYPE /pws/zycbt112-codint,
END OF t_s_dados,
t_t_dados TYPE STANDARD TABLE OF t_s_dados.
DATA:
itab_dados TYPE t_t_dados,
* >> Início da exclusão: FUNCTION /PWS/ZYCBA121
wa_dados LIKE LINE OF itab_dados,
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCBA121
wa_dados LIKE LINE OF itab_dados,"#EC *
* << Fim da inclusão
v_fieldname TYPE dfies-lfieldname,
v_tabix type sy-tabix.
DATA: BEGIN OF itab_zycbt112 OCCURS 0,
nrseq TYPE /pws/zycbt112-nrseq,
slrefin TYPE /pws/zycbt112-slrefin,
END OF itab_zycbt112.
FIELD-SYMBOLS:
<fs_shlp> LIKE LINE OF shlp_tab,
<fs_fielddescr> LIKE LINE OF shlp_tab-fielddescr,
<fs_dados> LIKE LINE OF itab_dados.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCBA127
...
name1 TYPE LFA1-name1,
ebeln TYPE /pws/zycbt117-ebeln,
werks TYPE /pws/zycbt117-werks,
status TYPE /pws/zycbt117-status,
waers TYPE /pws/zycbt117-waers,
slpgant TYPE /pws/zycbt117-slpgant,
END OF t_s_dados,
t_t_dados TYPE STANDARD TABLE OF t_s_dados.
DATA:
itab_dados TYPE t_t_dados,
* >> Início da exclusão: FUNCTION /PWS/ZYCBA127
wa_dados LIKE LINE OF itab_dados,
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCBA127
wa_dados LIKE LINE OF itab_dados,"#EC *
* << Fim da inclusão
v_fieldname TYPE dfies-lfieldname.
FIELD-SYMBOLS:
<fs_shlp> LIKE LINE OF shlp_tab,
<fs_fielddescr> LIKE LINE OF shlp_tab-fielddescr,
<fs_dados> LIKE LINE OF itab_dados.
IF callcontrol-step = 'DISP'.
READ TABLE shlp_tab INDEX 1 ASSIGNING <fs_shlp>.
CHECK <fs_shlp> IS ASSIGNED.
LOOP AT <fs_shlp>-fielddescr ASSIGNING <fs_fielddescr>.
CHECK <fs_fielddescr>-fieldname = 'NRSEQ' OR
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCBA173
...
BEGIN OF t_s_dados,
nrseq TYPE /pws/zycbt119-nrseq,
nrpagto TYPE /pws/zycbt119-nrpagto,
vlme TYPE /pws/zycbt119-vlme,
waers TYPE /pws/zycbt119-waers,
bukrs TYPE /pws/zycbt119-bukrs,
END OF t_s_dados,
t_t_dados TYPE STANDARD TABLE OF t_s_dados.
DATA:
itab_dados TYPE t_t_dados,
* >> Início da exclusão: FUNCTION /PWS/ZYCBA173
wa_dados LIKE LINE OF itab_dados,
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCBA173
wa_dados LIKE LINE OF itab_dados,"#EC *
* << Fim da inclusão
v_fieldname TYPE dfies-lfieldname,
v_tabix type sy-tabix.
DATA: BEGIN OF itab_zycbt108 OCCURS 0,
bukrs TYPE /pws/zycbt108-bukrs,
belnr TYPE /pws/zycbt108-belnr,
nrseq_pgfat TYPE /pws/zycbt108-nrseq_pgfat,
slfat TYPE /pws/zycbt108-slfat,
END OF itab_zycbt108.
FIELD-SYMBOLS:
<fs_shlp> LIKE LINE OF shlp_tab,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCBA192
...
kunag TYPE /pws/zycbt017-kunag,
spras TYPE kna1-spras,
END OF t_s_dados,
t_t_dados TYPE STANDARD TABLE OF t_s_dados.
DATA: BEGIN OF itab_zycet001 OCCURS 0,
nrinvoic LIKE /pws/zycet001-nrseq,
gsberf LIKE /pws/zycet001-gsber,
END OF itab_zycet001.
DATA:
itab_dados TYPE t_t_dados,
* >> Início da exclusão: FUNCTION /PWS/ZYCBA192
wa_dados LIKE LINE OF itab_dados,
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCBA192
wa_dados LIKE LINE OF itab_dados,"#EC *
* << Fim da inclusão
v_fieldname TYPE dfies-lfieldname,
v_tabix type sy-tabix.
FIELD-SYMBOLS:
<fs_shlp> LIKE LINE OF shlp_tab,
<fs_fielddescr> LIKE LINE OF shlp_tab-fielddescr,
<fs_dados> LIKE LINE OF itab_dados.
IF callcontrol-step = 'DISP'.
READ TABLE shlp_tab INDEX 1 ASSIGNING <fs_shlp>.
CHECK <fs_shlp> IS ASSIGNED.
LOOP AT <fs_shlp>-fielddescr ASSIGNING <fs_fielddescr>.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCBA202
...
nrcontr TYPE /pws/zycbt001-nrcontr,
tpcontr TYPE /pws/zycbt001-tpcontr,
bukrs TYPE /pws/zycbt001-bukrs,
gsber TYPE /pws/zycbt001-gsber,
waers TYPE /pws/zycbt001-waers,
slvinc TYPE /pws/zycbt001-slvinc,
END OF t_s_dados,
t_t_dados TYPE STANDARD TABLE OF t_s_dados.
DATA:
itab_dados TYPE t_t_dados,
* >> Início da exclusão: FUNCTION /PWS/ZYCBA202
wa_dados LIKE LINE OF itab_dados,
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCBA202
wa_dados LIKE LINE OF itab_dados,"#EC *
* << Fim da inclusão
v_fieldname TYPE dfies-lfieldname.
FIELD-SYMBOLS:
<fs_shlp> LIKE LINE OF shlp_tab,
<fs_fielddescr> LIKE LINE OF shlp_tab-fielddescr,
<fs_dados> LIKE LINE OF itab_dados.
IF callcontrol-step = 'DISP'.
READ TABLE shlp_tab INDEX 1 ASSIGNING <fs_shlp>.
CHECK <fs_shlp> IS ASSIGNED.
LOOP AT <fs_shlp>-fielddescr ASSIGNING <fs_fielddescr>.
CHECK <fs_fielddescr>-fieldname = 'NRSEQC' OR
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCBA275
...
t_t_zycbt089 TYPE SORTED TABLE OF t_s_zycbt089
WITH UNIQUE KEY bukrs,
t_t_zycbt226 TYPE SORTED TABLE OF t_s_zycbt226
WITH NON-UNIQUE KEY nrinvoic nrparcf gsberf,
t_t_zycbt209 TYPE SORTED TABLE OF t_s_zycbt209
WITH NON-UNIQUE KEY nrinvoic nrparcf gsberf.
DATA:
itab_invoice TYPE t_t_invoice,
itab_zycbt089 TYPE t_t_zycbt089,
itab_zycbt226 TYPE t_t_zycbt226,
* >> Início da exclusão: FUNCTION /PWS/ZYCBA275
itab_zycbt226_soma LIKE itab_zycbt226,
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCBA275
itab_zycbt226_soma LIKE itab_zycbt226,"#EC *
* << Fim da inclusão
itab_zycbt209 TYPE t_t_zycbt209,
v_fieldname TYPE dfies-lfieldname,
* >> Início da exclusão: FUNCTION /PWS/ZYCBA275
v_nrinvoice TYPE /pws/zycbv216-nrinvoic,
v_index TYPE sy-tabix,
v_nrparcf TYPE /pws/zycbv216-nrparcf,
v_gsberf TYPE /pws/zycbv216-gsberf,
v_vlsltrans TYPE /pws/zycbv216-vlsltrans.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCBA275
v_nrinvoice TYPE /pws/zycbv216-nrinvoic,"#EC *
v_index TYPE sy-tabix,"#EC *
v_nrparcf TYPE /pws/zycbv216-nrparcf,"#EC *
v_gsberf TYPE /pws/zycbv216-gsberf,"#EC *
v_vlsltrans TYPE /pws/zycbv216-vlsltrans."#EC *
* << Fim da inclusão
FIELD-SYMBOLS:
<fs_shlp> LIKE LINE OF shlp_tab,
<fs_fielddescr> LIKE LINE OF shlp_tab-fielddescr,
<fs_invoice> LIKE LINE OF itab_invoice,
* >> Início da exclusão: FUNCTION /PWS/ZYCBA275
<fs_zycbt089> LIKE LINE OF itab_zycbt089,
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCBA275
<fs_zycbt089> LIKE LINE OF itab_zycbt089,"#EC *
* << Fim da inclusão
<fs_zycbt209> LIKE LINE OF itab_zycbt209,
* >> Início da exclusão: FUNCTION /PWS/ZYCBA275
<fs_zycbt226> LIKE LINE OF itab_zycbt226.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCBA275
<fs_zycbt226> LIKE LINE OF itab_zycbt226."#EC *
* << Fim da inclusão
CLEAR callcontrol-maxrecords.
IF callcontrol-step = 'DISP'.
READ TABLE shlp_tab INDEX 1 ASSIGNING <fs_shlp>.
...
...
parameter = <fs_fielddescr>-fieldname
fieldname = v_fieldname
TABLES
shlp_tab = shlp_tab
record_tab = record_tab
results_tab = itab_invoice
CHANGING
shlp = shlp
callcontrol = callcontrol
EXCEPTIONS
* >> Início da exclusão: FUNCTION /PWS/ZYCBA275
parameter_unknown = 1
OTHERS = 2.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCBA275
parameter_unknown = 0
OTHERS = 0.
* << Fim da inclusão
IF sy-subrc <> 0.
ENDIF.
ENDLOOP.
SELECT
NRINVOIC
NRPARCF
GSBERF
SALDO
FROM /pws/zycbt209
INTO TABLE itab_zycbt209
...
...
parameter = 'VLSLTRANS'
fieldname = 'VLSLTRANS'
TABLES
shlp_tab = shlp_tab
record_tab = record_tab
source_tab = itab_invoice
CHANGING
shlp = shlp
callcontrol = callcontrol
EXCEPTIONS
* >> Início da exclusão: FUNCTION /PWS/ZYCBA275
parameter_unknown = 1
OTHERS = 2.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCBA275
parameter_unknown = 0
OTHERS = 0.
* << Fim da inclusão
IF sy-subrc <> 0.
ENDIF.
EXPORT itab_invoice[] TO MEMORY ID 'itab_invoice_275'.
ELSEIF callcontrol-step = 'RETURN'.
EXPORT record_tab[] TO MEMORY ID 'mcx_record_tab_275'.
ENDIF.
ENDFUNCTION.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCBA282
FUNCTION /PWS/ZYCBA282.
TYPE-POOLS:
shlp.
TYPES: BEGIN OF t_s_dados.
INCLUDE STRUCTURE /pws/zycbt226.
TYPES: END OF t_s_dados,
t_t_dados TYPE STANDARD TABLE OF t_s_dados.
DATA:
itab_dados TYPE t_t_dados,
* >> Início da exclusão: FUNCTION /PWS/ZYCBA282
wa_dados LIKE LINE OF itab_dados,
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCBA282
wa_dados LIKE LINE OF itab_dados,"#EC *
* << Fim da inclusão
v_fieldname TYPE dfies-lfieldname,
* >> Início da exclusão: FUNCTION /PWS/ZYCBA282
v_bco_me TYPE /pws/zycbe001-bcocred,
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCBA282
v_bco_me TYPE /pws/zycbe001-bcocred,"#EC *
* << Fim da inclusão
v_kunag TYPE /pws/zycbe001-kunnr.
FIELD-SYMBOLS:
<fs_shlp> LIKE LINE OF shlp_tab,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_CALCULA_JUROS
...
v_nrdias TYPE i,
v_nrdiabase TYPE i,
v_evento(5) TYPE c.
DATA: itab_zycbt007 LIKE /pws/zycbt007 OCCURS 0 WITH HEADER LINE.
MOVE-CORRESPONDING /pws/zycbt007 TO itab_zycbt007.
APPEND itab_zycbt007.
v_nrdias = p_dtate - p_dtde.
READ TABLE itab_zycbt010 WITH KEY tptxjur = p_tptxjur.
v_nrdiabase = itab_zycbt010-nrdias.
CONCATENATE '002' /pws/zycbt001-tpcontr INTO v_evento.
* >> Início da exclusão: FORM PROCESSA_CALCULO_JUROS
SELECT SINGLE *
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSA_CALCULO_JUROS
SELECT *
* << Fim da inclusão
FROM /pws/zycbt011
* >> Início da inclusão: FORM PROCESSA_CALCULO_JUROS
UP TO 1 ROWS
* << Fim da inclusão
WHERE codeven = v_evento AND
codmod = 'E'.
* >> Início da inclusão: FORM PROCESSA_CALCULO_JUROS
ENDSELECT.
* << Fim da inclusão
READ TABLE itab_zycbt009 WITH KEY codpadr = /pws/zycbt011-ctmoed.
* >> Início da inclusão: FORM PROCESSA_CALCULO_JUROS
"#EC *
* << Fim da inclusão
CHECK NOT p_txj IS INITIAL.
READ TABLE itab_tcurx WITH KEY currkey = p_moeda.
IF sy-subrc <> 0.
itab_tcurx-currdec = 2.
ENDIF.
v_vlmeaux = p_vlme / ( 10 ** ( itab_tcurx-currdec - 2 ) ).
CALL FUNCTION '/PWS/ZYCB_JUROS_CALCULA'
EXPORTING
i_vlme = v_vlmeaux
i_txj = p_txj
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_DOCUMENTO_RECUPERA
FUNCTION /PWS/ZYCB_DOCUMENTO_RECUPERA.
DATA:
V_AUGBL LIKE BSEG-AUGBL,
* >> Início da exclusão: FUNCTION /PWS/ZYCB_DOCUMENTO_RECUPERA
V_BELNR LIKE BSEG-BELNR.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DOCUMENTO_RECUPERA
v_belnr LIKE bseg-belnr. "#EC *
* << Fim da inclusão
V_AUGBL = I_AUGDT.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_DOCUMENTO_RECUPERA
SELECT SINGLE BELNR FROM BSAK
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DOCUMENTO_RECUPERA
SELECT belnr FROM bsak
* << Fim da inclusão
INTO (E_BELNR_A)
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DOCUMENTO_RECUPERA
UP TO 1 ROWS
* << Fim da inclusão
WHERE BUKRS = I_BUKRS
AND LIFNR = I_LIFNR
AND AUGBL = I_AUGBL
AND BELNR NE I_AUGBL
AND UMSKS NE ' '
AND UMSKZ NE ' '.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DOCUMENTO_RECUPERA
ENDSELECT.
* << Fim da inclusão
IF SY-SUBRC NE 0.
RAISE DOCUMENTO_NAO_ENCONTRADO.
ELSE.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_DOCUMENTO_RECUPERA
SELECT SINGLE BELNR FROM BSAK
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DOCUMENTO_RECUPERA
SELECT belnr FROM bsak
* << Fim da inclusão
INTO (E_BELNR_F)
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DOCUMENTO_RECUPERA
UP TO 1 ROWS
* << Fim da inclusão
WHERE BUKRS = I_BUKRS
AND LIFNR = I_LIFNR
AND AUGBL = I_AUGBL
AND BELNR NE I_AUGBL
AND UMSKS = ' '
AND UMSKZ = ' '.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DOCUMENTO_RECUPERA
ENDSELECT.
* << Fim da inclusão
IF SY-SUBRC NE 0.
RAISE DOCUMENTO_NAO_ENCONTRADO.
ENDIF.
ENDIF.
ENDFUNCTION.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_DOCUMENTO_VERIFICA
FUNCTION /PWS/ZYCB_DOCUMENTO_VERIFICA.
DATA:
V_AUGBL LIKE BSEG-AUGBL,
V_BELNR LIKE BSEG-BELNR.
V_BELNR = C_BELNR.
CASE I_MODULO.
WHEN 'S'.
DO.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_DOCUMENTO_VERIFICA
SELECT SINGLE BELNR FROM BSIS
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DOCUMENTO_VERIFICA
SELECT belnr FROM bsis
* << Fim da inclusão
INTO (C_BELNR)
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DOCUMENTO_VERIFICA
UP TO 1 ROWS
* << Fim da inclusão
WHERE BUKRS = I_BUKRS
AND HKONT = I_HKONT
AND GJAHR = I_GJAHR
AND BELNR = V_BELNR.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DOCUMENTO_VERIFICA
ENDSELECT.
* << Fim da inclusão
IF SY-SUBRC EQ 0.
EXIT.
ELSE.
SELECT AUGBL FROM BSAS
INTO (V_AUGBL)
WHERE BUKRS = I_BUKRS
AND HKONT = I_HKONT
AND GJAHR = I_GJAHR
AND BELNR = V_BELNR.
CHECK V_AUGBL NE ' '
...
...
ENDSELECT.
IF C_BELNR EQ V_BELNR.
RAISE DOCUMENTO_COMPENSADO.
ELSE.
V_BELNR = C_BELNR.
ENDIF.
ENDIF.
ENDDO.
WHEN 'K'.
DO.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_DOCUMENTO_VERIFICA
SELECT SINGLE BELNR FROM BSIK
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DOCUMENTO_VERIFICA
SELECT belnr FROM bsik
* << Fim da inclusão
INTO (C_BELNR)
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DOCUMENTO_VERIFICA
UP TO 1 ROWS
* << Fim da inclusão
WHERE BUKRS = I_BUKRS
AND LIFNR = I_LIFNR
AND GJAHR = I_GJAHR
AND BELNR = V_BELNR.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DOCUMENTO_VERIFICA
ENDSELECT.
* << Fim da inclusão
IF SY-SUBRC EQ 0.
EXIT.
ELSE.
SELECT AUGBL FROM BSAK
INTO (V_AUGBL)
WHERE BUKRS = I_BUKRS
AND LIFNR = I_LIFNR
AND GJAHR = I_GJAHR
AND BELNR = V_BELNR.
CHECK V_AUGBL NE ' '
...
...
ENDSELECT.
IF C_BELNR EQ V_BELNR.
RAISE DOCUMENTO_COMPENSADO.
ELSE.
V_BELNR = C_BELNR.
ENDIF.
ENDIF.
ENDDO.
WHEN 'D'.
DO.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_DOCUMENTO_VERIFICA
SELECT SINGLE BELNR FROM BSID
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DOCUMENTO_VERIFICA
SELECT belnr FROM bsid
* << Fim da inclusão
INTO (C_BELNR)
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DOCUMENTO_VERIFICA
UP TO 1 ROWS
* << Fim da inclusão
WHERE BUKRS = I_BUKRS
AND KUNNR = I_KUNNR
AND GJAHR = I_GJAHR
AND BELNR = V_BELNR.
* >> Início da inclusão: FUNCTION /PWS/ZYCB_DOCUMENTO_VERIFICA
ENDSELECT.
* << Fim da inclusão
IF SY-SUBRC EQ 0.
EXIT.
ELSE.
SELECT AUGBL FROM BSAD
INTO (V_AUGBL)
WHERE BUKRS = I_BUKRS
AND KUNNR = I_KUNNR
AND GJAHR = I_GJAHR
AND BELNR = V_BELNR.
CHECK V_AUGBL NE ' '
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_JUROS_CALCULA
...
raise ctg_cambio_nao_encontrada.
exit.
elseif i_dtbase is initial.
raise dtbase_nao_encontrada.
exit.
endif.
e_vlme = ( i_vlme * i_txj / 100 ) * i_nrdias / i_nrdiabase.
if not /pws/zycbt007[] is initial.
read table /pws/zycbt007 index 1.
else.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_JUROS_CALCULA
select single waersb
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_JUROS_CALCULA
SELECT waersb
* << Fim da inclusão
from /pws/zycbt007
* >> Início da exclusão: FUNCTION /PWS/ZYCB_JUROS_CALCULA
into /pws/zycbt007-waersb.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_JUROS_CALCULA
INTO /pws/zycbt007-waersb
UP TO 1 ROWS.
ENDSELECT.
* << Fim da inclusão
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_MONTANTE_CONVERTE
FUNCTION /pws/zycb_montante_converte.
DATA: i_rate_type LIKE tcurr-kurst,
exch_rate LIKE bapi1093_0,
* >> Início da exclusão: FUNCTION /PWS/ZYCB_MONTANTE_CONVERTE
return LIKE bapireturn1.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_MONTANTE_CONVERTE
return LIKE bapireturn1."#EC *
* << Fim da inclusão
CALL FUNCTION 'READ_EXCHANGE_RATE'
EXPORTING
date = i_dtbase
foreign_currency = i_demoeda
local_currency = i_paramoeda
type_of_rate = i_ctmoeda
IMPORTING
derived_rate_type = i_rate_type
EXCEPTIONS
no_rate_found = 1
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCB_PARIDADE_CALCULA
...
ELSEIF I_PARAMOEDA IS INITIAL.
RAISE PARAMOEDA_NAO_ENCONTRADO.
EXIT.
ELSEIF I_CTMOEDA IS INITIAL.
RAISE CTMOEDA_NAO_ENCONTRADO.
EXIT.
ELSEIF I_DTBASE IS INITIAL.
RAISE DTBASE_NAO_ENCONTRADO.
EXIT.
ENDIF.
* >> Início da exclusão: FUNCTION /PWS/ZYCB_PARIDADE_CALCULA
SELECT SINGLE WAERSB
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_PARIDADE_CALCULA
SELECT waersb
* << Fim da inclusão
FROM /PWS/ZYCBT007
* >> Início da exclusão: FUNCTION /PWS/ZYCB_PARIDADE_CALCULA
INTO /PWS/ZYCBT007-WAERSB .
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCB_PARIDADE_CALCULA
INTO /pws/zycbt007-waersb
UP TO 1 ROWS.
ENDSELECT.
* << Fim da inclusão
PERFORM OBTEM_TAXA_CAMBIO
...
...
PERFORM OBTEM_TAXA_CAMBIO_MOEDA
USING I_DTBASE I_DEMOEDA /PWS/ZYCBT007-WAERSB V_KURST
CHANGING V_TAXA_DEMOEDA.
E_PARIDADE = V_TAXA_PARAMOEDA / V_TAXA_DEMOEDA.
ENDFUNCTION.
FORM OBTEM_TAXA_CAMBIO_MOEDA
USING V_DTBASE V_MOEDA_E V_WAERSB V_KURST
CHANGING V_TAXA.
CALL FUNCTION 'READ_EXCHANGE_RATE'
EXPORTING
* >> Início da exclusão: FORM OBTEM_TAXA_CAMBIO_MOEDA
DATE = V_DTBASE
FOREIGN_CURRENCY = V_MOEDA_E
LOCAL_CURRENCY = V_WAERSB
TYPE_OF_RATE = V_KURST
* << Fim da exclusão
* >> Início da inclusão: FORM OBTEM_TAXA_CAMBIO_MOEDA
date = v_dtbase
foreign_currency = v_moeda_e
local_currency = v_waersb
type_of_rate = v_kurst
* << Fim da inclusão
IMPORTING
* >> Início da exclusão: FORM OBTEM_TAXA_CAMBIO_MOEDA
EXCHANGE_RATE = V_TAXA
* << Fim da exclusão
* >> Início da inclusão: FORM OBTEM_TAXA_CAMBIO_MOEDA
exchange_rate = v_taxa
* << Fim da inclusão
EXCEPTIONS
* >> Início da exclusão: FORM OBTEM_TAXA_CAMBIO_MOEDA
NO_RATE_FOUND = 1
NO_FACTORS_FOUND = 2
NO_SPREAD_FOUND = 3
DERIVED_2_TIMES = 4
OTHERS = 5.
* << Fim da exclusão
* >> Início da inclusão: FORM OBTEM_TAXA_CAMBIO_MOEDA
no_rate_found = 1
no_factors_found = 2
no_spread_found = 3
derived_2_times = 4
OTHERS = 5.
* << Fim da inclusão
IF SY-SUBRC = 1.
RAISE TAXA_NAO_ENCONTRADA.
EXIT.
ELSEIF SY-SUBRC = 2.
RAISE FATOR_NAO_ENCONTRADO.
EXIT.
ELSEIF SY-SUBRC = 3.
RAISE SPREAD_NAO_ENCONTRADO.
EXIT.
ELSEIF SY-SUBRC = 4.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCE_SELECT_FIELDS
function /pws/zyce_select_fields.
itab_int-sconrf = i_referencia.
* >> Início da exclusão: FUNCTION /PWS/ZYCE_SELECT_FIELDS
read table itab_j1 with key itab_int binary search.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCE_SELECT_FIELDS
SORT itab_int BY sconrf ASCENDING.
READ TABLE itab_j1 WITH KEY sconrf = itab_int-sconrf BINARY SEARCH.
"#EC *
* << Fim da inclusão
if not sy-subrc is initial.
select single * from j_1bam
where sconrf = i_referencia.
if not sy-subrc is initial.
* >> Início da exclusão: FUNCTION /PWS/ZYCE_SELECT_FIELDS
message e398(00)
with i_referencia raising field_status_group.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCE_SELECT_FIELDS
MESSAGE e398(00) WITH i_referencia RAISING field_status_group.
"#EC *
* << Fim da inclusão
endif.
if j_1bam-scrcon is initial.
translate j_1bam-scrcon using ' -'.
endif.
move-corresponding j_1bam to itab_j1.
append itab_j1.
sort itab_j1.
endif.
e_controle = itab_j1-scrcon.
endfunction.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCMA008
...
bukrs TYPE /pws/zycmv006-bukrs,
bsart TYPE /pws/zycmv006-bsart,
aedat TYPE /pws/zycmv006-aedat,
lifnr TYPE /pws/zycmv006-lifnr,
zterm TYPE /pws/zycmv006-zterm,
waers TYPE /pws/zycmv006-waers,
END OF t_s_pedido,
t_t_pedido TYPE STANDARD TABLE OF t_s_pedido.
DATA:
itab_pedido TYPE t_t_pedido,
* >> Início da exclusão: FUNCTION /PWS/ZYCMA008
wa_pedido LIKE LINE OF itab_pedido,
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCMA008
wa_pedido LIKE LINE OF itab_pedido,"#EC *
* << Fim da inclusão
v_fieldname TYPE dfies-lfieldname,
wa_zycbt007 TYPE /pws/zycbt007,
v_tabix type sy-tabix.
FIELD-SYMBOLS:
<fs_shlp> LIKE LINE OF shlp_tab,
<fs_fielddescr> LIKE LINE OF shlp_tab-fielddescr,
<fs_pedido> LIKE LINE OF itab_pedido.
CLEAR callcontrol-maxrecords.
IF callcontrol-step = 'DISP'.
READ TABLE shlp_tab INDEX 1 ASSIGNING <fs_shlp>.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCMA009
...
TYPES:
BEGIN OF t_s_dados,
nrseq TYPE /pws/zycbt112-nrseq,
nrfinanc TYPE /pws/zycbt112-nrfinanc,
waers TYPE /pws/zycbt112-waers,
slassoc TYPE /pws/zycbt112-slassoc,
END OF t_s_dados,
t_t_dados TYPE STANDARD TABLE OF t_s_dados.
DATA:
itab_dados TYPE t_t_dados,
* >> Início da exclusão: FUNCTION /PWS/ZYCMA009
wa_dados LIKE LINE OF itab_dados,
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCMA009
wa_dados LIKE LINE OF itab_dados,"#EC *
* << Fim da inclusão
v_fieldname TYPE dfies-lfieldname.
FIELD-SYMBOLS:
<fs_shlp> LIKE LINE OF shlp_tab,
<fs_fielddescr> LIKE LINE OF shlp_tab-fielddescr,
<fs_dados> LIKE LINE OF itab_dados.
IF callcontrol-step = 'DISP'.
READ TABLE shlp_tab INDEX 1 ASSIGNING <fs_shlp>.
CHECK <fs_shlp> IS ASSIGNED.
LOOP AT <fs_shlp>-fielddescr ASSIGNING <fs_fielddescr>.
CHECK <fs_fielddescr>-fieldname = 'NRSEQ' OR
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCMA027
...
nrfat TYPE /pws/zycbt117-nrfat,
lifnr TYPE /pws/zycbt117-lifnr,
name1 TYPE lfa1-name1,
waers TYPE /pws/zycbt117-waers,
vlme TYPE /pws/zycbt117-vlme,
slpg TYPE /pws/zycbt117-slpgant,
END OF t_s_dados,
t_t_dados TYPE STANDARD TABLE OF t_s_dados.
DATA:
itab_dados TYPE t_t_dados,
* >> Início da exclusão: FUNCTION /PWS/ZYCMA027
wa_dados LIKE LINE OF itab_dados,
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCMA027
wa_dados LIKE LINE OF itab_dados,"#EC *
* << Fim da inclusão
v_fieldname TYPE dfies-lfieldname,
v_tabix type sy-tabix.
DATA: itab_zycbt064
TYPE STANDARD TABLE OF /pws/zycbt064
WITH HEADER LINE.
FIELD-SYMBOLS:
<fs_shlp> LIKE LINE OF shlp_tab,
<fs_fielddescr> LIKE LINE OF shlp_tab-fielddescr,
<fs_dados> LIKE LINE OF itab_dados.
IF callcontrol-step = 'DISP'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYCMA028
...
nrfat TYPE /pws/zycbt119-nrfat,
lifnr TYPE /pws/zycbt119-lifnr,
name1 TYPE lfa1-name1,
waers TYPE /pws/zycbt119-waers,
vlme TYPE /pws/zycbt119-vlme,
slpg TYPE /pws/zycbt119-SLPGFAT,
END OF t_s_dados,
t_t_dados TYPE STANDARD TABLE OF t_s_dados.
DATA:
itab_dados TYPE t_t_dados,
* >> Início da exclusão: FUNCTION /PWS/ZYCMA028
wa_dados LIKE LINE OF itab_dados,
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYCMA028
wa_dados LIKE LINE OF itab_dados,"#EC *
* << Fim da inclusão
v_fieldname TYPE dfies-lfieldname,
v_tabix type sy-tabix.
DATA: itab_zycbt064
TYPE STANDARD TABLE OF /pws/zycbt064
WITH HEADER LINE.
FIELD-SYMBOLS:
<fs_shlp> LIKE LINE OF shlp_tab,
<fs_fielddescr> LIKE LINE OF shlp_tab-fielddescr,
<fs_dados> LIKE LINE OF itab_dados.
IF callcontrol-step = 'DISP'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_CONVERTE_TAXA
function /pws/zygl_converte_taxa.
* >> Início da exclusão: FUNCTION /PWS/ZYGL_CONVERTE_TAXA
data: begin of itab_tcurf occurs 1,
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_CONVERTE_TAXA
DATA: BEGIN OF itab_tcurf OCCURS 1, "#EC *
* << Fim da inclusão
kurst like tcurf-kurst,
fcurr like tcurf-fcurr,
tcurr like tcurf-tcurr,
gdatu like tcurf-gdatu,
ffact like tcurf-ffact,
tfact like tcurf-tfact,
* >> Início da exclusão: FUNCTION /PWS/ZYGL_CONVERTE_TAXA
end of itab_tcurf.
data: v_dtbudat like sy-datum.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_CONVERTE_TAXA
END OF itab_tcurf. "#EC *
DATA: v_dtbudat LIKE sy-datum. "#EC *
* << Fim da inclusão
data: wa_zycbt007 like /pws/zycbt007.
If empresa is initial.
* >> Início da exclusão: FUNCTION /PWS/ZYGL_CONVERTE_TAXA
select single * from /pws/zycbt007
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_CONVERTE_TAXA
SELECT * FROM /pws/zycbt007
UP TO 1 ROWS
* << Fim da inclusão
into wa_zycbt007.
* >> Início da inclusão: FUNCTION /PWS/ZYGL_CONVERTE_TAXA
ENDSELECT.
* << Fim da inclusão
else.
select single *
from /pws/zycbt007
into wa_zycbt007
where bukrs eq empresa.
endif.
DATA: i_rate_type LIKE tcurr-kurst,
exch_rate LIKE bapi1093_0,
* >> Início da exclusão: FUNCTION /PWS/ZYGL_CONVERTE_TAXA
return LIKE bapireturn1.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_CONVERTE_TAXA
return LIKE bapireturn1. "#EC *
* << Fim da inclusão
CALL FUNCTION 'READ_EXCHANGE_RATE'
EXPORTING
date = dtbase
foreign_currency = moeda_de
local_currency = wa_zycbt007-waersb
type_of_rate = ctg_cambio
IMPORTING
derived_rate_type = i_rate_type
EXCEPTIONS
no_rate_found = 1
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_DADOS_FIN
FUNCTION /PWS/ZYGL_DADOS_FIN.
* >> Início da exclusão: FUNCTION /PWS/ZYGL_DADOS_FIN
data: begin of itab_zycbt115 occurs 0.
include structure /pws/zycbt115.
data: end of itab_zycbt115.
data: begin of itab_zycbt119 occurs 0.
include structure /pws/zycbt119.
data: end of itab_zycbt119.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_DADOS_FIN
DATA: BEGIN OF itab_zycbt115 OCCURS 0."#EC *
INCLUDE STRUCTURE /pws/zycbt115."#EC *
DATA: END OF itab_zycbt115."#EC *
DATA: BEGIN OF itab_zycbt119 OCCURS 0."#EC *
INCLUDE STRUCTURE /pws/zycbt119."#EC *
DATA: END OF itab_zycbt119."#EC *
* << Fim da inclusão
data: begin of itab_zycbt124 occurs 0.
include structure /pws/zycbt124.
data: end of itab_zycbt124.
* >> Início da exclusão: FUNCTION /PWS/ZYGL_DADOS_FIN
data: begin of itab_zycit003 occurs 0.
include structure /pws/zycit003.
data: end of itab_zycit003.
data: begin of itab_zycit006 occurs 0.
include structure /pws/zycit006.
data: end of itab_zycit006.
data: begin of itab_zycit078 occurs 0.
include structure /pws/zycit078.
data: end of itab_zycit078.
data: begin of itab_zycbt085 occurs 0.
include structure /pws/zycbt085.
data: end of itab_zycbt085.
data: begin of itab_zycit085 occurs 0.
include structure /pws/zycit085.
data: end of itab_zycit085.
data: begin of itab_zycit093 occurs 0.
include structure /pws/zycit093.
data: end of itab_zycit093.
data: begin of itab_zycit094 occurs 0.
include structure /pws/zycit094.
data: end of itab_zycit094.
data: begin of itab_zycit100 occurs 0.
include structure /pws/zycit100.
data: end of itab_zycit100.
data: begin of itab_zycit263 occurs 0.
include structure /pws/zycit263.
data: end of itab_zycit263.
data: begin of itab_zycmt012 occurs 0.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_DADOS_FIN
DATA: BEGIN OF itab_zycit003 OCCURS 0."#EC *
INCLUDE STRUCTURE /pws/zycit003."#EC *
DATA: END OF itab_zycit003."#EC *
DATA: BEGIN OF itab_zycit006 OCCURS 0."#EC *
INCLUDE STRUCTURE /pws/zycit006."#EC *
DATA: END OF itab_zycit006."#EC *
DATA: BEGIN OF itab_zycit078 OCCURS 0."#EC *
INCLUDE STRUCTURE /pws/zycit078."#EC *
DATA: END OF itab_zycit078."#EC *
DATA: BEGIN OF itab_zycbt085 OCCURS 0."#EC *
INCLUDE STRUCTURE /pws/zycbt085."#EC *
DATA: END OF itab_zycbt085."#EC *
DATA: BEGIN OF itab_zycit085 OCCURS 0."#EC *
INCLUDE STRUCTURE /pws/zycit085."#EC *
DATA: END OF itab_zycit085."#EC *
DATA: BEGIN OF itab_zycit093 OCCURS 0."#EC *
INCLUDE STRUCTURE /pws/zycit093."#EC *
DATA: END OF itab_zycit093."#EC *
DATA: BEGIN OF itab_zycit094 OCCURS 0."#EC *
INCLUDE STRUCTURE /pws/zycit094."#EC *
DATA: END OF itab_zycit094."#EC *
DATA: BEGIN OF itab_zycit100 OCCURS 0."#EC *
INCLUDE STRUCTURE /pws/zycit100."#EC *
DATA: END OF itab_zycit100."#EC *
DATA: BEGIN OF itab_zycit263 OCCURS 0."#EC *
INCLUDE STRUCTURE /pws/zycit263."#EC *
DATA: END OF itab_zycit263."#EC *
DATA: BEGIN OF itab_zycmt012 OCCURS 0. "#EC *
* << Fim da inclusão
data: dtarec like /pws/zycmt012-dtarec,
dtasol like /pws/zycmt012-dtasol,
fnrfat like /pws/zycmt012-fnrfat,
fdi like /pws/zycmt012-fdi,
fbl like /pws/zycmt012-fbl,
fli like /pws/zycmt012-fli,
fci like /pws/zycmt012-fci,
frof like /pws/zycmt012-frof.
data: end of itab_zycmt012.
data: vg_texto(20).
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_DADOS_IMP
FUNCTION /pws/zygl_dados_imp.
* >> Início da exclusão: FUNCTION /PWS/ZYGL_DADOS_IMP
DATA: BEGIN OF itab_zycbt115 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt115.
DATA: END OF itab_zycbt115.
DATA: BEGIN OF itab_zycbt119 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt119.
DATA: END OF itab_zycbt119.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_DADOS_IMP
DATA: BEGIN OF itab_zycbt115 OCCURS 0."#EC *
INCLUDE STRUCTURE /pws/zycbt115."#EC *
DATA: END OF itab_zycbt115."#EC *
DATA: BEGIN OF itab_zycbt119 OCCURS 0."#EC *
INCLUDE STRUCTURE /pws/zycbt119."#EC *
DATA: END OF itab_zycbt119."#EC *
* << Fim da inclusão
DATA: BEGIN OF itab_zycit003 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit003.
DATA: END OF itab_zycit003.
DATA: BEGIN OF itab_zycit006 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit006.
DATA: END OF itab_zycit006.
DATA: BEGIN OF itab_zycit078 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit078.
DATA: END OF itab_zycit078.
* >> Início da exclusão: FUNCTION /PWS/ZYGL_DADOS_IMP
DATA: BEGIN OF itab_zycbt085 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt085.
DATA: END OF itab_zycbt085.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_DADOS_IMP
DATA: BEGIN OF itab_zycbt085 OCCURS 0."#EC *
INCLUDE STRUCTURE /pws/zycbt085."#EC *
DATA: END OF itab_zycbt085."#EC *
* << Fim da inclusão
DATA: BEGIN OF itab_zycit085 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit085.
DATA: END OF itab_zycit085.
DATA: BEGIN OF itab_zycit093 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit093.
DATA: END OF itab_zycit093.
* >> Início da exclusão: FUNCTION /PWS/ZYGL_DADOS_IMP
DATA: BEGIN OF itab_zycit094 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit094.
DATA: END OF itab_zycit094.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_DADOS_IMP
DATA: BEGIN OF itab_zycit094 OCCURS 0."#EC *
INCLUDE STRUCTURE /pws/zycit094."#EC *
DATA: END OF itab_zycit094."#EC *
* << Fim da inclusão
DATA: BEGIN OF itab_zycit100 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit100.
DATA: END OF itab_zycit100.
* >> Início da exclusão: FUNCTION /PWS/ZYGL_DADOS_IMP
DATA: BEGIN OF itab_zycit263 OCCURS 0.
INCLUDE STRUCTURE /pws/zycit263.
DATA: END OF itab_zycit263.
DATA: BEGIN OF itab_zycmt012 OCCURS 0.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_DADOS_IMP
DATA: BEGIN OF itab_zycit263 OCCURS 0."#EC *
INCLUDE STRUCTURE /pws/zycit263."#EC *
DATA: END OF itab_zycit263."#EC *
DATA: BEGIN OF itab_zycmt012 OCCURS 0."#EC *
* << Fim da inclusão
DATA: dtarec LIKE /pws/zycmt012-dtarec,
dtasol LIKE /pws/zycmt012-dtasol,
fnrfat LIKE /pws/zycmt012-fnrfat,
fdi LIKE /pws/zycmt012-fdi,
fbl LIKE /pws/zycmt012-fbl,
fli LIKE /pws/zycmt012-fli,
fci LIKE /pws/zycmt012-fci,
frof LIKE /pws/zycmt012-frof.
DATA: END OF itab_zycmt012.
DATA: vg_texto(20),
v_dtrof LIKE /pws/zycbt115-dtrof,
v_control TYPE c.
* >> Início da exclusão: FUNCTION /PWS/ZYGL_DADOS_IMP
vg_texto = 'Processando...'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_DADOS_IMP
MOVE text-027 TO vg_texto.
* << Fim da inclusão
CLEAR t_dados.
PERFORM evitar_time_out USING vg_texto.
CLEAR:
itab_zycmt012,
itab_zycbt119,
itab_zycit006,
itab_zycit093,
itab_zycbt115,
itab_zycit263,
itab_zycit003,
...
...
INTO TABLE itab_zycit093
WHERE nrseqce EQ itab_zycit006-nrseqce.
IF NOT itab_zycit093[] IS INITIAL.
READ TABLE itab_zycit093 INDEX 1.
MOVE itab_zycit093-identify TO t_dados-bl.
ENDIF.
IF itab_zycit006-tpfatura = '01'.
SELECT * FROM /pws/zycit263
INTO TABLE itab_zycit263
WHERE nrseq_pgfat EQ itab_zycit006-nrseq_pgfat AND
* >> Início da exclusão: FUNCTION /PWS/ZYGL_DADOS_IMP
eliminado NE 'X'.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_DADOS_IMP
eliminado NE 'X'. "#EC CI_NOFIRST
* << Fim da inclusão
IF NOT itab_zycit263[] IS INITIAL.
SELECT * FROM /pws/zycit003
INTO TABLE itab_zycit003
FOR ALL ENTRIES IN itab_zycit263
WHERE nrseq EQ itab_zycit263-nrseq AND
ebeln EQ itab_zycit263-ebeln AND
ebelp EQ itab_zycit263-ebelp.
ENDIF.
ELSE.
SELECT * FROM /pws/zycit094
...
...
ENDIF.
ENDIF.
ENDLOOP.
APPEND t_dados.
IF NOT itab_zycit003[] IS INITIAL.
SELECT * FROM /pws/zycit100
INTO TABLE itab_zycit100
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseq EQ itab_zycit003-nrseq AND
ebeln EQ itab_zycit003-ebeln AND
* >> Início da exclusão: FUNCTION /PWS/ZYGL_DADOS_IMP
ebelp EQ itab_zycit003-ebelp.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_DADOS_IMP
ebelp EQ itab_zycit003-ebelp."#EC CI_NOFIRST
* << Fim da inclusão
SELECT * FROM /pws/zycit078
INTO TABLE itab_zycit078
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseqli EQ itab_zycit003-nrseqli.
ENDIF.
IF NOT itab_zycit100[] IS INITIAL.
SELECT * FROM /pws/zycit085
INTO TABLE itab_zycit085
FOR ALL ENTRIES IN itab_zycit100
WHERE nrseqdi EQ itab_zycit100-nrseqdi.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_EXCEL
...
DATA: BEGIN OF itab_excel OCCURS 0.
DATA: strlen TYPE i,
linha(1020).
DATA: END OF itab_excel.
DATA: ole_books TYPE ole2_object,
ole_sheets TYPE ole2_object,
errcode LIKE sy-subrc.
DATA: tamanho TYPE i,
hilf(4),
retorno TYPE i.
* >> Início da exclusão: FUNCTION /PWS/ZYGL_EXCEL
DATA: pagina LIKE sy-pagno,
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_EXCEL
DATA: pagina LIKE sy-pagno, "#EC *
* << Fim da inclusão
coluna TYPE i,
* >> Início da exclusão: FUNCTION /PWS/ZYGL_EXCEL
col_ini TYPE i,
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_EXCEL
col_ini TYPE i, "#EC *
* << Fim da inclusão
col_fim TYPE i,
filename LIKE rlgrap-filename,
filenam2 type string.
data v_cprog like sy-cprog.
SET LOCALE LANGUAGE sy-langu.
* >> Início da exclusão: FUNCTION /PWS/ZYGL_EXCEL
SELECT SINGLE * FROM /pws/zycbt007.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_EXCEL
SELECT * FROM /pws/zycbt007
UP TO 1 ROWS.
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0.
IF NOT /pws/zycbt007-path IS INITIAL.
v_cprog = sy-cprog.
replace '/PWS/' with '' into v_cprog.
condense v_cprog.
CONCATENATE: /pws/zycbt007-path v_cprog '.DAT' INTO filename.
ENDIF.
ENDIF.
IF filename IS INITIAL.
v_cprog = sy-cprog.
...
...
FREE OBJECT obj_ex_sheet.
CALL FUNCTION 'FLUSH'
EXCEPTIONS
OTHERS = 0.
ENDFUNCTION.
FORM transforma USING do_sub
CHANGING wa_line.
CONSTANTS: cons_tab TYPE x VALUE '09'.
CONSTANTS: hex_20 TYPE x VALUE '20'.
DATA: tamanho TYPE i,
* >> Início da exclusão: FORM TRANSFORMA
tamanho2 TYPE i.
DATA: caracter TYPE c.
* << Fim da exclusão
* >> Início da inclusão: FORM TRANSFORMA
tamanho2 TYPE i. "#EC *
DATA: caracter TYPE c. "#EC *
* << Fim da inclusão
DATA: result(1020),
dados(1020).
DATA: tabulou(1),
motivo_tab(1),
modo_texto(1),
proximo(1).
DATA: conta_espaco TYPE i.
FIELD-SYMBOLS: <data> TYPE c,
<data_char> TYPE c,
<line> TYPE c,
...
...
FREE OBJECT obj_ex_usedrange2.
FREE OBJECT obj_ex_pivot_field.
FREE OBJECT obj_ex_range2.
FREE OBJECT obj_ex_wsheets.
FREE OBJECT obj_ex_pivot.
FREE OBJECT obj_ex_app.
FREE OBJECT obj_ex_sheet.
FREE OBJECT obj_ex_startcell.
ENDFORM.
FORM delete_data_file USING value(filename).
* >> Início da exclusão: FORM DELETE_DATA_FILE
DATA: my_subrc LIKE sy-subrc.
* << Fim da exclusão
* >> Início da inclusão: FORM DELETE_DATA_FILE
DATA: my_subrc LIKE sy-subrc. "#EC *
* << Fim da inclusão
CALL FUNCTION 'GUI_DELETE_FILE'
EXPORTING
file_name = filename.
IF sy-subrc NE 0.
ENDIF.
ENDFORM.
FORM convert_entire_line CHANGING wa_line.
CONSTANTS: cons_tab TYPE x VALUE '09'.
* >> Início da exclusão: FORM CONVERT_ENTIRE_LINE
CONSTANTS: hex_20 TYPE x VALUE '20'.
CONSTANTS: tab_ini(1) TYPE c VALUE '22'.
CONSTANTS: tab_fim(2) TYPE c VALUE '2209'.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERT_ENTIRE_LINE
CONSTANTS: hex_20 TYPE x VALUE '20'. "#EC *
CONSTANTS: tab_ini(2) TYPE c VALUE '22'.
CONSTANTS: tab_fim(4) TYPE c VALUE '2209'.
* << Fim da inclusão
DATA: tamanho TYPE i,
* >> Início da exclusão: FORM CONVERT_ENTIRE_LINE
tamanho2 TYPE i.
DATA: caracter TYPE c.
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERT_ENTIRE_LINE
tamanho2 TYPE i. "#EC *
DATA: caracter TYPE c. "#EC *
* << Fim da inclusão
DATA: result(1020),
dados(1020).
DATA: posicao TYPE i,
coluna TYPE i,
* >> Início da exclusão: FORM CONVERT_ENTIRE_LINE
colunas TYPE i,
* << Fim da exclusão
* >> Início da inclusão: FORM CONVERT_ENTIRE_LINE
colunas TYPE i, "#EC *
* << Fim da inclusão
tabulou(1).
DATA: conta_espaco TYPE i.
FIELD-SYMBOLS: <data> TYPE c,
<data_char> TYPE c,
<line> TYPE c,
<line_char> TYPE c,
<lhex_char> TYPE x,
<dhex_char> TYPE x.
REPLACE '|' WITH tab_ini INTO wa_line.
REPLACE '|' WITH tab_fim INTO wa_line.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_GERA_RELATORIO_ALV
...
is_layout = gt_layout
it_sort = it_sort[]
tables
t_outtab = t_data[]
exceptions
program_error = 1
others = 2.
if sy-subrc <> 0.
message id sy-msgid type 'I' number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
* >> Início da exclusão: FUNCTION /PWS/ZYGL_GERA_RELATORIO_ALV
stop.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_GERA_RELATORIO_ALV
STOP. "#EC *
* << Fim da inclusão
endif.
endfunction.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_LOG_TABLE
function /pws/zygl_log_table.
field-symbols: <wa_dados>.
data: v_class type devclass,
v_relid type relid,
* >> Início da exclusão: FUNCTION /PWS/ZYGL_LOG_TABLE
wa_zyglt050 like /pws/zyglt050,
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_LOG_TABLE
wa_zyglt050 LIKE /pws/zyglt050,"#EC *
* << Fim da inclusão
wa_zyglt051 like /pws/zyglt051,
v_indice like /pws/zyglt050-indice,
* >> Início da exclusão: FUNCTION /PWS/ZYGL_LOG_TABLE
v_datum like sy-datum,
v_uzeit like sy-uzeit,
v_tmstmp type /pws/zygll812,
v_progname type progname,
v_time type timestampl,
v_random type i,
v_timec(21) type c,
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_LOG_TABLE
v_datum LIKE sy-datum,"#EC *
v_uzeit LIKE sy-uzeit,"#EC *
v_tmstmp TYPE /pws/zygll812,"#EC *
v_progname TYPE progname,"#EC *
v_time TYPE timestampl,"#EC *
v_random TYPE i,"#EC *
v_timec(21) TYPE c,"#EC *
* << Fim da inclusão
v_timestamp like /pws/zyglt051-TIMESTAMP,
v_count(19) type n,
v_ano(3).
data: begin of itab_dd03L occurs 0.
include structure dd03l.
data: end of itab_dd03L.
data: begin of wheretab occurs 0,
cond(50) type c,
end of wheretab.
data: v_linhas type i,
...
...
if sy-subrc ne 0.
raise table_not_supported.
endif.
v_relid = v_class+7(2).
v_progname = progname.
if v_progname is initial.
v_progname = sy-repid.
endif.
concatenate '%' sy-datum+2(2) into v_ano.
select max( timestamp ) into (v_timestamp) from /pws/zyglt051
* >> Início da exclusão: FUNCTION /PWS/ZYGL_LOG_TABLE
where timestamp like v_ano.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_LOG_TABLE
WHERE timestamp LIKE v_ano."#EC CI_NOFIRST
* << Fim da inclusão
v_count = v_timestamp+0(19) + 1.
concatenate v_count sy-datum+2(2) into v_timestamp.
wa_zyglt051-tabname = tabname.
wa_zyglt051-oper = oper.
wa_zyglt051-uname = sy-uname.
wa_zyglt051-timestamp = v_timestamp.
insert into /pws/zyglt051 values wa_zyglt051.
if sy-subrc ne 0.
raise commit_error.
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_MODO_BATCH_INPUT
...
call function 'POPUP_TO_DECIDE_LIST'
exporting
textline1 = text-023
textline2 = text-024
titel = text-025
importing
answer = v_answer
tables
t_spopli = itab_modo
exceptions
* >> Início da exclusão: FUNCTION /PWS/ZYGL_MODO_BATCH_INPUT
not_enough_answers = 1
too_much_answers = 2
too_much_marks = 3
others = 4.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_MODO_BATCH_INPUT
not_enough_answers = 0
too_much_answers = 0
too_much_marks = 0
OTHERS = 0.
* << Fim da inclusão
case v_answer.
when '1' or 'A'.
modo_bi = 'N'.
when '2'.
modo_bi = 'E'.
when '3'.
modo_bi = 'A'.
endcase.
endfunction.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_MONTANTE_CONVERTE
FUNCTION /pws/zygl_montante_converte.
DATA: i_rate_type LIKE tcurr-kurst,
exch_rate LIKE bapi1093_0,
* >> Início da exclusão: FUNCTION /PWS/ZYGL_MONTANTE_CONVERTE
return LIKE bapireturn1.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_MONTANTE_CONVERTE
return LIKE bapireturn1."#EC *
* << Fim da inclusão
CALL FUNCTION 'READ_EXCHANGE_RATE'
EXPORTING
date = i_dtbase
foreign_currency = i_demoeda
local_currency = i_paramoeda
type_of_rate = i_ctmoeda
IMPORTING
derived_rate_type = i_rate_type
EXCEPTIONS
no_rate_found = 1
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_OBTEM_ANO_CONTABIL
FUNCTION /PWS/ZYGL_OBTEM_ANO_CONTABIL.
* >> Início da exclusão: FUNCTION /PWS/ZYGL_OBTEM_ANO_CONTABIL
tables : t001.
data: v_burks like t001-bukrs,
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_OBTEM_ANO_CONTABIL
tables : t001."#EC *
data: v_burks like t001-bukrs,"#EC *
* << Fim da inclusão
v_periv like t001-periv.
select single periv from t001
into v_periv
where bukrs eq v_bukrs.
if v_periv is initial.
raise variante_de_exercicio.
exit.
elseif v_date is initial.
raise data_nao_encontrada.
exit.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_PARAMETRO_IMPRESSAO
function /pws/zygl_parametro_impressao.
* >> Início da exclusão: FUNCTION /PWS/ZYGL_PARAMETRO_IMPRESSAO
tables: /pws/zyglt213.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_PARAMETRO_IMPRESSAO
TABLES: /pws/zyglt213. "#EC *
* << Fim da inclusão
clear /pws/zyglt213.
if i_mdcorresp is initial.
if i_codmod is initial.
e_programa = space.
else.
* >> Início da exclusão: FUNCTION /PWS/ZYGL_PARAMETRO_IMPRESSAO
select single report from /pws/zyglt213
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_PARAMETRO_IMPRESSAO
SELECT report FROM /pws/zyglt213
* << Fim da inclusão
into e_programa
* >> Início da inclusão: FUNCTION /PWS/ZYGL_PARAMETRO_IMPRESSAO
UP TO 1 ROWS
* << Fim da inclusão
where codmod eq i_codmod.
* >> Início da inclusão: FUNCTION /PWS/ZYGL_PARAMETRO_IMPRESSAO
ENDSELECT.
* << Fim da inclusão
endif.
else.
if i_tpboleto is initial and
i_modalidade is initial.
* >> Início da exclusão: FUNCTION /PWS/ZYGL_PARAMETRO_IMPRESSAO
select single report from /pws/zyglt213
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_PARAMETRO_IMPRESSAO
SELECT report FROM /pws/zyglt213
* << Fim da inclusão
into e_programa
* >> Início da inclusão: FUNCTION /PWS/ZYGL_PARAMETRO_IMPRESSAO
UP TO 1 ROWS
* << Fim da inclusão
where codmod eq i_codmod and
mdcorresp eq i_mdcorresp.
* >> Início da inclusão: FUNCTION /PWS/ZYGL_PARAMETRO_IMPRESSAO
ENDSELECT.
* << Fim da inclusão
else.
if not i_tpboleto is initial.
if not i_modalidade is initial.
select single report from /pws/zyglt213
into e_programa
where codmod eq i_codmod and
mdcorresp eq i_mdcorresp and
tpboleto eq i_tpboleto and
modalidade eq i_modalidade.
else.
* >> Início da exclusão: FUNCTION /PWS/ZYGL_PARAMETRO_IMPRESSAO
select single report from /pws/zyglt213
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_PARAMETRO_IMPRESSAO
SELECT report FROM /pws/zyglt213
* << Fim da inclusão
into e_programa
* >> Início da inclusão: FUNCTION /PWS/ZYGL_PARAMETRO_IMPRESSAO
UP TO 1 ROWS
* << Fim da inclusão
where codmod eq i_codmod and
mdcorresp eq i_mdcorresp and
tpboleto eq i_tpboleto.
* >> Início da inclusão: FUNCTION /PWS/ZYGL_PARAMETRO_IMPRESSAO
ENDSELECT.
* << Fim da inclusão
endif.
else.
* >> Início da exclusão: FUNCTION /PWS/ZYGL_PARAMETRO_IMPRESSAO
select single report from /pws/zyglt213
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_PARAMETRO_IMPRESSAO
SELECT report FROM /pws/zyglt213
* << Fim da inclusão
into e_programa
* >> Início da inclusão: FUNCTION /PWS/ZYGL_PARAMETRO_IMPRESSAO
UP TO 1 ROWS
* << Fim da inclusão
where codmod eq i_codmod and
mdcorresp eq i_mdcorresp and
modalidade eq i_modalidade.
* >> Início da inclusão: FUNCTION /PWS/ZYGL_PARAMETRO_IMPRESSAO
ENDSELECT.
* << Fim da inclusão
endif.
endif.
endif.
endfunction.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em FUNC /PWS/ZYGL_RETORNA_STATUS
FUNCTION /pws/zygl_retorna_status.
TABLES:
* >> Início da exclusão: FUNCTION /PWS/ZYGL_RETORNA_STATUS
t052,
/pws/zycbt108,
/pws/zycie078.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_RETORNA_STATUS
t052,"#EC *
/pws/zycbt108,"#EC *
/pws/zycie078."#EC *
* << Fim da inclusão
DATA: BEGIN OF itab_zycbt108 OCCURS 10.
INCLUDE STRUCTURE /pws/zycbt108.
DATA: END OF itab_zycbt108.
DATA: BEGIN OF itab_t052 OCCURS 10.
INCLUDE STRUCTURE t052.
DATA: END OF itab_t052.
* >> Início da exclusão: FUNCTION /PWS/ZYGL_RETORNA_STATUS
DATA: BEGIN OF itab_zycit078 OCCURS 10.
INCLUDE STRUCTURE /pws/zycit078.
DATA: END OF itab_zycit078.
DATA: v_layout TYPE slis_layout_alv.
* << Fim da exclusão
* >> Início da inclusão: FUNCTION /PWS/ZYGL_RETORNA_STATUS
DATA: BEGIN OF itab_zycit078 OCCURS 10."#EC *
INCLUDE STRUCTURE /pws/zycit078."#EC *
DATA: END OF itab_zycit078."#EC *
DATA: v_layout TYPE slis_layout_alv."#EC *
* << Fim da inclusão
DATA: v_dias LIKE t052-ztag1.
IF NOT t_dados[] IS INITIAL.
SELECT * FROM /pws/zycbt108
INTO TABLE itab_zycbt108
FOR ALL ENTRIES IN t_dados
WHERE nrseq_pgfat EQ t_dados-nrseq.
IF sy-subrc EQ 0.
SELECT * FROM t052
INTO TABLE itab_t052
FOR ALL ENTRIES IN itab_zycbt108
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em RELE F6DK958377 20080227 100150 PWSCB
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCBGF3TOP
FUNCTION-POOL /pws/zycbgf3.
TYPE-POOLS shlp.
* >> Início da exclusão:
TABLES: /pws/zycbt509,
/pws/zycbt511,
/pws/zycbt512,
/pws/zycbt513,
/pws/zycbt514,
/pws/zycbt092.
DATA: v_ativo,
v_nrseqc LIKE /pws/zycbt005-nrseqc,
v_dtvincul LIKE /pws/zycbt005-dtvincul,
v_fat_sbu,
exclusao,
v_dtpagto LIKE /pws/zycbt006-dtpagto,
v_dtpagext LIKE /pws/zycbt006-dtpagext,
v_sbu,
v_sbu_dev,
v_dev,
v_tpdev LIKE /pws/zycbt051-tpdev,
v_dtreceb LIKE /pws/zycbt051-dtreceb,
v_tcode LIKE sy-tcode,
v_liquida TYPE c.
* << Fim da exclusão
* >> Início da inclusão:
TABLES: /pws/zycbt509, "#EC *
/pws/zycbt511, "#EC *
/pws/zycbt512, "#EC *
/pws/zycbt513, "#EC *
/pws/zycbt514, "#EC *
/pws/zycbt092. "#EC *
DATA: v_ativo, "#EC *
v_nrseqc LIKE /pws/zycbt005-nrseqc, "#EC *
v_dtvincul LIKE /pws/zycbt005-dtvincul, "#EC *
v_fat_sbu, "#EC *
exclusao, "#EC *
v_dtpagto LIKE /pws/zycbt006-dtpagto, "#EC *
v_dtpagext LIKE /pws/zycbt006-dtpagext, "#EC *
v_sbu, "#EC *
v_sbu_dev, "#EC *
v_dev, "#EC *
v_tpdev LIKE /pws/zycbt051-tpdev, "#EC *
v_dtreceb LIKE /pws/zycbt051-dtreceb, "#EC *
v_tcode LIKE sy-tcode, "#EC *
v_liquida TYPE c. "#EC *
* << Fim da inclusão
DATA: v_kunnr LIKE /pws/zycbt092-kunnr.
* >> Início da exclusão:
DATA: begin of RECORD_TAB occurs 0.
include structure SEAHLPRES.
DATA: end of record_tab.
DATA: wa_zycbt051 LIKE /pws/zycbt051.
DATA: BEGIN OF itab_zycbt005 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt005.
DATA: END OF itab_zycbt005.
DATA: BEGIN OF itab_zycbt006 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt006.
DATA: END OF itab_zycbt006.
DATA: BEGIN OF itab_zycbt051 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt051.
DATA: END OF itab_zycbt051.
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF record_tab OCCURS 0. "#EC *
INCLUDE STRUCTURE seahlpres. "#EC *
DATA: END OF record_tab. "#EC *
DATA: wa_zycbt051 LIKE /pws/zycbt051. "#EC *
DATA: BEGIN OF itab_zycbt005 OCCURS 0. "#EC *
INCLUDE STRUCTURE /pws/zycbt005. "#EC *
DATA: END OF itab_zycbt005. "#EC *
DATA: BEGIN OF itab_zycbt006 OCCURS 0. "#EC *
INCLUDE STRUCTURE /pws/zycbt006. "#EC *
DATA: END OF itab_zycbt006. "#EC *
DATA: BEGIN OF itab_zycbt051 OCCURS 0. "#EC *
INCLUDE STRUCTURE /pws/zycbt051. "#EC *
DATA: END OF itab_zycbt051. "#EC *
* << Fim da inclusão
DATA: BEGIN OF itab_zycbt509 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt509.
DATA: END OF itab_zycbt509.
DATA: BEGIN OF itab_zycbt514 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt514.
DATA: END OF itab_zycbt514.
DATA: BEGIN OF itab_zycbt512 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt512.
DATA: END OF itab_zycbt512.
* >> Início da exclusão:
DATA: wa_zycbt050 LIKE /pws/zycbt050.
DATA: wa_zycbt006 LIKE /pws/zycbt006.
* << Fim da exclusão
* >> Início da inclusão:
DATA: wa_zycbt050 LIKE /pws/zycbt050. "#EC *
DATA: wa_zycbt006 LIKE /pws/zycbt006. "#EC *
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCBGFF01
...
t_dados-fci IS INITIAL AND
t_dados-dtrecf IS INITIAL AND
t_dados-dtasol IS INITIAL.
t_dados-status = '@0A@'.
MODIFY t_dados TRANSPORTING status.
ELSE.
t_dados-status = '@09@'.
MODIFY t_dados TRANSPORTING status.
ENDIF.
ENDFORM.
* >> Início da exclusão: FORM LIMPA_TABELAS
FORM limpa_tabelas.
* << Fim da exclusão
* >> Início da inclusão: FORM LIMPA_TABELAS
FORM limpa_tabelas."#EC CALLED
* << Fim da inclusão
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCBGFTOP
function-pool /pws/zycbgf.
tables: j_1bam.
* >> Início da exclusão:
data: begin of itab_int occurs 0,
sconrf like j_1bam-sconrf,
end of itab_int.
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF itab_int OCCURS 0,"#EC *
sconrf LIKE j_1bam-sconrf,"#EC *
END OF itab_int."#EC *
* << Fim da inclusão
data: begin of itab_j1 occurs 0,
sconrf like j_1bam-sconrf,
scrcon like j_1bam-scrcon,
end of itab_j1.
* >> Início da exclusão:
tables: /pws/zycbt001,
/pws/zycbt002,
/pws/zycbt004,
/pws/zycbt005,
/pws/zycbt006,
/pws/zycbt031,
/pws/zycbt043,
/pws/zycbt044,
/pws/zycbt050,
/pws/zycbt051,
/pws/zycbt007,
* << Fim da exclusão
* >> Início da inclusão:
TABLES: /pws/zycbt001,"#EC *
/pws/zycbt002,"#EC *
/pws/zycbt004,"#EC *
/pws/zycbt005,"#EC *
/pws/zycbt006,"#EC *
/pws/zycbt031,"#EC *
/pws/zycbt043,"#EC *
/pws/zycbt044,"#EC *
/pws/zycbt050,"#EC *
/pws/zycbt051,"#EC *
/pws/zycbt007,"#EC *
/pws/zycbt060,"#EC *
/pws/zycbt061,"#EC *
/pws/zycbt062,"#EC *
/pws/zycbt112,"#EC *
/pws/zycbt113,"#EC *
/pws/zycbt115,"#EC *
/pws/zycbt119,"#EC *
/pws/zycbt124,"#EC *
/pws/zycit003,"#EC *
/pws/zycit006,"#EC *
/pws/zycit078,"#EC *
/pws/zycit085,"#EC *
/pws/zycit093,"#EC *
/pws/zycit094,"#EC *
/pws/zycit100,"#EC *
/pws/zycit263,"#EC *
/pws/zycmt012,"#EC *
/pws/zygle500."#EC *
* << Fim da inclusão
* >> Início da exclusão:
/pws/zycbt060,
/pws/zycbt061,
/pws/zycbt062,
/pws/zycbt112,
/pws/zycbt113,
/pws/zycbt115,
/pws/zycbt119,
/pws/zycbt124,
/pws/zycit003,
/pws/zycit006,
/pws/zycit078,
/pws/zycit085,
/pws/zycit093,
/pws/zycit094,
/pws/zycit100,
/pws/zycit263,
/pws/zycmt012,
/pws/zygle500.
* << Fim da exclusão
include <icon>.
include <symbol>.
type-pools:
kkblo,
slis.
constants:
* >> Início da exclusão:
gc_formname_top_of_page type slis_formname value 'TOP_OF_PAGE'.
* << Fim da exclusão
* >> Início da inclusão:
gc_formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'."#EC *
* << Fim da inclusão
data:
v_repid like sy-repid,
g_save type c,
* >> Início da exclusão:
g_variant type disvariant,
feld(10) type c.
data: afield type kkblo_fieldcat.
data: colinfo type kkblo_specialcol.
* << Fim da exclusão
* >> Início da inclusão:
g_variant TYPE disvariant,"#EC *
feld(10) TYPE c."#EC *
DATA: afield TYPE kkblo_fieldcat."#EC *
DATA: colinfo TYPE kkblo_specialcol."#EC *
* << Fim da inclusão
data: layout type kkblo_layout.
* >> Início da exclusão:
data: header type kkblo_listheader.
data: i_fieldcat type kkblo_t_fieldcat.
* << Fim da exclusão
* >> Início da inclusão:
DATA: header TYPE kkblo_listheader."#EC *
DATA: i_fieldcat TYPE kkblo_t_fieldcat."#EC *
* << Fim da inclusão
data: i_fieldcat_aux type kkblo_t_fieldcat.
data: l_fcat type slis_t_fieldcat_alv.
* >> Início da exclusão:
data: l_spg type slis_t_sp_group_alv.
data: l_lay type slis_layout_alv.
* << Fim da exclusão
* >> Início da inclusão:
DATA: l_spg TYPE slis_t_sp_group_alv."#EC *
DATA: l_lay TYPE slis_layout_alv."#EC *
* << Fim da inclusão
data: it_header type kkblo_t_listheader.
* >> Início da exclusão:
data: begin of t_data occurs 0,
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF t_data OCCURS 0,"#EC *
* << Fim da inclusão
dados(2000) type c,
* >> Início da exclusão:
end of t_data.
data: gt_list_top_of_page type slis_t_listheader,
gt_events type slis_t_event,
gs_print type slis_print_alv,
gs_fieldcat type slis_t_fieldcat_alv,
* << Fim da exclusão
* >> Início da inclusão:
END OF t_data."#EC *
DATA: gt_list_top_of_page TYPE slis_t_listheader, "#EC *
gt_events TYPE slis_t_event, "#EC *
gs_print TYPE slis_print_alv, "#EC *
gs_fieldcat TYPE slis_t_fieldcat_alv, "#EC *
* << Fim da inclusão
gt_sp_group type slis_t_sp_group_alv,
gt_layout type slis_layout_alv.
field-symbols : <tab>.
type-pools: ole2,
slis,
kkblo.
include ole2incl.
data: obj_ex_sheet type ole2_object,
obj_ex_app type ole2_object,
obj_ex_wbook type ole2_object,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZZYCBGF3U01
* >> Início da exclusão:
TABLES: /pws/zycbt017,
/pws/zycbt219.
* << Fim da exclusão
* >> Início da inclusão:
TABLES: /pws/zycbt017, "#EC *
/pws/zycbt219. "#EC *
* << Fim da inclusão
DATA: BEGIN OF itab_faturas OCCURS 0.
INCLUDE STRUCTURE record_tab.
DATA: END OF itab_faturas.
DATA: BEGIN OF itab_zycet002 OCCURS 0.
INCLUDE STRUCTURE /pws/zycet002.
DATA: END OF itab_zycet002.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycbt221 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt221.
DATA: END OF itab_zycbt221.
DATA: BEGIN OF itab_zycbt017 OCCURS 0,
nrinvoic TYPE /pws/zycbt017-nrinvoic,
nrparcf TYPE /pws/zycbt017-nrparcf,
gsberf TYPE /pws/zycbt017-gsberf,
vlslf TYPE /pws/zycbt017-vlslf,
END OF itab_zycbt017.
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF itab_zycbt221 OCCURS 0. "#EC *
INCLUDE STRUCTURE /pws/zycbt221. "#EC *
DATA: END OF itab_zycbt221. "#EC *
DATA: BEGIN OF itab_zycbt017 OCCURS 0, "#EC *
nrinvoic TYPE /pws/zycbt017-nrinvoic, "#EC *
nrparcf TYPE /pws/zycbt017-nrparcf, "#EC *
gsberf TYPE /pws/zycbt017-gsberf, "#EC *
vlslf TYPE /pws/zycbt017-vlslf, "#EC *
END OF itab_zycbt017. "#EC *
* << Fim da inclusão
DATA: BEGIN OF itab_bukrs OCCURS 0,
bukrs LIKE /pws/zycbt001-bukrs,
END OF itab_bukrs.
DATA: v_string LIKE record_tab-string,
v_zterm LIKE /pws/zycbt017-zterm,
v_desc_receb LIKE /pws/zycbt001-desc_receb,
v_tabix LIKE sy-tabix,
v_nrinvoic LIKE /pws/zycbt017-nrinvoic,
v_nrinvoic1 LIKE /pws/zycbt017-nrinvoic,
ask_activex(10) TYPE c,
...
...
DELETE record_tab INDEX v_tabix.
DELETE itab_dados INDEX v_tabix.
CONTINUE.
ENDIF.
ENDIF.
v_string = record_tab-string.
IF NOT v_desc_receb IS INITIAL.
IF wa_dados-nrinvoic EQ v_nrinvoic.
CONTINUE.
ENDIF.
* >> Início da exclusão:
SELECT SINGLE * FROM /pws/zycbt219
* << Fim da exclusão
* >> Início da inclusão:
SELECT * FROM /pws/zycbt219
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrinvoic = wa_dados-nrinvoic
AND gsberf = wa_dados-gsberf
AND nrparcf = wa_dados-nrparcf
AND belnr = wa_dados-belnr
* >> Início da exclusão:
AND saldo GT 0.
* << Fim da exclusão
* >> Início da inclusão:
AND saldo GT 0. "#EC CI_NOFIRST
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0 AND /pws/zycbt219-saldo GT 0.
MOVE v_string TO itab_faturas.
APPEND itab_faturas.
ELSEIF sy-subrc EQ 0 AND NOT /pws/zycbt219-saldo GT 0.
DELETE record_tab INDEX v_tabix.
DELETE itab_dados INDEX v_tabix.
CONTINUE.
ELSE.
IF wa_dados-nrinvoic EQ v_nrinvoic1.
CONTINUE.
ENDIF.
v_nrinvoic1 = wa_dados-nrinvoic.
CLEAR v_nrinvoic.
* >> Início da exclusão:
SELECT SINGLE * FROM /pws/zycbt219
* << Fim da exclusão
* >> Início da inclusão:
SELECT * FROM /pws/zycbt219
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrinvoic = wa_dados-nrinvoic
AND gsberf = wa_dados-gsberf
AND nrparcf = wa_dados-nrparcf
AND belnr = wa_dados-belnr
* >> Início da exclusão:
AND saldo GT 0.
* << Fim da exclusão
* >> Início da inclusão:
AND saldo GT 0. "#EC CI_NOFIRST
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0 AND /pws/zycbt219-saldo GT 0.
MOVE v_string TO itab_faturas.
APPEND itab_faturas.
ELSEIF sy-subrc EQ 0 AND NOT /pws/zycbt219-saldo GT 0.
DELETE record_tab INDEX v_tabix.
DELETE itab_dados INDEX v_tabix.
CONTINUE.
ENDIF.
ENDIF.
ELSE.
...
...
nrseq = itab_faturas-string+3(10).
IF sy-subrc NE 0.
DELETE itab_faturas INDEX v_tabix.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
MOVE itab_faturas[] TO record_tab[].
CLEAR itab_faturas.
REFRESH itab_faturas.
* >> Início da exclusão:
GET PARAMETER ID 'F4GMETHOD' FIELD ask_activex.
* << Fim da exclusão
* >> Início da inclusão:
GET PARAMETER ID 'F4GMETHOD' FIELD ask_activex. "#EC *
* << Fim da inclusão
CHECK NOT ask_activex EQ 'ActiveX'.
shlp_curr-shlpname = '/PWS/ZYCBA008'.
EXPORT shlp_curr TO MEMORY ID 'mcx_shlp_curr'.
EXPORT record_tab[] TO MEMORY ID 'mcx_record_tab'.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZZYCBGF3U02
TABLES: /pws/zycbt064, /pws/zycbt004, /pws/zycbt006, /pws/zycbt044.
* >> Início da inclusão:
"#EC *
* << Fim da inclusão
DATA: BEGIN OF itab_valores OCCURS 0,
nrseqc TYPE /pws/zycbt004-nrseqc,
tpdesp TYPE /pws/zycbt004-tpdesp,
nrparc TYPE /pws/zycbt004-nrparc,
tpjuros TYPE /pws/zycbt004-tpjuros,
bukrs TYPE /pws/zycbt004-bukrs,
dtvencto TYPE /pws/zycbt004-dtvencto,
waers TYPE /pws/zycbt004-waers,
vlme TYPE /pws/zycbt004-vlme,
nrcontr TYPE /pws/zycbt004-nrcontr,
...
...
dtincl TYPE /pws/zycbt004-dtincl,
dtliquid TYPE /pws/zycbt004-dtliquid,
gsberf TYPE /pws/zycbt004-gsberf,
vlir TYPE /pws/zycbt004-vlir,
END OF itab_valores.
DATA: v_fieldname TYPE dfies-lfieldname,
v_tabix TYPE sy-tabix.
FIELD-SYMBOLS: <fs_shlp> LIKE LINE OF shlp_tab,
<fs_fielddescr> LIKE LINE OF shlp_tab-fielddescr.
DATA: wa_zycbt005 LIKE /pws/zycbt005.
* >> Início da exclusão:
DATA: v_string LIKE record_tab-string,
* << Fim da exclusão
* >> Início da inclusão:
DATA: v_string LIKE record_tab-string, "#EC *
* << Fim da inclusão
v_subrc TYPE c.
CHECK callcontrol-step = 'DISP'.
CALL CUSTOMER-FUNCTION '001'
IMPORTING
v_subrc = v_subrc.
CLEAR callcontrol-maxrecords.
READ TABLE shlp_tab INDEX 1 ASSIGNING <fs_shlp>.
CHECK <fs_shlp> IS ASSIGNED.
LOOP AT <fs_shlp>-fielddescr ASSIGNING <fs_fielddescr>.
CHECK: <fs_fielddescr>-fieldname = 'NRSEQC' OR
...
...
parameter = <fs_fielddescr>-fieldname
fieldname = v_fieldname
TABLES
shlp_tab = shlp_tab
record_tab = record_tab
results_tab = itab_valores
CHANGING
shlp = shlp
callcontrol = callcontrol
EXCEPTIONS
* >> Início da exclusão:
parameter_unknown = 1
OTHERS = 2.
* << Fim da exclusão
* >> Início da inclusão:
parameter_unknown = 0
OTHERS = 0.
* << Fim da inclusão
IF sy-subrc <> 0.
ENDIF.
ENDLOOP.
READ TABLE record_tab INDEX 1.
READ TABLE itab_valores INDEX 1.
SELECT SINGLE nrseqc FROM /pws/zycbt001 INTO v_nrseqc
WHERE nrseqc = itab_valores-nrseqc.
IF sy-subrc NE 0.
IF NOT v_subrc IS INITIAL.
LOOP AT itab_valores WHERE tpdesp NE 'J'
AND tpdesp NE 'D'.
DELETE itab_valores INDEX sy-tabix.
DELETE record_tab INDEX sy-tabix.
ENDLOOP.
ENDIF.
LOOP AT itab_valores.
v_tabix = sy-tabix.
* >> Início da exclusão:
SELECT SINGLE * FROM /pws/zycbt044
* << Fim da exclusão
* >> Início da inclusão:
SELECT * FROM /pws/zycbt044
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseqc EQ itab_valores-nrseqc
AND tpdesp EQ itab_valores-tpdesp
AND nrparc EQ itab_valores-nrparc
AND dtincl EQ itab_valores-dtincl
AND dtliquid EQ itab_valores-dtliquid
* >> Início da exclusão:
AND tpjuros EQ itab_valores-tpjuros.
* << Fim da exclusão
* >> Início da inclusão:
AND tpjuros EQ itab_valores-tpjuros. "#EC CI_NOFIRST
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0.
DELETE itab_valores INDEX v_tabix.
DELETE record_tab INDEX v_tabix.
CONTINUE.
ENDIF.
* >> Início da exclusão:
SELECT SINGLE tpcontr vlir FROM /pws/zycbt004
* << Fim da exclusão
* >> Início da inclusão:
SELECT tpcontr vlir FROM /pws/zycbt004
* << Fim da inclusão
INTO (/pws/zycbt004-tpcontr, /pws/zycbt004-vlir)
* >> Início da inclusão:
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseqc EQ itab_valores-nrseqc
AND tpdesp EQ itab_valores-tpdesp
AND nrparc EQ itab_valores-nrparc
AND dtincl EQ itab_valores-dtincl
AND dtliquid EQ itab_valores-dtliquid.
* >> Início da inclusão:
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0 AND
NOT /pws/zycbt004-vlir IS INITIAL AND
/pws/zycbt004-tpcontr(1) EQ 'D'.
DELETE itab_valores INDEX v_tabix.
DELETE record_tab INDEX v_tabix.
CONTINUE.
ENDIF.
* >> Início da exclusão:
SELECT SINGLE * FROM /pws/zycbt064
* << Fim da exclusão
* >> Início da inclusão:
SELECT * FROM /pws/zycbt064
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrchave EQ itab_valores-nrseqc
AND nrparc EQ itab_valores-nrparc
AND dtliquid EQ itab_valores-dtliquid
AND mdcorresp EQ 'ED'.
* >> Início da inclusão:
ENDSELECT.
* << Fim da inclusão
IF sy-subrc NE 0.
IF v_subrc IS INITIAL.
* >> Início da exclusão:
SELECT SINGLE * FROM /pws/zycbt006 INTO /pws/zycbt006
* << Fim da exclusão
* >> Início da inclusão:
SELECT * FROM /pws/zycbt006 INTO /pws/zycbt006
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseqc = itab_valores-nrseqc
AND nrparc = itab_valores-nrparc
AND dtvincul = itab_valores-dtincl
AND nrinvoic = itab_valores-nrinvoic
AND gsberf = itab_valores-gsberf
AND dtpagto = itab_valores-dtliquid.
* >> Início da inclusão:
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0 OR
itab_valores-tpdesp EQ 'D' OR
itab_valores-tpdesp EQ 'JC'.
CONTINUE.
ELSEIF sy-subrc NE 0.
* >> Início da exclusão:
SELECT SINGLE * FROM /pws/zycbt005 INTO wa_zycbt005
* << Fim da exclusão
* >> Início da inclusão:
SELECT * FROM /pws/zycbt005 INTO wa_zycbt005
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseqc = itab_valores-nrseqc
AND nrparc = itab_valores-nrparc
AND dtvincul = itab_valores-dtincl
AND nrinvoic = itab_valores-nrinvoic
AND gsberf = itab_valores-gsberf.
* >> Início da inclusão:
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0 AND NOT wa_zycbt005-dtcredext IS INITIAL.
CONTINUE.
...
...
ELSE.
IF NOT v_subrc IS INITIAL.
LOOP AT itab_valores WHERE tpdesp NE 'J'
AND tpdesp NE 'D'.
DELETE itab_valores INDEX sy-tabix.
DELETE record_tab INDEX sy-tabix.
ENDLOOP.
ENDIF.
LOOP AT itab_valores.
v_tabix = sy-tabix.
* >> Início da exclusão:
SELECT SINGLE * FROM /pws/zycbt044
* << Fim da exclusão
* >> Início da inclusão:
SELECT * FROM /pws/zycbt044
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseqc EQ itab_valores-nrseqc
AND tpdesp EQ itab_valores-tpdesp
AND nrparc EQ itab_valores-nrparc
AND dtincl EQ itab_valores-dtincl
AND dtliquid EQ itab_valores-dtliquid
* >> Início da exclusão:
AND tpjuros EQ itab_valores-tpjuros.
* << Fim da exclusão
* >> Início da inclusão:
AND tpjuros EQ itab_valores-tpjuros. "#EC CI_NOFIRST
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0.
DELETE itab_valores INDEX v_tabix.
DELETE record_tab INDEX v_tabix.
CONTINUE.
ENDIF.
* >> Início da exclusão:
SELECT SINGLE tpcontr vlir FROM /pws/zycbt004
* << Fim da exclusão
* >> Início da inclusão:
SELECT tpcontr vlir FROM /pws/zycbt004
* << Fim da inclusão
INTO (/pws/zycbt004-tpcontr, /pws/zycbt004-vlir)
* >> Início da inclusão:
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseqc EQ itab_valores-nrseqc
AND tpdesp EQ itab_valores-tpdesp
AND nrparc EQ itab_valores-nrparc
AND dtincl EQ itab_valores-dtincl
AND dtliquid EQ itab_valores-dtliquid.
* >> Início da inclusão:
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0 AND NOT /pws/zycbt004-vlir IS INITIAL AND
/pws/zycbt004-tpcontr(1) EQ 'D'.
DELETE itab_valores INDEX v_tabix.
DELETE record_tab INDEX v_tabix.
CONTINUE.
ENDIF.
* >> Início da exclusão:
SELECT SINGLE * FROM /pws/zycbt064
* << Fim da exclusão
* >> Início da inclusão:
SELECT * FROM /pws/zycbt064
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrchave EQ itab_valores-nrseqc
AND nrparc EQ itab_valores-nrparc
AND dtliquid EQ itab_valores-dtliquid
AND mdcorresp EQ 'ED'.
* >> Início da inclusão:
ENDSELECT.
* << Fim da inclusão
IF sy-subrc NE 0.
IF v_subrc IS INITIAL.
* >> Início da exclusão:
SELECT SINGLE * FROM /pws/zycbt006 INTO /pws/zycbt006
* << Fim da exclusão
* >> Início da inclusão:
SELECT * FROM /pws/zycbt006 INTO /pws/zycbt006
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseqc = itab_valores-nrseqc
AND nrparc = itab_valores-nrparc
AND dtvincul = itab_valores-dtincl
AND nrinvoic = itab_valores-nrinvoic
AND gsberf = itab_valores-gsberf
AND dtpagto = itab_valores-dtliquid.
* >> Início da inclusão:
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0 OR
itab_valores-tpdesp EQ 'D' OR
itab_valores-tpdesp EQ 'JC'.
CONTINUE.
ELSEIF sy-subrc NE 0.
* >> Início da exclusão:
SELECT SINGLE * FROM /pws/zycbt005 INTO wa_zycbt005
* << Fim da exclusão
* >> Início da inclusão:
SELECT * FROM /pws/zycbt005 INTO wa_zycbt005
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseqc = itab_valores-nrseqc
AND nrparc = itab_valores-nrparc
AND dtvincul = itab_valores-dtincl
AND nrinvoic = itab_valores-nrinvoic
AND gsberf = itab_valores-gsberf.
* >> Início da inclusão:
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0 AND NOT wa_zycbt005-dtcredext IS INITIAL.
CONTINUE.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZZYCBGF3U04
* >> Início da exclusão:
tables: /pws/zycbt005.
* << Fim da exclusão
* >> Início da inclusão:
TABLES: /pws/zycbt005."#EC *
* << Fim da inclusão
data: begin of itab_vinculacao occurs 0.
include structure record_tab.
data: end of itab_vinculacao.
data: v_string like record_tab-string.
loop at record_tab.
v_string = record_tab-string.
move v_string to itab_vinculacao.
append itab_vinculacao.
delete record_tab where string = v_string.
endloop.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZZYCBGF3U06
DATA: v_nrseqc LIKE /pws/zycbt001-nrseqc,
v_nrseqc2 LIKE /pws/zycbt001-nrseqc,
* >> Início da exclusão:
v_nrinvoic LIKE /pws/zycbt005-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão:
v_nrinvoic LIKE /pws/zycbt005-nrinvoic. "#EC *
* << Fim da inclusão
LOOP AT record_tab.
v_nrseqc = record_tab+3(8).
v_nrseqc2 = record_tab(8).
* >> Início da exclusão:
SELECT SINGLE nrinvoic
* << Fim da exclusão
* >> Início da inclusão:
SELECT nrinvoic
* << Fim da inclusão
FROM /pws/zycbt005
INTO v_nrinvoic
* >> Início da inclusão:
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseqc = v_nrseqc
OR nrseqc = v_nrseqc2.
* >> Início da inclusão:
ENDSELECT.
* << Fim da inclusão
IF sy-subrc NE 0.
DELETE record_tab.
ENDIF.
ENDLOOP.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZZYCBGF3U07
data: itab_zycbt096 like /pws/zycbt096 occurs 10 with header line,
itab_zycbt161 like /pws/zycbt161 occurs 10 with header line,
itab_aux like record_tab occurs 10 with header line.
itab_aux[] = record_tab[].
select * from /pws/zycbt096
* >> Início da exclusão:
into table itab_zycbt096.
* << Fim da exclusão
* >> Início da inclusão:
INTO TABLE itab_zycbt096. "#EC CI_NOWHERE
* << Fim da inclusão
select * from /pws/zycbt161
* >> Início da exclusão:
into table itab_zycbt161.
* << Fim da exclusão
* >> Início da inclusão:
INTO TABLE itab_zycbt161."#EC CI_NOWHERE
* << Fim da inclusão
loop at itab_aux.
read table itab_zycbt096 with key
mandt = itab_aux-string(3)
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZZYCBGF3U10
data: v_impr(1),
v_tabix like sy-tabix..
data: begin of itab_tpcont occurs 10.
include structure /pws/zycbt122.
data: end of itab_tpcont.
* >> Início da inclusão:
CONSTANTS c_fi TYPE char2 VALUE 'FI'.
* << Fim da inclusão
select * from /pws/zycbt122
into table itab_tpcont.
* >> Início da exclusão:
read table record_tab.
* << Fim da exclusão
* >> Início da inclusão:
READ TABLE record_tab ."#EC *
* << Fim da inclusão
v_tabix = sy-tabix.
read table record_tab with key string(2) = 'FI'.
if sy-subrc ne 0 and
v_tabix ne 1.
loop at itab_tpcont.
if v_impr is initial.
* >> Início da exclusão:
concatenate 'FI' 'Financiamento'
* << Fim da exclusão
* >> Início da inclusão:
CONCATENATE c_fi text-001
* << Fim da inclusão
into record_tab-string.
append record_tab.
v_impr = 'X'.
endif.
concatenate itab_tpcont-tpemprest
itab_tpcont-txtdesc
into record_tab-string.
append record_tab.
endloop.
clear v_impr.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZZYCBGF3U26
data: wa_t001 like t001,
* >> Início da exclusão:
wa_t001w like t001w,
* << Fim da exclusão
* >> Início da inclusão:
wa_t001w LIKE t001w, "#EC *
* << Fim da inclusão
wa_t005t like t005t,
wa_adrc like adrc.
clear: buk_inf1, buk_inf2, buk_inf3, buk_inf4, land1.
select single * from t001
into wa_t001
where bukrs eq bukrs.
if sy-subrc eq 0.
* >> Início da exclusão:
select single * from adrc
* << Fim da exclusão
* >> Início da inclusão:
SELECT * FROM adrc
* << Fim da inclusão
into wa_adrc
* >> Início da inclusão:
UP TO 1 ROWS
* << Fim da inclusão
where addrnumber eq wa_t001-adrnr.
* >> Início da inclusão:
ENDSELECT.
* << Fim da inclusão
if sy-subrc eq 0.
concatenate wa_adrc-name1 wa_adrc-name2 into buk_inf1
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZZYCBGF3U35
TYPES:
BEGIN OF t_s_valores,
nrseq TYPE /pws/zycbt113-nrseq,
nrparc TYPE /pws/zycbt113-nrparc,
END OF t_s_valores,
t_t_valores TYPE STANDARD TABLE OF t_s_valores WITH DEFAULT KEY.
TYPE-POOLS: sydes.
* >> Início da exclusão:
DATA: t_sydes TYPE sydes_desc,
wa_types TYPE sydes_typeinfo,
v_len TYPE i.
* << Fim da exclusão
* >> Início da inclusão:
DATA: t_sydes TYPE sydes_desc,"#EC *
wa_types TYPE sydes_typeinfo,"#EC *
v_len TYPE i."#EC *
* << Fim da inclusão
DATA:
itab_valores TYPE t_t_valores,
v_fieldname TYPE dfies-lfieldname.
FIELD-SYMBOLS:
<fs_shlp> LIKE LINE OF shlp_tab,
<fs_fielddescr> LIKE LINE OF shlp_tab-fielddescr,
<fs_valores> LIKE LINE OF itab_valores.
IF callcontrol-step = 'RETURN'.
DATA: BEGIN OF shlp_struc,
mandt LIKE /pws/zycbt113-mandt,
...
...
parameter = <fs_fielddescr>-fieldname
fieldname = v_fieldname
TABLES
shlp_tab = shlp_tab
record_tab = record_tab
results_tab = itab_valores
CHANGING
shlp = shlp
callcontrol = callcontrol
EXCEPTIONS
* >> Início da exclusão:
parameter_unknown = 1
OTHERS = 2.
* << Fim da exclusão
* >> Início da inclusão:
parameter_unknown = 0
OTHERS = 0.
* << Fim da inclusão
IF sy-subrc <> 0.
ENDIF.
ENDLOOP.
READ TABLE record_tab INDEX 1.
IF sy-subrc = '0'.
READ TABLE itab_valores INDEX 1 ASSIGNING <fs_valores>.
IF <fs_valores> IS ASSIGNED.
MOVE-CORRESPONDING <fs_valores> TO shlp_struc.
ENDIF.
EXPORT shlp_struc TO MEMORY ID '/PWS/ZYCBA172'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZZYCBGF3U38
IF V_tcode eq '/PWS/ZYCB009_C' and
v_sbu is initial.
LOOP AT itab_zycbt005.
* >> Início da exclusão:
SELECT SINGLE * FROM /pws/zycbt509
* << Fim da exclusão
* >> Início da inclusão:
SELECT * FROM /pws/zycbt509
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrinvoic = itab_zycbt005-nrinvoic AND
nrparcf = itab_zycbt005-nrparcf AND
gsberf = itab_zycbt005-gsberf .
* >> Início da inclusão:
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0.
* >> Início da exclusão:
SELECT SINGLE * FROM /pws/zycbt514
* << Fim da exclusão
* >> Início da inclusão:
SELECT * FROM /pws/zycbt514
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseqc = itab_zycbt005-nrseqc AND
nrinvoic = itab_zycbt005-nrinvoic AND
nrparcf = itab_zycbt005-nrparcf AND
gsberf = itab_zycbt005-gsberf AND
dtvincul = itab_zycbt005-dtvincul .
* >> Início da inclusão:
ENDSELECT.
* << Fim da inclusão
IF sy-subrc NE 0.
v_fat_sbu = 'X'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZZYCBGF3U41
IF V_Tcode eq '/PWS/ZYCB004_C' and
v_sbu is initial.
LOOP AT itab_zycbt005.
* >> Início da exclusão:
SELECT SINGLE * FROM /pws/zycbt514
* << Fim da exclusão
* >> Início da inclusão:
SELECT * FROM /pws/zycbt514
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrinvoic = itab_zycbt005-nrinvoic AND
nrparcf = itab_zycbt005-nrparcf AND
gsberf = itab_zycbt005-gsberf AND
* >> Início da exclusão:
dtvincul = itab_zycbt005-dtvincul .
* << Fim da exclusão
* >> Início da inclusão:
dtvincul = itab_zycbt005-dtvincul . "#EC CI_NOFIRST
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0.
* >> Início da exclusão:
SELECT SINGLE * FROM /pws/zycbt511
* << Fim da exclusão
* >> Início da inclusão:
SELECT * FROM /pws/zycbt511
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseqc = itab_zycbt005-nrseqc AND
nrinvoic = itab_zycbt005-nrinvoic AND
nrparcf = itab_zycbt005-nrparcf AND
gsberf = itab_zycbt005-gsberf AND
dtvincul = itab_zycbt005-dtvincul .
* >> Início da inclusão:
ENDSELECT.
* << Fim da inclusão
IF sy-subrc NE 0.
V_FAT_SBU = 'X'.
EXIT.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZZYCBGF3U44
...
ELSEIF NOT wa_zycbt051-dtfech IS INITIAL.
v_tpdev = 'RD'.
v_dtreceb = wa_zycbt051-dtfech.
ELSEIF NOT wa_zycbt051-dtpdd IS INITIAL.
v_tpdev = 'PD'.
v_dtreceb = wa_zycbt051-dtpdd.
ELSEIF NOT wa_zycbt051-dtapr IS INITIAL.
v_tpdev = 'DP'.
v_dtreceb = wa_zycbt051-dtapr.
ENDIF.
* >> Início da exclusão:
SELECT single * FROM /pws/zycbt514
* << Fim da exclusão
* >> Início da inclusão:
SELECT * FROM /pws/zycbt514
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseqc = wa_zycbt051-nrseqc AND
nrinvoic = wa_zycbt051-nrinvoic AND
gsberf = wa_zycbt051-gsberf AND
nrparcf = wa_zycbt051-nrparcf and
dtvincul = wa_zycbt051-dtvincul.
* >> Início da inclusão:
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0.
* >> Início da exclusão:
SELECT single * FROM /pws/zycbt513
* << Fim da exclusão
* >> Início da inclusão:
SELECT * FROM /pws/zycbt513
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrinvoic EQ wa_zycbt051-nrinvoic AND
nrparcf EQ wa_zycbt051-nrparcf AND
gsberf EQ wa_zycbt051-gsberf AND
nrseqc EQ wa_zycbt051-nrseqc AND
DTRECEB eq v_DTRECEB and
tpdev eq v_tpdev.
* >> Início da inclusão:
ENDSELECT.
* << Fim da inclusão
IF sy-subrc NE 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZZYCBGF3U47
IF V_TCODE = 'C' AND
V_SBU IS INITIAL.
LOOP AT ITAB_ZYCBT005.
* >> Início da exclusão:
SELECT SINGLE * FROM /PWS/ZYCBT509
* << Fim da exclusão
* >> Início da inclusão:
SELECT * FROM /pws/zycbt509
UP TO 1 ROWS
* << Fim da inclusão
WHERE NRINVOIC = ITAB_ZYCBT005-NRINVOIC AND
NRPARCF = ITAB_ZYCBT005-NRPARCF AND
GSBERF = ITAB_ZYCBT005-GSBERF .
* >> Início da inclusão:
ENDSELECT.
* << Fim da inclusão
IF SY-SUBRC EQ 0.
* >> Início da exclusão:
SELECT SINGLE * FROM /PWS/ZYCBT512
* << Fim da exclusão
* >> Início da inclusão:
SELECT * FROM /pws/zycbt512
UP TO 1 ROWS
* << Fim da inclusão
WHERE NRSEQC = ITAB_ZYCBT005-NRSEQC AND
NRINVOIC = ITAB_ZYCBT005-NRINVOIC AND
NRPARCF = ITAB_ZYCBT005-NRPARCF AND
GSBERF = ITAB_ZYCBT005-GSBERF AND
DTVINCUL = ITAB_ZYCBT005-DTVINCUL .
* >> Início da inclusão:
ENDSELECT.
* << Fim da inclusão
IF SY-SUBRC NE 0.
v_fat_sbu = 'X'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZZYCBGF3U55
DATA : BEGIN OF itab_zycbt161 OCCURS 0,
vbeln_va LIKE /pws/zycbt161-vbeln_va,
nrseq LIKE /pws/zycbt161-nrseq,
END OF itab_zycbt161.
IF NOT record_tab[] IS INITIAL AND sy-ucomm EQ 'INIT'.
REFRESH itab_zycbt161.
SELECT vbeln_va nrseq
FROM /pws/zycbt161
* >> Início da exclusão:
INTO TABLE itab_zycbt161.
* << Fim da exclusão
* >> Início da inclusão:
INTO TABLE itab_zycbt161."#EC CI_NOWHERE
* << Fim da inclusão
LOOP AT itab_zycbt161.
READ TABLE record_tab INDEX 1.
IF record_tab+0(3) = sy-mandt.
CLEAR record_tab.
MOVE sy-mandt TO record_tab+0(3).
MOVE itab_zycbt161-vbeln_va TO record_tab+3(10).
MOVE itab_zycbt161-nrseq TO record_tab+19(8).
ELSE.
CLEAR record_tab.
MOVE itab_zycbt161-vbeln_va TO record_tab+0(10).
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPLZYCBGF
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 027
Texto: (14 caracteres)
"Processando..."
Comprimento máximo: 14
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPLZYCBGF3
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 001
Texto: (13 caracteres)
"Financiamento"
Comprimento máximo: 13