CE PLUS - Nota 005803
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Relatórios
Data/Hora da Publicação: 31/01/2008 00:00:00
Data/Hora Última Alteração: 03/03/2010 17:29:15
Descrição da Nota: VERIFICAÇÃO AMPLIADA, CODE INSPECTOR CAMBIO FINACEIRO
Sintoma
performance e sintaxe
Solução
verificaçao ampliada e code inspector
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05803 Data: 31/01/2008 Hora: 08:40:49
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05803
Categoria : Melhoria
Prioridade : Baixa
Versão PW.CE : 7.0
Pacote : 00004
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
Texto Rápido:
VERIFICAÇÃO AMPLIADA, CODE INSPECTOR CAMBIO FINACEIRO
----------------------------------------------------------------------------------------------------
Palavras Chave:
VERIFICAÇÃO AMPLIADA, CODE INSPECTOR CAMBIO FINACEIRO
----------------------------------------------------------------------------------------------------
Objetos da nota:
CUAD /PWS/SAPMZYCA109
DOCU NA/PWS/ZYCAM037
DOCU NA/PWS/ZYCAM062
DOCU NA/PWS/ZYCAM248
DOCU NA/PWS/ZYCAM257
DOCU NA/PWS/ZYCAM258
DOCU NA/PWS/ZYCAM262
DOCU NA/PWS/ZYCAM279
DOCU NA/PWS/ZYCAM280
DOCU NA/PWS/ZYCBM060
DYNP /PWS/SAPMZYCA109 0004
RELE F6DK957355 20080130 115255 PWSCB
REPS /PWS/MZYCA109F01
REPS /PWS/MZYCA109I01
REPS /PWS/MZYCA109O01
REPS /PWS/MZYCA109TOP
REPS /PWS/MZYCA109X01
REPT /PWS/SAPMZYCA109
----------------------------------------------------------------------------------------------------
Modificações efetuadas em CUAD /PWS/SAPMZYCA109
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOCU NA/PWS/ZYCAM037
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOCU NA/PWS/ZYCAM062
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOCU NA/PWS/ZYCAM248
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOCU NA/PWS/ZYCAM257
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOCU NA/PWS/ZYCAM258
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOCU NA/PWS/ZYCAM262
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOCU NA/PWS/ZYCAM279
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOCU NA/PWS/ZYCAM280
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOCU NA/PWS/ZYCBM060
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCA109 0004
----------------------------------------------------------------------------------------------------
Modificações efetuadas em RELE F6DK957355 20080130 115255 PWSCB
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA109F01
FORM administrar_processo.
DATA: e_subrc LIKE sy-subrc,
* >> Início da exclusão: FORM ADMINISTRAR_PROCESSO
e_exec_okcode,
* << Fim da exclusão
v_associado(1) TYPE c.
* >> Início da exclusão: FORM ADMINISTRAR_PROCESSO
CLEAR: r_okcode, e_exec_okcode, v_syrepid.
* << Fim da exclusão
* >> Início da inclusão: FORM ADMINISTRAR_PROCESSO
CLEAR: r_okcode,
v_syrepid.
* << Fim da inclusão
CALL METHOD cl_gui_cfw=>dispatch.
IF NOT r_okcode IS INITIAL.
...
...
EXPORTING
i_codmod = 'F'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* >> Início da inclusão: FORM ADMINISTRAR_PROCESSO
if sy-subrc = 0 .
else.
endif.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'REM001' 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.
...
...
popup_title = text-115
start_column = 10
start_row = 3
text_object = '/PWS/SAPMZYCA109_TXT'
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE i015 WITH text-116.
ENDIF.
* >> Início da exclusão: FORM ADMINISTRAR_PROCESSO
........................................................................
* << Fim da exclusão
WHEN 'ESTR'.
IF /pws/zycbe124-estrat IS INITIAL.
MESSAGE i061 WITH text-141.
ELSE.
CALL SCREEN 0500 STARTING AT 26 3 ENDING AT 80 15.
ENDIF.
ENDCASE.
ENDFORM.
FORM salvar_dados.
CLEAR: erro_bi_principal, erro_bi_irrf, erro_bi_cide, erro_bi_pis,
...
...
EXPORTING
i_codmod = 'F'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* >> Início da inclusão: FORM SALVAR_DADOS
if sy-subrc = 0 .
else.
endif.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'REM004' 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.
...
...
/pws/zycbe115, wa_zycbt115.
ENDIF.
ENDIF.
ENDFORM.
FORM excluir_dados.
DATA: v_resp.
SELECT * FROM /pws/zycbt118 INTO TABLE itab_zycbt118
WHERE nrref = v_nrseq
AND dtpagto <> '00000000'
AND status <> 'E'
* >> Início da exclusão: FORM EXCLUIR_DADOS
AND codmodul = 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUIR_DADOS
AND codmodul = 'F'."#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc = 0.
MESSAGE s015 WITH text-065 text-066.
ELSE.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
text_question = text-064
text_button_1 = text-061
icon_button_1 = 'ICON_OKAY'
text_button_2 = text-062
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 EXCLUIR_DADOS
if sy-subrc = 0 .
else.
endif.
* << Fim da inclusão
IF v_resp EQ 1.
LOOP AT itab_zycat025_aux WHERE NOT belnr_pr IS initial.
EXIT.
ENDLOOP.
IF NOT /pws/zycbe124-belnr IS INITIAL OR
sy-subrc = 0.
CLEAR: erro_bi_principal, erro_bi_irrf, erro_bi_cide,
erro_bi_pis, erro_bi_cofins, erro_bi_iof, erro_bi_iss.
PERFORM efetua_estorno.
ENDIF.
...
...
erro_bi_cide IS INITIAL AND
erro_bi_pis IS INITIAL AND
erro_bi_cofins IS INITIAL AND
erro_bi_iof IS INITIAL AND
erro_bi_iss IS INITIAL.
PERFORM exclui_despesas.
DELETE FROM /pws/zycbt124 WHERE nrseq = /pws/zycbe124-nrseq.
IF sy-subrc = 0.
DELETE /pws/zycbt127 FROM wa_zycbt127.
DELETE FROM /pws/zycbt141 WHERE nrseq = /pws/zycbe124-nrseq.
* >> Início da exclusão: FORM EXCLUIR_DADOS
DELETE FROM /pws/zycat025 WHERE nrseq = /pws/zycbe124-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUIR_DADOS
DELETE FROM /pws/zycat025 WHERE
nrseq = /pws/zycbe124-nrseq."#EC CI_NOFIRST
* << Fim da inclusão
PERFORM exclui_dados_bancarios.
MESSAGE i015 WITH text-006.
CLEAR: /pws/zycbe124, /pws/zycbe127, itab_zycbt118.
REFRESH: itab_zycbt118.
PERFORM unlock_record.
LEAVE TO SCREEN 0.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
...
...
v_count(8) TYPE n,
v_ano(3).
CONCATENATE '%' sy-datum+2(2) INTO v_ano.
SELECT MAX( nrseq ) INTO (v_nrseq) FROM /pws/zycbt124
WHERE nrseq LIKE v_ano.
v_count = v_nrseq+0(8) + 1.
CONCATENATE v_count sy-datum+2(2) INTO /pws/zycbe124-nrseq.
v_nrseqview = /pws/zycbe124-nrseq.
ENDFORM.
FORM popup_message USING value(p_textline1)
* >> Início da exclusão: FORM POPUP_MESSAGE
value(p_title).
* << Fim da exclusão
* >> Início da inclusão: FORM POPUP_MESSAGE
value(p_title)."#EC *
* << Fim da inclusão
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
defaultoption = 'Y'
textline1 = p_textline1
titel = p_title
IMPORTING
answer = v_answer
EXCEPTIONS
* >> Início da exclusão: FORM POPUP_MESSAGE
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM POPUP_MESSAGE
OTHERS = 0."#EC *
* << Fim da inclusão
ENDFORM.
FORM altera_dados.
DATA: v_existe VALUE 'N'.
IF /pws/zycbe124-status IS INITIAL.
/pws/zycbe124-status = 'I'.
ELSE.
/pws/zycbe124-status = 'A'.
v_status_s = '0'.
ENDIF.
IF NOT /pws/zycbe124-kursf IS INITIAL.
...
...
ELSE.
LEAVE PROGRAM.
ENDIF.
ENDIF.
ENDFORM.
FORM consiste_valores.
IF v_trans NE 'S'.
w_vlr = 'N'.
wa_vlme = ( /pws/zycbe127-vlesp + vtot_tcs ).
IF /pws/zycbe124-vlme <> wa_vlme AND NOT /pws/zycbe127 IS INITIAL.
* >> Início da exclusão: FORM CONSISTE_VALORES
MESSAGE s011(pc) WITH text-004.
* << Fim da exclusão
* >> Início da inclusão: FORM CONSISTE_VALORES
MESSAGE s088(sf) WITH text-004.
* << Fim da inclusão
ELSE.
w_vlr = 'S'.
ENDIF.
ELSE.
w_vlr = 'S'.
ENDIF.
ENDFORM.
FORM habilitar_campos.
IF v_status_s = '0' OR v_trans = 'E'.
LOOP AT SCREEN.
...
...
IF /pws/zycbe124-recrem IS INITIAL.
EXIT.
ENDIF.
IF /pws/zycbe124-tpoper = 'R'.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = /pws/zycbe124-recrem
IMPORTING
output = v_kunnr
EXCEPTIONS
* >> Início da exclusão: FORM BUSCA_CLIFOR
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_CLIFOR
OTHERS = 0.
* << Fim da inclusão
SELECT SINGLE kunnr name1
INTO (kna1-kunnr, kna1-name1)
FROM kna1
WHERE kunnr EQ v_kunnr.
IF sy-subrc NE 0.
IF ok_code EQ 'SAVE'.
MESSAGE e015 WITH text-017.
ELSE.
MESSAGE i015 WITH text-017.
ENDIF.
...
...
ELSE.
v_nome = kna1-name1.
ENDIF.
ELSEIF /pws/zycbe124-tpoper = 'P'.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = /pws/zycbe124-recrem
IMPORTING
output = v_lifnr
EXCEPTIONS
* >> Início da exclusão: FORM BUSCA_CLIFOR
OTHERS = 1.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_CLIFOR
OTHERS = 0.
* << Fim da inclusão
SELECT SINGLE lifnr name1
INTO (lfa1-lifnr, lfa1-name1)
FROM lfa1
WHERE lifnr EQ v_lifnr.
IF sy-subrc NE 0.
IF ok_code EQ 'SAVE'.
MESSAGE e015 WITH text-017.
ELSE.
MESSAGE i015 WITH text-017.
ENDIF.
...
...
SELECT MAX( nrseq ) INTO (v_nrseq) FROM /pws/zycbt124
WHERE nrseq LIKE v_ano.
v_count = v_nrseq+0(8) + 1.
CONCATENATE v_count sy-datum+2(2) INTO /pws/zycbe124-nrseq.
/pws/zycbt115-nrcorrep = /pws/zycbe124-nrseq.
IF /pws/zycbe127 <> wa_zycbt127.
/pws/zycbe127-nrseq = /pws/zycbe124-nrseq.
ENDIF.
ENDFORM.
FORM chama_boleto.
* >> Início da inclusão: FORM CHAMA_BOLETO
SELECT *
* << Fim da inclusão
* >> Início da exclusão: FORM CHAMA_BOLETO
SELECT SINGLE * FROM /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: FORM CHAMA_BOLETO
FROM /pws/zycbt031
up to 1 rows
* << Fim da inclusão
INTO wa_zycbt031a
WHERE bukrs = /pws/zycbe124-bukrs
AND mdcorresp = 'CP'
AND nrcorresp = /pws/zycbe124-nrseq
AND tabela = '/PWS/ZYCBT124'.
* >> Início da inclusão: FORM CHAMA_BOLETO
endselect.
* << Fim da inclusão
IF sy-subrc NE 0.
* >> Início da exclusão: FORM CHAMA_BOLETO
SELECT SINGLE * FROM /pws/zycbt064
* << Fim da exclusão
* >> Início da inclusão: FORM CHAMA_BOLETO
SELECT *
FROM /pws/zycbt064
up to 1 rows
* << Fim da inclusão
INTO /pws/zycbt064
WHERE mdcorresp = 'CP'
AND nrchave = /pws/zycbe124-nrseq.
* >> Início da inclusão: FORM CHAMA_BOLETO
endselect.
* << Fim da inclusão
IF sy-subrc = 0.
* >> Início da exclusão: FORM CHAMA_BOLETO
SELECT SINGLE * FROM /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: FORM CHAMA_BOLETO
SELECT *
FROM /pws/zycbt031
up to 1 rows
* << Fim da inclusão
INTO wa_zycbt031a
WHERE nrseq = /pws/zycbt064-nrboleto
AND mdcorresp = 'CP'
AND tabela = '/PWS/ZYCBT124'.
* >> Início da inclusão: FORM CHAMA_BOLETO
endselect.
* << Fim da inclusão
ENDIF.
ENDIF.
IF sy-subrc EQ 0.
...
...
ENDIF.
CLEAR: v_assoc,
v_empresa,
v_divisao,
v_txtinf,
v_codmod.
FREE MEMORY ID '001'.
ENDFORM.
FORM exclui_despesas.
DELETE FROM /pws/zycbt118 WHERE nrref = v_nrseq
* >> Início da exclusão: FORM EXCLUI_DESPESAS
AND codmodul = 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM EXCLUI_DESPESAS
AND codmodul = 'F'."#EC CI_NOFIELD
* << Fim da inclusão
ENDFORM.
FORM verifica_despesa.
DATA v_answer_aux.
IF sy-tcode = '/PWS/ZYCB109_C'.
SELECT * FROM /pws/zycbt118 INTO TABLE itab_zycbt118
WHERE nrref = v_nrseq
* >> Início da exclusão: FORM VERIFICA_DESPESA
AND codmodul = 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_DESPESA
AND codmodul = 'F'."#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc = 0.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
text_question = text-063
text_button_1 = text-061
icon_button_1 = 'ICON_OKAY'
text_button_2 = text-062
icon_button_2 = 'ICON_CANCEL'
display_cancel_button = ' '
IMPORTING
answer = v_answer_aux
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
* >> Início da inclusão: FORM VERIFICA_DESPESA
if sy-subrc = 0 .
else.
endif.
* << Fim da inclusão
IF v_answer_aux = '1'.
DELETE FROM /pws/zycbt118 WHERE nrref = v_nrseq
* >> Início da exclusão: FORM VERIFICA_DESPESA
AND codmodul = 'F'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_DESPESA
AND codmodul = 'F'."#EC CI_NOFIELD
* << Fim da inclusão
IF sy-subrc = 0.
MESSAGE i015 WITH text-067.
...
...
ENDFORM.
FORM unlock_record.
IF sy-tcode = '/PWS/ZYCB109_A' OR
sy-tcode = '/PWS/ZYCB109_C'.
CALL FUNCTION '/PWS/ZYCA_DEQUEUE_ZYCBT124'
EXPORTING
nrseq = v_nrseq.
ENDIF.
ENDFORM.
FORM preenche_campos.
* >> Início da exclusão: FORM PREENCHE_CAMPOS
DATA: BEGIN OF itab_zycbt048 OCCURS 10,
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CAMPOS
DATA: BEGIN OF itab_zycbt048 OCCURS 10,"#EC *
* << Fim da inclusão
nrcontr LIKE /pws/zycbt048-nrcontr,
dtcontr LIKE /pws/zycbt048-dtcontr,
END OF itab_zycbt048.
* >> Início da inclusão: FORM PREENCHE_CAMPOS
SELECT nrboleto
* << Fim da inclusão
* >> Início da exclusão: FORM PREENCHE_CAMPOS
SELECT SINGLE nrboleto FROM /pws/zycbt064 INTO v_nrboleto
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CAMPOS
FROM /pws/zycbt064
up to 1 rows
INTO v_nrboleto
* << Fim da inclusão
WHERE nrchave = v_nrseq
AND mdcorresp = 'CP'.
* >> Início da inclusão: FORM PREENCHE_CAMPOS
endselect.
* << Fim da inclusão
IF sy-subrc = 0.
* >> Início da exclusão: FORM PREENCHE_CAMPOS
SELECT SINGLE bcooper FROM /pws/zycbt031 INTO /pws/zycbe124-bcofech
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CAMPOS
SELECT bcooper
FROM /pws/zycbt031
up to 1 rows
INTO /pws/zycbe124-bcofech
* << Fim da inclusão
WHERE nrseq = v_nrboleto.
* >> Início da inclusão: FORM PREENCHE_CAMPOS
endselect.
* << Fim da inclusão
* >> Início da exclusão: FORM PREENCHE_CAMPOS
SELECT SINGLE nrcontr dtcontr FROM /pws/zycbt048 INTO itab_zycbt048
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CAMPOS
SELECT nrcontr dtcontr
FROM /pws/zycbt048
up to 1 rows
INTO itab_zycbt048
* << Fim da inclusão
WHERE nrseq = v_nrboleto
AND mdcorresp = 'CP'
AND nrcorresp = /pws/zycbe124-nrseq.
* >> Início da inclusão: FORM PREENCHE_CAMPOS
endselect.
* << Fim da inclusão
MOVE: itab_zycbt048-nrcontr TO /pws/zycbe124-nrcontr,
itab_zycbt048-dtcontr TO /pws/zycbe124-dtcontr.
ELSE.
* >> Início da exclusão: FORM PREENCHE_CAMPOS
SELECT SINGLE nrseq FROM /pws/zycbt031 INTO v_nrboleto
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CAMPOS
SELECT nrseq
FROM /pws/zycbt031
up to 1 rows
INTO v_nrboleto
* << Fim da inclusão
WHERE nrcorresp = v_nrseq
AND mdcorresp = 'CP'.
* >> Início da inclusão: FORM PREENCHE_CAMPOS
endselect.
* << Fim da inclusão
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM PREENCHE_CAMPOS
SELECT SINGLE nrcontr dtcontr FROM /pws/zycbt048
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CAMPOS
SELECT nrcontr dtcontr
FROM /pws/zycbt048
up to 1 rows
* << Fim da inclusão
INTO itab_zycbt048
WHERE nrseq = v_nrboleto
AND mdcorresp = 'CP'
AND nrcorresp = /pws/zycbe124-nrseq.
* >> Início da inclusão: FORM PREENCHE_CAMPOS
endselect.
* << Fim da inclusão
MOVE: itab_zycbt048-nrcontr TO /pws/zycbe124-nrcontr,
itab_zycbt048-dtcontr TO /pws/zycbe124-dtcontr.
ENDIF.
ENDIF.
* >> Início da exclusão: FORM PREENCHE_CAMPOS
SELECT SINGLE * FROM /pws/zycbt064
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CAMPOS
SELECT *
FROM /pws/zycbt064
up to 1 rows
* << Fim da inclusão
WHERE nrchave = /pws/zycbe124-nrseq
AND mdcorresp = 'CP'.
* >> Início da inclusão: FORM PREENCHE_CAMPOS
endselect.
* << Fim da inclusão
IF sy-subrc = 0.
SELECT SINGLE belnr_c dtlanc FROM /pws/zycbt134
INTO (/pws/zycbe134-belnr_c,v_dtlancp)
WHERE nrseq = /pws/zycbt064-nrboleto
AND belnr_c NE ' '
AND belnr_c NE '0000000000'
AND ( tpproc EQ ' '
* >> Início da exclusão: FORM PREENCHE_CAMPOS
OR tpproc EQ 'PRINCIPAL' ).
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CAMPOS
OR tpproc EQ 'PRINCIPAL' )."#EC *
* << Fim da inclusão
IF sy-subrc NE 0 AND /pws/zycbe124-tpoper = 'R'.
* >> Início da exclusão: FORM PREENCHE_CAMPOS
SELECT SINGLE belnr_p dtcredpr FROM /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CAMPOS
SELECT belnr_p dtcredpr
FROM /pws/zycbt031
up to 1 rows
* << Fim da inclusão
INTO (/pws/zycbe134-belnr_c,v_dtlancp)
WHERE nrseq = /pws/zycbt064-nrboleto
AND belnr_p NE ' '
AND belnr_p NE '0000000000'.
* >> Início da inclusão: FORM PREENCHE_CAMPOS
endselect.
* << Fim da inclusão
ENDIF.
SELECT SINGLE belnr_ci dtlanc FROM /pws/zycbt134
INTO (/pws/zycbe134-belnr_ci,v_dtlancir)
WHERE nrseq = /pws/zycbt064-nrboleto
AND belnr_ci NE ' '
AND belnr_ci NE '0000000000'
AND ( tpproc EQ 'I'
* >> Início da exclusão: FORM PREENCHE_CAMPOS
OR tpproc LIKE 'IRRF%' ).
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CAMPOS
OR tpproc LIKE 'IRRF%' )."#EC *
* << Fim da inclusão
SELECT SINGLE belnr_cide dtlanc FROM /pws/zycbt134
INTO (/pws/zycbe134-belnr_cide, v_dtlanccide)
WHERE nrseq = /pws/zycbt064-nrboleto
AND belnr_cide NE ' '
AND belnr_cide NE '0000000000'
AND ( tpproc EQ 'C'
* >> Início da exclusão: FORM PREENCHE_CAMPOS
OR tpproc LIKE 'CIDE%' ).
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_CAMPOS
OR tpproc LIKE 'CIDE%' )."#EC *
* << Fim da inclusão
ENDIF.
IF /pws/zycbe124-criacao NE 'S' AND /pws/zycbe124-vlmi IS INITIAL.
/pws/zycbe124-vlmi = /pws/zycbe124-vlme * /pws/zycbe124-kursf.
ENDIF.
ENDFORM.
FORM trata_impostos.
IF /pws/zycbe124-tpoper = 'R'.
IF /pws/zycbe124-pcide <> space
OR /pws/zycbe124-aliqir <> space
OR /pws/zycbe124-vlir <> space
...
...
AND screen-name = '/PWS/ZYCBE124-VLBASIOF'.
screen-input = '1'.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
ENDFORM.
FORM tpoper_search.
DATA: descricao(100) TYPE c,
v_oper TYPE c.
* >> Início da exclusão: FORM TPOPER_SEARCH
SELECT SINGLE descricao FROM /pws/zycbt125 INTO descricao
* << Fim da exclusão
* >> Início da inclusão: FORM TPOPER_SEARCH
SELECT descricao
FROM /pws/zycbt125
up to 1 rows
INTO descricao
* << Fim da inclusão
WHERE codpagto = /pws/zycbe124-codpagto.
* >> Início da exclusão: FORM TPOPER_SEARCH
SELECT SINGLE tpoper FROM /pws/zycbt125 INTO v_oper
* << Fim da exclusão
* >> Início da inclusão: FORM TPOPER_SEARCH
endselect.
SELECT tpoper
FROM /pws/zycbt125
up to 1 rows
INTO v_oper
* << Fim da inclusão
WHERE codpagto = /pws/zycbe124-codpagto.
* >> Início da inclusão: FORM TPOPER_SEARCH
endselect.
* << Fim da inclusão
IF /pws/zycbe124-tpoper <> v_oper AND
NOT /pws/zycbe124-codpagto IS INITIAL.
IF /pws/zycbe124-tpoper EQ 'P'.
MESSAGE i015 WITH text-034.
ELSEIF /pws/zycbe124-tpoper EQ 'R'.
MESSAGE i015 WITH text-035.
...
...
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-081.
PERFORM chama_documento.
ENDIF.
ELSEIF answer = 'A'.
EXIT.
ENDIF.
IF NOT nrseq IS INITIAL.
...
...
itab_zycat025[] = itab_zycat025_aux[].
itab_zycbt141_p[] = itab_zycbt141_p_aux3[].
itab_zycbt141_i[] = itab_zycbt141_i_aux[].
v_status_s = '0'.
EXIT.
ELSE.
EXIT.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM CHECA_BOLETO
SELECT *
* << Fim da inclusão
* >> Início da exclusão: FORM CHECA_BOLETO
SELECT SINGLE * FROM /pws/zycbt064
* << Fim da exclusão
* >> Início da inclusão: FORM CHECA_BOLETO
FROM /pws/zycbt064
up to 1 rows
* << Fim da inclusão
WHERE mdcorresp = 'CP'
AND nrchave = /pws/zycbe124-nrseq.
* >> Início da inclusão: FORM CHECA_BOLETO
endselect.
* << Fim da inclusão
IF sy-subrc EQ 0.
MESSAGE i015 WITH text-071.
ENDIF.
IF sy-subrc <> 0 AND v_status_s = '1'.
v_status_s = '0'.
...
...
icon_button_1 = 'ICON_OKAY'
text_button_2 = text-062
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_processa = 'X'.
MODIFY /pws/zycbt124 FROM /pws/zycbe124.
PERFORM gera_boleto.
ELSE.
MESSAGE e279.
ENDIF.
ELSE.
...
...
empresa-sign = 'I'.
empresa-option = 'EQ'.
empresa-low = /pws/zycbe124-bukrs.
APPEND empresa.
EXPORT empresa TO MEMORY ID 'E001'.
SUBMIT /pws/zycbr102 WITH cfinan EQ 'X' WITH data EQ v_dtvencto
AND RETURN.
SET PARAMETER ID '/PWS/ZYCBP001' FIELD limpaid.
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 = 'CP'.
* >> Início da inclusão: FORM RETORNA_PROCESSA
endselect.
* << Fim da inclusão
IF sy-subrc = 0.
v_status_s = 0.
ENDIF.
ENDFORM.
FORM texto_informativo.
...
...
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM.
FORM verifica_erro_pbo_0300.
IF NOT wa_zycbt031a IS INITIAL.
v_aux = wa_zycbt031a-dtboleto(4).
CONCATENATE wa_zycbt031a-dtboleto+4(2) v_aux INTO v_aux.
CONCATENATE wa_zycbt031a-dtboleto+6(2) v_aux INTO v_aux.
IF v_status_s = 0.
* >> Início da exclusão: FORM VERIFICA_ERRO_PBO_0300
SELECT SINGLE * FROM /pws/zycbt048 INTO /pws/zycbe048
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ERRO_PBO_0300
SELECT *
FROM /pws/zycbt048
up to 1 rows
INTO /pws/zycbe048
* << Fim da inclusão
WHERE nrseq = wa_zycbt031a-nrseq
AND dtboleto = wa_zycbt031a-dtboleto
AND mdcorresp = 'CP'
AND nrcorresp = /pws/zycbe124-nrseq.
* >> Início da inclusão: FORM VERIFICA_ERRO_PBO_0300
endselect.
* << Fim da inclusão
IF sy-subrc <> '0'.
MESSAGE w015 WITH text-080.
ENDIF.
ENDIF.
ELSE.
wa_zycbt031 = /pws/zycbe031.
v_aux = wa_zycbt031-dtboleto(4).
CONCATENATE wa_zycbt031-dtboleto+4(2) v_aux INTO v_aux.
CONCATENATE wa_zycbt031-dtboleto+6(2) v_aux INTO v_aux.
IF v_status_s = 0.
* >> Início da exclusão: FORM VERIFICA_ERRO_PBO_0300
SELECT SINGLE * FROM /pws/zycbt048 INTO /pws/zycbe048
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ERRO_PBO_0300
SELECT *
FROM /pws/zycbt048
up to 1 rows
INTO /pws/zycbe048
* << Fim da inclusão
WHERE nrseq = wa_zycbt031-nrseq
AND dtboleto = wa_zycbt031-dtboleto
AND mdcorresp = 'CP'
AND nrcorresp = /pws/zycbe124-nrseq.
* >> Início da inclusão: FORM VERIFICA_ERRO_PBO_0300
endselect.
* << Fim da inclusão
IF sy-subrc <> '0'.
MESSAGE w015 WITH text-080.
ENDIF.
...
...
INTO v_descricao_natoper
WHERE codigo = /pws/zycbe048-codnatoper.
IF sy-subrc NE 0.
CLEAR v_descricao_natoper.
ENDIF.
ELSE.
CLEAR v_descricao_natoper.
ENDIF.
ENDFORM.
FORM salva_adicionais.
* >> Início da exclusão: FORM SALVA_ADICIONAIS
SELECT SINGLE * FROM /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_ADICIONAIS
SELECT *
FROM /pws/zycbt031
up to 1 rows
* << Fim da inclusão
INTO /pws/zycbe031
WHERE bukrs = /pws/zycbe124-bukrs
AND mdcorresp = 'CP'
AND nrcorresp = /pws/zycbe124-nrseq
AND tabela = '/PWS/ZYCBT124'.
* >> Início da inclusão: FORM SALVA_ADICIONAIS
endselect.
* << Fim da inclusão
IF v_status_s = 0.
IF /pws/zycbe031-mdcorresp EQ 'EL' AND /pws/zycbt017-parvw EQ 'CG'.
...
...
UPDATE /pws/zycbt031 SET corret = /pws/zycbe031-corret
WHERE nrseq = /pws/zycbe031-nrseq AND
dtboleto = /pws/zycbe031-dtboleto AND
bukrs = /pws/zycbe031-bukrs.
MESSAGE i015 WITH text-077.
LEAVE TO SCREEN 0.
ENDIF.
ENDIF.
ENDFORM.
FORM seleciona_zycbt017.
* >> Início da inclusão: FORM SELECIONA_ZYCBT017
SELECT * FROM /pws/zycbt017
* << Fim da inclusão
* >> Início da exclusão: FORM SELECIONA_ZYCBT017
SELECT SINGLE * FROM /pws/zycbt017
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_ZYCBT017
up to 1 rows
* << Fim da inclusão
WHERE nrinvoic = /pws/zycbe031-nrinvoic AND
gsberf = /pws/zycbe031-gsberf.
* >> Início da inclusão: FORM SELECIONA_ZYCBT017
endselect.
* << Fim da inclusão
ENDFORM.
FORM seleciona_zycbt031.
* >> Início da exclusão: FORM SELECIONA_ZYCBT031
SELECT SINGLE * FROM /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_ZYCBT031
SELECT * FROM /pws/zycbt031
up to 1 rows
* << Fim da inclusão
INTO /pws/zycbe031
WHERE bukrs = /pws/zycbe124-bukrs
AND mdcorresp = 'CP'
AND nrcorresp = /pws/zycbe124-nrseq
AND tabela = '/PWS/ZYCBT124'.
* >> Início da inclusão: FORM SELECIONA_ZYCBT031
endselect.
* << Fim da inclusão
ENDFORM.
FORM seleciona_zycbt048.
IF sy-tcode NE '/PWS/ZYCB109_C'.
* >> Início da exclusão: FORM SELECIONA_ZYCBT048
SELECT SINGLE * FROM /pws/zycbt048 INTO /pws/zycbe048
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_ZYCBT048
SELECT * FROM /pws/zycbt048
up to 1 rows
INTO /pws/zycbe048
* << Fim da inclusão
WHERE nrseq = /pws/zycbe031-nrseq
AND dtboleto = /pws/zycbe031-dtboleto
AND mdcorresp = 'CP'
AND nrcorresp = /pws/zycbe124-nrseq.
* >> Início da inclusão: FORM SELECIONA_ZYCBT048
endselect.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM dados_bancarios.
...
...
EXPORTING
bukrs = /pws/zycbe124-bukrs
ktosl = 'DSF'
codaux1 = /pws/zycbe124-codpagto
TABLES
account = itab_zyglt316
EXCEPTIONS
key_not_found = 1
rules_not_found = 2
OTHERS = 3.
* >> Início da inclusão: FORM TRATA_CONTABILIZACAO
if sy-subrc = 0 .
else.
endif.
* << Fim da inclusão
DELETE ADJACENT DUPLICATES FROM itab_zyglt316 COMPARING konts.
ELSEIF /pws/zycbe124-tpoper = 'R'.
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = /pws/zycbe124-bukrs
ktosl = 'RCF'
codaux1 = /pws/zycbe124-codpagto
TABLES
account = itab_zyglt316
EXCEPTIONS
key_not_found = 1
rules_not_found = 2
OTHERS = 3.
* >> Início da inclusão: FORM TRATA_CONTABILIZACAO
if sy-subrc = 0 .
else.
endif.
* << Fim da inclusão
DELETE ADJACENT DUPLICATES FROM itab_zyglt316 COMPARING konth.
ENDIF.
DESCRIBE TABLE itab_zyglt316 LINES v_linha.
IF v_linha = 1.
itab_zycbt141-vlremessa = /pws/zycbe124-vlme.
READ TABLE itab_zyglt316 INDEX 1.
IF /pws/zycbe124-tpoper = 'P'.
itab_zycbt141-saknr1 = itab_zyglt316-konts.
ELSEIF /pws/zycbe124-tpoper = 'R'.
itab_zycbt141-saknr1 = itab_zyglt316-konth.
...
...
ENDFORM.
FORM get_parameters_f63_f02 USING p_tpimp.
SELECT SINGLE * FROM /pws/zycbt007
WHERE bukrs EQ /pws/zycbe124-bukrs.
SELECT SINGLE * FROM /pws/zycbt089
WHERE bukrs EQ /pws/zycbe124-bukrs.
SELECT SINGLE * FROM /pws/zyglt009
WHERE bukrs EQ /pws/zycbe124-bukrs.
IF /pws/zycbe124-tpoper = 'P'.
IF p_tpimp = 'PRINCIPAL'.
* >> Início da exclusão: FORM GET_PARAMETERS_F63_F02
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F63_F02
SELECT *
FROM /pws/zycbt011
up to 1 rows
INTO wa_zycbt011
* << Fim da inclusão
WHERE codeven = '004P'
AND codmod = 'F'.
* >> Início da inclusão: FORM GET_PARAMETERS_F63_F02
endselect.
* << Fim da inclusão
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'DSF'
AND codeven = '004P'.
ELSEIF p_tpimp(4) = 'IRRF'.
* >> Início da exclusão: FORM GET_PARAMETERS_F63_F02
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F63_F02
SELECT *
FROM /pws/zycbt011
up to 1 rows
INTO wa_zycbt011
* << Fim da inclusão
WHERE codeven = '004I'
AND codmod = 'F'.
* >> Início da inclusão: FORM GET_PARAMETERS_F63_F02
endselect.
* << Fim da inclusão
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'DSF'
AND codeven = '004I'.
ELSEIF p_tpimp(4) = 'CIDE'.
* >> Início da exclusão: FORM GET_PARAMETERS_F63_F02
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F63_F02
SELECT *
FROM /pws/zycbt011
up to 1 rows
INTO wa_zycbt011
* << Fim da inclusão
WHERE codeven = '004C'
AND codmod = 'F'.
* >> Início da inclusão: FORM GET_PARAMETERS_F63_F02
endselect.
* << Fim da inclusão
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'DSF'
AND codeven = '004C'.
ELSEIF p_tpimp(3) = 'IOF'.
* >> Início da exclusão: FORM GET_PARAMETERS_F63_F02
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F63_F02
SELECT *
FROM /pws/zycbt011
up to 1 rows
INTO wa_zycbt011
* << Fim da inclusão
WHERE codeven = '004IF'
AND codmod = 'F'.
* >> Início da inclusão: FORM GET_PARAMETERS_F63_F02
endselect.
* << Fim da inclusão
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'DSF'
AND codeven = '004IF'.
ELSEIF p_tpimp(3) = 'ISS'.
* >> Início da exclusão: FORM GET_PARAMETERS_F63_F02
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F63_F02
SELECT *
FROM /pws/zycbt011
up to 1 rows
INTO wa_zycbt011
* << Fim da inclusão
WHERE codeven = '004IS'
AND codmod = 'F'.
* >> Início da inclusão: FORM GET_PARAMETERS_F63_F02
endselect.
* << Fim da inclusão
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'DSF'
AND codeven = '004IS'.
ELSEIF p_tpimp(3) = 'PIS'.
* >> Início da exclusão: FORM GET_PARAMETERS_F63_F02
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F63_F02
SELECT *
FROM /pws/zycbt011
up to 1 rows
INTO wa_zycbt011
* << Fim da inclusão
WHERE codeven = '004PI'
AND codmod = 'F'.
* >> Início da inclusão: FORM GET_PARAMETERS_F63_F02
endselect.
* << Fim da inclusão
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'DSF'
AND codeven = '004PI'.
ELSEIF p_tpimp(6) = 'COFINS'.
* >> Início da exclusão: FORM GET_PARAMETERS_F63_F02
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F63_F02
SELECT *
FROM /pws/zycbt011
up to 1 rows
INTO wa_zycbt011
* << Fim da inclusão
WHERE codeven = '004CO'
AND codmod = 'F'.
* >> Início da inclusão: FORM GET_PARAMETERS_F63_F02
endselect.
* << Fim da inclusão
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'DSF'
AND codeven = '004CO'.
ENDIF.
ELSEIF /pws/zycbe124-tpoper = 'R'.
* >> Início da exclusão: FORM GET_PARAMETERS_F63_F02
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
* << Fim da exclusão
* >> Início da inclusão: FORM GET_PARAMETERS_F63_F02
SELECT *
FROM /pws/zycbt011
up to 1 rows
INTO wa_zycbt011
* << Fim da inclusão
WHERE codeven = '003R'
AND codmod = 'F'.
* >> Início da inclusão: FORM GET_PARAMETERS_F63_F02
endselect.
* << Fim da inclusão
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'RCF'
AND codeven = '003R'.
ENDIF.
...
...
ELSEIF v_tot LE v_vlme.
v_dif = v_vlme - v_tot.
itab_zycbe035-wrbtr = itab_zycbe035-wrbtr + v_dif.
MODIFY itab_zycbe035 INDEX v_line.
ENDIF.
ENDIF.
ENDFORM.
FORM modo_batch_input.
CLEAR: /pws/zycbt039, it_modo.
REFRESH: it_modo.
* >> Início da exclusão: FORM MODO_BATCH_INPUT
SELECT * FROM /pws/zycbt039.
* << Fim da exclusão
* >> Início da inclusão: FORM MODO_BATCH_INPUT
SELECT * FROM /pws/zycbt039."#EC CI_NOWHERE
* << Fim da inclusão
it_modo-selflag = /pws/zycbt039-modo.
it_modo-varoption = /pws/zycbt039-descr.
APPEND it_modo.
ENDSELECT.
SORT it_modo DESCENDING.
CALL FUNCTION 'POPUP_TO_DECIDE_LIST'
EXPORTING
textline1 = text-093
textline2 = text-094
titel = text-095
IMPORTING
answer = v_modo_bi
TABLES
t_spopli = it_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 verify_null_field USING value(p_field)
value(p_fieldname)
* >> Início da exclusão: FORM VERIFY_NULL_FIELD
value(p_description).
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFY_NULL_FIELD
value(p_description)."#EC *
* << Fim da inclusão
IF p_field IS INITIAL.
itab_zycbt034-campo = p_fieldname.
itab_zycbt034-descricao = p_description.
APPEND itab_zycbt034.
ENDIF.
ENDFORM.
FORM contabilizacao.
IF /pws/zycbe124-recrem IS INITIAL AND
/pws/zycbe124-tpoper NE 'R'.
MESSAGE i015 WITH text-021.
...
...
IF v_estorna = 'X' OR w_ok = 'TRASH'.
MESSAGE i061 WITH itab_zycat025_aux-tpimp '-' text-162 text-163.
DO 2 TIMES.
IF sy-index <= 1 AND itab_zycat025_aux-belnr_pr IS INITIAL.
CONTINUE.
ENDIF.
IF sy-index <= 1.
sy-index = 2.
PERFORM anula_doc USING itab_zycat025_aux-belnr_pr
itab_zycat025_aux-dtlanc
* >> Início da exclusão: FORM EFETUA_ESTORNO
' '.
* << Fim da exclusão
* >> Início da inclusão: FORM EFETUA_ESTORNO
' '. "#EC *
* << Fim da inclusão
sy-index = 1.
PERFORM anula_doc USING /pws/zycbe124-belnr_f51p
/pws/zycbe124-dtdocto
* >> Início da exclusão: FORM EFETUA_ESTORNO
' '.
* << Fim da exclusão
* >> Início da inclusão: FORM EFETUA_ESTORNO
' '. "#EC *
* << Fim da inclusão
ENDIF.
CLEAR: /pws/zycbe124-frgsx1, /pws/zycbe124-frgsx2,
/pws/zycbe124-frgsx3, /pws/zycbe124-frgsx4,
/pws/zycbe124-frgsx5, /pws/zycbe124-estrat,
/pws/zycbe124-bname, /pws/zycbe124-frgzu.
CONTINUE.
ENDDO.
IF w_ok = 'TRASH'.
PERFORM anula_doc USING /pws/zycbe124-belnr_f51
/pws/zycbe124-dtdocto
* >> Início da exclusão: FORM EFETUA_ESTORNO
'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM EFETUA_ESTORNO
'X'."#EC *
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
ENDIF.
IF /pws/zycbe124-criacao EQ 'S' AND
NOT /pws/zycbe124-belnr IS INITIAL.
PERFORM verif_alteracoes_relevantes USING /pws/zycbe124-criacao
'PRINCIPAL'
CHANGING v_estorna.
IF v_estorna = 'X' OR w_ok = 'TRASH'.
PERFORM preenche_estorna_contabeis USING 'PRINCIPAL'
/pws/zycbe124-belnr
* >> Início da exclusão: FORM EFETUA_ESTORNO
wa_zycbt124-dtdocto.
* << Fim da exclusão
* >> Início da inclusão: FORM EFETUA_ESTORNO
wa_zycbt124-dtdocto."#EC *
* << Fim da inclusão
ENDIF.
ENDIF.
LOOP AT itab_zycat025_aux WHERE NOT belnr_pr IS initial.
PERFORM verif_alteracoes_relevantes USING /pws/zycbe124-criacao
itab_zycat025_aux-tpimp
CHANGING v_estorna.
IF v_estorna = 'X' OR w_ok = 'TRASH'.
IF itab_zycat025_aux-tpimp(4) = 'IRRF'.
READ TABLE itab_zycat025 WITH KEY tpimp(4) = 'IRRF'.
IF ( sy-subrc = 0 AND
...
...
itab_zycat025_aux-dedfat <> itab_zycat025-dedfat ) OR
( sy-subrc = 0 AND
/pws/zycbe124-belnr = wa_zycbt124-belnr AND
itab_zycat025_aux-vlimpme <> itab_zycat025-vlimpme AND
itab_zycat025_aux-dedfat = 'X' ) OR
( sy-subrc <> 0 AND
/pws/zycbe124-belnr = wa_zycbt124-belnr AND
itab_zycat025_aux-dedfat = 'X' ).
PERFORM preenche_estorna_contabeis USING 'PRINCIPAL'
/pws/zycbe124-belnr
* >> Início da exclusão: FORM EFETUA_ESTORNO
/pws/zycbe124-dtdocto.
* << Fim da exclusão
* >> Início da inclusão: FORM EFETUA_ESTORNO
/pws/zycbe124-dtdocto."#EC *
* << Fim da inclusão
ENDIF.
MESSAGE i061 WITH itab_zycat025_aux-tpimp '-' text-162 text-163.
PERFORM preenche_estorna_contabeis USING itab_zycat025_aux-tpimp
itab_zycat025_aux-belnr_pr
* >> Início da exclusão: FORM EFETUA_ESTORNO
itab_zycat025_aux-dtlanc.
* << Fim da exclusão
* >> Início da inclusão: FORM EFETUA_ESTORNO
itab_zycat025_aux-dtlanc."#EC *
* << Fim da inclusão
ELSE.
MESSAGE i061 WITH itab_zycat025_aux-tpimp '-' text-162 text-163.
PERFORM preenche_estorna_contabeis
USING itab_zycat025_aux-tpimp
itab_zycat025_aux-belnr_pr
* >> Início da exclusão: FORM EFETUA_ESTORNO
itab_zycat025_aux-dtlanc .
* << Fim da exclusão
* >> Início da inclusão: FORM EFETUA_ESTORNO
itab_zycat025_aux-dtlanc ."#EC *
* << Fim da inclusão
ENDIF.
ENDIF.
ENDLOOP.
READ TABLE itab_zycat025_aux WITH KEY tpimp(4) = 'IRRF'.
IF sy-subrc NE 0.
READ TABLE itab_zycat025 WITH KEY tpimp(4) = 'IRRF'.
IF sy-subrc = 0 AND
itab_zycat025-dedfat = 'X' AND
/pws/zycbe124-belnr = wa_zycbt124-belnr.
PERFORM preenche_estorna_contabeis USING 'PRINCIPAL'
/pws/zycbe124-belnr
* >> Início da exclusão: FORM EFETUA_ESTORNO
/pws/zycbe124-dtdocto.
* << Fim da exclusão
* >> Início da inclusão: FORM EFETUA_ESTORNO
/pws/zycbe124-dtdocto."#EC *
* << Fim da inclusão
ENDIF.
ENDIF.
IF w_ok NE 'TRASH' AND
erro_bi_principal IS INITIAL AND
erro_bi_irrf IS INITIAL AND
erro_bi_cide IS INITIAL AND
erro_bi_pis IS INITIAL AND
erro_bi_cofins IS INITIAL AND
erro_bi_iss IS INITIAL AND
erro_bi_iof IS INITIAL.
...
...
IF erro_bi_iof IS INITIAL.
DELETE FROM /pws/zycbt141 WHERE nrseq = /pws/zycbe124-nrseq
AND tpimp LIKE 'IOF%'.
LOOP AT itab_zycbt141 WHERE tpimp(3) = 'IOF'.
INSERT INTO /pws/zycbt141 VALUES itab_zycbt141.
ENDLOOP.
ENDIF.
ENDFORM.
FORM popup_message2 USING p_text1
p_text2
* >> Início da exclusão: FORM POPUP_MESSAGE2
p_text3.
* << Fim da exclusão
* >> Início da inclusão: FORM POPUP_MESSAGE2
p_text3."#EC *
* << Fim da inclusão
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
defaultoption = 'N'
textline1 = p_text1
textline2 = p_text2
titel = p_text3
cancel_display = ' '
IMPORTING
answer = v_answer.
ENDFORM.
...
...
lines = itab_tline
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
* >> Início da inclusão: FORM READ_TEXT
if sy-subrc = 0 .
else.
endif.
* << Fim da inclusão
ENDFORM.
FORM preenche_thead.
itab_thead-tdobject = '/PWS/CA109'.
itab_thead-tdname = v_nrseqview.
itab_thead-tdid = 'CA01'.
itab_thead-tdspras = sy-langu.
itab_thead-tdlinesize = '072'.
APPEND itab_thead.
ENDFORM.
FORM edit_text.
...
...
lines = itab_tline
EXCEPTIONS
id = 1
language = 2
linesize = 3
name = 4
object = 5
textformat = 6
communication = 7
OTHERS = 8.
* >> Início da inclusão: FORM EDIT_TEXT
if sy-subrc = 0 .
else.
endif.
* << Fim da inclusão
ENDFORM.
FORM pega_descricao_dominio USING value(p_objeto)
value(p_valor)
* >> Início da exclusão: FORM PEGA_DESCRICAO_DOMINIO
CHANGING p_retorno.
* << Fim da exclusão
* >> Início da inclusão: FORM PEGA_DESCRICAO_DOMINIO
CHANGING p_retorno."#EC *
* << Fim da inclusão
DATA: wa_dd03l LIKE dd03l.
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.
IF p_valor GE itab_dd07t-domval_ld AND
* >> Início da exclusão: FORM PEGA_DESCRICAO_DOMINIO
p_valor LE itab_dd07t-domval_hd.
* << Fim da exclusão
* >> Início da inclusão: FORM PEGA_DESCRICAO_DOMINIO
p_valor LE itab_dd07t-domval_hd."#EC *
* << Fim da inclusão
p_retorno = itab_dd07t-ddtext.
EXIT.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM preenche_dados_contrato.
IF sy-tcode NE 'ZYCA109_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/zycbe124-nrseq
AND mdcorresp = 'CP'.
* >> 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 nrcorresp = /pws/zycbt064-nrchave
AND mdcorresp = 'CP'.
* >> Início da inclusão: FORM PREENCHE_DADOS_CONTRATO
endselect.
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM criar_remessa_ordem.
IF NOT vbfa-vbelv IS INITIAL.
CLEAR: itab_bseg, wa_vbfa, wa_bkpf.
REFRESH: itab_bseg.
* >> Início da inclusão: FORM CRIAR_REMESSA_ORDEM
SELECT *
* << Fim da inclusão
* >> Início da exclusão: FORM CRIAR_REMESSA_ORDEM
SELECT SINGLE * FROM vbfa INTO wa_vbfa
* << Fim da exclusão
* >> Início da inclusão: FORM CRIAR_REMESSA_ORDEM
FROM vbfa
up to 1 rows
INTO wa_vbfa
* << Fim da inclusão
WHERE vbelv = vbfa-vbelv
AND ( vbtyp_n = 'M' OR vbtyp_n = 'P' ).
* >> Início da inclusão: FORM CRIAR_REMESSA_ORDEM
endselect.
* << Fim da inclusão
IF sy-subrc = 0.
* >> Início da exclusão: FORM CRIAR_REMESSA_ORDEM
SELECT SINGLE * FROM bkpf INTO wa_bkpf
WHERE awkey = wa_vbfa-vbeln.
* << Fim da exclusão
* >> Início da inclusão: FORM CRIAR_REMESSA_ORDEM
SELECT *
FROM bkpf
up to 1 rows
INTO wa_bkpf
WHERE awkey = wa_vbfa-vbeln."#EC CI_NOFIRST
endselect.
* << Fim da inclusão
IF sy-subrc = 0.
SELECT * FROM bseg INTO TABLE itab_bseg
WHERE belnr = wa_bkpf-belnr
AND bukrs = wa_bkpf-bukrs
AND gjahr = wa_bkpf-gjahr
AND bschl = '01'
AND koart = 'D'
AND augbl = space.
IF sy-subrc = 0.
PERFORM cria_remessa TABLES itab_bseg
...
...
DATA: v_docmiro LIKE bkpf-awkey.
IF NOT rbkp-belnr IS INITIAL AND
NOT rbkp-gjahr IS INITIAL.
CLEAR: itab_bseg, wa_rbkp, wa_bkpf.
REFRESH: itab_bseg.
SELECT SINGLE * FROM rbkp INTO wa_rbkp
WHERE belnr = rbkp-belnr
AND gjahr = rbkp-gjahr.
IF sy-subrc = 0.
CONCATENATE wa_rbkp-belnr wa_rbkp-gjahr INTO v_docmiro.
* >> Início da exclusão: FORM CRIAR_REMESSA_REVISAO
SELECT SINGLE * FROM bkpf INTO wa_bkpf
* << Fim da exclusão
* >> Início da inclusão: FORM CRIAR_REMESSA_REVISAO
SELECT *
FROM bkpf
up to 1 rows
INTO wa_bkpf
* << Fim da inclusão
WHERE gjahr = wa_rbkp-gjahr
* >> Início da exclusão: FORM CRIAR_REMESSA_REVISAO
AND awkey = v_docmiro.
* << Fim da exclusão
* >> Início da inclusão: FORM CRIAR_REMESSA_REVISAO
AND awkey = v_docmiro."#EC CI_NOFIRST
endselect.
* << Fim da inclusão
IF sy-subrc = 0.
SELECT * FROM bseg INTO TABLE itab_bseg
...
...
v_belnr_s = itab_zycbt032-belnr.
ELSE.
itab_zycat025-belnr_pr = itab_zycbt032-belnr.
MODIFY itab_zycat025 TRANSPORTING belnr_pr
WHERE tpimp = p_tpimp.
itab_zycat025_aux3-belnr_pr = itab_zycbt032-belnr.
MODIFY itab_zycat025_aux3 TRANSPORTING belnr_pr
WHERE tpimp = p_tpimp.
UPDATE /pws/zycat025 SET belnr_pr = itab_zycat025-belnr_pr
WHERE nrseq = /pws/zycbe124-nrseq
* >> Início da exclusão: FORM CALL_FUNCTION_F63
AND tpimp = p_tpimp.
* << Fim da exclusão
* >> Início da inclusão: FORM CALL_FUNCTION_F63
AND tpimp = p_tpimp."#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
SELECT * FROM /pws/zycbt133 INTO TABLE itab_zycbt133
WHERE bukrs = /pws/zycbe124-bukrs.
READ TABLE itab_zycbt133 WITH KEY codmod = 'F'.
IF sy-subrc = 0.
IF itab_zycbt133-vaprov = 'X'.
PERFORM executa_aprovacao USING itab_zycbt032-belnr
p_tpimp.
ENDIF.
ENDIF.
...
...
MODIFY itab_zycat025 TRANSPORTING belnr_pr
WHERE tpimp = p_tpimp.
CLEAR itab_zycat025_aux3-belnr_pr.
MODIFY itab_zycat025_aux3 TRANSPORTING belnr_pr
WHERE tpimp = p_tpimp.
CLEAR itab_zycat025_aux-belnr_pr.
MODIFY itab_zycat025_aux TRANSPORTING belnr_pr
WHERE tpimp = p_tpimp.
UPDATE /pws/zycat025 SET belnr_pr = itab_zycat025-belnr_pr
WHERE nrseq = /pws/zycbe124-nrseq
* >> Início da exclusão: FORM REVERSE_DOCUMENT_FBV0
AND tpimp = p_tpimp.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_FBV0
AND tpimp = p_tpimp."#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
ELSE.
PERFORM seta_erro_bi USING p_tpimp.
MESSAGE s262 WITH p_belnr p_tpimp.
ENDIF.
ELSE.
PERFORM seta_erro_bi USING p_tpimp.
ENDIF.
ENDFORM.
FORM efetua_lancamento_recebimento.
...
...
EXPORTING
i_codmod = 'F'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* >> Início da inclusão: FORM EFETUA_LANCAMENTO_RECEBIMENTO
if sy-subrc = 0 .
else.
endif.
* << Fim da inclusão
READ TABLE itab_zyglt100 WITH KEY zexit = 'REM006' BINARY SEARCH.
IF sy-subrc EQ 0 AND NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa).
ENDIF.
IF itab_zycbt034[] IS INITIAL.
CALL FUNCTION '/PWS/ZYCA_TRANSACAO_F_02R'
EXPORTING
v_modo = v_modo_bi
TABLES
...
...
ENDLOOP.
ENDFORM.
FORM cria_remessa TABLES i_bseg STRUCTURE bseg
USING p_bkpf STRUCTURE bkpf.
REFRESH itab_rel.
CLEAR v_total_docto.
LOOP AT i_bseg.
v_total_docto = v_total_docto + i_bseg-wrbtr.
ENDLOOP.
LOOP AT i_bseg.
* >> Início da inclusão: FORM CRIA_REMESSA
SELECT * FROM /pws/zycbt124
* << Fim da inclusão
* >> Início da exclusão: FORM CRIA_REMESSA
SELECT SINGLE * FROM /pws/zycbt124
* << Fim da exclusão
* >> Início da inclusão: FORM CRIA_REMESSA
up to 1 rows
* << Fim da inclusão
WHERE belnr = wa_bkpf-belnr
AND nrfat = wa_bkpf-awkey
AND dtdocto = wa_bkpf-budat
AND bukrs = wa_bkpf-bukrs
* >> Início da exclusão: FORM CRIA_REMESSA
AND buzei = i_bseg-buzei.
* << Fim da exclusão
* >> Início da inclusão: FORM CRIA_REMESSA
AND buzei = i_bseg-buzei."#EC *
endselect.
* << Fim da inclusão
IF sy-subrc = 0.
MESSAGE w061 WITH text-132 i_bseg-buzei.
CONTINUE.
ENDIF.
CLEAR: /pws/zycbt124, itab_rel.
PERFORM find_nrseq.
/pws/zycbt124-nrseq = v_nrseqview.
/pws/zycbt124-bukrs = p_bkpf-bukrs.
/pws/zycbt124-kursf = p_bkpf-kursf.
/pws/zycbt124-gsber = i_bseg-gsber.
...
...
EXPORTING
i_codmod = 'F'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* >> Início da inclusão: FORM CRIA_REMESSA
if sy-subrc = 0 .
else.
endif.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'REM007' BINARY SEARCH.
IF sy-subrc EQ 0 AND 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.
ENDIF.
...
...
EXPORT itab_rel[] TO MEMORY ID 'IT_REM'.
ENDFORM.
FORM desmembra_docto_provisao_prin.
PERFORM clear_date_batch.
SELECT SINGLE * FROM /pws/zycbt007
WHERE bukrs EQ /pws/zycbe124-bukrs.
SELECT SINGLE * FROM /pws/zycbt089
WHERE bukrs EQ /pws/zycbe124-bukrs.
SELECT SINGLE * FROM /pws/zyglt009
WHERE bukrs EQ /pws/zycbe124-bukrs.
* >> Início da inclusão: FORM DESMEMBRA_DOCTO_PROVISAO_PRIN
SELECT *
* << Fim da inclusão
* >> Início da exclusão: FORM DESMEMBRA_DOCTO_PROVISAO_PRIN
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_DOCTO_PROVISAO_PRIN
FROM /pws/zycbt011
up to 1 rows
INTO wa_zycbt011
* << Fim da inclusão
WHERE codmod = 'F'
AND codeven = '004P'.
* >> Início da inclusão: FORM DESMEMBRA_DOCTO_PROVISAO_PRIN
endselect.
* << Fim da inclusão
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'DSF'
AND codeven = '004P'.
itab_zycbe033-mandt = sy-mandt.
...
...
EXPORTING
i_codmod = 'F'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* >> Início da inclusão: FORM DESMEMBRA_DOCTO_PROVISAO_PRIN
if sy-subrc = 0 .
else.
endif.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'REM002' 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.
...
...
CHECK erro_bi_principal IS INITIAL AND
erro_bi_irrf IS INITIAL AND
sy-subrc EQ 0.
SELECT SINGLE * FROM /pws/zycbt007
WHERE bukrs EQ /pws/zycbe124-bukrs.
SELECT SINGLE * FROM /pws/zycbt089
WHERE bukrs EQ /pws/zycbe124-bukrs.
SELECT SINGLE * FROM /pws/zyglt009
WHERE bukrs EQ /pws/zycbe124-bukrs.
IF sy-index <= 1.
* >> Início da exclusão: FORM FILL_DATE_F_51_PRINC_IR
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_PRINC_IR
SELECT *
FROM /pws/zycbt011
up to 1 rows
INTO wa_zycbt011
* << Fim da inclusão
WHERE codmod = 'F'
AND codeven = '004P'.
* >> Início da inclusão: FORM FILL_DATE_F_51_PRINC_IR
endselect.
* << Fim da inclusão
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'DSF'
AND codeven = '004P'.
ELSEIF sy-index = 2.
* >> Início da exclusão: FORM FILL_DATE_F_51_PRINC_IR
SELECT SINGLE * FROM /pws/zycbt011 INTO wa_zycbt011
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_PRINC_IR
SELECT *
FROM /pws/zycbt011
up to 1 rows
INTO wa_zycbt011
* << Fim da inclusão
WHERE codmod = 'F'
AND codeven = '004I'.
* >> Início da inclusão: FORM FILL_DATE_F_51_PRINC_IR
endselect.
* << Fim da inclusão
SELECT * FROM /pws/zyglt321
INTO TABLE itab_zyglt321
WHERE ktosl = 'DSF'
AND codeven = '004I'.
ENDIF.
...
...
EXPORTING
i_codmod = 'F'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* >> Início da inclusão: FORM FILL_DATE_F_51_PRINC_IR
if sy-subrc = 0 .
else.
* << Fim da inclusão
ENDIF.
* >> Início da inclusão: FORM FILL_DATE_F_51_PRINC_IR
ENDIF.
* << Fim da inclusão
READ TABLE itab_zyglt100 WITH KEY zexit = 'REM002' 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
...
...
INTO v_msg SEPARATED BY space.
MESSAGE i061 WITH v_msg text-164 itab_zycbt032-belnr text-167.
itab_zycat025-belnr_pr = itab_zycbt032-belnr.
MODIFY itab_zycat025 TRANSPORTING belnr_pr
WHERE tpimp(4) = 'IRRF'.
itab_zycat025_aux3-belnr_pr = itab_zycbt032-belnr.
MODIFY itab_zycat025_aux3 TRANSPORTING belnr_pr
WHERE tpimp(4) = 'IRRF'.
UPDATE /pws/zycat025 SET belnr_pr = itab_zycat025-belnr_pr
WHERE nrseq = /pws/zycbe124-nrseq
* >> Início da exclusão: FORM FILL_DATE_F_51_PRINC_IR
AND tpimp LIKE 'IRRF%'.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F_51_PRINC_IR
AND tpimp LIKE 'IRRF%'. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
IF sy-index <= 1.
CLEAR erro_bi_principal.
ELSE.
CLEAR erro_bi_irrf.
ENDIF.
ELSE.
LOOP AT itab_zycbt032.
MESSAGE i015 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
...
...
CLEAR: itab_zycat025-belnr_pr, itab_zycat025_aux-belnr_pr.
MODIFY itab_zycat025 TRANSPORTING belnr_pr
WHERE tpimp(4) = 'IRRF'.
MODIFY itab_zycat025_aux TRANSPORTING belnr_pr
WHERE tpimp(4) = 'IRRF'.
CLEAR itab_zycat025_aux3-belnr_pr.
MODIFY itab_zycat025_aux3 TRANSPORTING belnr_pr
WHERE tpimp(4) = 'IRRF'.
UPDATE /pws/zycat025 SET belnr_pr = itab_zycat025-belnr_pr
WHERE nrseq = /pws/zycbe124-nrseq
* >> Início da exclusão: FORM ANULA_DOC
AND tpimp LIKE 'IRRF%'.
* << Fim da exclusão
* >> Início da inclusão: FORM ANULA_DOC
AND tpimp LIKE 'IRRF%'."#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
IF sy-index <= 1.
PERFORM seta_erro_bi USING 'PRINCIPAL'.
ELSE.
PERFORM seta_erro_bi USING 'IRRF'.
ENDIF.
ENDIF.
ENDFORM.
FORM determina_periodo USING value(p_budat)
value(p_bukrs)
* >> Início da exclusão: FORM DETERMINA_PERIODO
CHANGING p_monat.
* << Fim da exclusão
* >> Início da inclusão: FORM DETERMINA_PERIODO
CHANGING p_monat."#EC *
* << Fim da inclusão
DATA: v_periv(2).
SELECT SINGLE periv FROM t001
INTO v_periv
WHERE bukrs EQ p_bukrs.
CALL FUNCTION 'DETERMINE_PERIOD'
EXPORTING
date = p_budat
version = v_periv
IMPORTING
period = p_monat
EXCEPTIONS
period_in_not_valid = 1
period_not_assigned = 2
version_undefined = 3
OTHERS = 4.
* >> Início da inclusão: FORM DETERMINA_PERIODO
if sy-subrc = 0 .
else.
endif.
* << Fim da inclusão
ENDFORM.
* >> Início da exclusão: FORM DETERMINA_ANO
FORM determina_ano USING p_budat
p_bukrs
CHANGING p_ano.
* << Fim da exclusão
* >> Início da inclusão: FORM DETERMINA_ANO
FORM determina_ano USING p_budat TYPE SY-DATUM
p_bukrs TYPE T001-BUKRS
CHANGING p_ano LIKE T009B-BDATJ.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
v_bukrs = p_bukrs
v_date = p_budat
IMPORTING
v_year = p_ano.
ENDFORM.
* >> Início da exclusão: FORM PREENCHE_PASTA_CONTABILIZACAO
FORM preenche_pasta_contabilizacao TABLES i_bseg STRUCTURE bseg.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_PASTA_CONTABILIZACAO
FORM preenche_pasta_contabilizacao TABLES i_bseg STRUCTURE bseg."#EC *
* << Fim da inclusão
DATA: v_reg(2) TYPE n,
v_reg2(2) TYPE n,
v_tot LIKE /pws/zycbt141-vlremessa,
v_dif LIKE /pws/zycbt141-vlremessa,
v_tabix LIKE sy-tabix.
REFRESH itab_bseg_aux.
IF /pws/zycbt124-tpoper = 'R'.
SELECT * FROM bseg INTO TABLE itab_bseg_aux
WHERE bukrs = i_bseg-bukrs
AND belnr = i_bseg-belnr
...
...
ENDIF.
COLLECT itab_zycbt141.
ENDLOOP.
LOOP AT itab_zycbt141.
MOVE-CORRESPONDING itab_zycbt141 TO itab_zycbt141_aux.
INSERT INTO /pws/zycbt141 VALUES itab_zycbt141_aux.
ENDLOOP.
ENDIF.
ENDFORM.
FORM verifica_estrategia_liberacao.
* >> Início da exclusão: FORM VERIFICA_ESTRATEGIA_LIBERACAO
DATA: e_exec_okcode.
* << Fim da exclusão
CLEAR: v_lib, v_area.
SELECT SINGLE * FROM /pws/zyglt340
WHERE codmod = 'F'
AND func = 'CP'
AND estrat = 'X'.
IF sy-subrc EQ 0.
PERFORM verifica_taxa.
IF /pws/zycbe124-criacao NE 'S'.
SELECT SINGLE kursf FROM bkpf INTO itab_zycbe033-kursf
WHERE belnr = /pws/zycbe124-belnr
...
...
EXPORTING
i_codmod = 'F'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* >> Início da inclusão: FORM VERIFICA_ESTRATEGIA_LIBERACAO
if sy-subrc = 0 .
else.
endif.
* << Fim da inclusão
ENDIF.
CLEAR itab_zyglt100.
READ TABLE itab_zyglt100 WITH KEY zexit = 'REM002' 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.
...
...
IF /pws/zycbe124-frgzu = '1' AND w_ok NE 'ESTR'.
MESSAGE i061 WITH text-144.
ENDIF.
ENDFORM.
FORM verifica_pais_filial USING p_bukrs
p_brnch.
SELECT SINGLE adrnr FROM j_1bbranch INTO j_1bbranch-adrnr
WHERE bukrs = p_bukrs
AND branch = p_brnch.
IF sy-subrc = 0.
* >> Início da exclusão: FORM VERIFICA_PAIS_FILIAL
SELECT SINGLE country FROM adrc INTO adrc-country
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_PAIS_FILIAL
SELECT country
FROM adrc
up to 1 rows
INTO adrc-country
* << Fim da inclusão
WHERE addrnumber = j_1bbranch-adrnr.
* >> Início da inclusão: FORM VERIFICA_PAIS_FILIAL
endselect.
* << Fim da inclusão
IF sy-subrc = 0 AND
adrc-country NE 'BR' AND adrc-country NE 'TW'.
CLEAR p_brnch.
ENDIF.
ENDIF.
ENDFORM.
...
...
itab_nome_campo[],
v_nome_campo,
v_comp.
MOVE 'CCO' TO v_cod_grupo.
IF sy-dynnr = '0105' AND /pws/zycbe124-tpoper = 'R'.
SELECT campo flag
FROM /pws/zyglt320
INTO TABLE itab_t320
WHERE programa EQ sy-repid AND
tela EQ '0108' AND
* >> Início da exclusão: FORM TRATA_CAMPOS_FUNCIONALIDADE
cod_grupo EQ v_cod_grupo.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_CAMPOS_FUNCIONALIDADE
cod_grupo EQ v_cod_grupo."#EC CI_NOFIRST
* << Fim da inclusão
ELSE.
SELECT campo flag
FROM /pws/zyglt320
INTO TABLE itab_t320
WHERE programa EQ sy-repid AND
tela EQ sy-dynnr AND
* >> Início da exclusão: FORM TRATA_CAMPOS_FUNCIONALIDADE
cod_grupo EQ v_cod_grupo.
* << Fim da exclusão
* >> Início da inclusão: FORM TRATA_CAMPOS_FUNCIONALIDADE
cod_grupo EQ v_cod_grupo."#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
CASE sy-dynnr.
WHEN '0105'.
LOOP AT tc_principal-cols
INTO wa_cols.
MOVE wa_cols-screen-name TO itab_nome_campo-nome_campo_tela.
APPEND itab_nome_campo.
ENDLOOP.
WHEN '0106'.
LOOP AT tc_imposto-cols
...
...
EXPORTING
bukrs = /pws/zycbe124-bukrs
ktosl = v_ktosl
codaux1 = /pws/zycbe124-codpagto
TABLES
account = itab_zyglt316
EXCEPTIONS
key_not_found = 1
rules_not_found = 2
OTHERS = 3.
* >> Início da inclusão: FORM PROPOR_RATEIO_PRINCIPAL
if sy-subrc = 0 .
else.
endif.
* << Fim da inclusão
IF /pws/zycbe124-tpoper EQ 'P'.
DELETE ADJACENT DUPLICATES
FROM itab_zyglt316 COMPARING konts.
ELSE.
DELETE ADJACENT DUPLICATES
FROM itab_zyglt316 COMPARING konth.
ENDIF.
DESCRIBE TABLE itab_zyglt316 LINES v_linha.
IF v_linha EQ 1.
READ TABLE itab_zyglt316 INDEX 1.
...
...
APPEND itab_campos.
CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE'
EXPORTING
display = ' '
fieldname = 'TPIMP'
tabname = '/PWS/ZYCBT141'
IMPORTING
select_value = /pws/zycbe141-tpimp
TABLES
valuetab = itab_valores
* >> Início da exclusão: FORM SET_MC_RATEIO_IMPOSTO
fields = itab_campos.
* << Fim da exclusão
* >> Início da inclusão: FORM SET_MC_RATEIO_IMPOSTO
fields = itab_campos."#EC *
* << Fim da inclusão
ENDFORM.
FORM carrega_par_impostos.
IF itab_zycat024[] IS INITIAL.
SELECT * FROM /pws/zycat024 INTO TABLE itab_zycat024
WHERE bukrs = /pws/zycbe124-bukrs.
ENDIF.
IF itab_zycat026[] IS INITIAL.
* >> Início da exclusão: FORM CARREGA_PAR_IMPOSTOS
SELECT * FROM /pws/zycat026 INTO TABLE itab_zycat026.
* << Fim da exclusão
* >> Início da inclusão: FORM CARREGA_PAR_IMPOSTOS
SELECT * FROM /pws/zycat026 INTO TABLE itab_zycat026."#EC CI_NOWHERE
* << Fim da inclusão
ENDIF.
ENDFORM.
FORM salva_dados_imposto.
PERFORM atualiza_tab_aux.
IF erro_bi_irrf IS INITIAL.
DELETE FROM /pws/zycat025 WHERE nrseq = /pws/zycbe124-nrseq
* >> Início da exclusão: FORM SALVA_DADOS_IMPOSTO
AND tpimp LIKE 'IRRF%'.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_DADOS_IMPOSTO
AND tpimp LIKE 'IRRF%'."#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_zycat025 WHERE tpimp(4) = 'IRRF'.
INSERT INTO /pws/zycat025 VALUES itab_zycat025.
ENDLOOP.
ENDIF.
IF erro_bi_cide IS INITIAL.
DELETE FROM /pws/zycat025 WHERE nrseq = /pws/zycbe124-nrseq
* >> Início da exclusão: FORM SALVA_DADOS_IMPOSTO
AND tpimp LIKE 'CIDE%'.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_DADOS_IMPOSTO
AND tpimp LIKE 'CIDE%'."#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_zycat025 WHERE tpimp(4) = 'CIDE'.
INSERT INTO /pws/zycat025 VALUES itab_zycat025.
ENDLOOP.
ENDIF.
IF erro_bi_pis IS INITIAL.
DELETE FROM /pws/zycat025 WHERE nrseq = /pws/zycbe124-nrseq
* >> Início da exclusão: FORM SALVA_DADOS_IMPOSTO
AND tpimp LIKE 'PIS%'.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_DADOS_IMPOSTO
AND tpimp LIKE 'PIS%'."#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_zycat025 WHERE tpimp(3) = 'PIS'.
INSERT INTO /pws/zycat025 VALUES itab_zycat025.
ENDLOOP.
ENDIF.
IF erro_bi_cofins IS INITIAL.
DELETE FROM /pws/zycat025 WHERE nrseq = /pws/zycbe124-nrseq
* >> Início da exclusão: FORM SALVA_DADOS_IMPOSTO
AND tpimp LIKE 'COFINS%'.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_DADOS_IMPOSTO
AND tpimp LIKE 'COFINS%'."#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_zycat025 WHERE tpimp(6) = 'COFINS'.
INSERT INTO /pws/zycat025 VALUES itab_zycat025.
ENDLOOP.
ENDIF.
IF erro_bi_iss IS INITIAL.
DELETE FROM /pws/zycat025 WHERE nrseq = /pws/zycbe124-nrseq
* >> Início da exclusão: FORM SALVA_DADOS_IMPOSTO
AND tpimp LIKE 'ISS%'.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_DADOS_IMPOSTO
AND tpimp LIKE 'ISS%'."#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_zycat025 WHERE tpimp(3) = 'ISS'.
INSERT INTO /pws/zycat025 VALUES itab_zycat025.
ENDLOOP.
ENDIF.
IF erro_bi_iof IS INITIAL.
DELETE FROM /pws/zycat025 WHERE nrseq = /pws/zycbe124-nrseq
* >> Início da exclusão: FORM SALVA_DADOS_IMPOSTO
AND tpimp LIKE 'IOF%'.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVA_DADOS_IMPOSTO
AND tpimp LIKE 'IOF%'."#EC CI_NOFIRST
* << Fim da inclusão
LOOP AT itab_zycat025 WHERE tpimp(3) = 'IOF'.
INSERT INTO /pws/zycat025 VALUES itab_zycat025.
ENDLOOP.
ENDIF.
ENDFORM.
FORM elimina_item_imp.
LOOP AT itab_zycat025 WHERE mark = 'X'.
DELETE itab_zycat025.
DELETE itab_zycbt141_i WHERE tpimp = itab_zycat025-tpimp.
IF itab_zycat025-tpimp(4) = 'CIDE'.
...
...
END OF shlp_descr_t .
DATA: itab_result
TYPE STANDARD TABLE OF ddshretval
WITH HEADER LINE,
record_tab
TYPE STANDARD TABLE OF seahlpres
WITH HEADER LINE,
tdynpread
TYPE STANDARD TABLE OF dynpread
WITH HEADER LINE,
* >> Início da exclusão: FORM SET_MC_RATEIO_IMPOSTO_CONTA
shlp_curr TYPE shlp_descr_t,
* << Fim da exclusão
* >> Início da inclusão: FORM SET_MC_RATEIO_IMPOSTO_CONTA
shlp_curr TYPE shlp_descr_t,"#EC NEEDED
* << Fim da inclusão
l_display(1) TYPE c,
v_line TYPE i.
SET PARAMETER ID: '/PWS/ZYGLP102' FIELD space,
'/PWS/ZYGLP103' FIELD space,
'/PWS/ZYGLP104' FIELD space,
'/PWS/ZYGLP114' FIELD space.
* >> Início da inclusão: FORM SET_MC_RATEIO_IMPOSTO_CONTA
data: v_saprl(3) type n,
v_saprl1(2) type n.
* << Fim da inclusão
CALL FUNCTION 'DYNP_GET_STEPL'
IMPORTING
povstepl = v_line.
v_line = v_line + tc_imposto-top_line - 1.
READ TABLE itab_zycbt141_i INDEX v_line.
IF sy-subrc EQ 0.
READ TABLE itab_zycat024
WITH KEY bukrs = /pws/zycbe124-bukrs
tpimp = itab_zycbt141_i-tpimp.
IF sy-subrc EQ 0.
...
...
return_tab = itab_result
EXCEPTIONS
OTHERS = 5.
CHECK sy-subrc EQ 0 AND l_display EQ space AND v_status_s NE 0.
IMPORT record_tab FROM MEMORY ID 'mcx_record_tab'.
IMPORT shlp_curr FROM MEMORY ID 'mcx_shlp_curr'.
CHECK sy-subrc EQ 0.
READ TABLE record_tab INDEX 1.
MOVE: '/PWS/ZYCBE141-SAKNR1' TO tdynpread-fieldname ,
v_line TO tdynpread-stepl .
* >> Início da inclusão: FORM SET_MC_RATEIO_IMPOSTO_CONTA
v_saprl = sy-saprl(3).
v_saprl1 = sy-saprl(2).
IF v_saprl GE '620' OR v_saprl1 EQ '47'.
* << Fim da inclusão
* >> Início da exclusão: FORM SET_MC_RATEIO_IMPOSTO_CONTA
IF sy-saprl(3) GE '620' OR sy-saprl(2) EQ '47'.
* << Fim da exclusão
IF record_tab-string(3) NE sy-mandt.
MOVE record_tab-string+37(10) TO tdynpread-fieldvalue.
ELSE.
MOVE record_tab-string+40(10) TO tdynpread-fieldvalue.
ENDIF.
ELSE.
IF record_tab-string(3) NE sy-mandt.
MOVE record_tab-string+60(10) TO tdynpread-fieldvalue.
ELSE.
MOVE record_tab-string+63(10) TO tdynpread-fieldvalue.
ENDIF.
ENDIF.
APPEND tdynpread.
CALL FUNCTION 'DYNP_VALUES_UPDATE'
EXPORTING
dyname = sy-cprog
dynumb = '0106'
TABLES
dynpfields = tdynpread
EXCEPTIONS
* >> Início da exclusão: FORM SET_MC_RATEIO_IMPOSTO_CONTA
OTHERS = 8.
* << Fim da exclusão
* >> Início da inclusão: FORM SET_MC_RATEIO_IMPOSTO_CONTA
OTHERS = 0.
* << Fim da inclusão
ENDFORM.
FORM busca_conta USING value(p_bukrs)
value(p_kostl)
value(p_codaux1)
value(p_codaux2).
CLEAR itab_zyglt316.
REFRESH itab_zyglt316.
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = p_bukrs
ktosl = p_kostl
codaux1 = p_codaux1
codaux2 = p_codaux2
TABLES
account = itab_zyglt316
EXCEPTIONS
key_not_found = 1
rules_not_found = 2
OTHERS = 3.
* >> Início da inclusão: FORM BUSCA_CONTA
if sy-subrc = 0 .
else.
endif.
* << Fim da inclusão
ENDFORM.
FORM verifica_parcelas_principal.
DATA v_total LIKE /pws/zycbe141-vlremessa.
DATA v_valor(16) TYPE c.
CLEAR v_total.
LOOP AT itab_zycbt141_p.
v_total = v_total + itab_zycbt141_p-vlremessa.
MOVE-CORRESPONDING itab_zycbt141_p TO itab_zycbt141.
COLLECT itab_zycbt141.
ENDLOOP.
...
...
itab_zycbe033-c_zuonr = itab_zyglt321-descr.
ENDIF.
ENDCASE.
ENDLOOP.
itab_zycbe033-newbs = '31'.
IF p_tpimp = 'PRINCIPAL'.
itab_zycbe033-c_newko = /pws/zycbe124-recrem.
READ TABLE itab_zycat025 WITH KEY tpimp(4) = 'IRRF'.
IF sy-subrc = 0 AND itab_zycat025-dedfat = 'X'.
itab_zycbe033-wrbtr = p_vlme -
* >> Início da exclusão: FORM PREENCHE_GERA_CONTABEIS
itab_zycat025-vlimpme.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_GERA_CONTABEIS
itab_zycat025-vlimpme."#EC *
* << Fim da inclusão
ENDIF.
p_tpimp = 'PRINCIPAL'.
itab_zycbe033-c_prctr = /pws/zycbe124-prctr.
ELSE.
IF NOT itab_zycat024-credito_imp IS INITIAL.
v_cred_imp = itab_zycat024-credito_imp.
ELSE.
v_cred_imp = /pws/zyglt009-cont_impostos.
ENDIF.
IF v_cred_imp = '1'.
...
...
EXPORTING
i_codmod = 'F'
i_func = v_syrepid
TABLES
itab_zyglt100 = itab_zyglt100
EXCEPTIONS
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
OTHERS = 4.
* >> Início da inclusão: FORM PREENCHE_GERA_CONTABEIS
if sy-subrc = 0 .
else.
endif.
* << Fim da inclusão
ENDIF.
READ TABLE itab_zyglt100 WITH KEY zexit = 'REM002' 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.
...
...
MODIFY itab_zycat025 TRANSPORTING belnr_pr
WHERE tpimp = p_tpimp.
CLEAR itab_zycat025_aux3-belnr_pr.
MODIFY itab_zycat025_aux3 TRANSPORTING belnr_pr
WHERE tpimp = p_tpimp.
CLEAR itab_zycat025_aux-belnr_pr.
MODIFY itab_zycat025_aux TRANSPORTING belnr_pr
WHERE tpimp = p_tpimp.
UPDATE /pws/zycat025 SET belnr_pr = itab_zycat025-belnr_pr
WHERE nrseq = /pws/zycbe124-nrseq
* >> Início da exclusão: FORM PREENCHE_ESTORNA_CONTABEIS
AND tpimp = p_tpimp.
* << Fim da exclusão
* >> Início da inclusão: FORM PREENCHE_ESTORNA_CONTABEIS
AND tpimp = p_tpimp."#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
ELSE.
PERFORM seta_erro_bi USING p_tpimp.
LOOP AT itab_zycbt032.
MESSAGE i015 WITH itab_zycbt032-msg.
ENDLOOP.
ENDIF.
ELSE.
PERFORM seta_erro_bi USING p_tpimp.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
ENDIF.
ENDFORM.
FORM verif_alteracoes_relevantes USING p_criacao
p_tpimp
* >> Início da exclusão: FORM VERIF_ALTERACOES_RELEVANTES
CHANGING p_estorna.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIF_ALTERACOES_RELEVANTES
CHANGING p_estorna TYPE c.
* << Fim da inclusão
DATA: v_codeven LIKE /pws/zycbt011-codeven.
CLEAR: itab_zycbt141_i_aux2, itab_zycbt141_i2, p_estorna,
itab_zycbt141_p_aux2, itab_zycbt141_p2.
REFRESH: itab_zycbt141_i_aux2, itab_zycbt141_i2,
itab_zycbt141_p_aux2, itab_zycbt141_p2.
IF p_tpimp = 'PRINCIPAL'.
v_codeven = '004P'.
LOOP AT itab_zycbt141_p_aux3 WHERE tpimp = p_tpimp.
MOVE itab_zycbt141_p_aux3 TO itab_zycbt141_p_aux2.
APPEND itab_zycbt141_p_aux2.
...
...
EXIT.
ENDIF.
ENDIF.
IF itab_zycbt141_i_aux2[] NE itab_zycbt141_i2[].
p_estorna = 'X'.
EXIT.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
* >> Início da exclusão: FORM VERIFICA_CAMPOS_PARMETRIZAVEIS
FORM verifica_campos_parmetrizaveis USING p_codeven
p_estorna.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_CAMPOS_PARMETRIZAVEIS
FORM verifica_campos_parmetrizaveis
USING p_codeven LIKE /pws/zycbt011-codeven
p_estorna TYPE c.
* << Fim da inclusão
IF /pws/zycbe124-nrcontr NE wa_zycbt124-nrcontr.
* >> Início da exclusão: FORM VERIFICA_CAMPOS_PARMETRIZAVEIS
SELECT SINGLE * FROM /pws/zyglt321
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_CAMPOS_PARMETRIZAVEIS
SELECT *
FROM /pws/zyglt321
up to 1 rows
* << Fim da inclusão
WHERE ktosl = 'DSF'
AND codeven = p_codeven
AND cpocb = 'NRCONTR'.
* >> Início da inclusão: FORM VERIFICA_CAMPOS_PARMETRIZAVEIS
endselect.
* << Fim da inclusão
IF sy-subrc = 0.
p_estorna = 'X'.
EXIT.
ENDIF.
ENDIF.
IF /pws/zycbe124-nrfech NE wa_zycbt124-nrfech.
* >> Início da exclusão: FORM VERIFICA_CAMPOS_PARMETRIZAVEIS
SELECT SINGLE * FROM /pws/zyglt321
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_CAMPOS_PARMETRIZAVEIS
SELECT *
FROM /pws/zyglt321
up to 1 rows
* << Fim da inclusão
WHERE ktosl = 'DSF'
AND codeven = p_codeven
AND cpocb = 'NRFECH'.
* >> Início da inclusão: FORM VERIFICA_CAMPOS_PARMETRIZAVEIS
endselect.
* << Fim da inclusão
IF sy-subrc = 0.
p_estorna = 'X'.
EXIT.
ENDIF.
ENDIF.
IF /pws/zycbe124-txtinf NE wa_zycbt124-txtinf.
* >> Início da exclusão: FORM VERIFICA_CAMPOS_PARMETRIZAVEIS
SELECT SINGLE * FROM /pws/zyglt321
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_CAMPOS_PARMETRIZAVEIS
SELECT *
FROM /pws/zyglt321
up to 1 rows
* << Fim da inclusão
WHERE ktosl = 'DSF'
AND codeven = p_codeven
AND cpocb = 'TXTINF'.
* >> Início da inclusão: FORM VERIFICA_CAMPOS_PARMETRIZAVEIS
endselect.
* << Fim da inclusão
IF sy-subrc = 0.
p_estorna = 'X'.
EXIT.
ENDIF.
ENDIF.
IF /pws/zycbe124-codpagto NE wa_zycbt124-codpagto.
* >> Início da exclusão: FORM VERIFICA_CAMPOS_PARMETRIZAVEIS
SELECT SINGLE * FROM /pws/zyglt321
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_CAMPOS_PARMETRIZAVEIS
SELECT *
FROM /pws/zyglt321
up to 1 rows
* << Fim da inclusão
WHERE ktosl = 'DSF'
AND codeven = p_codeven
AND cpocb = 'CODPAGTO'.
* >> Início da inclusão: FORM VERIFICA_CAMPOS_PARMETRIZAVEIS
endselect.
* << Fim da inclusão
IF sy-subrc = 0.
p_estorna = 'X'.
EXIT.
ENDIF.
ENDIF.
IF /pws/zycbe124-dtincl NE wa_zycbt124-dtincl.
* >> Início da exclusão: FORM VERIFICA_CAMPOS_PARMETRIZAVEIS
SELECT SINGLE * FROM /pws/zyglt321
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_CAMPOS_PARMETRIZAVEIS
SELECT *
FROM /pws/zyglt321
up to 1 rows
* << Fim da inclusão
WHERE ktosl = 'DSF'
AND codeven = p_codeven
AND cpocb = 'DTINCL'.
* >> Início da inclusão: FORM VERIFICA_CAMPOS_PARMETRIZAVEIS
endselect.
* << Fim da inclusão
IF sy-subrc = 0.
p_estorna = 'X'.
EXIT.
ENDIF.
ENDIF.
IF /pws/zycbe124-dtdocto NE wa_zycbt124-dtdocto.
* >> Início da exclusão: FORM VERIFICA_CAMPOS_PARMETRIZAVEIS
SELECT SINGLE * FROM /pws/zyglt321
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_CAMPOS_PARMETRIZAVEIS
SELECT *
FROM /pws/zyglt321
up to 1 rows
* << Fim da inclusão
WHERE ktosl = 'DSF'
AND codeven = p_codeven
AND cpocb = 'DTDOCTO'.
* >> Início da inclusão: FORM VERIFICA_CAMPOS_PARMETRIZAVEIS
endselect.
* << Fim da inclusão
IF sy-subrc = 0.
p_estorna = 'X'.
EXIT.
ENDIF.
...
...
APPEND itab_zycbt141_i_aux.
ENDLOOP.
DELETE itab_zycbt141_aux WHERE tpimp(3) = 'IOF'.
LOOP AT itab_zycbt141 WHERE tpimp(3) = 'IOF'.
CLEAR itab_zycbt141_aux.
itab_zycbt141_aux = itab_zycbt141.
APPEND itab_zycbt141_aux.
ENDLOOP.
ENDIF.
ENDFORM.
* >> Início da exclusão: FORM SETA_ERRO_BI
FORM seta_erro_bi USING p_tpimp.
* << Fim da exclusão
* >> Início da inclusão: FORM SETA_ERRO_BI
FORM seta_erro_bi USING p_tpimp."#EC *
* << Fim da inclusão
IF p_tpimp = 'PRINCIPAL'.
erro_bi_principal = 'X'.
ELSEIF p_tpimp(4) = 'IRRF'.
erro_bi_irrf = 'X'.
ELSEIF p_tpimp(4) = 'CIDE'.
erro_bi_cide = 'X'.
ELSEIF p_tpimp(3) = 'PIS'.
erro_bi_pis = 'X'.
ELSEIF p_tpimp(6) = 'COFINS'.
erro_bi_cofins = 'X'.
...
...
ENDFORM.
FORM verifica_associacao CHANGING p_associado TYPE c.
CONSTANTS:
c_tpoper TYPE /pws/zycbe124-tpoper VALUE 'R',
c_frpagto TYPE /pws/zycbe124-frpagto VALUE 'C'.
STATICS
v_nrseq TYPE /pws/zycbt229-nrseq_remessa.
CHECK /pws/zycbe124-tpoper = c_tpoper AND
/pws/zycbe124-frpagto = c_frpagto.
IF v_nrseq IS INITIAL.
* >> Início da exclusão: FORM VERIFICA_ASSOCIACAO
SELECT SINGLE nrseq_remessa
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_ASSOCIACAO
SELECT nrseq_remessa
* << Fim da inclusão
FROM /pws/zycbt229
* >> Início da inclusão: FORM VERIFICA_ASSOCIACAO
up to 1 rows
* << Fim da inclusão
INTO v_nrseq
WHERE nrseq_remessa = /pws/zycbe124-nrseq.
* >> Início da inclusão: FORM VERIFICA_ASSOCIACAO
endselect. "#EC CI_NOFIRST
* << Fim da inclusão
ENDIF.
IF v_nrseq IS INITIAL.
CLEAR p_associado.
ELSE.
p_associado = 'X'.
ENDIF.
ENDFORM.
FORM calcula_base_calculo USING p_vl_remessa
p_tpimp
p_formula
* >> Início da exclusão: FORM CALCULA_BASE_CALCULO
CHANGING p_base_calculo.
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_BASE_CALCULO
CHANGING p_base_calculo."#EC *
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYCA_BASE_CALCULO_IMPOSTO'
EXPORTING
formula = p_formula
vl_remessa = p_vl_remessa
IMPORTING
vl_base = p_base_calculo
TABLES
t_zycat025 = itab_zycat025
EXCEPTIONS
valor_invalido = 1
* >> Início da exclusão: FORM CALCULA_BASE_CALCULO
OTHERS = 2.
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULA_BASE_CALCULO
OTHERS = 2."#EC *
if sy-subrc = 0 .
else.
endif.
* << Fim da inclusão
ENDFORM.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA109I01
...
w_ok = ok_code.
clear ok_code.
case w_ok.
when 'ENTE'.
imp = 1.
perform lock_record.
if sy-tcode eq '/PWS/ZYCB109_A'.
v_status_s = '1'.
endif.
if sy-tcode = '/PWS/ZYCB109_A'.
* >> Início da exclusão: MODULE USER_COMMAND_0200
select single nrboleto from /pws/zycbt064 into v_nrboleto
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0200
select nrboleto
from /pws/zycbt064
up to 1 rows
into v_nrboleto
* << Fim da inclusão
where nrchave = v_nrseq
and mdcorresp = 'CP'.
* >> Início da inclusão: MODULE USER_COMMAND_0200
endselect.
* << Fim da inclusão
if sy-subrc ne 0.
* >> Início da exclusão: MODULE USER_COMMAND_0200
select single nrseq from /pws/zycbt031 into v_nrboleto
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0200
select nrseq
from /pws/zycbt031
up to 1 rows
into v_nrboleto
* << Fim da inclusão
where nrcorresp = v_nrseq
and mdcorresp = 'CP'.
* >> Início da inclusão: MODULE USER_COMMAND_0200
endselect.
* << Fim da inclusão
endif.
select single vlme sld_associar
from /pws/zycbt124
into (v_vlme_assoc, v_sld_associar)
where
...
...
v_status_s = 0.
endif.
endif.
endif.
select single * from /pws/zycbt124 into /pws/zycbe124
where nrseq = v_nrseq
and status <> 'E'.
if sy-subrc = 0.
v_dtvencto_ant = /pws/zycbe124-dtvencto.
select * from /pws/zycat025 into table itab_zycat025
* >> Início da exclusão: MODULE USER_COMMAND_0200
where nrseq = v_nrseq.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0200
where nrseq = v_nrseq."#EC CI_NOFIRST
* << Fim da inclusão
loop at itab_zycat025.
* >> Início da exclusão: MODULE USER_COMMAND_0200
select single * from /pws/zycbt064
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0200
select * from /pws/zycbt064
up to 1 rows
* << Fim da inclusão
where nrchave = /pws/zycbe124-nrseq
and mdcorresp = 'CP'.
* >> Início da inclusão: MODULE USER_COMMAND_0200
endselect .
* << Fim da inclusão
if sy-subrc = 0.
* >> Início da exclusão: MODULE USER_COMMAND_0200
select single * from /pws/zycbt134
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0200
select * from /pws/zycbt134
up to 1 rows
* << Fim da inclusão
where nrseq = /pws/zycbt064-nrboleto
and tpproc = itab_zycat025-tpimp.
* >> Início da inclusão: MODULE USER_COMMAND_0200
endselect .
* << Fim da inclusão
if sy-subrc = 0.
itab_zycat025-dtpagto = /pws/zycbt134-dtlanc.
itab_zycat025-belnr_pg = /pws/zycbt134-belnr_c.
endif.
endif.
if itab_zycat025-tpimp(4) = 'IRRF'.
v_basecalc_irrf = itab_zycat025-basecalc.
elseif itab_zycat025-tpimp(4) = 'CIDE'.
v_basecalc_cide = itab_zycat025-basecalc.
elseif itab_zycat025-tpimp(3) = 'IOF'.
...
...
elseif /pws/zycbe124-ftaxa = 'B'.
v_venda = 'X'.
v_compra = ' '.
v_media = ' '.
elseif /pws/zycbe124-ftaxa = 'M'.
v_media = 'X'.
v_compra = ' '.
v_venda = ' '.
endif.
clear /pws/zycbe115.
* >> Início da exclusão: MODULE USER_COMMAND_0200
select single * from /pws/zycbt115 into /pws/zycbe115
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0200
select * from /pws/zycbt115
up to 1 rows
into /pws/zycbe115
* << Fim da inclusão
where nrcorrep = /pws/zycbe124-nrseq
and tpdoc = 'N'.
* >> Início da inclusão: MODULE USER_COMMAND_0200
endselect.
* << Fim da inclusão
move /pws/zycbe115 to wa_zycbt115.
select single * from /pws/zycbt127 into /pws/zycbe127
where nrseq = v_nrseq.
if sy-subrc = 0.
move /pws/zycbe127 to wa_zycbt127.
...
...
if w_vlr = 'S'.
leave to screen '0000'.
endif.
endif.
else.
leave to screen '0000'.
endif.
when 'TRASH'.
delete /pws/zycbt127 from wa_zycbt127.
if sy-subrc = 0.
* >> Início da exclusão: MODULE USER_COMMAND_0110
message s011(pc) with text-006.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0110
message s088(sf) with text-006.
* << Fim da inclusão
clear: /pws/zycbe127, wa_zycbt127.
w_compl = 'N'.
leave to screen '0000'.
endif.
when 'ALTER'.
v_status_s = 1.
v_trans = 'S'.
endcase.
endmodule.
module consiste_moeda input.
...
...
exceptions
i_demoeda_nao_encontrado = 1
i_paramoeda_nao_encontrado = 2
i_ctmoeda_nao_encontrado = 3
i_dtbase_nao_encontrada = 4
taxa_nao_encontrada = 5
fator_nao_encontrado = 6
i_montante_nao_encontrado = 7
tabela_categ_nao_configurada = 8
others = 9.
* >> Início da inclusão: MODULE VER_CAMPOS
if sy-subrc = 0 .
else.
endif.
* << Fim da inclusão
if not /pws/zycbe124-kursf is initial.
v_kursf = /pws/zycbe124-kursf.
endif.
endif.
if sy-subrc ne 0.
v_defator = 1.
v_parafator = 1.
endif.
endmodule.
module busca_clifor input.
check v_status_s ne 0.
if /pws/zycbt125-tprem = '2'.
clear rbkp.
* >> Início da exclusão: MODULE BUSCA_CLIFOR
select single gjahr lifnr waers rmwwr from rbkp
* << Fim da exclusão
* >> Início da inclusão: MODULE BUSCA_CLIFOR
select gjahr lifnr waers rmwwr
from rbkp
up to 1 rows
* << Fim da inclusão
into (rbkp-gjahr,rbkp-lifnr,rbkp-waers,rbkp-rmwwr)
where belnr = /pws/zycbe124-belnr_re
and xblnr = /pws/zycbe124-xblnr
and blart = 'RE'.
* >> Início da inclusão: MODULE BUSCA_CLIFOR
endselect.
* << Fim da inclusão
if sy-subrc = 0.
/pws/zycbe124-recrem = rbkp-lifnr.
endif.
endif.
perform busca_clifor.
* >> Início da exclusão: MODULE BUSCA_CLIFOR
data: v_texto type c.
* << Fim da exclusão
* >> Início da inclusão: MODULE BUSCA_CLIFOR
data: v_texto type c. "#EC NEEDED
* << Fim da inclusão
call function '/PWS/ZYCA_FLAG_TEXTO'
exporting
v_bukrs = /pws/zycbe124-bukrs
importing
v_flag_texto = v_texto.
endmodule.
module consiste_codpagto input.
if v_status_s ne 0.
* >> Início da exclusão: MODULE CONSISTE_CODPAGTO
select single * from /pws/zycbt125 into /pws/zycbt125
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_CODPAGTO
select *
from /pws/zycbt125
up to 1 rows
into /pws/zycbt125
* << Fim da inclusão
where codpagto = /pws/zycbe124-codpagto.
* >> Início da inclusão: MODULE CONSISTE_CODPAGTO
endselect.
* << Fim da inclusão
if sy-subrc = 0 and /pws/zycbt125-tprem = 2.
clear: /pws/zycbe124-pcide, /pws/zycbe124-vcide,
/pws/zycbe124-aliqir,
/pws/zycbe124-vlir, /pws/zycbe124-codrfcide,
/pws/zycbe124-codigorf.
endif.
...
...
/pws/zycbe141-kdauf to itab_zycbt141-kdauf,
/pws/zycbe141-geber to itab_zycbt141-geber,
/pws/zycbe141-ebeln to itab_zycbt141-ebeln,
/pws/zycbe141-cod_area to itab_zycbt141-cod_area,
/pws/zycbe141-ebelp to itab_zycbt141-ebelp.
modify itab_zycbt141 index tc_contab-current_line.
if sy-subrc ne 0.
append itab_zycbt141.
endif.
endmodule.
* >> Início da exclusão: MODULE MATCHCODE_BCOFAV
module matchcode_bcofav input.
* << Fim da exclusão
* >> Início da inclusão: MODULE MATCHCODE_BCOFAV
module matchcode_bcofav input."#EC *
* << Fim da inclusão
data : dynpread like dynpread occurs 0 with header line.
dynpread-fieldname = '/PWS/ZYCBE124-RECREM'.
append dynpread.
call function 'DYNP_VALUES_READ'
exporting
dyname = '/PWS/SAPMZYCA109'
dynumb = '0101'
tables
dynpfields = dynpread.
/pws/zycbe124-recrem = dynpread-fieldvalue.
...
...
call function 'G_HELP_VALUES_GET'
exporting
mc_object = v_mconame
importing
selected_value = /pws/zygle209-bcofav.
endmodule.
module consiste_campos input.
data: v_mensagem1(51).
if not v_status_s = 0 and ( ok_code = 'ENTE' or ok_code = 'SAVE' )
and /pws/zycbe124-criacao = 'S'.
* >> Início da exclusão: MODULE CONSISTE_CAMPOS
select single * from cskb into cskb
where kstar = /pws/zycbe141-saknr1.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_CAMPOS
select * from cskb
up to 1 rows
into cskb
where kstar = /pws/zycbe141-saknr1."#EC CI_GENBUFF
endselect.
* << Fim da inclusão
if sy-subrc ne 0 and not /pws/zycbe141-kostl is initial.
message w061 with text-102 /pws/zycbe141-saknr1 text-104.
elseif sy-subrc = 0 and
/pws/zycbe141-kostl is initial and
/pws/zycbe141-ps_posid is initial and
/pws/zycbe141-aufnr is initial and
/pws/zycbe141-prctr is initial.
concatenate text-102 /pws/zycbe141-saknr1 text-103
into v_mensagem1 separated by space.
message w061 with v_mensagem1 text-085 text-139.
...
...
if sy-subrc eq 0.
call transaction 'MIR4' and skip first screen.
else.
message e261(sf) with 'MIR4'.
endif.
endif.
elseif v_campo eq '/PWS/ZYCBE134-BELNR_C'.
if not v_valor is initial.
i_belnr = v_valor.
i_bukrs = /pws/zycbe124-bukrs.
* >> Início da exclusão: MODULE USER_COMMAND_0101
select single * from /pws/zycbt064
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0101
select * from /pws/zycbt064
up to 1 rows
* << Fim da inclusão
where nrchave = /pws/zycbe124-nrseq
and mdcorresp = 'CP'.
* >> Início da inclusão: MODULE USER_COMMAND_0101
endselect.
* << Fim da inclusão
if sy-subrc = 0 and /pws/zycbe124-tpoper = 'R'.
* >> Início da exclusão: MODULE USER_COMMAND_0101
select single * from /pws/zycbt031
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0101
select * from /pws/zycbt031
up to 1 rows
* << Fim da inclusão
where nrseq = /pws/zycbt064-nrboleto.
* >> Início da inclusão: MODULE USER_COMMAND_0101
endselect.
* << Fim da inclusão
if sy-subrc = 0.
i_gjahr = /pws/zycbt031-dtcredpr(4).
endif.
elseif sy-subrc = 0.
* >> Início da exclusão: MODULE USER_COMMAND_0101
select single * from /pws/zycbt134
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0101
select * from /pws/zycbt134
up to 1 rows
* << Fim da inclusão
where nrseq = /pws/zycbt064-nrboleto
and ( tpproc = 'PRINCIPAL' or
tpproc = ' ' ).
* >> Início da inclusão: MODULE USER_COMMAND_0101
endselect.
* << Fim da inclusão
if sy-subrc = 0.
i_gjahr = /pws/zycbt134-dtlanc(4).
endif.
endif.
...
...
else.
message e261(sf) with 'FB03'.
endif.
endif.
elseif v_campo = '/PWS/ZYCAE025-BELNR_PG'.
if not v_valor is initial.
i_belnr = v_valor.
i_bukrs = /pws/zycbe124-bukrs.
read table itab_zycat025 with key belnr_pr = v_valor.
if sy-subrc = 0.
* >> Início da exclusão: MODULE USER_COMMAND_0101
select single * from /pws/zycbt064
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0101
select * from /pws/zycbt064
up to 1 rows
* << Fim da inclusão
where nrchave = /pws/zycbe124-nrseq
and mdcorresp = 'CP'.
* >> Início da inclusão: MODULE USER_COMMAND_0101
endselect.
* << Fim da inclusão
if sy-subrc = 0.
* >> Início da exclusão: MODULE USER_COMMAND_0101
select single * from /pws/zycbt134
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0101
select * from /pws/zycbt134
up to 1 rows
* << Fim da inclusão
where nrseq = /pws/zycbt064-nrboleto
* >> Início da exclusão: MODULE USER_COMMAND_0101
and tpproc = itab_zycat025-tpimp.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0101
and tpproc = itab_zycat025-tpimp.
endselect.
* << Fim da inclusão
if sy-subrc = 0.
i_gjahr = /pws/zycbt134-dtlanc(4).
...
...
if v_frpagto ne /pws/zycbe124-frpagto and not v_frpagto is initial.
clear itab_zycbt141.
refresh itab_zycbt141.
endif.
if /pws/zycbe124-frpagto ne 'R' and
/pws/zycbe124-frpagto ne 'C'.
message e061 with text-134.
else.
v_frpagto = /pws/zycbe124-frpagto.
endif.
* >> Início da inclusão: MODULE CONSISTE_FRPAGTO
select *
from /pws/zycbt125
up to 1 rows
into /pws/zycbt125
where codpagto = /pws/zycbe124-codpagto.
endselect.
* << Fim da inclusão
* >> Início da exclusão: MODULE CONSISTE_FRPAGTO
select single * from /pws/zycbt125 into /pws/zycbt125
where codpagto = /pws/zycbe124-codpagto.
* << Fim da exclusão
if /pws/zycbt125-tprem ne '2'.
clear: /pws/zycbe124-xblnr, /pws/zycbe124-belnr_re,
/pws/zycbe124-nrinvoic.
v_codpagto = /pws/zycbe124-codpagto.
endif.
if ( /pws/zycbt125-tprem = '2' or /pws/zycbt125-tprem = '1' )
and /pws/zycbe124-frpagto = 'C'.
message e061 with text-109 text-110.
endif.
endmodule.
...
...
append itab_zyglt209.
endif.
endmodule.
module consiste_valores_itens input.
if not sy-tcode eq '/PWS/ZYCB109_E'.
perform trata_valores_itens.
endif.
endmodule.
module consiste_referencia input.
if /pws/zycbt125 is initial.
* >> Início da exclusão: MODULE CONSISTE_REFERENCIA
select single * from /pws/zycbt125 into /pws/zycbt125
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_REFERENCIA
select *
from /pws/zycbt125
up to 1 rows
into /pws/zycbt125
* << Fim da inclusão
where codpagto = /pws/zycbe124-codpagto.
* >> Início da inclusão: MODULE CONSISTE_REFERENCIA
endselect.
* << Fim da inclusão
endif.
if /pws/zycbt125-tprem = '2'.
tdynpread-fieldname = '/PWS/ZYCBE124-BELNR_RE'.
append tdynpread.
call function 'DYNP_VALUES_READ'
exporting
dyname = '/PWS/SAPMZYCA109'
dynumb = '0101'
tables
dynpfields = tdynpread.
/pws/zycbe124-belnr_re = tdynpread-fieldvalue.
if /pws/zycbe124-belnr_re is initial.
message e061 with text-096.
endif.
if not /pws/zycbe124-belnr_re is initial.
* >> Início da exclusão: MODULE CONSISTE_REFERENCIA
select single * from rbkp into rbkp
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_REFERENCIA
select *
from rbkp
up to 1 rows
into rbkp
* << Fim da inclusão
where belnr = /pws/zycbe124-belnr_re
and xblnr = /pws/zycbe124-xblnr.
* >> Início da inclusão: MODULE CONSISTE_REFERENCIA
endselect.
* << Fim da inclusão
if sy-subrc ne 0.
message e061 with text-108.
endif.
else.
message e061 with text-108.
...
...
tables itab_zycbt141_p
using tc_principal-current_line.
when '0106'.
perform atualiza_itab_rateio
tables itab_zycbt141_i
using tc_imposto-current_line.
endcase.
endmodule.
module consiste_valores input.
data: v_aliq type /pws/zycat024-aliq.
* >> Início da inclusão: MODULE CONSISTE_VALORES
data: v_val like /pws/zycae025-reducao.
* << Fim da inclusão
check not /pws/zycae025-tpimp is initial and
v_status_s ne 0.
read table itab_zycat024 with key bukrs = /pws/zycbe124-bukrs
tpimp = /pws/zycae025-tpimp.
check sy-subrc = 0.
if /pws/zycae025-aliqgera is initial or
sy-tcode eq '/PWS/ZYCB109_C'.
/pws/zycae025-aliqgera = itab_zycat024-aliq.
endif.
if ( ( /pws/zycbe124-dtvencto ne v_dtvencto_ant and
...
...
( ( 100 - /pws/zycae025-advalorem ) / 100 ).
else.
/pws/zycae025-basecalc = v_valorme.
endif.
endif.
v_basecalc_cide = /pws/zycae025-basecalc.
endif.
/pws/zycae025-vlimpme =
/pws/zycae025-basecalc * ( /pws/zycae025-advalorem / 100 ).
elseif /pws/zycae025-tpimp(3) = 'IOF'.
* >> Início da exclusão: MODULE CONSISTE_VALORES
if /pws/zycae025-reducao gt '100.00000'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_VALORES
v_val = '100.00000' .
if /pws/zycae025-reducao gt v_val.
* << Fim da inclusão
message w015 with text-177 text-015.
clear /pws/zycae025-reducao.
endif.
if itab_zycat024-altera_base is initial and
not /pws/zycae025-basecalc is initial and
not v_basecalc_iof is initial and
/pws/zycae025-basecalc ne v_basecalc_iof.
/pws/zycae025-basecalc = v_basecalc_iof.
message i061 with /pws/zycae025-tpimp text-173 text-174.
elseif itab_zycat024-altera_base is initial or
...
...
if not v_kursf is initial.
/pws/zycae025-vlimpmi = v_vlme * v_kursf.
endif.
endif.
if /pws/zycae025-aliqgera < 0 or
/pws/zycae025-advalorem < 0 or
/pws/zycae025-basecalc < 0 or
/pws/zycae025-vlimpme < 0 or
/pws/zycae025-vlimpmi < 0 or
/pws/zycae025-reducao < 0.
* >> Início da exclusão: MODULE CONSISTE_VALORES
message i268 with 'Lançamento Indevido!'.
* << Fim da exclusão
* >> Início da inclusão: MODULE CONSISTE_VALORES
message i268 with text-003.
* << Fim da inclusão
exit.
endif.
itab_zycat025 = /pws/zycae025.
itab_zycat025-mandt = sy-mandt.
itab_zycat025-bukrs = /pws/zycbe124-bukrs.
itab_zycat025-nrseq = /pws/zycbe124-nrseq.
itab_zycat025-mark = mark.
modify itab_zycat025 index tc_cab-current_line.
if sy-subrc ne 0.
append itab_zycat025.
...
...
exporting
i_codmod = 'F'
i_func = v_syrepid
tables
itab_zyglt100 = itab_zyglt100
exceptions
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
others = 4.
* >> Início da inclusão: MODULE CONTROLA_IMPOSTOS
if sy-subrc = 0 .
else.
endif.
* << Fim da inclusão
sort itab_zycat025 by tpimp.
sort itab_zycat025_aux by tpimp.
delete adjacent duplicates from itab_zycat025 comparing tpimp.
itab_zycat025_aux2[] = itab_zycat025[].
read table itab_zycat025 with key tpimp(4) = 'IRRF'.
if sy-subrc = 0.
v_control_ir = v_control_ir + 1.
read table itab_zycat024 with key bukrs = /pws/zycbe124-bukrs
tpimp = itab_zycat025-tpimp.
if sy-subrc eq 0 and
...
...
v_advalorem2 = 100.
read table itab_zycat025_aux2 with key tpimp(3) = 'ISS'.
if sy-subrc = 0.
v_advalorem = v_advalorem + itab_zycat025_aux2-advalorem.
else.
select single aliq from /pws/zycat024
into v_aliq
where bukrs = /pws/zycbe124-bukrs
and tpimp = 'ISS'.
v_advalorem = v_advalorem + v_aliq.
* >> Início da exclusão: MODULE CONTROLA_IMPOSTOS
endif..
* << Fim da exclusão
* >> Início da inclusão: MODULE CONTROLA_IMPOSTOS
endif.
* << Fim da inclusão
v_advalorem2 = v_advalorem2 - itab_zycat025-advalorem.
read table itab_zycat025_aux2 with key tpimp(3) = 'PIS'.
if sy-subrc = 0.
v_advalorem2 = v_advalorem2 - itab_zycat025_aux2-advalorem.
endif.
read table itab_zycat026 with key
tpimp = itab_zycat025-tpimp(6).
if sy-subrc = 0 and not itab_zycat026-formula is initial.
perform calcula_base_calculo using /pws/zycbe124-vlme
itab_zycat025-tpimp
...
...
message e061 with text-178.
else.
read table itab_zycat025 with key
tpimp(6) = /pws/zycae025-tpimp(6).
if sy-subrc = 0 and not /pws/zycae025-tpimp = itab_zycat025-tpimp.
message e061 with text-178.
endif.
endif.
endif.
endmodule.
* >> Início da exclusão: MODULE USER_COMMAND_0004
module user_command_0004 input.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0004
module user_command_0004 input."#EC *
* << Fim da inclusão
case ok_code.
when 'ENTE' or 'BACK'.
set screen 0.
leave screen.
endcase.
endmodule.
module consiste_nrfat input.
clear itab_zyglt100.
if itab_zyglt100[] is initial.
v_syrepid = sy-repid.
...
...
exporting
i_codmod = 'F'
i_func = v_syrepid
tables
itab_zyglt100 = itab_zyglt100
exceptions
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
i_zexit_nao_encontrado = 3
others = 4.
* >> Início da inclusão: MODULE CONSISTE_NRFAT
if sy-subrc = 0 .
else.
endif.
* << Fim da inclusão
endif.
read table itab_zyglt100 with key zexit = 'REM005' 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.
endif.
endif.
endmodule.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA109O01
...
PERFORM retorna_processa.
ENDIF.
REFRESH itab_pf_status.
IF v_nrseq IS INITIAL OR v_trans = 'I'.
itab_pf_status-fcode = 'TRASH'.
APPEND itab_pf_status.
itab_pf_status-fcode = 'CARTA'.
APPEND itab_pf_status.
itab_pf_status-fcode = 'MODI'.
APPEND itab_pf_status.
* >> Início da exclusão: MODULE STATUS_0100
SELECT SINGLE tprem FROM /pws/zycbt125
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0100
SELECT tprem FROM /pws/zycbt125
up to 1 rows
* << Fim da inclusão
INTO /pws/zycbt125-tprem
WHERE codpagto EQ /pws/zycbe124-codpagto
AND tpoper EQ 'R'.
* >> Início da inclusão: MODULE STATUS_0100
endselect.
* << Fim da inclusão
IF /pws/zycbt125-tprem NE '1'.
itab_pf_status-fcode = 'ADIC'.
APPEND itab_pf_status.
ENDIF.
...
...
ENDIF.
IF /pws/zycbe124-codpagto NE text-078 AND
/pws/zycbe124-codpagto NE text-079.
itab_pf_status-fcode = 'ADIC'.
APPEND itab_pf_status.
ENDIF.
itab_pf_status-fcode = 'TRASH'.
APPEND itab_pf_status.
itab_pf_status-fcode = 'DELE'.
APPEND itab_pf_status.
* >> Início da exclusão: MODULE STATUS_0100
SELECT SINGLE tprem FROM /pws/zycbt125
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0100
SELECT tprem FROM /pws/zycbt125
up to 1 rows
* << Fim da inclusão
INTO /pws/zycbt125-tprem
WHERE codpagto EQ /pws/zycbe124-codpagto
AND tpoper EQ 'R'.
* >> Início da inclusão: MODULE STATUS_0100
endselect.
* << Fim da inclusão
IF /pws/zycbt125-tprem NE '1'.
itab_pf_status-fcode = 'ADIC'.
APPEND itab_pf_status.
ENDIF.
SET TITLEBAR '0200'.
ELSE.
* >> Início da exclusão: MODULE STATUS_0100
SELECT SINGLE * FROM /pws/zycbt125 INTO /pws/zycbt125
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0100
SELECT * FROM /pws/zycbt125
up to 1 rows
INTO /pws/zycbt125
* << Fim da inclusão
WHERE codpagto = /pws/zycbe124-codpagto
AND tpoper = 'R'.
* >> Início da inclusão: MODULE STATUS_0100
endselect.
* << Fim da inclusão
IF /pws/zycbt125-tprem NE '1'.
itab_pf_status-fcode = 'ADIC'.
APPEND itab_pf_status.
ENDIF.
SET TITLEBAR '0300'.
ENDIF.
IF /pws/zycbe124-criacao NE 'S'.
itab_pf_status-fcode = 'DELE'.
APPEND itab_pf_status.
ENDIF.
SET PF-STATUS '0100' EXCLUDING itab_pf_status.
PERFORM carrega_par_impostos.
ENDMODULE.
MODULE set_screen OUTPUT.
CLEAR /pws/zycbt125.
* >> Início da exclusão: MODULE SET_SCREEN
SELECT SINGLE tprem FROM /pws/zycbt125
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
SELECT tprem FROM /pws/zycbt125
up to 1 rows
* << Fim da inclusão
INTO /pws/zycbt125-tprem
WHERE codpagto EQ /pws/zycbe124-codpagto
AND tpoper EQ 'R'.
* >> Início da inclusão: MODULE SET_SCREEN
endselect.
* << Fim da inclusão
CASE sy-dynnr.
WHEN '0102'.
tc_contab-lines = tc_contab-top_line + 15.
IF v_status_s = '0' OR /pws/zycbe124-criacao NE 'S'.
...
...
wa_cols-screen-name NE '/PWS/ZYCAE025-BELNR_PR' AND
wa_cols-screen-name NE '/PWS/ZYCAE025-BELNR_PG' AND
wa_cols-screen-name NE '/PWS/ZYCAE025-DTPAGTO'.
wa_cols-screen-input = '1'.
MODIFY tc_cab-cols FROM wa_cols.
ENDIF.
ENDLOOP.
tc_cab-line_sel_mode = 2.
ENDIF.
CLEAR /pws/zycbt125.
* >> Início da exclusão: MODULE SET_SCREEN
SELECT SINGLE * FROM /pws/zycbt125 INTO /pws/zycbt125
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
SELECT * FROM /pws/zycbt125
up to 1 rows
INTO /pws/zycbt125
* << Fim da inclusão
WHERE codpagto = /pws/zycbe124-codpagto.
* >> Início da inclusão: MODULE SET_SCREEN
endselect.
* << Fim da inclusão
IF v_status_s = '0' OR v_trans = 'E'.
IF v_boleto EQ 'X'.
LOOP AT SCREEN.
IF ( screen-name = '/PWS/ZYCBE124-XBLNR' OR
screen-name = '/PWS/ZYCBE124-BELNR_RE' OR
screen-name = '/PWS/ZYCBE124-NRINVOIC' )
...
...
ENDCASE.
ENDMODULE.
MODULE load_data OUTPUT.
IF /pws/zycbe124-nrseq IS INITIAL AND v_status_s NE '0'.
CLEAR: /pws/zycbt007.
PERFORM find_nrseq.
v_nrseq = /pws/zycbe124-nrseq.
v_trans = 'I'.
optnao = 'X'.
optsim = ' '.
* >> Início da exclusão: MODULE LOAD_DATA
SELECT SINGLE empresa
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_DATA
SELECT empresa
* << Fim da inclusão
FROM /pws/zyglt364
* >> Início da inclusão: MODULE LOAD_DATA
up to 1 rows
* << Fim da inclusão
INTO /pws/zyglt364-empresa
WHERE usuario EQ sy-uname.
* >> Início da inclusão: MODULE LOAD_DATA
endselect.
* << Fim da inclusão
SELECT SINGLE bukrs gsber j_1bbranch werks
...
...
MODULE preenche_campos OUTPUT.
PERFORM preenche_campos.
ENDMODULE.
MODULE descricao OUTPUT.
PERFORM tpoper_search.
CLEAR : v_noper.
SELECT SINGLE descricao FROM /pws/zyglt206
INTO v_noper
WHERE codigo EQ /pws/zycbe124-noper.
PERFORM busca_clifor.
* >> Início da inclusão: MODULE DESCRICAO
SELECT cname FROM pa0002
* << Fim da inclusão
* >> Início da exclusão: MODULE DESCRICAO
SELECT SINGLE cname FROM pa0002
* << Fim da exclusão
* >> Início da inclusão: MODULE DESCRICAO
up to 1 rows
* << Fim da inclusão
INTO v_funcionario
WHERE pernr = /pws/zycbe124-pernr.
* >> Início da inclusão: MODULE DESCRICAO
endselect .
* << Fim da inclusão
IF NOT /pws/zycbe124-frpagto IS INITIAL.
* >> Início da exclusão: MODULE DESCRICAO
SELECT SINGLE ddtext FROM dd07t
* << Fim da exclusão
* >> Início da inclusão: MODULE DESCRICAO
SELECT ddtext
FROM dd07t
up to 1 rows
* << Fim da inclusão
INTO v_frpgto
WHERE domname = '/PWS/ZYGLD432' AND
domvalue_l = /pws/zycbe124-frpagto AND
ddlanguage = sy-langu.
* >> Início da inclusão: MODULE DESCRICAO
endselect .
* << Fim da inclusão
ENDIF.
ENDMODULE.
MODULE status_0300 OUTPUT.
...
...
v_nome_campo,
v_comp.
IF sy-dynnr EQ '0102'.
v_cod_grupo = 'CCO'.
ENDIF.
SELECT campo flag
FROM /pws/zyglt320
INTO TABLE itab_t320
WHERE programa = sy-repid AND
tela = sy-dynnr AND
* >> Início da exclusão: MODULE TRATA_TBCONTROL
cod_grupo = v_cod_grupo.
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_TBCONTROL
cod_grupo = v_cod_grupo."#EC CI_NOFIRST
* << Fim da inclusão
SORT itab_t320 BY campo.
LOOP AT SCREEN.
itab_nome_campo-nome_campo_tela = screen-name.
APPEND itab_nome_campo.
ENDLOOP.
SORT itab_nome_campo.
LOOP AT itab_t320.
CONCATENATE '.' itab_t320-campo '.' INTO v_comp.
SEARCH itab_nome_campo FOR v_comp STARTING AT 1.
IF sy-subrc EQ 0.
READ TABLE itab_nome_campo INDEX sy-tabix.
* >> Início da exclusão: MODULE TRATA_TBCONTROL
IF sy-subrc EQ 0 AND itab_nome_campo-modif = ' '. .
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_TBCONTROL
IF sy-subrc EQ 0 AND itab_nome_campo-modif = ' '.
* << Fim da inclusão
itab_t320-campo = itab_nome_campo-nome_campo_tela.
MODIFY itab_t320.
DELETE itab_nome_campo INDEX sy-tabix.
ENDIF.
ENDIF.
CLEAR: itab_t320, itab_nome_campo.
ENDLOOP.
LOOP AT tc_contab-cols INTO wa_cols.
v_nome_campo = wa_cols-screen-name.
CASE wa_cols-screen-name.
...
...
v_comp.
IF sy-dynnr EQ '0104' .
v_cod_grupo = 'CCR'.
ENDIF.
IF sy-dynnr = '0104' AND /pws/zycbe124-tpoper = 'R'.
SELECT campo flag
FROM /pws/zyglt320
INTO TABLE itab_t320
WHERE programa EQ sy-repid AND
tela EQ '0108' AND
* >> Início da exclusão: MODULE TRATA_CAMPOS
cod_grupo EQ v_cod_grupo.
* << Fim da exclusão
* >> Início da inclusão: MODULE TRATA_CAMPOS
cod_grupo EQ v_cod_grupo."#EC CI_NOFIRST
* << Fim da inclusão
ELSE.
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
ENDIF.
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'.
APPEND myevent TO myevent_tab.
CALL METHOD html_control->set_registered_events
EXPORTING
events = myevent_tab.
CREATE OBJECT evt_receiver.
SET HANDLER evt_receiver->on_sapevent
FOR html_control.
PERFORM load_home_page.
ENDIF.
ENDMODULE.
* >> Início da exclusão: MODULE STATUS_0004
MODULE status_0004 OUTPUT.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0004
MODULE status_0004 OUTPUT."#EC *
* << Fim da inclusão
SET PF-STATUS '0004'.
* >> Início da exclusão: MODULE STATUS_0004
SET TITLEBAR '004'.
* << Fim da exclusão
* >> Início da inclusão: MODULE STATUS_0004
SET TITLEBAR '004'."#EC *
* << Fim da inclusão
ENDMODULE.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA109TOP
PROGRAM /pws/sapmzycb109 MESSAGE-ID /pws/zycam.
* >> Início da inclusão:
data RB_PAG.
data RB_REC.
* << Fim da inclusão
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/zyglt364,
* >> Início da exclusão:
/pws/zyglt334,
* << Fim da exclusão
/pws/zyglt214,
/pws/zycbt125,
/pws/zycbt007,
* >> Início da exclusão:
/pws/zycbt009,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt009, "#EC *
* << Fim da inclusão
/pws/zycbt089,
* >> Início da exclusão:
/pws/zycat010,
/pws/zycbt011,
* << Fim da exclusão
/pws/zyglt009,
rbkp,
vbfa,
kna1,
lfa1,
bkpf,
* >> Início da exclusão:
bseg,
* << Fim da exclusão
* >> Início da inclusão:
bseg, "#EC *
* << Fim da inclusão
cskb,
* >> Início da exclusão:
tcurr,
lfbw,
* << Fim da exclusão
tcurt,
/pws/zycbt039,
* >> Início da exclusão:
/pws/zyglt377,
/pws/zyglt321,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zyglt377,"#EC NEEDED
/pws/zyglt321,"#EC NEEDED
* << Fim da inclusão
rm06b,
t16fe,
j_1bbranch,
adrc,
tcurx,
afko,
afvc,
* >> Início da exclusão:
/pws/zycat024.
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycat024."#EC *
* << Fim da inclusão
DATA:
wa_zycbt031a LIKE /pws/zycbe031.
DATA: BEGIN OF itab_rel OCCURS 0,
tpoper LIKE /pws/zycbt124-tpoper,
nrseq(10) TYPE n,
waers LIKE /pws/zycbt124-waers,
vlme LIKE /pws/zycbt124-vlme,
recrem LIKE /pws/zycbt124-recrem,
END OF itab_rel.
DATA: v_nrboleto LIKE /pws/zycbt064-nrboleto OCCURS 10 WITH HEADER
* >> Início da exclusão:
LINE.
* << Fim da exclusão
* >> Início da inclusão:
LINE."#EC *
* << Fim da inclusão
DATA: BEGIN OF itab_pf_status OCCURS 10,
fcode LIKE rsmpe-func,
END OF itab_pf_status.
DATA: BEGIN OF itab_zycbt133 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt133.
DATA: END OF itab_zycbt133.
DATA: BEGIN OF itab_zyglt209_aux OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt209.
DATA: mark(1) TYPE c.
DATA: END OF itab_zyglt209_aux.
...
...
DATA: mark(1) TYPE c.
DATA: END OF itab_zyglt209_tela.
DATA: BEGIN OF itab_zyglt316 OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt316.
DATA : END OF itab_zyglt316.
DATA: BEGIN OF it_modo OCCURS 0.
INCLUDE STRUCTURE spopli.
DATA: END OF it_modo.
DATA : tdynpread LIKE dynpread OCCURS 0 WITH HEADER LINE,
v_mconame LIKE dd23l-mconame.
* >> Início da exclusão:
DATA: BEGIN OF itab_thead OCCURS 50.
* << Fim da exclusão
* >> Início da inclusão:
DATA: BEGIN OF itab_thead OCCURS 50."#EC NEEDED
* << Fim da inclusão
INCLUDE STRUCTURE thead.
DATA: END OF itab_thead.
DATA: BEGIN OF itab_tline OCCURS 50.
INCLUDE STRUCTURE tline.
DATA: END OF itab_tline.
DATA: BEGIN OF itab_zycbt009 OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt009.
DATA : END OF itab_zycbt009.
DATA: BEGIN OF itab_t320 OCCURS 0,
campo(35) TYPE c,
...
...
tc_principal TYPE TABLEVIEW USING SCREEN 105,
tc_imposto TYPE TABLEVIEW USING SCREEN 106.
DATA:
v_nrseq LIKE /pws/zycbt124-nrseq,
v_nrseqview(10) TYPE c,
ok_code LIKE sy-ucomm,
ok_code1 LIKE sy-ucomm,
ok_code2 LIKE sy-ucomm,
v_answer,
mark(1),
* >> Início da exclusão:
mark1(1) TYPE c,
* << Fim da exclusão
v_status_s VALUE 1,
v_resp TYPE c,
v_obrig LIKE /pws/zyglt009-infotext,
v_origem TYPE c,
moeda LIKE tcurt-ltext,
v_desc LIKE /pws/zycbt125-descricao,
v_index LIKE sy-tabix,
v_nome LIKE lfa1-name1,
corretora LIKE lfa1-name1,
v_cols TYPE cxtab_column,
...
...
wa_vlme LIKE /pws/zycbt124-vlme,
w_vlr TYPE c,
w_compl TYPE c VALUE 'N',
v_trans TYPE c,
vtot_tcs TYPE p DECIMALS 2,
v_noper(30) TYPE c,
v_compra,
v_venda,
v_remessa,
v_media,
* >> Início da exclusão:
v_lock VALUE 1,
* << Fim da exclusão
* >> Início da inclusão:
v_lock VALUE 1, "#EC NEEDED
* << Fim da inclusão
v_nrseq_aux2(10) TYPE n,
save TYPE i VALUE 0,
imp TYPE i VALUE 1,
s TYPE i ,
v_aux(8),
v_boleto TYPE c ,
v_descricao_natoper LIKE /pws/zyglt206-descricao,
matchcode(4) VALUE 'DEBI',
v_modo_bi(1) TYPE c,
v_campo(30),
...
...
v_funcionario LIKE pa0002-cname,
norma LIKE /pws/zyglt214-norma,
v_display,
v_codpg LIKE /pws/zycbt124-codpagto,
txtcodfrmentr(25) TYPE c,
txtcodmodtra(25) TYPE c,
txtmodalidade(12) TYPE c,
entrega(25) TYPE c,
transacao(25) TYPE c,
v_syrepid LIKE sy-repid,
* >> Início da exclusão:
v_tcodebotao LIKE /pws/zyglt319-tcode,
* << Fim da exclusão
optsim(1),
optnao(1),
v_sori TYPE c,
v_ordem TYPE c,
v_doc TYPE c,
v_revisao TYPE c,
v_belnr LIKE /pws/zycbt124-belnr,
v_dtlancp LIKE sy-datum,
v_dtlancir LIKE sy-datum,
v_dtlanccide LIKE sy-datum,
v_frpagto LIKE /pws/zycbt124-frpagto,
v_frpgto LIKE dd07t-ddtext,
v_ano LIKE t009b-bdatj,
v_monat LIKE t001b-frpe1,
* >> Início da exclusão:
okcode LIKE sy-ucomm,
v_aliqpis LIKE /pws/zycbt124-aliqpis,
v_aliqcofins LIKE /pws/zycbt124-aliqcofins,
v_aliqiss LIKE /pws/zycbt124-aliqiss,
* << Fim da exclusão
* >> Início da inclusão:
v_aliqpis LIKE /pws/zycbt124-aliqpis, "#EC NEEDED
v_aliqcofins LIKE /pws/zycbt124-aliqcofins,"#EC NEEDED
v_aliqiss LIKE /pws/zycbt124-aliqiss,"#EC NEEDED
* << Fim da inclusão
v_kursf LIKE /pws/zycbe124-kursf,
v_branco TYPE c,
v_competencia TYPE c,
v_dif LIKE /pws/zycbt124-vlme,
v_msg(50) TYPE c,
v_estorna TYPE c,
v_reducao LIKE /pws/zycbt124-vlme,
v_dtvencto_ant LIKE /pws/zycbt124-dtvencto,
v_cred_imp LIKE /pws/zycat024-credito_imp,
v_indice TYPE i.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA109X01
TABLES:
/pws/zycbt124,
/pws/zycbe124,
/pws/zycbe115,
/pws/zycbt115,
* >> Início da exclusão:
/pws/zycat025,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycat025,"#EC *
* << Fim da inclusão
/pws/zycae025,
* >> Início da exclusão:
/pws/zycbt141,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt141, "#EC *
* << Fim da inclusão
/pws/zycbe141,
* >> Início da exclusão:
/pws/zycbt048,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt048,"#EC *
* << Fim da inclusão
/pws/zycbe048,
/pws/zyglt343,
/pws/zyglt340,
/pws/zyglt209,
/pws/zygle209,
* >> Início da exclusão:
/pws/zycbt127,
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt127,"#EC *
* << Fim da inclusão
/pws/zycbe127,
/pws/zycbt064,
/pws/zycbt134,
/pws/zycbt031,
/pws/zycbe031,
/pws/zycbe134,
/pws/zycbt017,
* >> Início da exclusão:
/pws/zycbt118.
* << Fim da exclusão
* >> Início da inclusão:
/pws/zycbt118."#EC *
* << Fim da inclusão
* >> 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
TYPES BEGIN OF t_zycbt141.
INCLUDE STRUCTURE /pws/zycbe141.
TYPES: mark(1) TYPE c,
END OF t_zycbt141.
DATA: wa_zycbt124 TYPE /pws/zycbe124,
wa_zycbt115 TYPE /pws/zycbe115,
wa_zycbt127 TYPE /pws/zycbe127,
wa_zycbt031 TYPE /pws/zycbe031,
wa_zycbt141_p TYPE /pws/zycbe141.
* >> Início da inclusão:
DATA: itab_zycbt118 LIKE /pws/zycbt118 OCCURS 10."#EC NEEDED
* << Fim da inclusão
* >> Início da exclusão:
DATA: itab_zycbt118 LIKE /pws/zycbt118 OCCURS 10 WITH HEADER LINE.
* << Fim da exclusão
DATA: BEGIN OF itab_zyglt209 OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt209.
DATA: mark(1) TYPE c.
DATA: END OF itab_zyglt209.
DATA: itab_zycat024
TYPE STANDARD TABLE OF /pws/zycat024
WITH HEADER LINE.
DATA: itab_zycbt141
TYPE STANDARD TABLE OF t_zycbt141
WITH HEADER LINE,
...
...
INCLUDE STRUCTURE /pws/zycbe033.
DATA: END OF itab_zycbe033.
DATA: BEGIN OF itab_zycat025_aux2 OCCURS 0.
INCLUDE STRUCTURE /pws/zycat025.
DATA: mark(1) TYPE c.
DATA: END OF itab_zycat025_aux2.
DATA:
w_ok LIKE sy-ucomm,
v_valorme LIKE /pws/zycbt124-vlme.
DATA: v_belnr_s TYPE /pws/zycbt124-belnr,
* >> Início da exclusão:
v_tpimp TYPE /pws/zycat025-tpimp,
* << Fim da exclusão
* >> Início da inclusão:
v_tpimp TYPE /pws/zycat025-tpimp,"#EC NEEDED
* << Fim da inclusão
wa_zycbt011 LIKE /pws/zycbt011.
DATA: BEGIN OF itab_zycbt032 OCCURS 100.
INCLUDE STRUCTURE /pws/zycbt032.
DATA: END OF itab_zycbt032.
DATA: BEGIN OF itab_zycbt034 OCCURS 100.
INCLUDE STRUCTURE /pws/zycbt034.
DATA: END OF itab_zycbt034.
DATA: BEGIN OF itab_zycbe035 OCCURS 100.
INCLUDE STRUCTURE /pws/zycbe035.
DATA: END OF itab_zycbe035.
...
...
v_control_is(10) TYPE n,
v_control_pi(10) TYPE n,
v_control_co(10) TYPE n,
v_control_ir(10) TYPE n,
v_control_io(10) TYPE n,
v_totdep TYPE /pws/zyglt342-valorinc,
e_subrc TYPE sy-subrc,
v_area TYPE /pws/zycbt141-cod_area,
v_vlme TYPE /pws/zycbt124-vlme,
v_vlmi TYPE /pws/zycbt124-vlme,
* >> Início da exclusão:
erro_bi(1) TYPE c,
* << Fim da exclusão
* >> Início da inclusão:
erro_bi(1) TYPE c, "#EC *
* << Fim da inclusão
v_lib(1) TYPE c,
v_frgzu TYPE /pws/zycbt124-frgzu.
DATA: wa_vbfa TYPE vbfa,
wa_bkpf TYPE bkpf,
wa_rbkp TYPE rbkp.
DATA: BEGIN OF itab_bseg OCCURS 0.
INCLUDE STRUCTURE bseg.
DATA : END OF itab_bseg.
DATA: BEGIN OF itab_bseg_aux OCCURS 0.
INCLUDE STRUCTURE bseg.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCA109
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 003
Texto: (20 caracteres)
"Lançamento Indevido!"
Comprimento máximo: 20
------------------------------------------------------------------------
Excluído símbolo de texto:
Idioma: PT
Símbolo: 005
Texto: (16 caracteres)
"Registro gravado"
Comprimento máximo: 16