128 lines
4.7 KiB
VB.net
128 lines
4.7 KiB
VB.net
Option Explicit On
|
||
Option Strict On
|
||
|
||
Imports System.Data
|
||
Imports System.Linq
|
||
Imports CFDi
|
||
Imports Extensiones
|
||
|
||
Partial Class AF_CatModelos
|
||
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
|
||
CargaMarcaAF()
|
||
CargaDatos()
|
||
End If
|
||
End Sub
|
||
|
||
#Region "CARGA´S"
|
||
Private Sub CargaDatos()
|
||
Dim ObjAF As New ClsAF
|
||
If ObjAF.GetModelosActivosFijos(UsuarioActual.CveEmpresa, -1) Then
|
||
GvModelos.DataSource = ObjAF.DtResultados
|
||
GvModelos.DataBind()
|
||
End If
|
||
ObjAF.Dispose()
|
||
UpDatos.Update()
|
||
End Sub
|
||
Private Sub CargaMarcaAF()
|
||
Dim ObjAF As New ClsAF
|
||
If ObjAF.GetMarcasActivosFijos(UsuarioActual.CveEmpresa) Then
|
||
DdlMarcaActivoFijo.DataSource = ObjAF.DtResultados
|
||
DdlMarcaActivoFijo.DataBind()
|
||
End If
|
||
DdlMarcaActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||
ObjAF.Dispose()
|
||
UpDatos.Update()
|
||
End Sub
|
||
#End Region
|
||
|
||
#Region "A G R E G A R M A R C A"
|
||
Private Sub LnkModelo_Click(sender As Object, e As EventArgs) Handles LnkModelo.Click
|
||
HdnModalidad.Value = "A"
|
||
UpDatos.Update()
|
||
BtnAgregarModelo.Text = "Agregar"
|
||
myModalLabel.InnerText = "Agregar Modelo"
|
||
TxtModelo.Text = ""
|
||
DdlMarcaActivoFijo.SelectedIndex = 0
|
||
ChkEstatus.Checked = True
|
||
divEstatus.Visible = False
|
||
UpAddModelos.Update()
|
||
RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddModelos"))
|
||
End Sub
|
||
Private Sub BtnAgregarModelo_Click(sender As Object, e As EventArgs) Handles BtnAgregarModelo.Click
|
||
Dim ObjAF As New ClsAF
|
||
Dim Estatus = False
|
||
If ChkEstatus.Checked Then Estatus = True
|
||
|
||
If HdnModalidad.Value = "A" Then
|
||
If ObjAF.AddModelosActivosFijos(TxtModelo.Text.Trim, DdlMarcaActivoFijo.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||
Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
|
||
End If
|
||
ElseIf HdnModalidad.Value = "U" Then
|
||
If ObjAF.UpdateModelosActivosFijos(HdnID.Value.ToEntero, TxtModelo.Text.Trim, DdlMarcaActivoFijo.SelectedValue.ToEntero, Estatus, UsuarioActual.CveEmpresa) Then
|
||
Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
|
||
End If
|
||
End If
|
||
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddModelos"))
|
||
CargaDatos()
|
||
ObjAF.Dispose()
|
||
UpDatos.Update()
|
||
RegarGlobalDT()
|
||
End Sub
|
||
|
||
Private Sub RegarGlobalDT()
|
||
GlobalDTModeloActivoFijo(UsuarioActual.CveEmpresa, -1) = Nothing
|
||
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("CveModeloActivoFijo")
|
||
UpDatos.Update()
|
||
BtnAgregarModelo.Text = "Actualizar"
|
||
myModalLabel.InnerText = "Actualizar Modelo"
|
||
TxtModelo.Text = GvRow.DataKey("ModeloActivoFijo")
|
||
DdlMarcaActivoFijo.SelectedValueExist(GvRow.DataKey("CveMarcaActivoFijo"))
|
||
|
||
divEstatus.Visible = True
|
||
ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False)
|
||
UpAddModelos.Update()
|
||
RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddModelos"))
|
||
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("CveModeloActivoFijo")
|
||
UpDatos.Update()
|
||
If ObjAF.RemoveModelosActivosFijos(HdnID.Value.ToEntero) Then
|
||
CargaDatos()
|
||
Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion)
|
||
End If
|
||
ObjAF.Dispose()
|
||
UpDatos.Update()
|
||
RegarGlobalDT()
|
||
End Sub
|
||
Private Sub GvModelo_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvModelos.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
|