Cambios pendientes por liberar

Ventas/RepRecuperacion.aspx.vb

@@ -48,7 +48,7 @@ Partial Class Ventas_RepRecuperacion
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             CargaCombos()
-            CargaDatos()
+            'CargaDatos()
         End If
     End Sub
 
@@ -75,6 +75,8 @@ Partial Class Ventas_RepRecuperacion
         'Carga Vendedor
         DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
         DdlVendedor.DataBind()
+        DdlVendedor.Items.Insert(1, New ListItem("Sin Vendedor", "-2"))
+
         DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor)
         If UsuarioActual.CveVendedor > 0 AndAlso Not UsuarioActual.TienePermisoProceso(263) Then
             DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor.ToString())
@@ -177,7 +179,20 @@ Partial Class Ventas_RepRecuperacion
                                               DdlGrupo.SelectedValue, e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
                                               e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), CveClienteSucursal, e.Row.DBCampo("CveBanco"), e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("GPO"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveMoneda"), 1, e.Row.DBCampo("EsDistribuidor"))
 
-            e.Row.FCHyperLink("HplVendido").NavigateUrl = Liga5
+            e.Row.FCHyperLink("HplVendido").NavigateUrl = Liga5
+
+
+            If DdlGrupo.SelectedValue.ToEntero = 16 Then
+                If e.Row.DBCampo("GPO").Contains("Total") Then
+                    e.Row.CssClass = "Totales"
+                Else
+                    If e.Row.DBCampo("CveCliente") = "" Then
+                        e.Row.CssClass = "SubTotales"
+                    End If
+                End If
+
+
+            End If
 
         End If
     End Sub