DT PE WV080CDV - Customização na geração dos códigos de volume de forma automática

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 efetuar a customização na geração dos códigos de volume de forma automática.

03. LOCALIZAÇÃO

Localizado antes da solicitação do código do volume a ser montado pelo Operador.

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

05. RETORNO

Nome	Tipo	Descrição
cVolume	Caractere	Código do 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 WV080CDV()
Local aAreaAnt := GetArea()
Local cCarga := PARAMIXB[1]
Local cPedido := PARAMIXB[2]
Local cVolume := ""
Local cQuery := ""
Local cAliasQry := GetNextAlias()

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)
DbUseArea(.T.,'TOPCONN',TcGenQry(,,cQuery),cAliasQry,.F.,.T.)

If !Empty((cAliasQry)->CODVOL)
// Remove os espaços em branco e incrementa o valor
cVolume := Soma1(AllTrim((cAliasQry)->CODVOL))
WmsMessage("Novo volume criado: " + cVolume)
Else
cVolume := "01"
EndIf

RestArea(aAreaAnt)

Return cVolume