Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Captação
Data/Hora da Publicação: 15/03/2010 00:00:00
Data/Hora Última Alteração: 22/02/2011 13:17:21
Descrição da Nota: CAPTAÇÃO PRÉ PAGAMENTO, CONTABILIZAÇÃO
Sintoma
Ao efetuarmos uma captação - Pré pagamento e contabilizar o mesmo.A contabilização esta sendo
efetuada corretamente, porem se entrarmos modificando qualquer campo relevante a contabilização
(TAXA DE CÂMBIO) e salvar novamente a captação, a contabilização esta sendo efetuada errada.
Solução
A nova data Válida inserida pelo usuário está sendo carregada corretamente para a Data de
Lançamento.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 09953 Data: 15/03/2010 Hora: 10:11:36
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 09953
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00002
Agrupamento : 00012
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07116 - 00001 - 7.0 - 00006 - EXPORTAÇÃO CAPTAÇÃO
----------------------------------------------------------------------------------------------------
CAPTAÇÃO PRÉ PAGAMENTO, CONTABILIZAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
CAPTAÇÃO,PRÉ PAGAMENTO, CONTABILIZAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB001F01
REPS /PWS/MZYCB001F04
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F01
...
v_est_aprov = 'S'.
endif.
endform.
form verif_dt_lancto.
data: mensagem(90) type c,
v_budat like sy-datum,
v_budat1(10) type c,
v_datum(10) type c,
v_novadata type d.
v_lanc = 'S'.
* >> Início da exclusão: FORM VERIF_DT_LANCTO
if wa_zycbe001-tpcontr(1) ca 'PS'.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIF_DT_LANCTO
if wa_zycbt001-tpcontr(1) ca 'PS'.
* << Fim da inclusão
if /pws/zycbt074-dtcont is initial.
case wa_zycbt001-fdtlanc.
when 'D'.
v_budat = wa_zycbt001-dtdesem.
when 'O'.
v_budat = wa_zycbt001-dtcontr.
when others.
v_budat = wa_zycbt001-dtcred.
endcase.
else.
...
...
itab_zycbe033-budat = v_novadata.
/pws/zycbe001-dtvincul = v_novadata.
v_lanc = 'S'.
else.
v_lanc = 'N'.
endif.
elseif v_answer = 'A'.
v_lanc = 'N'.
exit.
endif.
* >> Início da inclusão: FORM VERIF_DT_LANCTO
else.
itab_zycbe033-budat = v_budat.
* << Fim da inclusão
endif.
if v_opccme = 'X'.
perform estorna_dp_ccme.
perform save_zycbt226.
endif.
endform.
form calcula_moeda_l.
if /pws/zycbe091-vlmi is initial.
/pws/zycbe091-vlmi = /pws/zycbe091-vlme * /pws/zycbe091-kursf.
else.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F04
...
if sy-tcode eq c_transacao_c.
if v_status_s ne '0'.
itab_pf_status-fcode = 'VINC'.
append itab_pf_status.
itab_pf_status-fcode = 'LIQ'.
append itab_pf_status.
itab_pf_status-fcode = 'DESP'.
append itab_pf_status.
itab_pf_status-fcode = 'HIST'.
append itab_pf_status.
endif.
itab_pf_status-fcode = 'DEVDP'.
append itab_pf_status.
itab_pf_status-fcode = 'BOL'. "Elaine Omine 20/03/03
append itab_pf_status.
* >> Início da inclusão: FORM TRATA_STATUS
if v_status_s ne '0'.
* << Fim da inclusão
itab_pf_status-fcode = 'DELE'. "Cinthia - 21/08/03
append itab_pf_status.
* >> Início da inclusão: FORM TRATA_STATUS
endif.
* << Fim da inclusão
endif.
if v_status_s eq '0' and sy-tcode eq c_transacao_a.
itab_pf_status-fcode = 'ENCE'.
append itab_pf_status.
itab_pf_status-fcode = 'SAVE'.
append itab_pf_status.
...
...
elseif v_status_s eq '0' and
( sy-tcode eq c_transacao_e or
sy-tcode eq c_transacao_c ) .
itab_pf_status-fcode = 'ENCE'.
append itab_pf_status.
itab_pf_status-fcode = 'SAVE'.
append itab_pf_status.
* >> Início da inclusão: FORM TRATA_STATUS
if v_status_s ne '0' or sy-tcode = c_transacao_e.
* << Fim da inclusão
itab_pf_status-fcode = 'DELE'.
append itab_pf_status.
* >> Início da inclusão: FORM TRATA_STATUS
endif.
* << Fim da inclusão
itab_pf_status-fcode = 'CALCJUR'.
append itab_pf_status.
itab_pf_status-fcode = 'CANCELA'.
append itab_pf_status.
itab_pf_status-fcode = 'ANL_ENC'.
append itab_pf_status.
...
...
...
...
...