CE PLUS - Nota 006029
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Relatórios
Data/Hora da Publicação: 26/02/2008 00:00:00
Data/Hora Última Alteração: 03/03/2010 17:47:27
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 06029 Data: 26/02/2008 Hora: 11:55:30
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 06029
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:
RELE F6DK958355 20080226 114930 PWSCB
REPS /PWS/MZYCB035F01
REPS /PWS/MZYCB035F02
REPS /PWS/MZYCB035F03
REPS /PWS/MZYCB251F01
REPS /PWS/MZYCB251O01
REPS /PWS/MZYCB251TOP
REPT /PWS/SAPMZYCB251
----------------------------------------------------------------------------------------------------
Modificações efetuadas em RELE F6DK958355 20080226 114930 PWSCB
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB035F01
...
v_valor(40) TYPE c.
FIELD-SYMBOLS:
<fs_drilldown> LIKE LINE OF itab_drilldown,
<fs_param> TYPE t_s_parameter,
<fs_field> TYPE ANY,
<fs_zycbt228a> LIKE LINE OF itab_zycbt228a.
GET CURSOR FIELD v_campo VALUE v_valor.
IF sy-subrc = 0.
ok_code = 'DUMMY'.
IF v_valor IS INITIAL.
* >> Início da exclusão: FORM DRILLDOWN
MESSAGE w302 WITH space.
* << Fim da exclusão
* >> Início da inclusão: FORM DRILLDOWN
MESSAGE w302 WITH space. "#EC *
* << Fim da inclusão
ELSE.
READ TABLE itab_drilldown
WITH TABLE KEY field = v_campo
ASSIGNING <fs_drilldown>.
IF <fs_drilldown> IS ASSIGNED.
AUTHORITY-CHECK OBJECT c_s_tcode ID c_s_tcd
FIELD <fs_drilldown>-tcode.
IF sy-subrc = 0.
IF sy-dynnr = '0102'.
GET CURSOR LINE v_linha.
...
...
ENDIF.
ELSE.
PERFORM (<fs_drilldown>-form) IN PROGRAM (c_programa)
USING <fs_drilldown>-param IF FOUND.
ENDIF.
UNASSIGN <fs_drilldown>.
ELSE.
MESSAGE w261(sf) WITH <fs_drilldown>-tcode.
ENDIF.
ELSE.
* >> Início da exclusão: FORM DRILLDOWN
MESSAGE w256(00).
* << Fim da exclusão
* >> Início da inclusão: FORM DRILLDOWN
MESSAGE w256(00). "#EC *
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM user_command_0010.
CASE ok_code.
WHEN 'MODO_BI'.
PERFORM seleciona_modo_bi.
WHEN 'SAVE'.
PERFORM salva_dados.
...
...
IF <fs_oper> IS ASSIGNED.
<fs_oper> = c_eliminado.
UNASSIGN <fs_oper>.
ENDIF.
UNASSIGN <fs_mark>.
ENDIF.
ENDLOOP.
ENDFORM.
FORM ajuda_fatura.
CONSTANTS:
* >> Início da exclusão: FORM AJUDA_FATURA
c_tabname TYPE dfies-tabname VALUE '/PWS/ZYCBE227A',
c_fieldname TYPE dfies-fieldname VALUE 'NRINVOIC',
* << Fim da exclusão
* >> Início da inclusão: FORM AJUDA_FATURA
c_tabname TYPE dfies-tabname VALUE '/PWS/ZYCBE227A',"#EC *
c_fieldname TYPE dfies-fieldname VALUE 'NRINVOIC', "#EC *
* << Fim da inclusão
c_searchhelp_c TYPE shlpname VALUE '/PWS/ZYCBA276',
* >> Início da exclusão: FORM AJUDA_FATURA
c_searchhelp_a TYPE shlpname VALUE '/PWS/ZYCBA278'.
* << Fim da exclusão
* >> Início da inclusão: FORM AJUDA_FATURA
c_searchhelp_a TYPE shlpname VALUE '/PWS/ZYCBA278'."#EC *
* << Fim da inclusão
DATA:
v_searchhelp(14) TYPE c,
wa_fatura TYPE t_s_fatura,
...
...
no_help_for_field = 2
inconsistent_help = 3
no_values_found = 4
OTHERS = 5.
IF sy-subrc <> 0.
EXIT.
ENDIF.
IMPORT record_tab FROM MEMORY ID 'mcx_record_tab'.
READ TABLE record_tab INDEX 1 ASSIGNING <fs_record>.
IF sy-subrc = 0.
* >> Início da exclusão: FORM AJUDA_FATURA
SELECT SINGLE nrinvoic nrparcf gsberf
* << Fim da exclusão
* >> Início da inclusão: FORM AJUDA_FATURA
SELECT nrinvoic nrparcf gsberf
* << Fim da inclusão
FROM /pws/zycbv216
INTO wa_fatura
* >> Início da inclusão: FORM AJUDA_FATURA
UP TO 1 ROWS
* << Fim da inclusão
WHERE
nrinvoic = <fs_record>-string+03(20) AND
nrparcf = <fs_record>-string+23(02) AND
gsberf = <fs_record>-string+25(04).
* >> Início da inclusão: FORM AJUDA_FATURA
ENDSELECT.
* << Fim da inclusão
IF sy-subrc = 0.
v_pos1 = 3.
v_pos2 = 23.
v_pos3 = 25.
ELSE.
v_pos1 = 0.
v_pos2 = 20.
v_pos3 = 22.
ENDIF.
wa_fatura-nrinvoic = <fs_record>-string+v_pos1(20).
...
...
EXIT.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM ajuda_remessa.
CONSTANTS:
c_tabname TYPE dfies-tabname VALUE '/PWS/ZYCBE229A',
c_fieldname TYPE dfies-fieldname VALUE 'NRSEQ',
c_dynprofield TYPE help_info-dynprofld
* >> Início da exclusão: FORM AJUDA_REMESSA
VALUE '/PWS/ZYCBE229A-NRSEQ',
c_searchhelp_c TYPE shlpname VALUE '/PWS/ZYCAA025',
c_searchhelp_a TYPE shlpname VALUE '/PWS/ZYCAA026'.
* << Fim da exclusão
* >> Início da inclusão: FORM AJUDA_REMESSA
VALUE '/PWS/ZYCBE229A-NRSEQ', "#EC *
c_searchhelp_c TYPE shlpname VALUE '/PWS/ZYCAA025',
c_searchhelp_a TYPE shlpname VALUE '/PWS/ZYCAA026'. "#EC *
* << Fim da inclusão
DATA
v_searchhelp(14) TYPE c.
FIELD-SYMBOLS
<fs_searchhelp> TYPE shlpname.
IF sy-tcode = c_transacao_c.
v_searchhelp = 'C_SEARCHHELP_C'.
ELSE.
v_searchhelp = 'C_SEARCHHELP_A'.
ENDIF.
IF NOT v_searchhelp IS INITIAL.
...
...
c_gsberf TYPE dynpread-fieldname VALUE '/PWS/ZYCBE227A-GSBERF',
c_nrseq TYPE dynpread-fieldname VALUE '/PWS/ZYCBE229A-NRSEQ',
c_dtassoc TYPE dynpread-fieldname VALUE '/PWS/ZYCBE227A-DTASSOC'.
DATA:
itab_dynpfields TYPE t_t_dynpread,
itab_dtassoc TYPE t_t_dtassoc,
wa_dynpfields LIKE LINE OF itab_dynpfields,
wa_fatura TYPE t_s_fatura,
v_nrseq TYPE /pws/zycbe229a-nrseq,
v_mensagem(400) TYPE c,
* >> Início da exclusão: FORM AJUDA_DTASSOC
v_resposta(1) TYPE c,
* << Fim da exclusão
* >> Início da inclusão: FORM AJUDA_DTASSOC
v_resposta(1) TYPE c, "#EC *
* << Fim da inclusão
v_nao_existe(1) TYPE c.
FIELD-SYMBOLS
<fs_dynpfields> LIKE LINE OF itab_dynpfields.
PERFORM adiciona_campo_tela:
USING c_nrinvoic space 0 CHANGING itab_dynpfields,
USING c_nrparcf space 0 CHANGING itab_dynpfields,
USING c_gsberf space 0 CHANGING itab_dynpfields,
USING c_nrseq space 0 CHANGING itab_dynpfields.
CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
...
...
PERFORM transfere_campos_sh_ordem
USING itab_nrseq
CHANGING v_linha itab_dynpread.
Select * From /pws/zycbt238
APPENDING TABLE itab_disponibilidade
FOR ALL ENTRIES IN itab_nrseq
WHERE nrseq = itab_nrseq-table_line.
Select * From /pws/zycbt241
APPENDING TABLE itab_zycbt241
FOR ALL ENTRIES IN itab_nrseq
* >> Início da exclusão: FORM AJUDA_ORDEM_VENDA
WHERE nrseq = itab_nrseq-table_line.
* << Fim da exclusão
* >> Início da inclusão: FORM AJUDA_ORDEM_VENDA
WHERE nrseq = itab_nrseq-table_line. "#EC CI_NOFIRST
* << Fim da inclusão
IF NOT itab_dynpread IS INITIAL.
CALL FUNCTION 'DYNP_VALUES_UPDATE'
EXPORTING
dyname = c_programa
dynumb = sy-dynnr
TABLES
dynpfields = itab_dynpread
EXCEPTIONS
invalid_abapworkarea = 1
invalid_dynprofield = 2
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB035F02
FORM carrega_parametros.
CHECK wa_controle-parametros_carregados IS INITIAL.
SELECT kunnr name1
FROM kna1
* >> Início da exclusão: FORM CARREGA_PARAMETROS
INTO TABLE itab_kna1.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_PARAMETROS
INTO TABLE itab_kna1. "#EC CI_NOWHERE
* << Fim da inclusão
SELECT bukrs branch
FROM j_1bbranch
INTO TABLE itab_j_1bbranch.
SELECT addrnumber date_from nation country
FROM adrc
* >> Início da exclusão: FORM CARREGA_PARAMETROS
INTO TABLE itab_adrc.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_PARAMETROS
INTO TABLE itab_adrc. "#EC CI_NOWHERE
* << Fim da inclusão
SELECT bukrs butxt periv
FROM t001
INTO TABLE itab_t001.
SELECT werks j_1bbranch
FROM t001w
INTO TABLE itab_t001w.
SELECT *
FROM /pws/zycbt007
INTO TABLE itab_zycbt007.
SELECT *
...
...
value(p_wa_fatura) TYPE t_s_fatura
value(p_nrseq) TYPE /pws/zycbt229-nrseq_remessa
CHANGING p_itab_dtassoc TYPE t_t_dtassoc.
IF p_nrseq IS INITIAL.
SELECT DISTINCT dtassoc
FROM /pws/zycbt227
INTO TABLE p_itab_dtassoc
WHERE
nrinvoic = p_wa_fatura-nrinvoic AND
nrparcf = p_wa_fatura-nrparcf AND
* >> Início da exclusão: FORM SELECIONA_DTASSOC
gsberf = p_wa_fatura-gsberf.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DTASSOC
gsberf = p_wa_fatura-gsberf. "#EC CI_NOFIRST
* << Fim da inclusão
ELSE.
SELECT DISTINCT dtassoc
FROM /pws/zycbt229
INTO TABLE p_itab_dtassoc
* >> Início da exclusão: FORM SELECIONA_DTASSOC
WHERE nrseq_remessa = p_nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DTASSOC
WHERE nrseq_remessa = p_nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM seleciona_dados
USING
value(p_wa_fatura) TYPE t_s_fatura
value(p_nrseq) TYPE /pws/zycbt229-nrseq_remessa
value(p_dtassoc) TYPE /pws/zycbt227-dtassoc.
CHECK NOT ( p_wa_fatura IS INITIAL AND p_nrseq IS INITIAL ).
IF NOT p_wa_fatura IS INITIAL.
PERFORM seleciona_dados_fatura
...
...
SELECT SINGLE
nrinvoic nrparcf gsberf nremb bukrs dtinvoic dtbl kunag zterm
werks j_1bbranch
vlslf
FROM /pws/zycbt017
INTO wa_zycbt017
WHERE
nrinvoic = p_wa_fatura-nrinvoic AND
nrparcf = p_wa_fatura-nrparcf AND
gsberf = p_wa_fatura-gsberf.
* >> Início da exclusão: FORM SELECIONA_DADOS_FATURA
SELECT SINGLE nrinvoic nrparcf gsberf belnr waers belnr6 budat
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_FATURA
SELECT nrinvoic nrparcf gsberf belnr waers belnr6 budat
* << Fim da inclusão
vlsltrans
vlslliq
belnr_t
budat_t
FROM /pws/zycbt030
INTO wa_zycbt030
* >> Início da inclusão: FORM SELECIONA_DADOS_FATURA
UP TO 1 ROWS
* << Fim da inclusão
WHERE
nrinvoic = p_wa_fatura-nrinvoic AND
nrparcf = p_wa_fatura-nrparcf AND
gsberf = p_wa_fatura-gsberf.
* >> Início da inclusão: FORM SELECIONA_DADOS_FATURA
ENDSELECT.
* << Fim da inclusão
ENDFORM.
FORM seleciona_dados_remessa
USING value(p_nrseq) TYPE /pws/zycbt229-nrseq_remessa.
CHECK NOT p_nrseq IS INITIAL.
SELECT SINGLE nrseq nrfech bukrs gsber j_1bbranch werks recrem dtincl
dtvencto waers vlme txtinf dtpagto kursf ftaxa dtdocto belnr
sld_associar dtassoc belnr_assoc
FROM /pws/zycbt124
INTO wa_zycbt124
WHERE nrseq = p_nrseq.
...
...
value(p_dtassoc) TYPE /pws/zycbt227-dtassoc.
CHECK NOT ( p_wa_fatura IS INITIAL AND p_nrseq IS INITIAL ).
IF NOT p_wa_fatura IS INITIAL.
SELECT *
FROM /pws/zycbt227
INTO TABLE itab_zycbt227
WHERE
nrinvoic = p_wa_fatura-nrinvoic AND
nrparcf = p_wa_fatura-nrparcf AND
gsberf = p_wa_fatura-gsberf AND
* >> Início da exclusão: FORM SELECIONA_DADOS_ASSOCIACAO
dtassoc = p_dtassoc.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_ASSOCIACAO
dtassoc = p_dtassoc. "#EC CI_NOFIRST
* << Fim da inclusão
SELECT *
FROM /pws/zycbt228
INTO TABLE itab_zycbt228
WHERE
nrinvoic = p_wa_fatura-nrinvoic AND
nrparcf = p_wa_fatura-nrparcf AND
gsberf = p_wa_fatura-gsberf AND
* >> Início da exclusão: FORM SELECIONA_DADOS_ASSOCIACAO
dtassoc = p_dtassoc.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_ASSOCIACAO
dtassoc = p_dtassoc. "#EC CI_NOFIRST
* << Fim da inclusão
ELSE.
SELECT *
FROM /pws/zycbt229
INTO TABLE itab_zycbt229
WHERE
nrseq_remessa = p_nrseq AND
* >> Início da exclusão: FORM SELECIONA_DADOS_ASSOCIACAO
dtassoc = p_dtassoc.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_ASSOCIACAO
dtassoc = p_dtassoc. "#EC CI_NOFIRST
* << Fim da inclusão
SELECT *
FROM /pws/zycbt230
INTO TABLE itab_zycbt230
WHERE
nrseq_remessa = p_nrseq AND
* >> Início da exclusão: FORM SELECIONA_DADOS_ASSOCIACAO
dtassoc = p_dtassoc.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_ASSOCIACAO
dtassoc = p_dtassoc. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM seleciona_dados_ordem_pagto.
IF NOT itab_zycbt227 IS INITIAL.
SELECT nrseq gsberf bukrs werks j_1bbranch kunag waers sld_associar
dtcredext dtlancto dtincl dtlimite ref_op obs belnr_op
conta_contabil rze tp_conta belnr_assoc dt_assoc
FROM /pws/zycbt226
INTO TABLE itab_zycbt226
FOR ALL ENTRIES IN itab_zycbt227
...
...
WHERE nrseq = itab_zycbt229-nrseq.
ENDIF.
IF NOT itab_zycbt226[] IS INITIAL.
SELECT * FROM /pws/zycbt238
INTO TABLE itab_disponibilidade
FOR ALL ENTRIES IN itab_zycbt226
WHERE nrseq = itab_zycbt226-nrseq.
SELECT * FROM /pws/zycbt241
INTO TABLE itab_zycbt241
FOR ALL ENTRIES IN itab_zycbt226
* >> Início da exclusão: FORM SELECIONA_DADOS_ORDEM_PAGTO
WHERE nrseq = itab_zycbt226-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_ORDEM_PAGTO
WHERE nrseq = itab_zycbt226-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM authority_check
USING
value(p_objeto)
value(p_campo_obj)
value(p_campo)
value(p_acao).
AUTHORITY-CHECK
OBJECT p_objeto ID p_campo_obj DUMMY ID 'ACTVT' FIELD p_acao.
...
...
OTHERS = 3.
IF sy-subrc <> 0.
IF sy-msgid = 'MC' AND
sy-msgno = 601.
v_uname = sy-msgv1.
ENDIF.
ENDIF.
ENDIF.
IF sy-subrc <> 0.
IF NOT v_uname IS INITIAL.
* >> Início da exclusão: FORM BLOQUEIA_ASSOCIACAO
MESSAGE w202.
* << Fim da exclusão
* >> Início da inclusão: FORM BLOQUEIA_ASSOCIACAO
MESSAGE w202. "#EC *
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FORM BLOQUEIA_ASSOCIACAO
MESSAGE w250 WITH v_uname.
* << Fim da exclusão
* >> Início da inclusão: FORM BLOQUEIA_ASSOCIACAO
MESSAGE w250 WITH v_uname. "#EC *
* << Fim da inclusão
ENDIF.
ENDIF.
ENDFORM.
...
...
USING
value(p_wa_fatura) TYPE t_s_fatura
value(p_nrseq) TYPE /pws/zycbe229a-nrseq
value(p_dtassoc) TYPE /pws/zycbe227a-dtassoc
CHANGING p_nao_existe TYPE c.
DATA
v_dtassoc TYPE /pws/zycbe227a-dtassoc. "#EC NEEDED
CHECK NOT ( p_wa_fatura IS INITIAL AND p_nrseq IS INITIAL ) AND
NOT p_dtassoc IS INITIAL.
IF btn_remessa IS INITIAL.
* >> Início da exclusão: FORM VERIFICA_ASSOCIACAO
SELECT SINGLE dtassoc
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ASSOCIACAO
SELECT dtassoc
* << Fim da inclusão
FROM /pws/zycbt227
INTO v_dtassoc
* >> Início da inclusão: FORM VERIFICA_ASSOCIACAO
UP TO 1 ROWS
* << Fim da inclusão
WHERE
nrinvoic = p_wa_fatura-nrinvoic AND
nrparcf = p_wa_fatura-nrparcf AND
gsberf = p_wa_fatura-gsberf AND
* >> Início da exclusão: FORM VERIFICA_ASSOCIACAO
dtassoc = p_dtassoc.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ASSOCIACAO
dtassoc = p_dtassoc. "#EC CI_NOFIRST
ENDSELECT.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FORM VERIFICA_ASSOCIACAO
SELECT SINGLE dtassoc
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ASSOCIACAO
SELECT dtassoc
* << Fim da inclusão
FROM /pws/zycbt229
INTO v_dtassoc
* >> Início da inclusão: FORM VERIFICA_ASSOCIACAO
UP TO 1 ROWS
* << Fim da inclusão
WHERE
nrseq_remessa = p_nrseq AND
* >> Início da exclusão: FORM VERIFICA_ASSOCIACAO
dtassoc = p_dtassoc.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ASSOCIACAO
dtassoc = p_dtassoc. "#EC CI_NOFIRST
ENDSELECT.
* << Fim da inclusão
ENDIF.
...
...
tpoper = 'R'.
IF sy-subrc <> 0.
p_nao_existe = 'X'.
ENDIF.
ENDFORM.
FORM verifica_embarque
USING value(p_wa_fatura) TYPE t_s_fatura
CHANGING p_nao_existe TYPE c.
DATA
v_vlslliq TYPE /pws/zycbt030-vlslliq. "#EC NEEDED
* >> Início da exclusão: FORM VERIFICA_EMBARQUE
SELECT SINGLE vlslliq
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_EMBARQUE
SELECT vlslliq
* << Fim da inclusão
FROM /pws/zycbt030
INTO v_vlslliq
* >> Início da inclusão: FORM VERIFICA_EMBARQUE
UP TO 1 ROWS
* << Fim da inclusão
WHERE
nrinvoic = p_wa_fatura-nrinvoic AND
nrparcf = p_wa_fatura-nrparcf AND
gsberf = p_wa_fatura-gsberf.
* >> Início da inclusão: FORM VERIFICA_EMBARQUE
ENDSELECT.
* << Fim da inclusão
IF sy-subrc <> 0.
p_nao_existe = 'X'.
ENDIF.
ENDFORM.
FORM consiste_dtassoc
USING
value(p_nrinvoic) TYPE /pws/zycbe227a-nrinvoic
value(p_nrparcf) TYPE /pws/zycbe227a-nrparcf
value(p_gsberf) TYPE /pws/zycbe227a-gsberf
value(p_nrseq) TYPE /pws/zycbe229a-nrseq
...
...
ENDFORM.
FORM verifica_bloqueio
CHANGING p_itab_zycbe224 TYPE t_t_zycbe224.
TYPES:
BEGIN OF t_s_koart,
koart TYPE /pws/zycbe224-koart,
END OF t_s_koart,
t_t_koart TYPE SORTED TABLE OF t_s_koart
WITH UNIQUE DEFAULT KEY.
CONSTANTS:
* >> Início da exclusão: FORM VERIFICA_BLOQUEIO
s TYPE seqg3-gname VALUE 'SKB1',
d TYPE seqg3-gname VALUE 'KNB1'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_BLOQUEIO
s TYPE seqg3-gname VALUE 'SKB1', "#EC *
d TYPE seqg3-gname VALUE 'KNB1'. "#EC *
* << Fim da inclusão
DATA:
v_bloqueios TYPE sy-tabix,
itab_koart TYPE t_t_koart,
itab_enq TYPE TABLE OF seqg3 WITH DEFAULT KEY,
wa_koart LIKE LINE OF itab_koart.
FIELD-SYMBOLS:
<fs_zycbe224> LIKE LINE OF p_itab_zycbe224,
<fs_koart> LIKE LINE OF itab_koart,
<fs_enq> LIKE LINE OF itab_enq,
<fs_gname> TYPE seqg3-gname.
...
...
txtnr = 061
EXCEPTIONS
message_type_not_valid = 1
not_active = 2
OTHERS = 3.
IF sy-subrc <> 0.
EXIT.
ENDIF.
ENDLOOP.
ENDFORM.
* >> Início da exclusão: FORM DRILLDOWN_ZYCB034
FORM drilldown_zycb034 USING p_itab_parameter TYPE t_t_parameter.
* << Fim da exclusão
* >> Início da inclusão: FORM DRILLDOWN_ZYCB034
FORM drilldown_zycb034 USING p_itab_parameter
TYPE t_t_parameter."#EC CALLED
* << Fim da inclusão
CONSTANTS:
c_modo_bi(1) TYPE c VALUE 'E',
c_zyglp115 TYPE tpara-paramid VALUE '/PWS/ZYGLP115'.
DATA:
itab_bdc TYPE STANDARD TABLE OF bdcdata
WITH NON-UNIQUE DEFAULT KEY,
wa_bdc LIKE LINE OF itab_bdc.
FIELD-SYMBOLS
<fs_parameter> LIKE LINE OF p_itab_parameter.
CHECK NOT p_itab_parameter IS INITIAL.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB035F03
...
CHANGING
p_kursf TYPE tcurr-ukurs.
CONSTANTS:
c_dtcontr TYPE /pws/zycbt089-tx_desm_liq_and VALUE 'DTCONTR',
c_dtfech TYPE /pws/zycbt089-tx_desm_liq_and VALUE 'DTFECH',
c_dtfech1 TYPE /pws/zycbt089-tx_desm_liq_and VALUE 'DTFECH1',
c_dtlanc TYPE /pws/zycbt089-tx_desm_liq_and VALUE 'DTLANC',
c_dtemb TYPE /pws/zycbt089-tx_desm_liq_and VALUE 'DTEMB',
c_txfat TYPE /pws/zycbt089-tx_desm_liq_and VALUE 'TXFAT',
c_viatrans TYPE /pws/zycbt089-tx_desm_liq_and VALUE 'VIATRANS',
* >> Início da exclusão: FORM DEFINE_TAXA_CAMBIO
c_dtcredext TYPE /pws/zycbt089-tx_desm_liq_and VALUE 'DTCREDEXT',
* << Fim da exclusão
* >> Início da inclusão: FORM DEFINE_TAXA_CAMBIO
c_dtcredext TYPE /pws/zycbt089-tx_desm_liq_and
VALUE 'DTCREDEXT', "#EC *
* << Fim da inclusão
c_dtaverb TYPE /pws/zycet048-dtvrc VALUE 'DTAVERB',
c_dtcruze TYPE /pws/zycet048-dtvrc VALUE 'DTCRUZE'.
DATA
v_dttaxa TYPE d.
FIELD-SYMBOLS:
<fs_zycbt007> LIKE LINE OF itab_zycbt007,
<fs_zycbt009> LIKE LINE OF itab_zycbt009,
<fs_zycbt089> LIKE LINE OF itab_zycbt089,
<fs_zycbt226> LIKE LINE OF itab_zycbt226,
<fs_zycet001> LIKE LINE OF itab_zycet001,
...
...
WITH TABLE KEY nrseq = p_nrinvoic
ASSIGNING <fs_zycet001>.
IF <fs_zycet001> IS ASSIGNED.
READ TABLE itab_zycit054
WITH TABLE KEY vktra_ci = <fs_zycet001>-viatrans
ASSIGNING <fs_zycit054>.
IF <fs_zycit054> IS ASSIGNED.
IF NOT <fs_zycit054>-vktra IS INITIAL.
READ TABLE itab_zycet048
WITH TABLE KEY vktrt = <fs_zycit054>-vktra
* >> Início da exclusão: FORM DEFINE_TAXA_CAMBIO
ASSIGNING <fs_zycet048>.
* << Fim da exclusão
* >> Início da inclusão: FORM DEFINE_TAXA_CAMBIO
ASSIGNING <fs_zycet048>."#EC *
* << Fim da inclusão
IF sy-subrc = 0.
CASE <fs_zycet048>-dtvrc.
WHEN c_dtemb.
v_dttaxa = <fs_zycet001>-dtemb.
WHEN c_dtaverb.
v_dttaxa = <fs_zycet001>-dtaverb.
WHEN c_dtcruze.
v_dttaxa = <fs_zycet001>-dtcruze.
ENDCASE.
ENDIF.
...
...
WITH TABLE KEY nrseq = p_nrinvoic
ASSIGNING <fs_zycet001>.
IF <fs_zycet001> IS ASSIGNED.
READ TABLE itab_zycit054
WITH TABLE KEY vktra_ci = <fs_zycet001>-viatrans
ASSIGNING <fs_zycit054>.
IF <fs_zycit054> IS ASSIGNED.
IF NOT <fs_zycit054>-vktra IS INITIAL.
READ TABLE itab_zycet048
WITH TABLE KEY vktrt = <fs_zycit054>-vktra
* >> Início da exclusão: FORM DEFINE_TAXA_CAMBIO
ASSIGNING <fs_zycet048>.
* << Fim da exclusão
* >> Início da inclusão: FORM DEFINE_TAXA_CAMBIO
ASSIGNING <fs_zycet048>."#EC *
* << Fim da inclusão
IF sy-subrc = 0.
CASE <fs_zycet048>-dtvrc.
WHEN c_dtemb.
v_dttaxa = <fs_zycet001>-dtemb.
WHEN c_dtaverb.
v_dttaxa = <fs_zycet001>-dtaverb.
WHEN c_dtcruze.
v_dttaxa = <fs_zycet001>-dtcruze.
ENDCASE.
ENDIF.
...
...
READ TABLE itab_zycbt011
WITH TABLE KEY
codeven = p_codeven
codmod = c_codmod
bukrs = p_bukrs
ASSIGNING <fs_zycbt011>.
IF sy-subrc = 0.
READ TABLE itab_zycbt009
WITH TABLE KEY
codpadr = <fs_zycbt011>-ctmoed
* >> Início da exclusão: FORM BUSCA_TAXA
ASSIGNING <fs_zycbt009>.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_TAXA
ASSIGNING <fs_zycbt009>."#EC *
* << Fim da inclusão
ENDIF.
IF <fs_zycbt009> IS ASSIGNED.
CALL FUNCTION '/PWS/ZYGL_MONTANTE_CONVERTE'
EXPORTING
i_montante = 1
i_demoeda = p_waersde
i_paramoeda = p_waerspara
i_ctmoeda = <fs_zycbt009>-kurst
i_dtbase = p_dtbase
IMPORTING
...
...
<fs_zycbt228>-vlr_associado.
<fs_zycbt209>-belnr2 = wa_mensagem-belnr.
<fs_zycbt209>-dtbelnr = wa_mensagem-dtcont.
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
FORM verifica_commodities
USING p_wa_fatura TYPE t_s_fatura.
DATA:
* >> Início da exclusão: FORM VERIFICA_COMMODITIES
wa_zycbt030 TYPE /pws/zycbe030.
SELECT SINGLE * FROM /pws/zycbt030
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_COMMODITIES
wa_zycbt030 TYPE /pws/zycbe030. "#EC *
SELECT * FROM /pws/zycbt030
* << Fim da inclusão
INTO wa_zycbt030
* >> Início da inclusão: FORM VERIFICA_COMMODITIES
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrinvoic = p_wa_fatura-nrinvoic
AND nrparcf = p_wa_fatura-nrparcf
AND gsberf = p_wa_fatura-gsberf
AND pendcomm = 'X'.
* >> Início da inclusão: FORM VERIFICA_COMMODITIES
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0.
MESSAGE i061 WITH text-m53
p_wa_fatura-nrinvoic
text-m54.
ENDIF.
ENDFORM.
FORM saldo_disp_cont
CHANGING p_zycbt228a TYPE t_s_zycbt228a.
DATA:
wa_zycbt227 TYPE t_s_zycbt227,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB251F01
...
ENDLOOP.
ENDFORM.
FORM comm_upload.
LOOP AT it_table WHERE updo = 'X'.
vidx = sy-tabix.
PERFORM up_handle_table.
ENDLOOP.
ENDFORM.
FORM load_ddtext USING p_tabela
CHANGING p_ddtext.
* >> Início da exclusão: FORM LOAD_DDTEXT
SELECT SINGLE ddtext FROM dd02t
INTO p_ddtext WHERE
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_DDTEXT
SELECT ddtext FROM dd02t
INTO p_ddtext
UP TO 1 ROWS
WHERE
* << Fim da inclusão
tabname = p_tabela AND
ddlanguage = sy-langu.
* >> Início da inclusão: FORM LOAD_DDTEXT
ENDSELECT.
* << Fim da inclusão
ENDFORM.
FORM down_table USING p_contar p_ext.
* >> Início da exclusão: FORM DOWN_TABLE
DATA: typ, size TYPE i,
* << Fim da exclusão
* >> Início da inclusão: FORM DOWN_TABLE
DATA: typ, size TYPE i, "#EC *
* << Fim da inclusão
v_size_ant TYPE i,
len_3(3),
wk1_max_col TYPE p VALUE 99,
v_texto(256),
v_texto_gen(10000),
p_tabela TYPE REF TO data.
FIELD-SYMBOLS: <f>.
REFRESH: it100,
it500,
it2000.
...
...
WHEN 'X'.
v_texto = 'x'.
WRITE <f> TO v_texto+1.
CONDENSE v_texto NO-GAPS.
WHEN OTHERS.
v_texto = <f>.
ENDCASE.
v_texto_gen+v_size_ant = v_texto.
v_size_ant = len_3 + v_size_ant.
ENDDO.
* >> Início da exclusão: FORM DOWN_TABLE
IF p_contar <= 100.
* << Fim da exclusão
* >> Início da inclusão: FORM DOWN_TABLE
IF p_contar <= 100."#EC PORTABLE
* << Fim da inclusão
MOVE v_texto_gen TO it100.
APPEND it100.
* >> Início da exclusão: FORM DOWN_TABLE
ELSEIF p_contar <= 500.
* << Fim da exclusão
* >> Início da inclusão: FORM DOWN_TABLE
ELSEIF p_contar <= 500."#EC PORTABLE
* << Fim da inclusão
MOVE v_texto_gen TO it500.
APPEND it500.
* >> Início da exclusão: FORM DOWN_TABLE
ELSEIF p_contar <= 2000.
* << Fim da exclusão
* >> Início da inclusão: FORM DOWN_TABLE
ELSEIF p_contar <= 2000."#EC PORTABLE
* << Fim da inclusão
MOVE v_texto_gen TO it2000.
APPEND it2000.
ENDIF.
ENDSELECT.
* >> Início da exclusão: FORM DOWN_TABLE
IF p_contar <= 100.
* << Fim da exclusão
* >> Início da inclusão: FORM DOWN_TABLE
IF p_contar <= 100."#EC PORTABLE
* << Fim da inclusão
PERFORM down_arquivo TABLES it100 USING p_ext .
* >> Início da exclusão: FORM DOWN_TABLE
ELSEIF p_contar <= 500.
* << Fim da exclusão
* >> Início da inclusão: FORM DOWN_TABLE
ELSEIF p_contar <= 500. "#EC PORTABLE
* << Fim da inclusão
PERFORM down_arquivo TABLES it500 USING p_ext .
* >> Início da exclusão: FORM DOWN_TABLE
ELSEIF p_contar <= 2000.
* << Fim da exclusão
* >> Início da inclusão: FORM DOWN_TABLE
ELSEIF p_contar <= 2000."#EC PORTABLE
* << Fim da inclusão
PERFORM down_arquivo TABLES it2000 USING p_ext .
ELSE.
it_table-icon = 'E'.
it_table-msg = text-009.
ENDIF.
ENDIF.
ENDFORM.
FORM down_arquivo TABLES p_table USING p_ext.
IF p_table[] IS INITIAL.
it_table-icon = 'V'.
...
...
IF sy-saprl EQ '46B'.
CALL FUNCTION 'WS_DOWNLOAD'
EXPORTING
filename = dir_arq
filetype = 'DAT'
IMPORTING
filelength = tamanho
TABLES
data_tab = p_table
EXCEPTIONS
* >> Início da exclusão: FORM DOWN_ARQUIVO
file_open_error = 1
file_write_error = 2
invalid_filesize = 3
invalid_table_width = 4
invalid_type = 5
no_batch = 6
unknown_error = 7
gui_refuse_filetransfer = 8
OTHERS = 9.
* << Fim da exclusão
* >> Início da inclusão: FORM DOWN_ARQUIVO
file_open_error = 0
file_write_error = 0
invalid_filesize = 0
invalid_table_width = 0
invalid_type = 0
no_batch = 0
unknown_error = 0
gui_refuse_filetransfer = 0
OTHERS = 0.
* << Fim da inclusão
ELSE.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = v_arquivo
filetype = 'ASC'
IMPORTING
filelength = tamanho
TABLES
data_tab = p_table
EXCEPTIONS
* >> Início da exclusão: FORM DOWN_ARQUIVO
file_write_error = 1
no_batch = 2
gui_refuse_filetransfer = 3
invalid_type = 4
no_authority = 5
unknown_error = 6
header_not_allowed = 7
separator_not_allowed = 8
filesize_not_allowed = 9
header_too_long = 10
dp_error_create = 11
dp_error_send = 12
dp_error_write = 13
unknown_dp_error = 14
access_denied = 15
dp_out_of_memory = 16
disk_full = 17
dp_timeout = 18
file_not_found = 19
dataprovider_exception = 20
control_flush_error = 21
OTHERS = 22.
* << Fim da exclusão
* >> Início da inclusão: FORM DOWN_ARQUIVO
file_write_error = 0
no_batch = 0
gui_refuse_filetransfer = 0
invalid_type = 0
no_authority = 0
unknown_error = 0
header_not_allowed = 0
separator_not_allowed = 0
filesize_not_allowed = 0
header_too_long = 0
dp_error_create = 0
dp_error_send = 0
dp_error_write = 0
unknown_dp_error = 0
access_denied = 0
dp_out_of_memory = 0
disk_full = 0
dp_timeout = 0
file_not_found = 0
dataprovider_exception = 0
control_flush_error = 0
OTHERS = 0.
* << Fim da inclusão
ENDIF.
it_table-icon = 'E'.
CASE sy-subrc.
WHEN 0.
it_table-icon = 'S'.
DESCRIBE TABLE p_table LINES v_line.
WRITE v_line TO aux LEFT-JUSTIFIED.
CONCATENATE aux text-005 dir_arq INTO it_table-msg
SEPARATED BY space.
WHEN 2.
CONCATENATE dir_arq text-006 INTO it_table-msg
SEPARATED BY space.
WHEN OTHERS.
WRITE sy-subrc TO aux LEFT-JUSTIFIED.
CONCATENATE text-012 aux '(' dir_arq ')' INTO it_table-msg
SEPARATED BY space.
ENDCASE.
ENDFORM.
FORM up_table USING p_contar.
* >> Início da exclusão: FORM UP_TABLE
IF p_contar <= 100.
* << Fim da exclusão
* >> Início da inclusão: FORM UP_TABLE
IF p_contar <= 100. "#EC PORTABLE
* << Fim da inclusão
PERFORM up_arquivo TABLES it100 USING 'N' .
* >> Início da exclusão: FORM UP_TABLE
ELSEIF p_contar <= 500.
* << Fim da exclusão
* >> Início da inclusão: FORM UP_TABLE
ELSEIF p_contar <= 500."#EC PORTABLE
* << Fim da inclusão
PERFORM up_arquivo TABLES it500 USING 'N' .
* >> Início da exclusão: FORM UP_TABLE
ELSEIF p_contar <= 2000.
* << Fim da exclusão
* >> Início da inclusão: FORM UP_TABLE
ELSEIF p_contar <= 2000. "#EC PORTABLE
* << Fim da inclusão
PERFORM up_arquivo TABLES it2000 USING 'N' .
ELSE.
it_table-icon = 'E'.
it_table-msg = text-009.
ENDIF.
ENDFORM.
FORM up_arquivo TABLES p_tabela USING p_type.
REFRESH p_tabela.
CLEAR dir_arq.
CONCATENATE dir it_table-tabela+5(25) '.txt' INTO dir_arq.
...
...
IF sy-saprl EQ '46B'.
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
filename = dir_arq
filetype = 'DAT'
IMPORTING
filelength = tamanho
TABLES
data_tab = p_tabela
EXCEPTIONS
* >> Início da exclusão: FORM UP_ARQUIVO
conversion_error = 1
file_open_error = 2
file_read_error = 3
invalid_table_width = 4
invalid_type = 5
no_batch = 6
unknown_error = 7
gui_refuse_filetransfer = 8
OTHERS = 9.
* << Fim da exclusão
* >> Início da inclusão: FORM UP_ARQUIVO
conversion_error = 0
file_open_error = 0
file_read_error = 0
invalid_table_width = 0
invalid_type = 0
no_batch = 0
unknown_error = 0
gui_refuse_filetransfer = 0
OTHERS = 0.
* << Fim da inclusão
ELSE.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = <filename>
filetype = 'ASC'
IMPORTING
filelength = tamanho
TABLES
data_tab = p_tabela
EXCEPTIONS
* >> Início da exclusão: FORM UP_ARQUIVO
file_open_error = 1
file_read_error = 2
no_batch = 3
gui_refuse_filetransfer = 4
invalid_type = 5
no_authority = 6
unknown_error = 7
bad_data_format = 8
header_not_allowed = 9
separator_not_allowed = 10
header_too_long = 11
unknown_dp_error = 12
access_denied = 13
dp_out_of_memory = 14
disk_full = 15
dp_timeout = 16
OTHERS = 17.
* << Fim da exclusão
* >> Início da inclusão: FORM UP_ARQUIVO
file_open_error = 0
file_read_error = 0
no_batch = 0
gui_refuse_filetransfer = 0
invalid_type = 0
no_authority = 0
unknown_error = 0
bad_data_format = 0
header_not_allowed = 0
separator_not_allowed = 0
header_too_long = 0
unknown_dp_error = 0
access_denied = 0
dp_out_of_memory = 0
disk_full = 0
dp_timeout = 0
OTHERS = 0.
* << Fim da inclusão
ENDIF.
it_table-icon = 'E'.
CASE sy-subrc.
WHEN 0.
IF p_type = 'N'.
PERFORM up_arq_normal TABLES p_tabela.
ELSE.
PERFORM up_arq_append.
ENDIF.
WHEN 1.
...
...
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
def_filename = ''
def_path = dir
mask = ',all files, *.*.'
mode = 'O'
title = text-004
IMPORTING
filename = dir
EXCEPTIONS
* >> Início da exclusão: FORM COMM_FIND
inv_winsys = 1
no_batch = 2
selection_cancel = 3
selection_error = 4
OTHERS = 5.
* << Fim da exclusão
* >> Início da inclusão: FORM COMM_FIND
inv_winsys = 0
no_batch = 0
selection_cancel = 0
selection_error = 0
OTHERS = 0.
* << Fim da inclusão
ENDFORM.
FORM comm_sort USING p_type.
CLEAR: v_sort, v_sort2.
IF ts_tabela-activetab = 'FC_PARAM'.
LOOP AT tc_table-cols INTO wa_cols.
IF wa_cols-selected = 'X'.
CASE wa_cols-index.
WHEN 2.
v_sort = 'TABELA'.
WHEN 3.
...
...
it_fields-app = 'X'.
ENDIF.
IF it_fields-keyflag = 'X'.
vtchav = vtchav + it_fields-intlen.
ENDIF.
MODIFY it_fields.
ENDLOOP.
ENDIF.
ENDFORM.
FORM up_arq_normal TABLES p_tabela.
* >> Início da exclusão: FORM UP_ARQ_NORMAL
DATA: typ, size TYPE i,
* << Fim da exclusão
* >> Início da inclusão: FORM UP_ARQ_NORMAL
DATA: typ, size TYPE i, "#EC *
* << Fim da inclusão
v_size_ant TYPE i,
len_3(3),
wk1_max_col TYPE p VALUE 99,
* >> Início da exclusão: FORM UP_ARQ_NORMAL
v_texto(256),
v_texto_gen(2000),
* << Fim da exclusão
* >> Início da inclusão: FORM UP_ARQ_NORMAL
v_texto(256), "#EC *
v_texto_gen(2000), "#EC *
* << Fim da inclusão
v_cont TYPE i,
* >> Início da exclusão: FORM UP_ARQ_NORMAL
v_cont2 TYPE i,
* << Fim da exclusão
* >> Início da inclusão: FORM UP_ARQ_NORMAL
v_cont2 TYPE i, "#EC *
* << Fim da inclusão
v_size_aux TYPE i.
FIELD-SYMBOLS: <f>.
FIELD-SYMBOLS: <wa_tabela>.
...
...
DESCRIBE FIELD <f> OUTPUT-LENGTH len_3.
IF typ EQ 'I' OR typ = 's' OR typ = 'b'.
typ = 'P'.
ENDIF.
IF typ EQ 'N'.
typ = 'F'.
ENDIF.
v_size_aux = v_size_ant + len_3.
IF v_size_aux GT v_cont.
len_3 = v_cont - v_size_ant.
* >> Início da exclusão: FORM UP_ARQ_NORMAL
IF len_3 LE 0.
* << Fim da exclusão
* >> Início da inclusão: FORM UP_ARQ_NORMAL
IF len_3 LE 0. "#EC PORTABLE
* << Fim da inclusão
EXIT.
ENDIF.
ENDIF.
MOVE p_tabela+v_size_ant(len_3) TO <f>.
v_size_ant = len_3 + v_size_ant.
ENDDO.
MODIFY (it_table-tabela) FROM <wa_tabela>.
COMMIT WORK.
ENDLOOP.
it_table-icon = 'S'.
DESCRIBE TABLE p_tabela LINES v_line.
WRITE v_line TO aux.
CONCATENATE aux text-008 INTO it_table-msg
SEPARATED BY space.
ENDIF.
ENDIF.
ENDFORM.
FORM up_arq_append.
* >> Início da exclusão: FORM UP_ARQ_APPEND
DATA: typ, size TYPE i,
v_size_ant TYPE i,
len_3(3),
wk1_max_col TYPE p VALUE 99,
v_texto(256),
v_texto_gen(2000),
v_cont TYPE i,
v_cont2 TYPE i.
* << Fim da exclusão
* >> Início da inclusão: FORM UP_ARQ_APPEND
DATA: typ, size TYPE i, "#EC *
v_size_ant TYPE i, "#EC *
len_3(3), "#EC *
wk1_max_col TYPE p VALUE 99, "#EC *
v_texto(256), "#EC *
v_texto_gen(2000), "#EC *
v_cont TYPE i, "#EC *
v_cont2 TYPE i. "#EC *
* << Fim da inclusão
CHECK it_table-tabela(5) = '/PWS/'.
* >> Início da exclusão: FORM UP_ARQ_APPEND
FIELD-SYMBOLS: <f>.
* << Fim da exclusão
* >> Início da inclusão: FORM UP_ARQ_APPEND
FIELD-SYMBOLS: <f>. "#EC *
* << Fim da inclusão
FIELD-SYMBOLS: <wa_tabela>.
ASSIGN (it_table-tabela) TO <wa_tabela>.
IF sy-subrc = 0.
...
...
ENDIF.
ENDLOOP.
UPDATE (it_table-tabela) FROM TABLE it500b.
COMMIT WORK.
it_table-icon = 'S'.
DESCRIBE TABLE it500 LINES v_line.
WRITE v_line TO aux LEFT-JUSTIFIED.
CONCATENATE aux text-008 INTO it_table-msg
SEPARATED BY space.
ENDFORM.
* >> Início da exclusão: FORM DOWN_ARQ_APPEND
FORM down_arq_append USING p_ext.
DATA: typ, size TYPE i,
* << Fim da exclusão
* >> Início da inclusão: FORM DOWN_ARQ_APPEND
FORM down_arq_append USING p_ext. "#EC *
DATA: typ, size TYPE i, "#EC *
* << Fim da inclusão
v_size_ant TYPE i,
v_contador TYPE i,
len_3(3),
wk1_max_col TYPE p VALUE 99,
v_texto(256),
v_texto_gen(2000).
FIELD-SYMBOLS: <f>.
REFRESH: it500.
FIELD-SYMBOLS: <wa_tabela>.
ASSIGN (it_table-tabela) TO <wa_tabela>.
...
...
ELSE.
p_contar = p_contar + loc_dd03l-leng + loc_dd03l-decimals.
ENDIF.
ENDSELECT.
ENDFORM.
FORM comm_perfil.
v_transaction = sy-tcode.
EXPORT v_transaction TO MEMORY ID '/PWS/ZYGLM001'.
CALL TRANSACTION '/PWS/ZYGL251'.
ENDFORM.
* >> Início da exclusão: FORM LOAD_DOMINIO
FORM load_dominio USING p_dominio p_valor CHANGING p_texto.
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_DOMINIO
FORM load_dominio USING p_dominio p_valor CHANGING p_texto. "#EC *
* << Fim da inclusão
CLEAR: p_texto.
* >> Início da exclusão: FORM LOAD_DOMINIO
SELECT SINGLE ddtext FROM dd07t INTO p_texto WHERE
* << Fim da exclusão
* >> Início da inclusão: FORM LOAD_DOMINIO
SELECT ddtext FROM dd07t INTO p_texto
UP TO 1 ROWS
WHERE
* << Fim da inclusão
domname = p_dominio AND
ddlanguage = 'P' AND
domvalue_l = 'X'.
* >> Início da inclusão: FORM LOAD_DOMINIO
ENDSELECT.
* << Fim da inclusão
ENDFORM.
FORM comm_search USING p_type.
IF p_type IS INITIAL OR find_in IS INITIAL.
CALL SCREEN '0400' STARTING AT 5 2.
IF okcode EQ 'OK'.
IF NOT find_tab IS INITIAL.
MOVE: 'IT_TABLE-TABELA' TO find_f,
'FIND_TAB' TO find_t.
ELSEIF NOT find_txt IS INITIAL.
MOVE: 'IT_TABLE-DDTEXT' TO find_f,
'FIND_TXT' TO find_t.
ELSE.
EXIT.
ENDIF.
FIELD-SYMBOLS <sb> STRUCTURE it_table
* >> Início da exclusão: FORM COMM_SEARCH
DEFAULT wa_table.
* << Fim da exclusão
* >> Início da inclusão: FORM COMM_SEARCH
DEFAULT wa_table. "#EC *
* << Fim da inclusão
ASSIGN (find_t) TO <texto>.
find_in = 1.
ENDIF.
ENDIF.
IF okcode NE 'CANC'.
CLEAR v_flag_table.
LOOP AT it_table FROM find_in.
ASSIGN (find_f) TO <linha>.
IF <linha> CS <texto>.
v_flag_table = 'X'.
...
...
ENDFORM.
FORM abap2fp USING val result TYPE c.
DATA: val_tmp(40), typ(1).
CLEAR val_tmp.
DESCRIBE FIELD val TYPE typ.
IF typ = 'I' OR typ = 'N' OR typ = 'b' OR typ = 's'.
typ = 'P'.
ENDIF.
CASE typ.
WHEN 'P'.
* >> Início da exclusão: FORM ABAP2FP
IF val < 0.
* << Fim da exclusão
* >> Início da inclusão: FORM ABAP2FP
IF val < 0."#EC PORTABLE
* << Fim da inclusão
MOVE val TO val_tmp+1.
TRANSLATE val_tmp USING '- '.
WRITE '-' TO val_tmp(1).
CONDENSE val_tmp NO-GAPS.
ELSE.
MOVE val TO val_tmp.
ENDIF.
CONDENSE val_tmp NO-GAPS.
WHEN 'F'.
IF val = 0.
...
...
IF ts_tabela-activetab = 'FC_GERAL'.
LOOP AT itab_geral.
MOVE: itab_geral TO it_table.
APPEND it_table.
ENDLOOP.
ENDIF.
ENDFORM.
FORM chamada.
ENDFORM.
FORM icon_create USING p_icon
* >> Início da exclusão: FORM ICON_CREATE
CHANGING att_list1-objtp_icon.
* << Fim da exclusão
* >> Início da inclusão: FORM ICON_CREATE
CHANGING att_list1-objtp_icon. "#EC *
* << Fim da inclusão
DATA l_text LIKE icont-quickinfo.
CALL FUNCTION 'ICON_CREATE'
EXPORTING
name = p_icon
info = l_text
IMPORTING
result = att_list1-objtp_icon.
ENDFORM.
FORM enviar.
* >> Início da exclusão: FORM ENVIAR
DATA: BEGIN OF itab_arquivo OCCURS 0.
* << Fim da exclusão
* >> Início da inclusão: FORM ENVIAR
DATA: BEGIN OF itab_arquivo OCCURS 0. "#EC *
* << Fim da inclusão
INCLUDE STRUCTURE soli.
DATA: END OF itab_arquivo.
DATA: BEGIN OF itab_arquivo1 OCCURS 0.
INCLUDE STRUCTURE soli.
DATA: END OF itab_arquivo1.
* >> Início da exclusão: FORM ENVIAR
DATA: BEGIN OF email_address OCCURS 0.
* << Fim da exclusão
* >> Início da inclusão: FORM ENVIAR
DATA: BEGIN OF email_address OCCURS 0. "#EC *
* << Fim da inclusão
INCLUDE STRUCTURE soli.
DATA: END OF email_address.
IF itab_arquivo1[] IS INITIAL.
* >> Início da exclusão: FORM ENVIAR
itab_arquivo1-line = 'Dowload¿s de Arquivos'.
* << Fim da exclusão
* >> Início da inclusão: FORM ENVIAR
MOVE text-032 TO itab_arquivo1-line.
* << Fim da inclusão
APPEND itab_arquivo1.
...
...
APPEND itab_arquivo.
ENDLOOP.
IF NOT email[] IS INITIAL.
ENDIF.
ENDFORM.
FORM anexar_arquivo.
DATA l_objcont LIKE soli OCCURS 0.
DATA l_objhead LIKE soli OCCURS 0 WITH HEADER LINE.
DATA doc_id LIKE soodk.
DATA hd_dat LIKE sood1.
* >> Início da exclusão: FORM ANEXAR_ARQUIVO
DATA bin_filesize LIKE soxwd-doc_length.
* << Fim da exclusão
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
DATA bin_filesize LIKE soxwd-doc_length. "#EC *
* << Fim da inclusão
DATA object_type LIKE soodk-objtp.
DATA path_and_file LIKE rlgrap-filename.
DATA file_format LIKE rlgrap-filetype.
DATA l_filename(128) TYPE c.
DATA l_nodialog LIKE sonv-flag.
* >> Início da exclusão: FORM ANEXAR_ARQUIVO
DATA l_cancelled LIKE sonv-flag.
* << Fim da exclusão
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
DATA l_cancelled LIKE sonv-flag. "#EC *
* << Fim da inclusão
DATA put_to_kpro LIKE sonv-flag.
* >> Início da exclusão: FORM ANEXAR_ARQUIVO
DATA rcode LIKE sonv-rcode.
* << Fim da exclusão
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
DATA rcode LIKE sonv-rcode. "#EC *
* << Fim da inclusão
DATA owner LIKE soud-usrnam.
* >> Início da exclusão: FORM ANEXAR_ARQUIVO
DATA att_list LIKE soxatt OCCURS 0 WITH HEADER LINE.
* << Fim da exclusão
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
DATA att_list LIKE soxatt OCCURS 0 WITH HEADER LINE. "#EC *
* << Fim da inclusão
DATA document TYPE sood4.
DATA g_owner LIKE soud-usrnam.
DATA so_format(11) VALUE '&SO_FORMAT='.
CALL FUNCTION 'SO_OBJECT_UPLOAD'
EXPORTING
path_and_file = dir
no_dialog = l_nodialog
IMPORTING
f_cancelled = l_cancelled
filelength = bin_filesize
...
...
EXPORTING
full_name = path_and_file
IMPORTING
stripped_name = l_filename.
CLEAR: l_objhead, l_objhead[].
INSERT l_filename INTO l_objhead INDEX 1.
l_objhead-line = so_format.
l_objhead-line+11(3) = file_format.
APPEND l_objhead.
hd_dat-file_ext = object_type.
* >> Início da exclusão: FORM ANEXAR_ARQUIVO
hd_dat-objnam = 'Anexo'.
* << Fim da exclusão
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
MOVE text-033 TO hd_dat-objnam.
* << Fim da inclusão
IF hd_dat-objdes IS INITIAL.
SPLIT l_filename AT '.' INTO hd_dat-objdes l_filename.
ENDIF.
TRANSLATE l_filename TO UPPER CASE.
CALL FUNCTION 'SO_ATTACHMENT_INSERT'
EXPORTING
object_id = doc_id
attach_type = 'EXT'
object_hd_change = hd_dat
owner = owner
TABLES
objcont = l_objcont
objhead = l_objhead
EXCEPTIONS
* >> Início da exclusão: FORM ANEXAR_ARQUIVO
active_user_not_exist = 35
communication_failure = 71
object_type_not_exist = 17
operation_no_authorization = 21
owner_not_exist = 22
parameter_error = 23
substitute_not_active = 31
substitute_not_defined = 32
system_failure = 72
x_error = 1000.
* << Fim da exclusão
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
active_user_not_exist = 0
communication_failure = 0
object_type_not_exist = 0
operation_no_authorization = 0
owner_not_exist = 0
parameter_error = 0
substitute_not_active = 0
substitute_not_defined = 0
system_failure = 0
x_error = 0.
* << Fim da inclusão
CALL FUNCTION 'SO_DOCUMENT_REPOSITORY_MANAGER'
EXPORTING
method
='SAVE'
office_user = g_owner
CHANGING
document = document.
CASE l_filename.
WHEN 'ALI'.
* >> Início da exclusão: FORM ANEXAR_ARQUIVO
SELECT SINGLE name FROM icon INTO icon-name
* << Fim da exclusão
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
SELECT name FROM icon INTO icon-name
UP TO 1 ROWS
* << Fim da inclusão
WHERE name = 'ICON-OBJECT_LIST'.
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
ENDSELECT.
* << Fim da inclusão
PERFORM icon_create USING icon-name
CHANGING att_list-objtp_icon.
WHEN 'BMP'.
* >> Início da exclusão: FORM ANEXAR_ARQUIVO
SELECT SINGLE name FROM icon INTO icon-name
* << Fim da exclusão
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
SELECT name FROM icon INTO icon-name
UP TO 1 ROWS
* << Fim da inclusão
WHERE name = 'ICON_BMP'.
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
ENDSELECT.
* << Fim da inclusão
PERFORM icon_create USING icon-name
CHANGING att_list-objtp_icon.
WHEN 'DOC'.
* >> Início da exclusão: FORM ANEXAR_ARQUIVO
SELECT SINGLE name FROM icon INTO icon-name
* << Fim da exclusão
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
SELECT name FROM icon INTO icon-name
UP TO 1 ROWS
* << Fim da inclusão
WHERE name = 'ICON_DOC'.
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
ENDSELECT.
* << Fim da inclusão
PERFORM icon_create USING icon-name
CHANGING att_list-objtp_icon.
WHEN 'GIF'.
* >> Início da exclusão: FORM ANEXAR_ARQUIVO
SELECT SINGLE name FROM icon INTO icon-name
* << Fim da exclusão
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
SELECT name FROM icon INTO icon-name
UP TO 1 ROWS
* << Fim da inclusão
WHERE name = 'ICON_GIF'.
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
ENDSELECT.
* << Fim da inclusão
PERFORM icon_create USING icon-name
CHANGING att_list-objtp_icon.
WHEN 'HLP'.
* >> Início da exclusão: FORM ANEXAR_ARQUIVO
SELECT SINGLE name FROM icon INTO icon-name
* << Fim da exclusão
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
SELECT name FROM icon INTO icon-name
UP TO 1 ROWS
* << Fim da inclusão
WHERE name = 'ICON_HLP'.
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
ENDSELECT.
* << Fim da inclusão
PERFORM icon_create USING icon-name
CHANGING att_list-objtp_icon.
WHEN 'HTM'.
* >> Início da exclusão: FORM ANEXAR_ARQUIVO
SELECT SINGLE name FROM icon INTO icon-name
* << Fim da exclusão
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
SELECT name FROM icon INTO icon-name
UP TO 1 ROWS
* << Fim da inclusão
WHERE name = 'ICON_HTML'.
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
ENDSELECT.
* << Fim da inclusão
PERFORM icon_create USING icon-name
CHANGING att_list-objtp_icon.
WHEN 'JPG'.
* >> Início da exclusão: FORM ANEXAR_ARQUIVO
SELECT SINGLE name FROM icon INTO icon-name
* << Fim da exclusão
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
SELECT name FROM icon INTO icon-name
UP TO 1 ROWS
* << Fim da inclusão
WHERE name = 'ICON_JPG'.
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
ENDSELECT.
* << Fim da inclusão
PERFORM icon_create USING icon-name
CHANGING att_list-objtp_icon.
WHEN 'OBJ'.
* >> Início da exclusão: FORM ANEXAR_ARQUIVO
SELECT SINGLE name FROM icon INTO icon-name
* << Fim da exclusão
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
SELECT name FROM icon INTO icon-name
UP TO 1 ROWS
* << Fim da inclusão
WHERE name = 'icon_businav_objects'.
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
ENDSELECT.
* << Fim da inclusão
PERFORM icon_create USING icon-name
CHANGING att_list-objtp_icon.
WHEN 'PDF'.
* >> Início da exclusão: FORM ANEXAR_ARQUIVO
SELECT SINGLE name FROM icon INTO icon-name
* << Fim da exclusão
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
SELECT name FROM icon INTO icon-name
UP TO 1 ROWS
* << Fim da inclusão
WHERE name = 'ICON_PDF'.
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
ENDSELECT.
* << Fim da inclusão
PERFORM icon_create USING icon-name
CHANGING att_list-objtp_icon.
WHEN 'PPT'.
* >> Início da exclusão: FORM ANEXAR_ARQUIVO
SELECT SINGLE name FROM icon INTO icon-name
* << Fim da exclusão
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
SELECT name FROM icon INTO icon-name
UP TO 1 ROWS
* << Fim da inclusão
WHERE name = 'ICON_PPT'.
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
ENDSELECT.
* << Fim da inclusão
PERFORM icon_create USING icon-name
CHANGING att_list-objtp_icon.
WHEN 'RTF'.
* >> Início da exclusão: FORM ANEXAR_ARQUIVO
SELECT SINGLE name FROM icon INTO icon-name
* << Fim da exclusão
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
SELECT name FROM icon INTO icon-name
UP TO 1 ROWS
* << Fim da inclusão
WHERE name = 'ICON_RTF'.
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
ENDSELECT.
* << Fim da inclusão
PERFORM icon_create USING icon-name
CHANGING att_list-objtp_icon.
WHEN 'TIF'.
* >> Início da exclusão: FORM ANEXAR_ARQUIVO
SELECT SINGLE name FROM icon INTO icon-name
* << Fim da exclusão
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
SELECT name FROM icon INTO icon-name
UP TO 1 ROWS
* << Fim da inclusão
WHERE name = 'icon_tif'.
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
ENDSELECT.
* << Fim da inclusão
PERFORM icon_create USING icon-name
CHANGING att_list-objtp_icon.
WHEN 'URL'.
* >> Início da exclusão: FORM ANEXAR_ARQUIVO
SELECT SINGLE name FROM icon INTO icon-name
* << Fim da exclusão
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
SELECT name FROM icon INTO icon-name
UP TO 1 ROWS
* << Fim da inclusão
WHERE name = 'ICON_URL'.
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
ENDSELECT.
* << Fim da inclusão
PERFORM icon_create USING icon-name
CHANGING att_list-objtp_icon.
WHEN 'XLS'.
* >> Início da exclusão: FORM ANEXAR_ARQUIVO
SELECT SINGLE name FROM icon INTO icon-name
* << Fim da exclusão
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
SELECT name FROM icon INTO icon-name
UP TO 1 ROWS
* << Fim da inclusão
WHERE name = 'ICON_XLS'.
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
ENDSELECT.
* << Fim da inclusão
PERFORM icon_create USING icon-name
CHANGING att_list-objtp_icon.
WHEN space.
* >> Início da exclusão: FORM ANEXAR_ARQUIVO
SELECT SINGLE name FROM icon INTO icon-name
* << Fim da exclusão
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
SELECT name FROM icon INTO icon-name
UP TO 1 ROWS
* << Fim da inclusão
WHERE name = 'ICON_DEFAULT_WINDOWS'.
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
ENDSELECT.
* << Fim da inclusão
PERFORM icon_create USING icon-name
CHANGING att_list-objtp_icon.
WHEN OTHERS.
* >> Início da exclusão: FORM ANEXAR_ARQUIVO
SELECT SINGLE name FROM icon INTO icon-name
* << Fim da exclusão
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
SELECT name FROM icon INTO icon-name
UP TO 1 ROWS
* << Fim da inclusão
WHERE name = 'ICON_DISPLAY_TEXT'.
* >> Início da inclusão: FORM ANEXAR_ARQUIVO
ENDSELECT.
* << Fim da inclusão
PERFORM icon_create USING icon-name
CHANGING att_list-objtp_icon. .
ENDCASE.
lines1-line = hd_dat-objdes.
lines1-inco = att_list-objtp_icon.
lines1-arq = path_and_file.
...
...
DATA : v_tam TYPE i,
v_anser(10) TYPE c,
v_file LIKE rlgrap-filename.
MOVE p_tabela TO v_file.
CALL FUNCTION 'GUI_GET_FILE_INFO'
EXPORTING
fname = v_file
IMPORTING
file_size = v_tam
EXCEPTIONS
* >> Início da exclusão: FORM VERIFICA_ARQUIVO
fileinfo_error = 1
OTHERS = 2.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ARQUIVO
fileinfo_error = 0
OTHERS = 0.
* << Fim da inclusão
IF v_tam > 0.
IF NOT v_backup EQ space.
CONCATENATE text-024 v_file INTO v_file SEPARATED BY space.
ELSE.
CONCATENATE text-023 v_file INTO v_file SEPARATED BY space.
ENDIF.
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
defaultoption = 'Y'
textline1 = v_file
* >> Início da exclusão: FORM VERIFICA_ARQUIVO
textline2 = 'já existe! Sobrescrever?'
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ARQUIVO
textline2 = text-034
* << Fim da inclusão
titel = 'confirme'
cancel_display = ' '
IMPORTING
answer = v_anser.
IF v_anser EQ 'J'.
v_resposta = 'OK'.
ELSE.
v_resposta = 'CANCEL'.
ENDIF.
ELSE.
v_resposta = 'OK'.
ENDIF.
ENDFORM.
* >> Início da exclusão: FORM MAKEBACKUP
FORM makebackup USING p_tabela.
* << Fim da exclusão
* >> Início da inclusão: FORM MAKEBACKUP
FORM makebackup USING p_tabela. "#EC *
* << Fim da inclusão
MOVE text-022 TO v_backup.
PERFORM down_handle_table USING text-031.
ENDFORM.
FORM verifica_bloqueio USING p_tabela.
DATA: v_file LIKE seqg3-gname.
CONDENSE p_tabela.
CONCATENATE text-026 p_tabela(15) INTO v_file.
CALL FUNCTION 'ENQUEUE_READ'
EXPORTING
gclient = sy-mandt
guname = sy-uname
TABLES
enq = itab_enq
EXCEPTIONS
* >> Início da exclusão: FORM VERIFICA_BLOQUEIO
communication_failure = 1
system_failure = 2
OTHERS = 3.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_BLOQUEIO
communication_failure = 0
system_failure = 0
OTHERS = 0.
* << Fim da inclusão
IF NOT itab_enq[] IS INITIAL.
READ TABLE itab_enq WITH KEY garg = v_file.
IF sy-subrc EQ 0.
v_flag_lock = 'X'.
v_mensagem = text-025.
ENDIF.
ENDIF.
ENDFORM.
FORM atualizalogtabela USING p_tabela.
DATA: itab_dd03l LIKE dd03l OCCURS 0,
* >> Início da exclusão: FORM ATUALIZALOGTABELA
wa_dd03l LIKE dd03l.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZALOGTABELA
wa_dd03l LIKE dd03l. "#EC *
* << Fim da inclusão
SELECT * FROM dd03l INTO TABLE itab_dd03l
WHERE tabname = p_tabela AND
( fieldname = 'USERNAMEC' OR
fieldname = 'HRUSERC' OR
fieldname = 'DTUSERC' ).
IF sy-subrc EQ 0.
DATA: itab_programa(72) TYPE c OCCURS 1000 WITH HEADER LINE.
CLEAR itab_programa.
MOVE text-029 TO itab_programa.
APPEND itab_programa.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB251O01
...
icon_n1 = text-027.
ENDIF.
CALL FUNCTION 'ICON_CREATE'
EXPORTING
name = icon_n1
info = text-001
add_stdinf = 'X'
IMPORTING
result = v_icon
EXCEPTIONS
* >> Início da exclusão: MODULE LOAD_TABLES
icon_not_found = 1
outputfield_too_short = 2
OTHERS = 3.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_TABLES
icon_not_found = 0
outputfield_too_short = 0
OTHERS = 0.
* << Fim da inclusão
CASE sy-dynnr.
WHEN '0100'.
MOVE: it_table_param-updo TO updo,
it_table_param-ddtext TO tabname.
WHEN '0101'.
MOVE: it_table_paramf-updo TO updo,
it_table_paramf-ddtext TO tabnamef.
WHEN '0102'.
MOVE: it_table_parami-updo TO updo,
it_table_parami-ddtext TO tabnamei.
...
...
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
ENDMODULE.
MODULE verifica_perfil OUTPUT.
PERFORM load_dominio USING '/PWS/ZYCBD004'
/pws/zygle205-perfil
CHANGING perfil.
IF dir IS INITIAL.
* >> Início da exclusão: MODULE VERIFICA_PERFIL
SELECT SINGLE path FROM /pws/zycbt007 INTO dir.
* << Fim da exclusão
* >> Início da inclusão: MODULE VERIFICA_PERFIL
SELECT path FROM /pws/zycbt007 INTO dir
UP TO 1 ROWS.
ENDSELECT.
* << Fim da inclusão
ENDIF.
ENDMODULE.
MODULE load_tables_transp OUTPUT.
CLEAR: icon_n1, v_icon1.
CASE sy-dynnr.
WHEN '0400'.
v_icon1 = it_table_transp-icon.
WHEN '0401'.
v_icon1 = it_table_transpf-icon.
WHEN '0402'.
...
...
icon_n1 = text-017.
ENDIF.
CALL FUNCTION 'ICON_CREATE'
EXPORTING
name = icon_n1
info = text-001
add_stdinf = 'X'
IMPORTING
result = v_icon
EXCEPTIONS
* >> Início da exclusão: MODULE LOAD_TABLES_TRANSP
icon_not_found = 1
outputfield_too_short = 2
OTHERS = 3.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_TABLES_TRANSP
icon_not_found = 0
outputfield_too_short = 0
OTHERS = 0.
* << Fim da inclusão
CASE sy-dynnr.
WHEN '0400'.
MOVE: it_table_transp-updo TO updo,
it_table_transp-ddtext TO tabname.
WHEN '0401'.
MOVE: it_table_transpf-updo TO updo,
it_table_transpf-ddtext TO tabnamef.
WHEN '0402'.
MOVE: it_table_transpi-updo TO updo,
it_table_transpi-ddtext TO tabnamei.
...
...
icon_n1 = text-017.
ENDIF.
CALL FUNCTION 'ICON_CREATE'
EXPORTING
name = icon_n1
info = text-001
add_stdinf = 'X'
IMPORTING
result = v_icon
EXCEPTIONS
* >> Início da exclusão: MODULE LOAD_TABLES_GERAL
icon_not_found = 1
outputfield_too_short = 2
OTHERS = 3.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_TABLES_GERAL
icon_not_found = 0
outputfield_too_short = 0
OTHERS = 0.
* << Fim da inclusão
MOVE: itab_geral-updo TO updo,
itab_geral-ddtext TO tabname.
ENDMODULE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB251TOP
PROGRAM /pws/sapmzycb251 MESSAGE-ID /pws/zycbm.
TABLES: /pws/zygle205,
* >> Início da exclusão:
dd02l ,
tadir .
FIELD-SYMBOLS: <linha>, <texto>, <table1>.
* << Fim da exclusão
* >> Início da inclusão:
dd02l ,"#EC *
tadir ."#EC *
FIELD-SYMBOLS: <linha>, <texto>, <table1>."#EC *
* << Fim da inclusão
CONTROLS: tc_table TYPE TABLEVIEW USING SCREEN 0100,
tc_tablef TYPE TABLEVIEW USING SCREEN 0101,
tc_tablei TYPE TABLEVIEW USING SCREEN 0102,
tc_trans TYPE TABLEVIEW USING SCREEN 0400,
tc_transf TYPE TABLEVIEW USING SCREEN 0401,
tc_transi TYPE TABLEVIEW USING SCREEN 0402,
tc_geral TYPE TABLEVIEW USING SCREEN 0403,
tc_arq TYPE TABLEVIEW USING SCREEN 0601,
tc_envia TYPE TABLEVIEW USING SCREEN 0602,
ts_arq TYPE TABSTRIP,
...
...
updo.
DATA: END OF it_table_transpi.
DATA: BEGIN OF itab_geral OCCURS 0.
INCLUDE STRUCTURE /pws/zygle205.
DATA: ddtext LIKE dd02t-ddtext,
icon,
msg(100),
modulo(4),
updo.
DATA: END OF itab_geral.
* >> Início da exclusão:
DATA: BEGIN OF lines OCCURS 0,
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF lines OCCURS 0,"#EC *
* << Fim da inclusão
line(255),
END OF lines.
DATA: BEGIN OF lines1 OCCURS 0,
line(134),
inco LIKE soxatt-objtp_icon,
arq(134),
mark(1),
END OF lines1.
DATA: BEGIN OF email OCCURS 0.
INCLUDE STRUCTURE soli.
DATA: mark1(1).
DATA: END OF email.
DATA: BEGIN OF itab_tabelas OCCURS 0,
tabela LIKE /pws/zyglt002-tabela,
as4local LIKE dd02l-as4local,
tcod2 LIKE /pws/zyglt002-tcod,
tcod LIKE /pws/zyglt002-tcod,
modulo LIKE /pws/zyglt002-modulo,
END OF itab_tabelas.
DATA: it_table_all LIKE it_table OCCURS 0 WITH HEADER LINE,
* >> Início da exclusão:
it_table_mod LIKE it_table OCCURS 0 WITH HEADER LINE,
* << Fim da exclusão
* >> Início da inclusão:
it_table_mod LIKE it_table OCCURS 0 WITH HEADER LINE,"#EC *
* << Fim da inclusão
wa_table LIKE it_table,
* >> Início da exclusão:
icon-name TYPE icon-name.
* << Fim da exclusão
* >> Início da inclusão:
icon-name TYPE icon-name."#EC *
* << Fim da inclusão
DATA: loc_dd03l LIKE dd03l,
wa_cols TYPE cxtab_column.
DATA: updo,
* >> Início da exclusão:
ddpos LIKE dd03l-position,
* << Fim da exclusão
* >> Início da inclusão:
ddpos LIKE dd03l-position,"#EC *
* << Fim da inclusão
tabname LIKE dd02t-ddtext,
tabnamef LIKE dd02t-ddtext,
tabnamei LIKE dd02t-ddtext,
dir_arq LIKE rlgrap-filename,
dir LIKE rlgrap-filename,
v_icon TYPE icons-text,
v_icon1,
v_line TYPE i,
contar TYPE i,
* >> Início da exclusão:
tamanho TYPE i,
* << Fim da exclusão
* >> Início da inclusão:
tamanho TYPE i,"#EC *
* << Fim da inclusão
vidx LIKE sy-tabix,
v_okcode LIKE sy-ucomm,
okcode LIKE sy-ucomm,
v1 TYPE i,
vtapps TYPE i,
vtchav TYPE i,
vtfiel TYPE i,
find_in LIKE sy-tabix,
* >> Início da exclusão:
find,
* << Fim da exclusão
* >> Início da inclusão:
find,"#EC *
* << Fim da inclusão
find_tab(10),
find_txt(50),
find_f(30),
find_t(30),
perfil(50),
icon_n1(30),
v_sort(30),
* >> Início da exclusão:
v_sort2(30),
* << Fim da exclusão
* >> Início da inclusão:
v_sort2(30),"#EC *
* << Fim da inclusão
aux(30),
v_flag_table,
mark,
mark1,
v_transaction LIKE sy-tcode,
v_backup(03),
v_flag_lock,
v_mensagem(100).
DATA: rangetab TYPE TABLE OF vimsellist INITIAL SIZE 50
WITH HEADER LINE.
...
...
DATA: line(500).
DATA: END OF it500.
DATA: BEGIN OF it500a OCCURS 0.
DATA: line(500),
chave(100).
DATA: END OF it500a.
DATA: it500b LIKE it500a OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF it2000 OCCURS 0.
DATA: line(2000).
DATA: END OF it2000.
* >> Início da exclusão:
DATA BEGIN OF it_tabname OCCURS 0.
* << Fim da exclusão
* >> Início da inclusão:
DATA BEGIN OF it_tabname OCCURS 0."#EC *
* << Fim da inclusão
DATA: tabname LIKE dd02t-tabname.
DATA END OF it_tabname.
DATA: BEGIN OF tab OCCURS 10,
fcode LIKE rsmpe-func,
END OF tab.
DATA: BEGIN OF itab_enq OCCURS 0.
INCLUDE STRUCTURE seqg3.
DATA: END OF itab_enq.
TYPE-POOLS: sydes.
DATA: t_sydes TYPE sydes_desc,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB251
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 032
Texto: (21 caracteres)
"Dowload¿s de Arquivos"
Comprimento máximo: 21
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 033
Texto: (5 caracteres)
"Anexo"
Comprimento máximo: 5
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 034
Texto: (24 caracteres)
"já existe! Sobrescrever?"
Comprimento máximo: 24