CE PLUS - Nota 010508
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Captação
Data/Hora da Publicação: 18/08/2010 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:18:46
Descrição da Nota: CAPTAÇÃO- PRÉ PGTO- CAMPOS RELEVANCIA ALTERADOS-BI ESTORNO COMO PROBLEMA
Sintoma
Na captação ,para tipo Pré Pgto, após alteração de campos relevantes, quando faz o BI do estorno ,
os campo de data delançamento e data de documento não pegam do documento gerado e sim da captação
nova ( apos alteração da data de credito) e na chave 50 na segunda contabilização , não pega a conta
do banco e acaba fazendo 2 lançamentos na mesma conta.
Solução
Alterar seleção dos campos de data e de conta para pegar a informação correta.
Versões Tratadas
8.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10508 Data: 18/08/2010 Hora: 09:52:33
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10508
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00004
Agrupamento : 00035
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
00991 - 00004 - 6.0 - 00023 - PRORROGAÇÃO DA DATA DE LIQUIDAÇÃO PARA CONTRATOS DE PRÉ PAGAMENTO
01489 - 00003 - 6.0 - 00023 - CAPTAÇÃO - DUMP RELATIVO A FUNÇÃO STANDARD
10458 - 00002 - 8.0 - 00004 - CAPTAÇÃO DP C/C ME - DUMP AO SALVAR
10506 - 00001 - 8.0 - 00004 - CAPTAÇÃO - RELATÓRIO CONTABILIZAÇÃO.
----------------------------------------------------------------------------------------------------
CAPTAÇÃO- PRÉ PGTO- CAMPOS RELEVANCIA ALTERADOS-BI ESTORNO COMO PROBLEMA
----------------------------------------------------------------------------------------------------
Palavras Chave:
CAPTAÇÃO -PRÉ PGTO- CAMPOS RELEVANCIA ALTERADOS-BI ESTORNO COMO PROBLEMA
DATA E CONTA BANCO INCORRETOS NO BI DO ESTORNO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB001F01
REPS /PWS/MZYCB001F04
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F01
...
endcase.
perform busca_conta_pt using v_dtinicio
/pws/zycbe001-dtliquid
' '.
if v_contac is initial.
exit.
else.
itab_zycbe033-c_newko = v_contac.
modify itab_zycbe033 index 1.
endif.
* >> Início da inclusão: FORM FILL_DATE1_F02
select *
from /pws/zycbt061
into table itab_zycbt061
where nrseq eq /pws/zycbe001-nrseqc.
if not itab_zycbt061[] is initial.
* << Fim da inclusão
if not estorno_ok is initial.
itab_zycbe033-d_newko = itab_zyglt316-konts.
modify itab_zycbe033 index 1.
* >> Início da inclusão: FORM FILL_DATE1_F02
endif.
* << Fim da inclusão
endif.
call function '/PWS/ZYCB_TRANSACAO_F_02'
exporting
v_modo = v_modo_bi
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F04
...
exit.
else.
itab_zycbe033-d_newko = v_contac.
itab_zycbe033-newbs = '50'.
endif.
itab_zycbe033-tcode = 'F-30'.
itab_zycbe033-tabela = '/PWS/ZYCBT002'.
itab_zycbe033-cpochv = /pws/zycbe001-nrseqc.
case /pws/zycbe001-fdtlanc.
when 'D'.
* >> Início da exclusão: FORM FILL_DATE_F30_PT
perform verify_null_field using /pws/zycbe001-dtdesem
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F30_PT
perform verify_null_field using wa_zycbt001-dtdesem
* << Fim da inclusão
'DTDESEM'
text-023.
* >> Início da exclusão: FORM FILL_DATE_F30_PT
itab_zycbe033-budat = /pws/zycbe001-dtdesem.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F30_PT
itab_zycbe033-budat = wa_zycbt001-dtdesem.
* << Fim da inclusão
when 'O'.
* >> Início da exclusão: FORM FILL_DATE_F30_PT
perform verify_null_field using /pws/zycbe001-dtcontr
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F30_PT
perform verify_null_field using wa_zycbt001-dtcontr
* << Fim da inclusão
'DTCONTR'
text-021.
* >> Início da exclusão: FORM FILL_DATE_F30_PT
itab_zycbe033-budat = /pws/zycbe001-dtcontr.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F30_PT
itab_zycbe033-budat = wa_zycbt001-dtcontr.
* << Fim da inclusão
when others.
* >> Início da exclusão: FORM FILL_DATE_F30_PT
perform verify_null_field using /pws/zycbe001-dtcred
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F30_PT
perform verify_null_field using wa_zycbt001-dtcred
* << Fim da inclusão
'DTCRED'
text-022.
* >> Início da exclusão: FORM FILL_DATE_F30_PT
itab_zycbe033-budat = /pws/zycbe001-dtcred.
* << Fim da exclusão
* >> Início da inclusão: FORM FILL_DATE_F30_PT
itab_zycbe033-budat = wa_zycbt001-dtcred.
* << Fim da inclusão
endcase.
perform determina_periodo using itab_zycbe033-budat
...
...
if not itab_zyglt100-zexit_ativa is initial.
perform (itab_zyglt100-formulario)
in program (itab_zyglt100-programa)
using okcode
changing e_subrc.
if e_subrc ne 0.
exit.
endif.
endif.
endif.
* >> Início da inclusão: FORM VOLTA_PART_BANCO
select *
from /pws/zycbt061
into table itab_zycbt061
where nrseq eq /pws/zycbe001-nrseqc.
if not itab_zycbt061[] is initial.
* << Fim da inclusão
if not estorno_ok is initial.
itab_zycbe033-d_newko = itab_zyglt316-konts.
* >> Início da inclusão: FORM VOLTA_PART_BANCO
endif.
* << Fim da inclusão
endif.
itab_zycbe033-vbund = wa_zycbt001-vbund.
append itab_zycbe033.
loop at itab_zycbt034.
message i016 with itab_zycbt034-descricao.
...