Histórico da Página

#INCLUDE "PROTHEUS.CH"

User Function WMSV081V()
    Local cVolume := PARAMIXB[1]
    Local cCarga := PARAMIXB[2]
    Local cPedido := PARAMIXB[3]
    Local cArmazem := PARAMIXB[4]
    Local cEndereco := PARAMIXB[5]
    Local lRet := .T.
    Local aArea := GetArea()
    Local cAliasDCU := GetNextAlias()

    BeginSql Alias cAliasDCU
        SELECT 1
        FROM %Table:DCU% DCU
        WHERE DCU.DCU_FILIAL = %xFilial:DCU%
        AND DCU.DCU_CODVOL = %Exp:cVolume%
        AND DCU.DCU_OPERAD <> %Exp:__cUserID%
        AND DCU.%NotDel%
    EndSql
    If (cAliasDCU)->(!Eof())
        lRet := .F.
        WMSVTAviso("U_WMSV81","Volume iniciado por outro operador")
    EndIf
    (cAliasDCU)->(dbCloseArea())

    RestArea(aArea)
Return lRet