Orden de trabajo

AF/RepOrdenTrabajo.aspx.vb

@@ -0,0 +1,187 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
+Partial Class AF_RepOrdenTrabajo
+    Inherits ClsPaginas
+
+#Region " PROPIEDADES"
+
+    Property DT_Cabeceras As DataTable
+        Get
+
+            If ViewState("DT_Cabeceras") Is Nothing Then
+
+                Return New DataTable
+            Else
+                Return DirectCast(ViewState("DT_Cabeceras"), DataTable)
+            End If
+
+        End Get
+        Set(value As DataTable)
+            ViewState("DT_Cabeceras") = value
+        End Set
+    End Property
+
+
+    Property DT_Datos As DataTable
+        Get
+
+            If ViewState("DT_Datos") Is Nothing Then
+                Return New DataTable
+            Else
+                Return DirectCast(ViewState("DT_Datos"), DataTable)
+            End If
+
+        End Get
+        Set(value As DataTable)
+            ViewState("DT_Datos") = value
+        End Set
+    End Property
+
+#End Region
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+
+            CargaCombos()
+            CargaDatos()
+
+            Dim FechaActual As Date = Now
+
+
+            'TxtFechaF.Text = $"{FechaActual.Day.ToString("00")}/{FechaActual.Month.ToString("00")}/{FechaActual.Year}"
+            TxtFechaF.Text = ""
+            FechaActual = FechaActual.AddDays(-30)
+            TxtFechaI.Text = $"{FechaActual.Day.ToString("00")}/{FechaActual.Month.ToString("00")}/{FechaActual.Year}"
+
+        End If
+    End Sub
+
+
+#Region " CARGA PARAMETROS "
+
+#End Region
+
+#Region "  CARGA COMBOS  "
+    Protected Sub CargaCombos()
+
+        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
+
+        DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa, -1)
+        DdlAF.DataBind()
+
+        DdlAF.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        Dim ObjAF As New ClsAF
+
+        If ObjAF.GetTiposServicios(-1, -1, -1, UsuarioActual.CveEmpresa) Then
+            DdlTipoServicio.DataSource = ObjAF.DtResultados
+        Else
+            DdlTipoServicio.DataSource = Nothing
+        End If
+
+        If ObjAF.GetOrdenesTrabajoEstatus(UsuarioActual.CveEmpresa) Then
+            DdlOrdenesTrabajoEstatus.DataSource = ObjAF.DtResultados
+        Else
+            DdlOrdenesTrabajoEstatus.DataSource = Nothing
+        End If
+
+        ObjAF.Dispose()
+
+        DdlTipoServicio.DataBind()
+        DdlTipoServicio.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        DdlOrdenesTrabajoEstatus.DataBind()
+        DdlOrdenesTrabajoEstatus.Items.Insert(0, New ListItem("Todos", "-1"))
+
+
+
+
+        DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, -1).FiltraParametros("CveEstatusPersonal = 1")
+        DdlPersonal.DataBind()
+        DdlPersonal.Items.Insert(0, New ListItem("Todos", "-1"))
+
+
+        UpFiltro.Update()
+
+
+    End Sub
+
+
+#End Region
+
+#Region "  CARGA DATOS  "
+    Protected Sub BtnFiltrar_Click(sender As Object, e As EventArgs)
+        CargaDatos()
+
+    End Sub
+
+
+#End Region
+
+#Region "  GV DATOS  "
+
+    Private Sub CargaDatos()
+
+
+        Dim FechaInicio, FechaFin As Date
+        Dim Folio As Integer = If(TxtFolio.Text.ToEntero > 0, TxtFolio.Text.ToEntero, -1)
+        FechaInicio = TxtFechaI.Text.ToDate
+
+
+        If DdlOrdenesTrabajoEstatus.SelectedValue.ToEntero = 3 AndAlso TxtFechaF.Text.Trim.Length = 0 Then
+            FechaFin = MaxFecha.AddDays(1)
+        Else
+            FechaFin = MaxFecha
+        End If
+
+
+        If TxtFechaF.Text.Length = 10 Then
+            FechaFin = TxtFechaF.Text.ToDate
+        End If
+
+
+        Dim ObjAF As New ClsAF
+
+        If ObjAF.GetOrdenesTrabajo(-1, DdlTipoServicio.SelectedValue.ToEntero, Folio, DdlAF.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlPrioridad.SelectedValue.ToEntero, FechaInicio, FechaFin, MaxFecha, DdlOrdenesTrabajoEstatus.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            GvDatos.DataSource = ObjAF.DtResultados
+        Else
+            GvDatos.DataSource = Nothing
+        End If
+
+        ObjAF.Dispose()
+
+        GvDatos.DataBind()
+        UpDatos.Update()
+
+    End Sub
+
+
+
+
+    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+        End If
+
+    End Sub
+
+#End Region
+
+
+
+
+    Protected Sub LnkEliminarMetricaValor_Click(sender As Object, e As EventArgs)
+
+    End Sub
+
+
+
+
+
+End Class