Commit inicial Ventas Productivo

OS/CatEstatusOrdenServicio.aspx.vb

@@ -0,0 +1,157 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports System.Linq
+Imports Extensiones
+
+Partial Class OS_CatEstatusOrdenServicio
+    Inherits ClsPaginas
+
+#Region " PROPIEDADES"
+    Private Property DtEstatusOS As Data.DataTable
+        Get
+            Return CType(ViewState("DtEstatusOS"), DataTable)
+        End Get
+        Set(value As Data.DataTable)
+            ViewState("DtEstatusOS") = value
+        End Set
+    End Property
+
+    Private Property CveEstatuOS As Integer
+        Get
+            Return ViewState("CveEstatuOS").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveEstatuOS") = 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
+            CveEstatuOS = -1
+            CargaDatos()
+
+        End If
+    End Sub
+
+    Public Sub CargaDatos()
+        Dim ObjEstatusOrdenServicios As New ClsOS
+
+        If ObjEstatusOrdenServicios.GetEstatusOrdenServicio() Then
+
+            DtEstatusOS = ObjEstatusOrdenServicios.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
+            GvDatos.DataSource = DtEstatusOS
+
+            GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = ObjEstatusOrdenServicios.DtResultados
+        Else
+            Me.GvDatos.DataSource = Nothing
+        End If
+        OrdenaDatos()
+        ObjEstatusOrdenServicios.Dispose()
+        GvDatos.DataBind()
+    End Sub
+
+    Private Sub BtnAgregarEstatus_Click(sender As Object, e As EventArgs) Handles BtnAgregarEstatus.Click
+        BtnAgregarEstatusOS.Text = "Agregar"
+        UpFooter.Update()
+        RegistraScript("$('#divAddEstatusOS').modal();LimpiaModal()")
+    End Sub
+    Private Sub BtnAgregarEstatusOS_Click(sender As Object, e As EventArgs) Handles BtnAgregarEstatusOS.Click
+        Dim ObjEstatusOrdenServicios As New ClsOS
+        Dim TieneError = False
+
+        If HdnModalidad.Value = "I" Then
+            If ObjEstatusOrdenServicios.AddEstatusOrdenServicio(TxtEstatusOS.Text.Trim, DdlTipoEstatus.SelectedValue.ToEntero, If(ChkEstatus.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                CargaDatos()
+            End If
+        Else
+            If HdnID.Value.ToEntero <> -1 Then
+                If Not ObjEstatusOrdenServicios.UpdateEstatusOrdenServicio(TxtEstatusOS.Text.Trim, DdlTipoEstatus.SelectedValue.ToEntero, If(ChkEstatus.Checked, 1, 0), HdnID.Value.ToEntero) Then
+                    TieneError = True
+                End If
+            End If
+
+            If Not TieneError Then
+                GvDatos.EditIndex = -1
+                CargaDatos()
+            Else
+                Alert("Ocurrio un error al actualizar los datos", TipoMensaje.MsgAdvertencia)
+            End If
+        End If
+
+
+        ObjEstatusOrdenServicios.Dispose()
+        CargaDatos()
+        UpDatos.Update()
+        RegistraScript("$('#divAddEstatusOS').modal('hide');")
+    End Sub
+    Public Sub Edit_Click(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        DdlTipoEstatus.SelectedValueExist(GvRow.DataKey("TipoEstatus"))
+        TxtEstatusOS.Text = GvRow.DataKey("EstatusOrdenServicio")
+        ChkEstatus.Checked = If(GvRow.DataKey("Estado").ToString = "Activo", True, False)
+        CveEstatuOS = GvRow.DataKey("CveEstatusOrdenServicio").ToEntero
+        BtnAgregarEstatusOS.Text = "Actualizar"
+        UpAddEstatus.Update()
+        RegistraScript(String.Format("$('#{0}').modal();", "divAddEstatusOS"))
+    End Sub
+
+#Region "G V  D A T O S"
+    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            Dim URL As String = String.Format("javascript:LimpiaModal();SetValue('HdnModalidad', 'U');SetValue('HdnID', '{0}'); SetObjects('{1}');ShowDivRegistro();return false;", e.Row.DBCampo("CveEstatusOrdenServicio").ToEntero, e.Row.DBCampo("EstatusOrdenServicio"))
+            'GeneroLigas
+            Dim Liga As String = String.Format("<a class=""LinkBlanco"" href=""{0}"">", URL)
+            e.Row.VerticalAlign = VerticalAlign.Middle
+            e.Row.FCLinkButton("ImgE").OnClientClick = URL
+        End If
+    End Sub
+    Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
+        Dim ObjEstatusOrdenServicios As New ClsOS
+
+        Dim CveEstatusOrdenServicio As Integer = GvDatos.Rows(e.RowIndex).DataKey("CveEstatusOrdenServicio").ToEntero
+
+        If ObjEstatusOrdenServicios.RemoveEstatusOrdenServicio(CveEstatusOrdenServicio) Then
+            GvDatos.EditIndex = -1
+            DtEstatusOS = ObjEstatusOrdenServicios.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = ObjEstatusOrdenServicios.DtResultados
+            Alert("El Estatus de Orden de Servicio se eliminó correctamente.", TipoMensaje.MsgInformacion)
+        End If
+
+        ObjEstatusOrdenServicios.Dispose()
+        CargaDatos()
+        UpDatos.Update()
+    End Sub
+    Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating
+        Dim ObjEstatusOrdenServicios As New ClsOS
+        Dim EstatusOrdenServicio As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtEstatusOrdenServicio"), TextBox).Text.Trim
+        Dim Estado As Boolean = GvDatos.Rows(e.RowIndex).FCCheckBox("ChkEstado").Checked
+        Dim CveEstatusOrdenServicio As Integer = GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero
+
+        'If ObjEstatusOrdenServicios.UpdateEstatusOrdenServicio(EstatusOrdenServicio, Estado, CveEstatusOrdenServicio) Then
+        '    GvDatos.EditIndex = -1
+        '    ViewState("DTEstatusOrdenServicios") = ObjEstatusOrdenServicios.DtResultados '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        '    GlobalDTEstatusOrdenServicios = ObjEstatusOrdenServicios.DtResultados
+        '    Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
+        'End If
+
+        ObjEstatusOrdenServicios.Dispose()
+
+
+    End Sub
+
+#End Region
+
+#Region "O R D E N A M I E N T O"
+    Private Sub OrdenaDatos()
+        If (GvDatos.Rows.Count > 0) Then
+            GvDatos.UseAccessibleHeader = True
+            GvDatos.HeaderRow.TableSection = TableRowSection.TableHeader
+            RegistraScript("OrdenarGV();")
+        End If
+    End Sub
+#End Region
+End Class