-- mejoras en filtros, actualización de contrato

Transportes/RepContratosCalendario.aspx.vb

@@ -57,7 +57,13 @@ Partial Class RepContratosCalendario
         Dim CveCliente As Integer = DdlCliente.SelectedValue.ToEntero
         If CveCliente = 0 Then CveCliente = -1
 
-        If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlCliente.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, CveEstatus:=DdlEstatusConsulta.SelectedValue.ToEntero, CveTipoContrato:=34) Then
+        If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate,
+                                                DdlCliente.SelectedValue.ToEntero,
+                                                CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero,
+                                                CveEstatus:=DdlEstatusConsulta.SelectedValue.ToEntero,
+                                                CveTipoContrato:=34,
+                                                CveTipoAF:=DdlTipoUnidad.SelectedValue.ToEntero,
+                                                CveChofer:=DdlChoferFiltro.SelectedValue.ToEntero) Then
             DtAvance = ObjContratos.DtResultados.Copy()
             CargaCronograma(DdlTipoVista.SelectedValue.ToEntero)
         End If
@@ -77,7 +83,10 @@ Partial Class RepContratosCalendario
     Private Sub CargaCronograma(Optional TipoVista As Integer = -1)
         If DtAvance IsNot Nothing Then
 
-            Dim DtUnidades As DataTable = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros("Codigo <> '' AND MedidaVehicular IN (2,3)", Orderby:=" TipoActivoFijo ASC, CodigoNumeroOrden ASC", DistinctColumns:={"Codigo", "CveActivoFijo"})
+            Dim StrFiltro As String = ""
+            If DdlTipoUnidad.SelectedValue.ToEntero > 0 Then StrFiltro = " AND CveTipoActivoFijo = " & DdlTipoUnidad.SelectedValue
+
+            Dim DtUnidades As DataTable = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros("Codigo <> '' AND MedidaVehicular IN (2,3) " & StrFiltro, Orderby:=" TipoActivoFijo ASC, CodigoNumeroOrden ASC", DistinctColumns:={"Codigo", "CveActivoFijo"})
 
             'For Each Row As DataRow In DtAvance.Rows
             '    If String.IsNullOrEmpty(Row("CodigoAF").ToString()) Then
@@ -138,37 +147,36 @@ Partial Class RepContratosCalendario
 
     Private Sub InicializaCombos()
         'Lista de Tipos de activo fijos
-        DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
-        DdlTipoAF.Items.Insert(0, New ListItem("-", ""))
+        Dim dttipoaf As DataTable = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("MedidaVehicularClave IN (2,3)")
+        DdlTipoAF.DataSource = dttipoaf
+        DdlTipoAF.Items.Insert(0, New ListItem("-", "-1"))
         DdlTipoAF.DataBind()
 
-        DdlTipoUnidad.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
-        DdlTipoUnidad.DataBind()
-        DdlTipoUnidad.Items.Insert(0, New ListItem("-", ""))
-        'Lista de Activos fijos
+        DdlTipoUnidad.DataSource = dttipoaf
+        DdlTipoUnidad.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlTipoUnidad.DataBind()
+
+        'Lista de Activos fijos
         DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
         DdlAF.DataBind()
-        DdlAF.Items.Insert(0, New ListItem("-", ""))
+        DdlAF.Items.Insert(0, New ListItem("-", "-1"))
 
         'Lista Chofer'
-        DdlChofer.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto")
+        Dim dtchofer As DataTable = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("CvePuesto = 702 and CveEstatusPersonal = 1", "NombreCompleto")
+        DdlChofer.DataSource = dtchofer
         DdlChofer.DataBind()
         DdlChofer.Items.Insert(0, New ListItem("-", "-1"))
         DdlChofer.SelectedValueExist(-1)
 
-        DdlChofer2.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto")
+        DdlChofer2.DataSource = dtchofer
         DdlChofer2.DataBind()
         DdlChofer2.Items.Insert(0, New ListItem("-", "-1"))
         DdlChofer2.SelectedValueExist(-1)
 
-        DdlChoferFiltro.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto")
+        DdlChoferFiltro.DataSource = dtchofer
         DdlChoferFiltro.DataBind()
-        DdlChoferFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
-
-        DdlTipoUnidad.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("MedidaVehicularClave IN (2,3)")
-        DdlTipoUnidad.DataBind()
-        DdlTipoUnidad.Items.Insert(0, New ListItem("Todos", "-1"))
-
+        DdlChoferFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
+
         DdlEstatusConsulta.DataSource = GlobalDTContratosEstatus(UsuarioActual.CveEmpresa)
         DdlEstatusConsulta.DataBind()
         DdlEstatusConsulta.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -208,16 +216,12 @@ Partial Class RepContratosCalendario
         RegistraScript("$('#ModalActualizar').modal('show');")
     End Sub
 
-
     Protected Sub UpdateContrato(sender As Object, e As EventArgs)
-        Dim ObjContratos As New ClsContratos
-        ObjContratos.IniciaTransacSQL()
+        Dim ObjContratos As New ClsContratos
 
-        If ObjContratos.UpdateContratos(CveContrato, 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, Observaciones:=TxtObservaciones.Text.Trim) Then
-            ObjContratos.Commit()
-            Alert("Actualizado Correctamente.")
-        Else
-            ObjContratos.RollBack()
+        If ObjContratos.UpdateContratos(CveContrato, 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, Observaciones:=TxtObservaciones.Text.Trim) Then
+            RegistraScript("$('#ModalActualizar').modal('hide');")
+            Alert("Actualizado Correctamente.")
         End If
 
         ObjContratos.Dispose()
@@ -243,7 +247,7 @@ Partial Class RepContratosCalendario
         DdlChofer2.SelectedValueExist(GvRow.DataKey("CveChofer2"))
         DdlEstatusContrato.SelectedValue = GvRow.DataKey("CveContratosEstatus")
         CveContrato = GvRow.DataKey("CveContrato").ToEntero
-
+        UpCommando.Update()
         UpModal.Update()
         RegistraScript("$('#ModalActualizar').modal('show');")
     End Sub