diff --git a/Bancos/RepCxCCliente.aspx b/Bancos/RepCxCCliente.aspx
index 6148a08dc..2e3cf4dae 100644
--- a/Bancos/RepCxCCliente.aspx
+++ b/Bancos/RepCxCCliente.aspx
@@ -66,7 +66,8 @@
-
+
+
- Sucursal:
@@ -105,27 +106,40 @@
- Cliente:
<%----%>
-
- - Moneda:
-
-
-
-
+
-
- - Ver Por:
-
-
-
-
-
- - Cuenta:
-
-
-
+
+
+
+
+
+
+ - Ver Por:
+
+
+
+
+
+ - Cuenta:
+
+
+ - Moneda:
+
+
+
+
+ - Opción:
+
+
+
+
+
+
+
+
diff --git a/Bancos/RepCxCCliente.aspx.vb b/Bancos/RepCxCCliente.aspx.vb
index 1a02a421e..f2ff9d95b 100644
--- a/Bancos/RepCxCCliente.aspx.vb
+++ b/Bancos/RepCxCCliente.aspx.vb
@@ -19,15 +19,17 @@ Partial Class Bancos_RepCxCCliente
DdlMoneda.DataSource = GlobalDTMonedas()
DdlMoneda.DataBind()
- Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
- If EsWS Then
- DdlClientesWS.setEsWebService(True)
- Else
- DdlClientesWS.setEsWebService(False)
- DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
- DdlClientesWS.DataBind()
- DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
- End If
+ DdlClientesWS.setEsWebService(True)
+
+ 'Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
+ 'If EsWS Then
+ ' DdlClientesWS.setEsWebService(True)
+ 'Else
+ ' DdlClientesWS.setEsWebService(False)
+ ' DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
+ ' DdlClientesWS.DataBind()
+ ' DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
+ 'End If
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.DataBind()
@@ -58,7 +60,8 @@ Partial Class Bancos_RepCxCCliente
Dim Cuenta As String = If(TxtCuenta.Text = "", "-1", TxtCuenta.Text)
- If Mov.GetCxCCliente(CveCliente, FechaI, FechaF, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, DdlAgrupador.SelectedValue.ToEntero, UsuarioActual.CveUsuario, Cuenta:=Cuenta) Then
+ If Mov.GetCxCCliente(CveCliente, FechaI, FechaF, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1,
+ UsuarioActual.CveEmpresa, DdlAgrupador.SelectedValue.ToEntero, UsuarioActual.CveUsuario, Cuenta:=Cuenta, EstatusFactura:=DdlEstatusFactura.SelectedValue.ToEntero) Then
GvCxC.DataSource = Mov.DtResultados
End If
UsuarioActual.Sesion("CobroCliente-Sucursal") = DdlSubProyecto.SelectedValue