From 0622c46318b8223fad97edfb2522cd7fe21c1bc3 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Mon, 20 Dec 2021 08:30:40 -0700
Subject: [PATCH] Rep Compras AF

---
 App_Code/ClsClasificaciones.vb      | 18 ++++++++++++++++++
 Compras/RepComprasAF.aspx           |  2 +-
 Compras/RepComprasAF.aspx.vb        | 15 ++++++++++++++-
 Compras/RepComprasAFDetalle.aspx    | 18 +++++++++++++-----
 Compras/RepComprasAFDetalle.aspx.vb | 19 +++++++++++++++++--
 5 files changed, 63 insertions(+), 9 deletions(-)

diff --git a/App_Code/ClsClasificaciones.vb b/App_Code/ClsClasificaciones.vb
index 7c7e28372..7432b8d52 100644
--- a/App_Code/ClsClasificaciones.vb
+++ b/App_Code/ClsClasificaciones.vb
@@ -140,6 +140,24 @@ Public Class ClsClasificaciones
         Return Retorno
     End Function
 
+    Public Function GetClasificacion2ProductoServicio(CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Clasificacion2ProductoServicioGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As SqlException
+            OnError("Ocurrió un error al consultar las Clasificaciones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
     Public Function GetClasificacionesComprobaciones(CveEmpresa As Integer, Optional Opcion As Integer = 1, Optional TipoComprobacion As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
diff --git a/Compras/RepComprasAF.aspx b/Compras/RepComprasAF.aspx
index 07177fb93..875cfda95 100644
--- a/Compras/RepComprasAF.aspx
+++ b/Compras/RepComprasAF.aspx
@@ -81,7 +81,7 @@
                             </div>
                             <div class="col-md-1 ">Grupo:</div>
                             <div class=" col-md-2 ">
-                                <asp:DropDownList CssClass=" select2me" Width="80%" ID="DdlGrupo" runat="server">
+                                <asp:DropDownList CssClass=" select2me"  ID="DdlGrupo" runat="server" Width="95%">
                                     <asp:ListItem Text="Año" Value="1"></asp:ListItem>
                                     <asp:ListItem Text="Mes" Value="2"></asp:ListItem>
                                     <asp:ListItem Selected="True" Text="Año/Mes" Value="3"></asp:ListItem>
diff --git a/Compras/RepComprasAF.aspx.vb b/Compras/RepComprasAF.aspx.vb
index a9c856c3a..f6dae6e0f 100644
--- a/Compras/RepComprasAF.aspx.vb
+++ b/Compras/RepComprasAF.aspx.vb
@@ -90,9 +90,22 @@ Partial Class Compras_RepComprasAF
         DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
         DdlClasificacion.DataBind()
 
-        DdlClasificacion2.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
+
+        Dim ObjClasificacion As New ClsClasificaciones
+
+        If ObjClasificacion.GetClasificacion2ProductoServicio(UsuarioActual.CveEmpresa) Then
+            DdlClasificacion2.DataSource = ObjClasificacion.DtResultados
+        Else
+            DdlClasificacion2.DataSource = Nothing
+        End If
+
+
+        ObjClasificacion.Dispose()
         DdlClasificacion2.DataBind()
 
+
+
+
         DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
         DdlActivoFijo.DataBind()
 
diff --git a/Compras/RepComprasAFDetalle.aspx b/Compras/RepComprasAFDetalle.aspx
index b4d4f8667..23ec0098d 100644
--- a/Compras/RepComprasAFDetalle.aspx
+++ b/Compras/RepComprasAFDetalle.aspx
@@ -173,10 +173,7 @@
                                 <asp:DropDownList CssClass=" select2me"  ID="DdlProveedores" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="95%">
                                     <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                                 </asp:DropDownList>
-                            </div>
-
-                        
-                        
+                            </div>                        
 
                     </div>                
 
@@ -194,7 +191,7 @@
                          <div class="col-md-1">Clasificación 2:</div>
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlClasificacion2" runat="server" CssClass=" form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="95%">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                                
                             </asp:DropDownList>
                         </div> 
 
@@ -293,6 +290,17 @@
                         </ItemTemplate>
                     </asp:TemplateField>
 
+                     <asp:TemplateField>
+                        <HeaderTemplate>
+                           Clasificación 2
+                        </HeaderTemplate>
+                        <ItemTemplate>                           
+                            <asp:Label  ID="LblClasificacion2"   runat="server"  CssClass="ML Truncate"  Text='<%#   Eval("Clasificacion2")    %>'></asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
+                    
+
                     
 
                     <asp:TemplateField  ItemStyle-HorizontalAlign="Left">
diff --git a/Compras/RepComprasAFDetalle.aspx.vb b/Compras/RepComprasAFDetalle.aspx.vb
index ea9336f1b..fd65f6a70 100644
--- a/Compras/RepComprasAFDetalle.aspx.vb
+++ b/Compras/RepComprasAFDetalle.aspx.vb
@@ -186,9 +186,24 @@ Partial Class Compras_RepComprasAFDetalle
         DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
         DdlClasificacion.DataBind()
 
-        DdlClasificacion2.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
+        'DdlClasificacion2.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
+        'DdlClasificacion2.DataBind()
+
+        Dim ObjClasificacion As New ClsClasificaciones
+
+        If ObjClasificacion.GetClasificacion2ProductoServicio(UsuarioActual.CveEmpresa) Then
+            DdlClasificacion2.DataSource = ObjClasificacion.DtResultados
+        Else
+            DdlClasificacion2.DataSource = Nothing
+        End If
+
+
+        ObjClasificacion.Dispose()
         DdlClasificacion2.DataBind()
-        DdlClasificacion2.Items.Insert(0, New ListItem("Sin Clasificación", "-2"))
+        DdlClasificacion2.Items.Insert(0, New ListItem("Totas", "-1"))
+        DdlClasificacion2.Items.Insert(1, New ListItem("Sin Clasificación", "-2"))
+        DdlClasificacion2.SelectedValueExist(-1)
+
 
         DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
         DdlActivoFijo.DataBind()