Commit inicial Ventas Productivo

General/CatDocumentacionTipo.aspx.vb

@@ -0,0 +1,163 @@
+Option Strict On
+Imports System.Data
+Imports System.Collections.Generic
+Imports System.Linq
+Imports System.Web
+Imports System.Web.UI.WebControls
+Imports Extensiones
+Partial Class General_CatDocumentacionTipo
+    Inherits ClsPaginas
+
+
+#Region "Propiedades"
+    Private Property RcveDocumentacionTipo As Integer
+        Get
+            If ViewState("RcveDocumentacionTipo") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("RcveDocumentacionTipo").ToString.ToEntero
+            End If
+
+        End Get
+        Set
+            ViewState("RcveDocumentacionTipo") = Value
+        End Set
+    End Property
+    Private Property CcveDocumentacionTipo As Integer
+        Get
+            If ViewState("CcveDocumentacionTipo") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("CcveDocumentacionTipo").ToString.ToEntero
+            End If
+        End Get
+        Set
+            ViewState("CcveDocumentacionTipo") = Value
+        End Set
+    End Property
+    Private Property RcveUsuario As Integer
+        Get
+            If ViewState("RcveUsuario") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("RcveUsuario").ToString.ToEntero
+            End If
+
+        End Get
+        Set
+            ViewState("RcveUsuario") = Value
+        End Set
+    End Property
+
+#End Region
+    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+
+
+
+            CargaEdoc_DocumentacionTipo()
+        End If
+    End Sub
+    Protected Sub CargaEdoc_DocumentacionTipo()
+        Dim ObjEdoc As New ClsGenerales()
+        ObjEdoc.GetEdoc_DocumentacionTipo(RcveDocumentacionTipo, UsuarioActual.CveEmpresa, -1, 1, Modulo:=-1)
+        GVEdoc_DocumentacionTipo.DataSource = ObjEdoc.DtResultados
+        ObjEdoc.Dispose()
+        GVEdoc_DocumentacionTipo.DataBind()
+        upDatosEdoc.Update()
+    End Sub
+
+    Protected Sub LimpiaEdoc_DocumentacionTipo()
+        TxtEdocdocumentacionTipo.Text = ""
+        DdlEdocmodulo.SelectedIndex = 0
+        ChkEdocestatus.Checked = True
+
+
+        UPModalEdoc.Update()
+    End Sub
+    Protected Sub LnkEditarEdoc_Click(sender As Object, e As EventArgs)
+
+        LimpiaEdoc_DocumentacionTipo()
+
+        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+        CcveDocumentacionTipo = gvRow.DataKey("CveDocumentacionTipo").ToEntero()
+        Dim documentacionTipo As String = gvRow.DataKey("DocumentacionTipo")
+        Dim modulo As Int32 = gvRow.DataKey("Modulo").ToEntero()
+
+        Dim estatus As Boolean = Boolean.Parse(gvRow.DataKey("Estatus"))
+
+        Dim fecha As DateTime = gvRow.DataKey("Fecha").ToDate()
+        Dim fechaIng As DateTime = gvRow.DataKey("FechaIng").ToDate()
+        Dim cveUsuario As Int32 = gvRow.DataKey("CveUsuario").ToEntero()
+        Dim cveEmpresa As Int32 = gvRow.DataKey("CveEmpresa").ToEntero()
+
+        TxtEdocdocumentacionTipo.Text = documentacionTipo.ToString()
+        DdlEdocmodulo.SelectedValueExist(modulo.ToString())
+        ChkEdocestatus.Checked = estatus
+
+
+        RegistraScript("$('#DModalEdoc_DocumentacionTipo').modal()")
+        BtnEdocADD.Visible = False
+        BtnEdocEdit.Visible = True
+        UPModalEdoc.Update()
+    End Sub
+    Protected Sub LnkAgregarEdoc_Click(sender As Object, e As EventArgs)
+        RegistraScript("$('#DModalEdoc_DocumentacionTipo').modal()")
+        LimpiaEdoc_DocumentacionTipo()
+        BtnEdocADD.Visible = True
+        BtnEdocEdit.Visible = False
+        UPModalEdoc.Update()
+    End Sub
+    Protected Sub BtnEdocADD_Click(sender As Object, e As EventArgs)
+
+        Dim documentacionTipo As String = TxtEdocdocumentacionTipo.Text
+        Dim modulo As Integer = DdlEdocmodulo.SelectedValue.ToEntero
+        Dim estatus As Boolean = ChkEdocestatus.Checked
+
+
+
+        Dim ObjEdoc As New ClsGenerales()
+
+        Dim Continuar As Boolean = ObjEdoc.AddUpdateEdoc_DocumentacionTipo(-1, documentacionTipo, modulo, estatus, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+        ObjEdoc.Dispose()
+        If (Continuar) Then
+            RegistraScript("$('#DModalEdoc_DocumentacionTipo').modal('hide')")
+            LimpiaEdoc_DocumentacionTipo()
+            CargaEdoc_DocumentacionTipo()
+            UPModalEdoc.Update()
+
+            Alert("El Edoc_Documentacion_Tipo Se ha agregado")
+        End If
+    End Sub
+    Protected Sub BtnEdocEdit_Click(sender As Object, e As EventArgs)
+
+        Dim documentacionTipo As String = TxtEdocdocumentacionTipo.Text
+        Dim modulo As Integer = DdlEdocmodulo.SelectedValue.ToEntero
+        Dim estatus As Boolean = ChkEdocestatus.Checked
+
+
+        Dim ObjEdoc As New ClsGenerales()
+        Dim Continuar As Boolean = ObjEdoc.AddUpdateEdoc_DocumentacionTipo(CcveDocumentacionTipo, documentacionTipo, modulo, estatus, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        ObjEdoc.Dispose()
+        If (Continuar) Then
+            RegistraScript("$('#DModalEdoc_DocumentacionTipo').modal('hide')")
+            LimpiaEdoc_DocumentacionTipo()
+            CargaEdoc_DocumentacionTipo()
+            UPModalEdoc.Update()
+            Alert("El Edoc_Documentacion_Tipo Se ha actualizado")
+        End If
+    End Sub
+    Protected Sub LnkEliminarEdoc_Click(sender As Object, e As EventArgs)
+        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+        CcveDocumentacionTipo = gvRow.DataKey("CveDocumentacionTipo").ToEntero()
+        Dim ObjEdoc As New ClsGenerales()
+        Dim Continuar As Boolean = ObjEdoc.RemoveEdoc_DocumentacionTipo(CcveDocumentacionTipo, UsuarioActual.CveEmpresa)
+        ObjEdoc.Dispose()
+        If (Continuar) Then
+            CargaEdoc_DocumentacionTipo()
+            Alert("El Edoc_Documentacion_Tipo Se ha Eliminado")
+        End If
+    End Sub
+
+End Class