CE PLUS - Nota 009953

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.

 

Versões Tratadas

8.0


Pré-Requisitos

Produto:

Nota

Descrição

EXPORTAÇÃO CAPTAÇÃO

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.

...

...

...

...

...