From 818cb29fb516196e745fb89caa0062e2df97a7a4 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Tue, 10 Mar 2020 11:41:29 -0700
Subject: [PATCH] catalogo de metas vendedores terminado

---
 Ventas/CatMetasVendedores.aspx    | 71 +++++++++++++++++++++++++++++--
 Ventas/CatMetasVendedores.aspx.vb | 65 +++++++++++++++++++++++++---
 2 files changed, 128 insertions(+), 8 deletions(-)

diff --git a/Ventas/CatMetasVendedores.aspx b/Ventas/CatMetasVendedores.aspx
index c6557b7a9..cdc2accf6 100644
--- a/Ventas/CatMetasVendedores.aspx
+++ b/Ventas/CatMetasVendedores.aspx
@@ -22,9 +22,74 @@
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveMotivoBaja,MotivoBaja,Estatus,FechaIng" EmptyDataText="No se encontraron Motivo de Baja Registrados" ToolTip="Listado de Motivo de Baja" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center;width:100%" GridLines="None">
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveMeta,CveVendedor,CveMarca,CveClasificacion,Vendedor,MesAño,Marca,Clasificacion,MetaCantidad,MetaImporte" EmptyDataText="No se encontraron Motivo de Baja Registrados" ToolTip="Listado de Metas Vendedor" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center;width:100%" GridLines="None">
                 <Columns>
-
+                    <asp:TemplateField HeaderText ="Vendedor" ItemStyle-HorizontalAlign="Left">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlVendedor" runat="server" Text='<%# Eval("Vendedor", "&nbsp;{0}") %>'></asp:Literal>
+                        </ItemTemplate>
+                        <EditItemTemplate>
+                            <asp:TextBox ID="TxtVendedor" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("Vendedor") %>' ValidationGroup="GrpGV" Width="234px"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="RFVVendedor" runat="server" ControlToValidate="TxtVendedor" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Vendedor''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator>
+                            <ajax:ValidatorCalloutExtender ID="VCVendedor" runat="server" HighlightCssClass="vco" TargetControlID="RFVVendedor" Width="300px"></ajax:ValidatorCalloutExtender>
+                        </EditItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText ="Marca" ItemStyle-HorizontalAlign="Left">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlMarca" runat="server" Text='<%# Eval("Marca", "&nbsp;{0}") %>'></asp:Literal>
+                        </ItemTemplate>
+                        <EditItemTemplate>
+                            <asp:TextBox ID="TxtMarca" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("Marca") %>' ValidationGroup="GrpGV" Width="234px"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="RFVMarca" runat="server" ControlToValidate="TxtMarca" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Marca''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator>
+                            <ajax:ValidatorCalloutExtender ID="VCMarca" runat="server" HighlightCssClass="vco" TargetControlID="RFVMarca" Width="300px"></ajax:ValidatorCalloutExtender>
+                        </EditItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText ="Clasificacion">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlClasificacion" runat="server" Text='<%# Eval("Clasificacion", "&nbsp;{0}") %>'></asp:Literal>
+                        </ItemTemplate>
+                        <EditItemTemplate>
+                            <asp:TextBox ID="TxtClasificacion" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("Clasificacion") %>' ValidationGroup="GrpGV" Width="234px"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="RFVClasificacion" runat="server" ControlToValidate="TxtClasificacion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Clasificacion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator>
+                            <ajax:ValidatorCalloutExtender ID="VCClasificacion" runat="server" HighlightCssClass="vco" TargetControlID="RFVClasificacion" Width="300px"></ajax:ValidatorCalloutExtender>
+                        </EditItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText ="MesAño">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlMesAño" runat="server" Text='<%# Eval("MesAño", "&nbsp;{0}") %>'></asp:Literal>
+                        </ItemTemplate>
+                        <EditItemTemplate>
+                            <asp:TextBox ID="TxtMesAño" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("MesAño") %>' ValidationGroup="GrpGV" Width="234px"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="RFVMesAño" runat="server" ControlToValidate="TxtMesAño" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''MesAño''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator>
+                            <ajax:ValidatorCalloutExtender ID="VCMesAño" runat="server" HighlightCssClass="vco" TargetControlID="RFVMesAño" Width="300px"></ajax:ValidatorCalloutExtender>
+                        </EditItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText ="Meta Cantidad">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlMetaCantidad" runat="server" Text='<%# Eval("MetaCantidad", "&nbsp;{0}") %>'></asp:Literal>
+                        </ItemTemplate>
+                        <EditItemTemplate>
+                            <asp:TextBox ID="TxtMetaCantidad" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("MetaCantidad") %>' ValidationGroup="GrpGV" Width="234px"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="RFVMetaCantidad" runat="server" ControlToValidate="TxtMetaCantidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''MetaCantidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator>
+                            <ajax:ValidatorCalloutExtender ID="VCMetaCantidad" runat="server" HighlightCssClass="vco" TargetControlID="RFVMetaCantidad" Width="300px"></ajax:ValidatorCalloutExtender>
+                        </EditItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText ="Meta Importe">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlMetaImporte" runat="server" Text='<%# Eval("MetaImporte", "&nbsp;{0}") %>'></asp:Literal>
+                        </ItemTemplate>
+                        <EditItemTemplate>
+                            <asp:TextBox ID="TxtMetaImporte" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("MetaImporte") %>' ValidationGroup="GrpGV" Width="234px"></asp:TextBox>
+                            <asp:RequiredFieldValidator ID="RFVMetaImporte" runat="server" ControlToValidate="TxtMetaImporte" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''MetaImporte''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGV"></asp:RequiredFieldValidator>
+                            <ajax:ValidatorCalloutExtender ID="VCMetaImporte" runat="server" HighlightCssClass="vco" TargetControlID="RFVMetaImporte" Width="300px"></ajax:ValidatorCalloutExtender>
+                        </EditItemTemplate>
+                    </asp:TemplateField>
+                    <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Comandos">
+                        <ItemTemplate>
+                               <asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-xs green" OnClick="GvDatos_RowEditing" Text="<i class='fa fa-pencil'></i>" />
+                            <asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" OnClick="Delete_Click" CausesValidation="False" CssClass="btn btn-circle btn-xs red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
+                        </ItemTemplate>
+                    </asp:TemplateField>
                 </Columns>
             </asp:GridView>
         </ContentTemplate>
@@ -36,7 +101,7 @@
                     <div class="modal-header ">
                         <button type="button" class="close" data-dismiss="modal">×</button>
                         <h4 class="modal-title">
-                            <asp:Literal ID="LtlTituloModalTiposD" runat="server">Motivos de baja</asp:Literal></h4>
+                            <asp:Literal ID="LtlTituloModalTiposD" runat="server">Metas Vendedores</asp:Literal></h4>
                     </div>
                     <div class="modal-body">
                         <div class="form-group form-md-line-input input-iconright">
diff --git a/Ventas/CatMetasVendedores.aspx.vb b/Ventas/CatMetasVendedores.aspx.vb
index d4be887de..dcc77690f 100644
--- a/Ventas/CatMetasVendedores.aspx.vb
+++ b/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