Commit inicial Ventas Productivo

AF/CatMarcas.aspx.vb

@@ -0,0 +1,108 @@
+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
+                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
+
+                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
+            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