CE PLUS - Nota 003259
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Custo Efetivo
Data/Hora da Publicação: 15/03/2007 00:00:00
Data/Hora Última Alteração: 20/06/2011 13:50:31
Descrição da Nota: O SISTEMA ESTÁ LEVANDO O VALOR DO REALIZADO ERRADO NO
Sintoma
O sistema está levando o valor do realizado errado no custo efetivo.
O FOB está parametrizado p/ ir p/ custo via nota fiscal, mas não está levando o valor da realizado
correto no custo.
Solução
Atualização no programa do Custo Efetivo para calcular o valor do realizado corretamente nos casos
de granel com mais de uma moeda.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03259 Data: 15/03/2007 Hora: 17:25:27
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03259
Categoria : Melhoria
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00156
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02771 - 00001 - 6.0 - 00026 - CUSTO EFETIVO COM VALOR ERRADO QUANDO VINHA DA FATURA
----------------------------------------------------------------------------------------------------
O SISTEMA ESTÁ LEVANDO O VALOR DO REALIZADO ERRADO NO
----------------------------------------------------------------------------------------------------
Palavras Chave:
FORM CUSTEANDO_DESPESA_INCO, TCURX, /PWS/ZYCIE036-VLREA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
IF sy-subrc NE 0.
CLEAR itab_zycit036.
ENDIF.
PERFORM retorna_decimais USING itab_zycit036-waers
CHANGING itab_zycit036-vlreal.
IF okcode NE 'DELE'.
IF /pws/zycie006-ratval EQ '3'.
PERFORM trata_decimais USING /pws/zycie006-waers
CHANGING itab_zycit003-total.
ENDIF.
* >> Início da inclusão: FORM CUSTEANDO_DESPESA_INCO
SELECT SINGLE * FROM tcurx WHERE currkey = /pws/zycie006-waers.
IF sy-subrc = 0 AND tcurx-currdec > 2.
/pws/zycie036-vlreal = itab_zycit003-total
/ ( 10 ** ( tcurx-currdec - 2 ) ).
ELSE.
* << Fim da inclusão
/pws/zycie036-vlreal = itab_zycit003-total.
* >> Início da inclusão: FORM CUSTEANDO_DESPESA_INCO
ENDIF.
* << Fim da inclusão
ELSE.
READ TABLE itab_zycit003_ini WITH KEY
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp.
IF sy-subrc EQ 0.
* >> Início da inclusão: FORM CUSTEANDO_DESPESA_INCO
SELECT SINGLE * FROM tcurx WHERE currkey = /pws/zycie006-waers.
IF sy-subrc = 0 AND tcurx-currdec > 2.
/pws/zycie036-vlreal = ( itab_zycit003-total
/ ( 10 ** ( tcurx-currdec - 2 ) ) ) -
( itab_zycit003_ini-vlreal * itab_zycit003_ini-toinv ) -
itab_zycit003_ini-vlfre_fat - itab_zycit003_ini-vlseg_fat
+ itab_zycit036-vlreal.
ELSE.
* << Fim da inclusão
/pws/zycie036-vlreal = itab_zycit003-total -
( itab_zycit003_ini-vlreal * itab_zycit003_ini-toinv ) -
itab_zycit003_ini-vlfre_fat - itab_zycit003_ini-vlseg_fat
+ itab_zycit036-vlreal.
* >> Início da inclusão: FORM CUSTEANDO_DESPESA_INCO
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
/pws/zycie036-bukrs = /pws/zycie006-bukrs.
...