Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 28/08/2006 00:00:00
Data/Hora Última Alteração: 20/06/2011 13:09:34
Descrição da Nota: O CAMPO LOTE DO RECEBIMENTO ESTÁ FECHADO, MESMO QUANDO É SUJEITO
Sintoma
Não estamos conseguindo realizar o recebimento, devido o campo LOTE estar fechado e não ser possível
mencionar a quantidade no recebimento.
Solução
Atualizado seleção da tabela de materiais no recebimento, para processos de Lote.
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 01990 Data: 28/08/2006 Hora: 14:07:02
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 01990
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00024
Agrupamento : 00129
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
O CAMPO LOTE DO RECEBIMENTO ESTÁ FECHADO, MESMO QUANDO É SUJEITO
----------------------------------------------------------------------------------------------------
Palavras Chave:
LOTE - RECEBIMENTO - SUJEITO A LOTE - PREENCHIMENTO DE CAMPO
CONTABILIZAÇÕES - DADOS DO MATERIAL.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F02
...
SELECT ebeln ebelp matnr FROM ekpo
INTO TABLE itab_matuse_aux3
WHERE ebeln = v_ebeln
AND ebelp = v_ebelp.
IF NOT itab_matuse_aux3[] IS INITIAL.
* >> Início da exclusão: FORM VERIFICA_VALIDADE
SELECT matnr mhdhb FROM mara
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_VALIDADE
SELECT matnr mhdhb mhdrz xchpf FROM mara
* << Fim da inclusão
INTO TABLE itab_mara
FOR ALL ENTRIES IN itab_matuse_aux3
WHERE matnr EQ itab_matuse_aux3-matnr.
ENDIF.
LOOP AT itab_mara WHERE NOT mhdhb IS initial.
MOVE itab_mara-mhdhb TO v_validade.
* >> Início da inclusão: FORM VERIFICA_VALIDADE
move itab_mara-xchpf to v_suj_lote.
* << Fim da inclusão
ENDLOOP.
ELSE.
LOOP AT itab_zycit044 WHERE mark = 'X'.
MOVE: itab_zycit044-ebeln TO v_ebeln,
itab_zycit044-ebelp TO v_ebelp.
...
...
SELECT ebeln ebelp matnr FROM ekpo
INTO TABLE itab_matuse_aux3
WHERE ebeln = v_ebeln
AND ebelp = v_ebelp.
IF NOT itab_matuse_aux3[] IS INITIAL.
* >> Início da exclusão: FORM VERIFICA_VALIDADE
SELECT matnr mhdhb mhdrz FROM mara
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_VALIDADE
SELECT matnr mhdhb mhdrz xchpf FROM mara
* << Fim da inclusão
INTO TABLE itab_mara
FOR ALL ENTRIES IN itab_matuse_aux3
WHERE matnr EQ itab_matuse_aux3-matnr.
ENDIF.
LOOP AT itab_mara WHERE NOT mhdhb IS initial OR NOT mhdrz IS initial.
...