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: | - |
País: | Todos Países |
Ticket: | - |
Requisito/Story/Issue (informe o requisito relacionado) : | - |
02. DESCRIÇÃO
Este Ponto de Entrada permite gerar um novo volume após a gravação do item no volume.
03. LOCALIZAÇÃO
Localizado logo após a gravação do item no volume.
04. PARÂMETROS
Nome | Tipo | Descrição |
---|---|---|
cCarga | Caractere | Carga para a qual se está montando os volumes |
cPedido | Caractere | Pedido para o qual se está montando os volumes |
cProduto | Caractere | Produto para o qual se está montando os volumes |
cVolume | Caractere | Código do volume corrente |
nQtde | Numérico | Quantidade do produto |
05. RETORNO
Nome | Tipo | Descrição |
---|---|---|
cVolume | Caractere | Código do novo volume |
06. VERSÕES
Protheus 11.80.19 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 WV080GVA()
Local cCarga := PARAMIXB[1]
Local cPedido := PARAMIXB[2]
Local cProduto := AllTrim(PARAMIXB[3])
Local cVolume := PARAMIXB[4]
Local nQtde := PARAMIXB[5]
Local cQuery := ""
Local cAliasQry := ""
If cProduto == "WMS01"
cQuery := "SELECT MAX(DCU_CODVOL) CODVOL"
cQuery += " FROM " + RetSqlName('DCU')
cQuery += " WHERE DCU_FILIAL = '"+xFilial('DCU')+"'"
cQuery += " AND DCU_CARGA = '"+cCarga+"'"
cQuery += " AND DCU_PEDIDO = '"+cPedido+"'"
cQuery += " AND D_E_L_E_T_ = ' '"
cQuery := ChangeQuery(cQuery)
cAliasQry := GetNextAlias()
DbUseArea(.T.,'TOPCONN',TcGenQry(,,cQuery),cAliasQry,.F.,.T.)
If !Empty((cAliasQry)→ CODVOL)
// Permite avaliar a quantidade do produto para gerar um novo volume
If nQtde > 10
// Remove os espaços em branco e incrementa o valor
cVolume := Soma1(AllTrim((cAliasQry)->CODVOL))
WmsMessage("Novo volume criado: " + cVolume)
EndIf
Else
cVolume := "01"
EndIf
EndIf
Return cVolume
------