CE PLUS - Nota 007116
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Captação
Data/Hora da Publicação: 11/08/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:07:26
Descrição da Nota: EXPORTAÇÃO CAPTAÇÃO
Sintoma
.
Solução
Novo desenvolvimento
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07116 Data: 11/08/2008 Hora: 09:43:08
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07116
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00059
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00163 - 00001 - 6.0 - 00021 - ALTERAÇÃO NAS MENSAGENS DE RETORNO PARA A CAPTAÇÃO
00803 - 00002 - 6.0 - 00022 - CAPITALIZAÇÃO DE JUROS - GRAVAÇÃO DO DOCTO CONTÁBIL NA /PWS/ZYCBT
05533 - 00003 - 7.0 - 00004 - EXIT CAPTAÇÃO DE CONTRATOS DE EXPORTAÇÃO
----------------------------------------------------------------------------------------------------
EXPORTAÇÃO CAPTAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
CAPTAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCB001 0101
DYNP /PWS/SAPMZYCB001 0104
FUNC /PWS/ZYCB_TRANSACAO_FB02B
REPS /PWS/LZYCBGF2UXX
REPS /PWS/MZYCB001F01
REPS /PWS/MZYCB001F04
REPS /PWS/MZYCB001I01
REPS /PWS/MZYCB001O01
REPS /PWS/MZYCB001TOP
REPS /PWS/ZYCBI003
REPS /PWS/ZYGLR030
REPT /PWS/SAPMZYCB001
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCB001 0101
SOLICITAR A TELA 0101 DO PROGRAMA /PWS/SAPMZYCB001
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCB001 0104
SOLICITAR A TELA 0104 DO PROGRAMA /PWS/SAPMZYCB001
----------------------------------------------------------------------------------------------------
Criação efetuada da FUNC /PWS/ZYCB_TRANSACAO_FB02B
CRIAR MÓDULO DE FUNÇÃO: /PWS/ZYCB_TRANSACAO_FB02B
CARACTERÍSTICAS
CLASSIFICAÇÃO:
GRUPO DE FUNÇÕES: /PWS/ZYCBGF2
TEXTO BREVE: GL - Call Transaction FB02
TIPO DE EXECUÇÃO:
(X) - MÓDULO DE FUNÇÃO NORMAL
(_) - MÓDULO DE ACESSO REMOTO
(_) - MÓDULO DE ATUALIZAÇÃO
(X) - INÍCIO IMEDIATO
(_) - INÍCIO IMEDIATO-SEM ATUAL.POSTER.
(_) - INÍC. RETARDADO
(_) - PROCES. CLOETIVO
DADOS GERAIS:
CLASSE DESENVOLVIMENTO: /PWS/ZYCB
NOME DO PROGRAMA: /PWS/SAPLZYCBGF2
NOME DO INCLUDE: /PWS/LZYCBGF2U87
IDIOMA ORIGINAL: PT
(_) - BLOQUEIO PROCESSO
(_) - GLOBAL
IMPORTAÇÃO:
NOME PARAM. ATRIB. TIPO REFERÊNCIA VL. PROPOSTO OPCIONAL TRANSF. TEXT
V_MODO LIKE /PWS/ZYCBT039-MODO X
V_TP_PAGT LIKE /PWS/ZYCBT001-TP_PAGT_ANTC X
EXPORTAÇÃO:
NOME PARAM. ATRIB. TIPO REFERÊNCIA TRANSF. TEXTO BREVE
MODIFIC.:
NOME PARAM. ATRIB. TIPO REFERÊNCIA VL. PROPOSTO OPCIONAL TRANSF. TEXT
TABELAS:
NOME PARAM. ATRIB. TIPO REFERÊNCIA OPCIONAL TEXTO BREVE
T_DADOS LIKE /PWS/ZYCBE033
T_CAMPO LIKE /PWS/ZYCBT034 X
T_ZYCBT032 LIKE /PWS/ZYCBT032 X
T_ZYCBT036 LIKE /PWS/ZYCBT036 GL - Documentos a Serem Compensados
EXCEÇÕES:
EXCEÇÃO TEXTO BREVE
CAMPO_EM_BRANCO
PERIODO_FECHADO
* >> Início da inclusão:
FUNCTION /PWS/ZYCB_TRANSACAO_FB02B.
DATA:
v_zfbdt(10),
v_valut(10),
v_gjahs(04),
v_campo(40),
v_zbd1t(03),
v_nrmsg TYPE i VALUE 0,
v_transacao(4) TYPE c,
v_mode TYPE c,
v_update TYPE c,
v_msgid LIKE t100-arbgb,
v_msgno LIKE t100-msgnr,
v_item(40) TYPE C,
v_NEWBS like /pws/zycbt036-newbs,
N TYPE I,
v_index like sy-tabix.
LOOP AT t_dados.
CHECK t_dados-tcode = 'FB02'.
IF ( t_dados-bukrs = space ).
t_campo-mandt = t_dados-mandt.
t_campo-campo = 'RF05L-BUKRS'.
t_campo-descricao = text-021.
APPEND t_campo.
RAISE campo_em_branco.
ENDIF.
IF ( t_dados-belnr = space ).
t_campo-mandt = t_dados-mandt.
t_campo-campo = 'RF05L-BELNR'.
t_campo-descricao = text-048.
APPEND t_campo.
RAISE campo_em_branco.
ENDIF.
IF ( t_dados-gjahs = space ).
t_campo-mandt = t_dados-mandt.
t_campo-campo = 'RF05L-GJAHR'.
t_campo-descricao = text-029.
APPEND t_campo.
RAISE campo_em_branco.
ENDIF.
WRITE: t_dados-gjahs TO v_gjahs,
t_dados-zfbdt TO v_zfbdt,
t_dados-d_valut TO v_valut.
PERFORM bdc_screen USING 'SAPMF05L' '0100'.
PERFORM bdc_field USING:
'BDC_OKCODE' '/00',
'RF05L-BELNR' t_dados-belnr,
'RF05L-BUKRS' t_dados-bukrs,
'RF05L-GJAHR' v_gjahs.
PERFORM bdc_screen USING 'SAPMF05L' '0700'.
PERFORM bdc_field USING:
'BDC_CURSOR' 'RF05L-ANZDT(01)',
'BDC_OKCODE' '=PK'.
PERFORM bdc_screen USING 'SAPMF05L' '0300'.
PERFORM bdc_field USING:
'BSEG-VALUT' v_valut,
'BSEG-ZFBDT' v_zfbdt,
'BSEG-ZUONR' t_dados-d_zuonr,
'BDC_CURSOR' BSEG-ZFBDT,
'BDC_OKCODE' '=Z+'.
PERFORM bdc_screen USING 'SAPLKACB' '0002'.
PERFORM bdc_field USING:
'BDC_CURSOR' 'COBL-KOSTL',
'BDC_OKCODE' '=ENTE'.
IF v_tp_pagt = 'N'.
PERFORM bdc_screen USING 'SAPMF05L' '0304'.
PERFORM bdc_field USING:
'BSEG-ZUONR' t_dados-d_zuonr,
'BDC_CURSOR' BSEG-ZFBDT,
'BDC_OKCODE' '=AE'.
ELSE.
PERFORM bdc_screen USING 'SAPMF05L' '0300'.
PERFORM bdc_field USING:
'BSEG-VALUT' v_valut,
'BSEG-ZFBDT' v_zfbdt,
'BSEG-ZUONR' t_dados-d_zuonr,
'BDC_CURSOR' BSEG-ZFBDT,
'BDC_OKCODE' '=AE'.
PERFORM bdc_screen USING 'SAPLKACB' '0002'.
PERFORM bdc_field USING:
'BDC_CURSOR' 'COBL-GSBER',
'BDC_OKCODE' '=ENTE'.
ENDIF.
REFRESH itab_msg.
CLEAR itab_msg.
v_transacao = 'FB02'.
v_mode = 'A'.
v_update = 'S'.
v_msgid = 'F5'.
v_msgno = '300'.
IF v_modo IS INITIAL.
v_mode = 'N'.
ELSE.
v_mode = v_modo.
ENDIF.
PERFORM call_transaction TABLES itab_msg
itab_bdc
t_zycbt032
t_dados
USING v_transacao
v_mode
v_update
v_msgid
v_msgno
CHANGING v_nrmsg.
ENDLOOP.
FREE:
itab_bdc,
itab_msg.
ENDFUNCTION.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/LZYCBGF2UXX
...
INCLUDE /PWS/LZYCBGF2U76.
INCLUDE /PWS/LZYCBGF2U78.
INCLUDE /PWS/LZYCBGF2U79.
INCLUDE /PWS/LZYCBGF2U80.
INCLUDE /PWS/LZYCBGF2U81.
INCLUDE /PWS/LZYCBGF2U82.
INCLUDE /PWS/LZYCBGF2U83.
INCLUDE /PWS/LZYCBGF2U84.
INCLUDE /PWS/LZYCBGF2U85.
INCLUDE /PWS/LZYCBGF2U86.
* >> Início da inclusão:
INCLUDE /PWS/LZYCBGF2U87.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F01
...
IF /pws/zycbe001-tpcontr EQ wa_zycbt001-tpcontr AND
/pws/zycbe001-bukrs EQ wa_zycbt001-bukrs AND
/pws/zycbe001-werks EQ wa_zycbt001-werks AND
/pws/zycbe001-j_1bbranch EQ wa_zycbt001-j_1bbranch AND
/pws/zycbe001-gsber EQ wa_zycbt001-gsber AND
/pws/zycbe001-bcocred EQ wa_zycbt001-bcocred AND
( /pws/zycbe001-ftxt IS INITIAL OR
NOT /pws/zycbe001-ftxt IS INITIAL AND
/pws/zycbe001-txtinf = wa_zycbt001-txtinf ) AND
v_data2 EQ v_data3 AND
* >> Início da exclusão: FORM SAVE_ZYCBT001
/pws/zycbe001-dtliquid EQ wa_zycbt001-dtliquid AND
* << Fim da exclusão
/pws/zycbe001-waers EQ wa_zycbt001-waers AND
/pws/zycbe001-vlme EQ wa_zycbt001-vlme AND
/pws/zycbe001-vlmi EQ wa_zycbt001-vlmi AND
/pws/zycbe001-txcneg EQ wa_zycbt001-txcneg AND
/pws/zycbe001-fdtlanc EQ wa_zycbt001-fdtlanc AND
/pws/zycbe001-fdtjuros EQ wa_zycbt001-fdtjuros AND
/pws/zycbe001-kostl EQ wa_zycbt001-kostl AND
/pws/zycbe074-aufnr EQ wa_zycbt074-aufnr AND
/pws/zycbe074-kdauf EQ wa_zycbt074-kdauf AND
/pws/zycbe001-fictr EQ wa_zycbt001-fictr AND
...
...
/pws/zycbe074-vtweg_or EQ wa_zycbt074-vtweg_or AND
/pws/zycbe001-status EQ 'C' AND
( ( /pws/zycbe001-kunnr EQ wa_zycbt001-kunnr AND
wa_zycbt221[] EQ itab_zycbt221_ant[] AND
/pws/zycbe001-tpcontr(1) EQ 'D' ) OR
/pws/zycbe001-tpcontr(1) NE 'D' ) AND
( ( /pws/zycbe001-tpcontr(1) EQ 'E' AND
/pws/zycbe001-desc_receb EQ wa_zycbt001-desc_receb ) OR
/pws/zycbe001-tpcontr(1) NE 'E' ).
MODIFY /pws/zycbt001.
* >> Início da inclusão: FORM SAVE_ZYCBT001
IF /pws/zycbe001-dtliquid NE wa_zycbt001-dtliquid.
CONCATENATE '001' /pws/zycbe001-tpcontr INTO v_codeven.
CLEAR itab_zyglt321.
REFRESH itab_zyglt321.
SELECT *
INTO TABLE itab_zyglt321
FROM /pws/zyglt321
WHERE ktosl = 'CPT'
AND codeven = v_codeven.
IF sy-subrc = 0.
READ TABLE itab_zyglt321
WITH KEY CPOR3 = 'ZFBDT'.
IF itab_zyglt321-cpocb = 'DTLIQUID'.
PERFORM fill_date_fb02.
ENDIF.
ENDIF.
EXIT.
ENDIF.
* << Fim da inclusão
IF wa_zycbt007-cfm = 'X'.
IF /pws/zycbe001-tpcontr(1) NE 'C' AND
/pws/zycbe001-tpcontr(1) NE 'E'.
SELECT SINGLE *
FROM /pws/zycbt001
INTO wa_zycbt001_log
WHERE nrseqc = /pws/zycbt001-nrseqc.
PERFORM monta_log_cfm USING wa_zycbt001_log
'/PWS/ZYCBT001'
CHANGING wa_log.
...
...
dtpror IS initial.
ENDIF.
IF /pws/zycbe003-tppror NE 'P'.
PERFORM atualiza_juros_pror
USING /pws/zycbe003-dtpror /pws/zycbe003-falttx.
ENDIF.
ENDFORM.
FORM fill_date1_f02.
DATA: mensagem(90) TYPE c,
v_budat(10) TYPE c,
* >> Início da exclusão: FORM FILL_DATE1_F02
v_datum(10) TYPE c.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F02
v_datum(10) TYPE c,
v_novadata TYPE d.
* << Fim da inclusão
IF v_opccme = 'X'.
PERFORM contab_dp_me.
ELSE.
PERFORM get_parameters_001.
ENDIF.
IF /pws/zycbe001-tpcontr+0(1) = 'D' AND
( v_opnor = 'X' OR
/pws/zycbe001-tp_pagt_antc = 'N' ).
itab_zycbe033-tcode = 'F-29'.
ELSE.
...
...
EXPORTING
i_bukrs = /pws/zycbe001-bukrs
i_gjahr = v_ano
i_koart = '+'
i_monat = v_monat
EXCEPTIONS
error_period = 1
error_period_acc = 2
OTHERS = 3.
IF sy-subrc NE 0.
* >> Início da inclusão: FORM FILL_DATE1_F02
CLEAR: v_fechado, v_answer.
* << Fim da inclusão
WRITE: itab_zycbe033-budat TO v_budat,
sy-datum TO v_datum.
CONCATENATE text-220 v_budat+3(7) text-221 text-222 v_datum+3(7)
text-223 INTO mensagem SEPARATED BY space.
PERFORM popup_message USING mensagem text-219.
v_fechado = 'X'.
IF v_answer = 'J'.
itab_zycbe033-budat = sy-datum.
/pws/zycbe001-dtvincul = sy-datum.
* >> Início da inclusão: FORM FILL_DATE1_F02
ELSEIF v_answer = 'N'.
CALL FUNCTION 'TR_POPUP_INPUT_DATE'
EXPORTING
iv_title = text-494
iv_description1 = text-495
iv_description2 = text-496
iv_date = v_novadata
IMPORTING
ev_date = v_novadata
EXCEPTIONS
action_aborted_by_user = 1
value_not_changed = 2
OTHERS = 3.
IF sy-subrc = 0.
itab_zycbe033-budat = v_novadata.
/pws/zycbe001-dtvincul = v_novadata.
* << Fim da inclusão
ELSE.
* >> Início da inclusão: FORM FILL_DATE1_F02
v_answer = 'A'.
ENDIF.
IF v_answer = 'A'.
EXIT.
ENDIF.
ELSEIF v_answer = 'A'.
* << Fim da inclusão
EXIT.
...
...
/pws/zycbe001-tpcontr(1) = 'S'.
CASE /pws/zycbe001-fdtlanc.
WHEN 'O'.
v_dtinicio = /pws/zycbe001-dtcontr.
WHEN 'D'.
v_dtinicio = /pws/zycbe001-dtdesem.
WHEN OTHERS.
v_dtinicio = /pws/zycbe001-dtcred.
ENDCASE.
PERFORM busca_conta_pt USING v_dtinicio
* >> Início da exclusão: FORM FILL_DATE1_F02
/pws/zycbe001-dtliquid.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F02
/pws/zycbe001-dtliquid
' '.
* << Fim da inclusão
IF v_contac IS INITIAL.
EXIT.
ELSE.
itab_zycbe033-c_newko = v_contac.
MODIFY itab_zycbe033 INDEX 1.
ENDIF.
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_F_02'
EXPORTING
v_modo = v_modo_bi
TABLES
...
...
/pws/zycbe001-tpcontr(1) NE 'T'.
IF wa_zycbt089-comp_trans EQ 'C'.
PERFORM contabiliza_f04.
ENDIF.
ENDIF.
ELSE.
LOOP AT itab_zycbt032.
MESSAGE i015 WITH itab_zycbt032-msg+0(50)
itab_zycbt032-msg+50(50).
ENDLOOP.
* >> Início da exclusão: FORM FILL_DATE1_F02
MESSAGE i300 WITH /pws/zycbe001-nrseqc.
* << Fim da exclusão
ENDIF.
ELSE.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
ENDIF.
ENDIF.
PERFORM clear_date_batch.
ENDFORM.
FORM get_parameters_001.
...
...
IF NOT /pws/zycbe001-tpcontr(1) CA 'PS'.
CLEAR /pws/zycbt074-dtcont.
SELECT SINGLE dtcont
FROM /pws/zycbt074
INTO (/pws/zycbt074-dtcont)
WHERE nrseqc = wa_zycbt001-nrseqc.
ENDIF.
PERFORM verif_dt_lancto.
IF v_lanc NE 'S'.
MOVE wa_zycbt001 TO /pws/zycbe001.
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT001
MOVE /pws/zycbe001 TO /pws/zycbt001.
MODIFY /pws/zycbt001.
* << Fim da inclusão
EXIT.
ENDIF.
IF wa_zycbt089-comp_trans EQ 'C'
AND /pws/zycbe001-tpcontr(1) NE 'T'.
IF /pws/zycbt001-tpcontr(1) = 'P' OR
/pws/zycbt001-tpcontr(1) = 'S'.
PERFORM estorno_pre_f04.
IF NOT itab_zycbt002p-belnr_comp IS INITIAL.
EXIT.
ENDIF.
...
...
ENDFORM.
FORM save_zycbt001_pre.
DATA: v_ok,
v_estorna(1) VALUE 'N'.
PERFORM seleciona_zycbt002.
LOOP AT itab_zycbt002p_ant.
READ TABLE itab_zycbt002p WITH KEY
belnr = itab_zycbt002p_ant-belnr.
IF sy-subrc = 0.
IF itab_zycbt002p_ant-vlme NE itab_zycbt002p-vlme
* >> Início da inclusão: FORM SAVE_ZYCBT001_PRE
OR itab_zycbt002p_ant-przcontr NE itab_zycbt002p-przcontr
* << Fim da inclusão
OR itab_zycbt002p_ant-belnr IS INITIAL.
itab_zycbt002p-v_flag = 'A'.
v_estorna = 'S'.
ELSE.
itab_zycbt002p-v_flag = 'O'.
ENDIF.
ELSE.
v_estorna = 'S'.
ENDIF.
MODIFY itab_zycbt002p TRANSPORTING v_flag
...
...
MOVE /pws/zycbe001-dtcred TO v_data2.
MOVE wa_zycbt001-dtcred TO v_data3.
ENDIF.
IF /pws/zycbe001-tpcontr EQ wa_zycbt001-tpcontr AND
/pws/zycbe001-bukrs EQ wa_zycbt001-bukrs AND
/pws/zycbe001-werks EQ wa_zycbt001-werks AND
/pws/zycbe001-j_1bbranch EQ wa_zycbt001-j_1bbranch AND
/pws/zycbe001-gsber EQ wa_zycbt001-gsber AND
/pws/zycbe001-bcocred EQ wa_zycbt001-bcocred AND
v_data2 EQ v_data3 AND
* >> Início da exclusão: FORM SAVE_ZYCBT001_PRE
/pws/zycbe001-dtliquid EQ wa_zycbt001-dtliquid AND
* << Fim da exclusão
/pws/zycbe001-dtcontr EQ wa_zycbt001-dtcontr AND
/pws/zycbe001-dtdesem EQ wa_zycbt001-dtdesem AND
/pws/zycbe001-dtcred EQ wa_zycbt001-dtcred AND
/pws/zycbe001-waers EQ wa_zycbt001-waers AND
/pws/zycbe001-vlme EQ wa_zycbt001-vlme AND
/pws/zycbe001-vlmi EQ wa_zycbt001-vlmi AND
/pws/zycbe001-txcneg EQ wa_zycbt001-txcneg AND
/pws/zycbe001-fdtlanc EQ wa_zycbt001-fdtlanc AND
/pws/zycbe001-fdtjuros EQ wa_zycbt001-fdtjuros AND
( /pws/zycbe001-ftxt IS INITIAL OR
...
...
/pws/zycbe074-rkaufnr_or EQ wa_zycbt074-rkaufnr_or AND
/pws/zycbe074-spart_or EQ wa_zycbt074-spart_or AND
/pws/zycbe074-versi_or EQ wa_zycbt074-versi_or AND
/pws/zycbe074-vkorg_or EQ wa_zycbt074-vkorg_or AND
/pws/zycbe074-vrgar_or EQ wa_zycbt074-vrgar_or AND
/pws/zycbe074-werks_or EQ wa_zycbt074-werks_or AND
/pws/zycbe074-vtweg_or EQ wa_zycbt074-vtweg_or AND
/pws/zycbe001-status EQ 'C' AND
v_estorna <> 'S'.
MODIFY /pws/zycbt001.
* >> Início da inclusão: FORM SAVE_ZYCBT001_PRE
IF /pws/zycbe001-dtliquid NE wa_zycbt001-dtliquid.
CONCATENATE '001' /pws/zycbe001-tpcontr INTO v_codeven.
CLEAR itab_zyglt321.
REFRESH itab_zyglt321.
SELECT *
INTO TABLE itab_zyglt321
FROM /pws/zyglt321
WHERE ktosl = 'CPT'
AND codeven = v_codeven.
IF sy-subrc = 0.
READ TABLE itab_zyglt321
WITH KEY CPOR3 = 'ZFBDT'.
IF itab_zyglt321-cpocb = 'DTLIQUID'.
PERFORM fill_date_fb02.
ENDIF.
ENDIF.
ENDIF.
* << Fim da inclusão
IF wa_zycbt007-cfm = 'X'.
IF /pws/zycbe001-tpcontr(1) NE 'C' AND
/pws/zycbe001-tpcontr(1) NE 'E'.
SELECT SINGLE *
FROM /pws/zycbt001
INTO wa_zycbt001_log
WHERE nrseqc = /pws/zycbe001-nrseqc.
PERFORM monta_log_cfm USING wa_zycbt001_log
'/PWS/ZYCBT001'
CHANGING wa_log.
...
...
MOVE /pws/zycbe074 TO wa_zycbt074.
ELSEIF ( /pws/zycbe001-tpcontr NE wa_zycbt001-tpcontr OR
/pws/zycbe001-bukrs NE wa_zycbt001-bukrs OR
/pws/zycbe001-werks NE wa_zycbt001-werks OR
/pws/zycbe001-j_1bbranch NE wa_zycbt001-j_1bbranch OR
/pws/zycbe001-gsber NE wa_zycbt001-gsber OR
/pws/zycbe001-bcocred NE wa_zycbt001-bcocred OR
/pws/zycbe001-dtcontr NE wa_zycbt001-dtcontr OR
/pws/zycbe001-dtdesem NE wa_zycbt001-dtdesem OR
/pws/zycbe001-dtcred NE wa_zycbt001-dtcred OR
* >> Início da exclusão: FORM SAVE_ZYCBT001_PRE
/pws/zycbe001-dtliquid NE wa_zycbt001-dtliquid OR
* << Fim da exclusão
/pws/zycbe001-waers NE wa_zycbt001-waers OR
/pws/zycbe001-txcneg NE wa_zycbt001-txcneg OR
/pws/zycbe001-fdtlanc NE wa_zycbt001-fdtlanc OR
/pws/zycbe001-vlme NE wa_zycbt001-vlme OR
/pws/zycbe001-txcneg NE wa_zycbt001-txcneg OR
/pws/zycbe001-fdtjuros NE wa_zycbt001-fdtjuros ) AND
/pws/zycbe001-status EQ 'C'.
v_alterado = 'X'.
PERFORM refresh_dependent_tables USING v_ok 'SAVE'.
CLEAR v_alterado.
IF v_ok NE 'N'.
PERFORM altera_cab_pt.
* >> Início da inclusão: FORM SAVE_ZYCBT001_PRE
IF v_answer = 'A'.
EXIT.
ENDIF.
* << Fim da inclusão
PERFORM save_zycbt002.
PERFORM save_zycbt003.
/pws/zycbe001-slvinc = /pws/zycbe001-slpagar =
/pws/zycbe001-slreserv = /pws/zycbe001-vlme.
MODIFY /pws/zycbt001 FROM /pws/zycbe001.
IF wa_zycbt007-cfm = 'X'.
IF /pws/zycbe001-tpcontr(1) NE 'C' AND
/pws/zycbe001-tpcontr(1) NE 'E'.
SELECT SINGLE *
FROM /pws/zycbt001
...
...
IF v_contabiliza EQ 'X'.
PERFORM fill_date1_f02.
ENDIF.
PERFORM save_zycbt002.
PERFORM save_zycbt003.
MOVE /pws/zycbe001 TO wa_zycbt001.
MOVE /pws/zycbe074 TO wa_zycbt074.
COMMIT WORK.
ELSE.
PERFORM refresh_dependent_tables USING v_ok 'SAVE'.
* >> Início da inclusão: FORM SAVE_ZYCBT001_PRE
IF /pws/zycbe001-dtliquid NE wa_zycbt001-dtliquid.
CONCATENATE '001' /pws/zycbe001-tpcontr INTO v_codeven.
CLEAR itab_zyglt321.
REFRESH itab_zyglt321.
SELECT *
INTO TABLE itab_zyglt321
FROM /pws/zyglt321
WHERE ktosl = 'CPT'
AND codeven = v_codeven.
IF sy-subrc = 0.
READ TABLE itab_zyglt321
WITH KEY CPOR3 = 'ZFBDT'.
IF itab_zyglt321-cpocb = 'DTLIQUID'.
PERFORM fill_date_fb02.
ENDIF.
ENDIF.
ENDIF.
* << Fim da inclusão
IF v_ok NE 'N'.
PERFORM altera_parc_pt.
ELSE.
MOVE wa_zycbt001 TO /pws/zycbe001.
CLEAR itab_zycbt002p.
REFRESH itab_zycbt002p.
LOOP AT itab_zycbt002p_ant.
MOVE-CORRESPONDING itab_zycbt002p_ant TO itab_zycbt002p.
APPEND itab_zycbt002p.
ENDLOOP.
...
...
IF sy-subrc EQ 0.
v_est_aprov = 'N'.
ELSE.
v_est_aprov = 'S'.
ENDIF.
ENDFORM.
FORM verif_dt_lancto.
DATA: mensagem(90) TYPE c,
v_budat LIKE sy-datum,
v_budat1(10) TYPE c,
* >> Início da exclusão: FORM VERIF_DT_LANCTO
v_datum(10) TYPE c.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIF_DT_LANCTO
v_datum(10) TYPE c,
v_novadata TYPE d.
* << Fim da inclusão
v_lanc = 'S'.
IF wa_zycbe001-tpcontr(1) CA 'PS'.
IF /pws/zycbt074-dtcont IS INITIAL.
CASE wa_zycbt001-fdtlanc.
WHEN 'D'.
v_budat = wa_zycbt001-dtdesem.
WHEN 'O'.
v_budat = wa_zycbt001-dtcontr.
WHEN OTHERS.
v_budat = wa_zycbt001-dtcred.
...
...
error_period = 1
error_period_acc = 2
OTHERS = 3.
IF sy-subrc NE 0.
WRITE: v_budat TO v_budat1,
sy-datum TO v_datum.
CONCATENATE text-220 v_budat1+3(7) text-221 text-222 v_datum+3(7)
text-223 INTO mensagem SEPARATED BY space.
PERFORM popup_message USING mensagem text-219.
IF v_answer = 'J'.
* >> Início da inclusão: FORM VERIF_DT_LANCTO
v_lanc = 'S'.
ELSEIF v_answer = 'N'.
CALL FUNCTION 'TR_POPUP_INPUT_DATE'
EXPORTING
iv_title = text-494
iv_description1 = text-495
iv_description2 = text-496
iv_date = v_novadata
IMPORTING
ev_date = v_novadata
EXCEPTIONS
action_aborted_by_user = 1
value_not_changed = 2
OTHERS = 3.
IF sy-subrc = 0.
itab_zycbe033-budat = v_novadata.
/pws/zycbe001-dtvincul = v_novadata.
* << Fim da inclusão
v_lanc = 'S'.
ELSE.
* >> Início da inclusão: FORM VERIF_DT_LANCTO
v_lanc = 'N'.
ENDIF.
ELSEIF v_answer = 'A'.
* << Fim da inclusão
v_lanc = 'N'.
* >> Início da inclusão: FORM VERIF_DT_LANCTO
EXIT.
* << Fim da inclusão
ENDIF.
ENDIF.
IF v_opccme = 'X'.
PERFORM estorna_dp_ccme.
PERFORM save_zycbt226.
ENDIF.
ENDFORM.
FORM calcula_moeda_l.
IF /pws/zycbe091-vlmi IS INITIAL.
/pws/zycbe091-vlmi = /pws/zycbe091-vlme * /pws/zycbe091-kursf.
...
...
ENDIF.
IF wa_cols-screen-name = '/PWS/ZYCBE002P-SLVINC'.
wa_cols-invisible = 0.
ENDIF.
ENDIF.
MODIFY tc_perp-cols FROM wa_cols.
ENDLOOP.
ENDFORM.
FORM define_przcontr.
IF ( /pws/zycbe001-tpcontr(1) NE 'P' AND
* >> Início da exclusão: FORM DEFINE_PRZCONTR
/pws/zycbe001-tpcontr(1) NE 'S' AND
/pws/zycbe001-przcontr NE 'C' ) OR
( ( /pws/zycbe001-tpcontr(1) EQ 'P' OR
/pws/zycbe001-tpcontr(1) EQ 'S' ) AND
itab_zycbt002p-przcontr NE 'C' ).
* << Fim da exclusão
* >> Início da inclusão: FORM DEFINE_PRZCONTR
/pws/zycbe001-tpcontr(1) NE 'S' ) OR
( /pws/zycbe001-tpcontr(1) EQ 'P' OR
/pws/zycbe001-tpcontr(1) EQ 'S' ).
* << Fim da inclusão
CASE /pws/zycbe001-fdtlanc.
WHEN 'O'.
v_dtinicio = /pws/zycbe001-dtcontr.
WHEN 'D'.
v_dtinicio = /pws/zycbe001-dtdesem.
WHEN OTHERS.
v_dtinicio = /pws/zycbe001-dtcred.
ENDCASE.
v_nrdias = /pws/zycbe001-dtliquid - v_dtinicio.
* >> Início da inclusão: FORM DEFINE_PRZCONTR
IF itab_zycbt002p-przcontr EQ 'C' AND
itab_zycbt002p-ftransf = 'X'.
READ TABLE itab_zycbt002p_ant
WITH KEY nrseqc = itab_zycbt002p-nrseqc
nrparc = itab_zycbt002p-nrparc
tpparc = itab_zycbt002p-tpparc.
IF sy-subrc = 0.
IF itab_zycbt002p_ant-nrdias <> itab_zycbt002p-nrdias.
v_nrdias = itab_zycbt002p-dtfinal - sy-datum.
IF v_nrdias <= wa_zyglt009-nrdias_cp.
itab_zycbt002p-przcontr = 'C'.
v_descprzcontr = text-492.
ELSE.
itab_zycbt002p-przcontr = 'L'.
v_descprzcontr = text-491.
ENDIF.
ENDIF.
ENDIF.
ELSE.
* << Fim da inclusão
IF /pws/zycbe001-tpcontr(1) EQ 'P' OR
/pws/zycbe001-tpcontr(1) EQ 'S'.
v_nrdias = itab_zycbt002p-dtfinal - v_dtinicio.
IF v_nrdias <= wa_zyglt009-nrdias_cp.
itab_zycbt002p-przcontr = 'S'.
* >> Início da inclusão: FORM DEFINE_PRZCONTR
v_descprzcontr = text-493.
* << Fim da inclusão
ELSE.
itab_zycbt002p-przcontr = 'L'.
* >> Início da inclusão: FORM DEFINE_PRZCONTR
v_descprzcontr = text-491.
* << Fim da inclusão
ENDIF.
ELSE.
IF v_nrdias <= wa_zyglt009-nrdias_cp.
/pws/zycbe001-przcontr = 'S'.
* >> Início da inclusão: FORM DEFINE_PRZCONTR
v_descprzcontr = text-493.
* << Fim da inclusão
ELSE.
/pws/zycbe001-przcontr = 'L'.
* >> Início da inclusão: FORM DEFINE_PRZCONTR
v_descprzcontr = text-491.
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
FORM save_zycbt001_tr.
DATA: v_boleto(1) VALUE 'N',
v_alt_princ(1) VALUE 'N',
v_ok.
SELECT SINGLE *
FROM /pws/zycbt031
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F04
...
PERFORM fill_date_1_f30.
IF ( /pws/zycbe001-tpcontr(1) EQ 'P' OR
/pws/zycbe001-tpcontr(1) EQ 'S' ) .
CLEAR: itab_zycbt002p-belnr2,
itab_zycbt002p-dtvincul.
MODIFY itab_zycbt002p.
ENDIF.
ENDLOOP.
ENDFORM.
FORM busca_conta_pt USING p_dtinicio
* >> Início da exclusão: FORM BUSCA_CONTA_PT
p_dtfim.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_CONTA_PT
p_dtfim
p_flag.
* << Fim da inclusão
DATA: v_prazo(4).
CLEAR v_contac.
* >> Início da inclusão: FORM BUSCA_CONTA_PT
IF p_flag = 'X' AND
itab_zycbt002p-przcontr EQ 'C' AND
itab_zycbt002p-ftransf = 'X'.
READ TABLE itab_zycbt002p_ant
WITH KEY nrseqc = itab_zycbt002p-nrseqc
nrparc = itab_zycbt002p-nrparc
tpparc = itab_zycbt002p-tpparc.
IF itab_zycbt002p_ant-nrdias <> itab_zycbt002p-nrdias.
v_prazo = 'C'.
v_nrdias = p_dtfim - sy-datum.
IF v_nrdias <= wa_zyglt009-nrdias_cp.
itab_zycbt002p-przcontr = v_prazo.
ENDIF.
ELSE.
IF itab_zycbt002p-przcontr = 'C'.
v_prazo = 'C'.
itab_zycbt002p-przcontr = v_prazo.
ELSE.
v_nrdias = p_dtfim - p_dtinicio.
IF v_nrdias <= wa_zyglt009-nrdias_cp.
v_prazo = 'S'.
ELSE.
v_prazo = 'L'.
ENDIF.
itab_zycbt002p-przcontr = v_prazo.
IF v_prazo = 'L'.
CLEAR itab_zycbt002p-ftransf.
ENDIF.
ENDIF.
ENDIF.
CONCATENATE /pws/zycbe001-tpcontr v_prazo
INTO v_prazo SEPARATED BY space.
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = /pws/zycbe001-bukrs
ktosl = 'CPT'
codaux1 = v_prazo
TABLES
account = itab_zyglt316
EXCEPTIONS
key_not_found = 1
rules_not_found = 2
OTHERS = 3.
IF sy-subrc <> 0.
IF sy-subrc EQ 1.
MESSAGE i015 WITH text-383.
ELSEIF sy-subrc EQ 2.
MESSAGE i015 WITH text-384.
ENDIF.
ELSE.
READ TABLE itab_zyglt316 INDEX 1.
MOVE itab_zyglt316-konth TO v_contac.
ENDIF.
ELSE.
* << Fim da inclusão
v_nrdias = p_dtfim - p_dtinicio.
IF v_nrdias <= wa_zyglt009-nrdias_cp.
v_prazo = 'S'.
ELSE.
v_prazo = 'L'.
ENDIF.
* >> Início da inclusão: FORM BUSCA_CONTA_PT
IF itab_zycbt002p-przcontr <> 'C'.
* << Fim da inclusão
itab_zycbt002p-przcontr = v_prazo.
IF v_prazo = 'L'.
CLEAR itab_zycbt002p-ftransf.
* >> Início da inclusão: FORM BUSCA_CONTA_PT
ENDIF.
* << Fim da inclusão
ENDIF.
CONCATENATE /pws/zycbe001-tpcontr v_prazo
INTO v_prazo SEPARATED BY space.
CALL FUNCTION '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
EXPORTING
bukrs = /pws/zycbe001-bukrs
ktosl = 'CPT'
codaux1 = v_prazo
TABLES
account = itab_zyglt316
...
...
IF sy-subrc <> 0.
IF sy-subrc EQ 1.
MESSAGE i015 WITH text-383.
ELSEIF sy-subrc EQ 2.
MESSAGE i015 WITH text-384.
ENDIF.
ELSE.
READ TABLE itab_zyglt316 INDEX 1.
MOVE itab_zyglt316-konth TO v_contac.
ENDIF.
* >> Início da inclusão: FORM BUSCA_CONTA_PT
ENDIF.
* << Fim da inclusão
ENDFORM.
FORM fill_date_1_f30.
DATA: mensagem(90) TYPE c,
v_budat(10) TYPE c,
* >> Início da exclusão: FORM FILL_DATE_1_F30
v_datum(10) TYPE c.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_1_F30
v_datum(10) TYPE c,
v_novadata TYPE d.
* << Fim da inclusão
PERFORM clear_date_batch.
PERFORM get_parameters_001.
CASE /pws/zycbe001-fdtlanc.
WHEN 'O'.
v_dtinicio = /pws/zycbe001-dtcontr.
WHEN 'D'.
v_dtinicio = /pws/zycbe001-dtdesem.
WHEN OTHERS.
v_dtinicio = /pws/zycbe001-dtcred.
ENDCASE.
PERFORM busca_conta_pt USING v_dtinicio
* >> Início da exclusão: FORM FILL_DATE_1_F30
/pws/zycbe001-dtliquid.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_1_F30
/pws/zycbe001-dtliquid
' '.
* << Fim da inclusão
IF v_contac IS INITIAL.
EXIT.
ELSE.
itab_zycbe033-agkoa = 'S'.
itab_zycbe033-agkon = v_contac.
ENDIF.
itab_zycbe033-belnr = v_belnr_pt.
PERFORM busca_conta_pt USING v_dtinicio
* >> Início da exclusão: FORM FILL_DATE_1_F30
itab_zycbt002p-dtfinal.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_1_F30
itab_zycbt002p-dtfinal
'X'.
* << Fim da inclusão
IF v_contac IS INITIAL.
EXIT.
ELSE.
itab_zycbe033-newbs = '50'.
itab_zycbe033-d_newko = v_contac.
ENDIF.
itab_zycbe033-tcode = 'F-30'.
itab_zycbe033-tabela = '/PWS/ZYCBT002'.
itab_zycbe033-cpochv = /pws/zycbe001-nrseqc.
CASE /pws/zycbe001-fdtlanc.
...
...
EXPORTING
i_bukrs = /pws/zycbe001-bukrs
i_gjahr = v_ano
i_koart = '+'
i_monat = v_monat
EXCEPTIONS
error_period = 1
error_period_acc = 2
OTHERS = 3.
IF sy-subrc NE 0.
* >> Início da inclusão: FORM FILL_DATE_1_F30
CLEAR: v_fechado, v_answer.
* << Fim da inclusão
IF /pws/zycbe001-status IS INITIAL OR /pws/zycbe001-status EQ 'I'
OR /pws/zycbe001-status EQ 'C'.
WRITE: itab_zycbe033-budat TO v_budat,
sy-datum TO v_datum.
CONCATENATE text-220 v_budat+3(7) text-221 text-222 v_datum+3(7)
text-223 INTO mensagem SEPARATED BY space.
PERFORM popup_message USING mensagem text-219.
v_fechado = 'X'.
IF v_answer = 'J'.
itab_zycbe033-budat = sy-datum.
/pws/zycbe001-dtvincul = sy-datum.
* >> Início da inclusão: FORM FILL_DATE_1_F30
ELSEIF v_answer = 'N'.
CALL FUNCTION 'TR_POPUP_INPUT_DATE'
EXPORTING
iv_title = text-494
iv_description1 = text-495
iv_description2 = text-496
iv_date = v_novadata
IMPORTING
ev_date = v_novadata
EXCEPTIONS
action_aborted_by_user = 1
value_not_changed = 2
OTHERS = 3.
IF sy-subrc = 0.
itab_zycbe033-budat = v_novadata.
/pws/zycbe001-dtvincul = v_novadata.
* << Fim da inclusão
ELSE.
* >> Início da inclusão: FORM FILL_DATE_1_F30
v_answer = 'A'.
ENDIF.
IF v_answer = 'A'.
EXIT.
ENDIF.
ELSEIF v_answer = 'A'.
* << Fim da inclusão
EXIT.
...
...
WRITE itab_zycbt032-belnr TO itab_rollback-belnr_novo.
WRITE 'X' TO itab_rollback-parcela.
APPEND itab_rollback.
itab_zycbt002p-belnr = itab_zycbt032-belnr.
CLEAR itab_zycbt002p-belnr2.
itab_zycbt002p-slvinc = itab_zycbt002p-vlme.
MOVE: itab_zycbt032-belnr TO itab_contabil-belnr,
itab_zycbt002p-nrparc TO itab_contabil-nrparc,
itab_zycbt002p-vlme TO itab_contabil-vlme.
APPEND itab_contabil.
* >> Início da exclusão: FORM FILL_DATE_1_F30
MESSAGE i299 WITH itab_zycbt002p-belnr itab_zycbt002p-nrseqc.
* << Fim da exclusão
IF v_fechado = 'X' AND v_answer = 'J'.
itab_zycbt002p-dtvincul = sy-datum.
itab_zycbt002p-dtcont = sy-datum.
ENDIF.
MODIFY itab_zycbt002p.
v_belnr_pt = itab_zycbt032-belnr.
REFRESH itab_zycbt032.
ELSE.
LOOP AT itab_zycbt032 WHERE tcode = 'F-30' AND
tabela = '/PWS/ZYCBT002' AND
...
...
v_belnr LIKE /pws/zycbt032-belnr,
v_data2 LIKE /pws/zycbt002-dtvincul.
CLEAR: v_valor, v_capital.
PERFORM clear_date_batch.
PERFORM get_parameters_001.
FREE itab_partidas.
IF /pws/zycbe001-capital EQ 'X'.
v_capital = 'X'.
ENDIF.
PERFORM fill_date_f30_pt.
* >> Início da inclusão: FORM ALTERA_CAB_PT
IF v_answer = 'A'.
EXIT.
ENDIF.
* << Fim da inclusão
LOOP AT itab_zycbt002p.
READ TABLE itab_zycbt002p_ant WITH KEY belnr = itab_zycbt002p-belnr.
IF sy-subrc = 0.
v_valor = v_valor + itab_zycbt002p_ant-vlme.
ENDIF.
itab_partidas-tcode = 'F-30'.
itab_partidas-tabela = '/PWS/ZYCBT002'.
itab_partidas-cpochv = itab_zycbe033-cpochv.
IF itab_zycbt002p-belnr2 IS INITIAL.
itab_partidas-belnr = itab_zycbt002p-belnr.
...
...
ELSE.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
ENDIF.
ENDIF.
ENDFORM.
FORM fill_date_f30_pt.
DATA: mensagem(90) TYPE c,
v_budat(10) TYPE c,
* >> Início da exclusão: FORM FILL_DATE_F30_PT
v_datum(10) TYPE c.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F30_PT
v_datum(10) TYPE c,
v_novadata TYPE d.
* << Fim da inclusão
CASE /pws/zycbe001-fdtlanc.
WHEN 'O'.
v_dtinicio = /pws/zycbe001-dtcontr.
WHEN 'D'.
v_dtinicio = /pws/zycbe001-dtdesem.
WHEN OTHERS.
v_dtinicio = /pws/zycbe001-dtcred.
ENDCASE.
PERFORM busca_conta_pt USING v_dtinicio
* >> Início da exclusão: FORM FILL_DATE_F30_PT
/pws/zycbe001-dtliquid.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F30_PT
/pws/zycbe001-dtliquid
' '.
* << Fim da inclusão
IF v_contac IS INITIAL.
EXIT.
ELSE.
itab_zycbe033-d_newko = v_contac.
itab_zycbe033-newbs = '50'.
ENDIF.
itab_zycbe033-tcode = 'F-30'.
itab_zycbe033-tabela = '/PWS/ZYCBT002'.
itab_zycbe033-cpochv = /pws/zycbe001-nrseqc.
CASE /pws/zycbe001-fdtlanc.
...
...
EXPORTING
i_bukrs = /pws/zycbe001-bukrs
i_gjahr = v_ano
i_koart = '+'
i_monat = v_monat
EXCEPTIONS
error_period = 1
error_period_acc = 2
OTHERS = 3.
IF sy-subrc NE 0.
* >> Início da inclusão: FORM FILL_DATE_F30_PT
CLEAR: v_fechado, v_answer.
* << Fim da inclusão
IF /pws/zycbe001-status IS INITIAL OR /pws/zycbe001-status EQ 'I'
OR /pws/zycbe001-status EQ 'C'.
WRITE: itab_zycbe033-budat TO v_budat,
sy-datum TO v_datum.
CONCATENATE text-220 v_budat+3(7) text-221 text-222 v_datum+3(7)
text-223 INTO mensagem SEPARATED BY space.
PERFORM popup_message USING mensagem text-219.
v_fechado = 'X'.
IF v_answer = 'J'.
itab_zycbe033-budat = sy-datum.
/pws/zycbe001-dtvincul = sy-datum.
* >> Início da inclusão: FORM FILL_DATE_F30_PT
ELSEIF v_answer = 'N'.
CALL FUNCTION 'TR_POPUP_INPUT_DATE'
EXPORTING
iv_title = text-494
iv_description1 = text-495
iv_description2 = text-496
iv_date = v_novadata
IMPORTING
ev_date = v_novadata
EXCEPTIONS
action_aborted_by_user = 1
value_not_changed = 2
OTHERS = 3.
IF sy-subrc = 0.
itab_zycbe033-budat = v_novadata.
/pws/zycbe001-dtvincul = v_novadata.
* << Fim da inclusão
ELSE.
* >> Início da inclusão: FORM FILL_DATE_F30_PT
v_answer = 'A'.
ENDIF.
IF v_answer = 'A'.
EXIT.
ENDIF.
ELSEIF v_answer = 'A'.
* << Fim da inclusão
EXIT.
...
...
itab_zycbe033-bukrs = wa_zycbt001-bukrs.
CASE wa_zycbt001-fdtlanc.
WHEN 'O'.
v_dtinicio = wa_zycbt001-dtcontr.
WHEN 'D'.
v_dtinicio = wa_zycbt001-dtdesem.
WHEN OTHERS.
v_dtinicio = wa_zycbt001-dtcred.
ENDCASE.
PERFORM busca_conta_pt USING v_dtinicio
* >> Início da exclusão: FORM VOLTA_PART_BANCO
wa_zycbt001-dtliquid.
* << Fim da exclusão
* >> Início da inclusão: FORM VOLTA_PART_BANCO
wa_zycbt001-dtliquid
' '.
* << Fim da inclusão
IF v_contac IS INITIAL.
EXIT.
ELSE.
itab_zycbe033-agkon = v_contac.
ENDIF.
itab_zycbe033-agkoa = 'S'.
itab_zycbe033-newbs = '50'.
* >> Início da inclusão: FORM VOLTA_PART_BANCO
IF v_answer <> 'N'.
* << Fim da inclusão
IF /pws/zycbt001-fdtlanc NE wa_zycbt001-fdtlanc.
CASE /pws/zycbt001-fdtlanc.
WHEN 'D'.
itab_zycbe033-budat = wa_zycbt001-dtdesem.
WHEN 'O'.
itab_zycbe033-budat = wa_zycbt001-dtcontr.
WHEN OTHERS.
itab_zycbe033-budat = wa_zycbt001-dtcred.
ENDCASE.
ELSE.
CASE wa_zycbt001-fdtlanc.
WHEN 'D'.
itab_zycbe033-budat = wa_zycbt001-dtdesem.
WHEN 'O'.
itab_zycbe033-budat = wa_zycbt001-dtcontr.
WHEN OTHERS.
itab_zycbe033-budat = wa_zycbt001-dtcred.
ENDCASE.
* >> Início da inclusão: FORM VOLTA_PART_BANCO
ENDIF.
* << Fim da inclusão
ENDIF.
itab_zycbe033-bldat = itab_zycbe033-budat.
itab_zycbe033-belnr = p_belnr.
IF NOT /pws/zycbt074-dtcont IS INITIAL.
itab_zycbe033-dtdocto = /pws/zycbt074-dtcont.
ELSE.
itab_zycbe033-dtdocto = itab_zycbe033-budat.
ENDIF.
PERFORM determina_periodo USING itab_zycbe033-budat
CHANGING v_monat.
...
...
ENDLOOP.
ENDIF.
ENDLOOP.
DELETE FROM /pws/zycbt241 WHERE nrseqc = /pws/zycbe001-nrseqc.
ENDFORM.
FORM exporta_banco_cliente.
v_kunag = /pws/zycbe001-kunnr.
EXPORT v_kunag TO MEMORY ID '681'.
CLEAR: v_kunag.
ENDFORM.
* >> Início da inclusão:
form estorno_efetivo_contabilizacao.
DATA: v_ok.
PERFORM refresh_dependent_tables USING v_ok 'SAVE'.
IF v_ok NE 'N'.
IF wa_zycbt007-cfm = 'X'.
IF /pws/zycbt001-tpcontr(1) NE 'C' AND
/pws/zycbt001-tpcontr(1) NE 'E'.
PERFORM monta_log_cfm USING /pws/zycbt001
'/PWS/ZYCBT001'
CHANGING wa_log.
PERFORM grava_log USING '/PWS/ZYCBT001'
wa_log
'A'.
ENDIF.
IF /pws/zycbt001-tpcontr EQ 'E'.
SELECT *
FROM /pws/zycbt005
INTO wa_zycbt005_log
WHERE nrseqc = /pws/zycbt001-nrseqc.
PERFORM monta_log_cfm USING wa_zycbt005_log
'/PWS/ZYCBT005'
CHANGING wa_log.
PERFORM grava_log USING '/PWS/ZYCBT005'
wa_log
'A'.
ENDSELECT.
ENDIF.
ENDIF.
IF /pws/zycbt001-tpcontr(1) = 'P' OR
/pws/zycbe001-tpcontr(1) = 'S'.
IF v_belnr2 IS INITIAL.
PERFORM reverse_document_zycbt001.
ELSE.
PERFORM reverse_document_zycbt_alt
USING itab_zycbt002p-belnr2
itab_zycbt002p-dtvincul
itab_zycbt002p-vlme
'/PWS/ZYCBT002'.
ENDIF.
ELSE.
IF wa_zycbt001-belnr2 IS INITIAL.
PERFORM reverse_document_zycbt001.
ELSE.
PERFORM reverse_document_zycbt_alt USING wa_zycbt001-belnr2
wa_zycbt001-dtvincul
wa_zycbt001-vlme
'/PWS/ZYCBT001'.
ENDIF.
ENDIF.
PERFORM save_zycbt002.
PERFORM save_zycbt003.
MOVE /pws/zycbe001 TO wa_zycbt001.
MOVE /pws/zycbe074 TO wa_zycbt074.
/pws/zycbt001 = wa_zycbt001.
MODIFY /pws/zycbt001.
ELSE.
MOVE wa_zycbt001 TO /pws/zycbe001.
MOVE /pws/zycbe074 TO wa_zycbt074.
ENDIF.
PERFORM data_efetiva.
endform.
form fill_date_fb02.
PERFORM clear_date_batch.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = 'FB02'.
itab_zycbe033-tabela = '/PWS/ZYCBT001'.
itab_zycbe033-cpochv = /pws/zycbe001-nrseqc.
PERFORM verify_null_field
USING /pws/zycbe001-bukrs 'BUKRS' text-018.
itab_zycbe033-bukrs = /pws/zycbe001-bukrs.
PERFORM verify_null_field
USING /pws/zycbe001-belnr 'BELNR' text-181.
itab_zycbe033-belnr = /pws/zycbe001-belnr.
IF /pws/zycbe001-fdtlanc = 'O'.
itab_zycbe033-gjahs = /pws/zycbe001-dtcontr.
ELSEIF /pws/zycbe001-fdtlanc = 'D'.
itab_zycbe033-gjahs = /pws/zycbe001-dtdesem.
ELSEIF /pws/zycbe001-fdtlanc = 'C'.
itab_zycbe033-gjahs = /pws/zycbe001-dtcred.
ENDIF.
PERFORM verify_null_field
USING /pws/zycbe001-dtliquid 'DTPROR' text-350.
itab_zycbe033-zfbdt = /pws/zycbe001-dtliquid.
PERFORM verify_null_field
USING itab_zycbe033-gjahs 'GJAHS' text-351.
LOOP AT itab_zyglt321.
CASE itab_zyglt321-cpor3.
WHEN 'SGTXT'.
CASE itab_zyglt321-cpocb.
WHEN 'TXTINF'.
itab_zycbe033-sgtxt = /pws/zycbe001-txtinf.
WHEN 'NRCONTR'.
itab_zycbe033-sgtxt = /pws/zycbe001-nrcontr.
WHEN 'NRSEQC'.
itab_zycbe033-sgtxt = /pws/zycbe001-nrseqc.
ENDCASE.
WHEN 'ZFBDT'.
CASE itab_zyglt321-cpocb.
WHEN 'DTLIQUID'.
itab_zycbe033-zfbdt = /pws/zycbe001-dtliquid.
WHEN 'DTCONTR'.
itab_zycbe033-zfbdt = /pws/zycbe001-dtcontr.
WHEN 'DTCRED'.
itab_zycbe033-zfbdt = /pws/zycbe001-dtcred.
WHEN 'DTDESEM'.
itab_zycbe033-zfbdt = /pws/zycbe001-dtdesem.
WHEN 'DTENTR'.
itab_zycbe033-zfbdt = /pws/zycbe001-dtentr.
WHEN 'DTINIJUR'.
itab_zycbe033-zfbdt = /pws/zycbe001-dtinijur.
ENDCASE.
WHEN 'ZUONR'.
CASE itab_zyglt321-cpocb.
WHEN 'NRSEQC'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrseqc.
itab_zycbe033-c_zuonr = /pws/zycbe001-nrseqc.
WHEN 'NRCONTR'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrcontr.
itab_zycbe033-c_zuonr = /pws/zycbe001-nrcontr.
WHEN 'TXTINF'.
itab_zycbe033-d_zuonr = /pws/zycbe001-txtinf.
itab_zycbe033-c_zuonr = /pws/zycbe001-txtinf.
ENDCASE.
WHEN 'VALUT'.
CASE itab_zyglt321-cpocb.
WHEN 'DTLIQUID'.
itab_zycbe033-d_valut = /pws/zycbe001-dtliquid.
itab_zycbe033-c_valut = /pws/zycbe001-dtliquid.
WHEN 'DTENTR'.
itab_zycbe033-d_valut = /pws/zycbe001-dtentr.
itab_zycbe033-c_valut = /pws/zycbe001-dtentr.
WHEN 'DTDESEM'.
itab_zycbe033-d_valut = /pws/zycbe001-dtdesem.
itab_zycbe033-c_valut = /pws/zycbe001-dtdesem.
WHEN 'DTCRED'.
itab_zycbe033-d_valut = /pws/zycbe001-dtcred.
itab_zycbe033-c_valut = /pws/zycbe001-dtcred.
WHEN 'DTCONTR'.
itab_zycbe033-d_valut = /pws/zycbe001-dtcontr.
itab_zycbe033-c_valut = /pws/zycbe001-dtcontr.
ENDCASE.
WHEN 'XBLNR'.
CASE itab_zyglt321-cpocb.
WHEN 'NRSEQC'.
itab_zycbe033-xblnr = /pws/zycbe001-nrseqc.
WHEN 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
WHEN 'TXTINF'.
itab_zycbe033-xblnr = /pws/zycbe001-txtinf.
ENDCASE.
ENDCASE.
ENDLOOP.
APPEND itab_zycbe033.
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
IF itab_zycbt034[] IS INITIAL.
CALL FUNCTION '/PWS/ZYCB_TRANSACAO_FB02B'
EXPORTING
v_modo = v_modo_bi
v_tp_pagt = /pws/zycbe001-tp_pagt_antc
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_zycbt036 = itab_zycbt036
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
IF sy-subrc EQ 0.
READ TABLE itab_zycbt032 WITH KEY tcode = 'FB02'
tabela = '/PWS/ZYCBT001'
cpochv = /pws/zycbe001-nrseqc
tpmsg = 'S'.
IF sy-subrc NE 0.
MESSAGE i015 WITH text-352.
ENDIF.
ELSE.
MESSAGE i015 WITH text-352.
ENDIF.
ENDIF.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001I01
...
PERFORM save_rof.
PERFORM salva_texto USING v_idioma.
PERFORM clear_structures.
CLEAR: v_nrseqc, v_nrseqcview, v_callscr, v_status_s,
v_salvo_aux.
WHEN 'N'.
PERFORM clear_structures.
CLEAR: v_nrseqc, v_nrseqcview, v_callscr, v_status_s,
v_salvo_aux.
ENDCASE.
* >> Início da inclusão: MODULE USER_COMMAND_CB001
LEAVE TO TRANSACTION c_transacao_c.
* << Fim da inclusão
ELSE.
MESSAGE i299 WITH text-185."#EC *
ENDIF.
WHEN 'AEND'.
PERFORM lock_record.
PERFORM change_status.
okcode_old = okcode.
CLEAR okcode.
WHEN 'DESP'.
IF v_status_s = '1' OR
...
...
PERFORM update_itab_zycbt226.
WHEN '0207'.
PERFORM verifica_ordem.
IF v_tipo = 1.
MESSAGE i061 WITH text-482 text-483 v_ordem text-484.
ENDIF.
IF v_pagador = 1.
MESSAGE i061 WITH text-485 text-483 v_ordem text-484.
ENDIF.
IF v_moeda = 1.
* >> Início da exclusão: MODULE MODIFY_LINE
MESSAGE i061 WITH 'Ordem' v_ordem 'apresenta itens com moeda'
'diferente da moeda do contrato.'.
* << Fim da exclusão
* >> Início da inclusão: MODULE MODIFY_LINE
MESSAGE i061 WITH text-483 v_ordem text-489 text-490.
* << Fim da inclusão
ENDIF.
WHEN '0116'.
PERFORM update_itab_comissao.
ENDCASE.
ENDMODULE.
MODULE user_command_0102 INPUT.
DATA: v_nrparc(5) TYPE n ,
v_nrparc_i TYPE i .
CLEAR v_dtfinal.
LOOP AT itab_zycbt002.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001O01
...
SELECT SINGLE * FROM /pws/zycbt001
INTO /pws/zycbe001
WHERE nrseqc = v_nrseqc.
MOVE /pws/zycbe001 TO wa_zycbt001.
CLEAR v_vinculacao.
FREE MEMORY ID 'VINC999'.
ENDIF.
PERFORM find_tptxjur.
ENDMODULE.
MODULE set_screen OUTPUT.
* >> Início da exclusão: MODULE SET_SCREEN
DATA: v_fvinc.
* << Fim da exclusão
* >> Início da inclusão: MODULE SET_SCREEN
DATA: v_fvinc,
v_prazo TYPE c.
* << Fim da inclusão
CLEAR: cont,
v_nrdiascontr.
IF sy-tcode EQ c_transacao_c.
PERFORM modifica_tela.
ENDIF.
CASE sy-dynnr.
WHEN '0101'.
IF NOT /pws/zycbe001-bcocred IS INITIAL.
SELECT SINGLE lifnr name1
INTO (lfa1-lifnr, lfa1-name1)
...
...
CASE /pws/zycbe001-fdtjuros.
WHEN 'O'.
v_nrdiascontr = /pws/zycbe001-dtliquid -
/pws/zycbe001-dtcontr.
WHEN 'C'.
v_nrdiascontr = /pws/zycbe001-dtliquid - /pws/zycbe001-dtcred.
WHEN 'D'.
v_nrdiascontr = /pws/zycbe001-dtliquid -
/pws/zycbe001-dtdesem.
ENDCASE.
* >> Início da inclusão: MODULE SET_SCREEN
IF NOT v_nrdiascontr IS INITIAL.
IF sy-tcode EQ c_transacao_c OR
sy-tcode EQ c_transacao_a.
IF wa_zyglt009-nrdias_cp < v_nrdiascontr.
v_prazo = 'L'.
v_descprzcontr = text-491.
ELSEIF wa_zyglt009-nrdias_cp >= v_nrdiascontr.
v_prazo = 'S'.
v_descprzcontr = text-493.
ENDIF.
IF /pws/zycbe001-przcontr NE 'C'.
/pws/zycbe001-przcontr = v_prazo.
IF wa_zycbt001-przcontr = 'C'.
v_nrdiasatual = /pws/zycbe001-dtliquid - sy-datum.
IF v_nrdiasatual > wa_zyglt009-nrdias_cp.
/pws/zycbe001-przcontr = 'L'.
v_descprzcontr = text-491.
ELSEIF v_nrdiasatual <= wa_zyglt009-nrdias_cp.
/pws/zycbe001-przcontr = 'C'.
v_descprzcontr = text-492.
ENDIF.
ENDIF.
ELSE.
IF v_prazo = 'S' AND /pws/zycbe001-przcontr = 'C'.
/pws/zycbe001-przcontr = 'C'.
v_descprzcontr = text-492.
ELSE.
IF v_prazo = 'S'.
/pws/zycbe001-przcontr = 'S'.
ELSE.
v_nrdiasatual = /pws/zycbe001-dtliquid - sy-datum.
IF v_nrdiasatual > wa_zyglt009-nrdias_cp.
/pws/zycbe001-przcontr = 'L'.
v_descprzcontr = text-491.
ELSEIF v_nrdiasatual <= wa_zyglt009-nrdias_cp.
/pws/zycbe001-przcontr = 'C'.
v_descprzcontr = text-492.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ELSE.
IF v_status_s = 1.
IF wa_zyglt009-nrdias_cp < v_nrdiascontr.
v_prazo = 'L'.
v_descprzcontr = text-491.
ELSEIF wa_zyglt009-nrdias_cp >= v_nrdiascontr.
v_prazo = 'S'.
v_descprzcontr = text-493.
ENDIF.
IF /pws/zycbe001-przcontr NE 'C'.
/pws/zycbe001-przcontr = v_prazo.
ELSE.
IF v_prazo = 'S'.
/pws/zycbe001-przcontr = 'S'.
ELSE.
v_nrdiasatual = /pws/zycbe001-dtliquid - sy-datum.
IF v_nrdiasatual > wa_zyglt009-nrdias_cp.
/pws/zycbe001-przcontr = 'L'.
v_descprzcontr = text-491.
ELSEIF v_nrdiasatual <= wa_zyglt009-nrdias_cp.
/pws/zycbe001-przcontr = 'C'.
v_descprzcontr = text-492.
ENDIF.
ENDIF.
ENDIF.
ELSE.
IF /pws/zycbe001-przcontr = 'C'.
v_descprzcontr = text-492.
ELSEIF /pws/zycbe001-przcontr = 'S'.
v_descprzcontr = text-493.
ELSEIF /pws/zycbe001-przcontr = 'L'.
v_descprzcontr = text-491.
ENDIF.
ENDIF.
ENDIF.
ELSE.
CLEAR:/pws/zycbe001-przcontr, v_descprzcontr.
ENDIF.
* << Fim da inclusão
WHEN '0102'.
tc_perj-lines = tc_perj-top_line + 15.
IF v_status_s = '0'.
LOOP AT tc_perj-cols INTO wa_cols.
wa_cols-screen-input = '0'.
IF wa_cols-screen-name EQ '/PWS/ZYCBE002-BELNR'.
wa_cols-invisible = 1.
ENDIF.
IF wa_cols-screen-name EQ '/PWS/ZYCBE002-FJUR'.
IF ( /pws/zycbe001-tpcontr(1) EQ 'P' OR
...
...
v_fvinc = 'X'.
ENDSELECT.
ENDIF.
LOOP AT SCREEN.
CASE screen-name.
WHEN 'V_NRSEQCVIEW' OR
'/PWS/ZYCBE001-BELNR' OR
'/PWS/ZYCBE001-BELNR_COMP' OR
'/PWS/ZYCBE001-FCANC' OR
'V_NRDIASCONTR' OR
* >> Início da inclusão: MODULE SET_SCREEN
'/PWS/ZYCBE001-PRZCONTR' OR
'V_DESCPRZCONTR' OR
* << Fim da inclusão
'/PWS/ZYCBE001-VLTOTJUR'.
screen-input = '0'.
WHEN '/PWS/ZYCBE001-DTDEV'.
IF v_nrseqc IS INITIAL.
screen-input = '0'.
ELSE.
screen-input = '1'.
ENDIF.
WHEN '/PWS/ZYCBE001-BUKRS' OR
'/PWS/ZYCBE001-VLME' OR
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001TOP
...
v_dif_fat LIKE /pws/zycbt241-vlr_ord,
v_saldo LIKE /pws/zycbt227-saldo,
v_soma_vo LIKE /pws/zycbt241-vlr_ord,
v_bco_dif TYPE i,
v_bco_aux TYPE /pws/zycbe226-bco_me,
v_ver_227 TYPE i,
v_div TYPE c,
v_vinc(1) TYPE c,
v_volta_part_banco(1) TYPE c,
v_dtpagto TYPE d,
* >> Início da exclusão:
v_nome_func TYPE tfdir-funcname VALUE 'FI_PERIOD_REFRESH'.
* << Fim da exclusão
* >> Início da inclusão:
v_nome_func TYPE tfdir-funcname VALUE 'FI_PERIOD_REFRESH',
v_descprzcontr(21) TYPE c,
v_cpocb(30) TYPE c,
v_nrdiasatual TYPE i.
* << Fim da inclusão
DATA: v_year LIKE bkpf-gjahr,
v_repid LIKE sy-repid,
v_codmod TYPE c VALUE 'E',
v_exit LIKE /pws/zyglt100-zexit VALUE 'CPT002'.
DATA: v_capital,
v_primeiro,
v_bco_cred TYPE /pws/zycbe001-bcocred,
v_bconegoc TYPE /pws/zycbe001-bconegoc,
v_bcofinan TYPE /pws/zycbe001-bcofinan.
* >> Início da exclusão:
DATA: v_vinculacao(1) TYPE c.
* << Fim da exclusão
* >> Início da inclusão:
DATA: v_vinculacao(21) TYPE c.
* << Fim da inclusão
DATA: BEGIN OF wa_cp_zycbt002,
nrdias LIKE /pws/zycbt002-nrdias,
txjfixa LIKE /pws/zycbt002-txjfixa,
txjvar LIKE /pws/zycbt002-txjvar,
txtinf LIKE /pws/zycbt002-txtinf,
matnr_or LIKE /pws/zycbt002-matnr_or,
bukrs_or LIKE /pws/zycbt002-bukrs_or,
fkart_or LIKE /pws/zycbt002-fkart_or,
gsber_or LIKE /pws/zycbt002-gsber_or,
kaufn_or LIKE /pws/zycbt002-kaufn_or,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBI003
...
WHEN 1.
WHEN 2.
WHEN 3.
ENDCASE.
READ TABLE itab_contas INDEX 1.
IF sy-subrc = 0.
itab_relat-c_newko = itab_contas-konth.
ENDIF.
ENDFORM.
FORM lancamento_provisao.
* >> Início da exclusão: FORM LANCAMENTO_PROVISAO
DATA: v_descricao(30).
* << Fim da exclusão
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
DATA: v_descricao(30),
v_index(3) TYPE i.
* << Fim da inclusão
IF ( ( /pws/zyglt009-calc_rot_sep EQ 'S' OR
/pws/zyglt009-cont_rot_sep EQ 'S' ) AND
wa_zycbt007-fprovisao EQ 'C' ).
LOOP AT itab_contabil WHERE NOT subtotal IS initial.
v_sytabix = sy-tabix.
READ TABLE itab_contabil WITH KEY
nrcorresp = itab_contabil-nrcorresp
vlrprov = itab_contabil-vlrprov
subtotal = ' '.
IF sy-subrc = 0.
...
...
IF itab_contabil-tpcontr+0(1) CA 'PS'.
UPDATE /pws/zycbt002 SET ftransf = 'X'
belnr2 = itab_zycbt032-belnr
belnr_transf = itab_zycbt032-belnr
przcontr = 'C'
dtvincul = itab_contabil-dtcont
WHERE nrseqc = itab_contabil-nrcorresp(8)
AND nrparc = itab_contabil-nrparcp
AND tpparc = 'P'.
/pws/zycbt154-codint = itab_contabil-nrparcp.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO
SORT itab_zycbt002p DESCENDING BY nrseqc nrparc.
READ TABLE itab_zycbt002p INDEX 1.
IF sy-subrc = 0.
IF itab_zycbt002p-nrparc = itab_contabil-nrparcp.
UPDATE /pws/zycbt001 SET przcontr = 'C'
WHERE nrseqc = itab_contabil-nrcorresp(8).
ENDIF.
ENDIF.
* << Fim da inclusão
ELSE.
UPDATE /pws/zycbt001 SET ftransf = 'X'
belnr2 = itab_zycbt032-belnr
belnr_transf = itab_zycbt032-belnr
dtvincul = itab_contabil-dtcont
WHERE nrseqc = itab_contabil-nrcorresp(8).
IF itab_contabil-przcontr EQ 'L'.
UPDATE /pws/zycbt001 SET przcontr = 'C'
WHERE nrseqc = itab_contabil-nrcorresp(8).
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYGLR030
...
itab_zycbt002-belnr2 = ' '.
itab_zycbt002-przcontr = 'L'.
itab_zycbt002-ftransf = ' '.
itab_zycbt002-dtvincul = ' '.
itab_zycbt002-belnr_transf = ' '.
MODIFY itab_zycbt002 TRANSPORTING
belnr2 przcontr ftransf dtvincul belnr_transf
WHERE nrseqc = itab_zycbt002-nrseqc
AND nrparc = itab_zycbt002-nrparc
AND tpparc = itab_zycbt002-tpparc.
* >> Início da inclusão: FORM ESTORNA_EXP_LC
READ TABLE itab_zycbt001 WITH KEY
nrseqc = i_final-nrcorresp."#EC *
IF sy-subrc = 0.
itab_zycbt001-belnr2 = ' '.
itab_zycbt001-belnr_transf = ' '.
itab_zycbt001-przcontr = 'L'.
itab_zycbt001-ftransf = ' '.
itab_zycbt001-dtvincul = ' '.
MODIFY itab_zycbt001 TRANSPORTING
belnr2 przcontr ftransf belnr_transf dtvincul
WHERE nrseqc = itab_zycbt001-nrseqc.
ENDIF.
* << Fim da inclusão
ENDIF.
ELSE.
MESSAGE i113 WITH i_final-belnr_pr.
ENDIF.
ELSE.
READ TABLE itab_zycbt001 WITH KEY
nrseqc = i_final-nrcorresp."#EC *
IF itab_zycbt001-belnr2 EQ i_final-belnr_pr.
PERFORM executa_fbra_fb08_pr.
IF sy-subrc EQ 0.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB001
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 488
Texto: (4 caracteres)
"Des."
Comprimento máximo: 5
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 489
Texto: (25 caracteres)
"apresenta itens com moeda"
Comprimento máximo: 25
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 490
Texto: (31 caracteres)
"diferente da moeda do contrato."
Comprimento máximo: 31
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 491
Texto: (11 caracteres)
"Longo Prazo"
Comprimento máximo: 11
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 492
Texto: (11 caracteres)
"Curto Prazo"
Comprimento máximo: 11
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 493
Texto: (16 caracteres)
"Curtíssimo Prazo"
Comprimento máximo: 16
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 494
Texto: (29 caracteres)
"Selecionar data de lançamento"
Comprimento máximo: 29
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 495
Texto: (16 caracteres)
"Período fechado."
Comprimento máximo: 16
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 496
Texto: (37 caracteres)
"Digite uma data de lançamento válida:"
Comprimento máximo: 37