Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Fatura Mercadoria
Data/Hora da Publicação: 10/02/2011 00:00:00
Data/Hora Última Alteração: 20/06/2011 12:00:33
Descrição da Nota: NÃO VERIFICAR PESO DO ITEM NA LI QUANDO O PROCESSO FOR DE GRANEL
Sintoma
O programa não está permitindo criar fatura de mercadoria para processo com Granel.
Solução
Ajustado programa para não efetuar a verificação para os itens de Granel.
8.0
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 10948 Data: 10/02/2011 Hora: 11:05:42
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 10948
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 8.0
Pacote : 00006
Agrupamento : 00058
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
09710 - 00001 - 8.0 - 00002 - AO VINCULAR LI E CRIAR FATURA, VERIFICAR PESO LÍQUIDO DOS ITENS.
----------------------------------------------------------------------------------------------------
NÃO VERIFICAR PESO DO ITEM NA LI QUANDO O PROCESSO FOR DE GRANEL
----------------------------------------------------------------------------------------------------
Palavras Chave:
FATURA - MERCADORIA - PESO - ITEM - LI - GRANEL
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI003F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI003F01
...
MESSAGE i001 WITH text-129.
v_stop = 'X'.
ENDIF.
SELECT * FROM /pws/zycit079
INTO TABLE itab_zycit079
FOR ALL ENTRIES IN itab_zycit003
WHERE nrseqli EQ itab_zycit003-nrseqli
AND ebeln EQ itab_zycit003-ebeln
AND ebelp EQ itab_zycit003-ebelp.
IF sy-subrc EQ 0.
* >> Início da exclusão: FORM SALVAR_DADOS
LOOP AT itab_zycit003 WHERE nrseqli NE space.
* << Fim da exclusão
* >> Início da inclusão: FORM SALVAR_DADOS
LOOP AT itab_zycit003 WHERE nrseqli NE space
AND ntgewd eq space.
* << Fim da inclusão
READ TABLE itab_zycit079 WITH KEY
nrseqli = itab_zycit003-nrseqli
ebeln = itab_zycit003-ebeln
ebelp = itab_zycit003-ebelp .
IF sy-subrc EQ 0 AND itab_zycit003-ntgew NE itab_zycit079-ntgew.
MESSAGE w015 WITH text-194.
v_stop = 'X'.
EXIT.
ENDIF.
ENDLOOP.
...