--Se pasa calendarios y repcontratos a sólo la clase de ClsContratos

Transportes/RepContratosCalendario.aspx.vb

@@ -18,6 +18,15 @@ Partial Class RepContratosCalendario
             ViewState("DtAvance") = value
         End Set
     End Property
+
+    Public Property Contrato As String
+        Get
+            Return ViewState("Contrato").ToString()
+        End Get
+        Set(value As String)
+            ViewState("Contrato") = value
+        End Set
+    End Property
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -35,13 +44,15 @@ Partial Class RepContratosCalendario
     End Sub
     Private Sub CargaDatos()
         Dim ObjContratos As New ClsContratos
+        GvContratos.HeaderStyle.ForeColor = Drawing.Color.Black
+
         If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, TipoContrato:=34) Then
             GvContratos.DataSource = ObjContratos.DtResultados
-            DtAvance = ObjContratos.DtResultados
             GvContratos.DataBind()
-            GvContratos.HeaderStyle.ForeColor = Drawing.Color.Black
         End If
 
+        DtAvance = ObjContratos.DtResultados
+
         If ObjContratos.GetContratosEstatus(UsuarioActual.CveEmpresa) Then
             DdlEstatusConsulta.DataSource = ObjContratos.DtResultados
             DdlEstatusConsulta.DataBind()
@@ -70,15 +81,15 @@ Partial Class RepContratosCalendario
         'Lista de Activos fijos
         DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
         DdlAF.DataBind()
-        DdlAF.Items.Insert(0, New ListItem("-", "0"))
+        DdlAF.Items.Insert(0, New ListItem("-", ""))
 
         'Lista Chofer'
         DdlChofer.DataSource = GlobalDTRHPersonal(185)
         DdlChofer.DataBind()
-        DdlChofer.Items.Insert(0, New ListItem("-", "0"))
-        DdlChofer1.DataSource = GlobalDTRHPersonal(185)
-        DdlChofer1.DataBind()
-        DdlChofer1.Items.Insert(0, New ListItem("-", "0"))
+        DdlChofer.Items.Insert(0, New ListItem("-", ""))
+        DdlChofer2.DataSource = GlobalDTRHPersonal(185)
+        DdlChofer2.DataBind()
+        DdlChofer2.Items.Insert(0, New ListItem("-", ""))
 
     End Sub
 
@@ -94,12 +105,10 @@ Partial Class RepContratosCalendario
 
 
     Protected Sub UpdateContrato(sender As Object, e As EventArgs)
-        Dim fechaS As Date = TxtFechaSalida.Text.ToDate
-        Dim fechaR As Date = TxtFechaRegreso.Text.ToDate
         Dim ObjContratos As New ClsContratos
         ObjContratos.IniciaTransacSQL()
 
-        If ObjContratos.UpdateContratos(CveContrato.Value.ToEntero, "", TxtDescripcion.Text, "", -1, DdlClientes.SelectedValue.ToEntero, -1, fechaS, fechaR, TxtUbicacion.Text, "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, -1, 0, CveContratoTipo:=2, CveContratosEstatus:=1, CveChofer:=DdlChofer.SelectedValue.ToEntero, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveAF:=DdlTipoAF.SelectedValue.ToEntero) Then
+        If ObjContratos.UpdateContratos(Contrato.ToEntero, TxtFolio.Text, TxtDescripcion.Text, "", -1, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, -1, 0, CveContratoTipo:=34, CveContratosEstatus:=DdlEstatusContrato.SelectedValue.ToEntero, CveChofer:=DdlChofer.SelectedValue.ToEntero, CveChofer2:=DdlChofer2.SelectedValue.ToEntero, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveAF:=DdlAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero) Then
             ObjContratos.Commit()
             Alert("Actualizado Correctamente.")
         Else
@@ -107,21 +116,25 @@ Partial Class RepContratosCalendario
         End If
 
         ObjContratos.Dispose()
+        UpTitulos.Update()
         CargaDatos()
     End Sub
     Protected Sub UpdateModal(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-
-        TxtObservaciones.Text = GvRow.DataKey("Observaciones")
+        TxtFolio.Text = GvRow.DataKey("NumeroContrato")
+        TxtCantidadPasajeros.Text = GvRow.DataKey("CantidadPasajeros")
+        DdlClientes.SelectedValue = GvRow.DataKey("CveCliente")
+        DdlClientes.SelectedText = GvRow.DataKey("NombreComercial")
         TxtDescripcion.Text = GvRow.DataKey("DescripcionContrato")
+        TxtObservaciones.Text = GvRow.DataKey("Observaciones")
         TxtUbicacion.Text = GvRow.DataKey("Ubicacion")
         TxtFechaSalida.Text = Convert.ToDateTime(GvRow.DataKey("FechaInicial")).ToString("dd/MM/yyyy hh:mm:ss tt")
         TxtFechaRegreso.Text = Convert.ToDateTime(GvRow.DataKey("FechaFinal")).ToString("dd/MM/yyyy hh:mm:ss tt")
-        DdlClientes.SelectedValue = GvRow.DataKey("CveCliente")
-        DdlClientes.SelectedText = GvRow.DataKey("NombreComercial")
+        'Requeridos
+        ViewState("Contrato") = GvRow.DataKey("CveContrato")
         DdlAF.SelectedValue = GvRow.DataKey("CveAF")
         DdlChofer.SelectedValue = GvRow.DataKey("CveChofer")
-        DdlChofer.SelectedValue = GvRow.DataKey("CveChofer2")
+        DdlChofer2.SelectedValue = GvRow.DataKey("CveChofer2")
         DdlEstatusContrato.SelectedValue = GvRow.DataKey("CveContratosEstatus")
 
         UpModal.Update()
@@ -213,4 +226,9 @@ Partial Class RepContratosCalendario
             Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
         End If
     End Sub
+    Protected Sub GoContratoDetalle(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Dim CveContrato As String = GvRow.DataKey("CveContrato")
+        Response.Redirect(String.Format("~/Transportes/RepContratoDetalle.aspx?CveContrato={0}", CveContrato))
+    End Sub
 End Class