CE PLUS - Nota 008649
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Pagamento de Juros
Data/Hora da Publicação: 07/07/2009 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:09:38
Descrição da Nota: PAGTO DE JUROS D.A PERMITIR AGRUPAMENTO ACC E ACE NUM UNICO BOLETO
Sintoma
D.A - O sistema não permite o grupamento de Juros do ACC e ACE num unico boleto
Solução
D.A - Pagto de Juros - permitir agrupamento ACC e ACE num unico boleto, permitir tb na rotina de
pagto.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08649 Data: 07/07/2009 Hora: 17:37:22
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08649
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00010
Agrupamento : 00104
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02786 - 00007 - 6.0 - 00026 - AGRUPAMENTO DE TIPOS DE JUROS DIFERENTES PARA UM CONTRATO.
02946 - 00006 - 6.0 - 00026 - PARÂMETRO /PWS/ZYGL007 CFM SIM - DUMP VERSÃO 4.7 OU SUPERIOR
03321 - 00005 - 6.0 - 00026 - EXIT COMPLEMENTO DO BOLETO - PAGAMENTO DE FATURA - F-43
06005 - 00004 - 7.0 - 00004 - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA
06077 - 00003 - 7.0 - 00004 - DESPESAS DE EXPORTAÇÃO
07819 - 00002 - 7.0 - 00008 - FLEXIBILIZAR AS CONTAS DE BANCO NO PROGRAMA DE PAGAMENTO DE JUROS
08303 - 00001 - 7.0 - 00009 - AJUSTE LIQUIDAÇÃO, CAPTAÇÃO, HISTÓRICO CONTÁBIL, PAGAMENTO DE JUR
----------------------------------------------------------------------------------------------------
PAGTO DE JUROS D.A PERMITIR AGRUPAMENTO ACC E ACE NUM UNICO BOLETO
----------------------------------------------------------------------------------------------------
Palavras Chave:
PAGTO DE JUROS D.A PERMITIR AGRUPAMENTO ACC E ACE NUM UNICO BOLETO
PERMITIR TB NA ROTINA DE PAGTO.
----------------------------------------------------------------------------------------------------
Objetos da nota:
DYNP /PWS/SAPMZYCB012 0100
FUNC /PWS/ZYCB_TRANSACAO_F_02L
REPS /PWS/LZYCBGF2UXX
REPS /PWS/MZYCB012F01
REPS /PWS/MZYCB012I01
REPS /PWS/MZYCB012TOP
REPS /PWS/MZYCB110F01
REPS /PWS/MZYGL110F01
REPS /PWS/MZYGL110X01
REPS /PWS/ZYCBR102
SHLD /PWS/ZYCBA016
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCB012 0100
MODIFICAR CAIXA DE VERIFICAÇÃO "ITAB_ZYCBT044-MARK" em tbl.contr./tabstr
Texto _
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0100
...
MODULE carrega_zycbe044.
ENDLOOP.
PROCESS AFTER INPUT.
CALL SUBSCREEN ss_html.
LOOP AT itab_zycbt044.
FIELD /pws/zycbe044-nrseqc .
FIELD /pws/zycbe044-bukrs MODULE empresa_branco.
MODULE altera_itab_zycbt044.
ENDLOOP.
MODULE:
* >> Início da exclusão:
tpjuros,
* << Fim da exclusão
verif_contrato,
verifica_banco,
atualiza_dados,
verifica_campo_obrigatorio,
user_command_0100,
user_command_exit AT EXIT-COMMAND.
PROCESS ON VALUE-REQUEST.
FIELD: /pws/zycbe043-bcooper MODULE ajuda_pesquisa.
----------------------------------------------------------------------------------------------------
Criação efetuada em FUNC /PWS/ZYCB_TRANSACAO_F_02L
* >> Início da inclusão:
CRIAR MÓDULO DE FUNÇÃO: /PWS/ZYCB_TRANSACAO_F_02L
CARACTERÍSTICAS
CLASSIFICAÇÃO:
GRUPO DE FUNÇÕES:/PWS/ZYCBGF2
TEXTO BREVE: F02 - 2 debito e um credito sem razão especial
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:
(_) - BLOQUEIO PROCESSO
(_) - GLOBAL
IMPORTAÇÃO:
NOME PARAM. ATRIB. TIPO REFERÊNCIA VL. PROPOSTO OPCIONAL TRANSF. TEXT
V_MODO LIKE /PWS/ZYCBT039-MODO x Campo de texto do comprimento 1
V_ACE TYPE N 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 GL - Estrutura Auxiliar para Batch Input.
T_CAMPO LIKE /PWS/ZYCBT034 X GL - Estrutura Auxiliar para Batch Input - Campos.
T_ZYCBT032 LIKE /PWS/ZYCBT032 X GL - Log de Execução de Transações.
T_ZYCBT035 LIKE /PWS/ZYCBE035 X GL - Estrutura para Batch Input - Débito.
T_ZYCBT036 LIKE /PWS/ZYCBT036 X GL - Documentos a Serem Compensados
EXCEÇÕES:
EXCEÇÃO TEXTO BREVE
CAMPO_EM_BRANCO Um campo obrigatório está em branco em T_DADOS
PERIODO_FECHADO O período contábil está fechado
FUNCTION /pws/zycb_transacao_f_02l.
DATA:
v_string_debito LIKE tbsl-faus1,
v_string_credito LIKE tbsl-faus1,
v_data_doc_char(10) TYPE c,
v_data_lanc_char(10) TYPE c,
v_data_val_char(10) TYPE c,
v_kursf(9) TYPE c,
v_wrbtr(16) TYPE c,
v_dmbtr(16) TYPE c,
v_zuonr LIKE bseg-zuonr,
v_debito LIKE t001b-mkoar,
v_credito LIKE t001b-mkoar,
v_nrmsg TYPE i VALUE 0,
v_agkon LIKE skb1-saknr,
v_transacao(4) TYPE c,
v_mode TYPE c,
v_update TYPE c,
v_msgid LIKE t100-arbgb,
v_msgno LIKE t100-msgnr,
v_koart LIKE t001b-mkoar,
v_ok(1) VALUE 'N',
v_monat LIKE t001b-frpe1,
v_bukrs LIKE t001-bukrs,
v_gjahr LIKE t001b-frye1,
v_date LIKE t009b-bdatj,
v_pep LIKE prps-posid,
v_periv(2),
v_periodo(2),
wa_tbsl LIKE tbsl,
v_lanc1(1),
v_lanc2(1),
v_cconta LIKE /pws/zycbe033-d_newko,
v_valut(10),
v_last(1),
v_tela(4),
v_emprsa(1),
v_vlme TYPE wrbtr,
v_vlme_mi TYPE dmbtr,
v_gsber TYPE gsber,
v_sgtxt TYPE sgtxt,
v_brnch LIKE /pws/zycbe033-brnch,
v_zterm LIKE /pws/zycbe033-zterm,
v_linhas(3) TYPE n,
v_zfbdt(10),
v_newko type newko,
v_cpochv LIKE /pws/zycbt036-cpochv.
data: t_zycbt035_aux like t_zycbt035 occurs 0 with header line.
data: t_zycbt035_aux1 like t_zycbt035 occurs 0 with header line.
LOOP AT t_dados.
CALL FUNCTION '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
EXPORTING
v_bukrs = t_dados-bukrs
v_date = t_dados-budat
IMPORTING
v_year = v_date.
CHECK t_dados-tcode = 'F-02'.
IF ( t_dados-bukrs = space ).
t_campo-mandt = t_dados-mandt.
t_campo-campo = 'BKPF-BUKRS'.
t_campo-descricao = text-021.
APPEND t_campo.
RAISE campo_em_branco.
ENDIF.
IF ( t_dados-c_newko = space ).
t_campo-mandt = t_dados-mandt.
t_campo-campo = 'RF05A-NEWKO'.
t_campo-descricao = text-020.
APPEND t_campo.
RAISE campo_em_branco.
ENDIF.
MOVE t_dados-c_newko TO v_agkon.
SELECT SINGLE * FROM tbsl
INTO wa_tbsl
WHERE bschl = t_dados-newbs.
IF wa_tbsl-shkzg EQ 'S'.
v_lanc1 = 'D'.
ELSE.
v_lanc1 = 'C'.
ENDIF.
v_credito = wa_tbsl-koart.
CLEAR itab_oculto.
REFRESH itab_oculto.
IF wa_tbsl-koart EQ 'S'.
PERFORM determina_string USING t_dados-newbs
t_dados-bukrs
v_agkon
CHANGING v_string_credito.
ELSEIF wa_tbsl-koart EQ 'D'.
SELECT SINGLE akont FROM knb1
INTO knb1-akont
WHERE kunnr = t_dados-c_newko
AND bukrs = t_dados-bukrs.
SELECT SINGLE plcontas FROM /pws/zycbt007 INTO
/pws/zycbt007-plcontas
WHERE bukrs EQ t_dados-bukrs.
SELECT SINGLE skont FROM t074
INTO v_cconta
WHERE ktopl = /pws/zycbt007-plcontas
AND koart = 'D'
AND hkont = knb1-akont.
PERFORM determina_string USING t_dados-newbs
t_dados-bukrs
v_cconta
CHANGING v_string_credito.
ELSEIF wa_tbsl-koart EQ 'K'.
SELECT SINGLE akont FROM lfb1
INTO v_cconta
WHERE lifnr EQ t_dados-c_newko AND
bukrs EQ t_dados-bukrs.
PERFORM determina_string USING t_dados-newbs
t_dados-bukrs
v_cconta
CHANGING v_string_credito.
ENDIF.
IF v_lanc1 EQ 'C'.
PERFORM trata_string_credito TABLES t_dados
t_campo
itab_oculto
USING v_string_credito.
ELSE.
PERFORM trata_string_debito TABLES t_dados
t_campo
itab_oculto
USING v_string_credito.
ENDIF.
MOVE t_dados-d_newko TO v_agkon.
SELECT SINGLE * FROM tbsl
INTO wa_tbsl
WHERE bschl = t_dados-newbs1.
v_debito = wa_tbsl-koart.
IF wa_tbsl-koart EQ 'S'.
PERFORM determina_string USING t_dados-newbs1
t_dados-bukrs
v_agkon
CHANGING v_string_credito.
ELSEIF wa_tbsl-koart EQ 'D'.
SELECT SINGLE akont FROM knb1
INTO knb1-akont
WHERE kunnr = t_dados-d_newko
AND bukrs = t_dados-bukrs.
SELECT SINGLE plcontas FROM /pws/zycbt007 INTO
/pws/zycbt007-plcontas
WHERE bukrs EQ t_dados-bukrs.
SELECT SINGLE skont FROM t074
INTO v_cconta
WHERE ktopl = /pws/zycbt007-plcontas
AND koart = 'D'
AND hkont = knb1-akont.
PERFORM determina_string USING t_dados-newbs1
t_dados-bukrs
v_cconta
CHANGING v_string_credito.
ELSEIF wa_tbsl-koart EQ 'K'.
SELECT SINGLE akont FROM lfb1
INTO v_cconta
WHERE lifnr EQ t_dados-d_newko AND
bukrs EQ t_dados-bukrs.
PERFORM determina_string USING t_dados-newbs1
t_dados-bukrs
v_cconta
CHANGING v_string_credito.
ENDIF.
t_zycbt035_aux[] = t_zycbt035_aux1[] = t_zycbt035[] .
WRITE: t_dados-bukrs TO v_bukrs,
t_dados-bldat TO v_data_doc_char,
t_dados-budat TO v_data_lanc_char,
t_dados-kursf TO v_kursf.
SELECT SINGLE periv FROM t001
INTO v_periv
WHERE bukrs EQ v_bukrs.
CALL FUNCTION 'DETERMINE_PERIOD'
EXPORTING
date = t_dados-budat
version = v_periv
IMPORTING
period = v_monat
EXCEPTIONS
period_in_not_valid = 1
period_not_assigned = 2
version_undefined = 3
OTHERS = 4.
v_gjahr = v_date.
v_koart = '+'.
PERFORM check_periodo USING v_koart
v_bukrs
CHANGING v_data_lanc_char
v_ok
v_monat
v_gjahr.
MOVE v_date TO v_gjahr.
MOVE v_monat+1(2) TO v_periodo.
PERFORM bdc_screen USING 'SAPMF05A' '0100'.
PERFORM bdc_field USING:
'BKPF-BLDAT' v_data_doc_char,
'BKPF-BLART' t_dados-blart,
'BKPF-BUKRS' t_dados-bukrs,
'BKPF-BUDAT' v_data_lanc_char,
'BKPF-MONAT' v_periodo,
'BKPF-WAERS' t_dados-waers,
'BKPF-KURSF' v_kursf,
'BKPF-XBLNR' t_dados-xblnr,
'BKPF-BKTXT' t_dados-bktxt,
'RF05A-NEWBS' t_dados-newbs,
'RF05A-NEWKO' t_dados-c_newko,
'RF05A-NEWUM' t_dados-umskz,
'BDC_OKCODE' '/00'.
v_vlme = t_dados-wrbtr.
v_vlme_mi = t_dados-dmbtr.
v_zuonr = t_dados-c_zuonr.
v_gsber = t_dados-c_gsber.
v_sgtxt = t_dados-c_sgtxt.
v_brnch = t_dados-brnch.
v_zterm = t_dados-zterm.
CLEAR: v_valut,
v_zfbdt.
IF NOT t_dados-c_valut IS INITIAL.
WRITE t_dados-c_valut TO v_valut.
ENDIF.
IF NOT t_dados-zfbdt IS INITIAL.
WRITE t_dados-zfbdt TO v_zfbdt.
ENDIF.
WRITE: v_vlme TO v_wrbtr CURRENCY t_dados-waers.
WRITE: v_vlme_mi TO v_dmbtr CURRENCY t_dados-waers.
IF t_dados-umskz IS INITIAL.
IF v_credito EQ 'K'.
PERFORM bdc_screen USING 'SAPMF05A' '0302'.
PERFORM bdc_field USING:
'BSEG-WRBTR' v_wrbtr.
PERFORM bdc_field USING:
'BSEG-DMBTR' v_dmbtr.
IF NOT t_dados-d_sgtxt IS INITIAL.
PERFORM bdc_field USING 'BSEG-SGTXT' t_dados-d_sgtxt.
ENDIF.
IF NOT v_zuonr IS INITIAL.
PERFORM bdc_field USING 'BSEG-ZUONR' v_zuonr.
ENDIF.
IF NOT t_dados-brnch IS INITIAL.
PERFORM bdc_field USING 'BSEG-BUPLA' t_dados-brnch.
ENDIF.
READ TABLE itab_oculto WITH KEY campo = 'BSEG-GSBER'
chave = 'C'.
IF sy-subrc NE 0.
IF NOT t_dados-d_gsber IS INITIAL.
PERFORM bdc_field USING:
'BSEG-GSBER' t_dados-d_gsber.
ENDIF.
ENDIF.
READ TABLE itab_oculto WITH KEY campo = 'BSEG-BUPLA'
chave = v_lanc1.
IF sy-subrc <> 0 AND NOT t_dados-brnch IS INITIAL.
PERFORM bdc_field USING:
'BSEG-BUPLA' t_dados-brnch.
ENDIF.
PERFORM bdc_field USING: 'RF05A-NEWBS' t_dados-newbs1,
'RF05A-NEWKO' t_dados-d_newko,
'BDC_OKCODE' '/00'.
ENDIF.
IF v_debito EQ 'S'.
clear: t_zycbt035_aux,
t_zycbt035,
v_newko.
v_newko = t_dados-d_newko.
read table t_zycbt035 with key d_newko = v_newko.
CLEAR: v_vlme,
v_vlme_mi,
v_wrbtr,
v_dmbtr.
v_vlme = t_zycbt035-wrbtr.
v_vlme_mi = t_zycbt035-dmbtr.
WRITE: v_vlme TO v_wrbtr CURRENCY t_dados-waers.
WRITE: v_vlme_mi TO v_dmbtr CURRENCY t_dados-waers.
PERFORM bdc_screen USING 'SAPMF05A' '0300'.
PERFORM bdc_field USING:
'BSEG-WRBTR' v_wrbtr.
PERFORM bdc_field USING:
'BSEG-DMBTR' v_dmbtr.
IF NOT t_dados-brnch IS INITIAL.
PERFORM bdc_field USING:
'BSEG-BUPLA' t_dados-brnch.
ENDIF.
IF NOT v_zuonr IS INITIAL.
PERFORM bdc_field USING 'BSEG-ZUONR' v_zuonr.
ENDIF.
IF NOT t_dados-d_sgtxt IS INITIAL.
PERFORM bdc_field USING 'BSEG-SGTXT' t_dados-d_sgtxt.
ENDIF.
IF NOT t_dados-d_valut IS INITIAL.
READ TABLE itab_oculto WITH KEY campo = 'BSEG-VALUT'
chave = v_lanc1.
IF sy-subrc <> 0.
PERFORM bdc_field USING 'BSEG-VALUT' v_valut.
ENDIF.
ENDIF.
read table t_zycbt035_aux with key d_newko = t_dados-d_newko.
delete t_zycbt035_aux where d_newko eq t_dados-d_newko.
clear: t_zycbt035_aux.
read table t_zycbt035_aux index 1.
if t_zycbt035_aux-d_newko ne t_dados-d_newko.
v_newko = t_zycbt035_aux-d_newko.
endif.
PERFORM bdc_field USING: 'RF05A-NEWBS' t_dados-newbs1,
'RF05A-NEWKO' v_newko,
'BDC_OKCODE' '/00'.
PERFORM bdc_screen USING 'SAPLKACB' '0002'.
IF NOT t_dados-d_gsber IS INITIAL.
READ TABLE itab_oculto WITH KEY campo = 'COBL-GSBER'
chave = v_lanc1.
IF sy-subrc <> 0.
PERFORM bdc_field USING 'COBL-GSBER' t_dados-d_gsber.
ENDIF.
ENDIF.
IF NOT t_dados-werks IS INITIAL.
READ TABLE itab_oculto WITH KEY campo = 'COBL-WERKS'
chave = v_lanc1.
IF sy-subrc <> 0.
PERFORM bdc_field USING 'COBL-WERKS' t_dados-werks.
ENDIF.
ENDIF.
PERFORM bdc_field USING 'BDC_OKCODE' '=ENTE'.
read table t_zycbt035 with key d_newko = v_newko.
CLEAR: v_vlme,
v_vlme_mi,
v_wrbtr,
v_dmbtr.
v_vlme = t_zycbt035-wrbtr.
v_vlme_mi = t_zycbt035-dmbtr.
WRITE: v_vlme TO v_wrbtr CURRENCY t_dados-waers.
WRITE: v_vlme_mi TO v_dmbtr CURRENCY t_dados-waers.
PERFORM bdc_screen USING 'SAPMF05A' '0300'.
PERFORM bdc_field USING:
'BSEG-WRBTR' v_wrbtr.
PERFORM bdc_field USING:
'BSEG-DMBTR' v_dmbtr.
IF NOT t_dados-brnch IS INITIAL.
PERFORM bdc_field USING:
'BSEG-BUPLA' t_dados-brnch.
ENDIF.
IF NOT v_zuonr IS INITIAL.
PERFORM bdc_field USING 'BSEG-ZUONR' v_zuonr.
ENDIF.
IF NOT t_dados-d_sgtxt IS INITIAL.
PERFORM bdc_field USING 'BSEG-SGTXT' t_dados-d_sgtxt.
ENDIF.
IF NOT t_dados-d_valut IS INITIAL.
READ TABLE itab_oculto WITH KEY campo = 'BSEG-VALUT'
chave = v_lanc1.
IF sy-subrc <> 0.
PERFORM bdc_field USING 'BSEG-VALUT' v_valut.
ENDIF.
ENDIF.
read table t_zycbt035_aux with key d_newko = t_dados-d_newko.
delete t_zycbt035_aux where d_newko eq t_dados-d_newko.
clear: t_zycbt035_aux.
read table t_zycbt035_aux index 1.
if t_zycbt035_aux-d_newko ne t_dados-d_newko.
v_newko = t_zycbt035_aux-d_newko.
endif.
PERFORM bdc_field USING: 'BDC_OKCODE' '=BU'.
PERFORM bdc_screen USING 'SAPLKACB' '0002'.
IF NOT t_dados-d_gsber IS INITIAL.
READ TABLE itab_oculto WITH KEY campo = 'COBL-GSBER'
chave = v_lanc1.
IF sy-subrc <> 0.
PERFORM bdc_field USING 'COBL-GSBER' t_dados-d_gsber.
ENDIF.
ENDIF.
IF NOT t_dados-werks IS INITIAL.
READ TABLE itab_oculto WITH KEY campo = 'COBL-WERKS'
chave = v_lanc1.
IF sy-subrc <> 0.
PERFORM bdc_field USING 'COBL-WERKS' t_dados-werks.
ENDIF.
ENDIF.
PERFORM bdc_field USING 'BDC_OKCODE' '=ENTE'.
endif.
ENDIF.
REFRESH itab_msg.
CLEAR itab_msg.
v_transacao = 'F-02'.
v_update = 'S'.
v_msgid = 'F5'.
v_msgno = '312'.
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/LZYCBGF2U80.
INCLUDE /PWS/LZYCBGF2U81.
INCLUDE /PWS/LZYCBGF2U82.
INCLUDE /PWS/LZYCBGF2U83.
INCLUDE /PWS/LZYCBGF2U84.
INCLUDE /PWS/LZYCBGF2U85.
INCLUDE /PWS/LZYCBGF2U86.
INCLUDE /PWS/LZYCBGF2U87.
INCLUDE /PWS/LZYCBGF2U88.
INCLUDE /PWS/LZYCBGF2U89.
* >> Início da inclusão:
INCLUDE /PWS/LZYCBGF2U90.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB012F01
...
commit work.
if v_check = 'X'.
message s224 with v_nrpagto. "#EC *
leave to screen 0.
endif.
else.
message e015 with text-028 text-029.
endif.
endform.
form fill_date_f-02.
* >> Início da exclusão: FORM FILL_DATE_F-02
if /pws/zyglt009 is initial
and not /pws/zycbt004 is initial.
* << Fim da exclusão
select single * from /pws/zyglt009
where bukrs = /pws/zycbt004-bukrs.
* >> Início da exclusão: FORM FILL_DATE_F-02
endif.
* << Fim da exclusão
read table itab_zycbt044 with key tpdesp = 'J'.
select *
from /pws/zycbt004
up to 1 rows
where nrseqc eq itab_zycbt044-nrseqc
...
...
perform (itab_zyglt100-formulario)
in program (itab_zyglt100-programa)
using okcode
changing e_subrc.
if e_subrc ne 0.
exit.
endif.
endif.
endif.
append itab_zycbe033.
* >> Início da inclusão: FORM FILL_DATE_F-02
perform conta_juros_acc_ace .
* << Fim da inclusão
loop at itab_zycbt034.
message i016 with itab_zycbt034-descricao.
endloop.
if itab_zycbt034 is initial.
* >> Início da inclusão: FORM FILL_DATE_F-02
if not itab_contas_acc_ace[] is initial.
call function '/PWS/ZYCB_TRANSACAO_F_02B'
exporting
v_modo = v_modo_bi
tables
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_contas = itab_contas_acc_ace
exceptions
campo_em_branco = 1
periodo_fechado = 2
others = 3.
else.
* << Fim da inclusão
call function '/PWS/ZYCB_TRANSACAO_F_02C'
exporting
v_modo = v_modo_bi
tables
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
exceptions
campo_em_branco = 1
periodo_fechado = 2
others = 3.
* >> Início da inclusão: FORM FILL_DATE_F-02
endif.
* << Fim da inclusão
if sy-subrc = 0.
read table itab_zycbt032 with key tcode = 'F-02'
tabela = '/PWS/ZYCBT043'
cpochv = /pws/zycbe043-nrpagto
tpmsg = 'S'.
if sy-subrc eq 0.
message i223 with itab_zycbt032-belnr.
/pws/zycbe043-statusp = 'C'.
itab_zycbt044-statusp = 'C'.
/pws/zycbe043-belnr_p = itab_zycbt032-belnr.
...
...
itab_zycbt044-bukrs
'FBK'
v_codaux1
v_codaux2
space
changing
v_contrazao.
endif.
endif.
endform.
* >> Início da inclusão:
form conta_juros_acc_ace .
check /pws/zyglt009-cont_rot_sep = 'S'.
loop at itab_zycbt044.
if itab_zycbt044-tpjuros = 'A'.
move : itab_zycbt044-nrpagto to itab_zycbt044_acc-nrpagto,
itab_zycbt044-nrseqc to itab_zycbt044_acc-nrseqc,
itab_zycbt044-tpdesp to itab_zycbt044_acc-tpdesp,
itab_zycbt044-tpjuros to itab_zycbt044_acc-tpjuros,
itab_zycbt044-bukrs to itab_zycbt044_acc-bukrs,
itab_zycbt044-vlme to itab_zycbt044_acc-vlme,
itab_zycbt044-vlmi to itab_zycbt044_acc-vlmi.
collect itab_zycbt044_acc.
elseif itab_zycbt044-tpjuros = 'E'.
move : itab_zycbt044-nrpagto to itab_zycbt044_ace-nrpagto,
itab_zycbt044-nrseqc to itab_zycbt044_ace-nrseqc,
itab_zycbt044-tpdesp to itab_zycbt044_ace-tpdesp,
itab_zycbt044-tpjuros to itab_zycbt044_ace-tpjuros,
itab_zycbt044-bukrs to itab_zycbt044_ace-bukrs,
itab_zycbt044-vlme to itab_zycbt044_ace-vlme,
itab_zycbt044-vlmi to itab_zycbt044_ace-vlmi.
collect itab_zycbt044_ace.
endif.
endloop.
if not itab_zycbt044_acc[] is initial and
not itab_zycbt044_ace[] is initial.
read table itab_zycbt044_acc.
itab_zycbt035-bschl = '40'.
itab_zycbt035-d_gsber = itab_zycbe033-d_gsber.
itab_zycbt035-wrbtr = itab_zycbt044_acc-vlme.
itab_zycbt035-dmbtr = itab_zycbt044_acc-vlmi.
itab_zycbt035-d_zuonr = itab_zycbt035-c_zuonr = itab_zycbe033-d_zuonr.
itab_zycbt035-d_xblnr = itab_zycbt035-c_xblnr = itab_zycbe033-xblnr.
itab_zycbt035-d_sgtxt = itab_zycbt035-c_sgtxt = itab_zycbe033-d_sgtxt.
if wa_zycbt007-fprovisao = ' '.
v_ktosl = 'DSE'.
clear v_codaux1.
if /pws/zyglt009-provjur_moeda = 'X' and
/pws/zycbt004-waers = wa_zycbt007-waersa.
concatenate /pws/zycbt004-tpdesp wa_zycbt007-waersa
into v_codaux1 separated by space.
else.
v_codaux1 = /pws/zycbt004-tpdesp.
endif.
v_codaux2 = /pws/zycbt004-tpcontr.
v_codaux3 = 'ACC'.
else.
v_ktosl = 'PVE'.
v_codaux2 = /pws/zycbt004-tpcontr.
clear v_codaux1.
if /pws/zyglt009-provjur_moeda = 'X' and
/pws/zycbt004-waers = wa_zycbt007-waersa.
concatenate 'JUROS C' wa_zycbt007-waersa
into v_codaux1 separated by space.
else.
concatenate 'JUROS' 'C' into v_codaux1 separated by space.
endif.
v_codaux3 = 'ACC'.
endif.
call function '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
exporting
bukrs = itab_zycbt044-bukrs
ktosl = v_ktosl
codaux1 = v_codaux1
codaux2 = v_codaux2
codaux3 = v_codaux3
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-127.
elseif sy-subrc eq 2.
message i015 with text-128.
endif.
else.
read table itab_zyglt316 index 1.
move itab_zyglt316-konts to itab_zycbt035-d_newko.
endif.
perform verify_null_field using itab_zycbt035-d_newko
'NEWKO'
text-016.
append itab_zycbt035 .
read table itab_zycbt044_ace.
itab_zycbt035-bschl = '40'.
itab_zycbt035-d_gsber = itab_zycbe033-d_gsber.
itab_zycbt035-wrbtr = itab_zycbt044_ace-vlme.
itab_zycbt035-dmbtr = itab_zycbt044_ace-vlmi.
itab_zycbt035-d_zuonr = itab_zycbt035-c_zuonr = itab_zycbe033-d_zuonr.
itab_zycbt035-d_xblnr = itab_zycbt035-c_xblnr = itab_zycbe033-xblnr.
itab_zycbt035-d_sgtxt = itab_zycbt035-c_sgtxt = itab_zycbe033-d_sgtxt.
if wa_zycbt007-fprovisao = ' '.
v_ktosl = 'DSE'.
clear v_codaux1.
if /pws/zyglt009-provjur_moeda = 'X' and
/pws/zycbt004-waers = wa_zycbt007-waersa.
concatenate /pws/zycbt004-tpdesp wa_zycbt007-waersa
into v_codaux1 separated by space.
else.
v_codaux1 = /pws/zycbt004-tpdesp.
endif.
v_codaux2 = /pws/zycbt004-tpcontr.
v_codaux3 = 'ACE'.
else.
v_ktosl = 'PVE'.
v_codaux2 = /pws/zycbt004-tpcontr.
clear v_codaux1.
if /pws/zyglt009-provjur_moeda = 'X' and
/pws/zycbt004-waers = wa_zycbt007-waersa.
concatenate 'JUROS C' wa_zycbt007-waersa
into v_codaux1 separated by space.
else.
concatenate 'JUROS' 'C' into v_codaux1 separated by space.
endif.
v_codaux3 = 'ACE'.
endif.
call function '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
exporting
bukrs = itab_zycbt044-bukrs
ktosl = v_ktosl
codaux1 = v_codaux1
codaux2 = v_codaux2
codaux3 = v_codaux3
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-127.
elseif sy-subrc eq 2.
message i015 with text-128.
endif.
else.
read table itab_zyglt316 index 1.
move itab_zyglt316-konts to itab_zycbt035-d_newko.
endif.
perform verify_null_field using itab_zycbt035-d_newko
'NEWKO'
text-016.
append itab_zycbt035 .
itab_zycbt035-bschl = '50'.
itab_zycbt035-d_newko = itab_zycbe033-c_newko.
perform verify_null_field using itab_zycbt035-d_newko
'C_NEWKO'
text-037.
itab_zycbt035-wrbtr = itab_zycbe033-wrbtr.
itab_zycbt035-dmbtr = itab_zycbe033-dmbtr.
append itab_zycbt035 .
clear : itab_zycbe033-wrbtr ,
itab_zycbe033-wrbtr2 ,
itab_zycbe033-dmbtr ,
itab_zycbe033-dmbtr2 ,
itab_zycbe033-c_newko,
itab_zycbe033-d_newko1.
modify itab_zycbe033 index 1.
loop at itab_zycbt035.
move-corresponding itab_zycbt035 to itab_contas_acc_ace.
append itab_contas_acc_ace.
endloop.
endif.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB012I01
module altera_itab_zycbt044 input.
if not /pws/zycbe044-bukrs is initial.
* >> Início da inclusão: MODULE ALTERA_ITAB_ZYCBT044
if /pws/zycbe044-dtpagext is initial.
select single *
from /PWS/ZYCBT004
into /PWS/ZYCBT004
where nrseqc = /pws/zycbe044-nrseqc and
tpdesp = /pws/zycbe044-tpdesp and
nrparc = /pws/zycbe044-nrparc and
dtincl = /pws/zycbe044-dtincl and
dtliquid = /pws/zycbe044-dtliquid and
tpjuros = /pws/zycbe044-tpjuros.
if sy-subrc = 0.
/pws/zycbe044-dtpagext = /PWS/ZYCBT004-dtpagext.
endif.
endif.
* << Fim da inclusão
read table itab_zycbt044_aux
with key nrseqc = /pws/zycbe044-nrseqc
tpdesp = /pws/zycbe044-tpdesp
nrparc = /pws/zycbe044-nrparc
dtincl = /pws/zycbe044-dtincl
dtliquid = /pws/zycbe044-dtliquid
tpjuros = /pws/zycbe044-tpjuros
dtpagext = /pws/zycbe044-dtpagext.
if sy-subrc eq 0.
message w061 with text-108 /pws/zycbe044-nrparc
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB012TOP
...
DATA: END OF itab_zycbt044_aux.
DATA: BEGIN OF itab_zyglt321 OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt321.
DATA: END OF itab_zyglt321.
DATA: BEGIN OF itab_zyglt100 OCCURS 0.
INCLUDE STRUCTURE /pws/zyglt100.
DATA: END OF itab_zyglt100.
DATA: BEGIN OF itab_zycbt044_verif OCCURS 0.
INCLUDE STRUCTURE /pws/zycbe044.
DATA: END OF itab_zycbt044_verif.
* >> Início da inclusão:
data: begin of itab_zycbt044_acc occurs 0,
nrpagto like /pws/zycbe044-nrpagto,
nrseqc like /pws/zycbe044-nrseqc,
tpdesp like /pws/zycbe044-tpdesp,
tpjuros like /pws/zycbe044-tpjuros,
bukrs like /pws/zycbe044-bukrs,
vlme like /pws/zycbe044-vlme,
vlmi like /pws/zycbe044-vlmi,
end of itab_zycbt044_acc.
data: begin of itab_zycbt044_ace occurs 0,
nrpagto like /pws/zycbe044-nrpagto,
nrseqc like /pws/zycbe044-nrseqc,
tpdesp like /pws/zycbe044-tpdesp,
tpjuros like /pws/zycbe044-tpjuros,
bukrs like /pws/zycbe044-bukrs,
vlme like /pws/zycbe044-vlme,
vlmi like /pws/zycbe044-vlmi,
end of itab_zycbt044_ace.
data: begin of itab_zycbt035 occurs 0.
include structure /pws/zycbe035.
data: end of itab_zycbt035.
data: begin of itab_contas_acc_ace occurs 0.
include structure /pws/zycbe035.
data: end of itab_contas_acc_ace.
* << Fim da inclusão
DATA: BEGIN OF itab_nrinvoic OCCURS 1,
sign(1) TYPE c,
option(2) TYPE c,
low LIKE /pws/zycbe044a-nrinvoic,
high LIKE /pws/zycbe044b-nrinvoic,
END OF itab_nrinvoic.
DATA: BEGIN OF itab_nrcontr OCCURS 1, "#EC *
sign(1) TYPE c,
option(2) TYPE c,
low LIKE /pws/zycbe044a-nrcontr,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB110F01
...
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa)
USING ok_code
CHANGING e_subrc.
IF e_subrc NE 0.
EXIT.
ENDIF.
ENDIF.
ENDIF.
APPEND itab_zycbe033.
* >> Início da inclusão: FORM FILL_DATE_F-63OUF-02_ED
perform conta_juros_acc_ace .
* << Fim da inclusão
LOOP AT itab_zycbt034.
MESSAGE i016 WITH itab_zycbt034-descricao.
ENDLOOP.
CLEAR sy-subrc.
IF itab_zycbt034 IS INITIAL.
IF /pws/zycbe031-tpdesp EQ 'PR'.
PERFORM executa_f02.
ELSE.
IF ( wa_despesa-frpagto = 'R' OR /pws/zycbt001-fvincjur = 'S' )
AND /pws/zycbe031-mdcorresp NE 'EC'.
* >> Início da inclusão: FORM FILL_DATE_F-63OUF-02_ED
if not itab_contas_acc_ace[] is initial.
call function '/PWS/ZYCB_TRANSACAO_F_02L'
exporting
v_modo = v_modo_bi
tables
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
t_zycbt035 = itab_contas_acc_ace
exceptions
campo_em_branco = 1
periodo_fechado = 2
others = 3 .
else.
* << Fim da inclusão
CALL FUNCTION '/PWS/ZYGL_TRANSACAO_F_02'
EXPORTING
v_modo = v_modo_bi
TABLES
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
EXCEPTIONS
campo_em_branco = 1
periodo_fechado = 2
OTHERS = 3.
* >> Início da inclusão: FORM FILL_DATE_F-63OUF-02_ED
endif.
* << Fim da inclusão
IF sy-subrc = 0.
READ TABLE itab_zycbt032 WITH KEY tcode = 'F-02'
tabela = '/PWS/ZYCBT031'
cpochv = /pws/zycbe031-nrseq
tpmsg = 'S'.
IF sy-subrc = 0.
wa_despesa-statusp = 'C'.
/pws/zycbe031-statusp = 'C'.
wa_despesa-belnr = itab_zycbt032-belnr.
/pws/zycbe031-belnr_p = itab_zycbt032-belnr.
...
...
IF /pws/zycbe031-vlir <= 0 AND
/pws/zycbe031-belnr_pi IS INITIAL.
screen-input = '0'.
MODIFY SCREEN.
screen-invisible = '1'.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
ENDFORM.
* >> Início da inclusão:
form conta_juros_acc_ace.
clear: itab_zycbt064,
itab_zycbt064_acc,
itab_zycbt064_ace,
itab_zycbt035,
itab_contas_acc_ace.
check wa_zyglt009-cont_rot_sep = 'S'.
loop at itab_zycbt064.
if itab_zycbt064-tpjuros = 'A'.
move : itab_zycbt064-tpjuros to itab_zycbt064_acc-tpjuros,
itab_zycbt064-vlme to itab_zycbt064_acc-vlme.
itab_zycbt064_acc-vlmi =
itab_zycbt064_acc-vlme * itab_zycbe033-kursf .
collect itab_zycbt064_acc.
elseif itab_zycbt064-tpjuros = 'E'.
move : itab_zycbt064-tpjuros to itab_zycbt064_ace-tpjuros,
itab_zycbt064-vlme to itab_zycbt064_ace-vlme.
itab_zycbt064_ace-vlmi =
itab_zycbt064_ace-vlme * itab_zycbe033-kursf .
collect itab_zycbt064_ace.
endif.
endloop.
if not itab_zycbt064_acc[] is initial and
not itab_zycbt064_ace[] is initial.
read table itab_zycbt064_acc.
itab_zycbt035-bschl = '40'.
itab_zycbt035-d_gsber = itab_zycbe033-d_gsber.
itab_zycbt035-wrbtr = itab_zycbt064_acc-vlme.
itab_zycbt035-dmbtr = itab_zycbt064_acc-vlmi.
itab_zycbt035-d_zuonr = itab_zycbt035-c_zuonr = itab_zycbe033-d_zuonr.
itab_zycbt035-d_xblnr = itab_zycbt035-c_xblnr = itab_zycbe033-xblnr.
itab_zycbt035-d_sgtxt = itab_zycbt035-c_sgtxt = itab_zycbe033-d_sgtxt.
if wa_zycbt007-fprovisao = ' '.
v_ktosl = 'DSE'.
clear v_codaux1.
if /pws/zyglt009-provjur_moeda = 'X' and
/pws/zycbt004-waers = wa_zycbt007-waersa.
concatenate /pws/zycbt004-tpdesp wa_zycbt007-waersa
into v_codaux1 separated by space.
else.
v_codaux1 = /pws/zycbt004-tpdesp.
endif.
v_codaux2 = /pws/zycbt004-tpcontr.
v_codaux3 = 'ACC'.
else.
v_ktosl = 'PVE'.
v_codaux2 = /pws/zycbt004-tpcontr.
clear v_codaux1.
if /pws/zyglt009-provjur_moeda = 'X' and
/pws/zycbt004-waers = wa_zycbt007-waersa.
concatenate 'JUROS C' wa_zycbt007-waersa
into v_codaux1 separated by space.
else.
concatenate 'JUROS' 'C' into v_codaux1 separated by space.
endif.
v_codaux3 = 'ACC'.
endif.
call function '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
exporting
bukrs = wa_despesa-bukrs
ktosl = v_ktosl
codaux1 = v_codaux1
codaux2 = v_codaux2
codaux3 = v_codaux3
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-127.
elseif sy-subrc eq 2.
message i015 with text-128.
endif.
else.
read table itab_zyglt316 index 1.
move itab_zyglt316-konts to itab_zycbt035-d_newko.
endif.
perform verify_null_field using itab_zycbt035-d_newko
'NEWKO'
text-016.
append itab_zycbt035 .
read table itab_zycbt064_ace.
itab_zycbt035-bschl = '40'.
itab_zycbt035-d_gsber = itab_zycbe033-d_gsber.
itab_zycbt035-wrbtr = itab_zycbt064_ace-vlme.
itab_zycbt035-dmbtr = itab_zycbt064_ace-vlmi.
itab_zycbt035-d_zuonr = itab_zycbt035-c_zuonr = itab_zycbe033-d_zuonr.
itab_zycbt035-d_xblnr = itab_zycbt035-c_xblnr = itab_zycbe033-xblnr.
itab_zycbt035-d_sgtxt = itab_zycbt035-c_sgtxt = itab_zycbe033-d_sgtxt.
if wa_zycbt007-fprovisao = ' '.
v_ktosl = 'DSE'.
clear v_codaux1.
if /pws/zyglt009-provjur_moeda = 'X' and
/pws/zycbt004-waers = wa_zycbt007-waersa.
concatenate /pws/zycbt004-tpdesp wa_zycbt007-waersa
into v_codaux1 separated by space.
else.
v_codaux1 = /pws/zycbt004-tpdesp.
endif.
v_codaux2 = /pws/zycbt004-tpcontr.
v_codaux3 = 'ACE'.
else.
v_ktosl = 'PVE'.
v_codaux2 = /pws/zycbt004-tpcontr.
clear v_codaux1.
if /pws/zyglt009-provjur_moeda = 'X' and
/pws/zycbt004-waers = wa_zycbt007-waersa.
concatenate 'JUROS C' wa_zycbt007-waersa
into v_codaux1 separated by space.
else.
concatenate 'JUROS' 'C' into v_codaux1 separated by space.
endif.
v_codaux3 = 'ACE'.
endif.
call function '/PWS/ZYGL_READ_ACCOUNT_NUMBER'
exporting
bukrs = wa_despesa-bukrs
ktosl = v_ktosl
codaux1 = v_codaux1
codaux2 = v_codaux2
codaux3 = v_codaux3
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-127.
elseif sy-subrc eq 2.
message i015 with text-128.
endif.
else.
read table itab_zyglt316 index 1.
move itab_zyglt316-konts to itab_zycbt035-d_newko.
endif.
perform verify_null_field using itab_zycbt035-d_newko
'NEWKO'
text-016.
append itab_zycbt035 .
itab_zycbe033-newbs = '31'.
itab_zycbe033-newbs1 = '40'.
modify itab_zycbe033 index 1.
loop at itab_zycbt035.
move-corresponding itab_zycbt035 to itab_contas_acc_ace.
append itab_contas_acc_ace.
endloop.
endif.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL110F01
...
ENDIF.
ENDIF.
ENDIF.
IF ( /pws/zycbe031-mdcorresp = 'CD' OR
/pws/zycbe031-mdcorresp = 'ED' OR
/pws/zycbe031-mdcorresp = 'ID' OR
/pws/zycbe031-mdcorresp = 'IU' OR
/pws/zycbe031-mdcorresp = 'EC' ) AND
v_status_despesa = '1' AND
screen-name = '/PWS/ZYCBE145-ZLSCH'.
* >> Início da inclusão: FORM DESABILITAR_100
if sy-tcode ne '/PWS/ZYCB110_E'.
* << Fim da inclusão
screen-input = '1'.
* >> Início da inclusão: FORM DESABILITAR_100
else.
screen-input = '0'.
endif.
* << Fim da inclusão
ENDIF.
IF v_altera_dtliquid EQ 'X' AND screen-name = 'V_PROPOR'.
screen-input = '1'.
ENDIF.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYGL110X01
...
DATA: END OF itab_zycbt141.
DATA: BEGIN OF itab_zycbt141_i OCCURS 0.
INCLUDE STRUCTURE /pws/zycbt141.
DATA: END OF itab_zycbt141_i.
DATA: BEGIN OF itab_zycat025 OCCURS 0.
INCLUDE STRUCTURE /pws/zycat025.
DATA: END OF itab_zycat025.
DATA: BEGIN OF itab_zycat024 OCCURS 0.
INCLUDE STRUCTURE /pws/zycat024.
DATA: END OF itab_zycat024.
* >> Início da inclusão:
data: begin of itab_ZYCBT064_acc occurs 0,
tpjuros like /PWS/ZYCBT064-tpjuros,
vlme like /PWS/ZYCBT064-vlme,
vlmi like /PWS/ZYCBT064-vlmi,
end of itab_ZYCBT064_acc.
data: begin of itab_ZYCBT064_ace occurs 0,
tpjuros like /PWS/ZYCBT064-tpjuros,
vlme like /PWS/ZYCBT064-vlme,
vlmi like /PWS/ZYCBT064-vlmi,
end of itab_ZYCBT064_ace.
data: begin of itab_zycbt035 occurs 0.
include structure /pws/zycbe035.
data: end of itab_zycbt035.
data: begin of itab_contas_acc_ace occurs 0.
include structure /pws/zycbe035.
data: end of itab_contas_acc_ace.
* << Fim da inclusão
DATA: BEGIN OF itab_zycmt020 OCCURS 0.
INCLUDE STRUCTURE /pws/zycmt020.
DATA: END OF itab_zycmt020.
DATA: wa_zycbt007 TYPE /pws/zycbt007,
v_modo_bi TYPE /pws/zycbt039-modo,
v_exec_f51(01) TYPE c.
DATA: v_koart_bi TYPE /pws/zycat027-koart,
v_shkzg_bi TYPE /pws/zycat027-shkzg.
DATA: ok_code LIKE sy-ucomm,
v_subrc TYPE sy-subrc,
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR102
...
form verifica_modulo.
if p_alv is initial.
perform marcar_campo_check.
if v_erro = 0.
perform verifica_selecionados.
endif.
if v_erro = 0.
perform seleciona_selreg_aux.
endif.
if v_erro = 0.
* >> Início da exclusão: FORM VERIFICA_MODULO
perform verifica_tipo.
endif.
if v_erro = 0.
* << Fim da exclusão
perform verifica_pagamento_fatura.
endif.
if v_erro = 0.
perform verifica_fecha_cambio.
endif.
if v_erro = 0.
perform verifica_tipo_parcela.
endif.
if v_erro = 0.
perform agrupa_boletos.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em SHLD /PWS/ZYCBA016
MODIFICAR AJUDA DE PESQUISA: /PWS/ZYCBA016
DESCRIÇÃO BREVE: CB - Parcelas de Despesas
DEFINIÇÃO
OBTENÇÃO DE DADOS
MÉTODO DE SELEÇÃO:/PWS/ZYCBV044
COMPORTAMENTO DE DIÁLOGO:
TIPO DE DIÁLOGO: Exibição de valores imediata
HOT KEY:
EXIT AJUD. PESQUISA: /PWS/EXIT_ZYCBA016
PARÂMETROS ALTERADOS :
PARAM. IMP EXP POSL ISEL EXAJ ELEM. DADOS MOD VALOR PROPOSTO
VLME X 15 15 WRBTR