WMSA150 - Execução de Serviços
| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| 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) : | - |
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.
Localizado na função que avalia se o produto a ser endereçado pode compartilhar o endereço com o produto armazenado.
Na rotina de Execução de Serviço (WMSA150), após todas as validações já existentes no produto padrão e exatamente antes da gravação das movimentações (D12).
| 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 |
| 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. |
12.1.23 ou superiores.
Todos os parâmetros são recebidos na User Function via PARAMIXB conforme consta em Execblock / Customização.
------
#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
------
<style>
div.theme-default .ia-splitter #main {
margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
display: none;
}
#main {
padding-left: 10px;
padding-right: 10px;
overflow-x: hidden;
}
.aui-header-primary .aui-nav, .aui-page-panel {
margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
margin-left: 0px !important;
}
.aui-tabs.horizontal-tabs>.tabs-menu>.menu-item.active-tab a::after {
background: #FF9900; !important
}
.menu-item.active-tab {
border-bottom: none !important;
}
</style>
|