ER DLOGWMSOL-300 Empilhamento Tratar FEFO BRA

Informações Gerais

Objetivos

• Permitir a troca de identificação de estoque automática para determinados tipos de Estrutura.
• Efetuar a troca automática de identificações que utilizam empilhamento para a última identificação da pilha.

Definição da Regra de Negócio

Abaixo um fluxo do processo de separação:

1. WMS60018 - Contrato do Depositante - Opção Expedição-Separação/Conferência
   
   Incluir o campo Verifica data validade/ produção por mês e ano troca identificação? abaixo do campo Permite quebra FIFO troca identificação.
   Este campo deverá permanecer inativo se o campo Permite quebra FIFO troca identificação for marcado. 
   Gravar o valor deste novo campo ("S" ou "N") na tabela WMS_PARAMETRO_SEPARACAO no novo campo criado verif_vld_prd_mes_ano_troca_id.
   
   
2. WMS60030 - Função copia informações relacionadas ao contrato
   
   Alterar a função wms60030_copia_contrato para ler o novo campo criado verif_vld_prd_mes_ano_troca_id referente ao contrato de origem da cópia e gravar o valor lido para para o contrato destino da cópia.
   
   
3. WMS60100 - Tipo de Estrutura
   
   Incluir o campo Permitir troca automática de identificação na separação no Cadastro de Estruturas.
   Este campo deverá permancecer abaixo do campo Utilizar drop point ressuprimento.
   Gravar o valor deste campo ("S", "N") na tabela WMS_TIPO_ESTRUTURA, no novo campo criado permite_troca_auto_id. 
   
   
4. WMSM103 - DML tabela wms_tipo_estrutura
   
   Alterar a função WMSM103 para considerar o novo campo criado permite_troca_auto_id. 
   
   
5. WMS6215 - Realizar troca de identificação na separação
   
   5.1. Criar uma nova função wms6215_verifica_endereco_movimento.
   Esta função deverá receber como parâmetro a empresa, processo de movimentação e endereço.
   Quando o endereço vier nulo no parâmetro, esta função deverá buscar o endereço de origem do processo de movimentação e o tipo de estrutura do endereço de origem.
   Quando o endereço vier preenchido buscar o tipo de estrutura do endereço recebido como parâmetro na função.
   Para o tipo de estrutura encontrado deverá efetuar a leitura da tabela wms_tipo_estrutura pela função wmsm103_wms_tipo_estrutura_leitura, recuperando a informação do novo campo permite_troca_auto_id. Se o campo estiver informado como "S" retornar TRUE; se estiver informado como "N" retornar FALSE.
   
   5.2.Criar uma nova função wms6215_valida_efetua_troca_identif.
   Esta função deverá receber como parâmetro empresa, identificação de estoque nova, processo de movimento referente a ID de origem.
   Por meio do processo de movimento deverá buscar a identificação de estoque de origem.
   Nesta função deverão ser efetuadas todas as validações já existentes na função wms6215_valida_troca_identif e também as validações da função wms6215_informa_identif_troca.
   Após efetuar a validação deverá ser efetuada uma chamada para a função já existente wms6215_processa_troca_identif, para efetuar a troca da reserva da identificação de estoque. Esta função deverá retornar TRUE ou FALSE.
   
   5.3. Criar uma nova função wms6215_busca_empilhamento_troca que deverá ser executada pelo WMS6214, quando for selecionado o movimento. 
   Esta nova função deverá receber como parâmetro a empresa e o processo de movimento.
   Esta função deverá efetuar a validação se o endereço de origem do processo de movimentação está marcado para efetuar troca de identificação.
   Para realizar esta verificação utilizar a nova função criada wms6215_verifica_endereco_movimento.
   Quando a função  wms6215_verifica_endereco_movimento retornar TRUE indicando que o campo Permitir troca automática de identificação na separação está informado com "S", realizar a seguinte regra:

