DT PE WV080GVA - Criação de novo volume após a gravação do item no volume

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