111 lines
4.0 KiB
VB.net
111 lines
4.0 KiB
VB.net
Option Explicit On
|
||
Option Strict On
|
||
|
||
Imports System.Data
|
||
Imports System.Linq
|
||
Imports Extensiones
|
||
|
||
Partial Class AF_CatMarcas
|
||
Inherits ClsPaginas
|
||
|
||
#Region " PROPIEDADES"
|
||
|
||
#End Region
|
||
Private Sub AF_CatOperadores_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||
If Not Page.IsPostBack Then
|
||
CargaDatos()
|
||
End If
|
||
End Sub
|
||
|
||
#Region "CARGA´S"
|
||
Private Sub CargaDatos()
|
||
Dim ObjAF As New ClsAF
|
||
If ObjAF.GetMarcasActivosFijos(UsuarioActual.CveEmpresa) Then
|
||
GvMarcas.DataSource = ObjAF.DtResultados
|
||
GvMarcas.DataBind()
|
||
End If
|
||
ObjAF.Dispose()
|
||
UpDatos.Update()
|
||
End Sub
|
||
|
||
#End Region
|
||
|
||
#Region "A G R E G A R M A R C A"
|
||
Private Sub LnkMarca_Click(sender As Object, e As EventArgs) Handles LnkMarca.Click
|
||
HdnModalidad.Value = "A"
|
||
UpDatos.Update()
|
||
BtnAgregarMarca.Text = "Agregar"
|
||
myModalLabel.InnerText = "Agregar Marca"
|
||
TxtMarca.Text = ""
|
||
ChkEstatus.Checked = True
|
||
divEstatus.Visible = False
|
||
UpAddMarca.Update()
|
||
RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddMarcas"))
|
||
End Sub
|
||
Private Sub BtnAgregarMarca_Click(sender As Object, e As EventArgs) Handles BtnAgregarMarca.Click
|
||
Dim ObjAF As New ClsAF
|
||
Dim Estatus = False
|
||
If ChkEstatus.Checked Then Estatus = True
|
||
|
||
If HdnModalidad.Value = "A" Then
|
||
If ObjAF.AddMarcasActivosFijos(TxtMarca.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||
GlobalDTMarcaActivoFijo(UsuarioActual.CveEmpresa) = Nothing
|
||
Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
|
||
End If
|
||
ElseIf HdnModalidad.Value = "U" Then
|
||
If ObjAF.UpdateMarcasActivosFijos(HdnID.Value.ToEntero, TxtMarca.Text.Trim, Estatus, UsuarioActual.CveEmpresa) Then
|
||
GlobalDTMarcaActivoFijo(UsuarioActual.CveEmpresa) = Nothing
|
||
Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
|
||
End If
|
||
End If
|
||
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddMarcas"))
|
||
CargaDatos()
|
||
ObjAF.Dispose()
|
||
UpDatos.Update()
|
||
End Sub
|
||
Public Sub Edit_Click(sender As Object, e As EventArgs)
|
||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||
HdnModalidad.Value = "U"
|
||
HdnID.Value = GvRow.DataKey("CveMarcaActivoFijo")
|
||
UpDatos.Update()
|
||
BtnAgregarMarca.Text = "Actualizar"
|
||
myModalLabel.InnerText = "Actualizar Marca"
|
||
TxtMarca.Text = GvRow.DataKey("MarcaActivoFijo")
|
||
|
||
divEstatus.Visible = True
|
||
ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False)
|
||
UpAddMarca.Update()
|
||
RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddMarcas"))
|
||
End Sub
|
||
#End Region
|
||
|
||
#Region "GV "
|
||
Public Sub Delete_Click(sender As Object, e As EventArgs)
|
||
Dim ObjAF As New ClsAF()
|
||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||
HdnID.Value = GvRow.DataKey("CveMarcaActivoFijo")
|
||
UpDatos.Update()
|
||
If ObjAF.RemoveMarcasActivosFijos(HdnID.Value.ToEntero) Then
|
||
GlobalDTMarcaActivoFijo(UsuarioActual.CveEmpresa) = Nothing
|
||
CargaDatos()
|
||
Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion)
|
||
End If
|
||
ObjAF.Dispose()
|
||
UpDatos.Update()
|
||
End Sub
|
||
Private Sub GvChofer_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvMarcas.RowDataBound
|
||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||
If e.Row.DBCampo("Estatus") = "Activo" Then
|
||
e.Row.FCLabel("LblEstatus").Text = "Activo"
|
||
e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Green
|
||
|
||
Else
|
||
e.Row.FCLabel("LblEstatus").Text = "Inactivo"
|
||
e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Red
|
||
End If
|
||
End If
|
||
End Sub
|
||
|
||
#End Region
|
||
End Class
|