• •  Verificar se a identificação de estoque possui alguma identificação empilhada sobre ela. Para efetuar esta busca fazer select com foreach na tabela wms_palete, buscando pelo palete da identificação de estoque do processo de movimentação e verificar se este palete está preenchido o campo palete_empilhamento. Caso não encontre dados, retornar TRUE para o programa chamador para que processo continue. Se encontrar registro pegar o campo palete do registro encontrado e o campo palete_empilhamento e alimentar em uma tabela temporária, alimentando um campo com um número sequencial das sequências da pilha encontrada. Utilizar a mesma regra até que não encontre o palete no campo palete_empilhamento. Quando o campo palete_empilhamento não estiver preenchido será o ultimo palete da pilha. 

  • Após, ler os dados da temporária alimentada acima em ordem decrescente dos dados pelo campo sequencia. Para cada palete encontrado fazer um FOREACH das identificações de estoque do palete na tabela wms_identif_estoque e para cada identificação encontrada executar a nova função criada  wms6215_valida_efetua_troca_identif, passando como parâmetro empresa, identificação de estoque origem (identificação do processo de movimento), identificação de estoque nova (identificação do ultimo palete da pilha),  processo de movimento . Se o retorno da função wms6215_valida_efetua_troca_identif for FALSE, buscar a próxima identificação de estoque e assim consecutivamente até que seja possível efetuar a troca de reserva ou o palete encontrado na pilha seja o  mesmo já reservado pelo processo de movimentação. 

  • Esta função deverá retornar TRUE, conseguindo trocar ou mantendo a mesma identificação já reservada. Somente retornará FALSE quando ocorrer erro de select.

Abaixo figura com o exemplo da regra de busca dos dados da pilha:

5.4. Criar uma nova função wms6215_busca_identif_endereco_troca.
Esta função será executada quando o modo de separação estiver por endereço.
Esta função deverá receber como parâmetro empresa, lista de separação, endereço, identificação de estoque.
Também deverá buscar todas as identificações de estoque reservadas para a lista e endereço recebido no parâmetro.
Executar a chamada da nova função  wms6215_verifica_endereco_movimento para verificar se o tipo de estrutura do endereço de origem esta marcado para permitir troca automática de identificação de estoque. Se não permitir deverá retornar TRUE para que o programa chamador da função continue executando normalmente.
Se o campo Permitir troca automática de identificação na separação estiver informado como "S" Sim, deverá ser chamada a nova função criada wms6215_valida_efetua_troca_identif, passando como parâmetro a empresa, identificação de estoque origem (identificação encontrada no select), identificação de estoque nova (identificação recebida como parâmetro na função wms6215_busca_identif_endereco_troca), processo de movimento encontrado no select; Caso a função chamada retorne TRUE, deverá finalizar o foreach retornando TRUE para o programa principal; caso contrário buscar as próximas identificações,
Caso não seja possível efetuar a troca por nenhuma das identificações deverá mostrar mensagem ao usuário informando que "Não foi possível efetuar a troca automática da identificação" e retornar FALSE.

SELECT wms_processo_moviment.processo_moviment,
wms_processo_moviment.identif_estoque
FROM wms_onda_separacao_item,
wms_processo_moviment
WHERE wms_processo_moviment.empresa = wms_onda_separacao_item.empresa
AND wms_processo_moviment.processo_moviment = wms_onda_separacao_item.processo_moviment
AND wms_onda_separacao_item.empresa = '44'
AND wms_onda_separacao_item.num_lista_separacao = 2381
AND wms_processo_moviment.endereco_origem = 1
AND wms_processo_moviment.sit_processo_moviment NOT IN ('FI','CA', 'AT')
AND wms_processo_moviment.endereco_origem = '1'

5.5. Alterar a função wms6215_carrega_parametros para inserir a leitura do novo parâmetro criado no contrato do depositante Verifica data Validade/Produção por mês e ano troca identificação.

