CE PLUS - Nota 010202
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 27/05/2010 00:00:00
Data/Hora Última Alteração: 20/01/2011 16:19:45
Descrição da Nota: VINCULAÇÃO - PREENCHIMENTO DO CAMPO SOCIEDADE PARCEIRA.
Sintoma
A funcionalidade de vinculação deverá informar nas partidas da conta do razão a sociedade parceira
conforme indicado pelo usuário, para melhor rastrear e apurar os documentos contábeis relacionados a
parceira do exportador nas contas do razão.
Solução
Deverá ser incluído um tratamento para o preenchimento do campo "Sociedade Parceira" na
funcionalidade de vinculação conforme o preenchimento do campo com o mesmo nome na captação. Todas
as vezes que o campo estiver preenchido na captação o programa deverá preencher o mesmo conteúdo em
todas as contabilizações que envolvam conta do razão nas vinculações.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10202 Data: 27/05/2010 Hora: 10:37:18
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10202
Categoria : Melhoria
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00003
Agrupamento : 00023
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01499 - 00001 - 6.0 - 00023 - EXIT VINCULAÇÃO / LIQUIDAÇÃO - ALTERAÇÃO DOCUMENTOS CONTÁBEIS
01666 - 00002 - 6.0 - 00024 - INSERIDAS EXIT¿S PARA TRATAMENTO ESPECIFICO NAS F-30 DA VINCULAÇÃ
01916 - 00003 - 6.0 - 00024 - ESTORNO DA VINCULAÇÃO PARA CONTRATOS DE DOWN PAYMENT
01959 - 00004 - 6.0 - 00024 - MAPEAMENTO DO CAMPO BSEG-VALUT NO BATCH INPUT DA DEVOLUÇÃO
02216 - 00005 - 6.0 - 00025 - NA VINCULAÇÃO NÃO RESPEITA O FLAG E A INFORMAÇÃO DO TEXTO INFORMA
02946 - 00006 - 6.0 - 00026 - PARÂMETRO /PWS/ZYGL007 CFM SIM - DUMP VERSÃO 4.7 OU SUPERIOR
03215 - 00007 - 6.0 - 00026 - VINCULAÇÃO BAIXA DO CLIENTE CONTRA O PDD
03478 - 00008 - 7.0 - 00001 - VINCULAÇÃO LIQ. AUT. / LIQUIDAÇÃO - CÂMBIO PRONTO - ARBITRAGEM
03538 - 00009 - 7.0 - 00001 - VINCULAÇÃO - LIQUIDAÇÃO CAMBIO PRONTO
03582 - 00010 - 7.0 - 00001 - VINCULAÇÃO - CONTRATO DE ACE DEVOLUÇÃO COM FATURAS LIQUIDADAS.
03752 - 00011 - 7.0 - 00001 - VINCULAÇÃO - ESTORNO AUTOMATICO POR ERRO NA CONTABILIZAÇÃO
03922 - 00012 - 7.0 - 00002 - VINCULAÇÃO - DOWN PAYMENT CONTABILIZAÇÃO
03956 - 00013 - 7.0 - 00002 - VINCULAÇÃO - SELEÇÃO DE FATURAS DESCONTO DE RECEBÍVEIS
03967 - 00014 - 7.0 - 00002 - VINCULAÇÃO COM LIQUIDAÇÃO AUTOMÁTICA - CONTRATO DP - DESEMBRAMENT
04016 - 00015 - 7.0 - 00002 - VINCULAÇÃO - VALOR F02 CONTRATO DP
04109 - 00016 - 7.0 - 00002 - VINCULAÇÃO - LIQUIDAÇÃO AUTOMÁTICA CP - CONTA LIQ. ANDAMENTO
04150 - 00017 - 7.0 - 00002 - VINCULAÇÃO - PONTO DE EXIT VNC029
04418 - 00018 - 7.0 - 00002 - VINCULAÇÃO CP COM LIQUIDAÇÃO AUTOMÁTICA - ESTORNO
04725 - 00019 - 7.0 - 00002 - VINCULAÇÃO - CONTABILIZAÇÃO E ESTORNO DE CAMBIO PRONTO
04832 - 00020 - 7.0 - 00003 - VINCULAÇÃO DP - CLEARING - DUPLO CLIQUE PARTIDA, SE PERDE NA TELA
05038 - 00021 - 7.0 - 00003 - VINCULAÇÃO - CP COM LIQ. AUTOMÁTICA - ZTERM ZFBDT
05441 - 00023 - 7.0 - 00003 - EMPRÉSTIMO - ALTERAÇÃO DATA DE VENCIMENTO - DATAS PARCELAS
05512 - 00022 - 7.0 - 00004 - TRATAMENTO CAMPOS /PWS/ZYCBT030-BELNR_T /PWS/ZYCBT030-BUDAT_T
05825 - 00024 - 7.0 - 00004 - VALORES MANTIDOS NO EXTERIOR COM VINCULAÇÃO E LIQUIDAÇÃO AUTOMÁTI
05974 - 00025 - 7.0 - 00004 - VINCULAÇÃO
06100 - 00026 - 7.0 - 00004 - CB - 444521 - CODE INSPECTOR E VERIFICAÇÃO AMPLIADA
06211 - 00027 - 7.0 - 00005 - VINCULAÇÃO - HISTORICO CONTABIL DA CAPTAÇÃO
07169 - 00028 - 7.0 - 00006 - TRAZER OS AJUSTES DO CHAMADO 392344 PARA O PRODUTO
07760 - 00029 - 7.0 - 00007 - DA-LIQUIDAÇÃO E VINCULAÇÃO LIQ. AUTOMÁT - NORMAL/ARBITRAGEM/PERFO
07919 - 00030 - 7.0 - 00008 - VINCULAÇÃO - CHAVE DE REFERENCIA INCORRETA - DATA DO DOCUMENTO IN
08536 - 00031 - 7.0 - 00009 - DA-VINCULAÇÃO/LIQUIDAÇÃO-OTIMIZAÇÃO-BUSCA TAXAS/TIPO DOCTO. POR C
09055 - 00032 - 8.0 - 00001 - CODE INSPECTOR - CAMBIO EXPORTAÇÃO
09688 - 00033 - 8.0 - 00002 - VINCULAÇÃO DE FATURAS EXPORTAÇÃO, CONTABILIZAÇÃO CONTAS IGUAIS
09890 - 00034 - 8.0 - 00002 - DEVOLUÇÃO DA VINCULAÇÃO DE FATURAS, LIQUIDAÇÃO DE FATURAS
10188 - 00035 - 8.0 - 00003 - MAPEAMENTO SOCIEDADE PARCEIRA NAS CONTABILIZAÇÕES
10191 - 00036 - 8.0 - 00003 - CAPTAÇÃO, PREENCHIMENTO SOCIEDADE PARCEIRA NA CONTABILIZAÇÃO
----------------------------------------------------------------------------------------------------
VINCULAÇÃO - PREENCHIMENTO DO CAMPO SOCIEDADE PARCEIRA.
----------------------------------------------------------------------------------------------------
Palavras Chave:
VINCULAÇÃO - PREENCHIMENTO DO CAMPO SOCIEDADE PARCEIRA.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB009F01
REPS /PWS/MZYCB009F02
REPS /PWS/MZYCB009F06
REPS /PWS/MZYCB009F07
REPS /PWS/MZYCB009F08
REPS /PWS/MZYCB009F09
REPS /PWS/MZYCB009F10
REPS /PWS/MZYCB009I01
REPT /PWS/SAPMZYCB009
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F01
...
itab_zycbt036-residuo.
endloop.
if sy-subrc ne 0.
itab_zycbt036-residuo = wa_zycbt221-vlr_rateio.
append itab_zycbt036.
itab_zycbe033-wrbtr = itab_zycbe033-wrbtr +
itab_zycbt036-residuo.
endif.
endloop.
endif.
* >> Início da inclusão: FORM FILL_DATE1_F02
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
endloop.
if /pws/zycbe001-tpcontr(1) = 'D' and
wa_zycbt089-rateio_cl = 'X'.
move itab_zycbt036[] to itab_zycbt036_dp[].
endif.
check sy-subrc eq 0.
v_tpcontabil = 'E_VIN'.
perform busca_dados_bi using itab_zycbe033-bukrs
v_tpcontabil.
...
...
endif.
if /pws/zycbe001-tpcontr(1) = 'D' and
wa_zycbt089-f_cont_vinc = 'A'.
itab_zycbe033-agkoa = 'D'.
itab_zycbe033-agkon = /pws/zycbe001-kunnr.
itab_zycbe033-agums = wa_zycbt011-agums.
itab_zycbe033-umskz = wa_zycbt011-agums.
itab_zycbe033-d_newko = itab_zycbe033-agkon.
itab_zycbe033-newbs = '19'.
endif.
* >> Início da inclusão: FORM FILL_DATE1_F30
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
perform busca_exit.
read table itab_zyglt100 with key zexit = 'VNC020'.
if sy-subrc eq 0.
perform (itab_zyglt100-formulario)
in program (itab_zyglt100-programa).
endif.
append itab_zycbe033.
endif.
loop at itab_vinc
where flag = 'A' or flag = 'E'
...
...
text-120.
itab_zycbe033-belnr = itab_zycbt209-belnr_d.
endif.
move itab_zycbe033-belnr to v_doc_and.
perform verifica_prorrogacao.
perform verify_null_field using itab_zycbt051-waers_fat
'WAERS'
text-005.
itab_zycbe033-waers = itab_zycbt051-waers_fat.
itab_zycbe033-zbd1t = v_zbd1t.
* >> Início da inclusão: FORM FILL_DATE6_F28
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
endform.
form dados_batch.
data v_kursf like /pws/zycbt005-txcamb.
perform clear_date_batch.
concatenate itab_zycbt005-nrseqc itab_zycbt005-tpdesp
itab_zycbt005-nrparc itab_zycbt005-dtincl
itab_zycbt005-nrinvoic itab_zycbt005-gsberf
itab_zycbt005-dtvincul itab_zycbt005-dtvencto
itab_zycbt005-nrparcf
...
...
select single * from t001w
where werks = /pws/zycbe005-werks.
if sy-subrc eq 0.
perform verifica_pais_filial using /pws/zycbe001-bukrs
t001w-j_1bbranch.
itab_zycbe033-brnch = t001w-j_1bbranch.
endif.
endif.
itab_zycbe033-vbeln2 = /pws/zycbe001-vbeln_va.
itab_zycbe033-posn2 = /pws/zycbe001-posnr_va.
* >> Início da inclusão: FORM LIQUIDA_DP
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
if wa_zycbt007-liq_trans is initial.
v_dtlanc = itab_zycbt030-budat.
else.
v_dtlanc = itab_zycbt030-budat_t.
endif.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = '/PWS/ZYCBT005'.
itab_zycbt036-cpochv = v_cpochv.
itab_zycbt036-belnr = itab_zycbt030-v_belnr.
...
...
v_vldif = abs( itab_vinc-vldif ).
if itab_vinc-vldif lt 0.
perform busca_valor1 using v_cpochv
itab_vinc-dtvincul
itab_vinc-dtvencto.
elseif itab_vinc-vldif ge 0.
perform busca_valor2 using v_cpochv
itab_vinc-dtvincul
itab_vinc-dtvencto.
endif.
* >> Início da inclusão: FORM FILL_DATE1_F02_PRE
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
v_tpcontabil = 'E_VIN'.
perform busca_dados_bi using itab_zycbe033-bukrs
v_tpcontabil.
loop at itab_zycbt034.
message i016 with itab_zycbt034-descricao.
endloop.
if itab_zycbt034 is initial.
call function '/PWS/ZYCB_TRANSACAO_F_02'
exporting
v_modo = v_modo_bi
...
...
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
itab_zycbe033-d_kostl = /pws/zycbe005-kostl.
itab_zycbe033-d_prctr = /pws/zycbe005-prctr.
itab_zycbe033-d_fipos = /pws/zycbe005-fipos.
itab_zycbe033-c_kostl = /pws/zycbe005-kostl.
itab_zycbe033-c_prctr = /pws/zycbe005-prctr.
itab_zycbe033-c_fipos = /pws/zycbe005-fipos.
itab_zycbe033-agkoa = 'S'.
itab_zycbe033-newbs = '40'.
* >> Início da inclusão: FORM FILL_DATE1_F30_PRE
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
clear itab_zycbt036.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = '/PWS/ZYCBT005'.
itab_zycbt036-cpochv = v_cpochv.
itab_zycbt036-belnr = itab_zycbt002p_aux-belnr_f02.
clear v_year.
call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
exporting
v_bukrs = /pws/zycbe001-bukrs
...
...
where werks = /pws/zycbe005-werks.
if sy-subrc eq 0.
perform verifica_pais_filial using /pws/zycbe005-bukrs
t001w-j_1bbranch.
itab_zycbe033-brnch = t001w-j_1bbranch.
endif.
endif.
clear itab_zycbt012.
read table itab_zycbt012 with key codeven = '002D'.
itab_zycbe033-d_newko = itab_zycbt012-saknr1.
* >> Início da inclusão: FORM CLEARING_AD_CLIENTE
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = '/PWS/ZYCBT005'.
itab_zycbt036-cpochv = v_cpochv.
itab_zycbt036-belnr = /pws/zycbe001-belnr2.
clear v_year.
call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
exporting
v_bukrs = itab_zycbt005-bukrs
v_date = v_dtdocto
...
...
select single * from t001w
where werks = /pws/zycbe005-werks.
if sy-subrc eq 0.
perform verifica_pais_filial using /pws/zycbe005-bukrs
t001w-j_1bbranch.
itab_zycbe033-brnch = t001w-j_1bbranch.
endif.
endif.
itab_zycbe033-flag_nc = 'X'.
itab_zycbe033-wrbtr1 = /pws/zycbe001-slvinc.
* >> Início da inclusão: FORM EXECUTA_CLEARING_ADCLIENTE
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = '/PWS/ZYCBT005'.
itab_zycbt036-cpochv = v_cpochv.
itab_zycbt036-belnr = /pws/zycbe001-belnr2.
clear v_year.
call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
exporting
v_bukrs = /pws/zycbe001-bukrs
v_date = v_dtdocto
...
...
select single * from t001w
where werks = /pws/zycbe005-werks.
if sy-subrc eq 0.
perform verifica_pais_filial using /pws/zycbe005-bukrs
t001w-j_1bbranch.
itab_zycbe033-brnch = t001w-j_1bbranch.
endif.
endif.
itab_zycbe033-vbeln2 = /pws/zycbe001-vbeln_va.
itab_zycbe033-posn2 = /pws/zycbe001-posnr_va.
* >> Início da inclusão: FORM PREENCHE_ITAB_ZYCBE033
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
endform.
form executa_clearing_cliente.
perform clear_date_batch.
clear itab_zycbt036.
refresh itab_zycbt036.
itab_zycbe033-agkoa = 'D'.
if wa_zycbt007-liq_trans is initial.
itab_zycbe033-agkon = wa_zycbt005-kunnr.
else.
...
...
select single * from t001w
where werks = /pws/zycbe005-werks.
if sy-subrc eq 0.
perform verifica_pais_filial using /pws/zycbe005-bukrs
t001w-j_1bbranch.
itab_zycbe033-brnch = t001w-j_1bbranch.
endif.
endif.
itab_zycbe033-vbeln2 = /pws/zycbe001-vbeln_va.
itab_zycbe033-posn2 = /pws/zycbe001-posnr_va.
* >> Início da inclusão: FORM FILL_DATE6_F30_ARB
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
endform.
form fill_date1_f30_ace.
data:
v_cpochv like /pws/zycbe033-cpochv,
v_kursf like /pws/zycbe033-kursf,
v_belnr69 like /pws/zycbt069-belnr,
v_saknr type /pws/zycbe033-c_newko.
if wa_zycbt005-dtvincul is initial.
exit.
...
...
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
itab_zycbe033-newbs = '50'.
* >> Início da inclusão: FORM FILL_DATE1_F30_ACE
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
loop at itab_zycbt069 where nrinvoic = wa_zycbt005-nrinvoic
and nrparcf = wa_zycbt005-nrparcf.
clear itab_zycbt036.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = '/PWS/ZYCBT005'.
itab_zycbt036-cpochv = v_cpochv.
itab_zycbt036-belnr = itab_zycbt069-belnr.
clear v_year.
call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
...
...
changing v_ano.
if wa_zycbt007-fdtdoc = 'D'.
itab_zycbe033-bldat = sy-datum.
itab_zycbe033-d_valut = sy-datum.
itab_zycbe033-c_valut = sy-datum.
else.
itab_zycbe033-bldat = itab_zycbe033-budat.
itab_zycbe033-d_valut = itab_zycbe033-budat.
itab_zycbe033-c_valut = itab_zycbe033-budat.
endif.
* >> Início da inclusão: FORM CLEARING_F22
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = '/PWS/ZYCBT006'.
itab_zycbt036-cpochv = v_cpochv.
if wa_zycbt007-liq_trans is initial.
if not itab_zycbt030-belnr6 is initial.
itab_zycbt036-belnr = itab_zycbt030-belnr6.
else.
itab_zycbt036-belnr = itab_zycbt030-belnr.
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F02
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
loop at itab_zycbt034.
message i016 with itab_zycbt034-descricao.
endloop.
clear sy-subrc.
if itab_zycbt034 is initial.
call function '/PWS/ZYCB_TRANSACAO_F_30_D'
exporting
v_modo = v_modo_bi
tables
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM PDD
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
loop at itab_zycbt034.
message i016 with itab_zycbt034-descricao.
endloop.
if itab_zycbt034 is initial.
call function '/PWS/ZYCB_TRANSACAO_F_02'
exporting
v_modo = v_modo_bi
tables
t_dados = itab_zycbe033
...
...
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
endif.
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
endcase.
endloop.
clear: itab_zycbe033-d_kostl,
itab_zycbe033-c_kostl.
* >> Início da inclusão: FORM PDD
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
modify itab_zycbe033 index 1.
loop at itab_zycbt034.
message i016 with itab_zycbt034-descricao.
endloop.
if itab_zycbt034 is initial.
call function '/PWS/ZYCB_TRANSACAO_F_02'
exporting
v_modo = v_modo_bi
tables
t_dados = itab_zycbe033
...
...
/pws/zycbe005-j_1bbranch.
itab_zycbe033a-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033a-brnch = wa_t001w-j_1bbranch.
endif.
perform verifica_prorrogacao.
itab_zycbe033a-zbd1t = v_zbd1t.
* >> Início da inclusão: FORM FILL_DATE6_F30_A
itab_zycbe033a-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033a.
endform.
form estorno_devol.
select single *
from /pws/zycbt004
where nrseqc eq /pws/zycbe001-nrseqc and
tpdesp eq 'D' and
nrparc eq itab_zycbt005-nrparc and
dtincl eq itab_zycbt005-dtvincul and
dtliquid eq /pws/zycbe050-dtdevol and
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM FILL_DATE1_F02_DEV
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
loop at itab_zycbt034.
message i016 with itab_zycbt034-descricao.
endloop.
if itab_zycbt034 is initial.
call function '/PWS/ZYCB_TRANSACAO_F_02'
exporting
v_modo = v_modo_bi
tables
t_dados = itab_zycbe033
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM CLEARING_ESTORNO
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = '/PWS/ZYCBT050'.
itab_zycbt036-cpochv = v_cpochv.
itab_zycbt036-belnr = belnr1.
clear v_year.
call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
exporting
v_bukrs = /pws/zycbe001-bukrs
v_date = /pws/zycbe050-dtdevol
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM FILL_DATA_F22
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
endform.
form clearing_estorno_rprd using value(belnr)
value(budat).
data: belnr2 like /pws/zycbt001-belnr,
v_sy_subrc like sy-subrc.
clear v_sy_subrc.
perform limpa_itabs_contabil.
itab_zycbe033-tcode = 'F-30'.
itab_zycbe033-tabela = '/PWS/ZYCBT005'.
...
...
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
perform verifica_prorrogacao.
itab_zycbe033-zbd1t = v_zbd1t.
* >> Início da inclusão: FORM CLEARING_ESTORNO_RPRD
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = '/PWS/ZYCBT005'.
itab_zycbt036-cpochv = v_cpochv.
itab_zycbt036-belnr = belnr.
append itab_zycbt036.
itab_zycbt036-belnr = belnr2.
append itab_zycbt036.
if itab_zycbt034[] is initial.
call function '/PWS/ZYCB_TRANSACAO_F_30'
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM CONTABILIZA_CANCELAMENTO
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
loop at itab_zycbt034.
message i016 with itab_zycbt034-descricao.
endloop.
if itab_zycbt034 is initial.
if /pws/zycbt089-f_cont_canc = '2'.
call function '/PWS/ZYCB_TRANSACAO_F_02'
exporting
v_modo = v_modo_bi
v_canc = 'X'
...
...
text-143.
itab_zycbe033-wrbtr = itab_zycbt030-v_kwert.
perform verify_null_field using itab_zycbt030-v_belnr
'BELNR'
text-120.
itab_zycbe033-belnr = itab_zycbt030-v_belnr.
perform verify_null_field using itab_zycbt051-waers
'WAERS'
text-005.
itab_zycbe033-waers = itab_zycbt051-waers.
* >> Início da inclusão: FORM FILL_DATE_F22_ARBITR
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
endform.
form desm_cliente.
data: v_budat like /pws/zycbt051-dtreceb.
read table itab_zycbt017
with key nrinvoic = itab_zycbt051-nrinvoic
gsberf = itab_zycbt051-gsberf.
read table itab_zycbt005
with key nrinvoic = itab_zycbt051-nrinvoic
gsberf = itab_zycbt051-gsberf.
...
...
perform verify_null_field using itab_zycbt030-v_belnr
'BELNR'
text-120.
itab_zycbe033-belnr = itab_zycbt030-v_belnr.
perform verify_null_field using itab_zycbt051-waers_fat
'WAERS'
text-005.
itab_zycbe033-waers = itab_zycbt051-waers_fat.
perform verifica_prorrogacao.
itab_zycbe033-zbd1t = v_zbd1t.
* >> Início da inclusão: FORM DESM_CLIENTE
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
itab_zycbt036-tcode = itab_zycbe033-tcode.
itab_zycbt036-tabela = itab_zycbe033-tabela.
itab_zycbt036-cpochv = itab_zycbe033-cpochv.
itab_zycbt036-residuo = itab_zycbe033-wrbtr.
itab_zycbt036-zuonr = itab_zycbe033-d_zuonr.
append itab_zycbt036.
itab_doctos-tcode = itab_zycbe033-tcode.
itab_doctos-tabela = itab_zycbe033-tabela.
itab_doctos-cpochv = itab_zycbe033-cpochv.
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM CLEARING_CLI
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
loop at itab_zycbt034.
message i016 with itab_zycbt034-descricao.
endloop.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = 'ZYCBT005'.
itab_zycbt036-cpochv = v_cpochv.
itab_zycbt036-belnr = v_belnr_f_22.
clear v_year.
call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
...
...
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
itab_zycbe033-v_sinal = '-'.
* >> Início da inclusão: FORM FILL_DATA_F22_ARBITR
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
endform.
form lancamento_f_22 using belnr budat.
perform clear_date_batch.
perform fill_data_f22_arbitr_2 using belnr budat.
if itab_zycbt034 is initial.
call function '/PWS/ZYCB_TRANSACAO_F_22F'
exporting
v_modo = v_modo_bi
tables
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM FILL_DATA_F22_ARBITR_2
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
endform.
form clearing_est_rprd_abr using belnr
budat.
data: belnr2 like /pws/zycbt001-belnr,
v_sy_subrc like sy-subrc.
clear v_sy_subrc.
perform limpa_itabs_contabil.
itab_zycbe033-tcode = 'F-30'.
itab_zycbe033-tabela = 'ZYCBT005'.
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM CLEARING_EST_RPRD_ABR
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = 'ZYCBT005'.
itab_zycbt036-cpochv = v_cpochv.
itab_zycbt036-dtdocto = itab_zycbt030-budat.
itab_zycbt036-belnr = itab_zycbt030-belnr6.
append itab_zycbt036.
itab_zycbt036-dtdocto = budat.
itab_zycbt036-belnr = belnr.
append itab_zycbt036.
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM CLEAR_VC_ABR
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = 'ZYCBT005'.
itab_zycbt036-cpochv = v_cpochv.
itab_zycbt036-belnr = v_belnr_f_22.
append itab_zycbt036.
itab_zycbt036-belnr = v_belnr_f_22_aux.
append itab_zycbt036.
if itab_zycbt034[] is initial.
call function '/PWS/ZYCB_TRANSACAO_F_30'
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM FILL_DATE_F02_PDD
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
endform.
form baixa_cliente_pdd.
clear: itab_erro.
refresh: itab_erro.
loop at itab_zycbt051 where belnr_pdd1 ne space and
belnr_pdd2 eq space and
mark eq 'X'.
if itab_zycbt051-dtbx_cl is initial.
message i015 with text-029.
...
...
else.
v_belnr = itab_zycbt030-belnr6.
endif.
perform verify_null_field using v_belnr
'BELNR'
text-120.
itab_zycbe033a-belnr = v_belnr.
itab_zycbe033a-d_kostl = itab_zycbt051-kostl.
perform verifica_prorrogacao.
itab_zycbe033a-zbd1t = v_zbd1t.
* >> Início da inclusão: FORM FILL_DATE_F30_BAIXA_CLIENTE
itab_zycbe033a-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033a.
if itab_zycbt034[] is initial.
call function '/PWS/ZYCB_TRANSACAO_F_30_A'
exporting
v_modo = v_modo_bi
tables
t_dados = itab_zycbe033a
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
exceptions
...
...
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
perform verifica_prorrogacao.
itab_zycbe033-zbd1t = v_zbd1t.
* >> Início da inclusão: FORM APR_PDD_3
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
clear v_f30.
if itab_zycbt034[] is initial.
call function '/PWS/ZYCB_TRANSACAO_F_30_Q'
exporting
v_modo = v_modo_bi
tables
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM FILL_DATE_F02_BX_CL
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
endform.
form fill_date_f30_bx_cl using p_belnr_f02.
perform limpa_itabs_contabil.
itab_zycbe033-tcode = 'F-30'.
itab_zycbe033-tabela = '/PWS/ZYCBT051'.
clear v_cpochv.
concatenate itab_zycbt051-nrseqc itab_zycbt051-tpdesp
itab_zycbt051-nrparc itab_zycbt051-dtincl
itab_zycbt051-nrinvoic itab_zycbt051-gsberf
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM FILL_DATE_F30_BX_CL
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = '/PWS/ZYCBT051'.
itab_zycbt036-cpochv = v_cpochv.
itab_zycbt036-belnr = p_belnr_f02.
append itab_zycbt036.
if itab_zycbt030-belnr6 is initial.
v_belnr = itab_zycbt030-belnr.
else.
v_belnr = itab_zycbt030-belnr6.
...
...
not itab_zyglt321-descr is initial.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
endif.
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
endcase.
endloop.
itab_zycbe033-kursf = itab_zycbt051-txcamb.
* >> Início da inclusão: FORM FILL_DATE_F22
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
endform.
form clearing_estorno_dp_2 using p_v_belnr_f22.
perform limpa_itabs_contabil.
itab_zycbe033-tcode = 'F-30'.
itab_zycbe033-tabela = '/PWS/ZYCBT051'.
clear v_cpochv.
concatenate itab_zycbt051-nrseqc itab_zycbt051-tpdesp
itab_zycbt051-nrparc itab_zycbt051-dtincl
itab_zycbt051-nrinvoic itab_zycbt051-gsberf
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM CLEARING_ESTORNO_DP_2
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = '/PWS/ZYCBT051'.
itab_zycbt036-cpochv = v_cpochv.
itab_zycbt036-belnr = v_belnr_f22.
append itab_zycbt036.
itab_zycbt036-belnr = belnr2.
append itab_zycbt036.
if itab_zycbt034[] is initial.
call function '/PWS/ZYCB_TRANSACAO_F_30'
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM EXECUTA_CLEARING_PD
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = 'ZYCBT051'.
itab_zycbt036-cpochv = v_cpochv.
if not itab_zycbt030-belnr6 is initial.
itab_zycbt036-belnr = itab_zycbt030-belnr6.
else.
itab_zycbt036-belnr = itab_zycbt030-belnr.
endif.
append itab_zycbt036.
...
...
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
perform verifica_prorrogacao.
itab_zycbe033a-zbd1t = v_zbd1t.
* >> Início da inclusão: FORM PREENCHE_ZYCBE033A_2
itab_zycbe033a-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
endform.
form estorno_pdd.
clear: itab_erro.
refresh: itab_erro.
read table itab_zycbt051 with key mark = 'X'.
if sy-subrc ne 0.
message i015 with text-015.
exit.
endif.
loop at itab_zycbt051 where belnr_pdd1 ne space
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM CLEARING_ESTORNO_DP
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = '/PWS/ZYCBT051'.
itab_zycbt036-cpochv = v_cpochv.
itab_zycbt036-belnr = belnr.
append itab_zycbt036.
itab_zycbt036-belnr = belnr2.
append itab_zycbt036.
if itab_zycbt034[] is initial.
call function '/PWS/ZYCB_TRANSACAO_F_30'
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F06
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM DESMEMBRA_DEV
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = 'ZYCBT005'.
itab_zycbt036-cpochv = itab_zycbe033-cpochv.
itab_zycbt036-residuo = /pws/zycbe050-vldev.
append itab_zycbt036.
loop at itab_zycbt034.
message i016 with itab_zycbt034-descricao.
endloop.
clear sy-subrc.
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM GRAVA_DEVOLUCAO_VAR
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
loop at itab_zycbt034.
message i016 with itab_zycbt034-descricao.
endloop.
clear sy-subrc.
if itab_zycbt034 is initial.
call function '/PWS/ZYCB_TRANSACAO_F_30_Q'
exporting
v_modo = v_modo_bi
tables
...
...
itab_zycbt036-belnr = itab_zycbt005-belnr.
else.
itab_zycbt036-belnr = /pws/zycbe001-belnr.
endif.
append itab_zycbt036.
itab_zycbt036-tcode = text-041.
itab_zycbt036-tabela = text-002.
itab_zycbt036-cpochv = v_cpochv.
itab_zycbt036-belnr = v_belnr_comp.
append itab_zycbt036.
* >> Início da inclusão: FORM EXECUTA_CLEARING_DEV
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
if not v_belnr_comp is initial.
append itab_zycbe033.
else.
itab_zycbt005-slpagar = itab_zycbt005-slpagar +
/pws/zycbe050-vldev_fat.
modify /pws/zycbt005 from itab_zycbt005.
if wa_zycbt007-cfm = 'X'.
loop at itab_zycbt005.
move-corresponding itab_zycbt005 to wa_zycbt005_log.
perform monta_log_cfm using wa_zycbt005_log
...
...
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
itab_zycbe033-d_kostl = itab_zycbt051-kostl.
itab_zycbe033-d_prctr = itab_zycbt051-prctr.
itab_zycbe033-c_prctr = itab_zycbt051-prctr.
itab_zycbe033-zbd1t = v_zbd1t.
* >> Início da inclusão: FORM RECEB_PAGTO_DEV_3
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
if itab_zycbt034 is initial.
call function '/PWS/ZYCB_TRANSACAO_F_30_Q'
exporting
v_modo = v_modo_bi
tables
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
exceptions
...
...
/pws/zycbe005-j_1bbranch.
itab_zycbe033a-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033a-brnch = wa_t001w-j_1bbranch.
endif.
itab_zycbe033a-zbd1t = v_zbd1t.
append itab_zycbt030_aux2.
* >> Início da inclusão: FORM PREENCHE_ZYCBE033A
itab_zycbe033a-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
endform.
form recup_divisas_2.
data: v_subrc like sy-subrc,
v_data like sy-datum.
data: v_sai,
v_contad like /pws/zycbt012-saknr1,
v_dev.
data: begin of itab_doctos occurs 0.
include structure /pws/zycbt036.
data: end of itab_doctos.
...
...
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
itab_zycbe033-d_kostl = itab_zycbt051-kostl.
itab_zycbe033-d_prctr = itab_zycbt051-prctr.
itab_zycbe033-c_prctr = itab_zycbt051-prctr.
itab_zycbe033-zbd1t = v_zbd1t.
* >> Início da inclusão: FORM RECUP_DIVISAS_3
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
if itab_zycbt034 is initial.
call function '/PWS/ZYCB_TRANSACAO_F_30_Q'
exporting
v_modo = v_modo_bi
tables
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
exceptions
...
...
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
itab_zycbe033-d_prctr = itab_zycbt051-prctr.
itab_zycbe033-d_kostl = itab_zycbt051-kostl.
itab_zycbe033-zbd1t = v_zbd1t.
* >> Início da inclusão: FORM APR_DESPESAS_3
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
if itab_zycbt034[] is initial.
call function '/PWS/ZYCB_TRANSACAO_F_30_Q'
exporting
v_modo = v_modo_bi
tables
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
exceptions
...
...
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
perform verifica_prorrogacao.
itab_zycbe033-zbd1t = v_zbd1t.
* >> Início da inclusão: FORM EXECUTA_CLEARING_RP_RD_PD
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
if not v_belnr_comp is initial.
append itab_zycbe033.
else.
/pws/zycbe050-sldevol = /pws/zycbe050-sldevol + itab_zycbt051-vlme.
update /pws/zycbt050 set sldevol = /pws/zycbe050-sldevol
where nrseqc = /pws/zycbe050-nrseqc and
tpdesp = /pws/zycbe050-tpdesp and
nrparc = /pws/zycbe050-nrparc and
dtincl = /pws/zycbe050-dtincl and
nrinvoic = /pws/zycbe050-nrinvoic and
...
...
'WAERS'
text-005.
itab_zycbe033-waers = /pws/zycbe001-waers.
perform verify_null_field using wa_zycbt011-blart
'BLART'
text-006.
itab_zycbe033-blart = wa_zycbt011-blart.
itab_zycbe033-d_gsber = /pws/zycbe050-gsberf.
itab_zycbe033-d_newko = itab_zycbt017-kunag.
itab_zycbe033-koart = 'D'.
* >> Início da inclusão: FORM CLEARING_CLIENTE_2
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
select * from /pws/zycbt030 into table itab_zycbt030
where nrinvoic = /pws/zycbe050-nrinvoic and
nrparcf = /pws/zycbe050-nrparcf and
gsberf = /pws/zycbe050-gsberf.
loop at itab_zycbt030 where nrinvoic = /pws/zycbe050-nrinvoic and
nrparcf = /pws/zycbe050-nrparcf and
gsberf = /pws/zycbe050-gsberf.
itab_zycbt036-tcode = itab_zycbe033-tcode.
itab_zycbt036-cpochv = itab_zycbe033-cpochv.
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM LANCAMENTO_CLI_EST
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = 'ZYCBT050'.
concatenate /pws/zycbe050-nrseqc /pws/zycbe050-tpdesp
/pws/zycbe050-nrparc /pws/zycbe050-dtincl
/pws/zycbe050-nrinvoic /pws/zycbe050-gsberf
/pws/zycbe050-nrparcf
/pws/zycbe050-dtvincul /pws/zycbe050-dtvencto
into v_cpochv.
itab_zycbt036-cpochv = v_cpochv.
...
...
text-005.
itab_zycbe033-waers = /pws/zycbe001-waers.
perform verify_null_field using wa_zycbt011-blart
'BLART'
text-006.
itab_zycbe033-blart = wa_zycbt011-blart.
itab_zycbe033-d_gsber = /pws/zycbe050-gsberf.
itab_zycbe033-d_newko = wa_zycbt209-hkont.
itab_zycbe033-koart = wa_zycbt209-koart.
itab_zycbe033-agums = wa_zycbt209-umskz.
* >> Início da inclusão: FORM CLEAR_CLI_EST
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
itab_zycbt036-tcode = itab_zycbe033-tcode.
itab_zycbt036-cpochv = itab_zycbe033-cpochv.
itab_zycbt036-tabela = itab_zycbe033-tabela.
if not itab_zycbt030-belnr6 is initial.
itab_zycbt036-belnr = itab_zycbt030-belnr6.
else.
itab_zycbt036-belnr = itab_zycbt030-belnr.
endif.
itab_zycbt036-dtdocto = itab_zycbt030-budat.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F07
...
wa_zycbt005-bukrs
changing v_monat.
perform determina_ano using wa_zycbt005-dtvincul
wa_zycbt005-bukrs
changing v_ano.
if wa_zycbt007-fdtdoc = 'D'.
itab_zycbe033-bldat = sy-datum.
else.
itab_zycbe033-bldat = itab_zycbe033-budat.
endif.
* >> Início da inclusão: FORM ESTORNA_CP
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
if itab_zycbt034[] is initial.
call function '/PWS/ZYCB_TRANSACAO_F_22'
exporting
v_modo = v_modo_bi
tables
t_dados = itab_zycbe033
t_campo = itab_zycbt034
t_zycbt032 = itab_zycbt032
exceptions
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM LANCA_CP
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
if itab_zycbt034 is initial.
if not itab_zycbe224 is initial.
perform unlock_cliente using itab_zycbe033-d_newko
itab_zycbe033-bukrs.
endif.
call function '/PWS/ZYCB_TRANSACAO_F_30_P'
exporting
v_modo = v_modo_bi
v_vinc_tot = v_vinc_tot
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM CLEARING_030
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = '/PWS/ZYCBT006'.
itab_zycbt036-cpochv = v_cpochv.
itab_zycbt036-dtdocto = v_dtdocto.
if not itab_zycbt005[] is initial.
itab_zycbt036-belnr = itab_zycbt005-belnr.
else.
itab_zycbt036-belnr = itab_zycbt005_ant-belnr.
endif.
...
...
empresa_nao_encontrada = 3
period_in_not_valid = 4
period_not_assigned = 5
version_undefined = 6
others = 7.
select single * from bkpf
where bukrs = itab_zycbt006-bukrs
and belnr = itab_aux-belnr6
and gjahr = v_year.
itab_zycbe033-dtdocto = bkpf-budat.
* >> Início da inclusão: FORM LIQUIDA_COMIS_TRANS
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
if itab_zycbe033-wrbtr gt 0.
append itab_zycbe033.
endif.
endloop.
loop at itab_zycbt034.
message i016 with itab_zycbt034-descricao.
erro_bi = 'X'.
endloop.
clear sy-subrc.
if itab_zycbt034 is initial.
...
...
empresa_nao_encontrada = 3
period_in_not_valid = 4
period_not_assigned = 5
version_undefined = 6
others = 7.
select single * from bkpf
where bukrs = itab_zycbt006-bukrs
and belnr = itab_zycet010-belnr
and gjahr = v_year.
endif.
* >> Início da inclusão: FORM EXECUTA_CLEARING_AGENTE
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
if v_subrc eq 0.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = '/PWS/ZYCBT006'.
itab_zycbt036-cpochv = v_cpochv.
if /pws/zycet037-comis_provisao is initial or
/pws/zycet037-comis_provisao eq 0.
itab_zycbt036-belnr = itab_zycet010-belnr.
clear v_year.
call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
...
...
empresa_nao_encontrada = 3
period_in_not_valid = 4
period_not_assigned = 5
version_undefined = 6
others = 7.
select single * from bkpf
where bukrs = itab_zycbt006-bukrs
and belnr = itab_aux-belnr6
and gjahr = v_year.
itab_zycbe033-dtdocto = bkpf-budat.
* >> Início da inclusão: FORM FILL_DATE_F30_COMISSAO
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
if itab_zycbe033-wrbtr gt 0.
append itab_zycbe033.
endif.
endloop.
loop at itab_zycbt034.
message i016 with itab_zycbt034-descricao.
erro_bi = 'X'.
endloop.
clear sy-subrc.
if itab_zycbt034 is initial.
...
...
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using wa_zycbt005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
itab_zycbe033-werks = /pws/zycbe005-werks.
itab_zycbe033-d_fipos = /pws/zycbe005-fipos.
itab_zycbe033-c_fipos = /pws/zycbe005-fipos.
* >> Início da inclusão: FORM DESMEMBRA_ACE_CP
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
loop at itab_zycbt034.
message i016 with itab_zycbt034-descricao.
endloop.
if itab_zycbt034 is initial.
perform unlock_razao using itab_zycbe033-d_newko
itab_zycbe033-bukrs.
call function '/PWS/ZYCB_TRANSACAO_F_30_P'
exporting
v_modo = v_modo_bi
...
...
itab_partidas-bukrs = itab_zycbe033-bukrs.
itab_partidas-shkzg = 'S'.
itab_partidas-dtdocto = itab_zycbt084-dtincl.
concatenate text-473 wa_zycbt005-nrseqc
into itab_partidas-d_zuonr
separated by space.
itab_partidas-v_sinal = '-'.
append itab_partidas.
endloop.
itab_zycbe033-werks = wa_zycbt005-werks.
* >> Início da inclusão: FORM CLEARING_030_CP
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
if sy-subrc eq 0.
sort itab_partidas by agkoa agkon agums belnr.
endif.
loop at itab_zycbt034.
message i016 with itab_zycbt034-descricao.
endloop.
if itab_zycbt034 is initial.
if not itab_zycbe224 is initial.
d_newko = itab_zycbe033-agkon.
...
...
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using p_zycbt005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
itab_zycbe033-werks = /pws/zycbe005-werks.
perform verifica_prorrogacao.
* >> Início da inclusão: FORM DESMEMBRA_LIQ_AND
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
loop at itab_zycbt034.
message i016 with itab_zycbt034-descricao.
endloop.
if itab_zycbt034 is initial.
call function '/PWS/ZYCB_TRANSACAO_F_30_P'
exporting
v_modo = v_modo_bi
v_vinc_tot = 'X'
tables
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F08
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM FILL_DATE1_F30_ESTORNO
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
clear itab_zycbt036.
itab_zycbt036-tcode = text-041.
itab_zycbt036-tabela = text-002.
itab_zycbt036-cpochv = v_cpochv.
itab_zycbt036-belnr = itab_vinc-belnr.
clear v_year.
call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
exporting
v_bukrs = itab_vinc-bukrs
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM FILL_DATE1_F30_ESTORNO
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
endif.
loop at itab_vinc
where flag = text-039 or flag = text-040 or flag eq 'S'.
if itab_vinc-status eq 'I'.
exit.
endif.
clear itab_zycbt036.
itab_zycbt036-tcode = text-041.
itab_zycbt036-tabela = text-002.
...
...
itab_zycbt036-belnr = v_clearing.
append itab_zycbt036.
endif.
endif.
endif.
itab_zycbt036-tcode = text-041.
itab_zycbt036-tabela = text-002.
itab_zycbt036-cpochv = v_cpochv.
itab_zycbt036-belnr = v_desm_ant.
append itab_zycbt036.
* >> Início da inclusão: FORM EXECUTA_CLEARING_ESTORNO
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
loop at itab_zycbt034.
message i016 with itab_zycbt034-descricao.
endloop.
if itab_zycbt034[] is initial.
call function '/PWS/ZYCB_TRANSACAO_F_30_B'
exporting
v_modo = v_modo_bi
tables
t_dados = itab_zycbe033
...
...
itab_zycbe033-d_gsber = /pws/zycbe001-gsber.
itab_zycbe033-c_gsber = /pws/zycbe005-gsber.
endif.
itab_zycbe033-blart = wa_zycbt011-blart.
itab_zycbe033-d_kostl = /pws/zycbe005-kostl.
itab_zycbe033-d_prctr = /pws/zycbe005-prctr.
itab_zycbe033-d_fipos = /pws/zycbe005-fipos.
itab_zycbe033-c_kostl = /pws/zycbe005-kostl.
itab_zycbe033-c_prctr = /pws/zycbe005-prctr.
itab_zycbe033-c_fipos = /pws/zycbe005-fipos.
* >> Início da inclusão: FORM DESMEMBRAMENTO_ESTORNO
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
sort itab_zycbt002p descending by nrparc.
loop at itab_zycbt002p where slvinc lt itab_zycbt002p-vlme and
tpparc eq 'P'.
if v_vlvinc gt 0.
v_vldif = itab_zycbt002p-vlme - itab_zycbt002p-slvinc.
itab_zycbt036-tcode = text-041.
itab_zycbt036-tabela = text-002.
itab_zycbt036-cpochv = itab_zycbe033-cpochv.
if v_vlvinc > v_vldif.
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM FILL_DATE1_F30_DESM
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
perform busca_exit.
read table itab_zyglt100 with key zexit = 'VNC018'.
if sy-subrc eq 0.
perform (itab_zyglt100-formulario)
in program (itab_zyglt100-programa).
endif.
append itab_zycbe033.
if /pws/zycbe001-tpcontr(1) = 'D' and
not wa_zycbt089-rateio_cl is initial.
perform rotina_rateio.
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM FILL_DATE1_F30_VINC
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
clear v_vinc_total.
if /pws/zycbe001-slvinc is initial.
v_vinc_total = 'X'.
endif.
v_tpcontabil = 'VIN'.
perform busca_dados_bi using itab_zycbe033-bukrs
v_tpcontabil.
if itab_zycbt034[] is initial.
call function '/PWS/ZYCB_TRANSACAO_F_30_Q'
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM VINCULACAO
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
if ( itab_zycbt002p-slvinc ge v_vlvinc )
or ( itab_zycbt002p-slvinc lt v_vlvinc
and itab_zycbt002p-belnr ne ' ' ).
v_acertof30 = 'X'.
itab_acertof30-belnr2_ant = itab_zycbt002p-belnr2.
endif.
v_tpcontabil = 'VIN'.
perform busca_dados_bi using itab_zycbe033-bukrs
v_tpcontabil.
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM DESMEMBRAMENTO
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
v_slvinc = itab_zycbt002p-slvinc.
loop at itab_zycbt005
where flag = p_flag and
vlvinc ne 0.
if itab_zycbt002p-slvinc le 0 .
exit.
endif.
itab_zycbt036-tcode = text-041.
itab_zycbt036-tabela = text-002.
...
...
itab_zycbt036-tcode = 'F-02'.
itab_zycbt036-tabela = 'ZYCBT005'.
itab_zycbt036-cpochv = itab_vinc-nrinvoic.
itab_zycbt036-ct_lucro = itab_zycbt221-ct_lucro.
loop at itab_ace_aux where prctr = itab_zycbt221-ct_lucro.
itab_zycbt036-residuo = itab_ace_aux-wrbtr.
append itab_zycbt036.
endloop.
endloop.
endif.
* >> Início da inclusão: FORM ESTORNO_PERIODO_FECHADO
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
loop at itab_zycbt034.
message i016 with itab_zycbt034-descricao.
endloop.
if itab_zycbt034[] is initial.
clear itab_zyglt100.
if itab_zyglt100[] is initial.
v_syrepid = sy-repid.
call function '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
exporting
...
...
if not p_j_1bbranch is initial.
perform verifica_pais_filial using p_bukrs
p_j_1bbranch.
itab_zycbe033-brnch = p_j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using p_bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM CLEARING
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
perform busca_exit.
read table itab_zyglt100 with key zexit = 'VNC017'.
if sy-subrc eq 0.
perform (itab_zyglt100-formulario)
in program (itab_zyglt100-programa).
endif.
append itab_zycbe033.
if itab_zycbt034 is initial.
if not itab_zycbe224 is initial.
if p_agkoa eq 'D'.
...
...
itab_zycbt036-residuo = itab_zycbe033-wrbtr.
append itab_zycbt036.
itab_doctos-tcode = itab_zycbe033-tcode.
itab_doctos-tabela = itab_zycbe033-tabela.
itab_doctos-cpochv = itab_zycbe033-cpochv.
itab_doctos-belnr = itab_zycbe033-belnr.
itab_doctos-dtdocto = itab_zycbe033-dtdocto.
append itab_doctos.
perform verifica_prorrogacao.
itab_zycbe033-zbd1t = v_zbd1t.
* >> Início da inclusão: FORM DESMEMBRA_CLIENTE
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
clear itab_zyglt100.
if itab_zyglt100[] is initial.
v_syrepid = sy-repid.
call function '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
exporting
i_codmod = 'E'
i_func = v_syrepid
tables
itab_zyglt100 = itab_zyglt100
exceptions
...
...
append itab_zycbt036.
if itab_zycbt005-slpagar is initial and
itab_zycbt005-tpcontr(1) na 'CE'.
itab_zycbe033-flag_nc = 'X'.
endif.
if itab_zycbt005-tpcontr(1) ca 'CE' and
itab_zycbt005-vlme_p eq v_wrbtr and
itab_zycbt005-slpagar is initial.
itab_zycbe033-flag_nc = 'X'.
endif.
* >> Início da inclusão: FORM DESMEMBRA_ACE
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
clear itab_zyglt100.
if itab_zyglt100[] is initial.
v_syrepid = sy-repid.
call function '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
exporting
i_codmod = 'E'
i_func = v_syrepid
tables
itab_zyglt100 = itab_zyglt100
exceptions
...
...
endloop.
read table itab_recurso_aux
with key nrinvoic = itab_zycbt005-nrinvoic
gsberf = itab_zycbt005-gsberf
nrparcf = itab_zycbt005-nrparcf
descorigem = c_liq_vme.
if sy-subrc eq 0.
itab_zycbe033-wrbtr = itab_zycbt005-vlme_p - v_restante.
endif.
endif.
* >> Início da inclusão: FORM BAIXA_CLIENTE_ACE
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
clear itab_zyglt100.
if itab_zyglt100[] is initial.
v_syrepid = sy-repid.
call function '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
exporting
i_codmod = 'E'
i_func = v_syrepid
tables
itab_zyglt100 = itab_zyglt100
exceptions
...
...
if sy-subrc eq 0.
select single budat
from bkpf
into itab_zycbe033-dtdocto
where belnr = itab_zycbt030-v_belnr and
bukrs = wa_zycbt005-bukrs and
gjahr = v_gjahr.
endif.
perform verifica_prorrogacao.
itab_zycbe033-zbd1t = v_zbd1t.
* >> Início da inclusão: FORM FILL_DATE6_F30_CLIENTE
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
if itab_zycbe033-wrbtr gt 0.
append itab_zycbe033.
endif.
itab_zycbt036-tcode = itab_zycbe033-tcode.
itab_zycbt036-tabela = itab_zycbe033-tabela.
itab_zycbt036-cpochv = itab_zycbe033-cpochv.
itab_zycbt036-residuo = itab_zycbe033-wrbtr.
itab_zycbt036-zuonr = itab_zycbe033-d_zuonr.
append itab_zycbt036.
itab_doctos-tcode = itab_zycbe033-tcode.
...
...
period_in_not_valid = 4
period_not_assigned = 5
version_undefined = 6
others = 7.
select single * from bkpf
where bukrs = itab_zycbt006-bukrs
and belnr = itab_zycbt036-belnr
and gjahr = v_year.
itab_zycbt036-dtdocto = bkpf-budat.
append itab_zycbt036.
* >> Início da inclusão: FORM FILL_DATE6_F30_CP
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
endform.
form fill_date6_f30_liquid.
concatenate wa_zycbt005-nrseqc wa_zycbt005-tpdesp
wa_zycbt005-nrparc wa_zycbt005-dtincl
wa_zycbt005-nrinvoic wa_zycbt005-gsberf
wa_zycbt005-nrparcf
wa_zycbt005-dtvincul wa_zycbt005-dtvencto
itab_zycbt030-budat itab_zycbt030-vbeln
itab_zycbt030-belnr into v_cpochv.
...
...
into itab_partidas-d_zuonr
separated by space.
itab_partidas-v_sinal = '-'.
append itab_partidas.
endloop.
if not itab_partidas[] is initial.
itab_zycbe033-agkon = itab_zycbt017-kunag.
clear itab_zycbe033-umskz.
itab_zycbe033-agkoa = 'D'.
endif.
* >> Início da inclusão: FORM FILL_DATE6_F30_LIQUID
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
loop at itab_zycbt209 where nrinvoic = wa_zycbt005-nrinvoic and
gsberf = wa_zycbt005-gsberf and
nrparcf = wa_zycbt005-nrparcf and
baixa = 'X'.
itab_partidas-tcode = itab_zycbe033-tcode.
itab_partidas-tabela = itab_zycbe033-tabela.
itab_partidas-cpochv = itab_zycbe033-cpochv.
itab_partidas-belnr = itab_zycbt209-belnr_d.
itab_partidas-dtdocto = itab_zycbt209-budat_d.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F09
...
itab_zycbe033-d_newko = itab_zyglt316-konth.
else.
clear itab_zycbe033-newbs.
endif.
if not v_desmembramento is initial.
itab_zycbt036-dtdocto = itab_zycbt030-budat.
clear itab_zycbe033-c_zuonr.
else.
itab_zycbt036-dtdocto = itab_zycbt030-budat.
endif.
* >> Início da inclusão: FORM FILL_DATE6_F30_2
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
endform.
form verifica_data_arb.
if wa_zycbt007-dtliquid = 'DTEMB'.
select single * from /pws/zycbt017
where nrinvoic eq wa_zycbt005-nrinvoic
and gsberf eq wa_zycbt005-gsberf
and nrparcf eq wa_zycbt005-nrparcf.
v_databl = /pws/zycbt017-dtbl.
else.
...
...
codaux = ''.
itab_zycbe033-d_newko = itab_zycbt012_aux-saknr1.
if v_variacao < 0.
itab_zycbe033-newbs = '50'.
elseif v_variacao > 0.
itab_zycbe033-newbs = '40'.
else.
clear itab_zycbe033-newbs.
endif.
clear itab_zycbe033-flag_nc.
* >> Início da inclusão: FORM FILL_DATE6_F22_ARBITR
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
endform.
form calcula_diferenca_reais_estorn.
clear knb1.
select single akont from knb1
into knb1-akont
where kunnr eq itab_zycbe033-agkon
and bukrs eq wa_zycbt005-bukrs.
clear skb1.
select single xsalh from skb1
...
...
perform verify_null_field using wa_zycbt005-bukrs
'BUKRS'
text-004.
itab_zycbe033-bukrs = wa_zycbt005-bukrs.
perform verify_null_field using wa_zycbt011-blart
'BLART'
text-006.
itab_zycbe033-blart = wa_zycbt011-blart.
itab_zycbe033-c_gsber = wa_zycbt005-gsberf.
itab_zycbe033-d_gsber = wa_zycbt005-gsberf.
* >> Início da inclusão: FORM FILL_DATE6_F30_B
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
endform.
form clearing_ace.
perform clear_date_batch.
clear itab_zycbt036.
refresh itab_zycbt036.
if /pws/zycbe001-tpcontr(01) = 'C'.
if v_nrdias > 360.
v_prazo = 'L'.
else.
...
...
if /pws/zycbt089-tx_cl_cli eq 'VIATRANS' and
itab_zycbe033-kursf is initial.
perform verify_null_field using itab_zycbe033-kursf
'KURSF'
text-080.
endif.
itab_zycbe033-d_newko = p_kunnr.
itab_zycbe033-koart = 'D'.
itab_zycbe033-belnr = itab_vinc-belnr.
itab_zycbe033-dtdocto = p_datum.
* >> Início da inclusão: FORM CLEARING_CLI2
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
itab_zycbt036-tcode = itab_zycbe033-tcode.
itab_zycbt036-cpochv = itab_zycbe033-cpochv.
itab_zycbt036-tabela = itab_zycbe033-tabela.
itab_zycbt036-belnr = itab_vinc-belnr.
itab_zycbt036-dtdocto = p_datum.
append itab_zycbt036.
itab_zycbt036-tcode = itab_zycbe033-tcode.
itab_zycbt036-cpochv = itab_zycbe033-cpochv.
itab_zycbt036-tabela = itab_zycbe033-tabela.
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM DESMEMBRA_VINC
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
if itab_zycbe033-wrbtr gt 0.
append itab_zycbe033.
endif.
loop at itab_zycbt034.
message i016 with itab_zycbt034-descricao.
endloop.
if itab_zycbt034 is initial.
if not itab_zycbe224 is initial.
perform unlock_cliente
using itab_zycbe033-d_newko itab_zycbe033-bukrs.
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM BAIXA_CLIENTE
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
if itab_zycbe033-wrbtr gt 0.
append itab_zycbe033.
endif.
loop at itab_zycbt034.
message i016 with itab_zycbt034-descricao.
endloop.
if itab_zycbt034 is initial.
if not itab_zycbe224 is initial.
perform unlock_cliente
using itab_zycbe033-d_newko itab_zycbe033-bukrs.
...
...
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform verifica_pais_filial using /pws/zycbe001-bukrs
/pws/zycbe005-j_1bbranch.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe001-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM LANCA_CLIENTE
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
call customer-function '003'
tables
t_dados = itab_zycbe033.
append itab_zycbe033.
loop at itab_zycbt034.
message i016 with itab_zycbt034-descricao.
endloop.
if itab_zycbt034[] is initial.
if not itab_zycbe224 is initial.
perform unlock_cliente
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM EXECUTA_CLEARING
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
itab_zycbt036-tcode = itab_zycbe033-tcode.
itab_zycbt036-cpochv = itab_zycbe033-cpochv.
itab_zycbt036-tabela = itab_zycbe033-tabela.
itab_zycbt036-belnr = itab_zycbt030-belnr6.
itab_zycbt036-dtdocto = itab_zycbt030-budat.
append itab_zycbt036.
itab_zycbt036-tcode = itab_zycbe033-tcode.
itab_zycbt036-cpochv = itab_zycbe033-cpochv.
itab_zycbt036-tabela = itab_zycbe033-tabela.
...
...
if itab_zycbe033-wrbtr gt v_saldo.
itab_zycbe033-wrbtr = v_saldo.
clear itab_zycbt030-vlsltrans_d.
modify itab_zycbt030.
else.
itab_zycbt030-vlsltrans_d = itab_zycbt030-vlsltrans -
itab_zycbe033-wrbtr.
endif.
itab_zycbt030-vlslliq_d = itab_zycbt030-vlslliq + itab_zycbe033-wrbtr.
modify itab_zycbt030.
* >> Início da inclusão: FORM DESMEMBRA_VINC2
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
if itab_zycbe033-wrbtr gt 0.
append itab_zycbe033.
endif.
loop at itab_zycbt034.
message i016 with itab_zycbt034-descricao.
endloop.
if itab_zycbt034 is initial.
call function '/PWS/ZYCB_TRANSACAO_F_30_D'
exporting
v_modo = v_modo_bi
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM FILL_DATE_F02
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
endform.
form grava_cco.
loop at itab_zycbt002j where dtfinal gt itab_zycbt005-dtvincul and
dtinicio le itab_zycbt005-dtvincul.
/pws/zycbt004-aufnr = itab_zycbt002j-aufnr.
/pws/zycbt004-kostl = itab_zycbt002j-kostl.
/pws/zycbt004-prctr = itab_zycbt002j-prctr.
/pws/zycbt004-ps_posid = itab_zycbt002j-ps_posid.
/pws/zycbt004-fipos = itab_zycbt002j-fipos.
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM DESMEMBRA_LIQ_AND_CP
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
clear itab_zyglt100.
if itab_zyglt100[] is initial.
v_syrepid = sy-repid.
call function '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
exporting
i_codmod = 'E'
i_func = v_syrepid
tables
itab_zyglt100 = itab_zyglt100
exceptions
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM LANCAMENTO_CLIENTE
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = 'ZYCBT050'.
concatenate /pws/zycbe050-nrseqc /pws/zycbe050-tpdesp
/pws/zycbe050-nrparc /pws/zycbe050-dtincl
/pws/zycbe050-nrinvoic /pws/zycbe050-gsberf
/pws/zycbe050-nrparcf
/pws/zycbe050-dtvincul /pws/zycbe050-dtvencto
into v_cpochv.
itab_zycbt036-cpochv = v_cpochv.
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM DESMEMBRA_DESC_RECEB
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
loop at itab_zycbt034.
message i016 with itab_zycbt034-descricao.
endloop.
if itab_zycbt034 is initial.
call function '/PWS/ZYCB_TRANSACAO_F_30_P'
exporting
v_modo = v_modo_bi
v_vinc_tot = 'X'
tables
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM DESMEMBRA_ACE_RECEB
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
v_desmembramento = 'X'.
loop at itab_zycbt034.
message i016 with itab_zycbt034-descricao.
endloop.
if itab_zycbt034[] is initial.
call function '/PWS/ZYCB_TRANSACAO_F_30_P'
exporting
v_modo = v_modo_bi
v_vinc_tot = 'X'
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM BAIXA_ACE_RECEBIVEIS
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
if sy-subrc eq 0.
sort itab_partidas by agkoa agkon agums belnr.
endif.
loop at itab_zycbt034.
message i016 with itab_zycbt034-descricao.
endloop.
if itab_zycbt034 is initial.
call function '/PWS/ZYCB_TRANSACAO_F_30_W'
exporting
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM EST_DESC_RECEBIVEIS
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
call customer-function '003'
tables
t_dados = itab_zycbe033.
append itab_zycbe033.
endloop.
clear v_desm_ok.
check sy-subrc eq 0.
loop at itab_zycbt034.
message i016 with itab_zycbt034-descricao.
endloop.
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM CLEARING_DESC_RECEB
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
clear itab_zycbt036.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = '/PWS/ZYCBT005'.
itab_zycbt036-cpochv = v_cpochv.
itab_zycbt036-belnr = itab_zycbt219-belnr2.
clear v_year.
call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
exporting
v_bukrs = itab_vinc-bukrs
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM CLEARING_ACE_RECEB
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
clear itab_zycbt036.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = '/PWS/ZYCBT005'.
itab_zycbt036-cpochv = v_cpochv.
itab_zycbt036-belnr = /pws/zycbe001-belnr2.
case /pws/zycbe001-fdtlanc.
when 'O'.
itab_zycbt036-dtdocto = /pws/zycbe001-dtcontr.
when 'D'.
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM FILL_DATE1_F30_DESM_RZE
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
loop at itab_zycbt005
where flag = p_flag.
itab_zycbt036-tcode = text-041.
itab_zycbt036-tabela = text-002.
concatenate /pws/zycbe005-nrseqc /pws/zycbe005-tpdesp
/pws/zycbe005-nrparc /pws/zycbe005-dtincl
/pws/zycbe005-nrinvoic /pws/zycbe005-gsber
/pws/zycbe005-nrparcf
/pws/zycbe005-dtvincul /pws/zycbe005-dtvencto
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using /pws/zycbe005-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using /pws/zycbe005-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM DESMEMBRA_ACE2
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
itab_zycbt036-tcode = text-041.
itab_zycbt036-tabela = text-002.
concatenate /pws/zycbe005-nrseqc /pws/zycbe005-tpdesp
/pws/zycbe005-nrparc /pws/zycbe005-dtincl
/pws/zycbe005-nrinvoic /pws/zycbe005-gsber
/pws/zycbe005-nrparcf
/pws/zycbe005-dtvincul /pws/zycbe005-dtvencto
into v_cpochv.
itab_zycbt036-cpochv = v_cpochv.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F10
...
endif.
perform preenche_dados_contabilizacao.
perform get_param_002_cont_erro.
if v_doc_f02 is initial.
if p_valor ge itab_zycbt002e-slvinc.
itab_zycbe033-newbs = '40'.
else.
itab_zycbe033-newbs = '50'.
endif.
endif.
* >> Início da inclusão: FORM EXECUTA_CONTABILIZACAO
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
perform preenche_itab_zycbt036.
if not itab_zycbe033-agkon is initial.
perform enqueue_dequeue_contas
using
'D'
'S'
itab_zycbe033-bukrs
v_conta.
else.
...
...
itab_zycbt005-baixa_cli = ' ' ) or
( itab_zycbt005-tpcontr(1) = 'D' and
wa_zycbt089-f_cont_vinc = 'A' ).
perform busca_taxa_contabil using 'tx_desm_acc'.
elseif ( wa_zycbt089-bx_cli_vinc = 'X' and
itab_zycbt005-baixa_cli = 'X' ).
perform busca_taxa_contabil using 'tx_desm_cli'.
endif.
perform: preenche_dados_contabilizacao,
get_param_002_cont_erro.
* >> Início da inclusão: FORM CLEARING_EST_ERRO
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
if ( wa_zycbt089-bx_cli_vinc = 'X' and
itab_zycbt005-baixa_cli = 'X' ) or
( itab_zycbt005-tpcontr(1) = 'D' ).
perform enqueue_dequeue_contas
using
'D'
'D'
itab_zycbe033-bukrs
itab_zycbe033-d_newko.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009I01
...
authority-check object 'S_TCODE' id 'TCD' field '/PWS/ZYCB001_E'
.
if sy-subrc eq 0.
set parameter id '/PWS/ZYCBP019' field v_valor.
call transaction '/PWS/ZYCB001_E' and skip first screen .
else.
message e261(sf) with '/PWS/ZYCB001_E'.
endif.
endif.
when 'SAVE'.
* >> Início da inclusão: MODULE USER_COMMAND_0100
if not /pws/zycbe006-dtpagext is initial
and not itab_zycbt005[] is initial
and ( itab_zycbt005-tpcontr(1) eq 'P'
or itab_zycbt005-tpcontr(1) eq 'S' ).
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
defaultoption = 'Y'
textline1 = text-511
textline2 = text-512
titel = text-510
cancel_display = ' '
IMPORTING
answer = v_resposta.
IF v_resposta NE 'J'.
EXIT.
ENDIF.
ENDIF.
* << Fim da inclusão
read table itab_zyglt100 with key zexit = 'VNC002' binary search.
if sy-subrc eq 0.
if not itab_zyglt100-zexit_ativa is initial.
perform (itab_zyglt100-formulario)
in program (itab_zyglt100-programa)
using ok_code
changing e_subrc.
if e_subrc ne 0.
exit.
endif.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB009
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 510
Texto: (10 caracteres)
"Informação"
Comprimento máximo: 10
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 511
Texto: (55 caracteres)
"Ao preencher a data de pagamento no exterior, o sistema"
Comprimento máximo: 55
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 512
Texto: (46 caracteres)
"Deduz juros automaticamente. Deseja continuar?"
Comprimento máximo: 46