- filtro de contrato, no se estaba aplicando

- tamaño ddl contrato al 100%

CxC/RepCxCDetalle.aspx.vb

@@ -474,7 +474,8 @@ 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, EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticiposPagados:=If(ChkAnticipos.Checked, 1, 0), TieneLineaAdicional:=DdlTieneLineaAdicional.SelectedValue.ToEntero()) Then
+                                   CveMoneda:=CveMoneda, EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero, AplicaAnticiposPagados:=If(ChkAnticipos.Checked, 1, 0), TieneLineaAdicional:=DdlTieneLineaAdicional.SelectedValue.ToEntero(),
+                                   CveContrato:=DdlContrato.SelectedValue.ToEntero) Then
 
             GvDatos.DataSource = ObjMovtos.DSResultados.Tables(0)
 
@@ -483,16 +484,10 @@ Partial Class RepCxCDetalle
             DSRespuesta.Tables.Add(ObjMovtos.DSResultados.Tables(0).Copy)
 
             If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-
                 GvCartera.DataSource = ObjMovtos.DSResultados.Tables(1)
-
-                'DTCartera = ObjMovtos.DSResultados.Tables(1)
-                'DTCartera.TableName = "DTCartera"
                 DSRespuesta.Tables.Add(ObjMovtos.DSResultados.Tables(1).Copy)
-
             End If
 
-
         Else
             GvDatos.DataSource = Nothing
         End If