Commit inicial Ventas Productivo

RH/CatUniformesDetalle.aspx.vb

@@ -0,0 +1,297 @@
+Option Strict On
+
+Imports Extensiones
+Partial Class RH_CatUniformesDetalle
+    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 CveUniformeDetalle As Integer
+        Get
+            If ViewState("CveUniformeDetalle") Is Nothing Then
+                Return -1
+            Else
+                Return DirectCast(ViewState("CveUniformeDetalle"), Integer)
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CveUniformeDetalle") = 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 Property Cantidad As Integer
+        Get
+            If ViewState("Cantidad") Is Nothing Then
+                Return -1
+            Else
+                Return DirectCast(ViewState("Cantidad"), Integer)
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("Cantidad") = value
+        End Set
+    End Property
+
+    Private Property Periodo As Integer
+        Get
+            If ViewState("Periodo") Is Nothing Then
+                Return -1
+            Else
+                Return DirectCast(ViewState("Periodo"), Integer)
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("Periodo") = value
+        End Set
+    End Property
+    Private Sub RH_CatUniformes_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        If Not Page.IsPostBack Then
+
+            If Not Request.QueryString("CveUniforme") Is Nothing Then
+                CveUniforme = Request.QueryString("CveUniforme").ToEntero
+            Else
+                CveUniforme = -1
+            End If
+
+            CargaDatos()
+        End If
+
+    End Sub
+
+
+    Private Sub CargaDatos()
+
+
+        If CveUniforme > 0 Then
+
+            lnkUniformeDetalleAgregar.Visible = True
+
+            Dim objRH As New ClsRH
+
+            If objRH.UniformeGet(CveUniforme, -1, UsuarioActual.CveEmpresa) Then
+
+                If objRH.DtResultados.Rows.Count > 0 Then
+
+                    TxtUniforme.Text = objRH.DtResultados.Rows(0)("Uniforme").ToString
+                    chkUniformeActivo.Checked = If(Boolean.Parse(objRH.DtResultados.Rows(0)("Estatus").ToString), True, False)
+
+                    If objRH.UniformeDetalleGet(-1, CveUniforme, UsuarioActual.CveEmpresa) Then
+                        GvDatos.DataSource = objRH.DtResultados
+                    Else
+                        GvDatos.DataSource = Nothing
+                    End If
+
+                End If
+
+                objRH.Dispose()
+                GvDatos.DataBind()
+
+                UPDatos.Update()
+
+            End If
+        Else
+            lnkUniformeDetalleAgregar.Visible = False
+            GvDatos.DataSource = Nothing
+            GvDatos.DataBind()
+
+            TxtUniforme.Text = ""
+            chkUniformeActivo.Checked = False
+
+            UPDatos.Update()
+
+
+        End If
+
+    End Sub
+
+    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
+        CveUniformeDetalle = GvRow.DataKey("CveUniformeDetalle").ToEntero
+        TxtModalCantidad.Text = GvRow.DataKey("Cantidad")
+        TxtModalPeriodo.Text = GvRow.DataKey("Periodo")
+
+        'DdlPSEdit.DataSource = GlobalDTProductosServicios(UsuarioActual.CveEmpresa)
+        'DdlPSEdit.DataBind()
+        DdlPSEdit.ddl.Visible = False
+
+        DdlPSEdit.SelectedText = GvRow.DataKey("PS").ToString
+
+        DdlPSEdit.SelectedValue = GvRow.DataKey("CvePS").ToString
+        DdlPSEdit.txtText.Value = GvRow.DataKey("PS").ToString
+        DdlPSEdit.txtValue.Value = GvRow.DataKey("CvePS").ToString
+        LnkModalUniformeDetalleAgregar.Text = "Actualizar"
+
+        RegistraScript("$('#DivModalUniformeDetalle').modal({ backdrop: 'static',  keyboard: false});", "MUniforme")
+
+        UpModaluniformes.Update()
+
+    End Sub
+
+
+    Public Sub Delete_Click(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Dim CveUniformeDetalleE As Integer = GvRow.DataKey("CveUniformeDetalle").ToEntero
+
+        Dim objRH As New ClsRH
+
+        If objRH.UniformeDetalleRemove(CveUniformeDetalleE) Then
+            Alert("Registro eliminado correctamente.")
+            CargaDatos()
+        End If
+
+
+
+        objRH.Dispose()
+
+    End Sub
+
+    Private Sub LnkAgregarUniforme_Click(sender As Object, e As EventArgs) Handles LnkAgregarUniforme.Click
+
+
+        Response.Redirect("CatUniformesDetalle.aspx", True)
+
+    End Sub
+
+    Private Sub LnkModalUniformeDetellaAgregar_Click(sender As Object, e As EventArgs) Handles LnkModalUniformeDetalleAgregar.Click
+
+        Dim objRH As New ClsRH
+        Dim CvePS As Integer
+
+        If DdlPSEdit.SelectedValue.ToEntero = 0 And DdlPSEdit.txtValue.Value.ToEntero = 0 Then
+            Alert("Debe seleccionar un  producto")
+            Exit Sub
+        Else
+            If DdlPSEdit.SelectedValue.ToEntero = 0 Then
+                CvePS = DdlPSEdit.txtValue.Value.ToEntero
+            Else
+                CvePS = DdlPSEdit.SelectedValue.ToEntero
+            End If
+        End If
+
+
+        If CveUniformeDetalle > 0 Then
+            If objRH.UniformeDetalleAddUpdate(CveUniformeDetalle, CveUniforme, CvePS, TxtModalPeriodo.Text.ToEntero, TxtModalCantidad.Text.ToEntero, UsuarioActual.CveUsuario) Then
+
+                RegistraScript("$('#DivModalUniformeDetalle').modal('hide');", "MUniforme")
+                Alert("Uniforme actualizado correctamente.")
+
+                CveUniformeDetalle = -1
+            End If
+        Else
+            If objRH.UniformeDetalleAddUpdate(-1, CveUniforme, CvePS, TxtModalPeriodo.Text.ToEntero, TxtModalCantidad.Text.ToEntero, UsuarioActual.CveUsuario) Then
+
+                RegistraScript("$('#DivModalUniformeDetalle').modal('hide');", "MUniforme")
+                Alert("Uniforme agregado correctamente.")
+
+                CveUniformeDetalle = -1
+            End If
+
+        End If
+
+
+
+        objRH.Dispose()
+        CargaDatos()
+
+    End Sub
+
+    Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
+
+        Dim objRH As New ClsRH
+
+        If CveUniforme > 0 Then
+
+            If objRH.UniformeAddUpdate(CveUniforme, TxtUniforme.Text.Trim, If(chkUniformeActivo.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                Alert("Uniforme agregado Actualizado")
+                objRH.Dispose()
+
+
+            End If
+
+        Else
+            If objRH.UniformeAddUpdate(-1, TxtUniforme.Text.Trim, If(chkUniformeActivo.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+
+
+                objRH.Dispose()
+                CveUniforme = objRH.DtResultados.Rows(0)(0).ToString.ToEntero
+                Response.Redirect($"CatUniformesDetalle.aspx?CveUniforme={CveUniforme}", True)
+            End If
+        End If
+
+
+
+
+        CargaDatos()
+    End Sub
+
+    Private Sub lnkUniformeDetalleAgregar_Click(sender As Object, e As EventArgs) Handles lnkUniformeDetalleAgregar.Click
+
+        DdlPSEdit.txtText.Value = ""
+        DdlPSEdit.txtValue.Value = ""
+        DdlPSEdit.ddl.Visible = False
+        TxtModalCantidad.Text = ""
+        TxtModalPeriodo.Text = ""
+        LnkModalUniformeDetalleAgregar.Text = "Agregar"
+
+        UpModaluniformes.Update()
+        RegistraScript("$('#DivModalUniformeDetalle').modal({ backdrop: 'static',  keyboard: false});", "MUniforme")
+    End Sub
+
+    Private Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click
+        Dim objRH As New ClsRH
+
+        If objRH.UniformeRemove(CveUniforme, UsuarioActual.CveEmpresa) Then
+            objRH.Dispose()
+            Response.Redirect("CatUniformes.aspx", True)
+        Else
+            objRH.Dispose()
+        End If
+
+
+
+    End Sub
+End Class