DT PE WMSRESEP - Permite nova execução do processo de separação

01. DADOS GERAIS

02. DESCRIÇÃO

Este Ponto de Entrada permite efetuar uma nova execução do processo de separação.

Essa possibilidade ocorre em casos nos quais o lote existente no endereço de Picking não possa ser requisitado (por data de vencimento ou por alguma regra de bloqueio), havendo necessidade de um segundo processo de separação.

Essa regra é efetuada em conjunto do Ponto de Entrada WMSLDDC3, em que é possível modificar as informações da sequência de abastecimento (apenas em tempo de execução, e não no Banco de Dados).

Exemplo

• O tipo de separação existente no pulmão é Saldo restante.
• A separação ocorre nos endereços de pulmão até que a quantidade faltante seja menor que o saldo restante do pulmão.
• Ao validar o lote existente no Picking, uma regra não permite a separação.
• Com isso, o Sistema faz uma nova busca no pulmão, mas considerando o tipo de separação Quantidade mínima. Dessa maneira, é possível realizar uma separação do pulmão para atender o saldo restante, ainda que após o processo o endereço de pulmão não permaneça vazio.

03. LOCALIZAÇÃO

Localizado após a execução do processo de separação padrão, e antes da execução do processo de verificação de reabastecimentos.

04. PARÂMETROS

05. RETORNO

.T.  - será possível executar um novo Processo de Separação.

06. VERSÕES

Protheus 12.1.17 ou superiores.

07. OBSERVAÇÃO

Todos os parâmetros são recebidos na User Function via PARAMIXB conforme consta em Execblock / Customização.

08. EXEMPLO

------

Static __lWMReSep := .F.

User Function WMSRESEP()
Local lRet := .T.

Local cProd := ParamIxb[2]

Local oObjSelf := ParamIxb[3] //Objeto Self

__lWMReSep := ParamIxb[1] //Se ativar o parâmetro, precisa executar a regra customizada que determinará se um novo processo de separação será executado.

If __lWMReSep
           If <Regra Customizada> == .F.
                     lRet := .F.
           EndIf
Endif

Return lRet

User Function WMSLDDC3() //Ponto de Entrada conjunto, incluído para um melhor entendimento do uso do ponto de entrada WMSRESEP
Local aDc3 := ParamIxb

If __lWMReSep
          aDc3:cTipoSepar := '3' //Tipo de separação alterado Quantidade Mínima.
EndIf

Return

------