| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | SIGAWMS - Gestão de Armazenagem |
| Função: | WMSV080 - Montagem de Volumes (Coletor RF) |
| País: | Todos Países |
| Ticket: | - |
| Requisito/Story/Issue (informe o requisito relacionado) : | - |
Este Ponto de Entrada permite que sejam executadas as regras adicionais na validação de Carga/Pedido, antes de iniciar o processo de montagem de
volumes do documento.
Exemplo
Localizado na função de validação da Carga/Pedido, logo no início da Montagem de Volumes.
| Nome | Tipo | Descrição |
|---|---|---|
nCampo | Numérico | Campo que será avaliado no momento de chamada do PE (1 = Carga ou 2 = Pedido) |
| cCodMnt | Caractere | Código da Montagem de Volumes |
| cCarga | Caractere | Número da Carga |
| cPedido | Caractere | Número do Pedido de Venda |
| lEstorno | Lógico | Indica se o PE está sendo chamado pelo processo de estorno da montagem de volumes |
| Nome | Tipo | Descrição |
|---|---|---|
lRet | Lógico | Permite ou não iniciar a montagem de volumes do documento |
12.1.17 e superiores.
Todos os parâmetros são recebidos na User Function via PARAMIXB, conforme consta em Execblock / Customização.
#INCLUDE "PROTHEUS.CH"
User Function WV081VMT()
Local aAreaAnt := GetArea()
Local nCampo := PARAMIXB[1]
Local cCodMnt := PARAMIXB[2]
Local cCarga := PARAMIXB[3]
Local cPedido := PARAMIXB[4]
Local lEstorno := PARAMIXB[5]
Local lRet := .T.
// Se está sendo chamado do campo Pedido e não é estorno
If nCampo == 2 .And. !lEstorno
DCS->(DbSetOrder(1))
If DCS->(DbSeek(xFilial("DCS")+cCodMnt+cCarga+cPedido))
If DCS->DCS_QTORIG > DCS->DCS_QTSEPA
WmsMessage("A separação do pedido ainda não foi finalizada.","WV081VMT",1)
lRet := .F.
EndIf
EndIf
EndIf
RestArea(aAreaAnt)
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>
|