Public Function AltaFechaFin(ByVal IdHorario As Long, ByVal fecha As Date)
If IdHorario <= 0 Then Err.Raise -1002, , "Id de Horario Nulo"
Dim cmAlta As Object
On Error GoTo ErrorAltaFechaFin
Set cmAlta = CreateObject("ADODB.Command")
With cmAlta
.ActiveConnection = CadenaConecc
.CommandType = adCmdStoredProc
.CommandText = "SH_FechaFin_upd"
.Parameters.Append .CreateParameter("@IdHorario", adInteger, adParamInput, , IdHorario)
.Parameters.Append .CreateParameter("@FechaFin", adDate, adParamInput, , fecha)
.Execute
End With
ErrorAltaFechaFin:
Set cmAlta = Nothing
If Err.Number <> 0 Then Err.Raise Err.Number, Err.Source & " _AltaFechaFin", Err.Description
End Function