WHENEVER ERROR CONTINUE
       SELECT verif_vld_prd_mes_ano_troca_id
         INTO m_verif_vld_prd_mes_ano_troca_id
         FROM wms_parametro_separacao
        WHERE empresa     = l_empresa
          AND depositante = l_depositante
     WHENEVER ERROR STOP
     IF sqlca.sqlcode <> 0 THEN
        CALL log0030_processa_err_sql("SELECT", "wms_parametro_separacao", 1)
        CALL wms6215_help("Erro busca parametros", NULL)
        RETURN FALSE
     END IF
  IF m_ verif_vld_prd_mes_ano_troca_id IS NULL OR m_ verif_vld_prd_mes_ano_troca_id= ' ' THEN
     LET m_verif_vld_prd_mes_ano_troca_id = 'N'
  END IF
 
 

5.6. Alterar a função wms6215_valida_nova_identif na leitura dos dimensionais no select da tabela estoque_lote_ender para verificar se a variável m_permite_quebra_fifo está como "N" (Não).
Se estiver como N, indica que não permite a quebra de FIFO dos dimensionais na troca da identificação. Neste caso deverá ser validado também o novo parâmetro criado no contrato do depositante Verifica data validade/ produção por mês e ano troca identificação?.
Se estiver informado como "S", deverá ser alterado o SELECT que valida os dimensionais para validar no lugar a data completa de produção e validade somente o mês e ano. Neste caso, se existirem datas diferentes porém o mês e ano são iguais, permite e troca. 

6. WMS6214 - Programa de Separação

Quando no contrato do depositante está selecionado o modo de separação por movimentos, quando for pressionado ENTER no movimento deverão ser efetuadas as seguintes alterações:

Alterar o programa wms6214 na função wms6214_exibe_array_movimentos para que na tecla <return> quando o usuário pressiona ENTER e o campo Status_movto está <> 'No equipamento"  antes de efetuar a chamada da função wms6214_carrega_informacaoes_movimento inserir uma chamada para a nova função criada  wms6215_busca_empilhamento_troca, para buscar se o item possui empilhamento e efetuar a troca, se necessário, conforme detalhes da função wms6215_busca_empilhamento_troca. Após o retorno da função, caso retorne FALSE, executar o exit display; caso contrário continua a execução do programa.

Alterar a função wms6214_inicia_movimento, no input incluir no AFTER FIELD etiq_destino quando a variavel l_etiqueta_entrada <> m_etiqueta_origem uma rotina para verificar se o tipo de estrutura do endereço do processo de movimento permite efetuar troca automática de identificação .Para isso, deverá ser executado a nova função criada wms6215_verifica_endereco_movimento(), passando como parâmetro a empresa e processo de movimento. Caso esta função retorne FALSE continuar o processamento normalmente; quando retornar TRUE deverá ser executada a nova função criada wms6215_valida_efetua_troca_identif, enviar como parâmetro parâmetro empresa, identificação de estoque origem, identificação de estoque nova,  processo de movimento. Caso a função retorne TRUE, devera ser alimentada a variável m_etiqueta_origem com o mesmo valor da etiqueta informada e continuar o processo de separação. Caso a função retorne FALSE não altera os valores das variáveis e continuar o processo atual.

7. WMS6353 - Função de Separação por Endereço

Alterar a função wms6353_informa_dados_etiq_end para efetuar a chamada da nova função criada wms6215_busca_identif_endereco_troca, antes da chamada da função wms6353_valida_identificacao. Quando a nova função wms6215_busca_identif_endereco_troca retornar FALSE, deverá mostrar a seguinte mensagem ao usuário: "Não foi possível efetuar a troca automática da identificação." e deverá executar o comando NEXT FIELD identif_estoque.

Protótipo de Tela

Protótipo 01

Protótipo 02 

Dicionário de Dados