'-----------------------------------'
' AGGIORNA STATO CODA '
'-----------------------------------'
Sub AggStaAec
Try
TipLav = "AggStaAec"
'----- Aggiorna Stato Coda
CmdSql.Initialize
CmdSql.Name = "UPD_TRU_AEC"
CmdSql.Parameters = Array As Object(aecprog)
DBRM.ExecuteQuery(CmdSql,0,TipLav)
Catch
Msgbox(LastException.Message,"ERRORE")
Return False
End Try
End Sub