CE PLUS - Nota 002613

Módulo: DOC. IMPORTAÇÃO

Funcionalidade: Fatura Despesas

Data/Hora da Publicação: 06/12/2006 00:00:00

Data/Hora Última Alteração: 20/06/2011 13:50:48

Descrição da Nota: NA FATURA 04 DÁ MENSAGEM COM DECIMAIS ERRADA.

Sintoma

Ao criar a fatura de despesa e preencher o campo valor aparece uma mensagem para preenchimento da

pasta despesa, este valor que aparece está incorreto.

 

 

Solução

Fazer o tratamento de moeda/casas decimais antes de emitir mensagem.

 

Versões Tratadas

6.0

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 02613 Data: 06/12/2006 Hora: 15:41:57

----------------------------------------------------------------------------------------------------

 

----------------------------------------------------------------------------------------------------

Nota Número              : 02613

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00025

Agrupamento              : 00142

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

 

----------------------------------------------------------------------------------------------------

NA FATURA 04 DÁ MENSAGEM COM DECIMAIS ERRADA.

----------------------------------------------------------------------------------------------------

Palavras Chave:

FATURA 04 - MENSAGEM INCORRETA - FATURA DE DESPESAS

 

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCI003F02

 

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCI003F02

 

...

  ENDIF.

  IF /pws/zycie006-tpfatura EQ '04'.

    PERFORM verifica_despesas.

  ENDIF.

ENDFORM.

FORM trata_ente.

  IF /pws/zycie006-tpfatura = '04'.

    PERFORM soma_despesa.

    IF v_tot_desp <> /pws/zycie006-vltotal.

      v_tot_desp = /pws/zycie006-vltotal - v_tot_desp.

* >> Início da exclusão: FORM TRATA_ENTE

      MOVE v_tot_desp TO v_total_desp.

* << Fim da exclusão

* >> Início da inclusão: FORM TRATA_ENTE

      WRITE v_tot_desp TO v_total_desp CURRENCY /pws/zycie006-waers.

* << Fim da inclusão

      MESSAGE s061 WITH text-051 v_total_desp text-020 .

    ENDIF.

  ENDIF.

  PERFORM move_pais.

  PERFORM trata_fabricante.

ENDFORM.

FORM consiste_fabr.

  IF '02' CA /pws/zycie006-fabricante .

    READ TABLE itab_mfrnr WITH KEY ebeln = itab_zycit003-ebeln

                                   ebelp = itab_zycit003-ebelp.

...