CE PLUS - Nota 002162
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Custo Efetivo
Data/Hora da Publicação: 27/09/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 13:15:58
Descrição da Nota: CUSTO EFETIVO CALCULA ERRADO QUANDO POSSUI MAIS DE UMA FATURA.
Sintoma
O custo efetivo está calculando errado quando o processo possui mais de uma fatura por item.
Solução
Fazer tratamento do item por fatura.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02162 Data: 27/09/2006 Hora: 15:31:31
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02162
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00132
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01986 - 00001 - 6.0 - 00024 - ERRO NO CUSTO EFETIVO E FATURA DO TIPO P
02050 - 00002 - 6.0 - 00024 - VALOR MOVIMENTADO NO CUSTO DUPLICADO
----------------------------------------------------------------------------------------------------
CUSTO EFETIVO CALCULA ERRADO QUANDO POSSUI MAIS DE UMA FATURA.
----------------------------------------------------------------------------------------------------
Palavras Chave:
CUSTO EFETIVO - VALOR MOVIMENTADO - MAIS DE UMA FATURA
VALOR POR ITEM - DIVERSAS FATURAS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCIR006
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCIR006
...
v_linf TYPE i,
v_lins TYPE i,
v_tot_lins TYPE i,
v_tot_linf TYPE i,
v_valor_mi LIKE /pws/zycit036-vlreal,
* >> Início da exclusão: FORM CALCULAR_OUTROS_CUSTOS
v_val LIKE /pws/zycit100-vlseg .
* << Fim da exclusão
* >> Início da inclusão: FORM CALCULAR_OUTROS_CUSTOS
v_val LIKE /pws/zycit100-vlseg ,
v_linha TYPE i.
* << Fim da inclusão
IF itab_zycit036[] IS INITIAL .
v_importou = 'S'.
indx-aedat = sy-datum.
indx-usera = sy-uname.
IMPORT itab_zycit036_auxiliar[] FROM MEMORY ID 'I006A'.
...
...
IF itab_zycit036-vlreal GT 0 AND
NOT itab_zycit036-waers_real IS INITIAL.
IF itab_zycit036-origem = 'FAT'.
read table itab_zycit006
* >> Início da exclusão: FORM CALCULAR_OUTROS_CUSTOS
with key nrseq_pgfat = itab_zycit263-nrseq_pgfat.
* >> Início da exclusão: FORM CALCULAR_OUTROS_CUSTOS
* >> Início da inclusão: FORM CALCULAR_OUTROS_CUSTOS
WITH KEY nrseq = itab_zycit036-nrseqori.
* << Fim da inclusão
* >> Início da inclusão: FORM CALCULAR_OUTROS_CUSTOS
DESCRIBE TABLE itab_zycit263 LINES v_linha.
IF v_linha > 1.
* << Fim da inclusão
v_valor = itab_zycit006-vltotal.
* >> Início da inclusão: FORM CALCULAR_OUTROS_CUSTOS
ELSE.
* << Fim da inclusão
v_valor = itab_zycit003-vlreal * itab_zycit003-qtd_iten.
* >> Início da inclusão: FORM CALCULAR_OUTROS_CUSTOS
ENDIF.
* << Fim da inclusão
else.
v_valor = itab_zycit036-vlreal.
endif.
IF t001-land1 EQ 'CL'.
PERFORM trata_decimais USING itab_zycit036-waers_real
...