CE PLUS - Nota 010204
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 27/05/2010 00:00:00
Data/Hora Última Alteração: 22/02/2011 11:55:51
Descrição da Nota: LIQUIDAÇÃO - PREENCHIMENTO DO CAMPO SOCIEDADE PARCEIRA.
Sintoma
A funcionalidade de liquidaçã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 liquidaçã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 liquidações.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10204 Data: 27/05/2010 Hora: 13:56:39
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10204
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
01161 - 00001 - 6.0 - 00023 - PREENCHIMENTO DO CAMPO DATA EFETIVA VALUT NA LIQUIDAÇÃO DE FATURA
01666 - 00002 - 6.0 - 00024 - INSERIDAS EXIT¿S PARA TRATAMENTO ESPECIFICO NAS F-30 DA VINCULAÇÃ
03193 - 00003 - 6.0 - 00026 - LIQUIDAÇÃO - CAMPO BUDAT NAS TABELAS INTERNAS BSAS E BSAD.
03208 - 00004 - 6.0 - 00026 - LIQUIDAÇÃO (JUROS) - DATA DE CORTE ACC E ACE
03220 - 00005 - 6.0 - 00026 - CRIAÇÃO DAS EXIT¿S LIQ022 E LIQ023
03233 - 00006 - 6.0 - 00026 - LIQUIDAÇÃO - PRRENCHIMENTO DO CAMPO ATRIBUIÇÃO DESMEMBRAMENTO DE
03241 - 00007 - 6.0 - 00026 - LIQUIDAÇÃO - CAMPO BUDAT NAS TABELAS BSAD E BSAS
03291 - 00008 - 6.0 - 00026 - LIQUIDAÇÃO - EXIT LIQ024
03538 - 00009 - 7.0 - 00001 - VINCULAÇÃO - LIQUIDAÇÃO CAMBIO PRONTO
03678 - 00010 - 7.0 - 00001 - LIQUIDAÇÃO - DA - CHECK DOS DOCUMENTOS - ESTORNO DAS FATURAS
03776 - 00011 - 7.0 - 00001 - LIQUIDAÇÃO - DATA PAGAMENTO NO EXTERIOR
04148 - 00012 - 7.0 - 00002 - VINCULAÇÃO - ACE DESCONTO DE RECEBIVEIS - CAMPO DIVISÃO GSBERF
04693 - 00013 - 7.0 - 00002 - LIQUIDAÇÃO COM ARBITRAGEM- DOCUMENTO DE PROVISÃO NA MOEDA DO CONT
04862 - 00014 - 7.0 - 00003 - DA LIQUIDAÇÃO - COMPENSAÇÃO AUTOMÁTICA CONTA CORRENTE ME
05486 - 00015 - 7.0 - 00003 - SELECIONAR RECURSO PARA LIQUIDAÇÃO DE FATURAS
05502 - 00016 - 7.0 - 00004 - LIQUIDAÇÃO DE CONTRATO
05666 - 00017 - 7.0 - 00004 - LIQUIDAÇÃO DE FATURAS
05722 - 00018 - 7.0 - 00004 - LIQUIDAÇÃO - INCLUSÃO PONTO DE EXIT LIQ027 - DESMEMBRA LIQ. ANDAM
05897 - 00019 - 7.0 - 00004 - LIQUIDAÇÃO - BOTÃO MARCAR/DESMARCAR - BLOQUEIO DE CONTAS
06010 - 00020 - 7.0 - 00004 - LIQUIDAÇÃO - EXIT LIQ028
06287 - 00021 - 7.0 - 00005 - LIQUIDAÇÃO DE FATURAS COMISSÃO DE AGENTE
06351 - 00022 - 7.0 - 00005 - LIQUIDAÇÃO - CHAVE DE REFERÊNCIA DESMEMBRAMENTO CLIENTE F-30
06615 - 00023 - 7.0 - 00005 - LIQUIDAÇÃO - TRADUÇÃO TEXTOS 253 254 255
06914 - 00024 - 7.0 - 00006 - LIQUIDAÇÃO - TAXAS CONTÁBEIS DE ACORDO COM /PWS/ZYGL007
07078 - 00025 - 7.0 - 00006 - LIQUIDAÇÃO - DUMP DIVISÃO POR ZERO - /PWS/ZYCBT030-KWERT
07760 - 00026 - 7.0 - 00007 - DA-LIQUIDAÇÃO E VINCULAÇÃO LIQ. AUTOMÁT - NORMAL/ARBITRAGEM/PERFO
07821 - 00027 - 7.0 - 00008 - LIQUIDAÇÃO - DESMEMBRAMENTO LIQUIDAÇÃO EM ANDAMENTO PARCIAL-ZFBDT
07836 - 00028 - 7.0 - 00008 - LIQUIDAÇÃO - PONTO DE EXIT LIQ030 - AJUSTE PONTO DE EXIT LIQ023
08164 - 00029 - 7.0 - 00008 - DA - DATA CREDITO NO EXTERIOR NA VINCULAÇÃO- PRÉ-PAGAMENTO SECURI
08239 - 00030 - 7.0 - 00009 - VALORES MANTIDOS NO EXTERIOR E LIQUIDAÇÃO - COMISSÃO DE AGENTE
08536 - 00031 - 7.0 - 00009 - DA-VINCULAÇÃO/LIQUIDAÇÃO-OTIMIZAÇÃO-BUSCA TAXAS/TIPO DOCTO. POR C
08909 - 00032 - 7.0 - 00010 - VINCULAÇÃO/LIQUIDAÇÃO - ESTORNO PERÍODO FECHADO - DP - RAZÃO ESPE
08954 - 00033 - 7.0 - 00010 - CAPTAÇÃO - DA - INCLUSAO DE CAMPOS NA PASTA DADOS ADICIONAIS
09055 - 00034 - 8.0 - 00001 - CODE INSPECTOR - CAMBIO EXPORTAÇÃO
09747 - 00036 - 8.0 - 00002 - LIQUIDAÇÃO - TOTAL FATURA/CONTRATO - ERRO COMPENSAÇÃO CONTRATO F-
09941 - 00035 - 8.0 - 00002 - LIQUIDAÇÃO PARCIAL E DEPOIS RESTANTE DO SALDO-CONTABILIZAÇÃO E AT
10084 - 00037 - 8.0 - 00003 - VINC/LIQ CP 2 FATS. ERRO CONTA BLOQUEADA NA SEGUNDA FAT-NÃO SALVA
10188 - 00038 - 8.0 - 00003 - MAPEAMENTO SOCIEDADE PARCEIRA NAS CONTABILIZAÇÕES
10191 - 00039 - 8.0 - 00003 - CAPTAÇÃO, PREENCHIMENTO SOCIEDADE PARCEIRA NA CONTABILIZAÇÃO
10203 - 00040 - 8.0 - 00003 - SOCIEDADE PARCEIRA LIQUIDAÇÃO EM ANDAMENTO
10206 - 00041 - 8.0 - 00003 - SOCIEDADE PARCEIRA DESCONTO DE RECEBÍVEIS
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO - PREENCHIMENTO DO CAMPO SOCIEDADE PARCEIRA.
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO - PREENCHIMENTO DO CAMPO SOCIEDADE PARCEIRA.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F01
REPS /PWS/MZYCB004F02
REPS /PWS/MZYCB004F03
REPS /PWS/MZYCB004I01
REPS /PWS/MZYCB004TOP
REPT /PWS/SAPMZYCB004
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F01
...
endif.
when 'XBLNR'.
if itab_zyglt321-cpocb = 'NRSEQ' or
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-xblnr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-xblnr = itab_zyglt321-descr.
* >> Início da inclusão: FORM FILL_DATE6_F28
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZFBDT'.
if itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
elseif itab_zyglt321-cpocb = 'DTINCL'.
select single dtincl from /pws/zycet001
into itab_zycbe033-zfbdt
where nrseq = itab_zycbt006-nrinvoic.
elseif itab_zyglt321-cpocb = 'DTEMB'.
select single dtemb from /pws/zycet001
...
...
itab_zycbe033-c_valut = itab_zycbt006-dtvencto.
endif.
when 'ZUONR'.
if itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb = 'NRSEQ'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
* >> Início da inclusão: FORM FILL_DATE6_F28
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
endcase.
endloop.
perform get_parameters_003.
call customer-function '004'
importing
...
...
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
else.
itab_zycbe033-augtx = itab_zycbt006-txtinf.
itab_zycbe033-d_sgtxt = itab_zycbt006-txtinf.
itab_zycbe033-c_sgtxt = itab_zycbt006-txtinf.
endif.
endif.
perform get_parameters_002 using '+'.
modify itab_zycbt006 transporting agkon.
* >> Início da inclusão: FORM FILL_DATE6_F28
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
if itab_zycbe033-wrbtr gt 0.
append itab_zycbe033.
endif.
endform.
form fill_date6_f30_a.
itab_zycbe033a-tcode = 'F-30'.
itab_zycbe033a-tabela = '/PWS/ZYCBT006'.
concatenate itab_zycbt006-nrseqc itab_zycbt006-tpdesp
itab_zycbt006-nrparc itab_zycbt006-dtincl
itab_zycbt006-nrinvoic
...
...
endif.
when 'XBLNR'.
if itab_zyglt321-cpocb = 'NRSEQ' or
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-xblnr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-xblnr = itab_zyglt321-descr.
* >> Início da inclusão: FORM FILL_DATE6_F30_A
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZFBDT'.
if itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
elseif itab_zyglt321-cpocb = 'DTINCL'.
select single dtincl from /pws/zycet001
into itab_zycbe033-zfbdt
where nrseq = itab_zycbt006-nrinvoic.
elseif itab_zyglt321-cpocb = 'DTEMB'.
select single dtemb from /pws/zycet001
...
...
itab_zycbe033-c_valut = itab_zycbt006-dtvencto.
endif.
when 'ZUONR'.
if itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb = 'NRSEQ'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
* >> Início da inclusão: FORM FILL_DATE6_F30_A
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
endcase.
endloop.
perform get_parameters_003_a.
itab_zycbe033a-agkoa = 'D'.
itab_zycbe033a-newbs = '50'.
...
...
else.
itab_zycbe033a-augtx = itab_zycbt006-txtinf.
itab_zycbe033a-d_sgtxt = itab_zycbt006-txtinf.
itab_zycbe033a-c_sgtxt = itab_zycbt006-txtinf.
endif.
endif.
perform get_parameters_002 using '+'.
perform verify_null_field using itab_zycbe033-d_newko
'KONTO'
text-010.
* >> Início da inclusão: FORM FILL_DATE6_F30_A
itab_zycbe033a-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
if itab_zycbe033a-wrbtr gt 0.
append itab_zycbe033a.
endif.
endform.
form get_parameters_001.
clear wa_zycbt007.
select single * from /pws/zycbt007
into wa_zycbt007
where bukrs eq /pws/zycbe005-bukrs.
refresh itab_zycbt013.
...
...
endif.
when 'XBLNR'.
if itab_zyglt321-cpocb = 'NRSEQ' or
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-xblnr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-xblnr = itab_zyglt321-descr.
* >> Início da inclusão: FORM FILL_DATE6_F22
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZFBDT'.
if itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
elseif itab_zyglt321-cpocb = 'DTINCL'.
select single dtincl from /pws/zycet001
into itab_zycbe033-zfbdt
where nrseq = itab_zycbt006-nrinvoic.
elseif itab_zyglt321-cpocb = 'DTEMB'.
select single dtemb from /pws/zycet001
...
...
itab_zycbe033-c_valut = itab_zycbt006-dtvencto.
endif.
when 'ZUONR'.
if itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb = 'NRSEQ'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
* >> Início da inclusão: FORM FILL_DATE6_F22
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
endcase.
endloop.
perform get_parameters_002 using v_sinal.
perform determina_periodo using itab_zycbt006-dtpagto
itab_zycbt006-bukrs
...
...
itab_zycbt006-dtpagto
itab_zycbt012-saknr1
changing itab_zycbe033-budat.
if wa_zycbt007-fdtdoc = 'D'.
itab_zycbe033-bldat = sy-datum.
else.
itab_zycbe033-bldat = itab_zycbe033-budat.
endif.
itab_zycbt006-agkon = itab_zycbt012-saknr1.
modify itab_zycbt006 transporting agkon.
* >> Início da inclusão: FORM FILL_DATE6_F22
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
endform.
form define_cambio using value(p_data)
value(p_moedae)
value(p_moedal)
p_kursf.
select single codpadr kurst
into (wa_zycbt009-codpadr, wa_zycbt009-kurst)
from /pws/zycbt009
where codpadr = wa_zycbt011-ctmoed.
...
...
endif.
when 'XBLNR'.
if itab_zyglt321-cpocb = 'NRSEQ' or
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-xblnr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-xblnr = itab_zyglt321-descr.
* >> Início da inclusão: FORM FILL_DATE6_F30
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZFBDT'.
if itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
elseif itab_zyglt321-cpocb = 'DTINCL'.
select single dtincl from /pws/zycet001
into itab_zycbe033-zfbdt
where nrseq = itab_zycbt006-nrinvoic.
elseif itab_zyglt321-cpocb = 'DTEMB'.
select single dtemb from /pws/zycet001
...
...
itab_zycbe033-c_valut = itab_zycbt006-dtvencto.
endif.
when 'ZUONR'.
if itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb = 'NRSEQ'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
* >> Início da inclusão: FORM FILL_DATE6_F30
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
endcase.
endloop.
perform get_parameters_003.
call customer-function '004'
importing
...
...
itab_zycbe033-tcode = 'F-51'.
itab_zycbe033-koart = 'S'.
clear: itab_zycbe033-awtyp,
itab_zycbe033-kursf.
perform calcula_montante.
endif.
itab_zycbe033-d_prctr = /pws/zycbe001-prctr.
itab_zycbe033-c_prctr = /pws/zycbe001-prctr.
itab_zycbe033-d_kostl = /pws/zycbe001-kostl.
itab_zycbe033-c_kostl = /pws/zycbe001-kostl.
* >> Início da inclusão: FORM FILL_DATE6_F30
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
endform.
form clearing_agkon.
perform clear_date_batch.
clear itab_zycbt036.
refresh itab_zycbt036.
if icc_ eq 'X'.
itab_zycbe033-agkoa = 'D'.
itab_zycbe033-agkon = conta_.
perform verify_null_field using conta_
...
...
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.
...
...
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 itab_zycbt006-v_status ne 'E'.
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'
...
...
endif.
else.
if itab_aux-flag <> 'X'.
itab_zycbe033-newbs = '01'.
itab_zycbe033-newbs1 = '50'.
else.
itab_zycbe033-newbs = '11'.
itab_zycbe033-newbs1 = '40'.
endif.
endif.
* >> Início da inclusão: FORM FILL_DATE6_F22_COMISSAO
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_22B'
exporting
v_modo = v_modo_bi
tables
t_dados = itab_zycbe033
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using itab_zycbt006-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using itab_zycbt006-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM EXECUTA_CLEARING_CLIENTE
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-belnr = itab_aux-belnr6.
clear v_year.
call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
exporting
v_bukrs = itab_zycbt006-bukrs
v_date = itab_aux-budat
...
...
endif.
when 'XBLNR'.
if itab_zyglt321-cpocb = 'NRSEQ' or
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-xblnr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-xblnr = itab_zyglt321-descr.
* >> Início da inclusão: FORM FILL_DATE6_F30_B
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZFBDT'.
if itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
elseif itab_zyglt321-cpocb = 'DTINCL'.
select single dtincl from /pws/zycet001
into itab_zycbe033-zfbdt
where nrseq = itab_zycbt006-nrinvoic.
elseif itab_zyglt321-cpocb = 'DTEMB'.
select single dtemb from /pws/zycet001
...
...
itab_zycbe033-c_valut = itab_zycbt006-dtvencto.
endif.
when 'ZUONR'.
if itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb = 'NRSEQ'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
* >> Início da inclusão: FORM FILL_DATE6_F30_B
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
endcase.
endloop.
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
perform verify_null_field using itab_zycbt006-bukrs
'BUKRS'
...
...
itab_zycbe033-blart = wa_zycbt011_d-blart.
else.
perform verify_null_field using wa_zycbt011-blart
'BLART'
text-006.
itab_zycbe033-blart = wa_zycbt011-blart.
endif.
itab_zycbe033-c_gsber = itab_zycbt006-gsberf.
itab_zycbe033-d_gsber = itab_zycbt006-gsberf.
perform verifica_prorrogacao_est.
* >> 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 determina_periodo using p_budat
p_bukrs
changing p_monat.
data: v_periodo2 type bkpf-monat.
call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
exporting
v_bukrs = /pws/zycbe001-bukrs
v_date = p_budat
...
...
endif.
when 'XBLNR'.
if itab_zyglt321-cpocb = 'NRSEQ' or
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-xblnr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-xblnr = itab_zyglt321-descr.
* >> Início da inclusão: FORM FILL_DATE6_F30_ACE
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZFBDT'.
if itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
elseif itab_zyglt321-cpocb = 'DTINCL'.
select single dtincl from /pws/zycet001
into itab_zycbe033-zfbdt
where nrseq = itab_zycbt006-nrinvoic.
elseif itab_zyglt321-cpocb = 'DTEMB'.
select single dtemb from /pws/zycet001
...
...
itab_zycbe033-d_valut = itab_zycbt006-dtvencto.
endif.
when 'ZUONR'.
if itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb = 'NRSEQ'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
* >> Início da inclusão: FORM FILL_DATE6_F30_ACE
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
endcase.
endloop.
perform get_parameters_003_ace.
clear v_year.
call function '/PWS/ZYGL_OBTEM_ANO_CONTABIL'
...
...
shkzg = 'H'.
v_wrbtr = v_wrbtr + v_wrbtr1.
endloop.
if v_wrbtr eq itab_zycbe033-wrbtr.
v_vinc_tot = 'X'.
endif.
itab_zycbe033-d_prctr = /pws/zycbe001-prctr.
itab_zycbe033-c_prctr = /pws/zycbe001-prctr.
itab_zycbe033-d_kostl = /pws/zycbe001-kostl.
itab_zycbe033-c_kostl = /pws/zycbe001-kostl.
* >> Início da inclusão: FORM FILL_DATE6_F30_ACE
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
endform.
form fill_date6_f30_cliente.
data:
v_gjahr like t001b-frye1 ,
v_wrbtr like bsid-wrbtr .
perform clear_date_batch.
clear itab_doctos.
refresh itab_doctos.
concatenate itab_zycbt006-nrseqc itab_zycbt006-tpdesp
...
...
endif.
when 'XBLNR'.
if itab_zyglt321-cpocb = 'NRSEQ' or
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-xblnr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-xblnr = itab_zyglt321-descr.
* >> Início da inclusão: FORM FILL_DATE6_F30_CLIENTE
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZFBDT'.
if itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
elseif itab_zyglt321-cpocb = 'DTINCL'.
select single dtincl from /pws/zycet001
into itab_zycbe033-zfbdt
where nrseq = itab_zycbt006-nrinvoic.
elseif itab_zyglt321-cpocb = 'DTEMB'.
select single dtemb from /pws/zycet001
...
...
itab_zycbe033-d_valut = itab_zycbt006-dtvencto.
endif.
when 'ZUONR'.
if itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb = 'NRSEQ'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
* >> Início da inclusão: FORM FILL_DATE6_F30_CLIENTE
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
endcase.
endloop.
perform get_parameters_003.
read table itab_zycbt005 with key
nrinvoic = itab_zycbt006-nrinvoic
...
...
bukrs = itab_zycbt006-bukrs and
kunnr = itab_zycbt006-kunnr.
if sy-subrc eq 0.
select single budat
from bkpf
into itab_zycbe033-dtdocto
where belnr = itab_zycbt030-v_belnr and
bukrs = itab_zycbt006-bukrs and
gjahr = v_gjahr.
endif.
* >> Início da inclusão: FORM FILL_DATE6_F30_CLIENTE
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
perform executa_exit.
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_zycbe033-augtx = wa_zycbt011-txtdesc.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
else.
itab_zycbe033-augtx = itab_zycbt006-txtinf.
itab_zycbe033-d_sgtxt = itab_zycbt006-txtinf.
itab_zycbe033-c_sgtxt = itab_zycbt006-txtinf.
endif.
itab_zycbe033-c_gsber = itab_zycbt006-gsberf.
itab_zycbe033-d_gsber = itab_zycbt006-gsberf.
* >> Início da inclusão: FORM FILL_DATE6_F30_TRANS
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
endform.
form busca_pgto_juros using p_nrseqc
p_nrparc
p_dtvincul
p_nrinvoic
p_nrparcf
p_gsberf
p_v_dtpagto.
clear: v_dtpagto_004,
...
...
if itab_zycbt006-ftxt is initial.
itab_zycbe033b-augtx = wa_zycbt011-txtdesc.
itab_zycbe033b-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033b-c_sgtxt = wa_zycbt011-txtdesc.
else.
itab_zycbe033b-augtx = itab_zycbt006-txtinf.
itab_zycbe033b-d_sgtxt = itab_zycbt006-txtinf.
itab_zycbe033b-c_sgtxt = itab_zycbt006-txtinf.
endif.
perform get_parameters_f_02.
* >> Início da inclusão: FORM FILL_DATE6_F02
itab_zycbe033b-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033b.
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_zycbe033b
...
...
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.
...
...
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.
itab_zycbt006-agkon = itab_zycbt012-saknr1.
modify itab_zycbt006 transporting agkon.
* >> Início da inclusão: FORM FILL_DATE6_F22_T
itab_zycbe033b-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
endform.
form clear_ace_est.
data: v_flag.
loop at itab_zycbt006 where v_status eq 'A'
or v_status eq 'E'
and belnr ne ' '
and v_armda ne 'X'.
if v_flag ne 'X'.
v_flag = 'X'.
...
...
endif.
when 'XBLNR'.
if itab_zyglt321-cpocb = 'NRSEQ' or
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-xblnr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-xblnr = itab_zyglt321-descr.
* >> Início da inclusão: FORM LANCAMENTO_ESTORNO_ARBITR_3
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZFBDT'.
if itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
elseif itab_zyglt321-cpocb = 'DTINCL'.
select single dtincl from /pws/zycet001
into itab_zycbe033-zfbdt
where nrseq = itab_zycbt006-nrinvoic.
elseif itab_zyglt321-cpocb = 'DTEMB'.
select single dtemb from /pws/zycet001
...
...
itab_zycbe033-d_valut = itab_zycbt017-dtvencto.
endif.
when 'ZUONR'.
if itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb = 'NRSEQ'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
* >> Início da inclusão: FORM LANCAMENTO_ESTORNO_ARBITR_3
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
endcase.
endloop.
itab_zycbe033-d_valut = sy-datum.
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
perform verify_null_field using itab_zycbt006-bukrs
...
...
at last.
v_reais_f = v_reais_f - wa_partidas-wrbtr.
v_reais_f2 = v_reais_c - v_reais_f.
if v_reais_f2 ne v_variacao.
wa_partidas-wrbtr = v_variacao = abs( v_reais_f2 ).
move-corresponding wa_partidas to itab_partidas.
modify itab_partidas.
endif.
endat.
endloop.
* >> Início da inclusão: FORM LANCAMENTO_ESTORNO_ARBITR_3
itab_zycbe033b-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
v_tpcontabil = 'E_ARB'.
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_22G'
exporting
...
...
endif.
when 'XBLNR'.
if itab_zyglt321-cpocb = 'NRSEQ' or
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-xblnr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-xblnr = itab_zyglt321-descr.
* >> Início da inclusão: FORM FILL_DATE6_F30_LIQUID_3
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZFBDT'.
if itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
elseif itab_zyglt321-cpocb = 'DTINCL'.
select single dtincl from /pws/zycet001
into itab_zycbe033-zfbdt
where nrseq = itab_zycbt006-nrinvoic.
elseif itab_zyglt321-cpocb = 'DTEMB'.
select single dtemb from /pws/zycet001
...
...
itab_zycbe033-d_valut = itab_zycbt006-dtvencto.
endif.
when 'ZUONR'.
if itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb = 'NRSEQ'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
* >> Início da inclusão: FORM FILL_DATE6_F30_LIQUID_3
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
endcase.
endloop.
perform get_parameters_003.
itab_zycbe033-waers = itab_zycbt006-waers.
read table itab_zycbt005 with key nrinvoic = itab_zycbt006-nrinvoic
...
...
endloop.
if not itab_partidas[] is initial.
itab_zycbe033-agkon = itab_zycbt017-kunag.
clear itab_zycbe033-umskz.
itab_zycbe033-agkoa = 'D'.
endif.
itab_zycbe033-d_prctr = /pws/zycbe001-prctr.
itab_zycbe033-c_prctr = /pws/zycbe001-prctr.
itab_zycbe033-d_kostl = /pws/zycbe001-kostl.
itab_zycbe033-c_kostl = /pws/zycbe001-kostl.
* >> Início da inclusão: FORM FILL_DATE6_F30_LIQUID_3
itab_zycbe033b-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
loop at itab_zycbt209 where nrinvoic = itab_zycbt006-nrinvoic and
gsberf = itab_zycbt006-gsberf and
nrparcf = itab_zycbt006-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.
...
...
endif.
when 'XBLNR'.
if itab_zyglt321-cpocb = 'NRSEQ' or
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-xblnr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-xblnr = itab_zyglt321-descr.
* >> Início da inclusão: FORM FILL_DATE_F22_PERF
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZFBDT'.
if itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
elseif itab_zyglt321-cpocb = 'DTINCL'.
select single dtincl from /pws/zycet001
into itab_zycbe033-zfbdt
where nrseq = itab_zycbt006-nrinvoic.
elseif itab_zyglt321-cpocb = 'DTEMB'.
select single dtemb from /pws/zycet001
...
...
itab_zycbe033-d_valut = itab_zycbt017-dtvencto.
endif.
when 'ZUONR'.
if itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb = 'NRSEQ'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
* >> Início da inclusão: FORM FILL_DATE_F22_PERF
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
endcase.
endloop.
itab_zycbe033-d_valut = sy-datum.
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
perform verify_null_field using itab_zycbt006-bukrs
...
...
itab_partidas-d_sgtxt = itab_zycbt030-nrinvoic.
endif.
if itab_partidas-d_valut is initial.
itab_partidas-d_valut = sy-datum.
endif.
itab_partidas-zfbdt = itab_zycbt017-dtvencto.
itab_partidas-zterm = itab_zycbt030-zterm.
append itab_partidas.
endloop.
check not itab_partidas[] is initial.
* >> Início da inclusão: FORM FILL_DATE_F22_PERF
itab_zycbe033b-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
v_tpcontabil = 'E_PERF_CLI'.
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_02G'
exporting
...
...
endif.
when 'XBLNR'.
if itab_zyglt321-cpocb = 'NRSEQ' or
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-xblnr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-xblnr = itab_zyglt321-descr.
* >> Início da inclusão: FORM FILL_DATE_F22_ACE
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZFBDT'.
if itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
elseif itab_zyglt321-cpocb = 'DTINCL'.
select single dtincl from /pws/zycet001
into itab_zycbe033-zfbdt
where nrseq = itab_zycbt006-nrinvoic.
elseif itab_zyglt321-cpocb = 'DTEMB'.
select single dtemb from /pws/zycet001
...
...
itab_zycbe033-d_valut = itab_zycbt017-dtvencto.
endif.
when 'ZUONR'.
if itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb = 'NRSEQ'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
* >> Início da inclusão: FORM FILL_DATE_F22_ACE
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
endcase.
endloop.
itab_zycbe033-d_valut = sy-datum.
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
perform verify_null_field using /pws/zycbt001-bukrs
...
...
rules_not_found = 2
others = 3.
if sy-subrc eq 0.
read table itab_zyglt316 index 1.
itab_partidas-d_newko = itab_zyglt316-konts.
perform verify_null_field using itab_partidas-d_newko
'SAKNR'
text-010.
endif.
append itab_partidas.
* >> Início da inclusão: FORM FILL_DATE_F22_ACE
itab_zycbe033b-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
v_tpcontabil = 'E_PERF_CON'.
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_02G'
exporting
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
if sy-subrc ne 0.
v_periodo_aberto = 'X'.
endif.
endif.
endif.
perform verifica_documentos.
if v_erro_documento eq 'X'.
exit.
endif.
perform seleciona_zycbt030.
* >> Início da inclusão: FORM SELECIONA_PAGA_DOCUMENTO2
IF /pws/zyglt009-flag_soc_parceir = 'X'.
IF NOT /pws/zycbt001-vbund IS INITIAL.
IF NOT itab_zycbt219[] IS INITIAL .
CLEAR v_loop.
LOOP AT itab_zycbt219.
CHECK v_loop = 0.
IF /pws/zycbt001-vbund NE itab_zycbt219-vbund.
v_loop = v_loop + 1 .
MESSAGE i015 WITH text-462 text-463.
EXIT.
ENDIF.
ENDLOOP.
ELSEIF NOT itab_zycbt209[] IS INITIAL.
CLEAR v_loop.
LOOP AT itab_zycbt209.
CHECK v_loop = 0.
IF /pws/zycbt001-vbund NE itab_zycbt209-vbund.
v_loop = v_loop + 1 .
MESSAGE i015 WITH text-462 text-464.
EXIT.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
ENDIF.
* << Fim da inclusão
perform bloqueia_contas using itab_zycbt006[].
if v_cta_bloq eq 'S'.
exit.
endif.
if v_periodo_aberto = 'X'.
v_zycbe001 = /pws/zycbe001.
perform estorno_periodo_fechado.
else.
perform estorno_periodo_aberto.
endif.
...
...
itab_zycbe033-d_sgtxt = itab_zyglt321-descr.
itab_zycbe033-augtx = itab_zyglt321-descr.
endif.
when 'XBLNR'.
if itab_zyglt321-cpocb = 'NRSEQ' or
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-xblnr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb = 'NRINVOIC'.
* >> Início da exclusão: FORM DESMEMBRA_CLIENTE
itab_zycbe033-xblnr = itab_zycbt017-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_CLIENTE
itab_zycbe033-xblnr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-xblnr = itab_zyglt321-descr.
endif.
when 'ZFBDT'.
if itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
elseif itab_zyglt321-cpocb = 'DTINCL'.
select single dtincl from /pws/zycet001
into itab_zycbe033-zfbdt
...
...
itab_zycbe033-zfbdt = /pws/zycbe005-dtvincul.
endif.
when 'VALUT'.
if itab_zyglt321-cpocb = 'DTVENCTO'.
itab_zycbe033-d_valut = itab_zycbt017-dtvencto.
endif.
when 'ZUONR'.
if itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb = 'NRINVOIC'.
* >> Início da exclusão: FORM DESMEMBRA_CLIENTE
itab_zycbe033-d_zuonr = itab_zycbt017-nrinvoic.
* << Fim da exclusão
* >> Início da inclusão: FORM DESMEMBRA_CLIENTE
itab_zycbe033-d_zuonr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
elseif itab_zyglt321-cpocb = 'NRSEQ'
or itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb is initial and
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.
...
...
clear v_vinc_tot.
if v_wrbtr = itab_zycbe033-wrbtr or
itab_zycbt030-vlsltrans = itab_zycbe033-wrbtr.
v_vinc_tot = 'X'.
endif.
perform executa_exit.
perform verifica_prorrogacao.
if itab_zycbe033-wrbtr gt 0.
v_belnr = itab_zycbe033-belnr.
itab_zycbe033-belnr = v_belnr.
* >> Início da inclusão: FORM DESMEMBRA_CLIENTE
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
v_desmembramento = 'X'.
endif.
clear: v_tot_cliente, /pws/zycbt084.
select * from /pws/zycbt006
into /pws/zycbt006
up to 1 rows
where nrseqc = /pws/zycbe001-nrseqc
and nrinvoic = itab_zycbt006-nrinvoic
and nrparcf = itab_zycbt006-nrparcf
...
...
endif.
when 'XBLNR'.
if itab_zyglt321-cpocb = 'NRSEQ' or
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-xblnr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-xblnr = itab_zyglt321-descr.
* >> Início da inclusão: FORM DESMEMBRA_ACE
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZFBDT'.
if itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
elseif itab_zyglt321-cpocb = 'DTINCL'.
select single dtincl from /pws/zycet001
into itab_zycbe033-zfbdt
where nrseq = itab_zycbt006-nrinvoic.
elseif itab_zyglt321-cpocb = 'DTEMB'.
select single dtemb from /pws/zycet001
...
...
itab_zycbe033-d_valut = itab_zycbt017-dtvencto.
endif.
when 'ZUONR'.
if itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb = 'NRSEQ'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
* >> Início da inclusão: FORM DESMEMBRA_ACE
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
itab_zycbe033-c_zuonr = itab_zycbe033-d_zuonr.
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
endcase.
endloop.
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
perform verify_null_field
...
...
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
itab_zycbe033-werks = /pws/zycbe005-werks.
itab_zycbe033-d_fipos = itab_zycbt005-fipos.
itab_zycbe033-c_fipos = itab_zycbt005-fipos.
itab_zycbe033-d_prctr = /pws/zycbe001-prctr.
itab_zycbe033-c_prctr = /pws/zycbe001-prctr.
itab_zycbe033-d_kostl = /pws/zycbe001-kostl.
itab_zycbe033-c_kostl = /pws/zycbe001-kostl.
* >> Início da inclusão: FORM DESMEMBRA_ACE
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
perform busca_exit.
read table itab_zyglt100 with key zexit = 'LIQ013'.
if sy-subrc eq 0.
perform (itab_zyglt100-formulario)
in program (itab_zyglt100-programa).
endif.
append itab_zycbe033.
v_desmembramento = 'X'.
clear v_vinc_tot.
v_tpcontabil = 'D_CON'.
...
...
endif.
when 'XBLNR'.
if itab_zyglt321-cpocb = 'NRSEQ' or
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-xblnr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-xblnr = itab_zyglt321-descr.
* >> Início da inclusão: FORM BAIXA_CLIENTE_ACE
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZFBDT'.
if itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
elseif itab_zyglt321-cpocb = 'DTINCL'.
select single dtincl from /pws/zycet001
into itab_zycbe033-zfbdt
where nrseq = itab_zycbt006-nrinvoic.
elseif itab_zyglt321-cpocb = 'DTEMB'.
select single dtemb from /pws/zycet001
...
...
itab_zycbe033-d_valut = itab_zycbt017-dtvencto.
endif.
when 'ZUONR'.
if itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb = 'NRSEQ'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
* >> Início da inclusão: FORM BAIXA_CLIENTE_ACE
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
endcase.
endloop.
perform get_parameters_003.
itab_zycbe033-d_gsber = itab_zycbt006-gsberf.
select single dtemb kurrf_bl viatrans dtaverb dtcruze nrseq
...
...
itab_partidas-bukrs = itab_zycbe033-bukrs.
itab_partidas-shkzg = 'S'.
itab_partidas-dtdocto = itab_zycbt084-dtincl.
concatenate text-234 itab_zycbt226i-nrseq
into itab_partidas-d_zuonr
separated by space.
itab_partidas-v_sinal = '-'.
append itab_partidas.
endloop.
itab_zycbe033-werks = /pws/zycbe005-werks.
* >> Início da inclusão: FORM BAIXA_CLIENTE_ACE
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
perform busca_exit.
read table itab_zyglt100 with key zexit = 'LIQ014'.
if sy-subrc eq 0.
perform (itab_zyglt100-formulario)
in program (itab_zyglt100-programa).
endif.
append itab_zycbe033.
if sy-subrc eq 0.
sort itab_partidas by agkoa agkon agums belnr.
endif.
...
...
endif.
when 'XBLNR'.
if itab_zyglt321-cpocb = 'NRSEQ' or
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-xblnr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-xblnr = itab_zyglt321-descr.
* >> Início da inclusão: FORM ESTORNO_PERIODO_FECHADO
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZFBDT'.
if itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
elseif itab_zyglt321-cpocb = 'DTINCL'.
select single dtincl from /pws/zycet001
into itab_zycbe033-zfbdt
where nrseq = itab_zycbt006-nrinvoic.
elseif itab_zyglt321-cpocb = 'DTEMB'.
select single dtemb from /pws/zycet001
...
...
itab_zycbe033-d_valut = itab_zycbt017-dtvencto.
endif.
when 'ZUONR'.
if itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb = 'NRSEQ'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
* >> Início da inclusão: FORM ESTORNO_PERIODO_FECHADO
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
endcase.
endloop.
itab_zycbe033-d_valut = sy-datum.
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
perform verify_null_field using itab_zycbt006-bukrs
...
...
if itab_partidas-d_sgtxt is initial.
itab_partidas-d_sgtxt = itab_zycbt030-nrinvoic.
endif.
if itab_partidas-d_valut is initial.
itab_partidas-d_valut = sy-datum.
endif.
itab_partidas-zfbdt = itab_zycbt017-dtvencto.
itab_partidas-zterm = itab_zycbt030-zterm.
append itab_partidas.
endloop.
* >> Início da inclusão: FORM ESTORNO_PERIODO_FECHADO
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
v_tpcontabil = 'E_LIQ'.
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.
clear itab_zyglt100.
if itab_zyglt100[] is initial.
...
...
if itab_zyglt321-cpocb = 'NRSEQ' or
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-xblnr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt017-nrinvoic.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-xblnr = itab_zyglt321-descr.
* >> Início da inclusão: FORM CLEARING
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZFBDT'.
if itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
elseif itab_zyglt321-cpocb = 'DTINCL'.
select single dtincl from /pws/zycet001
into itab_zycbe033-zfbdt
where nrseq = itab_zycbt006-nrinvoic.
elseif itab_zyglt321-cpocb = 'DTEMB'.
select single dtemb from /pws/zycet001
...
...
when 'ZUONR'.
if itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt017-nrinvoic.
elseif itab_zyglt321-cpocb = 'NRSEQ'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
* >> Início da inclusão: FORM CLEARING
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
if itab_zycbe033-d_zuonr is initial.
itab_zycbe033-d_zuonr = itab_zycbt017-nrinvoic.
endif.
itab_zycbe033-c_zuonr = itab_zycbe033-d_zuonr.
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
endcase.
...
...
itab_zycbe033-newbs = '21'.
endif.
itab_zycbe033-belnr = p_belnr_ref.
itab_zycbe033-dtdocto = p_budat_ref.
if p_texto = text-189.
itab_zycbe033-c_prctr = /pws/zycbe001-prctr.
itab_zycbe033-d_prctr = /pws/zycbe001-prctr.
itab_zycbe033-c_kostl = /pws/zycbe001-kostl.
itab_zycbe033-d_kostl = /pws/zycbe001-kostl.
endif.
* >> Início da inclusão: FORM CLEARING
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
perform verifica_prorrogacao_est.
perform busca_exit.
read table itab_zyglt100 with key zexit = 'LIQ020'.
if sy-subrc eq 0 and
not itab_zyglt100-zexit_ativa is initial.
perform (itab_zyglt100-formulario)
in program (itab_zyglt100-programa).
endif.
append itab_zycbe033.
if p_texto = text-188.
...
...
elseif itab_zyglt321-cpocb = 'NREMB'.
itab_zycbe033-xblnr = itab_zycbt017-nremb.
elseif itab_zyglt321-cpocb = 'NRSEQ' or
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-xblnr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-xblnr = itab_zyglt321-descr.
* >> Início da inclusão: FORM CLEARING_CLI
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt017-nrinvoic.
* << Fim da inclusão
endif.
when 'ZFBDT'.
if itab_zyglt321-cpocb = 'DTINVOIC'.
itab_zycbe033-zfbdt = itab_zycbt017-dtinvoic.
elseif itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
elseif itab_zyglt321-cpocb = 'DTINCL'.
select single dtincl from /pws/zycet001
into itab_zycbe033-zfbdt
where nrseq = itab_zycbt006-nrinvoic.
...
...
itab_zycbe033-d_zuonr = itab_zycbt017-nrinvoic.
elseif itab_zyglt321-cpocb = 'NREMB'.
itab_zycbe033-d_zuonr = itab_zycbt017-nremb.
elseif itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb = 'NRSEQ'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
* >> Início da inclusão: FORM CLEARING_CLI
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt017-nrinvoic.
* << Fim da inclusão
endif.
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
endcase.
endloop.
if itab_zycbe033-d_sgtxt is initial.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
...
...
itab_zycbe033-kursf is initial.
message i061 with text-215 itab_zycbt006-nrinvoic text-216 text-217.
perform verify_null_field using itab_zycbe033-kursf
'KURSF'
text-051.
endif.
itab_zycbe033-d_newko = p_kunnr.
itab_zycbe033-koart = 'D'.
itab_zycbe033-belnr = itab_zycbt006-belnr_d.
itab_zycbe033-dtdocto = p_datum.
* >> Início da inclusão: FORM CLEARING_CLI
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_zycbt006-belnr_d.
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.
...
...
endif.
when 'XBLNR'.
if itab_zyglt321-cpocb = 'NRSEQ' or
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-xblnr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-xblnr = itab_zyglt321-descr.
* >> Início da inclusão: FORM FILL_DATE6_F22_ARBITR
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZFBDT'.
if itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
elseif itab_zyglt321-cpocb = 'DTINCL'.
select single dtincl from /pws/zycet001
into itab_zycbe033-zfbdt
where nrseq = itab_zycbt006-nrinvoic.
elseif itab_zyglt321-cpocb = 'DTEMB'.
select single dtemb from /pws/zycet001
...
...
itab_zycbe033-c_valut = itab_zycbt006-dtvencto.
endif.
when 'ZUONR'.
if itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb = 'NRSEQ'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
* >> Início da inclusão: FORM FILL_DATE6_F22_ARBITR
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
endcase.
endloop.
perform get_parameters_003_arb using v_sinal.
perform determina_periodo using itab_zycbt006-dtpagto
itab_zycbt006-bukrs
...
...
itab_zycbe033-wrbtr2 = abs( v_reais_c ).
itab_zycbe033-waers = wa_zycbt007-waersb.
perform get_parameters_002_arb using v_sinal.
if v_variacao < 0.
itab_zycbe033-newbs = '50'.
elseif v_variacao > 0.
itab_zycbe033-newbs = '40'.
else.
clear itab_zycbe033-newbs.
endif.
* >> 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: v_reais_f, v_reais_f2, v_reais_c.
read table itab_paridade
with key nrseqc = itab_zycbt006-nrseqc
tpdesp = itab_zycbt006-tpdesp
nrparc = itab_zycbt006-nrparc
dtincl = itab_zycbt006-dtincl
nrinvoic = itab_zycbt006-nrinvoic
...
...
endif.
when 'XBLNR'.
if itab_zyglt321-cpocb = 'NRSEQ' or
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-xblnr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-xblnr = itab_zyglt321-descr.
* >> Início da inclusão: FORM FILL_DATE6_F30_2
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZFBDT'.
if itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
elseif itab_zyglt321-cpocb = 'DTINCL'.
select single dtincl from /pws/zycet001
into itab_zycbe033-zfbdt
where nrseq = itab_zycbt006-nrinvoic.
elseif itab_zyglt321-cpocb = 'DTEMB'.
select single dtemb from /pws/zycet001
...
...
itab_zycbe033-d_valut = itab_zycbt006-dtvencto.
endif.
when 'ZUONR'.
if itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb = 'NRSEQ'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
* >> Início da inclusão: FORM FILL_DATE6_F30_2
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
endcase.
endloop.
call customer-function '004'
importing
v_subrc = v_retexit.
...
...
with key nrinvoic = itab_zycbt006-nrinvoic
gsberf = itab_zycbt006-gsberf
nrparcf = itab_zycbt006-nrparcf.
if sy-subrc = 0.
clear itab_zycbe033-c_zuonr.
endif.
itab_zycbe033-d_prctr = /pws/zycbe001-prctr.
itab_zycbe033-c_prctr = /pws/zycbe001-prctr.
itab_zycbe033-d_kostl = /pws/zycbe001-kostl.
itab_zycbe033-c_kostl = /pws/zycbe001-kostl.
* >> 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 move_zycbe006.
/pws/zycbe006-kostl = itab_zycbt005-kostl.
/pws/zycbe006-aufnr = itab_zycbt005-aufnr.
/pws/zycbe006-kstrg = itab_zycbt006_aux3-kstrg.
/pws/zycbe006-prctr = itab_zycbt005-prctr.
/pws/zycbe006-ps_posid = itab_zycbt005-ps_posid.
/pws/zycbe006-nplnr = itab_zycbt005-nplnr.
/pws/zycbe006-matnr = itab_zycbt005-matnr.
...
...
endif.
when 'XBLNR'.
if itab_zyglt321-cpocb = 'NRSEQ' or
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-xblnr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-xblnr = itab_zyglt321-descr.
* >> Início da inclusão: FORM DESMEMBRA_LIQ_AND
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZFBDT'.
if itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
elseif itab_zyglt321-cpocb = 'DTINCL'.
select single dtincl from /pws/zycet001
into itab_zycbe033-zfbdt
where nrseq = itab_zycbt006-nrinvoic.
elseif itab_zyglt321-cpocb = 'DTEMB'.
select single dtemb from /pws/zycet001
...
...
itab_zycbe033-d_valut = itab_zycbt017-dtvencto.
endif.
when 'ZUONR'.
if itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb = 'NRSEQ'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
* >> Início da inclusão: FORM DESMEMBRA_LIQ_AND
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
endcase.
endloop.
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
if itab_zycbt006-v_performance is initial.
perform verify_null_field using itab_zycbt006-bukrs
...
...
perform verifica_pais_filial using itab_zycbt006-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using itab_zycbt006-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
itab_zycbe033-werks = /pws/zycbe005-werks.
* >> Início da inclusão: FORM DESMEMBRA_LIQ_AND
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
perform verifica_prorrogacao.
perform busca_exit.
read table itab_zyglt100 with key zexit = 'LIQ015'.
if sy-subrc eq 0
and not itab_zyglt100-zexit_ativa is initial.
perform (itab_zyglt100-formulario)
in program (itab_zyglt100-programa).
endif.
clear v_vinc_tot.
if itab_zycbe033-wrbtr = itab_zycbt209-saldo
...
...
endif.
when 'XBLNR'.
if itab_zyglt321-cpocb = 'NRSEQ' or
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-xblnr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-xblnr = itab_zyglt321-descr.
* >> Início da inclusão: FORM CLEARING_LIQ_AND
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZFBDT'.
if itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
elseif itab_zyglt321-cpocb = 'DTINCL'.
select single dtincl from /pws/zycet001
into itab_zycbe033-zfbdt
where nrseq = itab_zycbt006-nrinvoic.
elseif itab_zyglt321-cpocb = 'DTEMB'.
select single dtemb from /pws/zycet001
...
...
itab_zycbe033-d_valut = itab_zycbt017-dtvencto.
endif.
when 'ZUONR'.
if itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb = 'NRSEQ'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
* >> Início da inclusão: FORM CLEARING_LIQ_AND
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
endcase.
endloop.
if itab_zycbt006-v_performance is initial.
perform verify_null_field using itab_zycbt006-bukrs
'BUKRS'
...
...
itab_zycbt006-waers
wa_zycbt007-waersb
itab_zycbe033-kursf.
endif.
endif.
itab_zycbe033-d_newko = itab_zycbt209-hkont.
itab_zycbe033-koart = itab_zycbt209-koart.
itab_zycbe033-agums = itab_zycbt209-umskz.
itab_zycbe033-belnr = itab_zycbt006-belnr_d.
itab_zycbe033-dtdocto = p_datum.
* >> Início da inclusão: FORM CLEARING_LIQ_AND
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_zycbt006-belnr_d.
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.
...
...
endif.
when 'XBLNR'.
if itab_zyglt321-cpocb = 'NRSEQ' or
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-xblnr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-xblnr = itab_zyglt321-descr.
* >> Início da inclusão: FORM DESM_DESC_RECEB
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZFBDT'.
if itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
elseif itab_zyglt321-cpocb = 'DTINCL'.
select single dtincl from /pws/zycet001
into itab_zycbe033-zfbdt
where nrseq = itab_zycbt006-nrinvoic.
elseif itab_zyglt321-cpocb = 'DTEMB'.
select single dtemb from /pws/zycet001
...
...
itab_zycbe033-d_valut = itab_zycbt017-dtvencto.
endif.
when 'ZUONR'.
if itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb = 'NRSEQ'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
* >> Início da inclusão: FORM DESM_DESC_RECEB
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
endcase.
endloop.
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
perform verify_null_field using itab_zycbt006-bukrs
'BUKRS'
...
...
if not /pws/zycbe005-j_1bbranch is initial.
perform verifica_pais_filial using itab_zycbt006-bukrs
/pws/zycbe005-j_1bbranch.
itab_zycbe033-brnch = /pws/zycbe005-j_1bbranch.
else.
perform local_negocio.
perform verifica_pais_filial using itab_zycbt006-bukrs
wa_t001w-j_1bbranch.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
* >> Início da inclusão: FORM DESM_DESC_RECEB
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
v_tpcontabil = 'D_CON'.
perform busca_dados_bi using itab_zycbe033-bukrs
v_tpcontabil.
clear v_tot_contrato.
select * from /pws/zycbt006
into /pws/zycbt006
up to 1 rows
where nrseqc = /pws/zycbe001-nrseqc
and nrinvoic = itab_zycbt006-nrinvoic
...
...
itab_zycbe033-d_sgtxt = /pws/zycbt001-nrcontr.
itab_zycbe033-c_sgtxt = /pws/zycbt001-nrcontr.
itab_zycbe033-augtx = /pws/zycbt001-nrcontr.
endif.
when 'XBLNR'.
if itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbt001-nrcontr.
elseif itab_zyglt321-cpocb = 'NRSEQ' or
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-xblnr = /pws/zycbt001-nrseqc.
* >> Início da inclusão: FORM F_02_PROVISAO_JUROS_DIF
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZFBDT'.
if itab_zyglt321-cpocb = 'DTCONTR'.
itab_zycbe033-zfbdt = /pws/zycbt001-dtcontr.
elseif itab_zyglt321-cpocb = 'DTCRED'.
itab_zycbe033-zfbdt = /pws/zycbt001-dtcred.
elseif itab_zyglt321-cpocb = 'DTDESEM'.
itab_zycbe033-zfbdt = /pws/zycbt001-dtdesem.
elseif itab_zyglt321-cpocb = 'DTENTR'.
itab_zycbe033-zfbdt = /pws/zycbt001-dtentr.
...
...
itab_zycbe033-c_valut = /pws/zycbt001-dt_lcto_tr.
endif.
when 'ZUONR'.
if itab_zyglt321-cpocb = 'NRSEQ' or
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_zuonr = /pws/zycbt001-nrseqc.
itab_zycbe033-c_zuonr = /pws/zycbt001-nrseqc.
elseif itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-d_zuonr = /pws/zycbt001-nrcontr.
itab_zycbe033-c_zuonr = /pws/zycbt001-nrcontr.
* >> Início da inclusão: FORM F_02_PROVISAO_JUROS_DIF
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = /pws/zycbt001-zterm.
endif.
endcase.
endloop.
* >> Início da inclusão: FORM F_02_PROVISAO_JUROS_DIF
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
...
...
endif.
when 'XBLNR'.
if itab_zyglt321-cpocb = 'NRSEQ' or
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-xblnr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-xblnr = itab_zyglt321-descr.
* >> Início da inclusão: FORM BAIXA_ACE_PERFORMANCE
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZFBDT'.
if itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
elseif itab_zyglt321-cpocb = 'DTINCL'.
select single dtincl from /pws/zycet001
into itab_zycbe033-zfbdt
where nrseq = itab_zycbt006-nrinvoic.
elseif itab_zyglt321-cpocb = 'DTEMB'.
select single dtemb from /pws/zycet001
...
...
itab_zycbe033-d_valut = itab_zycbt017-dtvencto.
endif.
when 'ZUONR'.
if itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb = 'NRSEQ'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
* >> Início da inclusão: FORM BAIXA_ACE_PERFORMANCE
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
endcase.
endloop.
perform get_parameters_003.
itab_zycbe033-d_gsber = itab_zycbt006-gsber.
itab_zycbe033-c_gsber = itab_zycbt006-gsber.
...
...
if itab_zycbt006-v_armda is initial.
itab_zycbe033-wrbtr = itab_zycbt006-vlme.
else.
read table itab_paridade with key nrinvoic = itab_zycbt006-nrinvoic
nrparcf = itab_zycbt006-nrparcf
gsberf = itab_zycbt006-gsberf.
if sy-subrc = 0.
itab_zycbe033-wrbtr = itab_paridade-v_vlme_c.
endif.
endif.
* >> Início da inclusão: FORM BAIXA_ACE_PERFORMANCE
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
move sy-repid to v_rep.
call function '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
exporting
i_codmod = v_codmod
i_func = v_rep
tables
itab_zyglt100 = itab_zyglt100
exceptions
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
...
...
endif.
when 'XBLNR'.
if itab_zyglt321-cpocb = 'NRSEQ' or
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-xblnr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-xblnr = itab_zyglt321-descr.
* >> Início da inclusão: FORM BAIXA_CLIENTE_PERFORMANCE
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZFBDT'.
if itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
elseif itab_zyglt321-cpocb = 'DTINCL'.
select single dtincl from /pws/zycet001
into itab_zycbe033-zfbdt
where nrseq = itab_zycbt005-nrinvoic.
elseif itab_zyglt321-cpocb = 'DTEMB'.
select single dtemb from /pws/zycet001
...
...
endif.
when 'ZUONR'.
if itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb = 'NRSEQ'
or itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
* >> Início da inclusão: FORM BAIXA_CLIENTE_PERFORMANCE
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
endcase.
endloop.
itab_zycbe033-bktxt = wa_zycbt007-bktxt.
perform verify_null_field using itab_zycbt017-bukrs
'BUKRS'
...
...
dtpagext = itab_zycbt006-dtpagext
dtpagto = itab_zycbt006-dtpagto
dtvencto = itab_zycbt006-dtvencto
liq_and = space
tdesmemb = 'V'.
if sy-subrc = 0.
itab_zycbe033-wrbtr = itab_zycbe033-wrbtr -
itab_zycbt084-result_saldo.
endif.
endif.
* >> Início da inclusão: FORM BAIXA_CLIENTE_PERFORMANCE
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
move sy-repid to v_rep.
call function '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'
exporting
i_codmod = v_codmod
i_func = v_rep
tables
itab_zyglt100 = itab_zyglt100
exceptions
i_codmod_nao_encontrado = 1
i_func_nao_encontrado = 2
...
...
endif.
when 'XBLNR'.
if itab_zyglt321-cpocb = 'NRSEQ' or
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-xblnr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-xblnr = itab_zyglt321-descr.
* >> Início da inclusão: FORM CLEARING_PERF
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZFBDT'.
if itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
elseif itab_zyglt321-cpocb = 'DTINCL'.
select single dtincl from /pws/zycet001
into itab_zycbe033-zfbdt
where nrseq = itab_zycbt006-nrinvoic.
elseif itab_zyglt321-cpocb = 'DTEMB'.
select single dtemb from /pws/zycet001
...
...
itab_zycbe033-d_valut = itab_zycbt017-dtvencto.
endif.
when 'ZUONR'.
if itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb = 'NRSEQ'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
* >> Início da inclusão: FORM CLEARING_PERF
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
endcase.
endloop.
if itab_zycbe033-d_sgtxt is initial.
itab_zycbe033-d_sgtxt = wa_zycbt011-txtdesc.
itab_zycbe033-c_sgtxt = wa_zycbt011-txtdesc.
...
...
if not p_umskz is initial.
itab_zycbe033-newbs = '09'.
else.
itab_zycbe033-newbs = '01'.
endif.
elseif p_agkoa eq 'K'.
itab_zycbe033-newbs = '21'.
endif.
itab_zycbe033-belnr = p_belnr_ref.
itab_zycbe033-dtdocto = p_budat_ref.
* >> Início da inclusão: FORM CLEARING_PERF
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
if p_texto = text-189.
v_tpcontabil = 'E_D_CON'.
if v_periodo_aberto is initial and
not ( itab_zycbt006-v_armda eq 'X' and
itab_zycbt006-v_performance eq ' ' ).
clear /pws/zycbt084-cont_desmemb.
perform verifica_desmembramento using ' '
'E'
p_belnr
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F03
...
text-051.
itab_zycbe033-gsber = /pws/zycbe005-gsber.
if not /pws/zycbe005-werks is initial.
itab_zycbe033-werks = /pws/zycbe005-werks.
perform local_negocio.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
itab_zycbe033-d_newko = <fs_zycbt226>-conta_contabil.
itab_zycbe033-newbs = '40'.
perform preenche_campos.
* >> Início da inclusão: FORM DESM_CONTA_CORRENTE
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 = /pws/zycbe005-nrseqc.
if <fs_zycbt226>-belnr_op2 is initial.
itab_zycbt036-belnr = <fs_zycbt226>-belnr_op.
else.
itab_zycbt036-belnr = <fs_zycbt226>-belnr_op2.
endif.
if v_vldesm ge <fs_zycbt226>-sld_exterior.
...
...
if not /pws/zycbe005-werks is initial.
itab_zycbe033-werks = /pws/zycbe005-werks.
perform local_negocio.
itab_zycbe033-brnch = wa_t001w-j_1bbranch.
endif.
itab_zycbe033-newbs = '50'.
itab_zycbe033-d_newko = <fs_zycbt226>-conta_contabil.
itab_zycbe033-dtdocto = <fs_zycbt226>-dtlancto2.
itab_zycbe033-belnr = <fs_zycbt226>-belnr_op2.
perform preenche_campos.
* >> Início da inclusão: FORM CLEARING_CC
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
itab_zycbt036-tcode = 'F-30'.
itab_zycbt036-tabela = 'ZYCBT006'.
itab_zycbt036-cpochv = /pws/zycbe005-nrseqc.
refresh itab_doctos.
loop at itab_zycbt084 where nrseqc = itab_zycbt006-nrseqc
and nrinvoic = itab_zycbt006-nrinvoic
and gsberf = itab_zycbt006-gsberf
and nrparcf = itab_zycbt006-nrparcf
and nrseq_ordem = <fs_zycbt226>-nrseq
...
...
when 'XBLNR'.
if itab_zyglt321-cpocb = 'NRSEQ'.
itab_zycbe033-xblnr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt006-nrinvoic.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-xblnr = itab_zyglt321-descr.
* >> Início da inclusão: FORM PREENCHE_CAMPOS
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZFBDT'.
if itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
elseif itab_zyglt321-cpocb = 'DTINCL'.
select single dtincl from /pws/zycet001
into itab_zycbe033-zfbdt
where nrseq = itab_zycbt006-nrinvoic.
elseif itab_zyglt321-cpocb = 'DTEMB'.
select single dtemb from /pws/zycet001
...
...
itab_zycbe033-zfbdt = /pws/zycbe005-dtvincul.
endif.
when 'ZUONR'.
if itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-c_zuonr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb = 'NRSEQ'.
itab_zycbe033-c_zuonr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb is initial and not
itab_zyglt321-descr is initial.
itab_zycbe033-c_zuonr = itab_zyglt321-descr.
* >> Início da inclusão: FORM PREENCHE_CAMPOS
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'VALUT'.
if itab_zyglt321-cpocb = 'DTVENCTO'.
itab_zycbe033-d_valut = itab_zycbt017-dtvencto.
endif.
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
endcase.
...
...
wa_vinculacao-nrparc = itab_zycbt005-nrparc.
wa_vinculacao-nrinvoic = itab_zycbt005-nrinvoic.
wa_vinculacao-nrparcf = itab_zycbt005-nrparcf.
wa_vinculacao-gsberf = itab_zycbt005-gsberf.
wa_vinculacao-dtvincul = itab_zycbt005-dtvincul.
wa_vinculacao-dtbelnr = itab_zycbt005-dtbelnr.
wa_vinculacao-bukrs = itab_zycbt005-bukrs.
wa_vinculacao-bukrs_c = /pws/zycbe001-bukrs.
wa_vinculacao-saldo = itab_zycbt005-vlme_p.
wa_vinculacao-belnr = itab_zycbt005-belnr.
* >> Início da exclusão: FORM VERIFICA_DOCUMENTOS
if /pws/zycbe001-belnr = itab_zycbt005-belnr.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_DOCUMENTOS
IF /pws/zycbe001-belnr = itab_zycbt005-belnr
AND NOT /pws/zycbe001-belnr2 IS INITIAL.
wa_vinculacao-belnr = /pws/zycbe001-belnr2.
wa_vinculacao-dtbelnr = /pws/zycbe001-dtvincul.
ELSE.
* << Fim da inclusão
case /pws/zycbe001-fdtlanc.
when 'O'.
wa_vinculacao-dtbelnr = /pws/zycbe001-dtcontr.
when 'D'.
wa_vinculacao-dtbelnr = /pws/zycbe001-dtdesem.
when others.
wa_vinculacao-dtbelnr = /pws/zycbe001-dtcred.
endcase.
endif.
insert wa_vinculacao into table itab_vinculacao.
...
...
endif.
when 'XBLNR'.
if itab_zyglt321-cpocb = 'NRSEQ' or
itab_zyglt321-cpocb = 'NRSEQC'.
itab_zycbe033-xblnr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-xblnr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-xblnr = itab_zyglt321-descr.
* >> Início da inclusão: FORM LANCAMENTO_LIQUID_F_02
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-xblnr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZFBDT'.
if itab_zyglt321-cpocb = 'DTBL'.
itab_zycbe033-zfbdt = itab_zycbt017-dtbl.
elseif itab_zyglt321-cpocb = 'DTINCL'.
select single dtincl from /pws/zycet001
into itab_zycbe033-zfbdt
where nrseq = itab_zycbt006-nrinvoic.
elseif itab_zyglt321-cpocb = 'DTEMB'.
select single dtemb from /pws/zycet001
...
...
if itab_zyglt321-cpocb = 'NRCONTR'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrcontr.
itab_zycbe033-c_zuonr = /pws/zycbe001-nrcontr.
elseif itab_zyglt321-cpocb = 'NRSEQ'.
itab_zycbe033-d_zuonr = /pws/zycbe001-nrseqc.
itab_zycbe033-c_zuonr = /pws/zycbe001-nrseqc.
elseif itab_zyglt321-cpocb is initial and
not itab_zyglt321-descr is initial.
itab_zycbe033-d_zuonr = itab_zyglt321-descr.
itab_zycbe033-c_zuonr = itab_zyglt321-descr.
* >> Início da inclusão: FORM LANCAMENTO_LIQUID_F_02
ELSEIF itab_zyglt321-cpocb = 'NRINVOIC'.
itab_zycbe033-d_zuonr = itab_zycbt006-nrinvoic.
itab_zycbe033-c_zuonr = itab_zycbt006-nrinvoic.
* << Fim da inclusão
endif.
when 'ZTERM'.
if itab_zyglt321-cpocb = 'ZTERM'.
itab_zycbe033-zterm = itab_zycbt017-zterm.
endif.
endcase.
endloop.
perform verify_null_field using itab_zycbt006-dtpagto
'DTPAGTO'
text-003.
...
...
itab_partidas-d_sgtxt = itab_zycbe033-d_sgtxt.
itab_partidas-d_zuonr = itab_zycbe033-d_zuonr.
itab_partidas-d_gsber = itab_zycbe033-d_gsber.
itab_partidas-d_valut = itab_zycbe033-d_valut.
itab_partidas-agkoa = 'S'.
itab_partidas-agums = space.
itab_partidas-zterm = itab_zycbe033-zterm.
itab_partidas-brnch = itab_zycbe033-brnch.
itab_partidas-zfbdt = itab_zycbe033-zfbdt.
append itab_partidas.
* >> Início da inclusão: FORM LANCAMENTO_LIQUID_F_02
itab_zycbe033-vbund = /pws/zycbe001-vbund.
* << Fim da inclusão
append itab_zycbe033.
if p_flag_ch_opera = 'CPT' and p_estorno is initial.
v_tpcontabil = 'ARB_VME'.
elseif p_flag_ch_opera = 'TRE' and p_estorno is initial.
v_tpcontabil = 'PERF_VME'.
elseif p_flag_ch_opera = 'TRE' and not p_estorno is initial.
v_tpcontabil = 'E_PERF_VME'.
endif.
perform busca_dados_bi using itab_zycbe033-bukrs
v_tpcontabil.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004I01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004TOP
...
type standard table of /pws/zyglt100
with header line,
v_repid like sy-repid,
v_campo(35) type c.
data: begin of itab_zycbt006_ca occurs 0.
include structure /pws/zycbt006.
data: end of itab_zycbt006_ca.
data: v_line type n.
data: v_vlme type /pws/zycet013-vlme,
v_belnr_cg type /pws/zycet013-belnr.
* >> Início da inclusão:
data: v_loop type i .
* << Fim da inclusão
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPT /PWS/SAPMZYCB004
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 462
Texto: (42 caracteres)
"Sociedade Parceira do Contrato é diferente"
Comprimento máximo: 42
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 463
Texto: (25 caracteres)
"do desconto de Recebíveis"
Comprimento máximo: 25
------------------------------------------------------------------------
Incluído símbolo de texto:
Idioma: PT
Símbolo: 464
Texto: (26 caracteres)
"da Liquidação em Andamento"
Comprimento máximo: 26