01. DADOS GERAIS
Produto: | TOTVS Logística WMS
|
---|---|
Linha de Produto: | Linha Protheus |
Segmento: | Logística |
Módulo: | SIGAWMS - Gestão de Armazenagem |
Função: | WMSA150 - Execução de Serviços |
País: | Todos Países |
Ticket: | - |
Requisito/Story/Issue (informe o requisito relacionado) : | - |
02. DESCRIÇÃO
Este Ponto de Entrada permite incrementar a validação padrão na seleção de endereços durante a execução de ordens de serviço de recebimento ou de transferência sem endereço de destino.
Válido somente para armazéns não unitizados.
03. LOCALIZAÇÃO
Localizado na função que avalia se o produto a ser endereçado pode compartilhar o endereço com o produto armazenado.
Na rotina WMSA150 (Execução de Serviço), após todas as validações já existentes no produto padrão e exatamente antes da gravação das movimentações (D12).
04. PARÂMETROS
Nome | Tipo | Descrição |
---|---|---|
cArmazem | Caractere | Código do armazém destino do produto |
cEndereco | Caractere | Código do endereço a ser validado |
cProduto | Caractere | Código do produto a ser armazenado |
cLote | Caractere | Número do lote do produto a ser armazenado |
05. RETORNO
Nome | Tipo | Descrição |
---|---|---|
lRet | Lógico | Se .T. indica que o endereço pode ser utilizado. Se .F. indica que o endereço não pode ser utilizado. |
cMensagem | Caractere | Caso lRet seja .F., este conteúdo será exibido no relatório de busca de endereços. |
06. VERSÕES
Protheus 12.1.23 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
------
#INCLUDE "PROTHEUS.CH"
User Function WMSVLEND()
Local aRet := {.T.,''}
Local cArmazem := PARAMIXB[1]
Local cEndereco := PARAMIXB[2]
Local cProduto := PARAMIXB[3]
Local cLote := PARAMIXB[4]
If cEndereco = 'PICKING01'
aRet[1] := .F.
aRet[2] := 'Produto ' + AllTrim(cProduto) + '/Lote ' + AllTrim(cLote) + '/Armazém ' + AllTrim(cArmazem) + '/Endereço ' + AllTrim(cEndereco) + ' não pode ser endereçado.'
ENDIF
Return aRet
------