Merge branch 'master' of http://192.168.10.111:8383/SIG

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
 

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>

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()
 

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">

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()