--Se redujo el código en la barra de consultas y se eliminaron todos los validadores, se intercambió el código fijo de Ddlestatusconsulta por los reales de la base de datos, se agregó la columna de estatus y el color pertinente y se eliminó la columna de acciones editar y eliminar. Se agregaron FI y FF iniciales para la consulta y se eliminaron los métodos de editar y eliminar. En RepContratosCalendario se agregaron los DdlEstatusContratos . Se cargaron los datos de estatus en ddls y se simplificó el OnRowDataBound ya que se sacan los colores del mismo PA.

Transportes/RepContratos.aspx.vb

@@ -16,6 +16,9 @@ Partial Class ListadoContratos
         End Set
     End Property
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        txtFechaI.Text = DateTime.Now.AddMonths(-1).ToString("yyyy-MM-dd").Replace(" ", "T")
+        txtFechaF.Text = DateTime.Now.AddDays(7).ToString("yyyy-MM-dd").Replace(" ", "T")
+
         If Not IsPostBack Then
             ViewState("CveContrato") = 0
             InicializaCombos()
@@ -23,15 +26,14 @@ Partial Class ListadoContratos
         End If
     End Sub
     Private Sub InicializaCombos()
+        'Lista Tipo AF
         DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
         DdlTipoAF.DataBind()
-        DdlTipoAF.Items.Insert(0, New ListItem("Seleccione", ""))
-
+        DdlTipoAF.Items.Insert(0, New ListItem("-", ""))
         'Lista Chofer'
         DdlChofer.DataSource = GlobalDTRHPersonal(185)
         DdlChofer.DataBind()
-        DdlChofer.Items.Insert(0, New ListItem("Seleccione", ""))
-
+        DdlChofer.Items.Insert(0, New ListItem("-", ""))
         UpModal.Update()
     End Sub
     Private Sub CargaDatos()
@@ -61,13 +63,6 @@ Partial Class ListadoContratos
         TxtPesos.Text = Math.Round(Pesos.ToDecimal, 2).ToString
         TxtAnticipo.Text = Math.Round(Anticipo.ToDecimal * 100, 2).ToString
         BtnGuardar.Text = Boton
-        Dim EstatusContrato As String
-        If EstatusContrato <> "" Then
-            LbEstatus.Visible = True
-            DdlEstatusContrato.Visible = True
-            DdlEstatusContrato.SelectedValue = EstatusContrato
-        End If
-        'DdlEstatusContrato.Text = EstatusContrato
         myModalLabel.InnerHtml = $"{Boton} Contrato"
         UpModal.Update()
         RegistraScript(String.Format("$('#{0}').modal('show');", "ModalAgregar"))
@@ -85,16 +80,10 @@ Partial Class ListadoContratos
         Dim ObjContratos As New ClsContratos
         ObjContratos.IniciaTransacSQL()
 
-        Dim CveEstatusInicial As Integer = 10
-        Dim CveContratoHijo As Integer = -1
-        Dim CveContratoTipo As Integer = 2
-        Dim retorno As Boolean = False
 
-        CveEstatusInicial = GlobalDTContratosEstatus(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveContratoEstatus", "TipoEstatus=1").ToEntero
         'Agregar contrato
         If BtnGuardar.Text = "Guardar" Then
-            CveContratoHijo = ObjContratos.AddContratos("", TxtDescripcion.Text, "", UsuarioActual.CveProveedor, 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:=2, CveContratosEstatus:=CveEstatusInicial, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveChofer:=DdlChofer.SelectedValue.ToEntero)
-            If CveContratoHijo > 0 Then
+            If ObjContratos.AddContratos("", TxtDescripcion.Text, "", UsuarioActual.CveProveedor, 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:=2, CveContratosEstatus:=50, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveChofer:=DdlChofer.SelectedValue.ToEntero) > 0 Then
                 ObjContratos.Commit()
                 Alert("Agregado Correctamente.")
             End If
@@ -102,10 +91,11 @@ Partial Class ListadoContratos
 
         'Actualizar contrato
         If BtnGuardar.Text = "Editar" Then
-            retorno = ObjContratos.UpdateContratos(CveContrato, "", 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:=2, CveContratosEstatus:=1, CveChofer:=DdlChofer.SelectedValue.ToEntero, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero)
+            If ObjContratos.UpdateContratos(CveContrato, "", 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:=2, CveContratosEstatus:=1, CveChofer:=DdlChofer.SelectedValue.ToEntero, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero) Then
 
-            ObjContratos.Commit()
-            Alert("Actualizado Correctamente.")
+                ObjContratos.Commit()
+                Alert("Actualizado Correctamente.")
+            End If
         End If
 
         TxtDescripcion.Text = ""
@@ -125,22 +115,6 @@ Partial Class ListadoContratos
         CargaDatos()
 
     End Sub
-    Protected Sub UpdateContrato(sender As Object, e As EventArgs)
-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        ViewState("CveContrato") = GvRow.DataKey("CveContrato")
-        MostrarModal(
-        Descripcion:=GvRow.DataKey("DescripcionContrato"), FechaSalida:=GvRow.DataKey("FechaInicial").ToDateTime.ToString("yyyy-MM-dd HH:mm:ss").Replace(" ", "T"), FechaRegreso:=GvRow.DataKey("FechaFinal").ToDateTime.ToString("yyyy-MM-dd HH:mm:ss").Replace(" ", "T"), Observaciones:=GvRow.DataKey("DescripcionContrato"), Ubicacion:=GvRow.DataKey("Ubicacion"), Transporte:=GvRow.DataKey("CveTipoAF"), CveCliente:=GvRow.DataKey("CveCliente").ToEntero, Dolares:=GvRow.DataKey("Importe"), Pesos:=GvRow.DataKey("ImporteMax"), Anticipo:=GvRow.DataKey("ImporteMin"), Boton:="Editar", Chofer:=GvRow.DataKey("CveChofer"))
-    End Sub
-    Protected Sub RemoveContrato(sender As Object, e As EventArgs)
-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim ObjContratos As New ClsContratos
-
-        If ObjContratos.RemoveContrato(GvRow.DataKey("CveContrato").ToEntero, UsuarioActual.CveEmpresa) Then
-            Alert("Contrato eliminado correctamente")
-            CargaDatos()
-        End If
-        ObjContratos.Dispose()
-    End Sub
 
     Protected Sub LBExcel_Click(sender As Object, e As EventArgs) Handles LBExcel.Click
         GvContratos.ExportToExcel("ReporteCompras" & NowADS().ToShortDateString)