Commit inicial Ventas Productivo

RH/CatUniformes.aspx.vb

@@ -0,0 +1,133 @@
+Option Strict On
+
+Imports Extensiones
+Partial Class RH_CatUniformes
+    Inherits ClsPaginas
+
+    Private Property CveUniforme As Integer
+        Get
+            If ViewState("CveUniforme") Is Nothing Then
+                Return -1
+            Else
+                Return DirectCast(ViewState("CveUniforme"), Integer)
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CveUniforme") = value
+        End Set
+    End Property
+
+    Private Property Uniforme As String
+        Get
+            If ViewState("Uniforme") Is Nothing Then
+                Return ""
+            Else
+                Return ViewState("Uniforme").ToString
+            End If
+        End Get
+        Set(value As String)
+            ViewState("Uniforme") = value
+        End Set
+    End Property
+
+
+
+    Private Property Estatus As Integer
+        Get
+            If ViewState("Estatus") Is Nothing Then
+                Return -1
+            Else
+                Return DirectCast(ViewState("Estatus"), Integer)
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("Estatus") = value
+        End Set
+    End Property
+
+    Private Sub RH_CatUniformes_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        If Not Page.IsPostBack Then
+            CargaDatos()
+        End If
+
+    End Sub
+
+
+    Private Sub CargaDatos()
+
+        Dim objRH As New ClsRH
+
+        If objRH.UniformeGet(-1, -1, UsuarioActual.CveEmpresa) Then
+            GvDatos.DataSource = objRH.DtResultados
+        End If
+
+        objRH.Dispose()
+        GvDatos.DataBind()
+
+        UPDatos.Update()
+
+    End Sub
+
+
+    'RegistraScript("$('#DivModalHojaTecnica').modal({ backdrop: 'static',  keyboard: false});", "MTareas")
+    'DivModalUniforme
+
+    Public Sub Edit_Click(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        CveUniforme = GvRow.DataKey("CveUniforme").ToEntero
+        TxtModalUniforme.Text = GvRow.DataKey("Uniforme")
+        chkModalUniforme.Checked = Boolean.Parse(GvRow.DataKey("Estatus").ToString)
+
+        RegistraScript("$('#DivModalUniforme').modal({ backdrop: 'static',  keyboard: false});", "MUniforme")
+
+        UpModaluniformes.Update()
+
+    End Sub
+    'Delete_Click
+
+    Public Sub Delete_Click(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Dim CveUniformeE As Integer = GvRow.DataKey("CveUniforme").ToEntero
+
+        Dim objRH As New ClsRH
+
+        If objRH.UniformeRemove(CveUniformeE, UsuarioActual.CveEmpresa) Then
+            Alert("Uniforme eliminado correctamente.")
+            CargaDatos()
+        End If
+
+        CveUniforme = -1
+
+        objRH.Dispose()
+
+    End Sub
+
+    Private Sub LnkAgregarUniforme_Click(sender As Object, e As EventArgs)
+
+        TxtModalUniforme.Text = ""
+        chkModalUniforme.Checked = True
+
+        RegistraScript("$('#DivModalUniforme').modal({ backdrop: 'static',  keyboard: false});", "MUniforme")
+    End Sub
+
+    Private Sub LnkModalUniformeAgregar_Click(sender As Object, e As EventArgs) Handles LnkModalUniformeAgregar.Click
+
+        Dim objRH As New ClsRH
+
+        If objRH.UniformeAddUpdate(CveUniforme, TxtModalUniforme.Text.Trim, If(chkModalUniforme.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+
+            CargaDatos()
+            RegistraScript("$('#DivModalUniforme').modal('hide');", "MUniforme")
+            Alert("Uniforme agregado correctamente.")
+            CveUniforme = -1
+
+        End If
+
+
+        objRH.Dispose()
+
+    End Sub
+End Class