CE PLUS - Nota 008464
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina de Pagamento
Data/Hora da Publicação: 29/05/2009 00:00:00
Data/Hora Última Alteração: 11/03/2010 11:01:03
Descrição da Nota: CODE INSPECTOR
Sintoma
CODE INSPECTOR
Solução
CODE INSPECTOR
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08464 Data: 29/05/2009 Hora: 09:38:24
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08464
Categoria : Erro de Programa
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00009
Agrupamento : 00099
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
CODE INSPECTOR
----------------------------------------------------------------------------------------------------
Palavras Chave:
CODE INSPECTOR
----------------------------------------------------------------------------------------------------
Objetos da nota:
MESS /PWS/ZYCBM302
REPS /PWS/LZYGLGF1O02
REPS /PWS/MZYCB001F02
REPS /PWS/MZYCB030F01
REPS /PWS/MZYCB030F02
REPS /PWS/MZYCB116F01
REPS /PWS/MZYCB116F02
REPS /PWS/MZYCB116F03
REPS /PWS/MZYGL003F01
REPS /PWS/MZYGL003I01
REPS /PWS/ZYCBR027
REPS /PWS/ZYCBR046
REPS /PWS/ZYCBR108
REPS /PWS/ZYCBR122
REPS /PWS/ZYCBR129
REPS /PWS/ZYCBR912F01
REPS /PWS/ZYCER907
REPS /PWS/ZYCMR006
REPT /PWS/SAPMZYCB001
REPT /PWS/SAPMZYCB116
REPT /PWS/SAPMZYGL003
REPT /PWS/ZYCER907
----------------------------------------------------------------------------------------------------
Modificações efetuadas em MESS /PWS/ZYCBM302
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYGLGF1O02
...
zycet042 TYPE /pws/zycet042,
<xmark> TYPE c,
END OF s_conteudo.
FIELD-SYMBOLS: <fs_conteudo> TYPE s_conteudo.
LOOP AT extract.
CHECK <xmark> EQ markiert.
ASSIGN extract TO <fs_conteudo> CASTING.
SELECT COUNT(*)
FROM /pws/zycet101
WHERE nome_tr = <fs_conteudo>-zycet042-navio AND
* >> Início da exclusão: FORM VERIFICA_EXCLUSAO_ZYCET042
codabics = <fs_conteudo>-zycet042-codabics.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_EXCLUSAO_ZYCET042
codabics = <fs_conteudo>-zycet042-codabics. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ '0'.
MESSAGE e337(/pws/zycem) WITH <fs_conteudo>-zycet042-navio.
ENDIF.
ENDLOOP.
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F02
...
ENDIF.
PERFORM campos_liquida_pt_acc.
itab_zycbe033-c_gsber = /pws/zycbe001-gsber.
itab_zycbe033-d_gsber = /pws/zycbe001-gsber.
itab_zycbe033-wrbtr = /pws/zycbe001-vlme.
itab_zycbe033-werks = /pws/zycbe001-werks.
itab_zycbe033-kursf = /pws/zycbe001-txcneg.
PERFORM verify_null_field USING /pws/zycbe001-txcneg
'TXCAMB'
text-027.
* >> Início da exclusão: FORM CLEARING_PRE
CONCATENATE 'Des.' /pws/zycbe001-nrseqc
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_PRE
concatenate text-501 /pws/zycbe001-nrseqc
* << Fim da inclusão
INTO itab_zycbe033-c_zuonr
SEPARATED BY space.
APPEND itab_zycbe033.
LOOP AT itab_zycbt061 WHERE nrseq = /pws/zycbe001-nrseqc.
SELECT SINGLE *
FROM /pws/zycbt001
INTO wa_zycbt001_pre
WHERE nrseqc = itab_zycbt061-nrseq_c.
PERFORM pega_contas_acc_pre CHANGING conta_acc texto_acc
conta_pre texto_pre
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB030F01
...
IF sy-subrc EQ 0.
SELECT * FROM vbrk
INTO TABLE itab_vbrk
FOR ALL ENTRIES IN itab_vbrp
WHERE vbeln = itab_vbrp-vbeln.
ENDIF.
ENDIF.
SELECT * FROM /pws/zycet108
INTO TABLE itab_zycet108
FOR ALL ENTRIES IN itab_zycbt096c
* >> Início da exclusão: FORM ENTER
WHERE vbeln_vl EQ itab_zycbt096c-vbeln_va.
* << Fim da exclusão
* >> Início da inclusão: FORM ENTER
where vbeln_vl eq itab_zycbt096c-vbeln_va. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycet103
INTO TABLE itab_zycet103
FOR ALL ENTRIES IN itab_zycet108
WHERE nrseqtr EQ itab_zycet108-nrseqtr
AND nrrota_tr EQ itab_zycet108-nrrota_tr.
ENDIF.
ENDIF.
LOOP AT itab_zycbt096c.
...
...
SELECT * FROM vbrk
INTO TABLE itab_vbrk
FOR ALL ENTRIES IN itab_vbrp
WHERE vbeln = itab_vbrp-vbeln.
ENDIF.
ENDIF.
ENDIF.
SELECT * FROM /pws/zycet108
INTO TABLE itab_zycet108
FOR ALL ENTRIES IN itab_zycbt161c
* >> Início da exclusão: FORM ENTER
WHERE vbeln_vl EQ itab_zycbt161c-vbeln_va.
* << Fim da exclusão
* >> Início da inclusão: FORM ENTER
where vbeln_vl eq itab_zycbt161c-vbeln_va. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycet103
INTO TABLE itab_zycet103
FOR ALL ENTRIES IN itab_zycet108
WHERE nrseqtr EQ itab_zycet108-nrseqtr
AND nrrota_tr EQ itab_zycet108-nrrota_tr.
ENDIF.
ENDIF.
LOOP AT itab_zycbt161c.
READ TABLE itab_lips WITH KEY vbeln = itab_zycbt161c-vbeln_va.
...
...
IF sy-subrc EQ 0.
SELECT * FROM vbrk
INTO TABLE itab_vbrk
FOR ALL ENTRIES IN itab_vbrp
WHERE vbeln = itab_vbrp-vbeln.
ENDIF.
ENDIF.
SELECT * FROM /pws/zycet108
INTO TABLE itab_zycet108
FOR ALL ENTRIES IN itab_zycbt096
* >> Início da exclusão: FORM ATUALIZA
WHERE vbeln_vl EQ itab_zycbt096-vbeln_va.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA
where vbeln_vl eq itab_zycbt096-vbeln_va. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycet103
INTO TABLE itab_zycet103
FOR ALL ENTRIES IN itab_zycet108
WHERE nrseqtr EQ itab_zycet108-nrseqtr
AND nrrota_tr EQ itab_zycet108-nrrota_tr.
ENDIF.
LOOP AT itab_zycbt096.
CLEAR: itab_vbrk, itab_vbrp, itab_zycet108,
...
...
IF sy-subrc EQ 0.
SELECT * FROM vbrk
INTO TABLE itab_vbrk
FOR ALL ENTRIES IN itab_vbrp
WHERE vbeln = itab_vbrp-vbeln.
ENDIF.
ENDIF.
SELECT * FROM /pws/zycet108
INTO TABLE itab_zycet108
FOR ALL ENTRIES IN itab_zycbt161
* >> Início da exclusão: FORM ATUALIZA
WHERE vbeln_vl EQ itab_zycbt161-vbeln_va.
* << Fim da exclusão
* >> Início da inclusão: FORM ATUALIZA
where vbeln_vl eq itab_zycbt161-vbeln_va. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT * FROM /pws/zycet103
INTO TABLE itab_zycet103
FOR ALL ENTRIES IN itab_zycet108
WHERE nrseqtr EQ itab_zycet108-nrseqtr
AND nrrota_tr EQ itab_zycet108-nrrota_tr.
ENDIF.
LOOP AT itab_zycbt161.
CLEAR: itab_vbrk, itab_vbrp, itab_zycet108,
itab_zycet103.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB030F02
...
IF /pws/zycbe156-frpagto EQ 'C'.
ELSEIF /pws/zycbe156-frpagto EQ 'R'.
PERFORM executa_regime_caixa.
ENDIF.
ENDIF.
IF v_erro_bi NE 'X'.
DELETE FROM /pws/zycbt156
WHERE nrseqd = /pws/zycbe156-nrseqd
AND tpdesp = /pws/zycbe156-tpdesp
AND dtincl = /pws/zycbe156-dtincl
* >> Início da exclusão: FORM USER_COMMAND_0107
AND dtpagto = /pws/zycbe156-dtpagto.
* << Fim da exclusão
* >> Início da inclusão: FORM USER_COMMAND_0107
and dtpagto = /pws/zycbe156-dtpagto. "#EC CI_NOFIRST
* << Fim da inclusão
PERFORM inicializa_156.
MESSAGE s018.
CLEAR v_alt_desp.
MOVE /pws/zycbe156 TO wa_zycbt156.
ENDIF.
ELSE.
SELECT * FROM /pws/zycbt031
UP TO 1 ROWS
WHERE nrcorresp = /pws/zycbe156-nrseqd
AND mdcorresp = 'EC'.
ENDSELECT.
IF /pws/zycbe156-dtpagto EQ '00000000' AND
/pws/zycbt031-nrseq IS INITIAL.
DELETE FROM /pws/zycbt156
WHERE nrseqd = /pws/zycbe156-nrseqd
AND tpdesp = /pws/zycbe156-tpdesp
AND dtincl = /pws/zycbe156-dtincl
* >> Início da exclusão: FORM USER_COMMAND_0107
AND dtpagto = /pws/zycbe156-dtpagto.
* << Fim da exclusão
* >> Início da inclusão: FORM USER_COMMAND_0107
and dtpagto = /pws/zycbe156-dtpagto. "#EC CI_NOFIRST
* << Fim da inclusão
PERFORM inicializa_156.
MESSAGE s018.
CLEAR v_alt_desp.
MOVE /pws/zycbe156 TO wa_zycbt156.
ELSE.
MESSAGE i187.
ENDIF.
ENDIF.
CLEAR v_pagto.
PERFORM clear_date_batch.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB116F01
...
IF NOT /pws/zycbe001-belnr IS INITIAL.
MOVE: /pws/zycbe001-belnr TO vg_belnr.
ENDIF.
ENDIF.
IF NOT r_emprestimo IS INITIAL.
SELECT *
UP TO 1 ROWS
FROM /pws/zycbt128
INTO wa_zycbt128
WHERE nrseqcot = wa_zycbt243-nrseq
* >> Início da exclusão: FORM LOOP_AT_SCREEN_DEFAULT
AND waers = wa_zycbt243-waers.
* << Fim da exclusão
* >> Início da inclusão: FORM LOOP_AT_SCREEN_DEFAULT
and waers = wa_zycbt243-waers. "#EC CI_NOFIRST
* << Fim da inclusão
ENDSELECT.
IF NOT wa_zycbt128-belnr IS INITIAL.
MOVE: wa_zycbt128-belnr TO vg_belnr.
ENDIF.
ENDIF.
IF NOT r_financiamento IS INITIAL.
SELECT *
UP TO 1 ROWS
FROM /pws/zycbt113
INTO wa_zycbe113
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB116F02
...
APPEND wa_dados_tc TO itab_dados_tc.
ENDIF.
ENDLOOP.
IF NOT r_captacao IS INITIAL OR /pws/zycbe233-origem EQ 'C'.
IF p_tpcont IS INITIAL.
IF NOT /pws/zycbe233-nrseq IS INITIAL.
SELECT tpcontr
UP TO 1 ROWS
FROM /pws/zycbt001
INTO /pws/zycbe001-tpcontr
* >> Início da exclusão: FORM CARREGA_PARAMETROS
WHERE nrseqcot = /pws/zycbe233-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_PARAMETROS
where nrseqcot = /pws/zycbe233-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
ENDSELECT.
IF sy-subrc = 0.
MOVE: /pws/zycbe001-tpcontr TO p_tpcont.
ENDIF.
ELSE.
GET PARAMETER ID '/PWS/ZYCBP406' FIELD /pws/zycbe001-tpcontr.
GET PARAMETER ID '/PWS/ZYCBP408' FIELD vg_bukrs.
MOVE: /pws/zycbe001-tpcontr TO p_tpcont.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB116F03
...
move: 'X' to vg_salvo.
set parameter id '/PWS/ZYCBP400' field vg_salvo.
endform.
form zf_excluir_financiamento.
data: vl_resp,
vl_nome(30) type c.
clear vl_nome.
if not r_financiamento is initial or
not r_emprestimo is initial or
not r_captacao is initial.
* >> Início da exclusão: FORM ZF_EXCLUIR_FINANCIAMENTO
move: 'Deseja excluir a Cotação?' to vl_nome.
* << Fim da exclusão
* >> Início da inclusão: FORM ZF_EXCLUIR_FINANCIAMENTO
move: text-023 to vl_nome.
* << Fim da inclusão
endif.
call function 'POPUP_TO_CONFIRM'
exporting
text_question = vl_nome
text_button_1 = text-005
icon_button_1 = 'ICON_OKAY'
text_button_2 = text-006
icon_button_2 = 'ICON_CANCEL'
default_button = '1'
display_cancel_button = ' '
...
...
vl_flag = 'X'.
endif.
endif.
if not r_emprestimo is initial.
if not itab_zycbt243[] is initial.
select *
from /pws/zycbt128
into table itab_zycbt128
for all entries in itab_zycbt243
where nrseqcot = itab_zycbt243-nrseq
* >> Início da exclusão: FORM ZF_EXCLUI_CAPTACAO
and waers = itab_zycbt243-waers.
* << Fim da exclusão
* >> Início da inclusão: FORM ZF_EXCLUI_CAPTACAO
and waers = itab_zycbt243-waers. "#EC CI_NOFIRST
* << Fim da inclusão
endif.
if sy-subrc ne 0.
vl_flag = 'X'.
endif.
endif.
if not r_captacao is initial.
if not itab_zycbt243[] is initial.
select *
from /pws/zycbt001
into table itab_zycbt001
for all entries in itab_zycbt243
where nrseqcot = itab_zycbt243-nrseq
* >> Início da exclusão: FORM ZF_EXCLUI_CAPTACAO
and waers = itab_zycbt243-waers.
* << Fim da exclusão
* >> Início da inclusão: FORM ZF_EXCLUI_CAPTACAO
and waers = itab_zycbt243-waers. "#EC CI_NOFIRST
* << Fim da inclusão
endif.
if sy-subrc ne 0.
vl_flag = 'X'.
endif.
endif.
endif.
endif.
if not vl_flag is initial.
delete /pws/zycbt243 from table itab_zycbt243.
delete /pws/zycbt233 from /pws/zycbe233.
...
...
wa_234_est-qtde_dias_cdi ne wa_234-qtde_dias_cdi or
wa_234_est-linha ne wa_234-linha or
wa_234_est-periodo_linha ne wa_234-periodo_linha or
wa_234_est-qtde_dias_linha ne wa_234-qtde_dias_linha.
add 1 to vg_101.
endif.
endif.
endloop.
if not vl_cont is initial or
not vg_101 is initial.
* >> Início da exclusão: FORM ZF_VERIFICA_SALVAR
move: 'Deseja salvar os dados alterados ?' to vl_nome.
* << Fim da exclusão
* >> Início da inclusão: FORM ZF_VERIFICA_SALVAR
move: text-024 to vl_nome.
* << Fim da inclusão
call function 'POPUP_TO_CONFIRM'
exporting
text_question = vl_nome
text_button_1 = text-005
icon_button_1 = 'ICON_OKAY'
text_button_2 = text-006
icon_button_2 = 'ICON_CANCEL'
default_button = '1'
display_cancel_button = 'X'
importing
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL003F01
...
AND tipmen = /pws/zyglt020-tipmen
AND categ = /pws/zyglt016-categ
AND campo = /pws/zyglt019-campo
AND valor = t_carac-valor.
ENDLOOP.
ENDIF.
ELSE.
MESSAGE ID '/PWS/ZYNFM'
TYPE 'W'
NUMBER '000'
* >> Início da exclusão: FORM EXCLUSAO
WITH 'Há campos OBRIGATÓRIOS não preenchidos!!!'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUSAO
with text-073.
* << Fim da inclusão
ENDIF.
ELSE.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = text-019
text_question = text-021
text_button_1 = 'Sim'
icon_button_1 = 'ICON_OKAY'
text_button_2 = 'Não'
icon_button_2 = 'ICON_CANCEL'
...
...
v_stat(20), "#EC *
v_nummax TYPE i. "#EC *
DATA: ls_listheader LIKE LINE OF et_list_commentary.
WRITE sy-datum DD/MM/YYYY TO v_data.
WRITE sy-uzeit TO v_hora.
CONCATENATE v_data v_hora INTO v_dt SEPARATED BY ' - '.
CONCATENATE sy-mandt sy-host(4) INTO v_mandt SEPARATED BY ' - '.
REFRESH: et_list_commentary.
CLEAR ls_listheader.
ls_listheader-typ = 'S'.
* >> Início da exclusão: FORM ALV_BUILD_HEADER_PAR
ls_listheader-key = 'Data/Hora : '.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_HEADER_PAR
ls_listheader-key = text-008.
* << Fim da inclusão
ls_listheader-info = v_dt.
APPEND ls_listheader TO et_list_commentary.
ls_listheader-typ = 'S'.
* >> Início da exclusão: FORM ALV_BUILD_HEADER_PAR
ls_listheader-key = 'Usuário : '.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_HEADER_PAR
ls_listheader-key = text-009.
* << Fim da inclusão
ls_listheader-info = sy-uname.
...
...
ls_fieldcat-ref_tabname = 'T_PARAM'.
ls_fieldcat-seltext_s = text-025.
ls_fieldcat-outputlen = 20.
APPEND ls_fieldcat TO gt_fieldcat.
pos = pos + 1.
CLEAR ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'STATUS'.
ls_fieldcat-ref_fieldname = 'STATUS'.
ls_fieldcat-ref_tabname = 'T_PARAM'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT_PAR
ls_fieldcat-seltext_s = 'Status'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT_PAR
ls_fieldcat-seltext_s = text-014.
* << Fim da inclusão
ls_fieldcat-outputlen = 6.
APPEND ls_fieldcat TO gt_fieldcat.
pos = pos + 1.
CLEAR ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'DAT_VAL'.
ls_fieldcat-ref_fieldname = 'DAT_VAL'.
ls_fieldcat-ref_tabname = 'T_PARAM'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT_PAR
ls_fieldcat-seltext_s = 'Vál. Desde'.
* << Fim da exclusão
ls_fieldcat-seltext_s = text-026.
ls_fieldcat-outputlen = 10.
APPEND ls_fieldcat TO gt_fieldcat.
pos = pos + 1.
CLEAR ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'PROD'.
ls_fieldcat-ref_fieldname = 'PROD'.
ls_fieldcat-ref_tabname = 'T_PARAM'.
ls_fieldcat-seltext_s = text-027.
...
...
it_list_commentary = et_list_commentary.
ENDFORM.
FORM alv_build_fieldcat_log_ext.
CASE sy-ucomm.
WHEN 'PROT'.
CLEAR ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'BUKRS'.
ls_fieldcat-ref_fieldname = 'BUKRS'.
ls_fieldcat-ref_tabname = 'T_LOG_ZYGLT021'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT_LOG_EXT
ls_fieldcat-seltext_s = 'Empresa'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT_LOG_EXT
ls_fieldcat-seltext_s = text-039.
* << Fim da inclusão
ls_fieldcat-outputlen = 8.
APPEND ls_fieldcat TO gt_fieldcat.
pos = pos + 1.
CLEAR ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'ARQUIVO'.
ls_fieldcat-ref_fieldname = 'ARQUIVO'.
ls_fieldcat-ref_tabname = 'T_LOG_ZYGLT021'.
ls_fieldcat-seltext_s = text-045.
ls_fieldcat-outputlen = 128.
...
...
ls_fieldcat-ref_tabname = 'T_LOG_ZYGLT021'.
ls_fieldcat-seltext_s = 'LOG'.
ls_fieldcat-outputlen = 100.
APPEND ls_fieldcat TO gt_fieldcat.
WHEN 'INTE'.
CLEAR ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'BUKRS'.
ls_fieldcat-ref_fieldname = 'BUKRS'.
ls_fieldcat-ref_tabname = 'T_LOG_ZYGLT024'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT_LOG_EXT
ls_fieldcat-seltext_s = 'Empresa'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT_LOG_EXT
ls_fieldcat-seltext_s = text-039.
* << Fim da inclusão
ls_fieldcat-outputlen = 8.
APPEND ls_fieldcat TO gt_fieldcat.
pos = pos + 1.
CLEAR ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'TIPMEN'.
ls_fieldcat-ref_fieldname = 'TIPMEN'.
ls_fieldcat-ref_tabname = 'T_LOG_ZYGLT024'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT_LOG_EXT
ls_fieldcat-seltext_s = 'Tip.Mensagem'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT_LOG_EXT
ls_fieldcat-seltext_s = text-075.
* << Fim da inclusão
ls_fieldcat-outputlen = 12.
APPEND ls_fieldcat TO gt_fieldcat.
pos = pos + 1.
CLEAR ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'NUMINT'.
ls_fieldcat-ref_fieldname = 'NUMINT'.
ls_fieldcat-ref_tabname = 'T_LOG_ZYGLT024'.
ls_fieldcat-seltext_s = text-049.
ls_fieldcat-outputlen = 10.
APPEND ls_fieldcat TO gt_fieldcat.
pos = pos + 1.
CLEAR ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'DTMSG'.
ls_fieldcat-ref_fieldname = 'DTMSG'.
ls_fieldcat-ref_tabname = 'T_LOG_ZYGLT024'.
* >> Início da exclusão: FORM ALV_BUILD_FIELDCAT_LOG_EXT
ls_fieldcat-seltext_s = 'Data'.
* << Fim da exclusão
* >> Início da inclusão: FORM ALV_BUILD_FIELDCAT_LOG_EXT
ls_fieldcat-seltext_s = text-046.
* << Fim da inclusão
ls_fieldcat-outputlen = 10.
APPEND ls_fieldcat TO gt_fieldcat.
pos = pos + 1.
CLEAR ls_fieldcat.
ls_fieldcat-col_pos = pos.
ls_fieldcat-fieldname = 'CNPJ_BASF'.
ls_fieldcat-ref_fieldname = 'CNPJ_BASF'.
ls_fieldcat-ref_tabname = 'T_LOG_ZYGLT024'.
ls_fieldcat-seltext_s = text-050.
ls_fieldcat-outputlen = 16.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL003I01
...
NUMBER '000'
WITH text-056. "#EC *
ELSE.
PERFORM read_info.
ENDIF.
WHEN ok_aenv.
IF t001-bukrs IS INITIAL.
MESSAGE ID '/PWS/ZYNFM'
TYPE 'W'
NUMBER '000'
* >> Início da exclusão: MODULE USER_COMMAND_1001
WITH 'Preencher o campo EMPRESA !!!'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1001
with text-056.
* << Fim da inclusão
ELSE.
PERFORM read_info.
IF v_inf_aenv > 0.
PERFORM list_read.
PERFORM perform_list.
ENDIF.
ENDIF.
WHEN ok_env.
IF t001-bukrs IS INITIAL.
MESSAGE ID '/PWS/ZYNFM'
TYPE 'W'
NUMBER '000'
* >> Início da exclusão: MODULE USER_COMMAND_1001
WITH 'Preencher o campo EMPRESA !!!'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1001
with text-056.
* << Fim da inclusão
ELSE.
PERFORM read_info.
IF v_inf_env > 0.
PERFORM list_read.
PERFORM perform_list.
ENDIF.
ENDIF.
WHEN ok_canc.
IF t001-bukrs IS INITIAL.
MESSAGE ID '/PWS/ZYNFM'
TYPE 'W'
NUMBER '000'
* >> Início da exclusão: MODULE USER_COMMAND_1001
WITH 'Preencher o campo EMPRESA !!!'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1001
with text-056.
* << Fim da inclusão
ELSE.
PERFORM read_info.
IF v_inf_canc > 0.
PERFORM list_read.
PERFORM perform_list.
ENDIF.
ENDIF.
WHEN ok_list.
IF t001-bukrs IS INITIAL.
MESSAGE ID '/PWS/ZYNFM'
TYPE 'W'
NUMBER '000'
* >> Início da exclusão: MODULE USER_COMMAND_1001
WITH 'Preencher o campo EMPRESA !!!'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1001
with text-056.
* << Fim da inclusão
ELSE.
PERFORM read_info.
PERFORM list_read.
PERFORM perform_list.
ENDIF.
WHEN 'PROT'.
PERFORM: log_extrator_interface.
WHEN OTHERS.
v_datini = rco54if-abdat.
v_datfim = rco54if-bisdat.
...
...
v_tam = strlen( var1 ).
CLEAR var2.
IF v_cam_tra NE ' '.
v_tam = v_tam - 4.
var2 = var1(v_tam).
v_cam_tra = var2.
ENDIF.
ELSE.
CALL FUNCTION 'POPUP_TO_CONFIRM_MSG_WITH_CALL'
EXPORTING
* >> Início da exclusão: MODULE USER_COMMAND_1002
txt01 = 'Para Servidor de Aplicação, favor digitar o caminho!'
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1002
txt01 = text-074
* << Fim da inclusão
title = text-060
length = '65'
EXCEPTIONS
function_module_missed = 1
text_second_pushbutton_missed = 2
OTHERS = 3.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
...
...
IF v_answer = 1.
PERFORM exclusao.
ENDIF.
WHEN 'ALTE'.
CLEAR: ok-code, sy-ucomm.
READ TABLE t_carac WITH KEY col = 'X'.
IF sy-subrc NE 0.
MESSAGE ID '/PWS/ZYNFM'
TYPE 'W'
NUMBER '000'
* >> Início da exclusão: MODULE USER_COMMAND_2002
WITH 'Selecionar registros a serem alterados!!!'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_2002
with text-063.
* << Fim da inclusão
ENDIF.
LOOP AT t_carac WHERE col = 'X'.
/pws/zyglt022-mandt = sy-mandt.
/pws/zyglt022-tipmen = t_carac-tipmen.
/pws/zyglt022-categ = t_carac-categ.
/pws/zyglt022-campo = t_carac-campo.
/pws/zyglt022-valor = t_carac-valor.
/pws/zyglt022-denom = t_carac-denom.
UPDATE /pws/zyglt022.
ENDLOOP.
...
...
/pws/zyglt020-categ = t_ordem-categ.
/pws/zyglt020-campo = t_ordem-campo.
/pws/zyglt020-ordem = t_ordem-ordem.
/pws/zyglt020-chave = t_ordem-chave.
INSERT INTO /pws/zyglt020 VALUES /pws/zyglt020.
ENDLOOP.
ELSE.
MESSAGE ID '/PWS/ZYNFM'
TYPE 'W'
NUMBER '000'
* >> Início da exclusão: MODULE USER_COMMAND_1005
WITH 'Há campos não preenchidos!!!'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1005
with text-067.
* << Fim da inclusão
ENDIF.
WHEN 'ALTE'.
IF NOT v_proc IS INITIAL OR
NOT v_chave IS INITIAL.
SELECT SINGLE * FROM /pws/zyglt023
INTO st_zyglt023
WHERE bukrs EQ t001-bukrs
AND tipmen EQ /pws/zyglt020-tipmen
AND categ EQ /pws/zyglt016-categ.
IF sy-subrc = 0.
...
...
ENDIF.
CLEAR: v_proc, v_chave.
PERFORM check_1005.
IF v_check IS INITIAL.
CLEAR: ok-code, sy-ucomm.
READ TABLE t_ordem WITH KEY col = 'X'.
IF sy-subrc NE 0.
MESSAGE ID '/PWS/ZYNFM'
TYPE 'W'
NUMBER '000'
* >> Início da exclusão: MODULE USER_COMMAND_1005
WITH 'Selecionar registros a serem alterados!!!'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1005
with text-063.
* << Fim da inclusão
ENDIF.
LOOP AT t_ordem WHERE col = 'X'.
/pws/zyglt020-mandt = sy-mandt.
/pws/zyglt020-bukrs = t001-bukrs.
/pws/zyglt020-tipmen = t_ordem-tipmen.
/pws/zyglt020-categ = t_ordem-categ.
/pws/zyglt020-campo = t_ordem-campo.
/pws/zyglt020-ordem = t_ordem-ordem.
/pws/zyglt020-chave = t_ordem-chave.
UPDATE /pws/zyglt020.
...
...
ENDIF.
ENDLOOP.
ENDIF.
WHEN 'EXCL'.
CLEAR: ok-code, sy-ucomm.
READ TABLE t_ordem WITH KEY col = 'X'.
IF sy-subrc NE 0.
MESSAGE ID '/PWS/ZYNFM'
TYPE 'W'
NUMBER '000'
* >> Início da exclusão: MODULE USER_COMMAND_1005
WITH 'Selecionar registros a serem eliminados!!!'.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_1005
with text-062.
* << Fim da inclusão
ELSE.
LOOP AT t_ordem WHERE col = 'X'.
DELETE t_ordem INDEX sy-tabix.
DELETE t_tb_ordem WHERE bukrs = t001-bukrs
AND tipmen = t_ordem-tipmen
AND categ = t_ordem-categ
AND campo = t_ordem-campo.
DELETE FROM /pws/zyglt020 CLIENT SPECIFIED
WHERE mandt = sy-mandt
AND bukrs = t001-bukrs
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR027
...
from vbkd
into table itab_vbkd
for all entries in itab_zycet002
where vbeln eq itab_zycet002-vbeln_va.
endif.
endform.
form f_filtra_dados.
loop at itab_registro.
if itab_registro-vlcomis = 0.
delete itab_registro where nrseq = itab_registro-nrseq and
* >> Início da exclusão: FORM F_FILTRA_DADOS
vlcomis = 0.
* << Fim da exclusão
* >> Início da inclusão: FORM F_FILTRA_DADOS
vlcomis = 0. "#EC CI_NOFIRST
* << Fim da inclusão
endif.
endloop.
endform.
form f_sel_209_226.
select nrinvoic
nrparcf
gsberf
saldo
dtbelnr
from /pws/zycbt209
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR046
...
INTO TABLE itab_zycbt017
FOR ALL ENTRIES IN itab_zycet001_aux
WHERE nrinvoic = itab_zycet001_aux-nrseq.
IF NOT itab_zycbt017[] IS INITIAL.
SELECT nrinvoic nrparcf gsberf vlvinc nrseqc
FROM /pws/zycbt005
INTO TABLE itab_zycbt005
FOR ALL ENTRIES IN itab_zycbt017
WHERE nrinvoic = itab_zycbt017-nrinvoic
AND nrparcf = itab_zycbt017-nrparcf
* >> Início da exclusão: FORM SALDO_CONFIRMADO
AND gsberf = itab_zycbt017-gsberf.
* << Fim da exclusão
* >> Início da inclusão: FORM SALDO_CONFIRMADO
and gsberf = itab_zycbt017-gsberf. "#EC CI_NOFIRST
* << Fim da inclusão
IF NOT itab_zycbt005[] IS INITIAL.
SELECT nrseqc nrcontr dtcontr
FROM /pws/zycbt001
INTO TABLE itab_zycbt001
FOR ALL ENTRIES IN itab_zycbt005
WHERE nrseqc = itab_zycbt005-nrseqc.
IF sy-subrc = 0.
ENDIF.
ENDIF.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR108
...
INTO TABLE itab_zycet001
WHERE bukrs IN s_bukrs
AND gsber IN s_gsber
AND nrseq IN s_nrseq
AND dtemb IN s_dtemb
AND dtvencto IN s_vencto
AND nremb IN s_nremb.
IF NOT itab_zycet001[] IS INITIAL.
SELECT nrseqc nrinvoic nrcontr waers vlvinc
FROM /pws/zycbt005
* >> Início da exclusão: FORM SELECIONA_DADOS
INTO TABLE itab_zycbt005.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
into table itab_zycbt005. "#EC CI_NOFIRST
* << Fim da inclusão
REFRESH itab_zycbt005_aux.
LOOP AT itab_zycbt005.
itab_zycbt005_aux-nrseqc = itab_zycbt005-nrseqc.
itab_zycbt005_aux-nrinvoic = itab_zycbt005-nrinvoic.
itab_zycbt005_aux-nrcontr = itab_zycbt005-nrcontr.
itab_zycbt005_aux-waers = itab_zycbt005-waers.
itab_zycbt005_aux-vlvinc = itab_zycbt005-vlvinc.
APPEND itab_zycbt005_aux.
ENDLOOP.
SORT itab_zycbt005_aux BY nrseqc nrinvoic.
...
...
SELECT nrseq kunnr
FROM /pws/zycet046
INTO TABLE itab_zycet046
FOR ALL ENTRIES IN itab_zycet001
WHERE nrseq = itab_zycet001-nrseq.
IF sy-subrc = 0.
SELECT lifnr land1 name1 kunnr
FROM lfa1
INTO TABLE itab_lfa1
FOR ALL ENTRIES IN itab_zycet046
* >> Início da exclusão: FORM SELECIONA_DADOS
WHERE kunnr = itab_zycet046-kunnr.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
where kunnr = itab_zycet046-kunnr. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc = 0.
SELECT land1 /pws/codpa
FROM t005
INTO TABLE itab_t005
FOR ALL ENTRIES IN itab_lfa1
WHERE land1 = itab_lfa1-land1.
ENDIF.
ENDIF.
SELECT nrseq lifnr
FROM /pws/zycet010
...
...
SELECT lifnr bankl bankn bkref
FROM lfbk
INTO TABLE itab_lfbk
FOR ALL ENTRIES IN itab_zycet010
WHERE lifnr = itab_zycet010-lifnr.
IF sy-subrc = 0.
SELECT bankl banka swift
FROM bnka
INTO TABLE itab_bnka
FOR ALL ENTRIES IN itab_lfbk
* >> Início da exclusão: FORM SELECIONA_DADOS
WHERE bankl = itab_lfbk-bankl.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
where bankl = itab_lfbk-bankl. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
ENDIF.
SELECT nrseq nrbl dtbl house
FROM /pws/zycet047
INTO TABLE itab_zycet047
FOR ALL ENTRIES IN itab_zycet001
WHERE nrseq = itab_zycet001-nrseq.
SELECT werks j_1bbranch
FROM t001w
INTO TABLE itab_t001w
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR122
...
itab_zycbe033-d_kostl = /pws/zycbt128-kostl.
itab_zycbe033-d_prctr = /pws/zycbt128-prctr.
itab_zycbe033-d_fipos = /pws/zycbt128-fipos.
itab_zycbe033-d_fictr = /pws/zycbt128-fictr.
itab_zycbe033-c_gsber = /pws/zycbt128-gsber.
itab_zycbe033-c_kostl = /pws/zycbt128-kostl.
itab_zycbe033-c_prctr = /pws/zycbt128-prctr.
itab_zycbe033-c_fipos = /pws/zycbt128-fipos.
itab_zycbe033-c_fictr = /pws/zycbt128-fictr.
itab_zycbe033-agkoa = 'S'.
* >> Início da exclusão: FORM EXECUTA_F30
CALL CUSTOMER-FUNCTION '001'
TABLES
t_dados = itab_zycbe033.
* << Fim da exclusão
APPEND itab_zycbe033.
LOOP AT itab_zycbt034.
itab_msg-nrseqc = /pws/zycbt128-nrseq.
itab_msg-texto = itab_zycbt034-descricao.
APPEND itab_msg.
ENDLOOP.
IF itab_zycbt034 IS INITIAL.
CALL FUNCTION '/PWS/ZYCA_TRANSACAO_F_30'
TABLES
t_dados = itab_zycbe033
...
...
t_zycbt036 = itab_zycbt036
EXCEPTIONS
campo_em_branco = 1
OTHERS = 2.
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = text-006
tabela = text-004
cpochv = itab_zycbt129-nrseq
tpmsg = 'S'.
IF sy-subrc = 0.
* >> Início da exclusão: FORM EXECUTA_F30
CALL CUSTOMER-FUNCTION '002'.
* << Fim da exclusão
itab_msg-nrseqc = itab_zycbt129-nrseq.
itab_msg-tpparc = itab_zycbt129-tpparc.
itab_msg-nrparc = itab_zycbt129-nrparc.
itab_msg-texto = itab_zycbt032-msg.
APPEND itab_msg.
/pws/zycbt129-belnr_cl = itab_zycbt032-belnr.
UPDATE /pws/zycbt129 SET belnr_cl = /pws/zycbt129-belnr_cl
WHERE nrseq = itab_zycbt129-nrseq
AND tpparc = itab_zycbt129-tpparc
AND nrparc = itab_zycbt129-nrparc.
...
...
REFRESH:
itab_zycbt034,
itab_zycbe033,
itab_zycbt032.
ENDFORM.
FORM gera_programa_opendataset TABLES p_itab_msg STRUCTURE itab_msg
USING p_dir_unix.
DATA: t_prog(72) TYPE c OCCURS 1000 WITH HEADER LINE.
DATA: w_prog LIKE trdir-name.
APPEND 'report sy-repid.' TO t_prog.
* >> Início da exclusão: FORM GERA_PROGRAMA_OPENDATASET
APPEND 'data: BEGIN OF itab_msg OCCURS 10,' TO t_prog.
APPEND ' nrseqc LIKE /pws/zycbt129-nrseq,' TO t_prog.
APPEND ' tpparc LIKE /pws/zycbt129-tpparc,' TO t_prog.
APPEND ' nrparc LIKE /pws/zycbt129-nrparc,' TO t_prog.
APPEND ' texto(50) TYPE c,' TO t_prog.
APPEND ' END OF itab_msg.' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_PROGRAMA_OPENDATASET
append 'data: BEGIN OF itab_msg OCCURS 10,' to t_prog.
append ' nrseqc LIKE /pws/zycbt129-nrseq,' to t_prog.
"#EC NOTEXT
append ' tpparc LIKE /pws/zycbt129-tpparc,' to t_prog.
"#EC NOTEXT
append ' nrparc LIKE /pws/zycbt129-nrparc,' to t_prog.
"#EC NOTEXT
append ' texto(50) TYPE c,' to t_prog.
"#EC NOTEXT
append ' END OF itab_msg.' to t_prog.
"#EC NOTEXT
* << Fim da inclusão
APPEND 'form f_exec_open tables p_itab_msg structure itab_msg'
TO t_prog.
APPEND ' using p_dir_unix.' TO t_prog.
IF sy-saprl+0(2) EQ '47'.
APPEND
'open dataset p_dir_unix for output in text mode encoding default.'
TO t_prog.
ELSE.
APPEND
' open dataset p_dir_unix for output in text mode.' TO t_prog.
ENDIF.
* >> Início da exclusão: FORM GERA_PROGRAMA_OPENDATASET
APPEND ' if sy-subrc EQ 0.' TO t_prog.
APPEND ' loop at p_itab_msg.' TO t_prog.
APPEND ' transfer p_itab_msg to p_dir_unix.' TO t_prog.
APPEND ' endloop.' TO t_prog.
APPEND ' endif.' TO t_prog.
APPEND ' close dataset p_dir_unix.' TO t_prog.
APPEND 'endform.' TO t_prog.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_PROGRAMA_OPENDATASET
append ' if sy-subrc EQ 0.' to t_prog. "#EC NOTEXT
append ' loop at p_itab_msg.' to t_prog.
append ' transfer p_itab_msg to p_dir_unix.' to t_prog.
append ' endloop.' to t_prog.
append ' endif.' to t_prog.
append ' close dataset p_dir_unix.' to t_prog.
append 'endform.' to t_prog.
* << Fim da inclusão
GENERATE SUBROUTINE POOL t_prog NAME w_prog.
IF sy-subrc = 0.
PERFORM f_exec_open IN PROGRAM (w_prog) TABLES p_itab_msg
USING p_dir_unix
IF FOUND.
ENDIF.
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR129
...
frmpagto = itab_zycbt031-frpagto.
READ TABLE itab_t012k WITH KEY hbkid = itab_acerto_s-hbkid
hktid = itab_acerto_s-hktid
BINARY SEARCH.
READ TABLE itab_t012 WITH KEY hbkid = itab_acerto_s-hbkid.
IF sy-subrc IS INITIAL.
READ TABLE itab_bnka WITH KEY banks = itab_t012-banks
bankl = itab_t012-bankl
BINARY SEARCH.
ENDIF.
* >> Início da exclusão: FORM IMPRIME_LOG_SAIDA
WRITE: 2 text-012,
* << Fim da exclusão
* >> Início da inclusão: FORM IMPRIME_LOG_SAIDA
write:
* << Fim da inclusão
15 itab_acerto_s-dtlanc,
* >> Início da exclusão: FORM IMPRIME_LOG_SAIDA
55 text-013,
* << Fim da exclusão
61 sy-pagno,
65 'de',
69 v_upag,
* >> Início da exclusão: FORM IMPRIME_LOG_SAIDA
/2 text-014,
* << Fim da exclusão
15 itab_bnka-banka,
* >> Início da exclusão: FORM IMPRIME_LOG_SAIDA
55 text-015,
* << Fim da exclusão
75 /pws/zycbt145-zlsch,
* >> Início da exclusão: FORM IMPRIME_LOG_SAIDA
/2 text-016,
* << Fim da exclusão
21 itab_t012-bankl,
* >> Início da exclusão: FORM IMPRIME_LOG_SAIDA
/2 text-017,
* << Fim da exclusão
21 itab_t012k-bankn.
SKIP.
* >> Início da exclusão: FORM IMPRIME_LOG_SAIDA
WRITE: 2 text-004,
14 text-005,
25 text-006,
37 text-007,
74 text-008,
91 text-009,
111 text-010,
118 text-011,
135 text-018.
* << Fim da exclusão
CLEAR: itab_acerto_s,
itab_zycbt031.
LOOP AT itab_acerto_s.
CASE itab_acerto_s-tpproc.
WHEN space OR 'PRINCIPAL'.
v_belnr = itab_acerto_s-belnr_c.
v_belnr2 = itab_acerto_s-belnr_p.
WHEN 'I' OR 'IRRF'.
v_belnr = itab_acerto_s-belnr_ci.
v_belnr2 = itab_acerto_s-belnr_pi.
...
...
37 itab_lfa1-name1,
74 itab_lfbk-bankl,
91 itab_lfbk-bankn,
111 itab_acerto_s-waers,
118 itab_acerto_s-vlme,"#EC *
135 itab_zycbt031-vlmi."#EC *
ADD: itab_zycbt031-vlmi TO v_tot_vlmi,
1 TO v_num_pag.
ENDLOOP.
SKIP 2.
* >> Início da exclusão: FORM IMPRIME_LOG_SAIDA
WRITE: 2 text-019,
* << Fim da exclusão
* >> Início da inclusão: FORM IMPRIME_LOG_SAIDA
write:
* << Fim da inclusão
135 v_tot_vlmi ,"#EC *
* >> Início da exclusão: FORM IMPRIME_LOG_SAIDA
/2 text-020,
* << Fim da exclusão
147 v_num_pag.
IF NOT itab_zyglt357 IS INITIAL.
IF itab_zyglt357-gerar_boleto EQ 'SIM'.
SKIP 3.
SKIP 7.
WRITE: 2 '----------------------------------',
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR912F01
...
perform processar_carga.
else.
message i015 with text-004 text-005.
endif.
endform.
form processar_carga.
clear: v_tpccred, itab_zycbt092_aux.
refresh: itab_zycbt092_aux.
select nrseq tpccred nrccred from /pws/zycbt092
into table itab_zycbt092
* >> Início da exclusão: FORM PROCESSAR_CARGA
where tpccred is null or tpccred eq ''.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSAR_CARGA
where tpccred is null or tpccred eq ''. "#EC CI_NOFIRST
* << Fim da inclusão
if not itab_zycbt092[] is initial.
loop at itab_zycbt092.
v_tpccred = ''.
select single nrseq
from /pws/zycbt161 into v_nrseq
* >> Início da exclusão: FORM PROCESSAR_CARGA
where nrseq = itab_zycbt092-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSAR_CARGA
where nrseq = itab_zycbt092-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
if sy-subrc = 0.
v_tpccred = 'OV'.
endif.
if v_tpccred is initial.
select single nrseq
from /pws/zycbt097 into v_nrseq
where nrseq = itab_zycbt092-nrseq.
if sy-subrc = 0.
v_tpccred = 'IV'.
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCER907
...
v_nrseq_new = v_nrseq_old(3).
if not v_nrseq_old+4(1) is initial.
v_nrseq_new = v_nrseq_old+2(3).
endif.
update /pws/zycet119 set codnrseq = v_nrseq_new
where nrseqre = /pws/zycet119-nrseqre and
codnrseq = /pws/zycet119-codnrseq and
stcd1 = /pws/zycet119-stcd1 and
sequencial = /pws/zycet119-sequencial.
endselect.
* >> Início da exclusão:
message s001(00) with 'Executado com sucesso! '
' Ativar as tabelas.'.
* << Fim da exclusão
* >> Início da inclusão:
message s001(00) with text-005
text-006.
* << Fim da inclusão
end-of-selection.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCMR006
...
FROM /pws/zycit001
INTO TABLE itab_zycit001
WHERE nrseq IN s_nrseq
AND embarca IN s_nremb
AND bukrs IN s_bukrs.
IF sy-subrc = 0.
SELECT nrseqdi nrseq ebeln ebelp
FROM /pws/zycit100
INTO TABLE itab_zycit100
FOR ALL ENTRIES IN itab_zycit001
* >> Início da exclusão: FORM SELECIONA_DADOS
WHERE nrseq = itab_zycit001-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
where nrseq = itab_zycit001-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc = 0.
SELECT nrseqdi nrdi identify bukrs j_1bbranch dtreg nrbl
land vlfob vlfobr waersfob cnpjestab
FROM /pws/zycit085
INTO TABLE itab_zycit085
FOR ALL ENTRIES IN itab_zycit100
WHERE nrseqdi = itab_zycit100-nrseqdi
AND identify IN s_nrdi
AND dtreg IN s_dtdi
AND vlfob IN s_valor
...
...
SELECT lifnr bankl bankn bkref
FROM lfbk
INTO TABLE itab_lfbk
FOR ALL ENTRIES IN itab_zycit006
WHERE lifnr = itab_zycit006-bconegoc.
IF sy-subrc = 0.
SELECT bankl banka swift
FROM bnka
INTO TABLE itab_bnka
FOR ALL ENTRIES IN itab_lfbk
* >> Início da exclusão: FORM SELECIONA_DADOS
WHERE bankl = itab_lfbk-bankl.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
where bankl = itab_lfbk-bankl. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
SELECT * FROM /pws/zycbt164
INTO TABLE itab_zycbt164
WHERE bukrs IN s_bukrs.
SELECT * FROM /pws/zyglt382
INTO TABLE itab_zyglt382
WHERE bukrs IN s_bukrs.
SELECT * FROM /pws/zyglt383
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB001
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 501
Texto: (4 caracteres)
"Des."
Comprimento máximo: 4
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB116
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 023
Texto: (25 caracteres)
"Deseja excluir a Cotação?"
Comprimento máximo: 25
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 024
Texto: (34 caracteres)
"Deseja salvar os dados alterados ?"
Comprimento máximo: 34
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYGL003
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 073
Texto: (41 caracteres)
"Há campos OBRIGATÓRIOS não preenchidos!!!"
Comprimento máximo: 41
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 074
Texto: (52 caracteres)
"Para Servidor de Aplicação, favor digitar o caminho!"
Comprimento máximo: 52
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 075
Texto: (12 caracteres)
"Tip.Mensagem"
Comprimento máximo: 12
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/ZYCER907
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 005
Texto: (22 caracteres)
"Executado com sucesso!"
Comprimento máximo: 23
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 006
Texto: (19 caracteres)
" Ativar as tabelas."
Comprimento máximo: 19