Correcion TipoCliente

CxC/RepCxCDetalle.aspx.vb

@@ -207,6 +207,19 @@ Partial Class RepCxCDetalle
         End Set
     End Property
 
+    Private Property EstatusCliente As Integer
+        Get
+            If ViewState("EstatusCliente") Is Nothing Then
+                Return -1
+            Else
+                Return DirectCast(ViewState("EstatusCliente"), Integer)
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("EstatusCliente") = value
+        End Set
+    End Property
+
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -282,8 +295,10 @@ Partial Class RepCxCDetalle
         LimiteCredito = If(Request("LimiteCredito") IsNot Nothing, Request("LimiteCredito").ToString, "-1").ToString.ToDecimal
         TipoCliente = If(Request("TipoCliente") IsNot Nothing, Request("TipoCliente").ToString, "-1").ToString.ToEntero
         CveMoneda = If(Request("CveMoneda") IsNot Nothing, Request("CveMoneda").ToString, "-1").ToString.ToEntero
+        EstatusCliente = If(Request("EstatusCliente") IsNot Nothing, Request("EstatusCliente").ToString, "-1").ToString.ToEntero
 
         DdlTipoCliente.SelectedValueExist(TipoCliente)
+        DdlEstatusCliente.SelectedValueExist(EstatusCliente)
 
         If FechaF <> "-1" Then
             txtFechaF.Text = FechaF
@@ -419,7 +434,7 @@ Partial Class RepCxCDetalle
                                    RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, If(DdlTipoDocto.GetSelectedValuesM = "", "-1", DdlTipoDocto.GetSelectedValuesM), FechaVI, FechaVF,
                                    FechaCorte:=txtCorteA.Text.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveCobranzaEstatus:=DdlCobranzaEstatusFiltro.SelectedValue.ToEntero,
                                    CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, LimiteCredito:=LimiteCredito, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero,
-                                   CveMoneda:=CveMoneda) Then
+                                   CveMoneda:=CveMoneda, EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero) Then
 
             GvDatos.DataSource = ObjMovtos.DtResultados
             dt = ObjMovtos.DtResultados