catalogo de metas vendedores terminado

Ventas/CatMetasVendedores.aspx.vb

@@ -4,12 +4,31 @@ Imports Extensiones
 
 Partial Class CatMetasVendedores
     Inherits ClsPaginas
+    Private Property CveMetaVendedor() As Integer 'Guardamos el ID de registro para saber cual registro Editar
+        Get
+            Return If(IsNothing(ViewState("CveMetaVendedor")), -1, CInt(ViewState("CveMetaVendedor")))
+        End Get
+        Set
+            ViewState("CveMetaVendedor") = Value
+        End Set
+    End Property
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
+            CargaDatos()
             CargaDatosModal()
         End If
     End Sub
 
+    Private Sub CargaDatos()
+        Dim ObjVentas As New ClsVentas
+        If ObjVentas.GetMetasVendedores(UsuarioActual.CveEmpresa) Then
+            GvDatos.DataSource = ObjVentas.DtResultados
+        End If
+        ObjVentas.Dispose()
+        GvDatos.DataBind()
+    End Sub
+
     Private Sub CargaDatosModal()
         DdlVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
         DdlVendedores.DataBind()
@@ -36,17 +55,28 @@ Partial Class CatMetasVendedores
 
         If DdlVendedores.SelectedValue.ToEntero > 0 AndAlso TxtFechaI.Text <> "" AndAlso DdlMarcas.SelectedValue.ToEntero > 0 Then
             Dim ObjVentas As New ClsVentas
-            If ObjVentas.AddMetasVendedores(DdlVendedores.SelectedValue.ToEntero, TxtFechaI.Text, DdlMarcas.SelectedValue.ToEntero, TxtMetaCantidad.Text.ToEntero,
+            If BtnAgregarMetaVendedor.Text = "Agregar" Then
+                If ObjVentas.AddMetasVendedores(DdlVendedores.SelectedValue.ToEntero, TxtFechaI.Text, DdlMarcas.SelectedValue.ToEntero, TxtMetaCantidad.Text.ToEntero,
                                             TxtMetaImporte.Text.ToDecimal, DdlClasificacion.SelectedValue.ToEntero) Then
-                Alert("Se agregó la meta al vendedor")
-            Else
-                Alert("No se pudo agregar la meta al vendedor", TipoMensaje.MsgError)
+                    Alert("Se agregó la meta al vendedor")
+                Else
+                    Alert("No se pudo agregar la meta al vendedor", TipoMensaje.MsgError)
+                End If
+            ElseIf BtnAgregarMetaVendedor.Text = "Actualizar" Then
+                If ObjVentas.UpdateMetasVendedores(CveMetaVendedor, DdlVendedores.SelectedValue.ToEntero, TxtFechaI.Text, DdlMarcas.SelectedValue.ToEntero,
+                                                   TxtMetaCantidad.TextMode.ToEntero, TxtMetaImporte.Text.ToDecimal, DdlClasificacion.SelectedValue.ToEntero) Then
+                    Alert("Se actualizó la información de la meta del vendedor")
+                Else
+                    Alert("No se pudo actualizar la meta del vendedor", TipoMensaje.MsgError)
+                End If
             End If
-        Else
+            Else
             Alert(String.Format("Falta Seleccionar {0}{1}{2}", If(DdlVendedores.SelectedValue.ToEntero > 0, "", "Vendedor, "), If(DdlMarcas.SelectedValue.ToEntero > 0, "", "Marca, "), If(TxtFechaI.Text <> "", "", "Fecha, ")))
         End If
         RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"))
         ResetDatosSeleccionadosModal()
+        CargaDatos()
+        UpDatos.Update()
     End Sub
 
     Private Sub ResetDatosSeleccionadosModal()
@@ -58,4 +88,29 @@ Partial Class CatMetasVendedores
         UpModalTiposD.Update()
     End Sub
 
+    Public Sub GvDatos_RowEditing(sender As Object, e As EventArgs)
+        BtnAgregarMetaVendedor.Text = "Actualizar"
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        CveMetaVendedor = GvRow.DataKey("CveMeta").ToEntero
+        DdlVendedores.SelectedValue = GvRow.DataKey("CveVendedor")
+        TxtFechaI.Text = GvRow.DataKey("MesAño")
+        DdlClasificacion.SelectedValue = GvRow.DataKey("CveClasificacion")
+        DdlMarcas.SelectedValue = GvRow.DataKey("CveMarca")
+        TxtMetaCantidad.Text = GvRow.DataKey("MetaCantidad")
+        TxtMetaImporte.Text = GvRow.DataKey("MetaImporte")
+        UpModalTiposD.Update()
+        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"))
+    End Sub
+
+    Public Sub Delete_Click(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Dim CveMetaEliminar As Integer = GvRow.DataKey("CveMeta").ToEntero
+        Dim ObjVentas As New ClsVentas
+        If ObjVentas.RemoveMetasVendedores(CveMetaEliminar) Then
+            Alert("Meta eliminada exitosamente")
+        End If
+        ObjVentas.Dispose()
+        CargaDatos()
+        UpDatos.Update()
+    End Sub
 End Class