CE PLUS - Nota 008456
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: DI
Data/Hora da Publicação: 27/05/2009 00:00:00
Data/Hora Última Alteração: 22/02/2011 14:09:25
Descrição da Nota: AO SALVAR DI, MUDA RATEIO DE VALORES DE DESPESA, ALTERANDO OS IMPOSTOS.
Sintoma
Ao salvar DI, muda rateio de valores de despesa, alterando os impostos.
Solução
Corrigir valor ao salvar DI
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 08456 Data: 27/05/2009 Hora: 15:01:35
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 08456
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00009
Agrupamento : 00099
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07873 - 00001 - 7.0 - 00008 - AJUSTE DE PREFORMANCE. DUMP DETALHE DO ITEM, DI COM MAIS DE 999 I
08026 - 00002 - 7.0 - 00008 - CALCULO DO VALOR UNITARIO PARA EMBARQUES A GRANEL
08356 - 00003 - 7.0 - 00009 - ADMISSÃO TEMPORÁRIA ARTIGO 373
----------------------------------------------------------------------------------------------------
AO SALVAR DI, MUDA RATEIO DE VALORES DE DESPESA, ALTERANDO OS IMPOSTOS.
----------------------------------------------------------------------------------------------------
Palavras Chave:
DI - RATEIO - REFRESH - SALVAR - VALORES - DESPESA - GRANEL
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI023F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI023F01
...
CHECK v_acto EQ 'A'.
CLEAR: itab_zycit100, itab_zycit003.
REFRESH: itab_zycit100, itab_zycit049di2.
LOOP AT itab_it.
MOVE-CORRESPONDING itab_it TO itab_zycit100.
APPEND itab_zycit100.
ENDLOOP.
LOOP AT itab_it.
LOOP AT itab_zycit003 WHERE ebeln = itab_it-ebeln
AND ebelp = itab_it-ebelp.
* >> Início da inclusão: FORM VERIFY_CHANGES
v_tfrefat = itab_zycit003-vlfre_fat.
v_tsegfat = itab_zycit003-vlseg_fat.
v_qtd_iten = itab_zycit003-qtd_itenc3.
* << Fim da inclusão
MOVE-CORRESPONDING itab_it TO itab_zycit003.
* >> Início da inclusão: FORM VERIFY_CHANGES
itab_zycit003-qtd_itenc3 = v_qtd_iten.
itab_zycit003-vlfre_fat = v_tfrefat .
itab_zycit003-vlseg_fat = v_tsegfat .
* << Fim da inclusão
SELECT SINGLE qtd_iten vlreal ntgewd FROM /pws/zycit003 INTO
(itab_zycit003-qtd_iten, itab_zycit003-vlreal, itab_zycit003-ntgewd)
WHERE nrseq EQ itab_it-nrseq
AND ebeln EQ itab_it-ebeln
AND ebelp EQ itab_it-ebelp.
MODIFY itab_zycit003.
...