CE PLUS - Nota 003388
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 03/04/2007 00:00:00
Data/Hora Última Alteração: 23/02/2011 09:53:32
Descrição da Nota: PREENCHIMENTO DOS VALORES NA TABELA /PWS/ZYCIT279 QUANDO USA LOTE
Sintoma
Os valores, peso e quantidades estão sendo preenchidos corretamente apenas para o primeiro partição
quando o item do pedido é dividido entre dois ou mais lotes.
Solução
Ajustar o programa para que a conversão para a unidade ncm seja feita corretamente para todos os
lotes.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03388 Data: 03/04/2007 Hora: 10:15:01
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03388
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00160
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03154 - 00001 - 6.0 - 00026 - AJUSTADO PREENCHIMENTO DAS TABELAS DE DRAWBACK NO RECEBIMENTO COM
----------------------------------------------------------------------------------------------------
PREENCHIMENTO DOS VALORES NA TABELA /PWS/ZYCIT279 QUANDO USA LOTE
----------------------------------------------------------------------------------------------------
Palavras Chave:
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F02
...
AND nrseq EQ itab_itens_nf-nrseq
AND nfglobal EQ itab_itens_nf-nfglobal
AND nfremessa EQ itab_itens_nf-nfremessa
AND ebeln EQ itab_itens_nf-ebeln
AND ebelp EQ itab_itens_nf-ebelp .
IF /pws/zycit321-lote EQ '1'.
wa_zycit279-lote = itab_zycit223-lote.
ELSE.
wa_zycit279-lote = itab_zycit223-lote_forn.
ENDIF.
* >> Início da inclusão: FORM ADICIONA_SALDO_ATO
itab_itens_nf-meins = v_meins.
* << Fim da inclusão
READ TABLE itab_zycit279 WITH KEY nrseq = itab_zycit279-nrseq
ebeln = itab_zycit279-ebeln
ebelp = itab_zycit279-ebelp
lote = wa_zycit279-lote.
IF sy-subrc EQ 0.
itab_zycit279-qtd_iten = itab_zycit279-qtd_iten +
itab_zycit223-qtde.
PERFORM carrega_umncm_real USING itab_zycit003-matnr
* >> Início da exclusão: FORM ADICIONA_SALDO_ATO
CHANGING v_meins
* << Fim da exclusão
* >> Início da inclusão: FORM ADICIONA_SALDO_ATO
CHANGING itab_itens_nf-meins
* << Fim da inclusão
itab_zycit223-qtde.
itab_zycit279-slqtde =
itab_zycit279-slqtde + itab_zycit223-qtde.
IF itab_zycit279-slqtde > 0.
itab_zycit279-esgotado = space.
ENDIF.
MODIFY itab_zycit279 TRANSPORTING slqtde esgotado
qtd_iten
WHERE nrseq = itab_zycit279-nrseq
AND ebeln = itab_zycit279-ebeln
AND ebelp = itab_zycit279-ebelp
AND lote = wa_zycit279-lote.
ELSE.
itab_zycit279 = wa_zycit279.
itab_zycit279-qtd_iten = itab_zycit223-qtde.
PERFORM carrega_umncm_real USING itab_zycit003-matnr
* >> Início da exclusão: FORM ADICIONA_SALDO_ATO
CHANGING v_meins
* << Fim da exclusão
* >> Início da inclusão: FORM ADICIONA_SALDO_ATO
CHANGING itab_itens_nf-meins
* << Fim da inclusão
itab_zycit223-qtde.
IF NOT itab_itens_nf-qtd_item IS INITIAL.
itab_zycit279-ntgew = itab_zycit279-ntgew *
( itab_zycit223-qtde /
itab_itens_nf-qtd_item ).
itab_zycit279-vltot = itab_zycit279-vltot *
( itab_zycit223-qtde /
itab_itens_nf-qtd_item ).
itab_zycit279-vlseg = itab_zycit279-vlseg *
( itab_zycit223-qtde /
...