134 lines
3.6 KiB
VB.net
134 lines
3.6 KiB
VB.net
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
|