| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | SIGAWMS - Gestão de Armazenagem |
| Função: | WMSA225 - Transferência WMS |
| País: | Todos Países |
| Ticket: | - |
| Requisito/Story/Issue (informe o requisito relacionado) : | - |
Este Ponto de Entrada permite inserir validações complementares no processo de transferência WMS Protheus via monitor.
Localizado na rotina WMSA225 (Transferência WMS), na validação do modelo, o qual é chamado ao clicar em Confirmar.
| Nome | Tipo | Descrição |
|---|---|---|
oModel | Objeto | Modelo de dados da rotina, que contém todas as informações da tela. |
| Nome | Tipo | Descrição |
|---|---|---|
| lRet | Lógico | Indica se a transferência deve ser permitida. |
12.1.17 ou superiores
Todos os parâmetros são recebidos na User Function via PARAMIXB, conforme consta em Execblock / Customização.
User Function WMS225VL()
Local lRet := .T.
Local oModel := PARAMIXB[1] //modelo de dados da rotina
Local oModelDCF := oModel:GetModel("DCFMASTER") //modelo de dados do cabeçalho da transferência
Local oModelSel := oModel:GetModel("SELECAO") //modelo de dados contendo a lista de produtos selecionados para a transferência
Local nI := 1
For nI := 1 To oModelSel:Length()
If Empty(oModelSel:GetValue("ENDDES",nI))
oModel:SetErrorMessage(oModelSel:GetId(),oModelSel:GetId(),,,"SIGAWMS","Informe o endereço destino.","")
lRet := .F.
EndIf
Next nI
Return lRet |
<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>
|