CE PLUS - Nota 005775
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Empréstimos
Data/Hora da Publicação: 29/01/2008 00:00:00
Data/Hora Última Alteração: 03/03/2010 17:25:29
Descrição da Nota: VERIFICAÇÃO AMPLIADA, CODE INSPECTOR PROGRAMA DE EMPRESTIMO
Sintoma
performance e sintaxe
Solução
verificação ampliada, code inspector
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05775 Data: 29/01/2008 Hora: 12:07:59
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05775
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00004
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
VERIFICAÇÃO AMPLIADA, CODE INSPECTOR PROGRAMA DE EMPRESTIMO
----------------------------------------------------------------------------------------------------
Palavras Chave:
VERIFICAÇÃO AMPLIADA, CODE INSPECTOR PROGRAMA DE EMPRESTIMO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCA111F01
REPS /PWS/MZYCA111I01
REPS /PWS/MZYCA111O01
REPS /PWS/MZYCA111TOP
REPS /PWS/MZYCA111X01
REPT /PWS/SAPMZYCA111
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA111F01
...
PERFORM fill_date1_f02.
ENDFORM.
FORM clear_date_batch.
CLEAR: itab_zycbt034,
itab_zycbe033,
itab_zycbt032.
REFRESH: itab_zycbt034, itab_zycbe033, itab_zycbt032.
ENDFORM.
FORM verify_null_field USING value(p_field)
value(p_fieldname)
* >> Início da exclusão: FORM VERIFY_NULL_FIELD
value(p_description).
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFY_NULL_FIELD
value(p_description)."#EC *
* << Fim da inclusão
IF p_field IS INITIAL.
itab_zycbt034-campo = p_fieldname.
itab_zycbt034-descricao = p_description.
APPEND itab_zycbt034.
ENDIF.
ENDFORM.
FORM popup_message USING value(p_textline1)
* >> Início da exclusão: FORM POPUP_MESSAGE
value(p_titel).
* << Fim da exclusão
* >> Início da inclusão: FORM POPUP_MESSAGE
value(p_titel). "#EC *
* << Fim da inclusão
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
defaultoption = 'Y'
textline1 = p_textline1
titel = p_titel
IMPORTING
answer = v_answer
EXCEPTIONS
* >> Início da exclusão: FORM POPUP_MESSAGE
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM POPUP_MESSAGE
OTHERS = 0."#EC *
* << Fim da inclusão
ENDFORM.
FORM obtem_taxa_cambial.
v_ftaxa = /pws/zycbe128-ftaxa.
CALL FUNCTION '/PWS/ZYCB_MONTANTE_CONVERTE'
EXPORTING
i_montante = /pws/zycbe128-sldesem
i_demoeda = /pws/zycbe128-waers
i_paramoeda = wa_zycbt007-waersb
i_ctmoeda = v_ftaxa
i_dtbase = sy-datum
IMPORTING
e_txc = v_taxacambial
EXCEPTIONS
i_demoeda_nao_encontrado = 1
i_paramoeda_nao_encontrado = 2
i_ctmoeda_nao_encontrado = 3
i_dtbase_nao_encontrada = 4
taxa_nao_encontrada = 5
fator_nao_encontrado = 6
OTHERS = 7.
* >> Início da inclusão: FORM OBTEM_TAXA_CAMBIAL
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDFORM.
FORM delete_zycbt128.
LOOP AT itab_zycbt129p WHERE ftransf EQ 'C'.
ENDLOOP.
IF sy-subrc EQ 0.
MESSAGE i015 WITH text-091 text-092.
EXIT.
ENDIF.
SELECT nrseq dtpagto status
FROM /pws/zycbt118
INTO (/pws/zycbt118-nrseq, /pws/zycbt118-dtpagto,
/pws/zycbt118-status)
UP TO 1 ROWS
WHERE nrref = /pws/zycbe128-nrseq AND
dtpagto <> '00000000' AND
status <> 'E' AND
codmodul = 'EM'.
* >> Início da exclusão: FORM DELETE_ZYCBT128
ENDSELECT.
* << Fim da exclusão
* >> Início da inclusão: FORM DELETE_ZYCBT128
ENDSELECT. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc EQ 0.
MESSAGE i015 WITH text-035 text-034.
v_erro_exclusao = 'X'.
ELSE.
SELECT *
INTO TABLE itab_zycbt118
FROM /pws/zycbt118
WHERE nrref = /pws/zycbe128-nrseq AND
status <> 'E' AND
* >> Início da exclusão: FORM DELETE_ZYCBT128
codmodul = 'EM'.
* << Fim da exclusão
* >> Início da inclusão: FORM DELETE_ZYCBT128
codmodul = 'EM'. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc EQ 0.
PERFORM popup_message USING text-031 text-032.
IF v_answer = 'J'.
PERFORM verifica_parcelas.
IF v_apagar = 'S'.
PERFORM reverse_document_zycbt128.
IF v_erro_exclusao IS INITIAL.
PERFORM reverse_document_zycbt129.
IF v_erro_exclusao IS INITIAL.
PERFORM exclui_emprestimo.
...
...
v_diasj = v_diasj + /pws/zycbe129-nrdias.
WHEN '0104'.
v_diasc = v_diasc + /pws/zycbe129-nrdias.
ENDCASE.
ENDFORM.
FORM ver_vlprinc.
DATA: vlprinc LIKE /pws/zycbt128-vlme,
vdtaux LIKE sy-datum,
vdtfinal LIKE sy-datum, "#EC NEEDED
vdtfinal2 LIKE sy-datum, "#EC NEEDED
* >> Início da exclusão: FORM VER_VLPRINC
vdtfinal3 LIKE sy-datum,
* << Fim da exclusão
* >> Início da inclusão: FORM VER_VLPRINC
vdtfinal3 LIKE sy-datum,"#EC NEEDED
* << Fim da inclusão
v_line TYPE i.
CLEAR v_ind_valor.
LOOP AT itab_zycbt129p.
vlprinc = vlprinc + itab_zycbt129p-vlme.
vdtaux = itab_zycbt129p-dtfinal.
AT LAST.
vdtfinal = vdtaux.
ENDAT.
ENDLOOP.
IF vlprinc <> /pws/zycbe128-vlme.
...
...
EXPORTING
i_codmod = 'F'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* >> Início da inclusão: FORM FILL_DATE1_F02
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'EMP002' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa)
USING ok_code
CHANGING e_subrc.
IF e_subrc NE 0.
EXIT.
...
...
EXPORTING
i_codmod = 'F'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* >> Início da inclusão: FORM FILL_DATE_F02
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'EMP002' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa)
USING ok_code
CHANGING e_subrc.
IF e_subrc NE 0.
EXIT.
...
...
itab_zycbt129c-dtinicio <> itab_zycbt129_ant-dtinicio OR
itab_zycbt129c-vlme <> itab_zycbt129_ant-vlme.
PERFORM popup_message USING text-009 text-006.
IF v_answer = 'J'.
v_f02 = 'X'.
ELSE.
REFRESH itab_zycbt129c.
MOVE itab_zycbt129_ant[] TO itab_zycbt129c[].
DESCRIBE TABLE itab_zycbt129c LINES v_nrlines.
/pws/zycbe128-nrparc = v_nrlines.
* >> Início da exclusão: FORM REVERSE_DOCUMENT_ZYCBT129
DELETE FROM /pws/zycbt129 WHERE tpparc = 'C'.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT129
DELETE FROM /pws/zycbt129 WHERE tpparc = 'C'."#EC CI_NOFIRST
* << Fim da inclusão
MOVE itab_zycbt129c TO /pws/zycbt129.
MODIFY /pws/zycbt129.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
ENDFORM.
...
...
CLEAR v_text.
CONCATENATE text-103 text-086 INTO v_text SEPARATED BY space.
PERFORM processa_boleto.
ENDCASE.
ENDIF.
ENDIF.
ENDFORM.
FORM modo_batch_input.
SELECT *
FROM /pws/zycbt039
* >> Início da exclusão: FORM MODO_BATCH_INPUT
INTO CORRESPONDING FIELDS OF TABLE itab_modo.
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_BATCH_INPUT
INTO CORRESPONDING FIELDS OF TABLE itab_modo."#EC CI_NOWHERE
* << Fim da inclusão
SORT itab_modo DESCENDING.
CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
EXPORTING
textline1 = text-056
textline2 = text-057
titel = text-058
IMPORTING
answer = v_modo_bi
TABLES
t_spopli = itab_modo
EXCEPTIONS
not_enough_answers = 1
too_much_answers = 2
too_much_marks = 3
* >> Início da exclusão: FORM MODO_BATCH_INPUT
OTHERS = 4.
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_BATCH_INPUT
OTHERS = 4."#EC *
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
IF v_modo_bi EQ '3'.
v_modo_bi = 'A'.
ELSEIF v_modo_bi EQ '2'.
v_modo_bi = 'E'.
ELSEIF v_modo_bi EQ '1'.
v_modo_bi = 'N'.
ENDIF.
ENDFORM.
FORM lock_record.
IF ( sy-tcode = '/PWS/ZYCB111_E' AND okcode = 'AEND' ) OR
...
...
v_lock = 0.
ENDIF.
ENDFORM.
FORM verifica_despesa.
DATA v_answer_aux.
IF sy-tcode = '/PWS/ZYCB111_C'.
SELECT *
FROM /pws/zycbt118
INTO TABLE itab_zycbt118
WHERE nrref = v_nrseq AND
* >> Início da exclusão: FORM VERIFICA_DESPESA
codmodul = 'CE'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_DESPESA
codmodul = 'CE'. "#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc = 0.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
text_question = text-059
text_button_1 = text-060
icon_button_1 = 'ICON_OKAY'
text_button_2 = text-061
icon_button_2 = 'ICON_CANCEL'
display_cancel_button = ' '
IMPORTING
answer = v_answer_aux
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
* >> Início da inclusão: FORM VERIFICA_DESPESA
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
IF v_answer_aux = '1'.
DELETE FROM /pws/zycbt118 WHERE nrref = v_nrseqc2
* >> Início da exclusão: FORM VERIFICA_DESPESA
AND codmodul = 'FR'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_DESPESA
AND codmodul = 'FR'."#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc = 0.
MESSAGE i015 WITH text-062.
...
...
READ TABLE itab_zycbt129_ant WITH KEY nrparc = itab_zycbt129c-nrparc.
IF sy-subrc = 0.
MOVE itab_zycbt129_ant-nrdias TO itab_zycbt129c-nrdias.
MOVE itab_zycbt129_ant-dtinicio TO itab_zycbt129c-dtinicio.
MOVE itab_zycbt129_ant-dtfinal TO itab_zycbt129c-dtfinal.
MOVE itab_zycbt129_ant-belnr_c TO itab_zycbt129c-belnr_c.
MODIFY itab_zycbt129c INDEX sy-tabix.
ENDIF.
ENDLOOP.
ENDFORM.
* >> Início da exclusão: FORM EXIBE_HISTORICO
FORM exibe_historico.
ENDFORM.
* << Fim da exclusão
FORM limpa.
CLEAR: /pws/zycbe128, /pws/zycbe129,
wa_zycbt007, wa_zycbt011, wa_zycbt128, wa_zycbt031a,
wa_zycbt064, wa_cols,
bcodescr, bcodescr1, bcodescr2, fornecedor,
* >> Início da exclusão: FORM LIMPA
moeda, nrdias, v_erro, v_ok,
* << Fim da exclusão
* >> Início da inclusão: FORM LIMPA
moeda, nrdias, v_erro,
* << Fim da inclusão
v_apagar, okcode, v_codeven, v_nrseqcview,
v_nrseqc, v_nrseqc2, v_nrseq, v_cpochv,
v_nrlines, v_status_s, v_nrdias, v_origem,
* >> Início da exclusão: FORM LIMPA
v_dtfinal, v_answer2, v_countlinej, v_aliq, v_answer,
v_parcom, v_media, v_compra, v_venda, v_ftaxa,
v_vlme, v_nrdias_util, v_periodo, v_waers, v_waersb,
* << Fim da exclusão
* >> Início da inclusão: FORM LIMPA
v_dtfinal, v_countlinej, v_answer,
v_media, v_compra, v_venda, v_ftaxa,
v_vlme, v_periodo, v_waersb,
* << Fim da inclusão
v_diasp, v_diasj, v_taxacambial, v_diasc, v_vencto,
* >> Início da exclusão: FORM LIMPA
v_ind_valor, v_ind_vlcomis, v_ind_percomis,v_campo,
* << Fim da exclusão
* >> Início da inclusão: FORM LIMPA
v_ind_valor, v_campo,
* << Fim da inclusão
v_ind_nrparc, v_ind_texto, v_valor, i_belnr,
i_bukrs, i_gjahr, v_modo_bi, v_lock,
v_exercicio, v_dias, v_vlaux, v_valor2,
...
...
WHERE nrseq EQ v_nrseqc AND
tpparc EQ 'P' AND
belnr_p NE ' '.
ENDSELECT.
IF sy-subrc EQ 0.
MOVE /pws/zycbe129 TO wa_zycbt129.
MESSAGE i015 WITH text-093 .
ENDIF.
ENDIF.
ENDFORM.
* >> Início da exclusão: FORM ESTORNA_PARCELAS_EXCLUIDAS
FORM estorna_parcelas_excluidas.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_PARCELAS_EXCLUIDAS
FORM estorna_parcelas_excluidas."#EC CALLED
* << Fim da inclusão
LOOP AT itab_excluidos.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = 'FB08'.
itab_zycbe033-tabela = text-008.
itab_zycbe033-cpochv = wa_zycbt128-nrseq.
itab_zycbe033-belnr = itab_excluidos-belnr.
itab_zycbe033-bukrs = wa_zycbt128-bukrs.
itab_zycbe033-budat = wa_zycbt128-dtdesem.
itab_zycbe033-gjahs = wa_zycbt128-dtdesem+0(4).
v_monat = itab_zycbe033-budat+2(2).
...
...
EXPORTING
i_codmod = 'F'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* >> Início da inclusão: FORM RECONTABILIZA_PARCELAS
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'EMP002' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa)
USING ok_code
CHANGING e_subrc.
IF e_subrc NE 0.
EXIT.
...
...
EXPORTING
i_codmod = 'F'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* >> Início da inclusão: FORM GERA_NOVAS_PARCELAS
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'EMP002' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa)
USING ok_code
CHANGING e_subrc.
IF e_subrc NE 0.
EXIT.
...
...
EXPORTING
i_codmod = 'F'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* >> Início da inclusão: FORM CLEARING_CONTA_BANCO
if sy-subrc = 0.
else.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM CLEARING_CONTA_BANCO
ENDIF.
* << Fim da inclusão
READ TABLE itab_zyglt100 WITH KEY zexit = 'EMP002' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa)
USING ok_code
...
...
popup_title = title
start_column = start_column
start_row = 5
IMPORTING
returncode = answer
TABLES
fields = fields
EXCEPTIONS
error_in_fields = 1
OTHERS = 2.
* >> Início da inclusão: FORM CHAMA_DOCUMENTO
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
IF answer EQ space.
nrseq = fields-value.
IF nrseq EQ v_nrseqc.
MESSAGE i015 WITH text-100.
PERFORM chama_documento.
ENDIF.
ELSEIF answer = 'A'.
EXIT.
ENDIF.
IF NOT nrseq IS INITIAL.
...
...
icon_button_1 = 'ICON_OKAY'
text_button_2 = text-105
icon_button_2 = 'ICON_CANCEL'
default_button = '1'
display_cancel_button = ' '
IMPORTING
answer = v_resp
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
* >> Início da inclusão: FORM PROCESSA_BOLETO
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
IF v_resp EQ '1'.
PERFORM gera_boleto.
ELSE.
EXIT.
ENDIF.
ENDFORM.
FORM gera_boleto.
DATA: v_emprest TYPE c,
v_dtvencto LIKE /pws/zycbe128-dtvencto.
MOVE /pws/zycbe128-dtvencto TO v_dtvencto.
...
...
CLEAR: wa_zycbt128-belnr_comp.
CLEAR: /pws/zycbe128-belnr_comp.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
ENDIF.
PERFORM clear_date_batch.
ENDFORM.
* >> Início da exclusão: FORM DETERMINA_ANO
FORM determina_ano USING p_budat
p_bukrs
CHANGING p_ano.
* << Fim da exclusão
* >> Início da inclusão: FORM DETERMINA_ANO
FORM determina_ano USING p_budat TYPE SY-DATUM
p_bukrs TYPE T001-BUKRS
CHANGING p_ano LIKE T009B-BDATJ.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
v_bukrs = p_bukrs
v_date = p_budat
IMPORTING
v_year = p_ano.
ENDFORM.
FORM determina_periodo USING value(p_budat)
value(p_bukrs)
* >> Início da exclusão: FORM DETERMINA_PERIODO
CHANGING p_monat.
* << Fim da exclusão
* >> Início da inclusão: FORM DETERMINA_PERIODO
CHANGING p_monat. "#EC *
* << Fim da inclusão
DATA v_periv(2).
SELECT periv
UP TO 1 ROWS
FROM t001
INTO v_periv
WHERE bukrs EQ p_bukrs.
ENDSELECT.
CALL FUNCTION 'DETERMINE_PERIOD'
EXPORTING
date = p_budat
version = v_periv
IMPORTING
period = p_monat
EXCEPTIONS
period_in_not_valid = 1
period_not_assigned = 2
version_undefined = 3
* >> Início da exclusão: FORM DETERMINA_PERIODO
OTHERS = 4.
* << Fim da exclusão
* >> Início da inclusão: FORM DETERMINA_PERIODO
OTHERS = 4."#EC *
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDFORM.
FORM read_text.
CLEAR: itab_thead, itab_tline.
REFRESH: itab_thead, itab_tline.
PERFORM preenche_thead.
CALL FUNCTION 'READ_TEXT'
EXPORTING
client = sy-mandt
id = itab_thead-tdid
language = itab_thead-tdspras
...
...
lines = itab_tline
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
* >> Início da inclusão: FORM READ_TEXT
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDFORM.
FORM preenche_thead.
itab_thead-tdobject = '/PWS/CA111'.
itab_thead-tdname = v_nrseqcview.
itab_thead-tdid = 'CA01'.
itab_thead-tdspras = sy-langu.
itab_thead-tdlinesize = '072'.
APPEND itab_thead.
ENDFORM.
FORM edit_text.
...
...
lines = itab_tline
EXCEPTIONS
id = 1
language = 2
linesize = 3
name = 4
object = 5
textformat = 6
communication = 7
OTHERS = 8.
* >> Início da inclusão: FORM EDIT_TEXT
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDFORM.
FORM emite_boleto.
DATA: v_programa LIKE /pws/zyglt213-report,
v_mdcorresp LIKE /pws/zycbt031-mdcorresp.
CALL FUNCTION '/PWS/ZYGL_PARAMETRO_IMPRESSAO'
EXPORTING
i_codmod = 'F'
i_mdcorresp = 'CE'
i_tpboleto = '03'
i_modalidade = /pws/zycbe128-modalidade
...
...
ENDSELECT.
IF sy-subrc NE 0.
CLEAR v_descricao_natoper.
ENDIF.
ELSE.
CLEAR v_descricao_natoper.
ENDIF.
ENDFORM.
FORM pega_descricao_dominio USING value(p_objeto)
value(p_valor)
* >> Início da exclusão: FORM PEGA_DESCRICAO_DOMINIO
CHANGING p_retorno.
* << Fim da exclusão
* >> Início da inclusão: FORM PEGA_DESCRICAO_DOMINIO
CHANGING p_retorno. "#EC *
* << Fim da inclusão
DATA: wa_dd03l LIKE dd03l,
tablename LIKE dd03l-tabname,
fieldname LIKE dd03l-fieldname.
DATA: BEGIN OF itab_dd07t OCCURS 5.
INCLUDE STRUCTURE dd07t.
DATA: END OF itab_dd07t.
SPLIT p_objeto AT '-' INTO tablename fieldname.
IF sy-subrc NE 0.
EXIT.
ENDIF.
...
...
INTO TABLE itab_dd07t
WHERE domname = wa_dd03l-domname AND
ddlanguage = sy-langu(1).
IF sy-subrc = 0.
READ TABLE itab_dd07t WITH KEY domvalue_l = p_valor.
IF sy-subrc EQ 0.
p_retorno = itab_dd07t-ddtext.
ELSE.
LOOP AT itab_dd07t WHERE domvalue_l IS initial.
IF p_valor GE itab_dd07t-domval_ld AND
* >> Início da exclusão: FORM PEGA_DESCRICAO_DOMINIO
p_valor LE itab_dd07t-domval_hd. "#EC PORTABLE
* << Fim da exclusão
* >> Início da inclusão: FORM PEGA_DESCRICAO_DOMINIO
p_valor LE itab_dd07t-domval_hd. "#EC PORTABLE
* << Fim da inclusão
p_retorno = itab_dd07t-ddtext.
EXIT.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
* >> Início da exclusão: FORM VERIFICA_PAIS_FILIAL
FORM verifica_pais_filial USING p_bukrs
p_brnch.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PAIS_FILIAL
FORM verifica_pais_filial USING p_bukrs like /pws/zycbe128-bukrs
p_brnch like /pws/zycbe128-j_1bbranch.
* << Fim da inclusão
SELECT adrnr
UP TO 1 ROWS
FROM j_1bbranch
INTO j_1bbranch-adrnr
WHERE bukrs = p_bukrs AND
branch = p_brnch.
ENDSELECT.
IF sy-subrc = 0.
SELECT country
UP TO 1 ROWS
...
...
SELECT SINGLE *
FROM /pws/zycbt007
INTO wa_zycbt007
WHERE bukrs EQ /pws/zycbe128-bukrs.
CLEAR itab_zycbt013.
REFRESH itab_zycbt013.
SELECT * FROM /pws/zycbt013
INTO TABLE itab_zycbt013
WHERE tabela = c_zycbt128.
CLEAR wa_zycbt011.
* >> Início da exclusão: FORM CONTABILIZA_IR_COMISSAO
SELECT SINGLE *
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_IR_COMISSAO
SELECT *
* << Fim da inclusão
FROM /pws/zycbt011
* >> Início da inclusão: FORM CONTABILIZA_IR_COMISSAO
up to 1 rows
* << Fim da inclusão
INTO wa_zycbt011
WHERE codeven = v_codeven AND
codmod = c_mod_financ.
* >> Início da inclusão: FORM CONTABILIZA_IR_COMISSAO
endselect.
* << Fim da inclusão
CLEAR itab_zyglt316.
REFRESH itab_zyglt316.
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = /pws/zycbe128-bukrs
ktosl = c_chave_despesa_financ
codaux1 = c_cod_desp_comissao_ir
codaux2 = /pws/zycbe128-tpemprest
TABLES
account = itab_zyglt316
...
...
IMPORTING
e_txc = itab_zycbe033-kursf
EXCEPTIONS
i_demoeda_nao_encontrado = 1
i_paramoeda_nao_encontrado = 2
i_ctmoeda_nao_encontrado = 3
i_dtbase_nao_encontrada = 4
taxa_nao_encontrada = 5
fator_nao_encontrado = 6
OTHERS = 7.
* >> Início da inclusão: FORM CONTABILIZA_IR_COMISSAO
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDIF.
PERFORM verify_null_field USING wa_zycbt011-blart
c_blart
text-014.
itab_zycbe033-blart = wa_zycbt011-blart.
PERFORM verify_null_field USING itab_zycbt129c-vlir
c_vlme
text-028.
itab_zycbe033-wrbtr = itab_zycbt129c-vlir.
itab_zycbe033-d_gsber = /pws/zycbe128-gsber.
...
...
IF sy-subrc = 0.
LOOP AT itab_zycbt129c.
v_tabix = v_tabix + 1.
CONCATENATE itab_zycbt129c-nrseq
itab_zycbt129c-tpparc
itab_zycbt129c-nrparc
INTO v_cpochv.
READ TABLE itab_zycbt032 WITH KEY tcode = c_f02
tabela = c_zycbt129
cpochv = v_cpochv
* >> Início da exclusão: FORM CONTABILIZA_IR_COMISSAO
tpmsg = 'S'.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_IR_COMISSAO
tpmsg = 'S'. "#EC *
* << Fim da inclusão
IF sy-subrc = 0.
MESSAGE i015 WITH text-132 itab_zycbt032-msg.
itab_zycbt129c-belnr_ci = itab_zycbt032-belnr.
itab_zycbt129c-budat_ci = itab_zycbe033-budat.
MOVE itab_zycbt129c TO /pws/zycbt129.
MODIFY /pws/zycbt129.
COMMIT WORK.
MODIFY itab_zycbt129c INDEX v_tabix.
MOVE itab_zycbt129c[] TO itab_zycbt129_ant[].
ELSE.
...
...
IF sy-subrc = 0.
LOOP AT itab_zycbt129_ant.
CHECK NOT itab_zycbt129_ant-belnr_ci IS INITIAL.
CONCATENATE itab_zycbt129_ant-nrseq
itab_zycbt129_ant-tpparc
itab_zycbt129_ant-nrparc
INTO v_cpochv.
READ TABLE itab_zycbt032 WITH KEY tcode = c_fb08
tabela = c_zycbt129
cpochv = v_cpochv
* >> Início da exclusão: FORM ESTORNA_IR_COMISSAO
tpmsg = 'S'.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_IR_COMISSAO
tpmsg = 'S'."#EC *
* << Fim da inclusão
IF sy-subrc EQ 0.
MESSAGE i030 WITH itab_zycbt129_ant-belnr_ci.
READ TABLE itab_zycbt129c WITH KEY
nrseq = itab_zycbt129_ant-nrseq
nrparc = itab_zycbt129_ant-nrparc.
CLEAR itab_zycbt129c-belnr_ci.
CLEAR itab_zycbt129c-budat_ci.
MODIFY itab_zycbt129c TRANSPORTING belnr_ci budat_ci
WHERE nrseq = itab_zycbt129_ant-nrseq
AND nrparc = itab_zycbt129_ant-nrparc.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA111I01
...
EXPORTING
i_codmod = 'F'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* >> Início da inclusão: MODULE USER_COMMAND_0100
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'EMP001' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa)
USING ok_code
CHANGING e_subrc.
IF e_subrc NE 0.
EXIT.
...
...
EXPORTING
date = /pws/zycbe128-dtincl
version = t001-periv
IMPORTING
year = v_exercicio
EXCEPTIONS
period_in_not_valid = 1
period_not_assigned = 2
version_undefined = 3
OTHERS = 4.
* >> Início da inclusão: MODULE USER_COMMAND_0100
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
i_gjahr = v_exercicio.
i_belnr = v_valor.
i_bukrs = /pws/zycbe128-bukrs.
SET PARAMETER ID 'BUK' FIELD i_bukrs.
SET PARAMETER ID 'BLN' FIELD i_belnr.
SET PARAMETER ID 'GJR' FIELD i_gjahr.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'FB03'.
IF sy-subrc EQ 0.
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
...
...
ENDLOOP.
ENDIF.
IF ts_finan-activetab = 'FC_COM'.
LOOP AT itab_zycbt129c.
itab_zycbt129c-mark = ' '.
MODIFY itab_zycbt129c.
ENDLOOP.
ENDIF.
WHEN 'RES'.
WHEN 'HIST'.
* >> Início da exclusão: MODULE USER_COMMAND_0100
PERFORM exibe_historico.
* << Fim da exclusão
WHEN 'MODE'.
CALL SCREEN 0201 STARTING AT 14 05 ENDING AT 55 08.
WHEN 'INFO'.
CALL FUNCTION 'POPUP_DISPLAY_TEXT'
EXPORTING
language = sy-langu
popup_title = text-090
start_column = 10
start_row = 3
text_object = '/PWS/SAPMZYCA111_TXT'
...
...
IF v_campo EQ '/PWS/ZYCBE129-BELNR_P' OR
v_campo EQ '/PWS/ZYCBE129-BELNR'.
IF NOT v_valor IS INITIAL.
SELECT periv
UP TO 1 ROWS
FROM t001
INTO t001-periv
WHERE bukrs = /pws/zycbe128-bukrs.
ENDSELECT.
IF v_campo EQ '/PWS/ZYCBE129-BELNR_P'.
* >> Início da exclusão: MODULE USER_COMMAND_0102
READ TABLE itab_zycbt129p WITH KEY belnr_p = v_valor.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0102
READ TABLE itab_zycbt129p WITH KEY belnr_p = v_valor."#EC *
* << Fim da inclusão
CLEAR /pws/zycbt064.
SELECT nrboleto
UP TO 1 ROWS
FROM /pws/zycbt064
INTO /pws/zycbt064-nrboleto
WHERE nrchave EQ /pws/zycbe128-nrseq AND
tpparc EQ 'P' AND
nrparc EQ itab_zycbt129p-nrparc.
ENDSELECT.
IF sy-subrc EQ 0.
...
...
EXPORTING
date = /pws/zycbt031-dtcredpr
version = t001-periv
IMPORTING
year = v_exercicio
EXCEPTIONS
period_in_not_valid = 1
period_not_assigned = 2
version_undefined = 3
OTHERS = 4.
* >> Início da inclusão: MODULE USER_COMMAND_0102
if sy-subrc = 0.
* << Fim da inclusão
ELSE.
* >> Início da inclusão: MODULE USER_COMMAND_0102
endif.
ELSE.
* << Fim da inclusão
SELECT dtcont
UP TO 1 ROWS
FROM /pws/zycbt154
INTO v_dtlanc
WHERE codmod = 'F' AND
...
...
EXPORTING
date = v_dtlanc
version = t001-periv
IMPORTING
year = v_exercicio
EXCEPTIONS
period_in_not_valid = 1
period_not_assigned = 2
version_undefined = 3
OTHERS = 4.
* >> Início da inclusão: MODULE USER_COMMAND_0102
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDIF.
i_gjahr = v_exercicio.
i_belnr = v_valor.
i_bukrs = /pws/zycbe128-bukrs.
SET PARAMETER ID 'BUK' FIELD i_bukrs.
SET PARAMETER ID 'BLN' FIELD i_belnr.
SET PARAMETER ID 'GJR' FIELD i_gjahr.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'FB03'.
IF sy-subrc EQ 0.
...
...
WHEN 'CS'.
GET CURSOR FIELD v_campo VALUE v_valor.
IF NOT v_valor IS INITIAL.
IF v_campo EQ '/PWS/ZYCBE129-BELNR_P'.
SELECT periv
UP TO 1 ROWS
FROM t001
INTO t001-periv
WHERE bukrs = /pws/zycbe128-bukrs.
ENDSELECT.
* >> Início da exclusão: MODULE USER_COMMAND_0103
READ TABLE itab_zycbt129j WITH KEY belnr_p = v_valor.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0103
READ TABLE itab_zycbt129j WITH KEY belnr_p = v_valor. "#EC *
* << Fim da inclusão
CLEAR /pws/zycbt064.
SELECT nrboleto
UP TO 1 ROWS
FROM /pws/zycbt064
INTO /pws/zycbt064-nrboleto
WHERE nrchave EQ /pws/zycbe128-nrseq AND
tpparc EQ 'J' AND
nrparc EQ itab_zycbt129j-nrparc.
ENDSELECT.
IF sy-subrc EQ 0.
...
...
EXPORTING
date = /pws/zycbt031-dtcredpr
version = t001-periv
IMPORTING
year = v_exercicio
EXCEPTIONS
period_in_not_valid = 1
period_not_assigned = 2
version_undefined = 3
OTHERS = 4.
* >> Início da inclusão: MODULE USER_COMMAND_0103
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ELSE.
SELECT periv
UP TO 1 ROWS
FROM t001 INTO t001-periv
WHERE bukrs = /pws/zycbe128-bukrs.
ENDSELECT.
CALL FUNCTION 'DETERMINE_PERIOD'
EXPORTING
date = wa_zycbt128-dtdesem
version = t001-periv
IMPORTING
year = v_exercicio
EXCEPTIONS
period_in_not_valid = 1
period_not_assigned = 2
version_undefined = 3
OTHERS = 4.
* >> Início da inclusão: MODULE USER_COMMAND_0103
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDIF.
i_gjahr = v_exercicio.
i_belnr = v_valor.
i_bukrs = /pws/zycbe128-bukrs.
SET PARAMETER ID 'BUK' FIELD i_bukrs.
SET PARAMETER ID 'BLN' FIELD i_belnr.
SET PARAMETER ID 'GJR' FIELD i_gjahr.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'FB03'.
IF sy-subrc EQ 0.
...
...
EXPORTING
date = /pws/zycbe128-dtincl
version = t001-periv
IMPORTING
year = v_exercicio
EXCEPTIONS
period_in_not_valid = 1
period_not_assigned = 2
version_undefined = 3
OTHERS = 4.
* >> Início da inclusão: MODULE USER_COMMAND_0104
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
i_gjahr = v_exercicio.
i_belnr = v_valor.
i_bukrs = /pws/zycbe128-bukrs.
SET PARAMETER ID 'BUK' FIELD i_bukrs.
SET PARAMETER ID 'BLN' FIELD i_belnr.
SET PARAMETER ID 'GJR' FIELD i_gjahr.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'FB03'.
IF sy-subrc EQ 0.
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
...
...
IF v_campo EQ '/PWS/ZYCBE129-BELNR_P' OR
v_campo EQ '/PWS/ZYCBE129-BELNR_L'.
IF NOT v_valor IS INITIAL.
SELECT periv
UP TO 1 ROWS
FROM t001
INTO t001-periv
WHERE bukrs = /pws/zycbe128-bukrs.
ENDSELECT.
IF v_campo EQ '/PWS/ZYCBE129-BELNR_P'.
* >> Início da exclusão: MODULE USER_COMMAND_0104
READ TABLE itab_zycbt129c WITH KEY belnr_p = v_valor.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0104
READ TABLE itab_zycbt129c WITH KEY belnr_p = v_valor. "#EC *
* << Fim da inclusão
ELSEIF v_campo EQ '/PWS/ZYCBE129-BELNR_L'.
* >> Início da exclusão: MODULE USER_COMMAND_0104
READ TABLE itab_zycbt129c WITH KEY belnr_l = v_valor.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0104
READ TABLE itab_zycbt129c WITH KEY belnr_l = v_valor. "#EC *
* << Fim da inclusão
ENDIF.
CLEAR /pws/zycbt064.
SELECT nrboleto
...
...
EXPORTING
date = /pws/zycbt031-dtcredpr
version = t001-periv
IMPORTING
year = v_exercicio
EXCEPTIONS
period_in_not_valid = 1
period_not_assigned = 2
version_undefined = 3
OTHERS = 4.
* >> Início da inclusão: MODULE USER_COMMAND_0104
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
i_gjahr = v_exercicio.
i_belnr = v_valor.
i_bukrs = /pws/zycbe128-bukrs.
SET PARAMETER ID 'BUK' FIELD i_bukrs.
SET PARAMETER ID 'BLN' FIELD i_belnr.
SET PARAMETER ID 'GJR' FIELD i_gjahr.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'FB03'.
IF sy-subrc EQ 0.
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA111O01
...
WHEN '0104'.
/pws/zycbe129 = itab_zycbt129c.
mark = itab_zycbt129c-mark.
SELECT * FROM /pws/zycbt031 INTO TABLE itab_zycbt031
WHERE nrcorresp = /pws/zycbe129-nrseq
AND tpparc = /pws/zycbe129-tpparc
AND mdcorresp = 'CE'.
clear: /pws/zycbt031,
/pws/zycbt064,
/pws/zycbt134.
* >> Início da inclusão: MODULE INSERT_LINE
SELECT *
* << Fim da inclusão
* >> Início da exclusão: MODULE INSERT_LINE
SELECT SINGLE *
* << Fim da exclusão
FROM /pws/zycbt064
* >> Início da inclusão: MODULE INSERT_LINE
up to 1 rows
* << Fim da inclusão
where NRCHAVE = /pws/zycbe129-nrseq
and TPPARC = /pws/zycbe129-tpparc
and nrparc = /pws/zycbe129-nrparc
and mdcorresp = c_cod_emprestimo.
* >> Início da inclusão: MODULE INSERT_LINE
endselect.
* << Fim da inclusão
* >> Início da exclusão: MODULE INSERT_LINE
SELECT SINGLE *
* << Fim da exclusão
* >> Início da inclusão: MODULE INSERT_LINE
SELECT *
* << Fim da inclusão
FROM /pws/zycbt134
* >> Início da inclusão: MODULE INSERT_LINE
up to 1 rows
* << Fim da inclusão
where NRSEQ = /pws/zycbt064-nrboleto
and TPPROC = 'IRRF'.
* >> Início da inclusão: MODULE INSERT_LINE
endselect.
* << Fim da inclusão
* >> Início da exclusão: MODULE INSERT_LINE
SELECT SINGLE *
* << Fim da exclusão
* >> Início da inclusão: MODULE INSERT_LINE
SELECT *
* << Fim da inclusão
FROM /pws/zycbt031
* >> Início da inclusão: MODULE INSERT_LINE
up to 1 rows
* << Fim da inclusão
where NRSEQ = /pws/zycbt064-nrboleto.
* >> Início da inclusão: MODULE INSERT_LINE
endselect.
* << Fim da inclusão
IF NOT /PWS/ZYCBE129-VLIR is initial.
itab_zycbt129c-belnr_pir = /pws/zycbt031-belnr_pi.
...
...
ENDIF.
ELSEIF /pws/zycbe128-tpcomis EQ 'P'.
IF NOT itab_zycbt129c[] IS INITIAL.
CLEAR /pws/zycbe128-vlcomis.
ENDIF.
LOOP AT itab_zycbt129c.
/pws/zycbe128-vlcomis = /pws/zycbe128-vlcomis +
itab_zycbt129c-vlme.
ENDLOOP.
ELSEIF /pws/zycbe128-tpcomis EQ 'V'.
* >> Início da exclusão: MODULE COMISSAO
/pws/zycbe128-vlcomis = /pws/zycbe128-vlcomis.
* << Fim da exclusão
* >> Início da inclusão: MODULE COMISSAO
/pws/zycbe128-vlcomis = /pws/zycbe128-vlcomis."#EC *
* << Fim da inclusão
/pws/zycbe128-percomis = 0.
LOOP AT SCREEN.
IF screen-name = '/PWS/ZYCBE128-PERCOMIS'.
screen-input = '0'.
ELSEIF sy-tcode NE '/PWS/ZYCB111_E'.
screen-input = '1'.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
...
...
ENDSELECT.
IF sy-subrc EQ 0.
v_vlcomis = ( v_vlcomis * /pws/zycbe128-percomis / 100 )
/ /pws/zycbt010-nrdias * nrdias.
/pws/zycbe128-vlcomis = v_vlcomis.
ENDIF.
ELSEIF /pws/zycbe128-tpcomis EQ 'F'.
/pws/zycbe128-vlcomis = ( /pws/zycbe128-vlme * (
/pws/zycbe128-percomis / 100 ) ).
ELSEIF /pws/zycbe128-tpcomis EQ 'V'.
* >> Início da exclusão: MODULE COMISSAO
/pws/zycbe128-vlcomis = /pws/zycbe128-vlcomis.
* << Fim da exclusão
* >> Início da inclusão: MODULE COMISSAO
/pws/zycbe128-vlcomis = /pws/zycbe128-vlcomis."#EC *
* << Fim da inclusão
/pws/zycbe128-percomis = 0.
LOOP AT SCREEN.
IF screen-name = '/PWS/ZYCBE128-PERCOMIS'.
screen-input = '0'.
ELSEIF sy-tcode NE '/PWS/ZYCB111_E'.
screen-input = '1'.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
ELSEIF /pws/zycbe128-fpagto_c EQ 'L'.
* >> Início da exclusão: MODULE COMISSAO
/pws/zycbe128-vlcomis = /pws/zycbe128-vlcomis.
* << Fim da exclusão
* >> Início da inclusão: MODULE COMISSAO
/pws/zycbe128-vlcomis = /pws/zycbe128-vlcomis."#EC *
* << Fim da inclusão
ENDIF.
ENDMODULE.
MODULE set-screen OUTPUT.
DATA v_nrseqa LIKE /pws/zycbt113-nrseq. "#EC NEEDED
IF v_status_s = '0'.
LOOP AT SCREEN.
screen-input = '0'.
MODIFY SCREEN.
ENDLOOP.
ELSE.
...
...
WHERE spras EQ sy-langu AND
waers EQ /pws/zycbe128-waers.
ENDSELECT.
moeda = tcurt-ltext.
ENDIF.
IF NOT /pws/zycbe128-lifnr IS INITIAL.
SELECT *
UP TO 1 ROWS
FROM lfa1
WHERE lifnr EQ /pws/zycbe128-lifnr.
* >> Início da exclusão: MODULE SET-SCREEN
ENDSELECT.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET-SCREEN
ENDSELECT. "#EC CI_SGLSELECT
* << Fim da inclusão
fornecedor = lfa1-name1.
ENDIF.
clear nrdias.
IF /pws/zycbe128-dtvencto ne ' ' and
/pws/zycbe128-dtdesem ne ' '.
nrdias = ( /pws/zycbe128-dtvencto - /pws/zycbe128-dtdesem ).
ENDIF.
CLEAR /pws/zyglt214.
SELECT *
UP TO 1 ROWS
...
...
v_cod_grupo = 'CCO'.
ELSEIF sy-dynnr EQ '0105' OR
sy-dynnr EQ '0107'.
v_cod_grupo = 'CCR'.
ENDIF.
SELECT campo flag
FROM /pws/zyglt320
INTO TABLE itab_t320
WHERE programa = sy-repid AND
tela = sy-dynnr AND
* >> Início da exclusão: MODULE TRATA_CAMPOS
cod_grupo = v_cod_grupo.
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_CAMPOS
cod_grupo = v_cod_grupo. "#EC CI_NOFIRST
* << Fim da inclusão
SORT itab_t320 BY campo.
LOOP AT SCREEN.
itab_nome_campo-nome_campo_tela = screen-name.
APPEND itab_nome_campo.
ENDLOOP.
SORT itab_nome_campo.
LOOP AT itab_t320.
CONCATENATE '.' itab_t320-campo '.' INTO v_comp.
SEARCH itab_nome_campo FOR v_comp STARTING AT 1.
IF sy-subrc EQ 0.
READ TABLE itab_nome_campo INDEX sy-tabix.
* >> Início da exclusão: MODULE TRATA_CAMPOS
IF sy-subrc EQ 0 AND itab_nome_campo-modif = ' '. .
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_CAMPOS
IF sy-subrc EQ 0 AND itab_nome_campo-modif = ' '.
* << Fim da inclusão
itab_t320-campo = itab_nome_campo-nome_campo_tela.
MODIFY itab_t320.
DELETE itab_nome_campo INDEX sy-tabix.
ENDIF.
ENDIF.
CLEAR: itab_t320, itab_nome_campo.
ENDLOOP.
LOOP AT SCREEN.
v_nome_campo = screen-name.
CASE screen-name.
...
...
CLEAR: itab_t320[], itab_nome_campo[], v_nome_campo, v_comp.
IF sy-dynnr EQ '0103' OR
sy-dynnr EQ '0104'.
v_cod_grupo = 'CCO'.
ENDIF.
SELECT campo flag
FROM /pws/zyglt320
INTO TABLE itab_t320
WHERE programa = sy-repid AND
tela = sy-dynnr AND
* >> Início da exclusão: MODULE TRATA_TBCONTROL
cod_grupo = v_cod_grupo.
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_TBCONTROL
cod_grupo = v_cod_grupo. "#EC CI_NOFIRST
* << Fim da inclusão
SORT itab_t320 BY campo.
LOOP AT SCREEN.
itab_nome_campo-nome_campo_tela = screen-name.
APPEND itab_nome_campo.
ENDLOOP.
SORT itab_nome_campo.
LOOP AT itab_t320.
CONCATENATE '.' itab_t320-campo '.' INTO v_comp.
SEARCH itab_nome_campo FOR v_comp STARTING AT 1.
IF sy-subrc EQ 0.
READ TABLE itab_nome_campo INDEX sy-tabix.
* >> Início da exclusão: MODULE TRATA_TBCONTROL
IF sy-subrc EQ 0 AND itab_nome_campo-modif = ' '. .
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_TBCONTROL
IF sy-subrc EQ 0 AND itab_nome_campo-modif = ' '.
* << Fim da inclusão
itab_t320-campo = itab_nome_campo-nome_campo_tela.
MODIFY itab_t320.
DELETE itab_nome_campo INDEX sy-tabix.
ENDIF.
ENDIF.
CLEAR: itab_t320, itab_nome_campo.
ENDLOOP.
IF sy-dynnr EQ '0103'.
LOOP AT tc_jur-cols INTO wa_cols.
v_nome_campo = wa_cols-screen-name.
...
...
MODULE load_html_help OUTPUT.
IF my_container IS INITIAL.
CREATE OBJECT my_container
EXPORTING
container_name = 'CC_HTML_HELP'
EXCEPTIONS
others = 1.
CASE sy-subrc.
WHEN 0.
WHEN OTHERS.
* >> Início da exclusão: MODULE LOAD_HTML_HELP
RAISE cntl_error.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_HTML_HELP
RAISE cntl_error."#EC *
* << Fim da inclusão
ENDCASE.
ENDIF.
IF html_control IS INITIAL.
CREATE OBJECT html_control
EXPORTING
parent = my_container.
IF sy-subrc NE 0.
* >> Início da exclusão: MODULE LOAD_HTML_HELP
RAISE cntl_error.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_HTML_HELP
RAISE cntl_error."#EC *
* << Fim da inclusão
ENDIF.
alignment = html_control->align_at_left +
html_control->align_at_right +
html_control->align_at_top +
html_control->align_at_bottom.
CALL METHOD html_control->set_alignment
EXPORTING
alignment = alignment.
myevent-eventid = html_control->m_id_sapevent.
myevent-appl_event = 'X'.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA111TOP
...
TYPE /pws/zyglt316-ktosl VALUE 'DSF',
c_chave_provisao_financ
TYPE /pws/zyglt316-ktosl VALUE 'PVF',
c_cod_desp_comissao_ir
TYPE /pws/zygle316-codaux1 VALUE 'CO IR',
c_cod_prov_comissao_ir_curto
TYPE /pws/zygle316-codaux1 VALUE 'COMIS C IR',
c_f02(4) TYPE c VALUE 'F-02',
c_fb08(4) TYPE c VALUE 'FB08',
c_mod_financ(1) TYPE c VALUE 'F',
* >> Início da exclusão:
c_contabilizado(1) TYPE c VALUE 'C',
* << Fim da exclusão
c_cod_emprestimo(2) TYPE c VALUE 'CE',
c_newko TYPE /pws/zycbt034-campo VALUE 'NEWKO',
c_dtdesem TYPE /pws/zycbt034-campo VALUE 'DTDESEM',
c_bukrs TYPE /pws/zycbt034-campo VALUE 'BUKRS',
c_blart TYPE /pws/zycbt034-campo VALUE 'BLART',
c_vlme TYPE /pws/zycbt034-campo VALUE 'VLME',
c_waers TYPE /pws/zycbt034-campo VALUE 'WAERS'
.
CONTROLS:
ts_finan TYPE TABSTRIP,
...
...
DATA:
wa_zycbt007 LIKE /pws/zycbt007,
wa_zycbt011 LIKE /pws/zycbt011,
wa_zycbe128_aux LIKE /pws/zycbe128,
wa_zycbe129_aux LIKE /pws/zycbe129,
wa_zycbt031a LIKE /pws/zycbe031,
wa_zycbt064 LIKE /pws/zycbt064,
wa_zyglt009 LIKE /pws/zyglt009.
DATA:
v_erro VALUE ' ',
* >> Início da exclusão:
v_ok VALUE 'S',
* << Fim da exclusão
v_apagar VALUE 'S',
v_lock VALUE 0,
wa_cols TYPE cxtab_column,
v_cols TYPE cxtab_column,
v_parcela(3) TYPE n,
v_tamanho(2) TYPE n,
v_nrseqc2(10) TYPE n,
v_nrseq_aux(10) TYPE n,
v_exercicio(4) TYPE n,
v_countlinej(3) TYPE n VALUE '001',
v_text(100) TYPE c VALUE space,
v_boleto_p TYPE c,
* >> Início da exclusão:
v_ind_vlcomis TYPE c,
v_ind_percomis TYPE c,
* << Fim da exclusão
v_ind_nrparc TYPE c,
v_ind_texto TYPE c,
v_nrseqcview(10) TYPE c,
nrdias(5) TYPE c,
v_origem TYPE c,
v_anulacomp TYPE c,
v_ind_valor TYPE c,
v_conc_nrparc(30) TYPE c,
txtcodfrmentr(25) TYPE c,
mark TYPE c,
...
...
transacao(25) TYPE c,
v_bco(10) TYPE c,
v_nome_campo(35) TYPE c,
v_comp(35) TYPE c,
v_ind_juros(1) TYPE c,
v_parc TYPE i VALUE space,
cont TYPE i VALUE 0,
v_nrlines TYPE i,
v_nrdias TYPE i,
v_periodo TYPE i,
* >> Início da exclusão:
v_nrdias_util TYPE i,
* << Fim da exclusão
v_controle TYPE i,
v_diasp TYPE i,
v_diasj TYPE i,
v_diasc TYPE i,
v_dias TYPE i,
v_altera TYPE i,
v_dele TYPE i,
v_li TYPE i,
v_dia TYPE i,
v_di TYPE i,
...
...
v_message TYPE i, "#EC NEEDED
ok_code LIKE sy-ucomm,
v_tela LIKE sy-ucomm,
v_index LIKE sy-tabix,
v_syrepid LIKE sy-repid,
v_tela_help LIKE sy-dynnr VALUE '0052', "#EC NEEDED
bcodescr LIKE lfa1-name1,
bcodescr1 LIKE lfa1-name1,
bcodescr2 LIKE lfa1-name1,
moeda LIKE tcurt-ltext,
* >> Início da exclusão:
fornecedor LIKE lfa1-name1,
* << Fim da exclusão
* >> Início da inclusão:
fornecedor LIKE lfa1-name1,"#EC NEEDED
* << Fim da inclusão
v_ftaxa LIKE tcurr-kurst,
i_belnr LIKE bkpf-belnr,
i_bukrs LIKE bkpf-bukrs,
i_gjahr LIKE bkpf-gjahr,
v_zuonr LIKE bseg-zuonr,
v_monat LIKE t001b-frpe1,
v_ano LIKE t009b-bdatj,
v_obrig LIKE /pws/zyglt009-infotext,
v_codeven LIKE /pws/zycbt011-codeven,
v_cpochv LIKE /pws/zycbe033-cpochv,
...
...
v_boleto LIKE /pws/zycbt031-nrseq, "#EC NEEDED
v_newkof LIKE /pws/zycbt012-saknr1,
v_vlres LIKE /pws/zycbt113-vlme,
v_nrseqb LIKE /pws/zycbt113-nrseq, "#EC NEEDED
v_vencto LIKE /pws/zycbe128-dtvencto, "#EC NEEDED
v_vlaux LIKE /pws/zycbt128-vlcomis,
v_vlaux1 LIKE /pws/zycbt128-vlcomis, "#EC NEEDED
v_vlcomis LIKE /pws/zycbt128-vlcomis,
v_nrseq_ant LIKE /pws/zycbt128-nrseq,
v_taxacambial LIKE /pws/zycbt128-kursf,
* >> Início da exclusão:
v_parcom LIKE /pws/zycbt128-nrparc,
* << Fim da exclusão
v_nrseqc LIKE /pws/zycbt128-nrseq,
v_nrseq LIKE /pws/zycbt128-nrseq,
v_vlme LIKE /pws/zycbt128-vlme,
* >> Início da exclusão:
v_waers LIKE /pws/zycbt128-waers, "#EC needed
* << Fim da exclusão
v_nrseq1 LIKE /pws/zycbt128-nrseq,
v_tcomissao LIKE /pws/zycbt129-vlme, "#EC NEEDED
v_dtfinal LIKE /pws/zycbt129-dtfinal,
* >> Início da exclusão:
v_aliq LIKE /pws/zycbt129-aliqir,
* << Fim da exclusão
v_soma_vlme LIKE /pws/zycbt129-vlme,
v_valor2 LIKE /pws/zycbt129-vlme,
norma LIKE /pws/zyglt214-norma,
v_descricao_natoper LIKE /pws/zyglt206-descricao,
v_chave LIKE /pws/zyglt316-codaux1,
v_cod_grupo LIKE /pws/zyglt320-cod_grupo,
v_erro_bi,
v_erro_exclusao,
v_status_s,
v_answer,
* >> Início da exclusão:
v_answer2,
* << Fim da exclusão
v_media,
v_compra,
v_venda,
v_campo(21),
v_valor(20),
v_delete,
v_mdparc,
* >> Início da exclusão:
v_modparc,
* << Fim da exclusão
* >> Início da inclusão:
v_modparc, "#EC NEEDED
* << Fim da inclusão
v_prazo,
v_prazo1,
v_display,
e_subrc TYPE sy-subrc.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA111X01
TABLES:
/pws/zycbt128,
/pws/zycbe128,
/pws/zycbt129,
/pws/zycbe129,
* >> Início da exclusão:
/pws/zycbt048,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt048,"#EC *
* << Fim da inclusão
/pws/zycbe048,
/pws/zyglt209,
/pws/zygle209.
* >> Início da exclusão:
DATA: BEGIN OF COMMON PART c.
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF COMMON PART c."#EC PART_OK
* << Fim da inclusão
DATA: BEGIN OF itab_zycbt129p OCCURS 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCA111
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 131
Texto: (10 caracteres)
"Valor IRRF"
Comprimento máximo: 10