CE PLUS - Nota 009802
Módulo: CÂMBIO FINANCEIRO
Funcionalidade: Empréstimos
Data/Hora da Publicação: 09/02/2010 00:00:00
Data/Hora Última Alteração: 03/03/2011 15:20:32
Descrição da Nota: DA EMPRÉSTIMO - INCLUSÃO CAMPO DATA INICIAL/LANCTO E DATA CRÉDITO
Sintoma
No empréstimo, não permite criar com data de desembolso menor que a data da inclusão. Para isso será
criado o campo Data Crédito e o campo Data Inicial/Lancto., pois este segundo irá permitir escolher
a data inicial das parcelas e do lançamento, sendo: Data inclusão ou Data desembolso ou Data crédito
Solução
No empréstimo, não permite criar com data de desembolso menor que a data da inclusão. Para isso será
criado o campo Data Crédito e o campo Data Inicial/Lancto., pois este segundo irá permitir escolher
a data inicial das parcelas e do lançamento, sendo: Data inclusão ou Data desembolso ou Data crédito
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09802 Data: 09/02/2010 Hora: 10:09:21
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09802
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00002
Agrupamento : 00008
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01593 - 00001 - 6.0 - 00023 - IMPRESSÃO DOS VALORES DE TRANSFERÊNCIA DE LP PARA CP NA ROTINA ME
01597 - 00002 - 6.0 - 00023 - EMPRÉSTIMO - NÃO ESTÁ SENDO FEITO O ESTORNO
03702 - 00003 - 7.0 - 00001 - SAIDA DE PAGAMENTO - EMPRESTIMO PRÉ EDITADO
03724 - 00004 - 7.0 - 00001 - COMPLEMENTO DO BOLETO - TIPO RAZÃO ESPECIAL
04196 - 00005 - 7.0 - 00002 - IRRF SOBRE COMISSÃO DE EMPRÉSTIMO CONTABILIZADO NO COMPLEMENTO DO
04908 - 00006 - 7.0 - 00003 - EMPRÉSTIMO
05441 - 00007 - 7.0 - 00003 - EMPRÉSTIMO - ALTERAÇÃO DATA DE VENCIMENTO - DATAS PARCELAS
06290 - 00008 - 7.0 - 00005 - FINANCIAMENTO/EMPRESTIMO - JUROS E COMISSÃO COM IRRF DEDUZIDO
06646 - 00009 - 7.0 - 00005 - EMPRESTIMO - DIAS COMISSAO
07304 - 00010 - 7.0 - 00006 - PROGRAMA DE EMPRESTIMO, GRAVA O PRAZO SOMENTE COMO CURTISSIMO
07606 - 00011 - 7.0 - 00007 - COMPLEMENTO DO BOLETO - ANO FISCAL
07783 - 00012 - 7.0 - 00008 - EMPRESTIMO - PROBLEMA COM OS CAMPOS DE PERIODO E ANO FISCAL
07850 - 00013 - 7.0 - 00008 - ROTINA MENSAL FINANCEIRO - ANO FISCAL - AWKEY - TRANSFERENCIA LP/
07965 - 00014 - 7.0 - 00008 - DA - COTAÇÃO DE MOEDAS PARA CAPTAÇÃO/FINANCIAMENTO/EMPRÉSTIMO
08791 - 00015 - 7.0 - 00010 - SAÍDA DE PAGAMENTO - ANO FISCAL - REMESSA COM ORIGEM E OUTROS
08914 - 00016 - 7.0 - 00010 - FINANCIAMENTO, REMESSAS, ASSOCIAÇÃO, EMPRÉSTIMO, ASSUNÇÃO DE DIVI
09327 - 00017 - 8.0 - 00001 - EMPRÉSTIMO - ROTINAS MENSAIS - CONSIDERAR DE-PARA CATEGORIA DA MO
09339 - 00018 - 8.0 - 00001 - PONTOS DE EXIT-CAPTAÇÃO(CPT020)-EMPRÉSTIMO(EMP003)-FINANCIAMENTO(
----------------------------------------------------------------------------------------------------
DA EMPRÉSTIMO - INCLUSÃO CAMPO DATA INICIAL/LANCTO E DATA CRÉDITO
----------------------------------------------------------------------------------------------------
Palavras Chave:
DA EMPRÉSTIMO INCLUSÃO CAMPO DATA INICIAL/LANCTO E DATA CRÉDITO
----------------------------------------------------------------------------------------------------
Objetos da nota:
DOMA /PWS/ZYCBD334
DTEL /PWS/ZYCBL491
DTEL /PWS/ZYCBL492
DYNP /PWS/SAPMZYCA111 0101
REPS /PWS/MZYCA110F01
REPS /PWS/MZYCA111F01
REPS /PWS/MZYCA111I01
REPS /PWS/MZYCA111O01
REPS /PWS/MZYCA111TOP
REPS /PWS/MZYCB115F01
REPS /PWS/ZYCBI113
REPS /PWS/ZYCBR113
REPS /PWS/ZYCBR122
REPS /PWS/ZYGLR012
REPT /PWS/SAPMZYCA111
TABD /PWS/ZYCBE128
TABD /PWS/ZYCBT128
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DOMA /PWS/ZYCBD334
------------------------------------------------------------------------
Domínio incluído: /PWS/ZYCBD334
Descrição breve incluída (38 caracteres), idioma: PT
"GL - Flag para Data Inicial do Período"
Classe de desenvolvimento: /PWS/ZYGL
Idioma original: PT
Categoria de dados: CHAR
Número de posições: 1
Comprimento de saída: 1
Rotina de conversão:
Letras minúsculas: NÃO
-Valores individuais
Incluído valor fixo "I"
Texto incluído, idioma: PT (8 caracteres):
"Inclusão"
Incluído valor fixo "D"
Texto incluído, idioma: PT (10 caracteres):
"Desembolso"
Incluído valor fixo "C"
Texto incluído, idioma: PT (7 caracteres):
"Crédito"
Incluída tabela de valores:
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCBL491
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCBL491
Classe de desenvolvimento: /PWS/ZYGL
Idioma original: PT
Descrição breve incluída: (20 caracteres), idioma: PT
"GL - Data de Crédito"
Categoria de dados: Domínio
Domínio: DATUM
ID parâmetro:
Nome componente default:
Documentar modificações: SIM
Nome da ajuda de pesquisa:
Parâmetro da ajuda de pesquisa:
Comprimento máximo do denominador breve: 10
Denominador breve incluído (10 caracteres), idioma: PT
"Dt.Crédito"
Comprimento máximo do denominador médio: 15
Denominador médio incluído (12 caracteres), idioma: PT
"Data Crédito"
Comprimento máximo do denominador longo: 20
Denominador longo incluído (13 caracteres), idioma: PT
"Data de Crédi"
Comprimento máximo do título: 13
Título incluído (13 caracteres), idioma: PT
"Data de Crédi"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DTEL /PWS/ZYCBL492
------------------------------------------------------------------------
Elemento de dados incluído: /PWS/ZYCBL492
Classe de desenvolvimento: /PWS/ZYGL
Idioma original: PT
Descrição breve incluída: (38 caracteres), idioma: PT
"GL - Flag para Data Inicial do Período"
Categoria de dados: Domínio
Domínio: /PWS/ZYCBD334
ID parâmetro:
Nome componente default:
Documentar modificações: NÃO
Nome da ajuda de pesquisa:
Parâmetro da ajuda de pesquisa:
Comprimento máximo do denominador breve: 10
Denominador breve incluído (10 caracteres), idioma: PT
"Flag Inici"
Comprimento máximo do denominador médio: 20
Denominador médio incluído (20 caracteres), idioma: PT
"Flag Inicial Periodo"
Comprimento máximo do denominador longo: 30
Denominador longo incluído (30 caracteres), idioma: PT
"Flag para Data Inicial Periodo"
Comprimento máximo do título: 33
Título incluído (33 caracteres), idioma: PT
"Flag para Data Inicial do Periodo"
----------------------------------------------------------------------------------------------------
Modificações efetuadas em DYNP /PWS/SAPMZYCA111 0101
Solicitar a equipe de desenvolvimento - produto pw.Ce câmbio - o arquivo para efetuar upload da
tela. Tel.: 11 5504 0170
MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0101
PROCESS BEFORE OUTPUT.
FIELD /pws/zycbe128-txtinf MODULE consiste_texto_obrigatorio.
MODULE: set-screen,
taxa,
comissao,
* >> Início da inclusão:
data_inicial,
* << Fim da inclusão
load_itab_zycbt129p.
PROCESS AFTER INPUT.
MODULE txtmodalidade.
FIELD /pws/zycbe128-kursf.
FIELD /pws/zycbe128-tptaxa.
FIELD /pws/zycbe128-dtincl MODULE consiste_dtincl.
FIELD /pws/zycbe128-dtdesem MODULE consiste_dtdesem.
FIELD /pws/zycbe128-bcofinan MODULE consiste_bcofinan.
FIELD /pws/zycbe128-dtvencto MODULE consiste_dtvencto.
FIELD /pws/zycbe128-tpemprest MODULE consiste_tpemprest.
FIELD /pws/zycbe128-waers MODULE consiste_moeda.
FIELD /pws/zycbe128-vlme MODULE consiste_vlme.
FIELD /pws/zycbe128-fpagto_c MODULE consiste_fpagto_c.
FIELD /pws/zycbe128-nrparc MODULE consiste_parcela ON REQUEST.
FIELD /pws/zycbe128-percomis MODULE consiste_percentual.
FIELD /pws/zycbe128-vlcomis MODULE consiste_vlcomis.
CHAIN.
* >> Início da inclusão:
field /pws/zycbe128-dtincl.
field /pws/zycbe128-dtdesem.
field /pws/zycbe128-dtcred.
field /pws/zycbe128-fdtinicial module consiste_data_inicial.
* << Fim da inclusão
FIELD /pws/zycbe128-tptaxa.
FIELD /pws/zycbe128-fpagto_c MODULE consiste_tipo_de_taxa ON
CHAIN-REQUEST.
ENDCHAIN.
FIELD /pws/zycbe128-ftxt.
FIELD /pws/zycbe128-txtinf MODULE consiste_texto_obrigatorio.
* >> Início da inclusão:
field /pws/zycbe128-dtcred module consiste_data_credito.
* << Fim da inclusão
MODULE user_command_0101.
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA110F01
...
and belnr_cl eq itab_zycbt036-belnr.
perform determina_ano using /pws/zycbt154-dtcont
/pws/zycbt128-bukrs
changing v_ano.
select single awkey from bkpf
into itab_zycbt036-awkey
where belnr eq itab_zycbt036-belnr
and bukrs eq /pws/zycbt128-bukrs
and gjahr eq v_ano.
else.
* >> Início da inclusão: FORM EXECUTA_CLEARING_EMP
if /pws/zycbt128-fdtinicial = 'D' or
/pws/zycbt128-fdtinicial = 'I' or
/pws/zycbt128-fdtinicial = 'C'.
case /pws/zycbt128-fdtinicial.
when 'D'.
* << Fim da inclusão
perform determina_ano using /pws/zycbt128-dtdesem
/pws/zycbt128-bukrs
changing v_ano.
* >> Início da inclusão: FORM EXECUTA_CLEARING_EMP
when 'I'.
perform determina_ano using /pws/zycbt128-dtincl
/pws/zycbt128-bukrs
changing v_ano.
when 'C'.
perform determina_ano using /pws/zycbt128-dtcred
/pws/zycbt128-bukrs
changing v_ano.
endcase.
else.
perform determina_ano using /pws/zycbt128-dtdesem
/pws/zycbt128-bukrs
changing v_ano.
endif.
* << Fim da inclusão
select single awkey from bkpf
into itab_zycbt036-awkey
where belnr eq itab_zycbt036-belnr
and bukrs eq /pws/zycbt128-bukrs
and gjahr eq v_ano.
endif.
append itab_zycbt036.
endloop.
read table itab_zycbt036 with key belnr = ' '.
if sy-subrc eq 0.
...
...
endif.
endif.
clear wa_zycbt007.
select single * from /pws/zycbt007
into wa_zycbt007
where bukrs eq /pws/zycbe031-bukrs.
refresh itab_zycbt013.
select * from /pws/zycbt013
into table itab_zycbt013
where tabela = '/PWS/ZYCBT128'.
* >> Início da inclusão: FORM GET_PARAMETERS_CLEAR_EMP
if wa_zycbt128-fdtinicial = 'D' or
wa_zycbt128-fdtinicial = 'I' or
wa_zycbt128-fdtinicial = 'C'.
case wa_zycbt128-fdtinicial.
when 'D'.
v_nrdias = wa_zycbt128-dtvencto - wa_zycbt128-dtdesem.
when 'I'.
v_nrdias = wa_zycbt128-dtvencto - wa_zycbt128-dtincl.
when 'C'.
v_nrdias = wa_zycbt128-dtvencto - wa_zycbt128-dtcred.
endcase.
else.
* << Fim da inclusão
v_nrdias = wa_zycbt128-dtvencto - wa_zycbt128-dtdesem.
* >> Início da inclusão: FORM GET_PARAMETERS_CLEAR_EMP
endif.
* << Fim da inclusão
if v_nrdias <= 360.
v_prazo = 'S'.
else.
v_prazo = 'L'.
endif.
refresh: itab_zycbt012.
...
...
exceptions
key_not_found = 1
rules_not_found = 2
others = 3.
endif.
if sy-subrc = 0.
read table itab_zyglt316 index 1.
itab_contas-conta = itab_zyglt316-konts.
append itab_contas.
endif.
* >> Início da inclusão: FORM PREENCHE_CONTAS_CUSTO_LUCRO_CE
if itab_zycbt128-fdtinicial = 'D' or
itab_zycbt128-fdtinicial = 'I' or
itab_zycbt128-fdtinicial = 'C'.
case itab_zycbt128-fdtinicial.
when 'D'.
* << Fim da inclusão
v_nrdias = itab_zycbt128-dtvencto - itab_zycbt128-dtdesem.
* >> Início da inclusão: FORM PREENCHE_CONTAS_CUSTO_LUCRO_CE
when 'I'.
v_nrdias = itab_zycbt128-dtvencto - itab_zycbt128-dtincl.
when 'C'.
v_nrdias = itab_zycbt128-dtvencto - itab_zycbt128-dtcred.
endcase.
else.
v_nrdias = itab_zycbt128-dtvencto - itab_zycbt128-dtdesem.
endif.
* << Fim da inclusão
if wa_zyglt009 is initial.
select single * from /pws/zyglt009 into wa_zyglt009
where bukrs eq /pws/zycbe031-bukrs.
endif.
if v_nrdias > wa_zyglt009-nrdias_cp.
v_prazo = 'L'.
else.
v_prazo = 'S'.
endif.
concatenate itab_zycbt128-tpemprest v_prazo
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA111F01
...
concatenate v_count sy-datum+2(2) into /pws/zycbe128-nrseq.
v_nrseqc = /pws/zycbe128-nrseq.
v_nrseqcview = /pws/zycbe128-nrseq.
endform.
form save_changes.
data: v_dif like v_soma_vlme,
v_tabix like sy-tabix.
describe table itab_zycbt129p lines v_li.
read table itab_zycbt129p index 1.
if itab_zycbt129p-nrdias ne '00000'.
* >> Início da exclusão: FORM SAVE_CHANGES
if itab_zycbt129p-dtinicio <> /pws/zycbe128-dtdesem and
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_CHANGES
if itab_zycbt129p-dtinicio <> v_data_inicial and
* << Fim da inclusão
v_li > 0 and itab_zycbt129p-belnr_p is initial.
message i015 with text-133.
exit.
endif.
v_dia = 0.
* >> Início da exclusão: FORM SAVE_CHANGES
v_di = /pws/zycbe128-dtvencto - /pws/zycbe128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_CHANGES
v_di = /pws/zycbe128-dtvencto - v_data_inicial.
* << Fim da inclusão
loop at itab_zycbt129p.
v_dia = v_dia + itab_zycbt129p-nrdias.
endloop.
if v_di <> v_dia and v_li > 0 and
itab_zycbt129p-belnr_p is initial.
message w015 with text-134.
exit.
endif.
describe table itab_zycbt129p lines v_li.
read table itab_zycbt129p index v_li.
...
...
perform message_store using
'/PWS/ZYCBM'
'I'
text-128
/pws/zycbe128-nrseq
text-129
space
'268'.
move /pws/zycbe128 to wa_zycbt128.
move /pws/zycbe129 to wa_zycbt129.
* >> Início da inclusão: FORM SAVE_CHANGES
v_data_inicial_old = v_data_inicial.
* << Fim da inclusão
if sy-tcode = '/PWS/ZYCB111_C'.
if v_erro eq 'N'.
perform limpa.
perform find_nrseqc.
select bukrs gsber j_1bbranch werks waersb
into (/pws/zycbe128-bukrs, /pws/zycbe128-gsber,
/pws/zycbe128-j_1bbranch, /pws/zycbe128-werks,
v_waersb)
from /pws/zycbt007 up to 1 rows
where bukrs eq /pws/zycbe128-bukrs.
...
...
else.
v_erro = 'N'.
endif.
endif.
perform executa_exit using 'EMP003'.
if not /pws/zycbe128-nrseqcot is initial and
not /pws/zycbe128-belnr is initial and
( sy-tcode ne '/PWS/ZYCB111_E' or v_status_s ne 0 ).
perform verifica_despesa_cotacao.
endif.
* >> Início da inclusão: FORM SAVE_CHANGES
perform carga_zycbt128.
* << Fim da inclusão
perform message_show using 'X'.
set parameter id '/PWS/ZYCBP373' field v_nrseqcview.
if sy-binpt is initial.
leave to transaction '/PWS/ZYCB111_E' and skip first screen.
endif.
else.
message i035.
endif.
endform.
form create_zycbt129_p.
itab_zycbt129p-nrparc = v_countlinej.
if /pws/zycbe129-dtinicio is initial.
* >> Início da exclusão: FORM CREATE_ZYCBT129_P
itab_zycbt129p-dtinicio = /pws/zycbe128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM CREATE_ZYCBT129_P
itab_zycbt129p-dtinicio = v_data_inicial.
* << Fim da inclusão
endif.
itab_zycbt129p-nrseq = /pws/zycbe128-nrseq.
itab_zycbt129p-nremprest = /pws/zycbe128-nremprest.
itab_zycbt129p-tpparc = 'P'.
read table itab_zycbt129p with key nrseq = itab_zycbt129p-nrseq
nrparc = itab_zycbt129p-nrparc.
if sy-subrc <> 0.
append itab_zycbt129p.
move itab_zycbt129p to itab_zycbt129j.
itab_zycbt129j-tpparc = 'J'.
...
...
itab_zycbt129p-nrseq = /pws/zycbe128-nrseq.
itab_zycbt129p-nrparc = /pws/zycbe129-nrparc = v_countlinej.
itab_zycbt129p-tpparc = 'P'.
itab_zycbt129p-nremprest = /pws/zycbe129-nremprest.
append itab_zycbt129p.
endif.
read table itab_zycbt129p with key nrseq = /pws/zycbe128-nrseq
nrparc = /pws/zycbe129-nrparc.
if /pws/zycbe129-dtinicio is initial.
if v_dtfinal is initial.
* >> Início da exclusão: FORM UPDATE_ITAB_ZYCBT129P
itab_zycbt129p-dtinicio = /pws/zycbe128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM UPDATE_ITAB_ZYCBT129P
itab_zycbt129p-dtinicio = v_data_inicial.
* << Fim da inclusão
else.
itab_zycbt129p-dtinicio = v_dtfinal.
endif.
else.
if /pws/zycbe129-nrparc = 1.
* >> Início da exclusão: FORM UPDATE_ITAB_ZYCBT129P
/pws/zycbe129-dtinicio = itab_zycbt129p-dtinicio =
/pws/zycbe128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM UPDATE_ITAB_ZYCBT129P
/pws/zycbe129-dtinicio = itab_zycbt129p-dtinicio = v_data_inicial.
* << Fim da inclusão
else.
itab_zycbt129p-dtinicio = /pws/zycbe129-dtinicio.
endif.
endif.
if /pws/zycbe129-nrdias is initial.
itab_zycbt129p-dtfinal = /pws/zycbe129-dtfinal.
if not /pws/zycbe129-dtfinal is initial.
itab_zycbt129p-nrdias =
( itab_zycbt129p-dtfinal - itab_zycbt129p-dtinicio ).
v_diasp = v_diasp + itab_zycbt129p-nrdias.
...
...
itab_zycbt129j-nrseq = /pws/zycbe128-nrseq.
itab_zycbt129j-nrparc = /pws/zycbe129-nrparc = v_countlinej.
itab_zycbt129j-tpparc = 'J'.
itab_zycbt129j-nremprest = /pws/zycbe129-nremprest.
append itab_zycbt129j.
endif.
read table itab_zycbt129j with key nrseq = /pws/zycbe128-nrseq
nrparc = /pws/zycbe129-nrparc.
if /pws/zycbe129-dtinicio is initial.
if v_dtfinal is initial.
* >> Início da exclusão: FORM UPDATE_ITAB_ZYCBT129J
itab_zycbt129j-dtinicio = /pws/zycbe128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM UPDATE_ITAB_ZYCBT129J
itab_zycbt129j-dtinicio = v_data_inicial.
* << Fim da inclusão
else.
itab_zycbt129j-dtinicio = v_dtfinal.
endif.
else.
if /pws/zycbe129-nrparc = 1.
* >> Início da exclusão: FORM UPDATE_ITAB_ZYCBT129J
/pws/zycbe129-dtinicio = itab_zycbt129j-dtinicio =
/pws/zycbe128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM UPDATE_ITAB_ZYCBT129J
/pws/zycbe129-dtinicio = itab_zycbt129j-dtinicio = v_data_inicial.
* << Fim da inclusão
else.
itab_zycbt129j-dtinicio = /pws/zycbe129-dtinicio.
endif.
endif.
if /pws/zycbe129-nrdias is initial.
itab_zycbt129j-dtfinal = /pws/zycbe129-dtfinal.
if not /pws/zycbe129-dtfinal is initial.
itab_zycbt129j-nrdias =
( itab_zycbt129j-dtfinal - itab_zycbt129j-dtinicio ).
v_diasj = v_diasj + itab_zycbt129j-nrdias.
...
...
nrparc = itab_zycbt129c-nrparc and
tpparc = itab_zycbt129c-tpparc and
mdcorresp = 'CE'.
endselect.
if sy-subrc = 0.
exit.
endif.
endif.
if /pws/zycbe129-dtinicio is initial.
if v_dtfinal is initial and /pws/zycbe129-nrparc = '001'.
* >> Início da exclusão: FORM UPDATE_ITAB_ZYCBT129C
itab_zycbt129c-dtinicio = /pws/zycbe128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM UPDATE_ITAB_ZYCBT129C
itab_zycbt129c-dtinicio = v_data_inicial.
* << Fim da inclusão
else.
itab_zycbt129c-dtinicio = v_dtfinal.
endif.
else.
if /pws/zycbe129-nrparc = 1.
* >> Início da exclusão: FORM UPDATE_ITAB_ZYCBT129C
/pws/zycbe129-dtinicio = itab_zycbt129c-dtinicio =
/pws/zycbe128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM UPDATE_ITAB_ZYCBT129C
/pws/zycbe129-dtinicio = itab_zycbt129c-dtinicio = v_data_inicial.
* << Fim da inclusão
else.
itab_zycbt129c-dtinicio = /pws/zycbe129-dtinicio.
endif.
endif.
if /pws/zycbe129-nrparc = '001' and
/pws/zycbe128-nrparc = '001' and
/pws/zycbe128-fpagto_c ne 'L' and
/pws/zycbe128-tpcomis ne 'V'.
/pws/zycbe129-nrdias = nrdias.
endif.
...
...
if sy-subrc eq 0.
v_vlcomis = ( v_vlcomis * /pws/zycbe128-percomis / 100 )
* itab_zycbt129c-nrdias / /pws/zycbt010-nrdias.
itab_zycbt129c-vlme = v_vlcomis.
endif.
v_vlaux = v_vlaux + itab_zycbt129c-vlme.
if /pws/zycbe129-nrparc eq /pws/zycbe128-nrparc.
v_vlaux1 = v_vlaux - /pws/zycbe128-vlcomis.
endif.
elseif /pws/zycbe128-tpcomis eq 'F'.
* >> Início da exclusão: FORM UPDATE_ITAB_ZYCBT129C
itab_zycbt129c-dtinicio = /pws/zycbe128-dtdesem.
itab_zycbt129c-dtfinal = /pws/zycbe128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM UPDATE_ITAB_ZYCBT129C
itab_zycbt129c-dtinicio = v_data_inicial.
itab_zycbt129c-dtfinal = v_data_inicial.
* << Fim da inclusão
itab_zycbt129c-vlme = /pws/zycbe128-vlcomis.
itab_zycbt129c-nrdias = 0.
elseif /pws/zycbe128-tpcomis eq 'V'.
clear v_vlcomis.
v_vlcomis = /pws/zycbe128-vlcomis.
select *
up to 1 rows
from /pws/zycbt010
where tptxjur = /pws/zycbe128-tptaxa.
endselect.
...
...
v_vlaux = v_vlaux + itab_zycbt129c-vlme.
if /pws/zycbe129-nrparc eq /pws/zycbe128-nrparc.
v_vlaux1 = v_vlaux - /pws/zycbe128-vlcomis.
endif.
endif.
elseif /pws/zycbe128-fpagto_c eq 'D'.
if /pws/zycbe128-tpcomis eq 'P'.
itab_zycbt129c-vlme = ( /pws/zycbe128-vlcomis /
/pws/zycbe128-nrparc ).
elseif /pws/zycbe128-tpcomis eq 'F'.
* >> Início da exclusão: FORM UPDATE_ITAB_ZYCBT129C
itab_zycbt129c-dtinicio = /pws/zycbe128-dtdesem.
itab_zycbt129c-dtfinal = /pws/zycbe128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM UPDATE_ITAB_ZYCBT129C
itab_zycbt129c-dtinicio = v_data_inicial.
itab_zycbt129c-dtfinal = v_data_inicial.
* << Fim da inclusão
itab_zycbt129c-vlme = /pws/zycbe128-vlcomis.
itab_zycbt129c-nrdias = 0.
elseif /pws/zycbe128-tpcomis eq 'V'.
itab_zycbt129c-vlme = ( /pws/zycbe128-vlcomis /
/pws/zycbe128-nrparc ).
endif.
elseif /pws/zycbe128-fpagto_c eq 'L'.
itab_zycbt129c-vlme = /pws/zycbe129-vlme.
endif.
modify itab_zycbt129c index /pws/zycbe129-nrparc.
...
...
endform.
form create_parcelas.
if v_parcela is initial.
v_parcela = /pws/zycbe128-nrparc.
endif.
do v_parcela times.
itab_zycbt129c-nrparc = v_countlinej.
if /pws/zycbe129-dtinicio is initial.
case itab_zycbt129c-nrparc.
when '00001'.
* >> Início da exclusão: FORM CREATE_PARCELAS
itab_zycbt129c-dtinicio = /pws/zycbe128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM CREATE_PARCELAS
itab_zycbt129c-dtinicio = v_data_inicial.
* << Fim da inclusão
when others.
itab_zycbt129c-dtinicio = itab_zycbt129c-dtfinal.
endcase.
endif.
itab_zycbt129c-nrseq = /pws/zycbe128-nrseq.
itab_zycbt129c-nremprest = /pws/zycbe128-nremprest.
itab_zycbt129c-tpparc = 'C'.
read table itab_zycbt129c with key nrseq = itab_zycbt129c-nrseq
nrparc = itab_zycbt129c-nrparc.
if sy-subrc <> 0.
...
...
clear: v_modifp, v_mdparc.
loop at itab_zycbt129pa where belnr ne ' '.
read table itab_zycbt129p with key nrparc = itab_zycbt129pa-nrparc.
if sy-subrc eq 0 and
( itab_zycbt129pa-vlme ne itab_zycbt129p-vlme or
itab_zycbt129pa-dtvencto ne itab_zycbt129p-dtvencto or
itab_zycbt129pa-belnr ne itab_zycbt129p-belnr ).
v_modifp = 'X'.
endif.
endloop.
* >> Início da exclusão: FORM SAVE_ZYCBT128
if /pws/zycbe128-dtdesem eq wa_zycbt128-dtdesem and
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT128
if v_data_inicial eq v_data_inicial_old and
* << Fim da inclusão
/pws/zycbe128-bukrs eq wa_zycbt128-bukrs and
/pws/zycbe128-bcofinan eq wa_zycbt128-bcofinan and
/pws/zycbe128-waers eq wa_zycbt128-waers and
/pws/zycbe128-kursf eq wa_zycbt128-kursf and
/pws/zycbe128-ftaxa eq wa_zycbt128-ftaxa and
/pws/zycbe128-vlme eq wa_zycbt128-vlme and
/pws/zycbe128-lifnr eq wa_zycbt128-lifnr and
/pws/zycbe128-gsber eq wa_zycbt128-gsber and
/pws/zycbe128-kostl eq wa_zycbt128-kostl and
/pws/zycbe128-prctr eq wa_zycbt128-prctr and
/pws/zycbe128-fipos eq wa_zycbt128-fipos and
/pws/zycbe128-fictr eq wa_zycbt128-fictr and
/pws/zycbe128-tpemprest eq wa_zycbt128-tpemprest and
/pws/zycbe128-statusp eq text-007 .
v_mdparc = 'X'.
endif.
if not /pws/zycbe128-belnr is initial or
not itab_excluidos[] is initial.
* >> Início da exclusão: FORM SAVE_ZYCBT128
if ( /pws/zycbe128-dtdesem ne wa_zycbt128-dtdesem or
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT128
if ( v_data_inicial ne v_data_inicial_old or
* << Fim da inclusão
/pws/zycbe128-bukrs ne wa_zycbt128-bukrs or
/pws/zycbe128-bcofinan ne wa_zycbt128-bcofinan or
/pws/zycbe128-waers ne wa_zycbt128-waers or
/pws/zycbe128-kursf ne wa_zycbt128-kursf or
/pws/zycbe128-ftaxa ne wa_zycbt128-ftaxa or
/pws/zycbe128-vlme ne wa_zycbt128-vlme or
/pws/zycbe128-lifnr ne wa_zycbt128-lifnr or
/pws/zycbe128-gsber ne wa_zycbt128-gsber or
/pws/zycbe128-kostl ne wa_zycbt128-kostl or
/pws/zycbe128-prctr ne wa_zycbt128-prctr or
...
...
/pws/zycbe128-statusp eq text-007.
move /pws/zycbe128 to /pws/zycbt128.
perform reverse_document_zycbt128.
perform save_zycbt129.
else.
move /pws/zycbe128 to /pws/zycbt128.
modify /pws/zycbt128.
perform save_zycbt129.
endif.
else.
* >> Início da exclusão: FORM SAVE_ZYCBT128
if /pws/zycbe128-dtdesem eq wa_zycbt128-dtdesem and
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT128
if v_data_inicial eq v_data_inicial_old and
* << Fim da inclusão
/pws/zycbe128-bukrs eq wa_zycbt128-bukrs and
/pws/zycbe128-bcofinan eq wa_zycbt128-bcofinan and
/pws/zycbe128-waers eq wa_zycbt128-waers and
/pws/zycbe128-kursf eq wa_zycbt128-kursf and
/pws/zycbe128-ftaxa eq wa_zycbt128-ftaxa and
/pws/zycbe128-vlme eq wa_zycbt128-vlme and
/pws/zycbe128-lifnr eq wa_zycbt128-lifnr and
/pws/zycbe128-gsber eq wa_zycbt128-gsber and
/pws/zycbe128-kostl eq wa_zycbt128-kostl and
/pws/zycbe128-prctr eq wa_zycbt128-prctr and
...
...
if itab_zycbt129pa-belnr is initial or
not v_erro_exclusao is initial.
continue.
endif.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = 'FBRA'.
itab_zycbe033-tabela = text-008.
itab_zycbe033-cpochv = wa_zycbt128-nrseq.
itab_zycbe033-belnr = itab_zycbt129pa-belnr.
itab_zycbe033-bukrs = wa_zycbt128-bukrs.
* >> Início da exclusão: FORM REVERSE_DOCUMENT_ZYCBT128
itab_zycbe033-bldat = wa_zycbt128-dtdesem.
itab_zycbe033-budat = wa_zycbt128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT128
itab_zycbe033-bldat = v_data_inicial_old.
itab_zycbe033-budat = v_data_inicial_old.
* << Fim da inclusão
perform determina_periodo using itab_zycbe033-budat
wa_zycbt128-bukrs
changing v_monat.
* >> Início da exclusão: FORM REVERSE_DOCUMENT_ZYCBT128
perform determina_ano using wa_zycbt128-dtdesem
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT128
perform determina_ano using v_data_inicial_old
* << Fim da inclusão
wa_zycbt128-bukrs
...
...
vdtfinal2 = itab_zycbt129j-dtfinal.
describe table itab_zycbt129c lines v_line.
read table itab_zycbt129c index v_line.
vdtfinal3 = itab_zycbt129c-dtfinal.
endform.
form fill_date1_f02.
check not okcode = 'DELL'.
if not /pws/zycbe128-belnr is initial.
exit.
endif.
* >> Início da exclusão: FORM FILL_DATE1_F02
v_nrdias = /pws/zycbe128-dtvencto - /pws/zycbe128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F02
v_nrdias = /pws/zycbe128-dtvencto - v_data_inicial.
* << Fim da inclusão
perform get_parameters_111.
itab_zycbe033-tcode = text-051.
itab_zycbe033-tabela = text-008.
itab_zycbe033-cpochv = /pws/zycbe128-nrseq.
itab_zycbe033-bldat = /pws/zycbe128-dtincl.
* >> Início da exclusão: FORM FILL_DATE1_F02
itab_zycbe033-budat = /pws/zycbe128-dtdesem.
itab_zycbe033-d_valut = /pws/zycbe128-dtdesem.
itab_zycbe033-c_valut = /pws/zycbe128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F02
itab_zycbe033-budat = v_data_inicial.
itab_zycbe033-d_valut = v_data_inicial.
itab_zycbe033-c_valut = v_data_inicial.
* << Fim da inclusão
loop at itab_zycbt013.
case itab_zycbt013-cpor3.
when 'XBLNR'.
case itab_zycbt013-cpocb.
when 'NRSEQ'.
itab_zycbe033-xblnr = /pws/zycbe128-nrseq.
when 'NREMPREST'.
itab_zycbe033-xblnr = /pws/zycbe128-nremprest.
endcase.
when 'ZUONR'.
...
...
v_erro_bi = 'X'.
endloop.
v_erro_exclusao = 'X'.
endif.
endif.
refresh itab_zycbt036.
itab_zycbt036-tcode = text-095.
itab_zycbt036-tabela = text-008.
itab_zycbt036-cpochv = /pws/zycbe128-nrseq.
itab_zycbt036-belnr = itab_zycbt032-belnr.
* >> Início da exclusão: FORM FILL_DATE1_F02
perform determina_ano using /pws/zycbe128-dtdesem
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE1_F02
perform determina_ano using v_data_inicial
* << Fim da inclusão
/pws/zycbe128-bukrs
changing v_ano.
select awkey
up to 1 rows
from bkpf
into itab_zycbt036-awkey
where belnr eq itab_zycbt032-belnr and
bukrs eq /pws/zycbe128-bukrs and
gjahr eq v_ano.
endselect.
...
...
endif.
if itab_zycbt129_ant-remissivel is initial.
itab_zycbt129_ant-remissivel = 'N'.
endif.
modify itab_zycbt129_ant index sy-tabix.
endloop.
describe table itab_zycbt129_ant lines v_nrlines.
if not v_nrlines is initial.
if /pws/zycbe128-fpagto_c ne ' '.
if /pws/zycbe128-nremprest eq wa_zycbt128-nremprest and
* >> Início da exclusão: FORM SAVE_ZYCBT129_COMISSAO
/pws/zycbe128-dtdesem eq wa_zycbt128-dtdesem and
* << Fim da exclusão
* >> Início da inclusão: FORM SAVE_ZYCBT129_COMISSAO
v_data_inicial eq v_data_inicial_old and
* << Fim da inclusão
/pws/zycbe128-bukrs eq wa_zycbt128-bukrs and
/pws/zycbe128-bcofinan eq wa_zycbt128-bcofinan and
/pws/zycbe128-waers eq wa_zycbt128-waers and
/pws/zycbe128-ftaxa eq wa_zycbt128-ftaxa and
/pws/zycbe128-vlme eq wa_zycbt128-vlme and
/pws/zycbe128-lifnr eq wa_zycbt128-lifnr and
/pws/zycbe128-gsber eq wa_zycbt128-gsber and
/pws/zycbe128-kostl eq wa_zycbt128-kostl and
/pws/zycbe128-prctr eq wa_zycbt128-prctr and
/pws/zycbe128-fipos eq wa_zycbt128-fipos and
...
...
itab_zycbe033-tcode = text-051.
itab_zycbe033-tabela = text-025.
concatenate itab_zycbt129c-nrseq itab_zycbt129c-tpparc
itab_zycbt129c-nrparc into itab_zycbe033-cpochv.
case wa_zycbt007-fdtdoc.
when 'D'.
itab_zycbe033-bldat = sy-datum.
itab_zycbe033-d_valut = sy-datum.
itab_zycbe033-c_valut = sy-datum.
when 'L'.
* >> Início da exclusão: FORM FILL_DATE_F02
perform verify_null_field using /pws/zycbe128-dtdesem
'DTDESEM'
text-011.
itab_zycbe033-bldat = /pws/zycbe128-dtdesem.
itab_zycbe033-d_valut = /pws/zycbe128-dtdesem.
itab_zycbe033-c_valut = /pws/zycbe128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F02
perform verify_null_field using v_data_inicial
v_campo_inicial
v_mensagem.
itab_zycbe033-bldat = v_data_inicial.
itab_zycbe033-d_valut = v_data_inicial.
itab_zycbe033-c_valut = v_data_inicial.
* << Fim da inclusão
endcase.
* >> Início da exclusão: FORM FILL_DATE_F02
itab_zycbe033-budat = /pws/zycbe128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F02
itab_zycbe033-budat = v_data_inicial.
* << Fim da inclusão
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
loop at itab_zycbt013.
case itab_zycbt013-cpor3.
...
...
v_f02. "#EC NEEDED
loop at itab_zycbt129_ant where belnr_c ne ' '.
read table itab_zycbt129c with key nrparc = itab_zycbt129_ant-nrparc.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = 'FB08'.
itab_zycbe033-tabela = text-051.
concatenate itab_zycbt129_ant-nrseq itab_zycbt129_ant-tpparc
itab_zycbt129_ant-nrparc into itab_zycbe033-cpochv.
itab_zycbe033-belnr = itab_zycbt129_ant-belnr_c.
itab_zycbe033-bukrs = wa_zycbt128-bukrs.
* >> Início da exclusão: FORM REVERSE_DOCUMENT_ZYCBT129
itab_zycbe033-budat = wa_zycbt128-dtdesem.
perform determina_periodo using wa_zycbt128-dtdesem
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT129
itab_zycbe033-budat = v_data_inicial_old.
perform determina_periodo using v_data_inicial_old
* << Fim da inclusão
wa_zycbt128-bukrs
changing v_monat.
* >> Início da exclusão: FORM REVERSE_DOCUMENT_ZYCBT129
perform determina_ano using wa_zycbt128-dtdesem
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT129
perform determina_ano using v_data_inicial_old
* << Fim da inclusão
wa_zycbt128-bukrs
changing v_ano.
...
...
endif.
endform.
form reverse_document_zycbt128_cab.
perform clear_date_batch.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = 'FB08'.
itab_zycbe033-tabela = text-008.
itab_zycbe033-cpochv = wa_zycbt128-nrseq.
itab_zycbe033-belnr = wa_zycbt128-belnr.
itab_zycbe033-bukrs = wa_zycbt128-bukrs.
* >> Início da exclusão: FORM REVERSE_DOCUMENT_ZYCBT128_CAB
itab_zycbe033-budat = wa_zycbt128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM REVERSE_DOCUMENT_ZYCBT128_CAB
itab_zycbe033-budat = v_data_inicial_old.
* << Fim da inclusão
perform determina_periodo using itab_zycbe033-budat
itab_zycbe033-bukrs
changing v_monat.
perform determina_ano using itab_zycbe033-budat
itab_zycbe033-bukrs
changing v_ano.
itab_zycbe033-gjahs = v_ano.
call function 'FI_PERIOD_CHECK'
exporting
i_bukrs = itab_zycbe033-bukrs
...
...
endif.
endform.
form estorna_parcelas_excluidas. "#EC CALLED
loop at itab_excluidos.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = 'FB08'.
itab_zycbe033-tabela = text-008.
itab_zycbe033-cpochv = wa_zycbt128-nrseq.
itab_zycbe033-belnr = itab_excluidos-belnr.
itab_zycbe033-bukrs = wa_zycbt128-bukrs.
* >> Início da exclusão: FORM ESTORNA_PARCELAS_EXCLUIDAS
itab_zycbe033-budat = wa_zycbt128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_PARCELAS_EXCLUIDAS
itab_zycbe033-budat = v_data_inicial_old.
* << Fim da inclusão
perform determina_periodo using itab_zycbe033-budat
itab_zycbe033-bukrs
changing v_monat.
perform determina_ano using itab_zycbe033-budat
itab_zycbe033-bukrs
changing v_ano.
itab_zycbe033-gjahs = v_ano.
call function 'FI_PERIOD_CHECK'
exporting
i_bukrs = itab_zycbe033-bukrs
...
...
continue.
endif.
endif.
v_vlres = v_vlres + itab_zycbt129pa-vlme.
if v_prazo1 eq 'L' and
itab_zycbt129pa-ftransf eq 'L'.
itab_zycbt036-tcode = text-095.
itab_zycbt036-tabela = text-008.
itab_zycbt036-cpochv = /pws/zycbe128-nrseq.
itab_zycbt036-belnr = itab_zycbt129pa-belnr.
* >> Início da exclusão: FORM RECONTABILIZA_PARCELAS
perform determina_ano using /pws/zycbe128-dtdesem
* << Fim da exclusão
* >> Início da inclusão: FORM RECONTABILIZA_PARCELAS
perform determina_ano using v_data_inicial
* << Fim da inclusão
/pws/zycbe128-bukrs
changing v_ano.
select awkey
up to 1 rows
from bkpf
into itab_zycbt036-awkey
where belnr eq itab_zycbt129pa-belnr and
bukrs eq /pws/zycbe128-bukrs and
gjahr eq v_ano.
endselect.
...
...
itab_zycbe033-cpochv = /pws/zycbe128-nrseq.
case wa_zycbt007-fdtdoc.
when 'D'.
itab_zycbe033-bldat = sy-datum.
itab_zycbe033-d_valut = sy-datum.
if wa_zycbt007-dt_efet = 'E'.
itab_zycbe033-d_valut = itab_zycbt129pa-dtvencto .
converte_data itab_zycbt129p-dtvencto itab_zycbe033-c_valut.
endif.
when 'L'.
* >> Início da exclusão: FORM RECONTABILIZA_PARCELAS
perform verify_null_field using /pws/zycbe128-dtdesem
'DTDESEM'
text-011.
itab_zycbe033-bldat = /pws/zycbe128-dtdesem.
itab_zycbe033-d_valut = /pws/zycbe128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM RECONTABILIZA_PARCELAS
perform verify_null_field using v_data_inicial
v_campo_inicial
v_mensagem.
itab_zycbe033-bldat = v_data_inicial.
itab_zycbe033-d_valut = v_data_inicial.
* << Fim da inclusão
if wa_zycbt007-dt_efet = 'E'.
itab_zycbe033-d_valut = itab_zycbt129pa-dtvencto .
converte_data itab_zycbt129pa-dtvencto itab_zycbe033-c_valut.
endif.
endcase.
converte_data itab_zycbt129pa-dtvencto itab_zycbe033-c_valut.
* >> Início da exclusão: FORM RECONTABILIZA_PARCELAS
itab_zycbe033-budat = /pws/zycbe128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM RECONTABILIZA_PARCELAS
itab_zycbe033-budat = v_data_inicial.
* << Fim da inclusão
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
itab_zycbe033-zfbdt = itab_zycbt129pa-dtvencto.
loop at itab_zycbt013.
case itab_zycbt013-cpor3.
when 'XBLNR'.
case itab_zycbt013-cpocb.
when 'NRSEQ'.
itab_zycbe033-xblnr = /pws/zycbe128-nrseq.
when 'NREMPREST'.
itab_zycbe033-xblnr = /pws/zycbe128-nremprest.
...
...
perform verify_null_field using /pws/zycbe128-sldesem
'SLDESEM'
text-015.
itab_zycbe033-wrbtr = itab_zycbt129pa-vlme.
itab_zycbe033-newbs = '50'.
itab_zycbe033-c_newko = v_newkof.
itab_zycbe033-d_newko = v_newkof.
itab_zycbe033-agkon = itab_zyglt316-konth.
itab_zycbe033-agkoa = 'S'.
itab_zycbe033-belnr = itab_zycbt129pa-belnr.
* >> Início da exclusão: FORM RECONTABILIZA_PARCELAS
perform determina_ano using wa_zycbt128-dtdesem
* << Fim da exclusão
* >> Início da inclusão: FORM RECONTABILIZA_PARCELAS
perform determina_ano using v_data_inicial_old
* << Fim da inclusão
wa_zycbt128-bukrs
changing v_ano.
select awkey
up to 1 rows
from bkpf
into itab_zycbe033-awkey
where belnr eq itab_zycbt129pa-belnr and
bukrs eq wa_zycbt128-bukrs and
gjahr eq v_ano.
endselect.
...
...
'I'
itab_zycbt032-msg
space
space
space
'030'.
itab_zycbt036-tcode = text-095.
itab_zycbt036-tabela = text-008.
itab_zycbt036-cpochv = /pws/zycbe128-nrseq.
itab_zycbt036-belnr = itab_zycbt032-belnr.
* >> Início da exclusão: FORM RECONTABILIZA_PARCELAS
perform determina_ano using /pws/zycbe128-dtdesem
* << Fim da exclusão
* >> Início da inclusão: FORM RECONTABILIZA_PARCELAS
perform determina_ano using v_data_inicial
* << Fim da inclusão
/pws/zycbe128-bukrs
changing v_ano.
select awkey
up to 1 rows
from bkpf
into itab_zycbt036-awkey
where belnr eq itab_zycbt032-belnr and
bukrs eq /pws/zycbe128-bukrs and
gjahr eq v_ano.
endselect.
...
...
refresh: itab_zycbt012.
select * from /pws/zycbt012
into table itab_zycbt012
where codeven = v_codeven
and codmod = text-020.
refresh itab_zycbt013.
select * from /pws/zycbt013
into table itab_zycbt013
where tabela = text-008.
clear itab_zycbt012.
* >> Início da exclusão: FORM BUSCA_PARAMETROS_F_51_CLEAR
v_nrdias = wa_zycbt128-dtvencto - wa_zycbt128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM BUSCA_PARAMETROS_F_51_CLEAR
v_nrdias = wa_zycbt128-dtvencto - v_data_inicial_old.
* << Fim da inclusão
clear wa_zyglt009.
select *
up to 1 rows
from /pws/zyglt009
into wa_zyglt009
where bukrs eq /pws/zycbe128-bukrs.
endselect.
if v_nrdias > wa_zyglt009-nrdias_cp.
v_prazo = 'L'.
else.
...
...
others = 3.
if sy-subrc eq 0.
read table itab_zyglt316 index 1.
endif.
endform.
form gera_novas_parcelas.
data v_flag.
clear: v_flag, v_nrdias.
loop at itab_zycbt129p .
if /pws/zycbe128-fassoc eq ' '.
* >> Início da exclusão: FORM GERA_NOVAS_PARCELAS
v_nrdias = itab_zycbt129p-dtfinal - /pws/zycbe128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_NOVAS_PARCELAS
v_nrdias = itab_zycbt129p-dtfinal - v_data_inicial.
* << Fim da inclusão
else.
v_nrdias = itab_zycbt129p-dtfinal - sy-datum.
endif.
perform get_parameters_111.
if itab_zycbt129p-belnr_p ne ' '.
continue.
endif.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = text-095.
itab_zycbe033-tabela = text-008.
itab_zycbe033-cpochv = /pws/zycbe128-nrseq.
case wa_zycbt007-fdtdoc.
when 'D'.
itab_zycbe033-bldat = sy-datum.
itab_zycbe033-d_valut = sy-datum.
if wa_zycbt007-dt_efet = 'E'.
itab_zycbe033-d_valut = itab_zycbt129p-dtvencto .
converte_data itab_zycbt129p-dtvencto itab_zycbe033-c_valut.
endif.
when 'L'.
* >> Início da exclusão: FORM GERA_NOVAS_PARCELAS
perform verify_null_field using /pws/zycbe128-dtdesem
'DTDESEM'
text-011.
itab_zycbe033-bldat = /pws/zycbe128-dtdesem.
itab_zycbe033-d_valut = /pws/zycbe128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_NOVAS_PARCELAS
perform verify_null_field using v_data_inicial
v_campo_inicial
v_mensagem.
itab_zycbe033-bldat = v_data_inicial.
itab_zycbe033-d_valut = v_data_inicial.
* << Fim da inclusão
if wa_zycbt007-dt_efet = 'E'.
itab_zycbe033-d_valut = itab_zycbt129p-dtvencto .
converte_data itab_zycbt129p-dtvencto itab_zycbe033-c_valut.
endif.
endcase.
converte_data itab_zycbt129p-dtvencto itab_zycbe033-c_valut.
* >> Início da exclusão: FORM GERA_NOVAS_PARCELAS
itab_zycbe033-budat = /pws/zycbe128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_NOVAS_PARCELAS
itab_zycbe033-budat = v_data_inicial.
* << Fim da inclusão
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
itab_zycbe033-zfbdt = itab_zycbt129p-dtvencto.
loop at itab_zycbt013.
case itab_zycbt013-cpor3.
when 'XBLNR'.
case itab_zycbt013-cpocb.
when 'NRSEQ'.
itab_zycbe033-xblnr = /pws/zycbe128-nrseq.
when 'NREMPREST'.
itab_zycbe033-xblnr = /pws/zycbe128-nremprest.
...
...
itab_zycbt032-msg
space
space
space
'015'.
refresh itab_zycbt036.
itab_zycbt036-tcode = text-095.
itab_zycbt036-tabela = text-008.
itab_zycbt036-cpochv = /pws/zycbe128-nrseq.
itab_zycbt036-belnr = itab_zycbt032-belnr.
* >> Início da exclusão: FORM GERA_NOVAS_PARCELAS
perform determina_ano using /pws/zycbe128-dtdesem
* << Fim da exclusão
* >> Início da inclusão: FORM GERA_NOVAS_PARCELAS
perform determina_ano using v_data_inicial
* << Fim da inclusão
/pws/zycbe128-bukrs
changing v_ano.
select awkey
up to 1 rows
from bkpf
into itab_zycbt036-awkey
where belnr eq itab_zycbt032-belnr and
bukrs eq /pws/zycbe128-bukrs and
gjahr eq v_ano .
endselect.
...
...
endif.
endif.
perform clear_date_batch.
endloop.
move /pws/zycbe128 to /pws/zycbt128.
modify /pws/zycbt128.
endform.
form clearing_conta_banco.
data v_flag.
clear: v_flag, v_nrdias.
* >> Início da exclusão: FORM CLEARING_CONTA_BANCO
v_nrdias = wa_zycbt128-dtvencto - wa_zycbt128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_CONTA_BANCO
v_nrdias = wa_zycbt128-dtvencto - v_data_inicial_old.
* << Fim da inclusão
perform get_parameters_111_clear.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = text-095.
itab_zycbe033-tabela = text-008.
itab_zycbe033-cpochv = wa_zycbt128-nrseq.
case wa_zycbt007-fdtdoc.
when 'D'.
itab_zycbe033-bldat = sy-datum.
itab_zycbe033-d_valut = sy-datum.
if wa_zycbt007-dt_efet = 'E'.
itab_zycbe033-d_valut = wa_zycbt128-dtvencto .
converte_data wa_zycbt128-dtvencto itab_zycbe033-c_valut.
endif.
when 'L'.
* >> Início da exclusão: FORM CLEARING_CONTA_BANCO
perform verify_null_field using wa_zycbt128-dtdesem
'DTDESEM'
text-011.
itab_zycbe033-bldat = wa_zycbt128-dtdesem.
itab_zycbe033-d_valut = wa_zycbt128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_CONTA_BANCO
perform verify_null_field using v_data_inicial_old
v_campo_inicial
v_mensagem.
itab_zycbe033-bldat = v_data_inicial_old.
itab_zycbe033-d_valut = v_data_inicial_old.
* << Fim da inclusão
if wa_zycbt007-dt_efet = 'E'.
itab_zycbe033-d_valut = wa_zycbt128-dtvencto.
converte_data wa_zycbt128-dtvencto itab_zycbe033-c_valut.
endif.
endcase.
converte_data wa_zycbt128-dtvencto itab_zycbe033-c_valut.
* >> Início da exclusão: FORM CLEARING_CONTA_BANCO
itab_zycbe033-budat = wa_zycbt128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_CONTA_BANCO
itab_zycbe033-budat = v_data_inicial_old.
* << Fim da inclusão
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
itab_zycbe033-zfbdt = wa_zycbt128-dtvencto.
loop at itab_zycbt013.
case itab_zycbt013-cpor3.
when 'XBLNR'.
case itab_zycbt013-cpocb.
when 'NRSEQ'.
itab_zycbe033-xblnr = /pws/zycbe128-nrseq.
when 'NREMPREST'.
itab_zycbe033-xblnr = wa_zycbt128-nremprest.
...
...
into (v_nrseq)
from /pws/zycbt117
where nrseq like v_ano.
v_count = v_nrseq+0(8) + 1.
concatenate v_count sy-datum+2(2) into v_nrseq_aux.
endform.
form fill_date_f04.
if not wa_zycbt128-belnr_comp is initial.
exit.
endif.
* >> Início da exclusão: FORM FILL_DATE_F04
v_nrdias = /pws/zycbe128-dtvencto - /pws/zycbe128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F04
v_nrdias = /pws/zycbe128-dtvencto - v_data_inicial.
* << Fim da inclusão
perform get_parameters_111_compensacao.
v_newkof = itab_zycbe033-c_newko.
itab_zycbe033-tcode = text-113.
itab_zycbe033-tabela = text-008.
itab_zycbe033-cpochv = /pws/zycbe128-nrseq.
itab_zycbe033-bldat = /pws/zycbe128-dtincl.
* >> Início da exclusão: FORM FILL_DATE_F04
itab_zycbe033-budat = /pws/zycbe128-dtdesem.
itab_zycbe033-d_valut = /pws/zycbe128-dtdesem.
itab_zycbe033-c_valut = /pws/zycbe128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F04
itab_zycbe033-budat = v_data_inicial.
itab_zycbe033-d_valut = v_data_inicial.
itab_zycbe033-c_valut = v_data_inicial.
* << Fim da inclusão
loop at itab_zycbt013.
case itab_zycbt013-cpor3.
when 'XBLNR'.
case itab_zycbt013-cpocb.
when 'NRSEQ'.
itab_zycbe033-xblnr = /pws/zycbe128-nrseq.
when 'NREMPREST'.
itab_zycbe033-xblnr = /pws/zycbe128-nremprest.
endcase.
when 'ZUONR'.
...
...
itab_zycbe033-d_fipos = /pws/zycbe128-fipos.
itab_zycbe033-d_fictr = /pws/zycbe128-fictr.
itab_zycbe033-c_gsber = /pws/zycbe128-gsber.
itab_zycbe033-c_kostl = /pws/zycbe128-kostl.
itab_zycbe033-c_prctr = /pws/zycbe128-prctr.
itab_zycbe033-c_fipos = /pws/zycbe128-fipos.
itab_zycbe033-c_fictr = /pws/zycbe128-fictr.
itab_zycbe033-agkoa = 'S'.
itab_zycbe033-agkon = itab_zycbt012-saknr1.
itab_zycbe033-belnr = /pws/zycbe128-belnr.
* >> Início da exclusão: FORM FILL_DATE_F04
perform determina_ano using /pws/zycbe128-dtdesem
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F04
perform determina_ano using v_data_inicial
* << Fim da inclusão
/pws/zycbe128-bukrs
changing v_ano.
select awkey
up to 1 rows
from bkpf
into itab_zycbe033-awkey
where belnr eq /pws/zycbe128-belnr and
bukrs eq /pws/zycbe128-bukrs and
gjahr eq v_ano.
endselect.
...
...
itab_zycbe033-tcode = text-114.
itab_zycbe033-tabela = '/PWS/ZYCBT128'.
itab_zycbe033-cpochv = wa_zycbt128-nrseq.
check not wa_zycbt128-belnr_comp is initial.
itab_zycbe033-belnr = wa_zycbt128-belnr_comp.
perform verify_null_field using wa_zycbt128-bukrs
'BUKRS'
text-012.
itab_zycbe033-bukrs = wa_zycbt128-bukrs.
itab_zycbe033-bldat = wa_zycbt128-dtincl.
* >> Início da exclusão: FORM ESTORNA_F_04
itab_zycbe033-budat = wa_zycbt128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_F_04
itab_zycbe033-budat = v_data_inicial_old.
* << Fim da inclusão
perform determina_periodo using itab_zycbe033-budat
wa_zycbt128-bukrs
changing v_monat.
perform determina_ano using itab_zycbe033-budat
wa_zycbt128-bukrs
changing v_ano.
call function 'FI_PERIOD_CHECK'
exporting
i_bukrs = itab_zycbe033-bukrs
i_gjahr = v_ano
...
...
concatenate itab_zycbt129c-nrseq
itab_zycbt129c-tpparc
itab_zycbt129c-nrparc
into itab_zycbe033-cpochv.
case wa_zycbt007-fdtdoc.
when 'D'.
itab_zycbe033-bldat = sy-datum.
itab_zycbe033-d_valut = sy-datum.
itab_zycbe033-c_valut = sy-datum.
when 'L'.
* >> Início da exclusão: FORM CONTABILIZA_IR_COMISSAO
perform verify_null_field using /pws/zycbe128-dtdesem
c_dtdesem
text-011.
itab_zycbe033-bldat = /pws/zycbe128-dtdesem.
itab_zycbe033-d_valut = /pws/zycbe128-dtdesem.
itab_zycbe033-c_valut = /pws/zycbe128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_IR_COMISSAO
perform verify_null_field using v_data_inicial
v_campo_inicial
v_mensagem.
itab_zycbe033-bldat = v_data_inicial.
itab_zycbe033-d_valut = v_data_inicial.
itab_zycbe033-c_valut = v_data_inicial.
* << Fim da inclusão
endcase.
* >> Início da exclusão: FORM CONTABILIZA_IR_COMISSAO
itab_zycbe033-budat = /pws/zycbe128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_IR_COMISSAO
itab_zycbe033-budat = v_data_inicial.
* << Fim da inclusão
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
loop at itab_zycbt013.
case itab_zycbt013-cpor3.
...
...
where codpadr = v_ftaxa.
if sy-subrc ne 0 or /pws/zycbt009-kurst is initial.
/pws/zycbt009-kurst = v_ftaxa.
endif.
call function '/PWS/ZYCB_MONTANTE_CONVERTE'
exporting
i_montante = /pws/zycbe128-sldesem
i_demoeda = /pws/zycbe128-waers
i_paramoeda = wa_zycbt007-waersb
i_ctmoeda = /pws/zycbt009-kurst
* >> Início da exclusão: FORM CONTABILIZA_IR_COMISSAO
i_dtbase = /pws/zycbe128-dtdesem
* << Fim da exclusão
* >> Início da inclusão: FORM CONTABILIZA_IR_COMISSAO
i_dtbase = v_data_inicial
* << Fim da inclusão
importing
e_txc = itab_zycbe033-kursf
exceptions
i_demoeda_nao_encontrado = 1
i_paramoeda_nao_encontrado = 2
i_ctmoeda_nao_encontrado = 3
i_dtbase_nao_encontrada = 4
taxa_nao_encontrada = 5
fator_nao_encontrado = 6
others = 7.
...
...
wa_zycbt007 where bukrs = wa_zycbt128-bukrs.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = c_fb08.
itab_zycbe033-tabela = c_zycbt129.
concatenate itab_zycbt129_ant-nrseq
itab_zycbt129_ant-tpparc
itab_zycbt129_ant-nrparc
into itab_zycbe033-cpochv.
itab_zycbe033-belnr = itab_zycbt129_ant-belnr_ci.
itab_zycbe033-bukrs = wa_zycbt128-bukrs.
* >> Início da exclusão: FORM ESTORNA_IR_COMISSAO
itab_zycbe033-budat = wa_zycbt128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNA_IR_COMISSAO
itab_zycbe033-budat = v_data_inicial_old.
* << Fim da inclusão
perform determina_periodo using itab_zycbe033-budat
itab_zycbe033-bukrs
changing v_monat.
perform determina_ano using itab_zycbe033-budat
itab_zycbe033-bukrs
changing v_ano.
itab_zycbe033-gjahs = v_ano.
call function 'FI_PERIOD_CHECK'
exporting
i_bukrs = itab_zycbe033-bukrs
...
...
if sy-subrc = 0.
else.
endif.
endif.
read table itab_zyglt100 with key zexit = p_exit 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.
endform.
* >> Início da inclusão:
form carga_zycbt128.
data: begin of itab_zycbt128_carga occurs 0.
data: nrseq like /pws/zycbt128-nrseq.
data: end of itab_zycbt128_carga.
select nrseq from /pws/zycbt128
into table itab_zycbt128_carga
where fdtinicial is null
or fdtinicial eq space
or fdtinicial eq ''.
loop at itab_zycbt128_carga.
update /pws/zycbt128 set fdtinicial = 'D'
where nrseq = itab_zycbt128_carga-nrseq.
endloop.
endform.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA111I01
...
select dtcont
up to 1 rows
from /pws/zycbt154
into v_dtlanc
where codmod = 'F' and
codmodul = 'T' and
nrcorresp = wa_zycbt128-nrseq and
belnr_cl = v_valor.
endselect.
if sy-subrc ne 0.
* >> Início da exclusão: MODULE USER_COMMAND_0102
v_dtlanc = wa_zycbt128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0102
v_dtlanc = v_data_inicial_old.
* << Fim da inclusão
endif.
call function 'DETERMINE_PERIOD'
exporting
date = v_dtlanc
version = t001-periv
importing
year = v_exercicio
exceptions
period_in_not_valid = 1
period_not_assigned = 2
...
...
else.
endif.
else.
select periv
up to 1 rows
from t001 into t001-periv
where bukrs = /pws/zycbe128-bukrs.
endselect.
call function 'DETERMINE_PERIOD'
exporting
* >> Início da exclusão: MODULE USER_COMMAND_0103
date = wa_zycbt128-dtdesem
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0103
date = v_data_inicial_old
* << Fim da inclusão
version = t001-periv
importing
year = v_exercicio
exceptions
period_in_not_valid = 1
period_not_assigned = 2
version_undefined = 3
others = 4.
if sy-subrc = 0.
else.
...
...
endif.
select *
up to 1 rows
from /pws/zycbt128
into /pws/zycbe128
where nrseq = v_nrseqc2 and
status <> 'E'.
endselect.
if sy-subrc = 0.
move /pws/zycbe128 to wa_zycbt128.
* >> Início da inclusão: MODULE USER_COMMAND_0200
v_data_inicial = /pws/zycbe128-dtdesem.
v_campo_inicial = 'DTDESEM'.
v_mensagem = text-011.
case /pws/zycbe128-fdtinicial.
when 'I'.
v_data_inicial = /pws/zycbe128-dtincl.
v_campo_inicial = 'DTINCL'.
v_mensagem = text-146.
when 'D'.
v_data_inicial = /pws/zycbe128-dtdesem.
v_campo_inicial = 'DTDESEM'.
v_mensagem = text-011.
when 'C'.
v_data_inicial = /pws/zycbe128-dtcred.
v_campo_inicial = 'DTCRED'.
v_mensagem = text-147.
endcase.
v_data_inicial_old = v_data_inicial.
* << Fim da inclusão
select waersb
up to 1 rows
from /pws/zycbt007
into (v_waersb)
where bukrs eq wa_zycbt128-bukrs.
endselect.
if sy-tcode eq '/PWS/ZYCB111_C'.
authority-check object 'F_BKPF_BUK' id 'BUKRS'
dummy
id 'ACTVT' field '01'.
...
...
set parameter id '/PWS/ZYCBP407' field vg_emprestimo.
set parameter id '/PWS/ZYCBP001' field wa_zycbt128-nrseqcot.
clear vg_tcode.
set parameter id '/PWS/ZYCBP404' field vg_tcode.
leave to transaction '/PWS/ZYCB116_E' and skip first screen.
endif.
perform unlock_record.
leave program.
endmodule.
module user_command_0101 input.
* >> Início da exclusão: MODULE USER_COMMAND_0101
v_periodo = /pws/zycbe128-dtvencto - /pws/zycbe128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: MODULE USER_COMMAND_0101
v_periodo = /pws/zycbe128-dtvencto - v_data_inicial.
* << Fim da inclusão
if /pws/zycbe128-tpcomis = 'F'.
if /pws/zycbe128-nrparc > 1.
message i015 with text-089.
/pws/zycbe128-nrparc = 1.
endif.
endif.
endmodule.
module check_waers input.
case sy-dynnr.
when '0100'.
...
...
endif.
endmodule.
module consiste_dtdesem input.
if /pws/zycbe128-dtdesem is initial.
if okcode = 'ENTE'.
message w260.
elseif okcode = 'SAVE'.
message e260.
endif.
exit.
* >> Início da exclusão: MODULE CONSISTE_DTDESEM
endif.
if /pws/zycbe128-dtdesem < /pws/zycbe128-dtincl.
message i183.
/pws/zycbe128-dtdesem = space.
* << Fim da exclusão
endif.
endmodule.
module consiste_dtvencto input.
if /pws/zycbe128-dtvencto is initial.
if okcode = 'ENTE'.
message w168.
elseif okcode = 'SAVE'.
message e168.
endif.
exit.
...
...
when '0104'.
if v_periodo >= 0.
clear: itab_zycbt129c, lin, v_nrd.
describe table itab_zycbt129c lines lin.
if lin = 0.
if /pws/zycbe128-nrparc = 1.
itab_zycbt129c-nrseq = /pws/zycbe128-nrseq.
itab_zycbt129c-nrparc = 1.
itab_zycbt129c-tpparc = 'C'.
itab_zycbt129c-nremprest = /pws/zycbe129-nremprest.
* >> Início da exclusão: MODULE EXIBIR_MENSAGEM
itab_zycbt129c-nrdias = ( /pws/zycbe128-dtdesem -
* << Fim da exclusão
* >> Início da inclusão: MODULE EXIBIR_MENSAGEM
itab_zycbt129c-nrdias = ( v_data_inicial -
* << Fim da inclusão
/pws/zycbe128-dtvencto ).
append itab_zycbt129c.
endif.
else.
clear v_diasc.
endif.
endif.
if not /pws/zycbe128-tpcomis = 'F'.
endif.
clear v_diasc.
...
...
module user_command_0051 input.
case okcode.
when 'BC'.
call method html_control->go_back.
clear okcode.
when 'AVAN'.
call method html_control->go_forward.
clear okcode.
endcase.
endmodule.
* >> Início da inclusão:
module consiste_data_inicial input.
if /pws/zycbe128-fdtinicial is initial.
message e015 with text-142.
endif.
if /pws/zycbe128-fdtinicial = 'I'.
v_data_inicial = /pws/zycbe128-dtincl.
v_campo_inicial = 'DTINCL'.
v_mensagem = text-146.
if /pws/zycbe128-dtincl is initial or
/pws/zycbe128-dtincl eq space.
message e015 with text-143.
endif.
endif.
if /pws/zycbe128-fdtinicial = 'D'.
v_data_inicial = /pws/zycbe128-dtdesem.
v_campo_inicial = 'DTDESEM'.
v_mensagem = text-011.
if /pws/zycbe128-dtdesem is initial or
/pws/zycbe128-dtdesem eq space.
message e015 with text-144.
endif.
endif.
if /pws/zycbe128-fdtinicial = 'C'.
v_data_inicial = /pws/zycbe128-dtcred.
v_campo_inicial = 'DTCRED'.
v_mensagem = text-147.
if /pws/zycbe128-dtcred is initial or
/pws/zycbe128-dtcred eq space.
message e015 with text-145.
endif.
endif.
endmodule.
module consiste_data_credito input.
if /pws/zycbe128-dtcred ne space and not
/pws/zycbe128-dtcred is initial.
if /pws/zycbe128-dtcred < /pws/zycbe128-dtdesem.
message e015 with text-148 text-149.
/pws/zycbe128-dtcred = space.
endif.
endif.
endmodule.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA111O01
...
endmodule.
module load_itab_zycbt129p output.
case sy-dynnr.
when '0102'.
v_countlinej = '00001'.
if okcode = 'DELE'.
v_dele = 1.
exit.
else.
if v_nrseqc is initial.
* >> Início da exclusão: MODULE LOAD_ITAB_ZYCBT129P
if /pws/zycbe128-dtdesem ne '00000000' and sy-ucomm ne 'DELE'.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_ITAB_ZYCBT129P
if v_data_inicial ne '00000000' and sy-ucomm ne 'DELE'.
* << Fim da inclusão
perform create_zycbt129_p.
endif.
else.
if sy-tcode ne '/PWS/ZYCB111_C'.
if itab_zycbt129p[] is initial and v_dele ne 1.
select * from /pws/zycbt129 into table itab_zycbt129p
where nrseq = v_nrseqc
and tpparc = 'P'
and status <> 'E'.
endif.
...
...
itab_zycbt129p-praca = itab_zycbt048-praca.
itab_zycbt129p-codnatoper = itab_zycbt048-codnatoper.
itab_zycbt129p-corret = itab_zycbt048-corret.
modify itab_zycbt129p.
endif.
endif.
endloop.
describe table itab_zycbt129p lines v_li.
read table itab_zycbt129p index 1.
if itab_zycbt129p-nrdias ne '00000'.
* >> Início da exclusão: MODULE LOAD_ITAB_ZYCBT129P
if itab_zycbt129p-dtinicio <> /pws/zycbe128-dtdesem and
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_ITAB_ZYCBT129P
if itab_zycbt129p-dtinicio <> v_data_inicial and
* << Fim da inclusão
v_li > 0 and itab_zycbt129p-belnr_p is initial.
message i015 with text-133.
endif.
v_dia = 0.
* >> Início da exclusão: MODULE LOAD_ITAB_ZYCBT129P
v_di = /pws/zycbe128-dtvencto - /pws/zycbe128-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: MODULE LOAD_ITAB_ZYCBT129P
v_di = /pws/zycbe128-dtvencto - v_data_inicial.
* << Fim da inclusão
loop at itab_zycbt129p.
v_dia = v_dia + itab_zycbt129p-nrdias.
endloop.
if v_di <> v_dia and v_li > 0 and
itab_zycbt129p-belnr_p is initial.
message w015 with text-134.
endif.
describe table itab_zycbt129p lines v_li.
read table itab_zycbt129p index v_li.
if itab_zycbt129p-dtfinal <> /pws/zycbe128-dtvencto and
...
...
else.
loop at screen.
if screen-name = '/PWS/ZYCBE128-SLDESEM'.
screen-input = '0'.
else.
screen-input = '1'.
endif.
loop at itab_zycbt129p where belnr_p ne ' '.
endloop.
if sy-subrc eq 0.
* >> Início da exclusão: MODULE SET-SCREEN
if screen-name = '/PWS/ZYCBE128-DTDESEM' or
screen-name = '/PWS/ZYCBE128-BCOFINAN' or
* << Fim da exclusão
* >> Início da inclusão: MODULE SET-SCREEN
if screen-name = '/PWS/ZYCBE128-BCOFINAN' or
* << Fim da inclusão
screen-name = '/PWS/ZYCBE128-WAERS' or
screen-name = '/PWS/ZYCBE128-VLME' or
screen-name = '/PWS/ZYCBE128-KURSF' or
screen-name = '/PWS/ZYCBE128-TPEMPREST' or
screen-name = '/PWS/ZYCBE128-DTVENCTO'.
screen-input = '0'.
endif.
endif.
modify screen.
endloop.
...
...
if not /pws/zycbe128-lifnr is initial.
select *
up to 1 rows
from lfa1
where lifnr eq /pws/zycbe128-lifnr.
endselect. "#EC CI_SGLSELECT
fornecedor = lfa1-name1.
endif.
clear nrdias.
if /pws/zycbe128-dtvencto ne ' ' and
* >> Início da exclusão: MODULE SET-SCREEN
/pws/zycbe128-dtdesem ne ' '.
nrdias = ( /pws/zycbe128-dtvencto - /pws/zycbe128-dtdesem ).
* << Fim da exclusão
* >> Início da inclusão: MODULE SET-SCREEN
v_data_inicial ne ' '.
nrdias = ( /pws/zycbe128-dtvencto - v_data_inicial ).
* << Fim da inclusão
endif.
clear /pws/zyglt214.
select *
up to 1 rows
from /pws/zyglt214
into /pws/zyglt214
where codnorma = /pws/zycbe128-codnorma.
endselect.
if sy-subrc eq 0.
norma = /pws/zyglt214-norma.
...
...
if v_obrig eq 'X' and /pws/zycbe128-txtinf is initial.
loop at screen.
if screen-name eq '/PWS/ZYCBE128-TXTINF'.
screen-required = '1'.
/pws/zycbe128-ftxt = 'X'.
modify screen.
endif.
endloop.
endif.
endmodule.
* >> Início da inclusão:
module data_inicial output.
data: v_numrseq like /pws/zycbt128-nrseq,
v_existe(1) type c.
v_existe = 'N'.
if sy-tcode ne '/PWS/ZYCB111_C'.
select single nrcorresp
into v_numrseq
from /pws/zycbt154
where codmod = 'F' and
nrcorresp = /pws/zycbe128-nrseq.
if sy-subrc eq 0.
v_existe = 'S'.
endif.
if v_existe = 'N'.
select single nrchave
into v_numrseq
from /pws/zycbt064
where nrchave = /pws/zycbe128-nrseq and
mdcorresp = 'CE'.
if sy-subrc eq 0.
v_existe = 'S'.
endif.
endif.
endif.
if v_existe = 'S'.
loop at screen.
if screen-name = '/PWS/ZYCBE128-FDTINICIAL' or
( screen-name = '/PWS/ZYCBE128-DTINCL' and
/pws/zycbe128-fdtinicial = 'I' ) or
( screen-name = '/PWS/ZYCBE128-DTDESEM' and
/pws/zycbe128-fdtinicial = 'D' ) or
( screen-name = '/PWS/ZYCBE128-DTCRED' and
/pws/zycbe128-fdtinicial = 'C' ).
screen-input = '0'.
endif.
modify screen.
endloop.
endif.
endmodule.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCA111TOP
...
v_delete,
v_mdparc,
v_modparc, "#EC NEEDED
v_prazo,
v_prazo1,
v_display,
e_subrc type sy-subrc.
data: vg_tcode(15) type c,
vg_tcode_aux(15) type c,
vg_origem type c,
* >> Início da exclusão:
vg_emprestimo(15) type c.
* << Fim da exclusão
* >> Início da inclusão:
vg_emprestimo(15) type c,
v_data_inicial like /pws/zycbt128-dtcred,
v_data_inicial_old like /pws/zycbt128-dtcred,
v_campo_inicial(10) type c,
v_mensagem(15) type c.
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB115F01
...
changing v_ano.
select awkey
up to 1 rows
from bkpf
into itab_zycbt036-awkey
where belnr eq itab_zycbt036-belnr and
bukrs eq /pws/zycbt128-bukrs and
gjahr eq v_ano.
endselect.
else.
* >> Início da inclusão: FORM EXECUTA_CLEARING_EMP
if /pws/zycbt128-fdtinicial = 'D' or
/pws/zycbt128-fdtinicial = 'I' or
/pws/zycbt128-fdtinicial = 'C'.
case /pws/zycbt128-fdtinicial.
when 'D'.
* << Fim da inclusão
perform determina_ano using /pws/zycbt128-dtdesem
/pws/zycbt128-bukrs
changing v_ano.
* >> Início da inclusão: FORM EXECUTA_CLEARING_EMP
when 'I'.
perform determina_ano using /pws/zycbt128-dtincl
/pws/zycbt128-bukrs
changing v_ano.
when 'C'.
perform determina_ano using /pws/zycbt128-dtcred
/pws/zycbt128-bukrs
changing v_ano.
endcase.
else.
perform determina_ano using /pws/zycbt128-dtdesem
/pws/zycbt128-bukrs
changing v_ano.
endif.
* << Fim da inclusão
select awkey
up to 1 rows
from bkpf
into itab_zycbt036-awkey
where belnr eq itab_zycbt036-belnr and
bukrs eq /pws/zycbt128-bukrs and
gjahr eq v_ano.
endselect.
endif.
append itab_zycbt036.
...
...
select *
up to 1 rows
from /pws/zycbt128
into /pws/zycbt128
where nrseq eq itab_zycbt134-nrcorresp.
endselect.
refresh itab_zycbt013.
select * from /pws/zycbt013
into table itab_zycbt013
where tabela = '/PWS/ZYCBT128'.
* >> Início da inclusão: FORM GET_PARAMETERS_CLEAR_EMP
if /pws/zycbt128-fdtinicial = 'D' or
/pws/zycbt128-fdtinicial = 'I' or
/pws/zycbt128-fdtinicial = 'C'.
case /pws/zycbt128-fdtinicial.
when 'D'.
v_nrdias = /pws/zycbt128-dtvencto - /pws/zycbt128-dtdesem.
when 'I'.
v_nrdias = /pws/zycbt128-dtvencto - /pws/zycbt128-dtincl.
when 'C'.
v_nrdias = /pws/zycbt128-dtvencto - /pws/zycbt128-dtcred.
endcase.
else.
* << Fim da inclusão
v_nrdias = /pws/zycbt128-dtvencto - /pws/zycbt128-dtdesem.
* >> Início da inclusão: FORM GET_PARAMETERS_CLEAR_EMP
endif.
* << Fim da inclusão
if v_nrdias <= 360.
v_prazo = 'S'.
else.
v_prazo = 'L'.
endif.
clear wa_zycbt007.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBI113
...
endif.
endform.
form preenche_contas.
data:
v_nrdias type i,
v_prazo. "#EC NEEDED
v_nrdias = itab_zycbt129j-dtfinal - s_dtentr.
if v_nrdias > /pws/zyglt009-nrdias_cp.
v_prazo = 'L'.
else.
* >> Início da inclusão: FORM PREENCHE_CONTAS
if itab_zycbt128-fdtinicial = 'D' or
itab_zycbt128-fdtinicial = 'I' or
itab_zycbt128-fdtinicial = 'C'.
case itab_zycbt128-fdtinicial.
when 'D'.
* << Fim da inclusão
v_nrdias = itab_zycbt129j-dtfinal - itab_zycbt128-dtdesem.
* >> Início da inclusão: FORM PREENCHE_CONTAS
when 'I'.
v_nrdias = itab_zycbt129j-dtfinal - itab_zycbt128-dtincl.
when 'C'.
v_nrdias = itab_zycbt129j-dtfinal - itab_zycbt128-dtcred.
endcase.
else.
v_nrdias = itab_zycbt129j-dtfinal - itab_zycbt128-dtdesem.
endif.
* << Fim da inclusão
if v_nrdias > /pws/zyglt009-nrdias_cp.
v_prazo = 'C'.
else.
v_prazo = 'S'.
endif.
endif.
clear itab_zycbt011.
v_codeven = '002I'.
read table itab_zycbt011 with key codeven = v_codeven.
itab_relat-blartir = itab_zycbt011-blart.
...
...
itab_zycbe033-c_valut = itab_contabil-dtfpar.
endif.
read table itab_zycbt129p with key nrseq = itab_contabil-nrcorresp
nrparc = itab_contabil-nrparcp.
if sy-subrc = 0.
itab_zycbt036-tcode = text-114.
itab_zycbt036-tabela = text-115.
itab_zycbt036-cpochv = itab_contabil-nrcorresp.
itab_zycbt036-belnr = itab_zycbt129p-belnr_lp.
clear v_ano.
* >> Início da inclusão: FORM CLEARING_TRANSFERENCIA
if itab_zycbt128-fdtinicial = 'D' or
itab_zycbt128-fdtinicial = 'I' or
itab_zycbt128-fdtinicial = 'C'.
case itab_zycbt128-fdtinicial.
when 'D'.
perform determina_ano using itab_zycbt128-dtdesem
itab_zycbt128-bukrs
changing v_ano.
when 'I'.
perform determina_ano using itab_zycbt128-dtincl
itab_zycbt128-bukrs
changing v_ano.
when 'C'.
perform determina_ano using itab_zycbt128-dtcred
itab_zycbt128-bukrs
changing v_ano.
endcase.
else.
* << Fim da inclusão
perform determina_ano using itab_zycbt128-dtdesem
itab_zycbt128-bukrs
changing v_ano.
* >> Início da inclusão: FORM CLEARING_TRANSFERENCIA
endif.
* << Fim da inclusão
select single awkey from bkpf
into itab_zycbt036-awkey
where belnr eq itab_zycbt129p-belnr_lp
and bukrs eq itab_zycbt128-bukrs
...
...
form verify_null_field using value(p_field)
value(p_fieldname)
value(p_description).
if p_field is initial.
itab_zycbt034-campo = p_fieldname.
itab_zycbt034-descricao = p_description.
append itab_zycbt034.
endif.
endform.
form clearing_transferencia_estorno.
* >> Início da inclusão: FORM CLEARING_TRANSFERENCIA_ESTORNO
data v_data_inicial type /pws/zycbt128-dtdesem.
* << Fim da inclusão
perform get_parameters_f-51t.
perform clear_date_batch.
itab_zycbe033-mandt = sy-mandt.
itab_zycbe033-tcode = text-114.
itab_zycbe033-tabela = text-115.
itab_zycbe033-cpochv = itab_contabil_estorno-nrcorresp.
if not s_dtlanc is initial.
itab_zycbe033-budat = s_dtlanc.
else.
itab_zycbe033-budat = s_dtentr.
...
...
itab_zycbe033-c_valut = itab_contabil_estorno-dtfpar.
endif.
read table itab_zycbt129p with key
nrseq = itab_contabil_estorno-nrcorresp
nrparc = itab_contabil_estorno-nrparcp.
if sy-subrc = 0.
itab_zycbt036-tcode = text-114.
itab_zycbt036-tabela = text-115.
itab_zycbt036-cpochv = itab_contabil_estorno-nrcorresp.
itab_zycbt036-belnr = itab_zycbt129p-belnr_lp.
* >> Início da inclusão: FORM CLEARING_TRANSFERENCIA_ESTORNO
if itab_zycbt128-fdtinicial = 'D' or
itab_zycbt128-fdtinicial = 'I' or
itab_zycbt128-fdtinicial = 'C'.
case itab_zycbt128-fdtinicial.
when 'D'.
v_data_inicial = itab_zycbt128-dtdesem.
when 'I'.
v_data_inicial = itab_zycbt128-dtincl.
when 'C'.
v_data_inicial = itab_zycbt128-dtcred.
endcase.
else.
v_data_inicial = itab_zycbt128-dtdesem.
endif.
* << Fim da inclusão
select single awkey from bkpf
into itab_zycbt036-awkey
where belnr eq itab_zycbt129p-belnr_lp
and bukrs eq itab_zycbt128-bukrs
* >> Início da exclusão: FORM CLEARING_TRANSFERENCIA_ESTORNO
and gjahr eq itab_zycbt128-dtdesem(4).
* << Fim da exclusão
* >> Início da inclusão: FORM CLEARING_TRANSFERENCIA_ESTORNO
and gjahr eq v_data_inicial(4).
* << Fim da inclusão
append itab_zycbt036.
endif.
itab_zycbe033-d_newko = itab_contabil_estorno-d_newko.
itab_zycbe033-c_newko = itab_contabil_estorno-c_newko.
itab_zycbe033-xblnr = itab_contabil_estorno-nrcorresp.
itab_zycbe033-d_zuonr = itab_contabil_estorno-nrcorresp.
itab_zycbe033-c_zuonr = itab_contabil_estorno-nrcorresp.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
perform verify_null_field using itab_contabil_estorno-bukrs
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR113
...
else.
v_f_encerrado = 'X'.
endif.
if s_dtentr is initial.
s_dtentr = sy-datum.
endif.
if s_nrseq is initial.
select * from /pws/zycbt128
into table itab_zycbt128
where bukrs eq s_bukrs "#EC CI_NOFIELD
* >> Início da exclusão: FORM SELECIONA_DADOS
and dtdesem le s_dtentr
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS
and ( ( dtdesem le s_dtentr and fdtinicial = 'D' ) or
( dtincl le s_dtentr and fdtinicial = 'I' ) or
( dtcred le s_dtentr and fdtinicial = 'C' ) )
* << Fim da inclusão
and f_encerrado ne v_f_encerrado
and status ne 'E'
and tpemprest in s_tpemp.
else.
select * from /pws/zycbt128
appending table itab_zycbt128
where bukrs eq s_bukrs
and nrseq in s_nrseq
and status ne 'E'
and tpemprest in s_tpemp.
...
...
perform processa_calculo_juros using p_saldo
itab_zycbt129j-txjtotal
itab_zycbt129j-tptxjur
itab_relat-dtde
itab_relat-dtate
itab_zycbt128-waers
itab_zycbt011-ctmoed.
endloop.
endform.
form seleciona_data_operacao.
* >> Início da inclusão: FORM SELECIONA_DATA_OPERACAO
if itab_zycbt128-fdtinicial = 'D' or
itab_zycbt128-fdtinicial = 'I' or
itab_zycbt128-fdtinicial = 'C'.
case itab_zycbt128-fdtinicial.
when 'D'.
* << Fim da inclusão
v_dtoperac = itab_zycbt128-dtdesem.
* >> Início da inclusão: FORM SELECIONA_DATA_OPERACAO
when 'I'.
v_dtoperac = itab_zycbt128-dtincl.
when 'C'.
v_dtoperac = itab_zycbt128-dtcred.
endcase.
else.
v_dtoperac = itab_zycbt128-dtdesem.
endif.
* << Fim da inclusão
endform.
form verifica_data_entrada.
select * from /pws/zycbt154 up to 1 rows
where codmod = 'F'
and dtcont >= s_dtentr
and status <> 'S'
and codmodul ne 'T'
and codint in s_tpemp
and bukrs eq s_bukrs.
endselect.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR122
...
into wa_zycbt011
where codeven = v_codeven
and codmod = text-005.
if itab_zycbt129-tpparc eq 'C'.
select single * from /pws/zycbt012
into wa_zycbt012
where codeven = v_codeven
and codmod = text-005
and codaux = /pws/zycbt128-tpemprest.
elseif itab_zycbt129-tpparc eq 'P'.
* >> Início da inclusão: FORM GET_PARAMETERS_113
if /pws/zycbt128-fdtinicial = 'D' or
/pws/zycbt128-fdtinicial = 'I' or
/pws/zycbt128-fdtinicial = 'C'.
case /pws/zycbt128-fdtinicial.
when 'D'.
* << Fim da inclusão
v_nrdias = /pws/zycbt128-dtvencto - /pws/zycbt128-dtdesem.
* >> Início da inclusão: FORM GET_PARAMETERS_113
when 'I'.
v_nrdias = /pws/zycbt128-dtvencto - /pws/zycbt128-dtincl.
when 'C'.
v_nrdias = /pws/zycbt128-dtvencto - /pws/zycbt128-dtcred.
endcase.
else.
v_nrdias = /pws/zycbt128-dtvencto - /pws/zycbt128-dtdesem.
endif.
* << Fim da inclusão
if v_nrdias <= 360.
v_prazo = 'S'.
else.
v_prazo = 'L'.
endif.
select single * from /pws/zycbt012
into wa_zycbt012
where codeven = v_codeven
and codmod = text-005
and codaux = /pws/zycbt128-tpemprest
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYGLR012
...
perform valores_principal_i2.
perform ju_ir_co_importacao2.
clear itab_relat.
endloop.
endform.
form seleciona_dados_fin1.
select * from /pws/zycbt128 into table itab_zycbt128
where nrseq in emprest
and tpemprest in tipo_e
and bukrs in empresa
* >> Início da exclusão: FORM SELECIONA_DADOS_FIN1
and dtdesem <= data.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_FIN1
and ( ( dtdesem <= data and fdtinicial = 'D' ) or
( dtincl <= data and fdtinicial = 'I' ) or
( dtcred <= data and fdtinicial = 'C' ) ).
* << Fim da inclusão
if not itab_zycbt128[] is initial.
select * from /pws/zycbt154 into table itab_zycbt154
for all entries in itab_zycbt128
where nrcorresp eq itab_zycbt128-nrseq
and codmod eq 'F'.
select * from /pws/zycbt129 into table itab_zycbt129
for all entries in itab_zycbt128
where nrseq = itab_zycbt128-nrseq.
endif.
clear v_tabix.
...
...
and dtcont <> v_data3.
else.
delete itab_zycbt154 where dtcont <> v_data1
and dtcont <> v_data2.
endif.
endif.
loop at itab_zycbt128.
move: itab_zycbt128-nrseq to itab_relat-nrchave,
itab_zycbt128-nremprest to itab_relat-nrseq,
itab_zycbt128-tpemprest to itab_relat-tipo,
* >> Início da exclusão: FORM SELECIONA_DADOS_FIN1
itab_zycbt128-dtdesem to itab_relat-dtinicio,
* << Fim da exclusão
itab_zycbt128-dtvencto to itab_relat-dtfinal,
itab_zycbt128-waers to itab_relat-waers,
itab_zycbt128-vlme to itab_relat-vlme,
itab_zycbt128-sldesem to itab_relat-vlmesp.
* >> Início da inclusão: FORM SELECIONA_DADOS_FIN1
case itab_zycbt128-fdtinicial.
when 'D'.
move itab_zycbt128-dtdesem to itab_relat-dtinicio.
when 'I'.
move itab_zycbt128-dtincl to itab_relat-dtinicio.
when 'C'.
move itab_zycbt128-dtcred to itab_relat-dtinicio.
endcase.
* << Fim da inclusão
perform valores_principal_f.
perform ju_ir_co_financeiro.
clear itab_relat.
endloop.
endform.
form seleciona_dados_fin2.
select * from /pws/zycbt128 into table itab_zycbt128
where nrseq in emprest
and tpemprest in tipo_e
and bukrs in empresa
* >> Início da exclusão: FORM SELECIONA_DADOS_FIN2
and dtdesem <= data.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_FIN2
and ( ( dtdesem <= data and fdtinicial = 'D' ) or
( dtincl <= data and fdtinicial = 'I' ) or
( dtcred <= data and fdtinicial = 'C' ) ).
* << Fim da inclusão
if not itab_zycbt128[] is initial.
select * from /pws/zycbt154 into table itab_zycbt154
for all entries in itab_zycbt128
where nrcorresp eq itab_zycbt128-nrseq
and codmod eq 'F'.
select * from /pws/zycbt129 into table itab_zycbt129
for all entries in itab_zycbt128
where nrseq = itab_zycbt128-nrseq.
select * from /pws/zycbt031 into table itab_zycbt031
for all entries in itab_zycbt128
...
...
select *
from /pws/zycbt007
up to 1 rows
into /pws/zycbt007
where bukrs in empresa.
endselect.
loop at itab_zycbt128.
move: itab_zycbt128-nrseq to itab_relat-nrchave,
itab_zycbt128-nremprest to itab_relat-nrseq,
itab_zycbt128-tpemprest to itab_relat-tipo,
* >> Início da exclusão: FORM SELECIONA_DADOS_FIN2
itab_zycbt128-dtdesem to itab_relat-dtinicio,
* << Fim da exclusão
itab_zycbt128-dtvencto to itab_relat-dtfinal,
* >> Início da exclusão: FORM SELECIONA_DADOS_FIN2
/pws/zycbt007-waersb to itab_relat-waers.
* << Fim da exclusão
* >> Início da inclusão: FORM SELECIONA_DADOS_FIN2
/pws/zycbt007-waersb to itab_relat-waers.
case itab_zycbt128-fdtinicial.
when 'D'.
move itab_zycbt128-dtdesem to itab_relat-dtinicio.
when 'I'.
move itab_zycbt128-dtincl to itab_relat-dtinicio.
when 'C'.
move itab_zycbt128-dtcred to itab_relat-dtinicio.
endcase.
* << Fim da inclusão
itab_relat-vlme = itab_zycbt128-vlme * itab_zycbt128-kursf.
itab_relat-vlmesp = itab_zycbt128-sldesem * itab_zycbt128-kursf.
perform valores_principal_f2.
perform ju_ir_co_financeiro2.
clear itab_relat.
endloop.
endform.
form f4_for_variant.
data: locl_variant like disvariant.
clear exit.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCA111
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 142
Texto: (30 caracteres)
"Preencher o Campo Data Inicial"
Comprimento máximo: 30
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 143
Texto: (34 caracteres)
"Preencher o Campo Data de Inclusão"
Comprimento máximo: 34
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 144
Texto: (36 caracteres)
"Preencher o Campo Data de Desembolso"
Comprimento máximo: 36
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 145
Texto: (33 caracteres)
"Preencher o Campo Data de Crédito"
Comprimento máximo: 33
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 146
Texto: (13 caracteres)
"Data Inclusão"
Comprimento máximo: 13
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 147
Texto: (12 caracteres)
"Data Crédito"
Comprimento máximo: 12
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 148
Texto: (47 caracteres)
"Data de Crédito menor que a data de Desembolso,"
Comprimento máximo: 47
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 149
Texto: (15 caracteres)
" não permitido."
Comprimento máximo: 15
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCBE128
MODIFICAR ESTRUTURA: /PWS/ZYCBE128
DESCRIÇÃO BREVE: CA - Empréstimos
COMPONENTES NOVOS
COMPONENTE: TP. COMP: TAB.REF.: CPO.REF.: AJUD. PESQU.
...
NRSEQCOT /PWS/ZYGLL507
* >> Início da inclusão:
DTCRED /PWS/ZYCBL491
FDTINICIAL /PWS/ZYCBL492
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em TABD /PWS/ZYCBT128
MODIFICAR TABELA TRANSPARENTE: /PWS/ZYCBT128
DESCRIÇÃO BREVE: CA - Empréstimos
CARACTERÍSTICAS
CAMPOS NOVOS
CAMPOS: TP. CAMPO CH: INI: TAB.VERIF.: TAB.REF.: CPO.RE
...
NRSEQCOT /PWS/ZYGLL507
* >> Início da inclusão:
DTCRED /PWS/ZYCBL491 ' ' ' ' ' ' ' ' ' '
FDTINICIAL /PWS/ZYCBL492 ' ' ' ' ' ' ' ' ' '
* << Fim da inclusão