-- mejora

Transportes/RepContratosCalendario.aspx.vb

@@ -68,7 +68,6 @@ Partial Class RepContratosCalendario
             CargaCronograma(DdlTipoVista.SelectedValue.ToEntero)
         End If
         GvContratos.DataSource = DtAvance
-
         DdlEstatusContrato.Enabled = UsuarioActual.TienePermisoProceso(173)
 
         ObjContratos.Dispose()
@@ -291,8 +290,6 @@ Partial Class RepContratosCalendario
 
         DdlChofer.SelectedValueExist(GvRow.DataKey("CveChofer"))
         DdlChofer2.SelectedValueExist(GvRow.DataKey("CveChofer2"))
-
-
         chkSegundoChofer.Checked = If(NumChoferes = 2, True, False)
 
         DdlEstatusContrato.SelectedValueExist(GvRow.DataKey("CveContratosEstatus"))
@@ -365,12 +362,13 @@ Partial Class RepContratosCalendario
     Private Sub OcultarMostrarSegundoChofer()
 
         If chkSegundoChofer.Checked Then
-            DVChofer2.Attributes.Add("style", "display:block")
+            DdlChofer2.Visible = True
+            'DVChofer2.Attributes.Add("style", "display:block")
         Else
-            DVChofer2.Attributes.Add("style", "display:none")
+            DdlChofer2.Visible = False
+            'DVChofer2.Attributes.Add("style", "display:none")
         End If
 
-
         UpCommando.Update()
         UpModal.Update()
     End Sub
@@ -392,8 +390,6 @@ Partial Class RepContratosCalendario
         DdlAF.Items.Clear()
 
         Dim ObjContratos As New ClsContratos
-
-
         If ObjContratos.GetContratosValUnidadesAgendadas(DdlAF.SelectedValue.ToEntero, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, UsuarioActual.CveEmpresa, CveContrato, 2) Then
 
             If CveTipoAF > 0 Then
@@ -401,9 +397,6 @@ Partial Class RepContratosCalendario
             Else
                 DdlAF.DataSource = ObjContratos.DtResultados
             End If
-
-
-
         End If
         ObjContratos.Dispose()
 
@@ -415,9 +408,6 @@ Partial Class RepContratosCalendario
 
         DdlAF.DataBind()
         DdlAF.Items.Insert(0, New ListItem("-", "-1"))
-
-
-
         UpModal.Update()
 
     End Sub
@@ -454,17 +444,10 @@ Partial Class RepContratosCalendario
     Protected Sub RBTipoVista_SelectedIndexChanged(sender As Object, e As EventArgs)
         InicializaCalendar()
         CargaCronograma()
-
-
     End Sub
 
     Protected Sub DdlTipoVista_SelectedIndexChanged(sender As Object, e As EventArgs)
         CargaCronograma(DdlTipoVista.SelectedValue.ToEntero)
     End Sub
 
-
-
-
-
-
 End Class