CE PLUS - Nota 012077
Módulo: DOC. IMPORTAÇÃO
Funcionalidade: Recebimento
Data/Hora da Publicação: 30/03/2012 00:00:00
Data/Hora Última Alteração: 03/04/2012 10:18:10
Descrição da Nota: QUANDO TEM TEMPO MÍNIMO RESTANTE DE VALIDADE NÃO ABRE DATA DE PRODUÇÃO
Sintoma
Quando tem o campo tempo mínimo restante de validade preenchido no cadastro de materiais, não abre
data de produção na janela do lote
Solução
Verificar se esse campo está preenchido para abrir a data de produção.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 12077 Data: 30/03/2012 Hora: 09:55:16
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 12077
Categoria : Erro de Programa
Prioridade : Alta
Versão PW.CE : 8.0
Pacote : 00011
Agrupamento : 00109
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
01147 - 00001 - 6.0 - 00023 - TELA DO LOTE NÃO ABRIU NO MOMENTO DO RECEBIMENTO.
01990 - 00002 - 6.0 - 00024 - O CAMPO LOTE DO RECEBIMENTO ESTÁ FECHADO, MESMO QUANDO É SUJEITO
----------------------------------------------------------------------------------------------------
QUANDO TEM TEMPO MÍNIMO RESTANTE DE VALIDADE NÃO ABRE DATA DE PRODUÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
TEMPO MÍNIMO RESTANTE - DATA DE VALIDADE - DATA DE PRODUÇÃO -RECEBIMENTO
MARA-MHDRZ
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCI017F02
REPS /PWS/MZYCI017O01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017F02
...
IF NOT itab_matuse_aux3[] IS INITIAL.
SELECT matnr mhdhb mhdrz xchpf FROM mara
INTO TABLE itab_mara
FOR ALL ENTRIES IN itab_matuse_aux3
WHERE matnr EQ itab_matuse_aux3-matnr.
ENDIF.
* >> Início da exclusão: FORM VERIFICA_VALIDADE
LOOP AT itab_mara WHERE NOT mhdhb IS initial.
* << Fim da exclusão
* >> Início da inclusão: FORM VERIFICA_VALIDADE
LOOP AT itab_mara WHERE NOT mhdhb IS initial OR NOT mhdrz IS initial.
* << Fim da inclusão
MOVE itab_mara-mhdhb TO v_validade.
* >> Início da inclusão: FORM VERIFICA_VALIDADE
if v_validade is initial.
MOVE itab_mara-mhdrz TO v_validade.
endif.
* << Fim da inclusão
MOVE itab_mara-xchpf TO v_suj_lote.
ENDLOOP.
...
...
LOOP AT itab_mara WHERE NOT mhdhb IS initial OR NOT mhdrz IS initial.
MOVE itab_mara-mhdhb TO v_validade.
* >> Início da inclusão: FORM VERIFICA_VALIDADE
if v_validade is initial.
MOVE itab_mara-mhdrz TO v_validade.
endif.
* << Fim da inclusão
MOVE itab_mara-xchpf TO v_suj_lote.
ENDLOOP.
ENDIF.
ENDFORM.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCI017O01
...
MODULE inibe_linhas OUTPUT.
IF v_remessa = 'X'.
* >> Início da inclusão: MODULE INIBE_LINHAS
PERFORM verifica_validade.
* << Fim da inclusão
LOOP AT SCREEN.
* >> Início da exclusão: MODULE INIBE_LINHAS
PERFORM verifica_validade.
* << Fim da exclusão
IF screen-name = '/PWS/ZYCIE223-DT_PRODUCAO'.
IF NOT v_validade IS INITIAL.
screen-invisible = '0'.
MODIFY SCREEN.
ELSE.
screen-input = '0'.
...
...
ELSE.
screen-input = '0'.
ENDIF.
MODIFY SCREEN.
ELSE.
screen-input = '1'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ELSE.
* >> Início da inclusão: MODULE INIBE_LINHAS
PERFORM verifica_validade.
* << Fim da inclusão
LOOP AT SCREEN.
* >> Início da exclusão: MODULE INIBE_LINHAS
PERFORM verifica_validade.
* << Fim da exclusão
IF screen-name = '/PWS/ZYCIE223-DT_PRODUCAO'.
IF NOT v_validade IS INITIAL.
screen-invisible = '0'.
ELSE.
screen-input = '0'.
screen-invisible = '1'.
...