Sintoma

Quando é informada quantidade desembarcada o valor unitario dos itens é calculado incorretamente na

DI

Solução

COrrigido programa para utilizar as quantidades corretas no calculo do valor unitario.

Informações Complementares

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

Nota Número 08026 Data: 09/02/2009 Hora: 15:31:02

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

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

Nota Número              : 08026

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00008

Agrupamento              : 00085

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

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

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

CALCULO DO VALOR UNITARIO PARA EMBARQUES A GRANEL

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

Palavras Chave:

GRANEL - QUANTIDADE - DESEMBARCADA - VALOR - UNITARIO - FOB - CFR

/PWS/SAPMZYCI023

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

Objetos da nota:

REPS /PWS/MZYCI023F01

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

Modificações efetuadas em REPS /PWS/MZYCI023F01

...

  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.

      MOVE-CORRESPONDING itab_it TO itab_zycit003.

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

      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.

* << Fim da inclusão

      MODIFY itab_zycit003.

    ENDLOOP.

  ENDLOOP.

  SORT itab_zycit100  BY nrseqdi nrseq ebeln ebelp adicao.

  SORT itab_zycit100a BY nrseqdi nrseq ebeln ebelp adicao.

  SORT itab_zycit003  BY nrseq ebeln ebelp.

  CLEAR itab_zycit003a.

  REFRESH itab_zycit003a.

  MOVE itab_zycit003[] TO itab_zycit003a[].

  LOOP AT itab_zycit049.

...