Rep AF agrupador y filtro Clasificaion 2, Carta porte

Compras/RepComprasAFDetalle.aspx.vb

@@ -163,7 +163,7 @@ Partial Class Compras_RepComprasAFDetalle
             End If
 
             If UsuarioActual.CveEmpresa = 72 Then
-                GvDatos.Columns(2).Visible = True
+                GvDatos.Columns(3).Visible = True
             End If
 
         End If
@@ -186,6 +186,10 @@ 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.DataBind()
+        DdlClasificacion2.Items.Insert(0, New ListItem("Sin Clasificación", "-2"))
+
         DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
         DdlActivoFijo.DataBind()
         DdlActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -277,7 +281,7 @@ Partial Class Compras_RepComprasAFDetalle
         If ObjCompras.GetRepComprasAFDetalle(FechaI, FechaF, DdlProveedores.SelectedValue.ToEntero, DdlMonedas.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1,
                                       DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico,
                                       DdlClasificacion.SelectedValue.ToEntero, DdlActivoFijo.SelectedValue.ToEntero, DdlTipoActivoFijo.SelectedValue.ToEntero, DdlSubTipoActivoFijo.SelectedValue.ToEntero,
-                                      CvePS, Anio.ToEntero, Mes.ToEntero, AnioMes, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
+                                      CvePS, Anio.ToEntero, Mes.ToEntero, AnioMes, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveClasificacion2:=DdlClasificacion2.SelectedValue.ToEntero) Then
             DTDatos = ObjCompras.DtResultados
 
             GvDatos.DataSource = ObjCompras.DtResultados
@@ -435,6 +439,11 @@ Partial Class Compras_RepComprasAFDetalle
             ListaFiltros.Add("<b>Clasificación:</b> " & DdlClasificacion.SelectedItem.Text)
         End If
 
+
+        If DdlClasificacion2.SelectedIndex > 0 Then
+            ListaFiltros.Add("<b>Clasificación 2:</b> " & DdlClasificacion2.SelectedItem.Text)
+        End If
+
         For Each s As String In ListaFiltros
 
             If Contador > 0 Then