Histórico da Página

#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