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: | WMSV080 - Montagem de Volumes (Coletor RF) |
País: | Todos Países |
Ticket: | - |
Requisito/Story/Issue (informe o requisito relacionado) : | - |
02. DESCRIÇÃO
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
Impedir o início da montagem de volumes, caso o Pedido não tenha sido completamente separado.
03. LOCALIZAÇÃO
Localizado na função de validação da Carga/Pedido, logo no início da Montagem de Volumes.
04. PARÂMETROS
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 |
05. RETORNO
Nome | Tipo | Descrição |
---|---|---|
lRet | Lógico | Permite ou não iniciar a montagem de volumes do documento |
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
------
#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
------