Agrupador filtro TipoCliente, Unificaion Correos de notificacion de Pago

CxC/RepCxCDetalle.aspx.vb

@@ -178,9 +178,37 @@ Partial Class RepCxCDetalle
         Set(value As Decimal)
             ViewState("LimiteCredito") = value
         End Set
-    End Property
+    End Property
+
+    Private Property TipoCliente As Integer
+        Get
+            If ViewState("TipoCliente") Is Nothing Then
+                Return -1
+            Else
+                Return DirectCast(ViewState("TipoCliente"), Integer)
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("TipoCliente") = value
+        End Set
+    End Property
+
+
+    Private Property CveMoneda As Integer
+        Get
+            If ViewState("CveMoneda") Is Nothing Then
+                Return -1
+            Else
+                Return DirectCast(ViewState("CveMoneda"), Integer)
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CveMoneda") = value
+        End Set
+    End Property
+
 #End Region
-
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             ViewState("Opcion") = IfNull(Request("Op"), "-1")
@@ -252,7 +280,10 @@ Partial Class RepCxCDetalle
         CveCobranzaEstatus = If(Request("CveCobranzaEstatus") IsNot Nothing, Request("CveCobranzaEstatus").ToString, "-1").ToString.ToEntero
         CveClienteClasificacion = If(Request("CveClienteClasificacion") IsNot Nothing, Request("CveClienteClasificacion").ToString, "-1").ToString.ToEntero
         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
+
+        DdlTipoCliente.SelectedValueExist(TipoCliente)
 
         If FechaF <> "-1" Then
             txtFechaF.Text = FechaF
@@ -387,7 +418,8 @@ Partial Class RepCxCDetalle
                                    Iva.ToString, DdlGrupo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlResponsable.SelectedValue.ToEntero,
                                    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) Then
+                                   CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, LimiteCredito:=LimiteCredito, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero,
+                                   CveMoneda:=CveMoneda) Then
 
             GvDatos.DataSource = ObjMovtos.DtResultados
             dt = ObjMovtos.DtResultados