From 897e8eab6e00b30d33b5ad66e2ec73791d406a99 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 14 Mar 2025 13:29:54 -0700 Subject: [PATCH] --FIX filtro tipo transaccion --- Ventas/RepRecuperacion.aspx | 89 ++++++++++++++------------- Ventas/RepRecuperacion.aspx.vb | 14 +++-- Ventas/RepRecuperacionDetalle.aspx | 4 -- Ventas/RepRecuperacionDetalle.aspx.vb | 10 +-- 4 files changed, 60 insertions(+), 57 deletions(-) diff --git a/Ventas/RepRecuperacion.aspx b/Ventas/RepRecuperacion.aspx index 6b5e73c87..773320d17 100644 --- a/Ventas/RepRecuperacion.aspx +++ b/Ventas/RepRecuperacion.aspx @@ -253,7 +253,7 @@
-
+
@@ -262,42 +262,40 @@
-
- Fecha Inicio: - -
-
-
- - - - +
+
+ + +
+ + + + +
+ + + + + +
- - - - - - -
-
- Fecha Fin: - -
-
-
- - - - +
+ +
+ + + + +
+ + + + + +
- - - - - -
+
@@ -315,7 +313,7 @@ - + @@ -425,7 +423,7 @@
F. Registro IE inicio:
-
+
@@ -440,7 +438,7 @@
F. Registro IE Fin:
-
+
@@ -471,7 +469,7 @@
F. Conciliado inicio:
-
+
@@ -486,7 +484,7 @@
F. Conciliado Fin:
-
+
@@ -525,15 +523,18 @@
+
+ Tipo Transacción: +
+
+ + +
- -
- -
- + diff --git a/Ventas/RepRecuperacion.aspx.vb b/Ventas/RepRecuperacion.aspx.vb index 45b3a2877..ae1793527 100644 --- a/Ventas/RepRecuperacion.aspx.vb +++ b/Ventas/RepRecuperacion.aspx.vb @@ -92,9 +92,15 @@ Partial Class Ventas_RepRecuperacion End Sub + Private Sub CargaTipoTransaccion() + DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Ing' AND Estatus = 1 ") + DdlTipoTransaccion.DataBind() + DdlTipoTransaccion.Items.Insert(0, New ListItem("Todos", "-1")) + End Sub Private Sub CargaCombos() - 'Carga Clientes + CargaTipoTransaccion() + 'Carga Clientes If (UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1") Then DdlClientes.setEsWebService(True) DdlClientes.Attributes.Add("data-metodo", "getcliente") @@ -192,7 +198,7 @@ Partial Class Ventas_RepRecuperacion TCEspecifico = -1 End If - Dim ModalidadContable As Boolean = Not ChkLecturaAdmin.Checked + Dim ModalidadContable As Boolean = True Dim TipoComprobante As String = If(DdlTipoComprobante.GetSelectedValuesM = "", "-1", DdlTipoComprobante.GetSelectedValuesM) Dim Sucursales As String = If(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM) @@ -220,7 +226,7 @@ Partial Class Ventas_RepRecuperacion DdlUsuario.SelectedValue.ToEntero, Estatus, "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, TipoComprobante, DdlProyecto.SelectedValue.ToEntero, Sucursales, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable, EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero, CveTipoRelacion:=DdlTipoRelacion.SelectedValue.ToEntero(), ServicioDomicilio:=DdlServicioDomicilio.SelectedValue.ToEntero, EsFacturaGlobal:=DdlFacturaGlobal.SelectedValue.ToEntero, EsFilial:=DdlFilial.SelectedValue.ToEntero, - CveResponsable:=DdlResponsable.SelectedValue.ToEntero(), CveBanco:=DdlBanco.SelectedValue.ToEntero(), EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero(), CveCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(), CveTipoTransaccion:=-1, FechaAplicadoI:=FechaAplicadoI, FechaAplicadoF:=FechaAplicadoF, + CveResponsable:=DdlResponsable.SelectedValue.ToEntero(), CveBanco:=DdlBanco.SelectedValue.ToEntero(), EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero(), CveCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(), CveTipoTransaccion:=DdlTipoTransaccion.SelectedValue.ToEntero(), FechaAplicadoI:=FechaAplicadoI, FechaAplicadoF:=FechaAplicadoF, FechaRegistroIEI:=FechaRegistroIEI, FechaRegistroIEF:=FechaRegistroIEF, CveMoneda:=DdlMoneda.SelectedValue.ToEntero()) Then GvDatos.DataSource = ObjMovtos.DtResultados DtDatos = ObjMovtos.DtResultados @@ -370,7 +376,7 @@ Partial Class Ventas_RepRecuperacion Dim Liga As String = $"/Ventas/RepRecuperacionDetalle.aspx?GPO={DdlGrupo.SelectedValue}&AnioVenta={e.Row.DBCampo("AnioVenta")}&MesVenta={e.Row.DBCampo("MesVenta")}&AnioMesVenta={e.Row.DBCampo("AnioMesVenta")}&FechaVenta={e.Row.DBCampo("FechaVenta")}&CveCliente={e.Row.DBCampo("CveCliente")}&CveVendedor={ e.Row.DBCampo("CveVendedor")}&CveUsuario={e.Row.DBCampo("CveUsuario")}&CveEstatusFactura={e.Row.DBCampo("CveEstatusFactura")}&FechaI={FechaInicial}&FechaF={FechaFinal}&FechaIEjec={FechaIEjec}&FechaFEjec={FechaFEjec}&IVA={e.Row.DBCampo("GPO_IVA")}&TipoDocto={ DdlTipoComprobante.GetSelectedValuesM}" - Liga = $"{Liga}&CveSubProyectoEjecucion={e.Row.DBCampo("CveSubProyectoEjecucion")}&CveSubProyecto={CveSubProyecto}&CveProyecto={CveProyecto}&TipoCambio={e.Row.DBCampo("TipoCambio")}&TCEspecifico={e.Row.DBCampo("TCEspecifico")}&CveMoneda={e.Row.DBCampo("CveMoneda")}&CveClienteClasificacion={e.Row.DBCampo("CveClienteClasificacion")}&CveCondicionesPago={ e.Row.DBCampo("CveCondicionesPago")}&TipoCliente={DdlTipoCliente.SelectedValue}&ModalidadContable={If(ChkLecturaAdmin.Checked, 0, 1)}&CveTipoRelacion={DdlTipoRelacion.SelectedValue}&ServicioDomicilio={DdlServicioDomicilio.SelectedValue}&EsFacturaGlobal={DdlFacturaGlobal.SelectedValue}&EsFilial={e.Row.DBCampo("EsFilial")}" + Liga = $"{Liga}&CveSubProyectoEjecucion={e.Row.DBCampo("CveSubProyectoEjecucion")}&CveSubProyecto={CveSubProyecto}&CveProyecto={CveProyecto}&TipoCambio={e.Row.DBCampo("TipoCambio")}&TCEspecifico={e.Row.DBCampo("TCEspecifico")}&CveMoneda={e.Row.DBCampo("CveMoneda")}&CveClienteClasificacion={e.Row.DBCampo("CveClienteClasificacion")}&CveCondicionesPago={ e.Row.DBCampo("CveCondicionesPago")}&TipoCliente={DdlTipoCliente.SelectedValue}&ModalidadContable={1}&CveTipoRelacion={DdlTipoRelacion.SelectedValue}&ServicioDomicilio={DdlServicioDomicilio.SelectedValue}&EsFacturaGlobal={DdlFacturaGlobal.SelectedValue}&EsFilial={e.Row.DBCampo("EsFilial")}" Liga = $"{Liga}&CveResponsable={e.Row.DBCampo("CveResponsable")}&CveBanco={e.Row.DBCampo("CveBanco")}&CveEstatusCliente={e.Row.DBCampo("CveEstatusCliente")}&CveCuenta={e.Row.DBCampo("CveCuenta")}&CveTipoTransaccion={e.Row.DBCampo("CveTipoTransaccion")}&FechaAplicadoI={FechaAplicadoI}&FechaAplicadoF={FechaAplicadoF}&FechaRegistroIEI={FechaRegistroIEI}&FechaRegistroIEF={FechaRegistroIEF}&CveSubProyectoCobranza={e.Row.DBCampo("CveSubProyectoCobranza")}&Grupo={e.Row.DBCampo("GPO")}" diff --git a/Ventas/RepRecuperacionDetalle.aspx b/Ventas/RepRecuperacionDetalle.aspx index 6b997f618..55bba2324 100644 --- a/Ventas/RepRecuperacionDetalle.aspx +++ b/Ventas/RepRecuperacionDetalle.aspx @@ -620,10 +620,6 @@
- -
- -
diff --git a/Ventas/RepRecuperacionDetalle.aspx.vb b/Ventas/RepRecuperacionDetalle.aspx.vb index c3df0d594..cd3f8ac12 100644 --- a/Ventas/RepRecuperacionDetalle.aspx.vb +++ b/Ventas/RepRecuperacionDetalle.aspx.vb @@ -92,7 +92,7 @@ Partial Class Ventas_RepRecuperacionDetalle End If End Sub -#Region "CARGAS" +#Region "CARGAS" Private Sub CargaCombos() Dim CveCliente, CveUsuario, CveProyecto, CveSubProyectoCobranza, @@ -103,8 +103,8 @@ Partial Class Ventas_RepRecuperacionDetalle Dim CveSucursal, CveSubProyecto, CveVendedor, CveSubProyectoEjecucion, CveEstatusFactura, CveCorte, IVA, CveCondicionesPago, CveTipoRelacion As String Dim AnioVenta, MesVenta, AnioMesVenta, FechaVenta As String Dim AnioEjec, MesEjec, AnioMesEjec, FechaEjec, FechaIEjec, FechaFEjec As String - - 'Carga Clientes + + 'Carga Clientes If (UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1") Then DdlClientes.setEsWebService(True) DdlClientes.Attributes.Add("data-metodo", "getcliente") @@ -432,7 +432,7 @@ Partial Class Ventas_RepRecuperacionDetalle End If - Dim ModalidadContable As Boolean = Not ChkLecturaAdmin.Checked + Dim ModalidadContable As Boolean = True Dim TipoComprobante As String = If(DdlTipoComprobante.GetSelectedValuesM = "", "-1", DdlTipoComprobante.GetSelectedValuesM) Dim Sucursales As String = If(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM) @@ -460,7 +460,7 @@ Partial Class Ventas_RepRecuperacionDetalle DdlUsuario.SelectedValue.ToEntero, Estatus, "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, TipoComprobante, DdlProyecto.SelectedValue.ToEntero, Sucursales, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable, EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero, CveTipoRelacion:=DdlTipoRelacion.SelectedValue.ToEntero(), ServicioDomicilio:=DdlServicioDomicilio.SelectedValue.ToEntero, EsFacturaGlobal:=DdlFacturaGlobal.SelectedValue.ToEntero, EsFilial:=DdlFilial.SelectedValue.ToEntero, - CveResponsable:=DdlResponsable.SelectedValue.ToEntero(), CveBanco:=DdlBanco.SelectedValue.ToEntero(), EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero(), CveCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(), CveTipoTransaccion:=-1, FechaAplicadoI:=FechaAplicadoI, FechaAplicadoF:=FechaAplicadoF, + CveResponsable:=DdlResponsable.SelectedValue.ToEntero(), CveBanco:=DdlBanco.SelectedValue.ToEntero(), EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero(), CveCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(), CveTipoTransaccion:=DdlTipoTransaccion.SelectedValue.ToEntero(), FechaAplicadoI:=FechaAplicadoI, FechaAplicadoF:=FechaAplicadoF, FechaRegistroIEI:=FechaRegistroIEI, FechaRegistroIEF:=FechaRegistroIEF, CveClienteSucursal:=DdlClienteSucursal.SelectedValue.ToEntero(), Tipo:=Me.Tipo, Grupo:=Me.Grupo, CveMoneda:=DdlMoneda.SelectedValue.ToEntero()) Then DtDatos = ObjMovtos.DtResultados.Copy()