CE PLUS - Nota 005839
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Relatórios
Data/Hora da Publicação: 07/02/2008 00:00:00
Data/Hora Última Alteração: 03/03/2010 17:30:36
Descrição da Nota: VERIFICAÇÃO AMPLIADA E CODE INSPECTOR EM PROGRAMAS DE CAMBIO
Sintoma
performance e sintaxe
Solução
verificação ampliada e code inspector
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05839 Data: 07/02/2008 Hora: 09:49:59
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05839
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00004
Agrupamento : 00033
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
VERIFICAÇÃO AMPLIADA E CODE INSPECTOR EM PROGRAMAS DE CAMBIO
----------------------------------------------------------------------------------------------------
Palavras Chave:
VERIFICAÇÃO AMPLIADA E CODE INSPECTOR EM PROGRAMAS DE CAMBIO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB104F01
REPS /PWS/MZYCB104I01
REPS /PWS/MZYCB104O01
REPS /PWS/MZYCB104TOP
REPS /PWS/MZYCB104X01
REPS /PWS/MZYCB106F01
REPS /PWS/MZYCB106I01
REPS /PWS/MZYCB106O01
REPS /PWS/MZYCB106TOP
REPS /PWS/MZYCB106X01
REPS /PWS/ZYCBI102
REPT /PWS/SAPMZYCB104
REPT /PWS/SAPMZYCB106
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB104F01
...
SELECT * FROM /pws/zyglt209 INTO TABLE itab_zyglt209
WHERE nrseq = /pws/zycbe117-nrseq
AND mdcorresp = 'IA'
AND codmod = 'I'.
PERFORM seleciona_dados_comissao.
v_code = sy-tcode.
SELECT SINGLE * FROM /pws/zycbt117 INTO /pws/zycbe117
WHERE nrseq EQ /pws/zycbe117-nrseq AND
status NE 'E'.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM SELECIONAR_DADOS
SELECT SINGLE nrboleto dtboleto
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_DADOS
SELECT nrboleto dtboleto
* << Fim da inclusão
FROM /pws/zycbt064
* >> Início da inclusão: FORM SELECIONAR_DADOS
UP TO 1 ROWS
* << Fim da inclusão
INTO (v_nrboleto, v_dtboleto)
WHERE
nrchave = /pws/zycbe117-nrseq AND
mdcorresp = 'IA'.
* >> Início da inclusão: FORM SELECIONAR_DADOS
endselect.
* << Fim da inclusão
IF sy-subrc = 0.
SELECT SINGLE belnr_c dtlanc
INTO (/pws/zycbe117-belnr_p, /pws/zycbe117-dtpagto)
FROM /pws/zycbt134
WHERE
nrseq = v_nrboleto AND
* >> Início da exclusão: FORM SELECIONAR_DADOS
dtboleto = v_dtboleto.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_DADOS
dtboleto = v_dtboleto."#EC *
* << Fim da inclusão
ENDIF.
CLEAR: itab_zycbt115.
REFRESH: itab_zycbt115.
SELECT * FROM /pws/zycbt115
INTO TABLE itab_zycbt115
WHERE nrcorrep = /pws/zycbe117-nrfinanc.
IF v_code = '/PWS/ZYCB104_A'.
IF v_nrboleto IS INITIAL.
* >> Início da exclusão: FORM SELECIONAR_DADOS
SELECT SINGLE * FROM /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_DADOS
SELECT *
FROM /pws/zycbt031
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrcorresp = /pws/zycbe117-nrseq
AND mdcorresp = 'IA'.
* >> Início da inclusão: FORM SELECIONAR_DADOS
endselect.
* << Fim da inclusão
ENDIF.
IF sy-subrc EQ 0
OR NOT v_nrboleto IS INITIAL.
MESSAGE i015 WITH text-032 text-033.
v_code = '/PWS/ZYCB104_E'.
...
...
EXPORTING
i_codmod = 'I'
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 SALVAR_DADOS
if sy-subrc = 0.
else.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM SALVAR_DADOS
ENDIF.
* << Fim da inclusão
READ TABLE itab_zyglt100 WITH KEY zexit = 'ANT002' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
...
...
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
textline1 = text-011
titel = text-010
IMPORTING
answer = v_answer
EXCEPTIONS
OTHERS = 1.
CHECK sy-subrc EQ 0.
IF v_answer EQ 'J'.
* >> Início da inclusão: FORM EXCLUIR_DADOS
SELECT *
* << Fim da inclusão
* >> Início da exclusão: FORM EXCLUIR_DADOS
SELECT SINGLE * FROM /pws/zycbt064
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUIR_DADOS
FROM /pws/zycbt064
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrchave = /pws/zycbe117-nrseq
AND mdcorresp = 'IA'.
* >> Início da inclusão: FORM EXCLUIR_DADOS
endselect.
* << Fim da inclusão
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM EXCLUIR_DADOS
SELECT SINGLE * FROM /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUIR_DADOS
SELECT * FROM /pws/zycbt031
* << Fim da inclusão
WHERE nrseq EQ /pws/zycbt064-nrboleto
AND mdcorresp EQ 'IA'.
* >> Início da inclusão: FORM EXCLUIR_DADOS
endselect.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FORM EXCLUIR_DADOS
SELECT SINGLE * FROM /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUIR_DADOS
SELECT *
FROM /pws/zycbt031
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrcorresp = /pws/zycbe117-nrseq
AND mdcorresp = 'IA'.
* >> Início da inclusão: FORM EXCLUIR_DADOS
endselect.
* << Fim da inclusão
ENDIF.
IF /pws/zycbe117-dtpagto EQ '00000000'
AND ( /pws/zycbt031-nrseq IS INITIAL AND
/pws/zycbt064-nrchave IS INITIAL ).
ok_code = 'CHANGE'.
...
...
ELSE.
IF v_venda = 'X'.
/pws/zycbe117-ftaxa = 'B'.
ELSEIF v_media = 'X'.
/pws/zycbe117-ftaxa = 'M'.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM monta_sequencial.
* >> Início da exclusão: FORM MONTA_SEQUENCIAL
DATA: v_sequencial LIKE /pws/zycbt117-nrseq,
* << Fim da exclusão
* >> Início da inclusão: FORM MONTA_SEQUENCIAL
DATA:
* << Fim da inclusão
v_count(8) TYPE n,
v_ano(3).
CONCATENATE '%' sy-datum+2(2) INTO v_ano.
SELECT MAX( nrseq ) FROM /pws/zycbt117 INTO /pws/zycbe117-nrseq
WHERE nrseq LIKE v_ano.
v_count = /pws/zycbe117-nrseq+0(8) + 1.
CONCATENATE v_count sy-datum+2(2) INTO /pws/zycbe117-nrseq.
v_nrseq = /pws/zycbe117-nrseq.
ENDFORM.
FORM verifica_valor.
...
...
ENDFORM.
FORM visualiza_documento.
. GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCBE117-BELNR_P'.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = v_valor
IMPORTING
output = i_belnr
EXCEPTIONS
* >> Início da exclusão: FORM VISUALIZA_DOCUMENTO
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM VISUALIZA_DOCUMENTO
OTHERS = 0.
* << Fim da inclusão
SELECT SINGLE * FROM bkpf
WHERE bukrs = /pws/zycbe117-bukrs
AND belnr = i_belnr
AND gjahr = /pws/zycbe117-dtpagto(4).
IF sy-subrc EQ 0.
SET PARAMETER ID 'BUK' FIELD /pws/zycbe117-bukrs.
SET PARAMETER ID 'BLN' FIELD i_belnr.
SET PARAMETER ID 'GJR' FIELD /pws/zycbe117-dtpagto(4).
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'FB03'.
...
...
ENDIF.
ENDIF.
ENDIF.
IF v_campo EQ '/PWS/ZYCBE117-EBELN'.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = v_valor
IMPORTING
output = i_belnr
EXCEPTIONS
* >> Início da exclusão: FORM VISUALIZA_DOCUMENTO
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM VISUALIZA_DOCUMENTO
OTHERS = 0.
* << Fim da inclusão
SET PARAMETER ID 'BES' FIELD i_belnr.
IF NOT i_belnr IS INITIAL.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'ME23N'.
IF sy-subrc EQ 0.
CALL TRANSACTION 'ME23N'.
ELSE.
MESSAGE e261(sf) WITH 'ME23N'.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM exibe_boleto.
CLEAR: wa_zycbt064a,
wa_zycbt031a.
* >> Início da inclusão: FORM EXIBE_BOLETO
SELECT *
* << Fim da inclusão
* >> Início da exclusão: FORM EXIBE_BOLETO
SELECT SINGLE * FROM /pws/zycbt064
* << Fim da exclusão
* >> Início da inclusão: FORM EXIBE_BOLETO
FROM /pws/zycbt064
UP TO 1 ROWS
* << Fim da inclusão
INTO wa_zycbt064a
WHERE mdcorresp EQ 'IA'
AND nrchave EQ /pws/zycbe117-nrseq.
* >> Início da inclusão: FORM EXIBE_BOLETO
endselect.
* << Fim da inclusão
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM EXIBE_BOLETO
SELECT SINGLE * FROM /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: FORM EXIBE_BOLETO
SELECT *
FROM /pws/zycbt031
UP TO 1 ROWS
* << Fim da inclusão
INTO wa_zycbt031a
WHERE nrseq EQ wa_zycbt064a-nrboleto.
* >> Início da inclusão: FORM EXIBE_BOLETO
endselect.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FORM EXIBE_BOLETO
SELECT SINGLE * FROM /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: FORM EXIBE_BOLETO
SELECT *
FROM /pws/zycbt031
UP TO 1 ROWS
* << Fim da inclusão
INTO wa_zycbt031a
WHERE bukrs = /pws/zycbe117-bukrs
AND mdcorresp = 'IA'
AND nrcorresp = /pws/zycbe117-nrseq
AND tabela = '/PWS/ZYCBT117'.
* >> Início da inclusão: FORM EXIBE_BOLETO
ENDSELECT.
* << Fim da inclusão
ENDIF.
IF sy-subrc EQ 0.
...
...
icon_button_1 = 'ICON_OKAY'
text_button_2 = text-049
icon_button_2 = 'ICON_CANCEL'
default_button = '1'
display_cancel_button = ' '
IMPORTING
answer = v_resposta
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
* >> Início da inclusão: FORM EXIBE_BOLETO
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
IF v_resposta EQ '1'.
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD '/PWS/ZYCBR102'.
IF sy-subrc EQ 0.
PERFORM processa_boleto.
ELSE.
MESSAGE e261(sf) WITH '/PWS/ZYCBR102'.
ENDIF.
ELSE.
EXIT.
ENDIF.
ENDIF.
ENDFORM.
FORM mover_itab_zycmt003.
itab_zycmt003-lifnr = /pws/zycme003-lifnr.
itab_zycmt003-percomis = /pws/zycme003-percomis.
itab_zycmt003-bankl = /pws/zycme003-bankl.
itab_zycmt003-waers = /pws/zycbe117-waers.
itab_zycmt003-mark = mark.
IF NOT /pws/zycme003-lifnr IS INITIAL.
IF NOT /pws/zycme003-bankl IS INITIAL.
* >> Início da exclusão: FORM MOVER_ITAB_ZYCMT003
SELECT SINGLE bankn FROM lfbk
* << Fim da exclusão
* >> Início da inclusão: FORM MOVER_ITAB_ZYCMT003
SELECT bankn
FROM lfbk
UP TO 1 ROWS
* << Fim da inclusão
INTO /pws/zycme003-bankn
WHERE lifnr = /pws/zycme003-lifnr
AND bankl = /pws/zycme003-bankl.
* >> Início da inclusão: FORM MOVER_ITAB_ZYCMT003
endselect.
* << Fim da inclusão
ENDIF.
ENDIF.
itab_zycmt003-bankn = /pws/zycme003-bankn.
IF NOT /pws/zycme003-percomis IS INITIAL.
...
...
MODIFY /pws/zycmt003 FROM itab_zycmt003.
ENDIF.
ENDLOOP.
IF sy-tcode EQ '/PWS/ZYCB104_C'.
CLEAR /pws/zycme003-dtemb.
CLEAR itab_zycmt003.
REFRESH itab_zycmt003.
ENDIF.
ENDFORM.
FORM consiste_dados_banco_agencia.
* >> Início da exclusão: FORM CONSISTE_DADOS_BANCO_AGENCIA
SELECT SINGLE bankl FROM lfbk
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTE_DADOS_BANCO_AGENCIA
SELECT bankl UP TO 1 ROWS
FROM lfbk
* << Fim da inclusão
INTO lfbk-bankl
WHERE bankl = itab_zycmt003-bankl.
* >> Início da inclusão: FORM CONSISTE_DADOS_BANCO_AGENCIA
ENDSELECT. "#EC CI_NOFIRST
* << Fim da inclusão
ENDFORM.
FORM seleciona_dados_comissao.
SELECT * FROM /pws/zycmt003
INTO TABLE itab_zycmt003
WHERE nrseq EQ /pws/zycbe117-nrseq.
...
...
WHERE ebeln = /pws/zycbe117-ebeln.
ENDIF.
ENDFORM.
FORM calcula_valor_pedido.
IF NOT /pws/zycbe117-ebeln IS INITIAL.
REFRESH : itab_zycit030, itab_ekpo, itab_konv.
CLEAR : itab_zycit030, itab_ekpo, itab_konv, v_vlrpedido, ekko.
SELECT SINGLE * FROM ekko
INTO ekko
WHERE ebeln EQ /pws/zycbe117-ebeln.
* >> Início da exclusão: FORM CALCULA_VALOR_PEDIDO
SELECT SINGLE * FROM /pws/zycit031
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_VALOR_PEDIDO
SELECT * FROM /pws/zycit031
UP TO 1 ROWS
* << Fim da inclusão
WHERE inco1 EQ ekko-inco1.
* >> Início da inclusão: FORM CALCULA_VALOR_PEDIDO
ENDSELECT. "#EC CI_NOFIRST
* << Fim da inclusão
IF sy-subrc = 0.
SELECT * FROM /pws/zycit030
INTO TABLE itab_zycit030
WHERE codmod EQ 'D' AND
* >> Início da exclusão: FORM CALCULA_VALOR_PEDIDO
codigo EQ /pws/zycit031-inco1_ci.
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_VALOR_PEDIDO
codigo EQ /pws/zycit031-inco1_ci. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
SELECT * FROM ekpo
INTO TABLE itab_ekpo
WHERE ebeln EQ /pws/zycbe117-ebeln
AND loekz NE ' '.
IF NOT itab_zycit030[] IS INITIAL.
SELECT * FROM konv
INTO TABLE itab_konv
FOR ALL ENTRIES IN itab_zycit030
WHERE knumv EQ ekko-knumv AND
...
...
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.
v_newnrseq = fields-value.
IF v_newnrseq EQ /pws/zycbe117-nrseq.
MESSAGE i015 WITH text-045 .
PERFORM chama_documento.
ELSE.
SET PARAMETER ID '/PWS/ZYCBP349' FIELD v_newnrseq.
IF sy-tcode EQ '/PWS/ZYCB104_A'.
LEAVE TO TRANSACTION '/PWS/ZYCB104_A' AND SKIP FIRST SCREEN.
ELSEIF sy-tcode EQ '/PWS/ZYCB104_E'.
...
...
IF wa_zycbe117 NE /pws/zycbe117 OR
itab_zycmt003[] NE itab_zycmt003_aux[] OR
itab_zycmt020[] NE itab_zycmt020_cp[].
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
textline1 = text-046
titel = text-010
IMPORTING
answer = v_answer
EXCEPTIONS
* >> Início da exclusão: FORM VERIFICA_ATERACOES
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ATERACOES
OTHERS = 0.
* << Fim da inclusão
IF v_answer EQ 'J'.
PERFORM salvar_dados.
ENDIF.
ENDIF.
READ TABLE itab_zyglt209_aux INDEX 1.
READ TABLE itab_zyglt209 INDEX 1.
IF itab_zyglt209[] <> itab_zyglt209_aux[]
OR ( /pws/zygle209-bcofav NE itab_zyglt209-bcofav ).
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
textline1 = text-046
titel = text-010
IMPORTING
answer = v_answer
EXCEPTIONS
* >> Início da exclusão: FORM VERIFICA_ATERACOES
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ATERACOES
OTHERS = 0.
* << Fim da inclusão
IF v_answer EQ 'J'.
PERFORM salvar_dados.
ENDIF.
ENDIF.
COMMIT WORK.
ENDFORM.
FORM processa_boleto.
DATA: limpaid TYPE c.
CLEAR limpaid.
v_boleto = 'X'.
v_pagant = 'X'.
EXPORT v_pagant TO MEMORY ID 'E005'.
SET PARAMETER ID '/PWS/ZYCBP349' FIELD /pws/zycbe117-nrseq.
SUBMIT /pws/zycbr102 WITH import EQ 'X'
WITH data = /pws/zycbe117-dtvencto AND RETURN.
SET PARAMETER ID '/PWS/ZYCBP349' FIELD limpaid.
ENDFORM.
FORM retorna_processa.
* >> Início da exclusão: FORM RETORNA_PROCESSA
DATA: v_nrboleto LIKE /pws/zycbt064-nrboleto.
* << Fim da exclusão
* >> Início da inclusão: FORM RETORNA_PROCESSA
DATA: v_nrboleto LIKE /pws/zycbt064-nrboleto."#EC NEEDED
SELECT nrboleto
* << Fim da inclusão
* >> Início da exclusão: FORM RETORNA_PROCESSA
SELECT SINGLE nrboleto FROM /pws/zycbt064 INTO v_nrboleto
* << Fim da exclusão
* >> Início da inclusão: FORM RETORNA_PROCESSA
FROM /pws/zycbt064
UP TO 1 ROWS
INTO v_nrboleto
* << Fim da inclusão
WHERE nrchave = /pws/zycbe117-nrseq
AND mdcorresp = 'IA'.
* >> Início da inclusão: FORM RETORNA_PROCESSA
endselect.
* << Fim da inclusão
IF sy-subrc NE 0.
* >> Início da exclusão: FORM RETORNA_PROCESSA
SELECT SINGLE nrseq FROM /pws/zycbt031 INTO v_nrboleto
* << Fim da exclusão
* >> Início da inclusão: FORM RETORNA_PROCESSA
SELECT nrseq
FROM /pws/zycbt031
UP TO 1 ROWS
INTO v_nrboleto
* << Fim da inclusão
WHERE nrcorresp = /pws/zycbe117-nrseq
AND mdcorresp = 'IA'.
* >> Início da inclusão: FORM RETORNA_PROCESSA
endselect.
* << Fim da inclusão
ENDIF.
IF sy-subrc = 0.
v_status_s = 0.
ENDIF.
ENDFORM.
...
...
DATA: wa_dd03l LIKE dd03l.
DATA: BEGIN OF itab_dd07t OCCURS 5.
INCLUDE STRUCTURE dd07t.
DATA: END OF itab_dd07t.
DATA: tablename LIKE dd03l-tabname,
fieldname LIKE dd03l-fieldname.
SPLIT p_objeto AT '-' INTO tablename fieldname.
IF sy-subrc NE 0.
EXIT.
ENDIF.
* >> Início da inclusão: FORM PEGA_DESCRICAO_DOMINIO
SELECT *
* << Fim da inclusão
* >> Início da exclusão: FORM PEGA_DESCRICAO_DOMINIO
SELECT SINGLE *
* << Fim da exclusão
FROM dd03l
* >> Início da inclusão: FORM PEGA_DESCRICAO_DOMINIO
up to 1 rows
* << Fim da inclusão
INTO wa_dd03l
WHERE ( tabname = tablename AND
fieldname = fieldname ).
* >> Início da inclusão: FORM PEGA_DESCRICAO_DOMINIO
endselect.
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT * FROM dd07t
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.
* >> Início da exclusão: FORM PEGA_DESCRICAO_DOMINIO
IF p_valor GE itab_dd07t-domval_ld AND
p_valor LE itab_dd07t-domval_hd.
* << Fim da exclusão
* >> Início da inclusão: FORM PEGA_DESCRICAO_DOMINIO
IF p_valor GE itab_dd07t-domval_ld AND "#EC PORTABLE
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.
FORM consiste_codint.
IF ok_code <> 'SEL' AND ok_code <> 'SELE'.
...
...
EXIT.
ENDIF.
MESSAGE e061 WITH text-055.
ENDIF.
ENDIF.
ENDFORM.
FORM preenche_dados_contrato.
IF sy-tcode NE '/PWS/ZYCB104_C'.
CLEAR /pws/zycbe048.
IF /pws/zycbt064 IS INITIAL.
* >> Início da exclusão: FORM PREENCHE_DADOS_CONTRATO
SELECT SINGLE * FROM /pws/zycbt064 INTO /pws/zycbt064
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_DADOS_CONTRATO
SELECT *
FROM /pws/zycbt064
up to 1 rows
INTO /pws/zycbt064
* << Fim da inclusão
WHERE nrchave = /pws/zycbe117-nrseq
AND mdcorresp = 'IA'.
* >> Início da inclusão: FORM PREENCHE_DADOS_CONTRATO
endselect.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: FORM PREENCHE_DADOS_CONTRATO
SELECT SINGLE * FROM /pws/zycbt048 INTO /pws/zycbe048
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_DADOS_CONTRATO
SELECT *
FROM /pws/zycbt048
up to 1 rows
INTO /pws/zycbe048
* << Fim da inclusão
WHERE nrseq = /pws/zycbt064-nrboleto
AND mdcorresp = 'IA'
AND nrcorresp = /pws/zycbe117-nrseq.
* >> Início da inclusão: FORM PREENCHE_DADOS_CONTRATO
endselect.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM user_command_0100.
CLEAR: r_okcode, v_syrepid, v_estr_ok.
...
...
EXPORTING
i_codmod = 'I'
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 USER_COMMAND_0100
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'ANT001' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ELSE.
v_estr_ok = 'S'.
ENDIF.
ELSE.
...
...
WHEN 'CHANGE'.
IF v_status_s EQ 1.
v_status_s = 0.
PERFORM unlock_record.
ELSE.
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD'
FIELD '/PWS/ZYCB104_A'.
IF sy-subrc NE 0.
MESSAGE e261(sf) WITH '/PWS/ZYCB104_A'.
ELSE.
* >> Início da exclusão: FORM USER_COMMAND_0100
SELECT SINGLE * FROM /pws/zycbt064
* << Fim da exclusão
* >> Início da inclusão: FORM USER_COMMAND_0100
SELECT *
FROM /pws/zycbt064
up to 1 rows
* << Fim da inclusão
WHERE nrchave = /pws/zycbe117-nrseq
AND mdcorresp = 'IA'.
* >> Início da inclusão: FORM USER_COMMAND_0100
endselect.
* << Fim da inclusão
IF sy-subrc NE 0.
* >> Início da exclusão: FORM USER_COMMAND_0100
SELECT SINGLE * FROM /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: FORM USER_COMMAND_0100
SELECT *
FROM /pws/zycbt031
up to 1 rows
* << Fim da inclusão
WHERE nrcorresp = /pws/zycbe117-nrseq
AND mdcorresp = 'IA'.
* >> Início da inclusão: FORM USER_COMMAND_0100
endselect.
* << Fim da inclusão
ENDIF.
IF sy-subrc EQ 0.
MESSAGE i015 WITH text-032 text-033.
ELSE.
v_status_s = 1.
...
...
LEAVE TO TRANSACTION '/PWS/ZYCB104_C'.
WHEN 'OBJRES'.
CALL SCREEN '0105' STARTING AT 3 3 .
WHEN 'MODO'.
PERFORM modo_batch_input.
ENDCASE.
MOVE ok_code TO v_okcode.
CLEAR ok_code.
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 CALLED
* << 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.
* << Fim da inclusão
ENDFORM.
FORM exclui_item.
DELETE FROM /pws/zycmt020 WHERE nrseq = /pws/zycbe117-nrseq AND
codmod = 'PA'.
ENDFORM.
FORM seleciona_item.
CLEAR: wa_ekko, itab_ekpo, itab_zycmt020.
REFRESH: itab_ekpo, itab_zycmt020.
CALL FUNCTION 'ME_EKKO_SINGLE_READ'
EXPORTING
...
...
ENDIF.
ENDFORM.
FORM modo_batch_input.
DATA: BEGIN OF itab_modo OCCURS 0.
DATA: modo LIKE /pws/zycbt039-modo,
descr LIKE /pws/zycbt039-descr.
INCLUDE STRUCTURE spopli.
DATA: END OF itab_modo.
SELECT *
FROM /pws/zycbt039
* >> Início da exclusão: FORM MODO_BATCH_INPUT
INTO CORRESPONDING FIELDS OF TABLE itab_modo.
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_BATCH_INPUT
INTO CORRESPONDING FIELDS OF TABLE itab_modo. "#EC CI_NOWHERE
* << Fim da inclusão
SORT itab_modo DESCENDING.
CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
EXPORTING
textline1 = text-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.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB104I01
...
ENDIF.
ENDIF.
CLEAR: v_vlrassoc, itab_zycbt117.
v_percpedido = v_vlrpedido / 100.
IF NOT /pws/zycbe117-ebeln IS INITIAL.
IF sy-tcode NE '/PWS/ZYCB104_E' OR
v_status_s EQ 1.
REFRESH itab_zycbt117.
SELECT * FROM /pws/zycbt117 INTO TABLE itab_zycbt117
WHERE ebeln = /pws/zycbe117-ebeln
* >> Início da exclusão: MODULE CONSISTE_VALOR
AND status <> 'E'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_VALOR
AND status <> 'E'. "#EC CI_NOFIELD
* << Fim da inclusão
LOOP AT itab_zycbt117.
v_vlrassoc = v_vlrassoc + itab_zycbt117-vlme.
ENDLOOP.
IF sy-tcode EQ '/PWS/ZYCB104_C'.
v_dispassoc = v_vlrpedido - v_vlrassoc.
ELSE.
v_dispassoc = v_vlrpedido - v_vlrassoc + v_original.
ENDIF.
IF /pws/zycbe117-vlme GT v_dispassoc.
IF v_percpedido > 0.
...
...
ENDIF.
MESSAGE i249.
/pws/zycbe117-dtemb = space.
IF sy-ucomm EQ 'SAVE'.
MESSAGE i015 WITH text-029.
CALL SCREEN '0100'.
ENDIF.
ENDIF.
ENDMODULE.
MODULE authority-empresa INPUT.
* >> Início da exclusão: MODULE AUTHORITY-EMPRESA
DATA: v_tamanho TYPE n.
* << Fim da exclusão
IF /pws/zyglt009 IS INITIAL.
SELECT SINGLE * FROM /pws/zyglt009 INTO /pws/zyglt009
WHERE bukrs EQ /pws/zycbe117-bukrs.
ENDIF.
IF /pws/zyglt009-contpa IS INITIAL.
IF /pws/zycbe117-bukrs IS INITIAL AND
NOT /pws/zycbe117-ebeln IS INITIAL.
MESSAGE e061 WITH text-076.
ELSEIF NOT /pws/zycbe117-bukrs IS INITIAL AND
NOT /pws/zycbe117-ebeln IS INITIAL.
v_ebeln = /pws/zycbe117-ebeln.
SHIFT v_ebeln RIGHT DELETING TRAILING space.
TRANSLATE v_ebeln USING ' 0'.
SELECT SINGLE bukrs FROM ekpo INTO (ekpo-bukrs)
WHERE ebeln = /pws/zycbe117-ebeln OR
* >> Início da exclusão: MODULE AUTHORITY-EMPRESA
ebeln = v_ebeln.
* << Fim da exclusão
* >> Início da inclusão: MODULE AUTHORITY-EMPRESA
ebeln = v_ebeln."#EC *
* << Fim da inclusão
IF ekpo-bukrs NE /pws/zycbe117-bukrs.
MESSAGE e061 WITH text-077.
ENDIF.
ENDIF.
ENDIF.
IF sy-tcode EQ '/PWS/ZYCB104_C'.
AUTHORITY-CHECK OBJECT 'F_BKPF_BUK' ID 'BUKRS'
DUMMY
ID 'ACTVT' FIELD '01'.
IF sy-subrc NE 0.
...
...
v_status_s EQ 1 AND
( /pws/zycbe117-bukrs IS INITIAL OR
( /pws/zycbe117-ebeln NE wa_zycbe117-ebeln AND
NOT wa_zycbe117-ebeln IS INITIAL AND
NOT /pws/zycbe117-ebeln IS INITIAL ) OR
( /pws/zycbe117-ebeln NE v_ebeln_ant AND
NOT v_ebeln_ant IS INITIAL ) ).
SELECT SINGLE bukrs FROM ekko
INTO (/pws/zycbe117-bukrs)
WHERE ebeln = /pws/zycbe117-ebeln.
* >> Início da exclusão: MODULE CALCULA_VALOR
SELECT SINGLE gsber
* << Fim da exclusão
* >> Início da inclusão: MODULE CALCULA_VALOR
SELECT gsber
FROM ekkn
UP TO 1 ROWS
* << Fim da inclusão
INTO /pws/zycbe117-gsber
* >> Início da exclusão: MODULE CALCULA_VALOR
FROM ekkn
* << Fim da exclusão
WHERE ebeln = /pws/zycbe117-ebeln
AND ebelp = '00010'.
* >> Início da inclusão: MODULE CALCULA_VALOR
endselect.
* << Fim da inclusão
ENDIF.
...
...
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
EXPORTING
tabname = '/PWS/ZYCBE117'
fieldname = 'EBELN'
searchhelp = '/PWS/ZYCMA008'
display = l_display
TABLES
return_tab = itab_result
EXCEPTIONS
OTHERS = 5.
* >> Início da inclusão: MODULE SETA_MATCHCODE
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
/pws/zycbe117-ebeln = itab_result-fieldval.
CLEAR itab_zycmt020.
REFRESH itab_zycmt020.
SELECT SINGLE bukrs lifnr zterm waers FROM ekko
INTO (/pws/zycbe117-bukrs,/pws/zycbe117-lifnr,
/pws/zycbe117-zterm,/pws/zycbe117-waers)
WHERE ebeln = /pws/zycbe117-ebeln.
REFRESH tdynpread.
CLEAR tdynpread.
tdynpread-fieldname = '/PWS/ZYCBE117-LIFNR'.
...
...
APPEND tdynpread.
IF /pws/zyglt009 IS INITIAL.
SELECT SINGLE * FROM /pws/zyglt009
WHERE bukrs EQ /pws/zycbe117-bukrs.
ENDIF.
IF /pws/zyglt009-contpa IS INITIAL.
tdynpread-fieldname = '/PWS/ZYCBE117-ZTERM'.
tdynpread-fieldvalue = /pws/zycbe117-zterm.
APPEND tdynpread.
PERFORM consiste_codint.
* >> Início da exclusão: MODULE SETA_MATCHCODE
SELECT SINGLE gsber
* << Fim da exclusão
* >> Início da inclusão: MODULE SETA_MATCHCODE
SELECT gsber
FROM ekkn
UP TO 1 ROWS
* << Fim da inclusão
INTO /pws/zycbe117-gsber
* >> Início da exclusão: MODULE SETA_MATCHCODE
FROM ekkn
* << Fim da exclusão
WHERE ebeln = /pws/zycbe117-ebeln
AND ebelp = '00010'.
* >> Início da inclusão: MODULE SETA_MATCHCODE
endselect.
* << Fim da inclusão
CALL SCREEN '0100'.
...
...
dynpfields = tdynpread
EXCEPTIONS
invalid_abapworkarea = 1
invalid_dynprofield = 2
invalid_dynproname = 3
invalid_dynpronummer = 4
invalid_request = 5
no_fielddescription = 6
undefind_error = 7
OTHERS = 8.
* >> Início da inclusão: MODULE SETA_MATCHCODE
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDMODULE.
MODULE user_command_0101 INPUT.
CASE ok_code.
WHEN 'EXEC'.
IF v_doccompra = ' ' AND v_empresa = ' ' AND
v_tpdoc = ' ' AND v_dtcriacao = ' ' AND
v_fornec = ' ' AND v_condpgto = ' ' AND
v_waers = ' '.
MESSAGE w015 WITH text-059.
ELSE.
...
...
CALL FUNCTION 'ME_DISPLAY_PURCHASE_DOCUMENT'
EXPORTING
i_ebeln = v_valor1
i_enjoy = 'X'
EXCEPTIONS
not_found = 1
no_authority = 2
invalid_call = 3
preview_not_possible = 4
OTHERS = 5.
* >> Início da inclusão: MODULE USER_COMMAND_0107
if sy-subrc = 0.
else.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: MODULE USER_COMMAND_0107
ENDIF.
* << Fim da inclusão
ENDCASE.
ENDMODULE.
MODULE calcula_percentual INPUT.
CLEAR: v_ped, v_tot_pedido, v_lines, v_saldo.
LOOP AT itab_zycmt020.
v_tot_pedido = v_tot_pedido + itab_zycmt020-netwr.
...
...
IF NOT itab_zycmt020[] IS INITIAL.
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
defaultoption = 'N'
textline1 = text-109
textline2 = text-111
titel = text-110
IMPORTING
answer = v_answer
EXCEPTIONS
* >> Início da exclusão: MODULE CONSISTE_MATERIAL
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_MATERIAL
OTHERS = 0.
* << Fim da inclusão
CASE v_answer.
WHEN 'J'.
CLEAR itab_zycmt020.
REFRESH itab_zycmt020.
WHEN OTHERS.
IF NOT /pws/zycmt019-tpmatnr IS INITIAL.
MOVE /pws/zycmt019-tpmatnr TO /pws/zycbe117-codint.
ENDIF.
ENDCASE.
ENDIF.
...
...
EXPORTING
i_codmod = 'I'
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 CONSISTE_PEDIDO
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'ANT003' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
ENDIF.
ENDMODULE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB104O01
...
ENDMODULE.
MODULE status_0100 OUTPUT.
IF v_boleto = 'X'.
PERFORM retorna_processa.
ENDIF.
IF v_selrel = 'X'.
GET PARAMETER ID 'BES' FIELD /pws/zycbe117-ebeln.
GET PARAMETER ID 'LRE' FIELD /pws/zycbe117-lifnr.
IF /pws/zyglt009-contpa IS INITIAL.
GET PARAMETER ID 'FWS' FIELD /pws/zycbe117-waers.
* >> Início da exclusão: MODULE STATUS_0100
GET PARAMETER ID '/PWS/ZYCMP301' FIELD /pws/zycbe117-codint.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0100
GET PARAMETER ID '/PWS/ZYCMP301'
FIELD /pws/zycbe117-codint."#EC *
* << Fim da inclusão
GET PARAMETER ID '/PWS/ZYCBP034' FIELD /pws/zycbe117-zterm.
GET PARAMETER ID 'GSB' FIELD /pws/zycbe117-gsber.
GET PARAMETER ID 'KOS' FIELD /pws/zycbe117-kostl.
GET PARAMETER ID 'PRC' FIELD /pws/zycbe117-prctr.
GET PARAMETER ID 'FIP' FIELD /pws/zycbe117-fipos.
GET PARAMETER ID 'FIS' FIELD /pws/zycbe117-fictr.
CLEAR v_selrel.
ENDIF.
ENDIF.
PERFORM set_status.
...
...
CLEAR codigo.
IF NOT /pws/zycbe117-codint IS INITIAL.
SELECT SINGLE txtdesc FROM /pws/zycbt102 INTO /pws/zycbt102-txtdesc
WHERE codint EQ /pws/zycbe117-codint.
IF sy-subrc EQ 0.
codigo = /pws/zycbt102-txtdesc.
ENDIF.
ENDIF.
CLEAR condicao.
IF NOT /pws/zycbe117-zterm IS INITIAL.
* >> Início da exclusão: MODULE STATUS_0100
SELECT SINGLE text1 FROM t052u INTO t052u-text1
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0100
SELECT text1
FROM t052u
UP TO 1 ROWS
INTO t052u-text1
* << Fim da inclusão
WHERE zterm EQ /pws/zycbe117-zterm
AND spras EQ sy-langu.
* >> Início da inclusão: MODULE STATUS_0100
endselect.
* << Fim da inclusão
IF sy-subrc EQ 0.
condicao = t052u-text1.
ENDIF.
ENDIF.
CLEAR corretora.
...
...
ENDIF.
ENDMODULE.
MODULE preenche_default OUTPUT.
IF sy-tcode EQ '/PWS/ZYCB104_C'.
/pws/zycbe117-fcambio = 'S'.
SET PARAMETER ID 'GSB' FIELD /pws/zycbe117-gsber.
SET PARAMETER ID 'WRK' FIELD /pws/zycbe117-werks.
IF /pws/zycbe117-bukrs IS INITIAL AND
/pws/zycbe117-j_1bbranch IS INITIAL AND
sy-tcode = '/PWS/ZYCB104_C'.
* >> Início da exclusão: MODULE PREENCHE_DEFAULT
SELECT SINGLE empresa
* << Fim da exclusão
* >> Início da inclusão: MODULE PREENCHE_DEFAULT
SELECT empresa
* << Fim da inclusão
FROM /pws/zyglt364
* >> Início da inclusão: MODULE PREENCHE_DEFAULT
UP TO 1 ROWS
* << Fim da inclusão
INTO /pws/zyglt364-empresa
WHERE usuario EQ sy-uname.
* >> Início da inclusão: MODULE PREENCHE_DEFAULT
endselect.
* << Fim da inclusão
SELECT SINGLE bukrs j_1bbranch gsber werks
...
...
IF sy-dynnr EQ '0104' .
v_cod_grupo = 'CCO'.
ELSEIF sy-dynnr EQ '0105'.
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.
...
...
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/MZYCB104TOP
PROGRAM /pws/sapmzycb104 MESSAGE-ID /pws/zycmm.
INCLUDE /pws/zygli100.
DATA: itab_zyglt100 LIKE /pws/zyglt100 OCCURS 0 WITH HEADER LINE.
INCLUDE /pws/zygli101.
* >> Início da exclusão:
DATA v_tela_help LIKE sy-dynnr VALUE '0052'.
* << Fim da exclusão
* >> Início da inclusão:
DATA v_tela_help LIKE sy-dynnr VALUE '0052'."#EC NEEDED
* << Fim da inclusão
TABLES:
/pws/zyglt214,
* >> Início da exclusão:
/pws/zycmt003, /pws/zycme003,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycmt003,"#EC *
/pws/zycme003,
* << Fim da inclusão
/pws/zycbt102,
/pws/zyglt009,
/pws/zycbe048,
t052u,
/pws/zycbt031,
/pws/zycbt064,
/pws/zycmt019,
/pws/zycme020,
/pws/zycbt007,
lfa1,
t001,
* >> Início da exclusão:
bkpf,
* << Fim da exclusão
* >> Início da inclusão:
bkpf, "#EC NEEDED
* << Fim da inclusão
tcurt,
* >> Início da exclusão:
lfbk,
* << Fim da exclusão
* >> Início da inclusão:
lfbk,"#EC NEEDED
* << Fim da inclusão
/pws/zyglt209,
/pws/zygle209,
ekko,
* >> Início da exclusão:
ekkn,
* << Fim da exclusão
* >> Início da inclusão:
ekkn,"#EC *
* << Fim da inclusão
ekpo,
/pws/zycit031,
/pws/zyglt364,
* >> Início da exclusão:
/pws/zycbt115,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt115,"#EC *
* << Fim da inclusão
/pws/zycbe115,
...
...
flag,
END OF itab_t320.
DATA: BEGIN OF itab_nome_campo OCCURS 0,
nome_campo_tela(35) TYPE c,
modif,
END OF itab_nome_campo.
DATA: BEGIN OF itab_zycmt020 OCCURS 0.
INCLUDE STRUCTURE /pws/zycmt020.
DATA: mark(1) TYPE c.
DATA: END OF itab_zycmt020.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycmt020_cp OCCURS 0.
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF itab_zycmt020_cp OCCURS 0."#EC *
* << Fim da inclusão
INCLUDE STRUCTURE /pws/zycmt020.
DATA: mark(1) TYPE c.
DATA: END OF itab_zycmt020_cp.
CONTROLS:
tc_001 TYPE TABLEVIEW USING SCREEN 0300,
ts_pagant TYPE TABSTRIP,
tc_banco TYPE TABLEVIEW USING SCREEN 400,
tc_rof TYPE TABLEVIEW USING SCREEN 0106,
tc_pgto TYPE TABLEVIEW USING SCREEN 0107.
DATA: v_answer TYPE c,
...
...
v_tipo LIKE t161-bsart,
mark(1),
norma LIKE /pws/zyglt214-norma,
v_pedido TYPE c,
v_salva,
txtmodalidade(25) TYPE c,
v_ebeln_ant LIKE /pws/zycbt117-ebeln,
v_syrepid LIKE sy-repid,
v_sydynnr LIKE sy-dynnr,
v_visivel LIKE /pws/zyglt319-visivel,
* >> Início da exclusão:
v_tcodebotao LIKE /pws/zyglt319-tcode,
* << Fim da exclusão
* >> Início da inclusão:
v_tcodebotao LIKE /pws/zyglt319-tcode,"#EC NEEDED
* << Fim da inclusão
v_line TYPE i,
v_campo1(22) TYPE c,
v_valor1 LIKE ekko-ebeln,
v_ped LIKE ekpo-ebeln,
v_lines TYPE i,
v_saldo LIKE /pws/zycmt020-vlpago,
v_tot_pedido LIKE /pws/zycmt020-netwr,
v_ebeln LIKE /pws/zycbe117-ebeln.
DATA: v_nome_campo(35) TYPE c,
v_comp(35) TYPE c,
v_cod_grupo LIKE /pws/zyglt320-cod_grupo,
* >> Início da exclusão:
wa_zycbe117_aux LIKE /pws/zycbe117.
* << Fim da exclusão
* >> Início da inclusão:
wa_zycbe117_aux LIKE /pws/zycbe117."#EC NEEDED
* << Fim da inclusão
RANGES: r_doccompra FOR ekko-ebeln,
r_empresa FOR ekko-bukrs,
r_tpcod FOR ekko-bsart,
r_dtcriacao FOR ekko-aedat,
r_fornec FOR ekko-lifnr,
r_condpgto FOR ekko-zterm,
r_waers FOR ekko-waers.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB104X01
TABLES: /pws/zycbt117,
/pws/zycbe117.
* >> Início da exclusão:
DATA: BEGIN OF COMMON PART d.
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF COMMON PART d."#EC PART_OK
* << Fim da inclusão
DATA: BEGIN OF itab_zycbt117 OCCURS 0 .
INCLUDE STRUCTURE /pws/zycbt117.
DATA: END OF itab_zycbt117.
DATA: wa_zycbe117 LIKE /pws/zycbe117.
DATA: v_estr_ok(1) TYPE c,
ok_code LIKE sy-ucomm,
v_okcode LIKE sy-ucomm.
DATA: v_modo_bi type /pws/zycbt039-modo.
DATA: END OF COMMON PART.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB106F01
...
APPEND itab_pf_status.
SET PF-STATUS '100A' EXCLUDING itab_pf_status.
SET TITLEBAR '01B'.
ELSE.
SET PF-STATUS '100A' EXCLUDING itab_pf_status.
SET TITLEBAR '01B'.
ENDIF.
ENDFORM.
FORM gerar_nrseq.
IF ok_code NE 'SAVE' OR /pws/zycbe119-nrseq IS INITIAL.
* >> Início da exclusão: FORM GERAR_NRSEQ
SELECT MAX( nrseq ) FROM /pws/zycbt119 INTO /pws/zycbt119-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM GERAR_NRSEQ
SELECT MAX( nrseq ) FROM /pws/zycbt119
INTO /pws/zycbt119-nrseq. "#EC CI_NOWHERE
* << Fim da inclusão
v_nrseq = /pws/zycbt119-nrseq+0(8) + 1.
CONDENSE v_nrseq.
v_ano = sy-datum+2(2).
CONCATENATE v_nrseq v_ano INTO /pws/zycbe119-nrseq.
SHIFT /pws/zycbe119-nrseq RIGHT DELETING TRAILING space.
TRANSLATE /pws/zycbe119-nrseq USING ' 0'.
ENDIF.
IF /pws/zycbe119-dtincl IS INITIAL.
/pws/zycbe119-dtincl = sy-datum.
ENDIF.
ENDFORM.
FORM carrega_itab_zycbt123.
* >> Início da exclusão: FORM CARREGA_ITAB_ZYCBT123
DATA: v_lin1(3) TYPE c.
* << Fim da exclusão
IF /pws/zycbe119-nrseq NE ' ' AND /pws/zycbe123-ncm NE ' '.
IF sy-tcode EQ '/PWS/ZYCB106_C'.
CONCATENATE /pws/zycbe119-nrseq+0(8) v_ano
INTO itab_zycbt123-nrcorresp.
ELSE.
itab_zycbt123-nrcorresp = /pws/zycbe119-nrseq.
ENDIF.
itab_zycbt123-ncm = /pws/zycbe123-ncm.
itab_zycbt123-tpdoc = 'P'.
itab_zycbt123-mark = mark.
...
...
IF sy-subrc = 0.
IF /pws/zycbe119-statusp = ' ' AND
/pws/zycbe119-nrfat IS INITIAL.
SELECT SINGLE * FROM /pws/zyglt009 INTO wa_zyglt009
WHERE bukrs EQ /pws/zycbe119-bukrs.
IF sy-subrc = 0.
IF wa_zyglt009-ref_fat = 'E'.
SELECT SINGLE * FROM /pws/zycit093 INTO /pws/zycit093
WHERE nrseqce EQ /pws/zycit006-nrseqce.
IF sy-subrc = 0.
* >> Início da exclusão: FORM SELECIONAR_DADOS
SELECT SINGLE * FROM /pws/zycit094 INTO /pws/zycit094
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_DADOS
SELECT * FROM /pws/zycit094 UP TO 1 ROWS
INTO /pws/zycit094
* << Fim da inclusão
WHERE nrseqce EQ /pws/zycit093-nrseqce.
* >> Início da inclusão: FORM SELECIONAR_DADOS
ENDSELECT.
* << Fim da inclusão
IF sy-subrc = 0.
SELECT SINGLE * FROM /pws/zycit001 INTO /pws/zycit001
WHERE nrseq EQ /pws/zycit094-nrseq.
IF sy-subrc = 0.
/pws/zycbe119-nrfat = /pws/zycit001-embarca.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
IF wa_zyglt009-ref_fat = 'F'.
/pws/zycbe119-nrfat = /pws/zycit006-nrfat.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM SELECIONAR_DADOS
SELECT SINGLE * FROM /pws/zycbt108
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_DADOS
SELECT * FROM /pws/zycbt108 UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseq_pgfat = /pws/zycbe119-nrseq
* >> Início da exclusão: FORM SELECIONAR_DADOS
AND dtincl = /pws/zycbe119-dtincl.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_DADOS
AND dtincl = /pws/zycbe119-dtincl. "#EC CI_NOFIRST
ENDSELECT.
* << Fim da inclusão
/pws/zycbe108-belnr_co = /pws/zycbt108-belnr_co.
/pws/zycbe108-bldat = /pws/zycbt108-bldat.
...
...
IF sy-subrc = 0 AND
NOT /pws/zycbt108-belnr_co IS INITIAL.
MOVE 'X' TO v_fat_imp.
ELSE.
CLEAR v_fat_imp.
ENDIF.
IF sy-tcode EQ '/PWS/ZYCB106_A' AND
/pws/zycbt108-slfat IS INITIAL
AND NOT /pws/zycbe119-dtpagto IS INITIAL.
MESSAGE i015 WITH text-098 text-099.
* >> Início da exclusão: FORM SELECIONAR_DADOS
sy-tcode = '/PWS/ZYCB106_E'.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONAR_DADOS
sy-tcode = '/PWS/ZYCB106_E'. "#EC *
* << Fim da inclusão
v_status_s = 0.
ENDIF.
MOVE /pws/zycbe119 TO wa_zycbt119.
MOVE /pws/zycbe119 TO itab_zycbt119_aux.
PERFORM calcula_moeda_interna.
MOVE /pws/zycbe119 TO wa_zycbt119.
MOVE /pws/zycbe119 TO itab_zycbt119_aux.
/pws/zycbe119-nrseq = v_exibe.
wa_zycbt119-nrseq = v_exibe.
IF sy-tcode EQ '/PWS/ZYCB106_E'.
...
...
ENDFORM.
FORM excluir_registro.
DATA: v_answer TYPE c.
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
textline1 = text-010
titel = text-011
IMPORTING
answer = v_answer
EXCEPTIONS
* >> Início da exclusão: FORM EXCLUIR_REGISTRO
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUIR_REGISTRO
OTHERS = 0.
* << Fim da inclusão
IF v_answer EQ 'J'.
IF /pws/zycbe108-belnr_co NE space.
PERFORM estorna_doc_pag.
ENDIF.
IF v_flag_exito EQ 'N'.
v_flag_exito = ' '.
EXIT.
ENDIF.
* >> Início da inclusão: FORM EXCLUIR_REGISTRO
SELECT * FROM /pws/zycbt031
* << Fim da inclusão
* >> Início da exclusão: FORM EXCLUIR_REGISTRO
SELECT SINGLE * FROM /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUIR_REGISTRO
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrcorresp = /pws/zycbe119-nrseq
AND mdcorresp = 'IP'.
* >> Início da inclusão: FORM EXCLUIR_REGISTRO
ENDSELECT.
* << Fim da inclusão
IF /pws/zycbe119-dtpagto EQ '00000000' AND
/pws/zycbt031-nrseq IS INITIAL.
v_status_s = '0'.
MOVE 'E' TO /pws/zycbe119-status.
LOOP AT itab_zycbt123.
...
...
LOOP AT tc_desc-cols INTO wa_cols.
IF wa_cols-screen-name = '/PWS/ZYCME008-MOTIVO' OR
wa_cols-screen-name = '/PWS/ZYCME008-VLDES'.
wa_cols-screen-input = '0'.
MODIFY tc_desc-cols FROM wa_cols.
ENDIF.
ENDLOOP.
ENDIF.
ENDFORM.
FORM seleciona_empresa.
* >> Início da exclusão: FORM SELECIONA_EMPRESA
SELECT SINGLE empresa
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_EMPRESA
SELECT empresa
* << Fim da inclusão
FROM /pws/zyglt364
* >> Início da inclusão: FORM SELECIONA_EMPRESA
UP TO 1 ROWS
* << Fim da inclusão
INTO /pws/zyglt364-empresa
WHERE usuario EQ sy-uname.
* >> Início da inclusão: FORM SELECIONA_EMPRESA
ENDSELECT.
* << Fim da inclusão
IF sy-tcode EQ '/PWS/ZYCB106_C'.
...
...
ok_code = ' '.
ENDFORM.
FORM selecionar_bancos USING p_banco.
SELECT SINGLE name1 FROM lfa1 INTO lfa1-name1
WHERE lifnr EQ p_banco.
IF sy-subrc EQ 0.
v_negociador = lfa1-name1.
ENDIF.
ENDFORM.
FORM user_command_0102.
* >> Início da exclusão: FORM USER_COMMAND_0102
DATA: v_selncm TYPE n.
* << Fim da exclusão
CHECK ts_contr-activetab EQ 'FC_ITENS'.
CASE ok_code.
WHEN 'CLEAR'.
LOOP AT itab_zycbt123 WHERE mark = 'X'.
MOVE itab_zycbt123 TO itab_zycbt123_del.
APPEND itab_zycbt123_del.
DELETE itab_zycbt123.
ENDLOOP.
WHEN 'MARC'.
LOOP AT itab_zycbt123.
...
...
CONTINUE.
ELSE.
UPDATE /pws/zycbt115 SET fsta = 'X'
WHERE nrcorrep = /pws/zycbt115-nrcorrep AND
rof = /pws/zycbt115-rof AND
tpdoc = 'P'.
ENDIF.
ENDSELECT.
ENDFORM.
FORM user_command_0103.
* >> Início da exclusão: FORM USER_COMMAND_0103
DATA: v_selrof TYPE n.
* << Fim da exclusão
CHECK ts_contr-activetab EQ 'FC_ROF'.
CASE ok_code.
WHEN 'CLEAR'.
LOOP AT itab_zycbt115 WHERE mark = 'X'.
MOVE itab_zycbt115 TO itab_zycbt115_del.
APPEND itab_zycbt115_del.
DELETE itab_zycbt115.
ENDLOOP.
WHEN 'MARC'.
LOOP AT itab_zycbt115.
...
...
EXCEPTIONS
key_not_found = 1
rules_not_found = 2
OTHERS = 3.
IF sy-subrc EQ 0.
READ TABLE itab_zyglt316 INDEX 1.
itab_zycbe033-d_newko = itab_zyglt316-konts.
ENDIF.
ENDIF.
CLEAR wa_zycbt011.
* >> Início da exclusão: FORM GET_PARAMETERS_119
SELECT SINGLE * FROM /pws/zycbt011
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_119
SELECT *
FROM /pws/zycbt011
UP TO 1 ROWS
* << Fim da inclusão
INTO wa_zycbt011
WHERE codeven = v_codeven
AND codmod = 'I'.
* >> Início da inclusão: FORM GET_PARAMETERS_119
ENDSELECT.
* << Fim da inclusão
CLEAR itab_zycbt012.
ENDFORM.
FORM clear_date_batch.
CLEAR: itab_zycbt034, itab_zycbe033, itab_zycbt032,
...
...
FORM popup_message USING value(p_textline1)
value(p_titel).
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.
* << Fim da inclusão
ENDFORM.
FORM change_status.
CLEAR: v_answer,
v_tcode.
PERFORM checa_boleto.
IF NOT v_nrboleto IS INITIAL.
MESSAGE i061 WITH text-048 text-049.
EXIT.
ENDIF.
IF /pws/zycbt108-slfat IS INITIAL
...
...
v_status_s = '0'.
v_tcode = '/PWS/ZYCB106_E'.
ENDCASE.
PERFORM unlock_record.
ENDIF.
ENDFORM.
FORM find_nrseq.
DATA:
v_nrseq LIKE /pws/zycbt119-nrseq,
v_count(6) TYPE n.
* >> Início da exclusão: FORM FIND_NRSEQ
SELECT MAX( nrseq ) INTO (v_nrseq) FROM /pws/zycbt119.
* << Fim da exclusão
* >> Início da inclusão: FORM FIND_NRSEQ
SELECT MAX( nrseq ) INTO (v_nrseq) FROM /pws/zycbt119."#EC CI_NOWHERE
* << Fim da inclusão
v_count = v_nrseq+0(8) + 1.
CONCATENATE '00' v_count sy-datum+2(2) INTO /pws/zycbe119-nrseq.
ENDFORM.
FORM exibe_boleto.
CLEAR: v_nrboleto,
wa_zycbt031a.
* >> Início da exclusão: FORM EXIBE_BOLETO
SELECT SINGLE nrboleto FROM /pws/zycbt064 INTO v_nrboleto
* << Fim da exclusão
* >> Início da inclusão: FORM EXIBE_BOLETO
SELECT nrboleto
FROM /pws/zycbt064
UP TO 1 ROWS
INTO v_nrboleto
* << Fim da inclusão
WHERE mdcorresp = 'IP'
AND nrchave = /pws/zycbe119-nrseq.
* >> Início da inclusão: FORM EXIBE_BOLETO
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM EXIBE_BOLETO
SELECT SINGLE * FROM /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: FORM EXIBE_BOLETO
SELECT *
FROM /pws/zycbt031
UP TO 1 ROWS
* << Fim da inclusão
INTO wa_zycbt031a
WHERE nrseq EQ v_nrboleto.
* >> Início da inclusão: FORM EXIBE_BOLETO
ENDSELECT.
* << Fim da inclusão
ELSE.
* >> Início da exclusão: FORM EXIBE_BOLETO
SELECT SINGLE * FROM /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: FORM EXIBE_BOLETO
SELECT *
FROM /pws/zycbt031
UP TO 1 ROWS
* << Fim da inclusão
INTO wa_zycbt031a
WHERE bukrs = /pws/zycbe119-bukrs
AND mdcorresp = 'IP'
AND nrcorresp = /pws/zycbe119-nrseq
AND tabela = '/PWS/ZYCBT119'.
* >> Início da inclusão: FORM EXIBE_BOLETO
ENDSELECT.
* << Fim da inclusão
ENDIF.
IF v_nrboleto IS INITIAL AND NOT wa_zycbt031a IS INITIAL.
...
...
MOVE: /pws/zycbe119-nrseq TO /pws/zycbe123-nrcorresp,
itab_zycbt123_cp-ncm TO /pws/zycbe123-ncm.
APPEND itab_zycbt123.
ENDLOOP.
ENDFORM.
FORM modo_batch_input.
CLEAR: /pws/zycbt039, itab_modo.
REFRESH: itab_modo.
SELECT * FROM /pws/zycbt039.
itab_modo-selflag = /pws/zycbt039-modo.
* >> Início da exclusão: FORM MODO_BATCH_INPUT
itab_modo-varoption = /pws/zycbt039-descr.
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_BATCH_INPUT
itab_modo-varoption = /pws/zycbt039-descr."#EC CI_NOWHERE
* << Fim da inclusão
APPEND itab_modo.
ENDSELECT.
SORT itab_modo DESCENDING.
CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
EXPORTING
textline1 = text-075
textline2 = text-076
titel = text-077
IMPORTING
answer = v_modo_bi
TABLES
t_spopli = itab_modo
EXCEPTIONS
not_enough_answers = 1
too_much_answers = 2
too_much_marks = 3
OTHERS = 4.
* >> Início da inclusão: FORM MODO_BATCH_INPUT
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/ZYCB106_A' ) OR
...
...
CALL FUNCTION 'POPUP_DISPLAY_TEXT'
EXPORTING
language = sy-langu
popup_title = text-032
start_column = 5
start_row = 1
text_object = '/PWS/ZSAPMZYCB106_TXT'
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
* >> Início da inclusão: FORM EVENTOS_CONTABEIS
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDFORM.
FORM duplo_click.
GET CURSOR FIELD v_campo1 VALUE v_valor1.
IF v_campo1 EQ '/PWS/ZYCBE119-NRPAGTO' OR
v_campo1 EQ '/PWS/ZYCBE119-NRSEQ'.
SELECT SINGLE * FROM /pws/zycit006
INTO /pws/zycit006
WHERE nrseq EQ /pws/zycbe119-nrpagto.
IF sy-subrc <> 0.
MESSAGE i015 WITH text-034.
...
...
ENDFORM.
FORM call_transaction TABLES p_itab_msg LIKE itab_msg[]
p_itab_bdc STRUCTURE bdcdata
p_t_zycit032 STRUCTURE t_zycit032
p_t_dados STRUCTURE /pws/zycbe033
USING p_v_transacao
p_v_mode
p_v_update
p_v_msgid
p_v_msgno
* >> Início da exclusão: FORM CALL_TRANSACTION
CHANGING p_v_nrmsg.
* << Fim da exclusão
* >> Início da inclusão: FORM CALL_TRANSACTION
CHANGING p_v_nrmsg."#EC *
* << Fim da inclusão
CALL TRANSACTION p_v_transacao USING p_itab_bdc
MODE p_v_mode
UPDATE p_v_update
MESSAGES INTO p_itab_msg.
ENDFORM.
FORM seleciona_deducoes.
CLEAR : itab_zycit130, itab_zycit130_aux, itab_zycit130_ci.
REFRESH : itab_zycit130, itab_zycit130_aux, itab_zycit130_ci.
SELECT * FROM /pws/zycit130
INTO TABLE itab_zycit130
...
...
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_nrseq.
MESSAGE i015 WITH text-103.
PERFORM chama_documento.
ENDIF.
ELSEIF answer = 'A'.
EXIT.
ENDIF.
IF NOT nrseq IS INITIAL.
...
...
ELSEIF v_answer = 'N'.
MOVE wa_zycbt119 TO /pws/zycbe119.
ELSE.
LEAVE TO SCREEN '0100'.
ENDIF.
PERFORM unlock_record.
ENDIF.
ENDIF.
ENDFORM.
FORM retorna_processa.
* >> Início da exclusão: FORM RETORNA_PROCESSA
SELECT SINGLE nrseq FROM /pws/zycbt031 INTO v_nrboleto
* << Fim da exclusão
* >> Início da inclusão: FORM RETORNA_PROCESSA
SELECT nrseq
FROM /pws/zycbt031
UP TO 1 ROWS
INTO v_nrboleto
* << Fim da inclusão
WHERE nrcorresp = v_nrseq
AND mdcorresp = 'IP'.
* >> Início da inclusão: FORM RETORNA_PROCESSA
ENDSELECT.
* << Fim da inclusão
IF sy-subrc = 0.
v_status_s = 0.
ENDIF.
ENDFORM.
FORM processa_boleto.
...
...
icon_button_1 = 'ICON_OKAY'
text_button_2 = text-047
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'.
AUTHORITY-CHECK OBJECT 'S_TCODE' ID 'TCD' FIELD '/PWS/ZYCBR102'.
IF sy-subrc EQ 0.
v_boleto = 'X'.
PERFORM rotina_boleto.
ELSE.
MESSAGE e261(sf) WITH '/PWS/ZYCBR102'.
ENDIF.
ELSE.
EXIT.
ENDIF.
ENDFORM.
FORM checa_boleto.
CLEAR v_nrboleto.
CHECK sy-tcode NE '/PWS/ZYCB106_E' OR ok_code EQ 'CHANGE'.
* >> Início da exclusão: FORM CHECA_BOLETO
SELECT SINGLE nrboleto FROM /pws/zycbt064 INTO v_nrboleto
* << Fim da exclusão
* >> Início da inclusão: FORM CHECA_BOLETO
SELECT nrboleto
FROM /pws/zycbt064
UP TO 1 ROWS
INTO v_nrboleto
* << Fim da inclusão
WHERE mdcorresp = 'IP'
AND nrchave = /pws/zycbe119-nrseq.
* >> Início da inclusão: FORM CHECA_BOLETO
ENDSELECT.
* << Fim da inclusão
IF sy-subrc NE 0.
* >> Início da exclusão: FORM CHECA_BOLETO
SELECT SINGLE nrseq FROM /pws/zycbt031 INTO v_nrboleto
* << Fim da exclusão
* >> Início da inclusão: FORM CHECA_BOLETO
SELECT nrseq
FROM /pws/zycbt031
UP TO 1 ROWS
INTO v_nrboleto
* << Fim da inclusão
WHERE mdcorresp = 'IP'
AND nrcorresp = /pws/zycbe119-nrseq.
* >> Início da inclusão: FORM CHECA_BOLETO
ENDSELECT.
* << Fim da inclusão
ENDIF.
IF sy-dynnr = '0001'.
IF sy-subrc = 0.
MESSAGE i061 WITH text-048 text-049.
* >> Início da exclusão: FORM CHECA_BOLETO
sy-tcode = '/PWS/ZYCB106_E'.
* << Fim da exclusão
* >> Início da inclusão: FORM CHECA_BOLETO
sy-tcode = '/PWS/ZYCB106_E'. "#EC *
* << Fim da inclusão
v_status_s = 0.
ENDIF.
ENDIF.
ENDFORM.
FORM rotina_boleto.
DATA: limpaid TYPE c VALUE space,
pagfat TYPE c,
v_dtvencto LIKE /pws/zycbe119-dtvencto,
v_line TYPE i.
CLEAR limpaid.
...
...
ENDFORM.
FORM exibir_associacoes.
CLEAR: itab_zycbt131, itab_dados, wa_zycit006.
REFRESH: itab_dados.
SELECT SINGLE * FROM /pws/zycit006 INTO wa_zycit006
WHERE nrseq = /pws/zycbe119-nrpagto.
IF sy-subrc = 0 .
v_faturadi = 'X'.
SELECT * FROM /pws/zycbt131 INTO TABLE itab_zycbt131
WHERE belnr = wa_zycit006-nrseq AND
* >> Início da exclusão: FORM EXIBIR_ASSOCIACOES
nrseq_pgfat = wa_zycit006-nrseq_pgfat.
* << Fim da exclusão
* >> Início da inclusão: FORM EXIBIR_ASSOCIACOES
nrseq_pgfat = wa_zycit006-nrseq_pgfat."#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_zycbt131.
MOVE: wa_zycit006-nrseq TO itab_dados-faturadi.
MOVE: wa_zycit006-nrseq_pgfat TO itab_dados-nrseq_pgfat.
IF itab_zycbt131-mdcorresp = 'IF'.
MOVE: text-058 TO itab_dados-mdcorresp.
ELSEIF itab_zycbt131-mdcorresp = 'IP'.
MOVE: text-056 TO itab_dados-mdcorresp.
ELSEIF itab_zycbt131-mdcorresp = 'IA'.
MOVE: text-057 TO itab_dados-mdcorresp.
ENDIF.
...
...
APPEND itab_dados.
ENDLOOP.
IF NOT itab_dados[] IS INITIAL.
CALL SCREEN '0107' STARTING AT 10 10
ENDING AT 99 20.
ELSE.
MESSAGE i061 WITH text-061 /pws/zycbe119-nrseq.
ENDIF.
ELSEIF sy-subrc NE 0 AND /pws/zycbt108-belnr_co IS INITIAL.
SELECT * FROM /pws/zycbt131 INTO TABLE itab_zycbt131
* >> Início da exclusão: FORM EXIBIR_ASSOCIACOES
WHERE nrseq = /pws/zycbe119-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM EXIBIR_ASSOCIACOES
WHERE nrseq = /pws/zycbe119-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_zycbt131.
MOVE: itab_zycbt131-nrseq TO itab_dados-faturacb.
MOVE: itab_zycbt131-belnr TO itab_dados-faturadi.
MOVE: itab_zycbt131-nrseq_pgfat TO itab_dados-nrseq_pgfat.
IF itab_zycbt131-mdcorresp = 'IF'.
MOVE: text-058 TO itab_dados-mdcorresp.
ELSEIF itab_zycbt131-mdcorresp = 'IP'.
MOVE: text-056 TO itab_dados-mdcorresp.
ELSEIF itab_zycbt131-mdcorresp = 'IA'.
MOVE: text-057 TO itab_dados-mdcorresp.
...
...
IF NOT itab_dados[] IS INITIAL.
CALL SCREEN '0107' STARTING AT 10 10
ENDING AT 94 20.
ELSE.
MESSAGE i061 WITH text-061 /pws/zycbe119-nrseq.
ENDIF.
ELSEIF sy-subrc NE 0 AND /pws/zycbt108-belnr_co IS INITIAL.
v_faturadi = 'X'.
SELECT * FROM /pws/zycbt131 INTO TABLE itab_zycbt131
WHERE belnr = /pws/zycbe119-nrpagto AND
* >> Início da exclusão: FORM EXIBIR_ASSOCIACOES
nrseq_pgfat = /pws/zycbe119-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM EXIBIR_ASSOCIACOES
nrseq_pgfat = /pws/zycbe119-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_zycbt131.
MOVE: /pws/zycbe119-nrpagto TO itab_dados-faturadi.
MOVE: /pws/zycbe119-nrseq TO itab_dados-nrseq_pgfat.
IF itab_zycbt131-mdcorresp = 'IF'.
MOVE: text-058 TO itab_dados-mdcorresp.
ELSEIF itab_zycbt131-mdcorresp = 'IP'.
MOVE: text-056 TO itab_dados-mdcorresp.
ELSEIF itab_zycbt131-mdcorresp = 'IA'.
MOVE: text-057 TO itab_dados-mdcorresp.
ENDIF.
...
...
ELSE.
MESSAGE i061 WITH text-061 /pws/zycbe119-nrseq.
ENDIF.
ENDIF.
ENDFORM.
FORM calcula_moeda_interna.
DATA: v_docto_cont TYPE /pws/zycbt108-belnr_co.
CLEAR: v_vlmeaux,
v_dfact,
v_pfact,
* >> Início da exclusão: FORM CALCULA_MOEDA_INTERNA
v_ctmoeda,
* << Fim da exclusão
v_kursfd.
CLEAR: itab_zycbt009, wa_zycbt007.
REFRESH: itab_zycbt009.
IF v_compra = 'X'.
/pws/zycbe119-ftaxa = 'G'.
ELSEIF v_venda = 'X'.
/pws/zycbe119-ftaxa = 'B'.
ELSEIF v_media = 'X'.
/pws/zycbe119-ftaxa = 'M'.
ENDIF.
...
...
ENDIF.
ENDIF.
IF sy-tcode EQ '/PWS/ZYCB106_C'.
/pws/zycbe119-slpgfat = /pws/zycbe119-vlme.
ELSEIF sy-tcode EQ '/PWS/ZYCB106_A'.
IF /pws/zycbe119-belnr_p IS INITIAL.
CLEAR /pws/zycit006.
SELECT SINGLE * FROM /pws/zycit006 INTO /pws/zycit006
WHERE nrseq = /pws/zycbe119-nrpagto.
IF sy-subrc NE 0.
* >> Início da exclusão: FORM CALCULA_MOEDA_INTERNA
SELECT SINGLE * FROM /pws/zycmt008
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_MOEDA_INTERNA
SELECT *
FROM /pws/zycmt008
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseq EQ /pws/zycbe119-nrseq.
* >> Início da inclusão: FORM CALCULA_MOEDA_INTERNA
ENDSELECT.
* << Fim da inclusão
IF sy-subrc NE 0.
IF /pws/zycbe119-slpgfat LT 0
OR wa_zycbt119-vlme NE /pws/zycbe119-vlme
OR wa_zycbt119-vlme EQ /pws/zycbe119-vlme.
/pws/zycbe119-slpgfat = /pws/zycbe119-vlme.
ENDIF.
...
...
bldat
belnr_as belnr_ori
WHERE nrseq_pgfat = /pws/zycbe119-nrseq.
UPDATE /pws/zycbt108 SET : slfat =
itab_zycbt108_desconto-slfat
belnr_co = itab_zycbt108_desconto-belnr_co
bldat = itab_zycbt108_desconto-bldat
belnr_lq = itab_zycbt108_desconto-belnr_lq
belnr_as = itab_zycbt108_desconto-belnr_as
belnr_ori = itab_zycbt108_desconto-belnr_ori
* >> Início da exclusão: FORM CONTABILIZA_DESCONTOS
WHERE nrseq_pgfat = /pws/zycbe119-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_DESCONTOS
WHERE nrseq_pgfat = /pws/zycbe119-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
COMMIT WORK.
INSERT INTO /pws/zycmt008 VALUES itab_zycmt008.
UPDATE /pws/zycbt119 SET slpgfat = /pws/zycbe119-slpgfat
WHERE nrseq = /pws/zycbe119-nrseq.
COMMIT WORK.
MODIFY itab_zycmt008 TRANSPORTING belnr_des
WHERE nrseq = /pws/zycbe119-nrseq
AND numdesc = v_numdesc.
IF sy-subrc NE 0.
MODIFY itab_zycmt008 TRANSPORTING numdesc belnr_des
...
...
ENDFORM.
FORM get_parameters_descontos.
DATA: v_evento LIKE /pws/zycbt012-codeven.
v_evento = text-078.
CLEAR itab_zyglt321.
REFRESH itab_zyglt321.
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'RCI' AND
codeven = text-078.
* >> Início da exclusão: FORM GET_PARAMETERS_DESCONTOS
SELECT SINGLE * FROM /pws/zycbt011
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_DESCONTOS
SELECT *
FROM /pws/zycbt011
UP TO 1 ROWS
* << Fim da inclusão
INTO wa_zycbt011
WHERE codeven EQ v_evento
AND codmod EQ text-079.
* >> Início da inclusão: FORM GET_PARAMETERS_DESCONTOS
ENDSELECT.
* << Fim da inclusão
SELECT * FROM /pws/zycbt012 INTO TABLE itab_zycbt012
WHERE codeven EQ v_evento
AND codmod EQ text-079.
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
...
...
'SAKNR1'
text-084.
CLEAR: itab_zyglt316.
REFRESH: itab_zyglt316.
ENDFORM.
FORM seleciona_zycbt108.
CLEAR itab_zycbt108_desconto.
REFRESH itab_zycbt108_desconto.
SELECT * FROM /pws/zycbt108
INTO TABLE itab_zycbt108_desconto
* >> Início da exclusão: FORM SELECIONA_ZYCBT108
WHERE nrseq_pgfat = /pws/zycbe119-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_ZYCBT108
WHERE nrseq_pgfat = /pws/zycbe119-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
READ TABLE itab_zycbt108_desconto
WITH KEY nrseq_pgfat = /pws/zycbe119-nrseq.
ENDFORM.
FORM preenche_documento.
itab_zycbt036-tcode = 'F-51'.
itab_zycbt036-tabela = '/PWS/ZYCBT108'.
itab_zycbt036-cpochv = itab_zycbt108_desconto-nrseq_pgfat.
IF itab_zycbt108_desconto-belnr_lq IS INITIAL.
itab_zycbt036-belnr = itab_zycbt108_desconto-belnr_co.
ELSE.
...
...
/pws/zycme008-motivo = itab_zycmt008-motivo.
/pws/zycme008-vldes = itab_zycmt008-vldes.
/pws/zycme008-belnr_des = itab_zycbt032-belnr.
SELECT SINGLE * FROM /pws/zycbt119 INTO /pws/zycbe119
WHERE nrseq EQ itab_zycmt008-nrseq
AND status NE 'E'.
ENDFORM.
FORM executar_estorno_desconto.
SORT itab_zycmt008_excluidos DESCENDING BY numdesc.
LOOP AT itab_zycmt008_excluidos.
* >> Início da exclusão: FORM EXECUTAR_ESTORNO_DESCONTO
SELECT SINGLE * FROM /pws/zycmt008
* << Fim da exclusão
* >> Início da inclusão: FORM EXECUTAR_ESTORNO_DESCONTO
SELECT * FROM /pws/zycmt008
UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseq = itab_zycmt008_excluidos-nrseq
AND numdesc GT itab_zycmt008_excluidos-numdesc.
* >> Início da inclusão: FORM EXECUTAR_ESTORNO_DESCONTO
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0.
MESSAGE i061 WITH text-091 text-089 text-090.
CLEAR itab_zycmt008_excluidos-mark.
MOVE itab_zycmt008_excluidos TO itab_zycmt008.
APPEND itab_zycmt008.
...
...
MODIFY itab_zycbt108_desconto
TRANSPORTING slfat belnr_lq belnr_co
bldat
belnr_as
WHERE nrseq_pgfat = /pws/zycbe119-nrseq.
UPDATE /pws/zycbt108 SET: slfat = itab_zycbt108_desconto-slfat
belnr_co = itab_zycbt108_desconto-belnr_co
bldat = itab_zycbt108_desconto-bldat
belnr_lq = itab_zycbt108_desconto-belnr_lq
belnr_as = itab_zycbt108_desconto-belnr_as
* >> Início da exclusão: FORM ESTORNA_DESCONTOS
WHERE nrseq_pgfat = /pws/zycbe119-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_DESCONTOS
WHERE nrseq_pgfat = /pws/zycbe119-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
DELETE FROM /pws/zycmt008
WHERE nrseq = itab_zycmt008_excluidos-nrseq
AND numdesc = itab_zycmt008_excluidos-numdesc.
UPDATE /pws/zycbt119 SET slpgfat = /pws/zycbe119-slpgfat
WHERE nrseq = /pws/zycbe119-nrseq.
COMMIT WORK.
MODIFY itab_zycmt008 TRANSPORTING belnr_des
WHERE nrseq = /pws/zycbe119-nrseq
AND numdesc = v_numdesc.
PERFORM carrega_zycme008.
...
...
ENDFORM.
FORM get_parameters_estorno.
DATA: v_evento LIKE /pws/zycbt012-codeven.
v_evento = text-078.
CLEAR itab_zyglt321.
REFRESH itab_zyglt321.
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'RCI' AND
codeven = text-078.
* >> Início da inclusão: FORM GET_PARAMETERS_ESTORNO
SELECT *
* << Fim da inclusão
* >> Início da exclusão: FORM GET_PARAMETERS_ESTORNO
SELECT SINGLE * FROM /pws/zycbt011
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_ESTORNO
FROM /pws/zycbt011
UP TO 1 ROWS
* << Fim da inclusão
INTO wa_zycbt011
WHERE codeven EQ v_evento
AND codmod EQ text-079.
* >> Início da inclusão: FORM GET_PARAMETERS_ESTORNO
ENDSELECT.
* << Fim da inclusão
SELECT * FROM /pws/zycbt012 INTO TABLE itab_zycbt012
WHERE codeven EQ v_evento
AND codmod EQ text-079.
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
...
...
MODIFY /pws/zycbt108.
COMMIT WORK.
ENDIF.
ENDIF.
PERFORM seleciona_zycbt108.
ENDFORM.
FORM preenche_dados_contrato.
IF sy-tcode NE 'ZYCB106_C'.
CLEAR /pws/zycbe048.
IF /pws/zycbt064 IS INITIAL.
* >> Início da exclusão: FORM PREENCHE_DADOS_CONTRATO
SELECT SINGLE * FROM /pws/zycbt064 INTO /pws/zycbt064
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_DADOS_CONTRATO
SELECT *
FROM /pws/zycbt064
UP TO 1 ROWS
INTO /pws/zycbt064
* << Fim da inclusão
WHERE nrchave = /pws/zycbe119-nrseq
AND mdcorresp = 'IP'.
* >> Início da inclusão: FORM PREENCHE_DADOS_CONTRATO
ENDSELECT.
* << Fim da inclusão
ENDIF.
* >> Início da exclusão: FORM PREENCHE_DADOS_CONTRATO
SELECT SINGLE * FROM /pws/zycbt048 INTO /pws/zycbe048
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_DADOS_CONTRATO
SELECT * FROM /pws/zycbt048 UP TO 1 ROWS
INTO /pws/zycbe048
* << Fim da inclusão
WHERE nrseq = /pws/zycbt064-nrboleto
AND mdcorresp = 'IP'
AND nrcorresp = /pws/zycbe119-nrseq.
* >> Início da inclusão: FORM PREENCHE_DADOS_CONTRATO
ENDSELECT.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM preenche_tela_0109.
CLEAR: itab_documentos[], itab_zycmt012[].
...
...
datareceb
FROM /pws/zycmt012
INTO TABLE itab_zycmt012
WHERE nrseq EQ /pws/zycbe119-nrseq.
READ TABLE itab_zycmt012 WITH KEY nrseq = /pws/zycbe119-nrseq .
MOVE-CORRESPONDING itab_zycmt012 TO /pws/zycme012.
ENDFORM.
FORM calcula_prorrogacao.
DATA:
v_lin(3) TYPE c,
* >> Início da exclusão: FORM CALCULA_PRORROGACAO
v_date(5),
v_nrline(3).
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_PRORROGACAO
v_date(5),"#EC NEEDED
v_nrline(3)."#EC NEEDED
* << Fim da inclusão
IF sy-dynnr EQ '0111'.
IF v_limp IS INITIAL.
FREE itab_zycmt014.
MOVE 'X' TO v_limp.
ENDIF.
DESCRIBE TABLE itab_zycmt014.
v_nrline = sy-tfill.
itab_zycmt014-dtpror = /pws/zycme014-dtpror.
itab_zycmt014-nrseq = /pws/zycbe119-nrseq.
itab_zycmt014-gsber = /pws/zycbe119-gsber.
...
...
DATA: v_data LIKE sy-datum.
IF v_smdt IS INITIAL.
v_data = /pws/zycbe119-dtvencto.
ELSE.
v_data = v_smdt.
ENDIF.
itab_zycmt014-dtpror = v_data + itab_zycmt014-nrdias.
MODIFY itab_zycmt014 INDEX sy-tabix.
v_smdt = itab_zycmt014-dtpror.
ENDFORM.
* >> Início da exclusão: FORM CALCULA_PRORROG_DEL
FORM calcula_prorrog_del.
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_PRORROG_DEL
FORM calcula_prorrog_del."#EC CALLED
* << Fim da inclusão
IF v_smdt IS INITIAL.
itab_zycmt014_del-dtpror = /pws/zycbe119-dtvencto +
itab_zycmt014_del-nrdias.
ELSE.
itab_zycmt014_del-dtpror = v_smdt + itab_zycmt014_del-nrdias.
ENDIF.
MODIFY itab_zycmt014_del INDEX sy-tabix.
v_smdt = itab_zycmt014_del-dtpror.
ENDFORM.
FORM ver_alter_prorrog.
...
...
sy-subrc = 4.
IF v_alterou EQ 'X'.
sy-subrc = 0.
ENDIF.
ENDFORM.
FORM grava_dias_cond_pagto.
DATA: v_zterm LIKE bsik-zterm,
v_zbd1t LIKE bsik-zbd1t,
v_belnr LIKE bkpf-belnr,
v_buzei LIKE bseg-buzei,
* >> Início da exclusão: FORM GRAVA_DIAS_COND_PAGTO
v_ztag1 LIKE t052-ztag1,
* << Fim da exclusão
v_data LIKE bkpf-budat.
CHECK NOT itab_zycmt014[] IS INITIAL OR
NOT itab_zycmt014_del[] IS INITIAL.
CLEAR itab_zycmt014_del.
REFRESH itab_zycmt014_del.
PERFORM clear_date_batch.
IF /pws/zycbt108-belnr_lq IS INITIAL.
v_belnr = /pws/zycbt108-belnr_co.
v_data = /pws/zycbe119-dtincl.
ELSE.
v_belnr = /pws/zycbt108-belnr_lq.
* >> Início da exclusão: FORM GRAVA_DIAS_COND_PAGTO
SELECT SINGLE dtassoc
* << Fim da exclusão
* >> Início da inclusão: FORM GRAVA_DIAS_COND_PAGTO
SELECT dtassoc
* << Fim da inclusão
FROM /pws/zycbt131
* >> Início da inclusão: FORM GRAVA_DIAS_COND_PAGTO
UP TO 1 ROWS
* << Fim da inclusão
INTO v_data
WHERE mdcorresp = 'IP' AND
nrseq = /pws/zycbe119-nrseq AND
bukrs = /pws/zycbe119-bukrs.
* >> Início da inclusão: FORM GRAVA_DIAS_COND_PAGTO
ENDSELECT.
* << Fim da inclusão
IF sy-subrc NE 0.
CLEAR v_belnr.
ENDIF.
ENDIF.
CHECK v_belnr NE ' ' AND
v_belnr NE '0000000000'.
* >> Início da inclusão: FORM GRAVA_DIAS_COND_PAGTO
SELECT buzei zterm zbd1t
* << Fim da inclusão
* >> Início da exclusão: FORM GRAVA_DIAS_COND_PAGTO
SELECT SINGLE buzei zterm zbd1t
* << Fim da exclusão
FROM bsik
* >> Início da inclusão: FORM GRAVA_DIAS_COND_PAGTO
UP TO 1 ROWS
* << Fim da inclusão
INTO (v_buzei, v_zterm, v_zbd1t)
WHERE belnr = v_belnr AND
bukrs = /pws/zycbe119-bukrs AND
gjahr = v_data(4) AND
shkzg = 'H'.
* >> Início da inclusão: FORM GRAVA_DIAS_COND_PAGTO
ENDSELECT.
* << Fim da inclusão
CHECK sy-subrc EQ 0.
v_zbd1t = v_zbd1t + v_pror.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = 'FB02'.
itab_zycbe033-tabela = '/PWS/ZYCBT119'.
itab_zycbe033-cpochv = /pws/zycbe119-nrpagto.
itab_zycbe033-bukrs = /pws/zycbe119-bukrs.
itab_zycbe033-gjahs = v_data(4).
itab_zycbe033-belnr = v_belnr.
itab_zycbe033-ebene = v_buzei+1(2).
...
...
/pws/zycbe119-ftaxa = 'G'.
ELSEIF v_venda = 'X'.
/pws/zycbe119-ftaxa = 'B'.
ELSEIF v_media = 'X'.
/pws/zycbe119-ftaxa = 'M'.
ENDIF.
ENDIF.
ENDFORM.
FORM verifica_exit USING p_modulo
p_func
* >> Início da exclusão: FORM VERIFICA_EXIT
p_exit.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_EXIT
p_exit."#EC *
* << Fim da inclusão
CLEAR itab_zyglt100.
REFRESH itab_zyglt100.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = p_modulo
i_func = p_func
i_zexit = p_exit
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
* >> Início da exclusão: FORM VERIFICA_EXIT
OTHERS = 4.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_EXIT
OTHERS = 4."#EC *
* << Fim da inclusão
IF sy-subrc NE 0.
IF sy-subrc EQ 1.
ELSEIF sy-subrc EQ 2.
ELSEIF sy-subrc EQ 3.
ELSE.
ENDIF.
ENDIF.
ENDFORM.
FORM verifica_prorrogacao.
DATA v_nrdias TYPE i.
...
...
EXPORTING
i_codmod = 'I'
i_func = v_repid
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 BUSCA_EXIT
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
READ TABLE itab_zyglt100 WITH KEY zexit = 'PAG003'.
IF sy-subrc EQ 0.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
ENDFORM.
FORM verifica_conta_resultado.
DATA: v_ktopl TYPE t001-ktopl.
LOOP AT itab_zycmt008_excluidos.
v_vldes = v_vldes + itab_zycmt008_excluidos-vldes.
ENDLOOP.
IF v_vldes EQ /pws/zycbe119-vlme.
SELECT SINGLE ktopl FROM t001 INTO v_ktopl
WHERE bukrs = /pws/zycbe119-bukrs.
SELECT * FROM ska1 INTO TABLE itab_ska1
* >> Início da exclusão: FORM VERIFICA_CONTA_RESULTADO
WHERE ktopl = v_ktopl.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_CONTA_RESULTADO
WHERE ktopl = v_ktopl."#EC CI_SGLSELECT
* << Fim da inclusão
SELECT * FROM /pws/zyglt316 INTO TABLE itab_zyglt316
WHERE bukrs = /pws/zycbe119-bukrs
AND ktosl = 'RCI'.
LOOP AT itab_zycmt008_excluidos.
READ TABLE itab_zyglt316 WITH KEY
codaux1 = itab_zycmt008_excluidos-motivo.
READ TABLE itab_ska1 WITH KEY
saknr = itab_zyglt316-konts.
IF itab_ska1-xbilk EQ ' '.
v_conta_resultado = 'X'.
...
...
ENDIF.
MODIFY itab_zycbt108_desconto
TRANSPORTING slfat belnr_lq belnr_co
bldat belnr_as
WHERE nrseq_pgfat = /pws/zycbe119-nrseq.
UPDATE /pws/zycbt108 SET: slfat = itab_zycbt108_desconto-slfat
belnr_co = itab_zycbt108_desconto-belnr_co
bldat = itab_zycbt108_desconto-bldat
belnr_lq = itab_zycbt108_desconto-belnr_lq
belnr_as = itab_zycbt108_desconto-belnr_as
* >> Início da exclusão: FORM ESTORNA_DESCONTOS_CR
WHERE nrseq_pgfat = /pws/zycbe119-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_DESCONTOS_CR
WHERE nrseq_pgfat = /pws/zycbe119-nrseq. "#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_zycmt008_excluidos.
DELETE FROM /pws/zycmt008
WHERE nrseq = itab_zycmt008_excluidos-nrseq
AND numdesc = itab_zycmt008_excluidos-numdesc.
ENDLOOP.
REFRESH itab_zycmt008_excluidos.
UPDATE /pws/zycbt119 SET slpgfat = /pws/zycbe119-slpgfat
WHERE nrseq = /pws/zycbe119-nrseq.
COMMIT WORK.
MODIFY itab_zycmt008 TRANSPORTING belnr_des
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB106I01
MODULE user_exit_0100 INPUT.
PERFORM unlock_record.
LEAVE PROGRAM.
ENDMODULE.
MODULE user_command_0100 INPUT.
* >> Início da exclusão: MODULE USER_COMMAND_0100
DATA: e_subrc LIKE sy-subrc,
e_exec_okcode.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
DATA: e_subrc LIKE sy-subrc.
* << Fim da inclusão
* >> Início da exclusão: MODULE USER_COMMAND_0100
CLEAR: r_okcode, e_exec_okcode, v_syrepid.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0100
CLEAR: r_okcode,
v_syrepid.
* << Fim da inclusão
CALL METHOD cl_gui_cfw=>dispatch.
IF NOT r_okcode IS INITIAL.
ok_code = r_okcode.
ENDIF.
CLEAR itab_zyglt100.
IF itab_zyglt100[] IS INITIAL.
v_syrepid = sy-repid.
CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
EXPORTING
i_codmod = 'I'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* >> Início da inclusão: MODULE USER_COMMAND_0100
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'FAT001' BINARY SEARCH.
IF sy-subrc EQ 0.
IF NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa)
USING ok_code
CHANGING e_subrc.
IF e_subrc NE 0.
EXIT.
...
...
CASE ok_code.
WHEN 'CS'.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCBE119-BELNR_P'.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = v_valor
IMPORTING
output = i_belnr
EXCEPTIONS
* >> Início da exclusão: MODULE VISUALIZA_DOCUMENTO
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: MODULE VISUALIZA_DOCUMENTO
OTHERS = 0.
* << Fim da inclusão
IF NOT wa_zycbt119-dtpagto IS INITIAL AND
NOT wa_zycbt119-dtpagto EQ ' '.
* >> Início da exclusão: MODULE VISUALIZA_DOCUMENTO
SELECT SINGLE nrboleto FROM /pws/zycbt064
* << Fim da exclusão
* >> Início da inclusão: MODULE VISUALIZA_DOCUMENTO
SELECT nrboleto FROM /pws/zycbt064
UP TO 1 ROWS
* << Fim da inclusão
INTO /pws/zycbt064-nrboleto
WHERE mdcorresp = 'IP'
AND nrchave = /pws/zycbe119-nrseq.
* >> Início da inclusão: MODULE VISUALIZA_DOCUMENTO
ENDSELECT.
* << Fim da inclusão
IF sy-subrc = 0.
SELECT SINGLE cod_fech FROM /pws/zycbt145
INTO /pws/zycbt145-cod_fech
WHERE nrseq = /pws/zycbt064-nrboleto.
IF sy-subrc = 0.
* >> Início da exclusão: MODULE VISUALIZA_DOCUMENTO
SELECT SINGLE dtlanc FROM /pws/zycbt134
* << Fim da exclusão
* >> Início da inclusão: MODULE VISUALIZA_DOCUMENTO
SELECT dtlanc FROM /pws/zycbt134
UP TO 1 ROWS
* << Fim da inclusão
INTO /pws/zycbt134-dtlanc
WHERE nrseq = /pws/zycbt064-nrboleto.
* >> Início da inclusão: MODULE VISUALIZA_DOCUMENTO
ENDSELECT.
* << Fim da inclusão
IF /pws/zycbt145-cod_fech = 'TR' OR sy-subrc = 0.
v_data = wa_zycbt119-dtpagto.
ELSE.
v_data = /pws/zycbe108-bldat.
ENDIF.
ENDIF.
ENDIF.
ELSE.
CLEAR /pws/zycbt131-dtassoc.
* >> Início da exclusão: MODULE VISUALIZA_DOCUMENTO
SELECT SINGLE dtassoc FROM /pws/zycbt131
* << Fim da exclusão
* >> Início da inclusão: MODULE VISUALIZA_DOCUMENTO
SELECT dtassoc FROM /pws/zycbt131
UP TO 1 ROWS
* << Fim da inclusão
INTO /pws/zycbt131-dtassoc
WHERE nrseq_pgfat = /pws/zycbe119-nrseq
* >> Início da exclusão: MODULE VISUALIZA_DOCUMENTO
AND belnr_rfat = i_belnr.
* << Fim da exclusão
* >> Início da inclusão: MODULE VISUALIZA_DOCUMENTO
AND belnr_rfat = i_belnr. "#EC CI_NOFIRST
ENDSELECT.
* << Fim da inclusão
IF sy-subrc = 0 AND NOT /pws/zycbt131-dtassoc IS INITIAL.
...
...
MESSAGE e261(sf) WITH 'FB03'.
ENDIF.
ENDIF.
IF v_campo EQ '/PWS/ZYCBE108-BELNR_CO'.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = v_valor
IMPORTING
output = i_belnr
EXCEPTIONS
* >> Início da exclusão: MODULE VISUALIZA_DOCUMENTO
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: MODULE VISUALIZA_DOCUMENTO
OTHERS = 0.
* << Fim da inclusão
IF /pws/zycbe108-bldat NE ' ' AND
/pws/zycbe108-bldat NE '00000000'.
SELECT SINGLE * FROM bkpf
WHERE bukrs = wa_zycbt119-bukrs
AND belnr = i_belnr
AND gjahr = /pws/zycbe108-bldat(4).
ELSE.
SELECT SINGLE * FROM bkpf
WHERE bukrs = wa_zycbt119-bukrs
AND belnr = i_belnr
...
...
ENDIF.
ENDIF.
ENDIF.
IF v_campo EQ '/PWS/ZYCBE119-BELNR51'.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = v_valor
IMPORTING
output = i_belnr
EXCEPTIONS
* >> Início da exclusão: MODULE VISUALIZA_DOCUMENTO
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: MODULE VISUALIZA_DOCUMENTO
OTHERS = 0.
* << Fim da inclusão
SELECT SINGLE * FROM bkpf
WHERE bukrs = /pws/zycbe119-bukrs
AND belnr = i_belnr
AND gjahr = wa_zycbt119-dtpagto(4).
IF sy-subrc EQ 0.
SET PARAMETER ID 'BUK' FIELD /pws/zycbe119-bukrs.
SET PARAMETER ID 'BLN' FIELD i_belnr.
SET PARAMETER ID 'GJR' FIELD wa_zycbt119-dtpagto.
AUTHORITY-CHECK OBJECT 'S_TCODE'
ID 'TCD' FIELD 'FB03'.
...
...
CASE ok_code.
WHEN 'CS'.
GET CURSOR FIELD v_campo VALUE v_valor.
IF v_campo EQ '/PWS/ZYCME008-BELNR_DES'.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = v_valor
IMPORTING
output = i_belnr
EXCEPTIONS
* >> Início da exclusão: MODULE USER_COMMAND_0108
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0108
OTHERS = 0.
* << Fim da inclusão
IF /pws/zycbe108-bldat NE ' ' AND
/pws/zycbe108-bldat NE '00000000'.
SELECT SINGLE * FROM bkpf
WHERE bukrs = wa_zycbt119-bukrs
AND belnr = i_belnr
AND gjahr = /pws/zycbe108-bldat(4).
ELSE.
SELECT SINGLE * FROM bkpf
WHERE bukrs = wa_zycbt119-bukrs
AND belnr = i_belnr
...
...
DATA: wa_dd03l LIKE dd03l.
DATA: BEGIN OF itab_dd07t OCCURS 5.
INCLUDE STRUCTURE dd07t.
DATA: END OF itab_dd07t.
DATA: tablename LIKE dd03l-tabname,
fieldname LIKE dd03l-fieldname.
SPLIT p_objeto AT '-' INTO tablename fieldname.
IF sy-subrc NE 0.
EXIT.
ENDIF.
* >> Início da exclusão: FORM PEGA_DESCRICAO_DOMINIO
SELECT SINGLE *
* << Fim da exclusão
* >> Início da inclusão: FORM PEGA_DESCRICAO_DOMINIO
SELECT *
* << Fim da inclusão
FROM dd03l
* >> Início da inclusão: FORM PEGA_DESCRICAO_DOMINIO
UP TO 1 ROWS
* << Fim da inclusão
INTO wa_dd03l
WHERE ( tabname = tablename AND
fieldname = fieldname ).
* >> Início da inclusão: FORM PEGA_DESCRICAO_DOMINIO
ENDSELECT.
* << Fim da inclusão
IF sy-subrc EQ 0.
SELECT * FROM dd07t
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.
* >> Início da exclusão: FORM PEGA_DESCRICAO_DOMINIO
IF p_valor GE itab_dd07t-domval_ld AND
p_valor LE itab_dd07t-domval_hd.
* << Fim da exclusão
* >> Início da inclusão: FORM PEGA_DESCRICAO_DOMINIO
IF p_valor GE itab_dd07t-domval_ld AND "#EC PORTABLE
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.
MODULE seta_machcode INPUT.
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
EXPORTING
tabname = '/PWS/ZYCBE119'
fieldname = 'NRSEQ'
searchhelp = '/PWS/ZYCBA162'
display = ' '
TABLES
return_tab = itab_result
EXCEPTIONS
OTHERS = 5.
* >> Início da inclusão: MODULE SETA_MACHCODE
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
/pws/zycbe119-nrseq = itab_result-fieldval.
ENDMODULE.
MODULE carrega_itab_zycmt014 INPUT.
PERFORM calcula_prorrogacao.
ENDMODULE.
MODULE user_command_0111 INPUT.
PERFORM grava_prorrogacoes.
CASE ok_code.
WHEN 'SAVE'.
PERFORM salvar_zycmt014.
...
...
IF NOT itab_zycmt020[] IS INITIAL.
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
defaultoption = 'N'
textline1 = text-109
textline2 = text-111
titel = text-110
IMPORTING
answer = v_answer
EXCEPTIONS
* >> Início da exclusão: MODULE CONSISTE_MATERIAL
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_MATERIAL
OTHERS = 0.
* << Fim da inclusão
CASE v_answer.
WHEN 'J'.
CLEAR itab_zycmt020.
REFRESH itab_zycmt020.
WHEN OTHERS.
IF NOT /pws/zycmt019-tpmatnr IS INITIAL.
MOVE /pws/zycmt019-tpmatnr TO /pws/zycbe119-codint.
ENDIF.
ENDCASE.
ENDIF.
...
...
CALL FUNCTION 'ME_DISPLAY_PURCHASE_DOCUMENT'
EXPORTING
i_ebeln = v_valor1
i_enjoy = 'X'
EXCEPTIONS
not_found = 1
no_authority = 2
invalid_call = 3
preview_not_possible = 4
OTHERS = 5.
* >> Início da inclusão: MODULE USER_COMMAND_0113
if sy-subrc = 0.
else.
endif.
* << Fim da inclusão
ENDIF.
ENDCASE.
ENDMODULE.
MODULE exit_command_0113 INPUT.
LEAVE TO SCREEN 0.
ENDMODULE.
MODULE altera_zycmt020 INPUT.
MOVE mark TO itab_zycmt020-mark.
MODIFY itab_zycmt020 INDEX tc_pgto-current_line.
ENDMODULE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB106O01
...
INTO /pws/zyglt214
WHERE codnorma = /pws/zycbe119-codnorma.
IF sy-subrc EQ 0.
norma = /pws/zyglt214-norma.
ELSE.
CLEAR norma.
ENDIF.
SELECT SINGLE * FROM /pws/zycit006 WHERE nrseq =
/pws/zycbe119-nrpagto.
IF sy-subrc = 0.
* >> Início da exclusão: MODULE LOAD_DADOS
SELECT SINGLE nrdi FROM /pws/zycit085 INTO (/pws/zycbe119-nrdi)
WHERE nrbl = /pws/zycit006-nrseqce.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DADOS
SELECT nrdi FROM /pws/zycit085 UP TO 1 ROWS
INTO (/pws/zycbe119-nrdi)
WHERE nrbl = /pws/zycit006-nrseqce."#EC CI_NOFIELD
ENDSELECT.
* << Fim da inclusão
IF sy-subrc = 0.
wa_zycbt119-nrdi = /pws/zycbe119-nrdi.
ENDIF.
ENDIF.
ENDMODULE.
MODULE preenche_default OUTPUT.
IF sy-tcode EQ '/PWS/ZYCB106_C'.
/pws/zycbe119-fcambio = 'S'.
ENDIF.
PERFORM enche_dados_cp.
PERFORM preenche_dados_contrato.
PERFORM preenche_tela_0109.
IF sy-tcode NE '/PWS/ZYCB106_C'.
* >> Início da exclusão: MODULE PREENCHE_DEFAULT
SELECT SINGLE * FROM /pws/zycbt064
* << Fim da exclusão
* >> Início da inclusão: MODULE PREENCHE_DEFAULT
SELECT * FROM /pws/zycbt064 UP TO 1 ROWS
* << Fim da inclusão
WHERE nrchave = /pws/zycbe119-nrseq
AND mdcorresp = 'IP'.
* >> Início da inclusão: MODULE PREENCHE_DEFAULT
ENDSELECT.
* << Fim da inclusão
IF sy-subrc = 0.
* >> Início da exclusão: MODULE PREENCHE_DEFAULT
SELECT SINGLE * FROM /pws/zycbt134
* << Fim da exclusão
* >> Início da inclusão: MODULE PREENCHE_DEFAULT
SELECT * FROM /pws/zycbt134 UP TO 1 ROWS
* << Fim da inclusão
WHERE nrseq = /pws/zycbt064-nrboleto.
* >> Início da inclusão: MODULE PREENCHE_DEFAULT
ENDSELECT.
* << Fim da inclusão
IF sy-subrc = 0 AND NOT /pws/zycbt134-belnr_c IS INITIAL.
/pws/zycbe119-belnr_p = /pws/zycbt134-belnr_c.
ENDIF.
ENDIF.
ENDIF.
ENDMODULE.
...
...
IF sy-dynnr EQ '0104' .
v_cod_grupo = 'CCO'.
ELSEIF sy-dynnr EQ '0112'.
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.
...
...
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/MZYCB106TOP
PROGRAM /pws/sapmzycb020 MESSAGE-ID /pws/zycmm.
INCLUDE /pws/zygli100.
DATA: itab_zyglt100 LIKE /pws/zyglt100 OCCURS 0 WITH HEADER LINE.
INCLUDE /pws/zygli101.
* >> Início da exclusão:
DATA v_tela_help LIKE sy-dynnr VALUE '0052'.
* << Fim da exclusão
* >> Início da inclusão:
DATA v_tela_help LIKE sy-dynnr VALUE '0052'."#EC NEEDED
* << Fim da inclusão
TABLES:
t16fb,
/pws/zyglt214,
/pws/zycbt007,
/pws/zycbt031,
/pws/zycbt039,
/pws/zycbt111,
/pws/zycbt145,
* >> Início da exclusão:
/pws/zycmt008,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycmt008,"#EC NEEDED
* << Fim da inclusão
/pws/zycmt009,
/pws/zycme008,
/pws/zycme014,
/pws/zycit093,
/pws/zycit094,
/pws/zycmt019,
/pws/zycme020,
lfa1,
bkpf,
tcurt,
* >> Início da exclusão:
indx,
* << Fim da exclusão
/pws/zygle500,
/pws/zyglt364.
DATA: BEGIN OF itab_zycbt009 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt009.
DATA: END OF itab_zycbt009.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycbt119_aux OCCURS 0.
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF itab_zycbt119_aux OCCURS 0."#EC NEEDED
* << Fim da inclusão
INCLUDE STRUCTURE /pws/zycbt119.
DATA: END OF itab_zycbt119_aux.
DATA: BEGIN OF itab_zycbt119_cp OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt119.
DATA: END OF itab_zycbt119_cp.
DATA: BEGIN OF itab_zycbt123 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt123.
DATA: mark(1) TYPE c.
DATA: END OF itab_zycbt123.
DATA: BEGIN OF itab_zycbt123_cp OCCURS 0.
...
...
DATA: BEGIN OF itab_zycbt123_del OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt123.
DATA: END OF itab_zycbt123_del.
DATA: BEGIN OF itab_zycbt115 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt115.
DATA: mark(1) TYPE c.
DATA: END OF itab_zycbt115.
DATA: BEGIN OF itab_zycbt115_cp OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt115.
DATA: END OF itab_zycbt115_cp.
* >> Início da exclusão:
DATA: BEGIN OF itab2_zycbt123 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt123.
DATA: END OF itab2_zycbt123.
DATA: BEGIN OF itab2_zycbt115 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt115.
DATA: END OF itab2_zycbt115.
* << Fim da exclusão
* >> Início da inclusão:
data itab2_zycbt123 like /pws/zycbt123 occurs 0."#EC NEEDED
data: itab2_zycbt115 like /pws/zycbt115 occurs 0."#EC NEEDED
* << Fim da inclusão
DATA: BEGIN OF itab_zycbt115_del OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt115.
DATA: END OF itab_zycbt115_del.
DATA: BEGIN OF itab_pf_status OCCURS 10,
fcode LIKE rsmpe-func,
END OF itab_pf_status.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycbt119_dd OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt119.
DATA: END OF itab_zycbt119_dd.
* << Fim da exclusão
* >> Início da inclusão:
data: itab_zycbt119_dd like /pws/zycbt119 occurs 0."#EC NEEDED
* << Fim da inclusão
DATA: BEGIN OF itab_zycmt014 OCCURS 0.
INCLUDE STRUCTURE /pws/zycmt014.
DATA: mark(1).
DATA: END OF itab_zycmt014.
DATA: BEGIN OF itab_zycmt014_ant OCCURS 0.
INCLUDE STRUCTURE /pws/zycmt014.
DATA: mark(1).
DATA: END OF itab_zycmt014_ant.
DATA: BEGIN OF itab_zycmt014_cp OCCURS 0.
INCLUDE STRUCTURE /pws/zycmt014.
...
...
nrseq LIKE /pws/zycmt012-nrseq,
usersol LIKE /pws/zycmt012-usersol,
dtasol LIKE /pws/zycmt012-dtasol,
horasol LIKE /pws/zycmt012-horasol,
userrec LIKE /pws/zycmt012-userrec,
dtarec LIKE /pws/zycmt012-dtarec,
horarec LIKE /pws/zycmt012-horarec,
datasolic LIKE /pws/zycmt012-datasolic,
datareceb LIKE /pws/zycmt012-datareceb,
END OF itab_zycmt012.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycmt014_pror OCCURS 0.
INCLUDE STRUCTURE /pws/zycmt014.
DATA: END OF itab_zycmt014_pror.
* << Fim da exclusão
* >> Início da inclusão:
data: itab_zycmt014_pror like /pws/zycmt014 occurs 0.
* << Fim da inclusão
DATA: itab_zycit126 LIKE /pws/zycit126 OCCURS 100 WITH HEADER LINE.
DATA: itab_zycbt131 LIKE /pws/zycbt131 OCCURS 100 WITH HEADER LINE.
DATA: BEGIN OF itab_zycmt008 OCCURS 0.
INCLUDE STRUCTURE /pws/zycmt008.
DATA: vldif LIKE /pws/zycmt008-vldes,
mark(1) TYPE c.
DATA: END OF itab_zycmt008.
DATA: BEGIN OF itab_zycmt008_excluidos OCCURS 0.
INCLUDE STRUCTURE /pws/zycmt008.
DATA: vldif LIKE /pws/zycmt008-vldes,
...
...
INCLUDE STRUCTURE /pws/zycit130.
DATA : END OF itab_zycit130t .
DATA: BEGIN OF itab_modo OCCURS 0.
INCLUDE STRUCTURE spopli.
DATA: END OF itab_modo.
DATA:
itab_zycbt034 LIKE /pws/zycbt034 OCCURS 10 WITH HEADER LINE,
itab_zycbt032 LIKE /pws/zycbt032 OCCURS 10 WITH HEADER LINE,
itab_zycbe033 LIKE /pws/zycbe033 OCCURS 10 WITH HEADER LINE,
itab_zycbt013 LIKE /pws/zycbt013 OCCURS 10 WITH HEADER LINE,
* >> Início da inclusão:
itab_zycbt012 LIKE /pws/zycbt012
OCCURS 10 WITH HEADER LINE,"#EC NEEDED
* << Fim da inclusão
* >> Início da exclusão:
itab_zycbt012 LIKE /pws/zycbt012 OCCURS 10 WITH HEADER LINE,
* << Fim da exclusão
itab_zyglt321 LIKE /pws/zyglt321 OCCURS 10 WITH HEADER LINE.
TYPES: BEGIN OF msg_struc,
tcode LIKE bdcmsgcoll-tcode,
dyname LIKE bdcmsgcoll-dyname,
dynumb LIKE bdcmsgcoll-dynumb,
msgtyp LIKE bdcmsgcoll-msgtyp,
msgspra LIKE bdcmsgcoll-msgspra,
msgid LIKE bdcmsgcoll-msgid,
msgnr LIKE bdcmsgcoll-msgnr,
msgv1 LIKE balm-msgv1,
...
...
DATA: BEGIN OF itab_zyglt316 OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt316.
DATA: END OF itab_zyglt316.
DATA: BEGIN OF itab_result OCCURS 0.
INCLUDE STRUCTURE ddshretval.
DATA: END OF itab_result.
DATA: BEGIN OF itab_zycmt020 OCCURS 0.
INCLUDE STRUCTURE /pws/zycmt020.
DATA: mark(1) TYPE c.
DATA: END OF itab_zycmt020.
* >> Início da exclusão:
DATA: BEGIN OF itab_zycmt020_cp OCCURS 0.
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF itab_zycmt020_cp OCCURS 0."#EC *
* << Fim da inclusão
INCLUDE STRUCTURE /pws/zycmt020.
DATA: mark(1) TYPE c.
DATA: END OF itab_zycmt020_cp.
DATA: BEGIN OF itab_ekpo OCCURS 0.
INCLUDE STRUCTURE ekpo.
DATA: END OF itab_ekpo.
DATA wa_ekko LIKE ekko.
DATA: BEGIN OF empresa OCCURS 0,
sign(1) TYPE c,
option(2) TYPE c,
...
...
tc_deduc TYPE TABLEVIEW USING SCREEN '0106',
tc_desc TYPE TABLEVIEW USING SCREEN '0108',
tc_pror TYPE TABLEVIEW USING SCREEN '0111',
tc_pgto TYPE TABLEVIEW USING SCREEN '0113'.
DATA:
wa_zyglt009 LIKE /pws/zyglt009,
wa_tcurx LIKE tcurx.
DATA:
v_ano(02) TYPE c,
v_conta_resultado(1) TYPE c,
* >> Início da exclusão:
v_konts TYPE /pws/zyglt316-konts,
* << Fim da exclusão
v_vldes TYPE /pws/zycmt008-vldes,
v_boleto TYPE c,
v_nrboleto LIKE /pws/zycbe031-nrseq,
v_nrseq LIKE /pws/zycbe121-nrseq,
v_nrseq1 LIKE /pws/zycbe121-nrseq,
v_exibe LIKE /pws/zycbe121-nrseq,
v_obrig LIKE /pws/zyglt009-infotext,
v_status_s VALUE '1',
v_negociador LIKE t012-bankl,
v_flag_exito TYPE c VALUE space,
...
...
v_back(1) TYPE c VALUE 'S',
v_campo1(22) TYPE c,
v_valor1 LIKE ekko-ebeln,
v_comissao LIKE /pws/zycit126-perccomis,
v_control TYPE i,
v_flagtrans,
v_faturadi,
v_numdesc TYPE i.
DATA: v_vlmeaux LIKE /pws/zycbt112-vlme,
v_dfact LIKE tcurr-ffact,
* >> Início da exclusão:
v_pfact LIKE tcurr-ffact,
v_ctmoeda LIKE tcurr-kurst.
* << Fim da exclusão
* >> Início da inclusão:
v_pfact LIKE tcurr-ffact.
* << Fim da inclusão
DATA:
* >> Início da exclusão:
i_looplines TYPE i,
* << Fim da exclusão
* >> Início da inclusão:
i_looplines TYPE i,"#EC NEEDED
* << Fim da inclusão
wa_cols TYPE cxtab_column,
v_nrdias(4) TYPE c,
v_taxacambial LIKE /pws/zycbt119-kursf,
...
...
v_compra,
v_venda,
v_media,
moeda LIKE tcurt-ltext,
fornecedor LIKE lfa1-name1,
corretora LIKE lfa1-name1,
modalidade LIKE /pws/zycbt111-descricao,
v_origem TYPE c,
v_valor(20),
i_belnr LIKE bkpf-belnr,
* >> Início da exclusão:
v_adto,
* << Fim da exclusão
* >> Início da inclusão:
v_adto,"#EC NEEDED
* << Fim da inclusão
v_line TYPE i,
v_acm_deduc LIKE /pws/zycit130-montante,
markd(1),
v_campo(25),
v_kursfd LIKE /pws/zycbt119-kursf,
v_modo_bi,
norma LIKE /pws/zyglt214-norma,
txtmodalidade(12) TYPE c,
v_nao_salva(1) TYPE c.
* >> Início da exclusão:
DATA: v_dtvencto LIKE sy-datum,
* << Fim da exclusão
* >> Início da inclusão:
DATA: v_dtvencto LIKE sy-datum,"#EC NEEDED
* << Fim da inclusão
mark(1),
v_limp(1) TYPE c,
v_smdt LIKE sy-datum.
DATA: v_nome_campo(35) TYPE c,
v_comp(35) TYPE c,
v_cod_grupo LIKE /pws/zyglt320-cod_grupo,
wa_zycbe119_aux LIKE /pws/zycbe119,
v_subrc LIKE sy-subrc,
v_reg TYPE i,
v_tcode LIKE sy-tcode,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB106X01
...
/pws/zycbt119,
/pws/zycbe119,
/pws/zycbt108,
/pws/zycbe108,
/pws/zycbt115,
/pws/zycbe115,
/pws/zycbt123,
/pws/zycbe123,
/pws/zycit001,
/pws/zycit006,
* >> Início da exclusão:
/pws/zycit085,
/pws/zycit126,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycit085,"#EC *
/pws/zycit126,"#EC *
* << Fim da inclusão
/pws/zycit130,
/pws/zycie130,
/pws/zycbt134,
/pws/zycmt014,
/pws/zycmt012,
/pws/zycme012,
/pws/zycbt131.
* >> Início da exclusão:
DATA: BEGIN OF COMMON PART d.
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF COMMON PART d."#EC PART_OK
* << Fim da inclusão
* >> Início da exclusão:
DATA: BEGIN OF itab_zycbt119 OCCURS 0.
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF itab_zycbt119 OCCURS 0."#EC NEEDED
* << Fim da inclusão
INCLUDE STRUCTURE /pws/zycbt119.
DATA: END OF itab_zycbt119.
data:
ok_code LIKE sy-ucomm.
DATA: wa_zycbt119 LIKE /pws/zycbt119,
wa_zycbt007 LIKE /pws/zycbt007,
wa_zycbt011 LIKE /pws/zycbt011,
wa_zycbt031a LIKE /pws/zycbe031,
* >> Início da exclusão:
wa_zycit006 LIKE /pws/zycit006,
wa_zycbt064 LIKE /pws/zycbt064.
* << Fim da exclusão
* >> Início da inclusão:
wa_zycit006 LIKE /pws/zycit006.
* << Fim da inclusão
DATA: END OF COMMON PART.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBI102
* >> 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_selreg OCCURS 100,
flag TYPE c,
mod(15) TYPE c,
nrchave(10) TYPE c,
docto(10) TYPE c,
tab(30) TYPE c,
tpparc LIKE /pws/zycbt113-tpparc,
nrparc LIKE /pws/zycbt113-nrparc,
tipo(30) TYPE c,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB104
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 001
Texto: (14 caracteres)
"Conta do Banco"
Comprimento máximo: 14
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 002
Texto: (8 caracteres)
"Montante"
Comprimento máximo: 8
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 003
Texto: (9 caracteres)
"Tipo doc."
Comprimento máximo: 9
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 004
Texto: (5 caracteres)
"Moeda"
Comprimento máximo: 5
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 005
Texto: (7 caracteres)
"Empresa"
Comprimento máximo: 7
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 006
Texto: (20 caracteres)
"Salvar modificações?"
Comprimento máximo: 20
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 007
Texto: (13 caracteres)
"Data Inclusão"
Comprimento máximo: 13
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 009
Texto: (50 caracteres)
"Deseja criar novo documento sem estornar anterior?"
Comprimento máximo: 50
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 012
Texto: (16 caracteres)
"Registro gravado"
Comprimento máximo: 16
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 013
Texto: (43 caracteres)
"Será utilizada a cotação de compra de moeda"
Comprimento máximo: 43
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 014
Texto: (36 caracteres)
"O valor prevalecerá sobre a cotação."
Comprimento máximo: 36
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 016
Texto: (11 caracteres)
"estrangeira"
Comprimento máximo: 11
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 019
Texto: (25 caracteres)
"Valor Pagto Ant. excede o"
Comprimento máximo: 25
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 020
Texto: (18 caracteres)
"valor do pedido em"
Comprimento máximo: 18
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 021
Texto: (33 caracteres)
"Este pagamento não possui boleto."
Comprimento máximo: 33
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 022
Texto: (60 caracteres)
"Favor informar o valor da porcentagem da comissão do agente."
Comprimento máximo: 60
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 023
Texto: (23 caracteres)
"Favor informar o Banco."
Comprimento máximo: 23
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 027
Texto: (29 caracteres)
"Nenhuma comissão foi marcada."
Comprimento máximo: 29
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 034
Texto: (45 caracteres)
"Valor ultrapassa o Valor do Pedido de Compra."
Comprimento máximo: 45
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 054
Texto: (35 caracteres)
"O Campo Fecha Câmbio é Obrigatório."
Comprimento máximo: 35
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 068
Texto: (27 caracteres)
"Deseja salvar modificações?"
Comprimento máximo: 27
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 069
Texto: (19 caracteres)
"Salvar modificações"
Comprimento máximo: 19
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 070
Texto: (1 caracteres)
"X"
Comprimento máximo: 1
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 071
Texto: (20 caracteres)
"Pagamento Antecipado"
Comprimento máximo: 20
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 072
Texto: (10 caracteres)
"IMPORTAÇÃO"
Comprimento máximo: 10
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB106
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 063
Texto: (20 caracteres)
"Fatura de Importação"
Comprimento máximo: 26
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 073
Texto: (23 caracteres)
"inexistente ou excluída"
Comprimento máximo: 23