SIG/General/CatDocumentacionTipo.aspx.vb

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