From 90577ead011e731ad6f47bf599457417ab35f3ea Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 18 Jun 2020 15:10:58 -0700 Subject: [PATCH 1/5] -- fecha parametro reembolso --- Compras/PopUpVerFactura.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 0ae95cb69..1141bf3d9 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -3975,7 +3975,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("CajaChica", "Caja chica: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString)) params.Add(New ReportParameter("observaciones", "Observaciones: " & ParamComprobacion.Rows(0)("Observaciones").ToString)) params.Add(New ReportParameter("folio", ParamComprobacion.Rows(0)("Folio").ToString)) - params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString)) + params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString.ToDate.ToShortDateString)) params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString)) params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString)) From 28eba630e391756b8d96bd0ed2c22d816331fba6 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 18 Jun 2020 21:22:22 -0700 Subject: [PATCH 2/5] -globaldtcuentas depositos, cveempresa --- App_Code/ClsGenerales.vb | 11 ++++++----- App_Code/ClsPaginas.vb | 30 +++++++++++++++++++++++++++++- 2 files changed, 35 insertions(+), 6 deletions(-) diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index f2506fff7..8d999ba99 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -1363,12 +1363,12 @@ Public Class ClsGenerales End Try Return Retorno - End Function + End Function #End Region - ' IDisposable - + ' IDisposable + #Region "G E N E R A L E S - C U E N T A S B A N C A R I A S " - Public Function GetCuentasDepositos(Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveColectiva As Integer = -1, Optional CveCuentaDeposito As Integer = -1) As Boolean + Public Function GetCuentasDepositos(Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveColectiva As Integer = -1, Optional CveCuentaDeposito As Integer = -1, Optional CveEmpresa As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_CuentasDepositosGet") With SqlAdapter.SelectCommand.Parameters @@ -1376,7 +1376,8 @@ Public Class ClsGenerales .Add("@CveCliente", SqlDbType.Int).Value = CveCliente .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal .Add("@CveColectiva", SqlDbType.Int).Value = CveColectiva - .Add("@CveCuentaDeposito", SqlDbType.Int).Value = CveCuentaDeposito + .Add("@CveCuentaDeposito", SqlDbType.Int).Value = CveCuentaDeposito + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index c856c52ed..479609e6b 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -442,6 +442,34 @@ Public Class ClsPaginas Application("GlobalDTProveedoresCuentas") = value End Set End Property + + Property GlobalDTCuentasDepositosClientes(CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional Estatus As Boolean = True) As DataTable + Get + Dim AppNombre As String = String.Format("GlobalDTCuentasDepositosClientes-{0}", CveEmpresa) + 'sino existe, recarga los datos + If DirectCast(Application(AppNombre), DataTable) Is Nothing Then + Dim P As New ClsGenerales + If P.GetCuentasDepositos(CveEmpresa:=CveEmpresa, CveCliente:=-2) Then Application(AppNombre) = P.DtResultados + P.Dispose() + End If + + Dim Str As New StringBuilder + Str.AppendFormat("CveEmpresa = {0}", CveEmpresa) + If CveCliente <> -1 Then Str.AppendFormat(" AND CveCliente = {0}", CveCliente) + If Estatus = True Then Str.AppendFormat(" AND Estatus = 1 ") + + Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows) + + GlobalDTCuentasDepositosClientes = Dv.ToTable + Dv.Dispose() + + + End Get + Set(value As DataTable) + Dim AppNombre As String = String.Format("GlobalDTCuentasDepositosClientes-{0}", CveEmpresa) + Application(AppNombre) = value + End Set + End Property Property GlobalDTProveedorClasificacion(CveEmpresa As Integer) As DataTable Get Dim AppNombre As String = String.Format("GlobalDTProveedorClasificacion-{0}", CveEmpresa) @@ -7253,7 +7281,7 @@ Public Class ClsPaginas If UsuarioActual.CveEmpresa.Contiene(13, 83) Then Dim ObjCuentasBancos As New ClsGenerales() - If ObjCuentasBancos.GetCuentasDepositos(ObjOC.CveProveedor) Then + If ObjCuentasBancos.GetCuentasDepositos(CveProveedor:=ObjOC.CveProveedor) Then Dim CuentasActivas As DataTable = ObjCuentasBancos.DtResultados.FiltraParametros("EstatusTexto = 'Activo'") Dim CuentasStr As New StringBuilder("") For Each CuentasBancarios As DataRow In CuentasActivas.Rows From 98e1d6f97fb28d9d3f8e08f25dcaba00b9bb0611 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 18 Jun 2020 21:25:32 -0700 Subject: [PATCH 3/5] -globaldtcuentas despostios --- Bancos/IE.aspx.vb | 2 +- Bancos/MovimientosBancarios.aspx.vb | 4 ++-- Ventas/Clientes.aspx.vb | 18 +++++++----------- 3 files changed, 10 insertions(+), 14 deletions(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index c8a70dd0d..bd81b0c7c 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -4742,7 +4742,7 @@ Partial Class Bancos_IE If CveProveedor > 0 Then Dim ObjCuentasBancos As New ClsGenerales - If ObjCuentasBancos.GetCuentasDepositos() Then + If ObjCuentasBancos.GetCuentasDepositos(CveEmpresa:=UsuarioActual.CveEmpresa) Then GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados End If ObjCuentasBancos.Dispose() diff --git a/Bancos/MovimientosBancarios.aspx.vb b/Bancos/MovimientosBancarios.aspx.vb index a750829c5..ff1c36c07 100644 --- a/Bancos/MovimientosBancarios.aspx.vb +++ b/Bancos/MovimientosBancarios.aspx.vb @@ -151,7 +151,7 @@ Partial Class Bancos_MovimientosBancarios If GvProveedores.Rows(i).FCCheckBox("CheckAgregar").Checked = True Then DTProveedorActual = DTProveedores.FiltraParametros(String.Format("CveProveedor = {0}", GvProveedores.Rows(i).DataKey("CveProveedor"))) - If ObjCuentasBancos.GetCuentasDepositos(21109) Then + If ObjCuentasBancos.GetCuentasDepositos(CveProveedor:=21109) Then DTProveedorBancos = ObjCuentasBancos.DtResultados RowBanco = DTProveedorBancos.Rows(0) Else @@ -319,7 +319,7 @@ Partial Class Bancos_MovimientosBancarios DTProveedorActual = DTProveedores.FiltraParametros(String.Format("CveProveedor = 21114")) - If ObjCuentasBancos.GetCuentasDepositos(21114) Then + If ObjCuentasBancos.GetCuentasDepositos(CveProveedor:=21114) Then DTProveedorBancos = ObjCuentasBancos.DtResultados RowBanco = DTProveedorBancos.Rows(0) Else diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index a08c794e6..882f36ef2 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -5983,7 +5983,7 @@ Partial Class Clientes #Region "C U E N T A S - B A N C A R I A S" - Private Sub CargaCuentasBancarias() + Private Sub CargaCuentasBancarias(Optional RecargaGlobal As Boolean = False) If CveCliente <= 0 Then Exit Sub @@ -6004,9 +6004,8 @@ Partial Class Clientes End If ObjCuentasBancos.Dispose() - CargaPSGridCuentasBancos() - - RecargaGlobalCuentasBancarias() + CargaPSGridCuentasBancos() + CargaMonedas() End Sub Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs) @@ -6208,13 +6207,10 @@ Partial Class Clientes RecargaGlobalCuentasBancarias() End Sub Private Sub RecargaGlobalCuentasBancarias(Optional ByVal CveCuenta As Integer = -1) - If CveCliente > 0 Then - Dim ObjCuentasBancos As New ClsGenerales - - If ObjCuentasBancos.GetCuentasDepositos() Then - GlobalDTProveedoresCuentas(-1, True) = ObjCuentasBancos.DtResultados - End If - ObjCuentasBancos.Dispose() + If CveCliente > 0 Then + + GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, -1, True) = Nothing + End If End Sub From 2ab8a8bdbba64db1793752b51721c82606bf95fc Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 19 Jun 2020 10:19:40 -0700 Subject: [PATCH 4/5] --variable de actualziar mal colocada --- Contabilidad/CatPeriodosBloqueo.aspx.vb | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/Contabilidad/CatPeriodosBloqueo.aspx.vb b/Contabilidad/CatPeriodosBloqueo.aspx.vb index 1b3707231..15234e936 100644 --- a/Contabilidad/CatPeriodosBloqueo.aspx.vb +++ b/Contabilidad/CatPeriodosBloqueo.aspx.vb @@ -122,7 +122,7 @@ Partial Class Contabilidad_CatPeriodosBloqueo RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarPeriodosBloqueo"), "jsHideModalPeriodosBloqueo") UpGral.Update() - + Ejercicio = -1 Alert("Bloqueo Agregado Correctamente", TipoMensaje.MsgInformacion) Else Alert("Ocurrió un error al guardar el Periodo de Bloqueo", TipoMensaje.MsgError) @@ -138,15 +138,14 @@ Partial Class Contabilidad_CatPeriodosBloqueo UpGral.Update() Alert("Bloqueo Actualizado Correctamente", TipoMensaje.MsgInformacion) + Ejercicio = -1 + Actualizar = False Else Dim mensajeAlerta As String = AplicarBloqueso.Replace(";", Environment.NewLine) Alert(String.Format("No se puede bloquear el periodo por:
{0} ", mensajeAlerta), TipoMensaje.MsgError) End If End If - Ejercicio = -1 - Actualizar = False - ObjConta.Dispose() End Sub From 45073c763685012132dc11b7276ad2006216148e Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 19 Jun 2020 10:20:04 -0700 Subject: [PATCH 5/5] -- estaba cargando databind, antes de dispose --- Inventarios/RepTraspasoAlmacen.aspx.vb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Inventarios/RepTraspasoAlmacen.aspx.vb b/Inventarios/RepTraspasoAlmacen.aspx.vb index 1a9d2d59c..56ec9a426 100644 --- a/Inventarios/RepTraspasoAlmacen.aspx.vb +++ b/Inventarios/RepTraspasoAlmacen.aspx.vb @@ -77,11 +77,12 @@ Partial Class RepTraspasoAlmacen If ObjInventarios.RepTraspasoAlmacen(FechaI.ToDate, FechaF.ToDate, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero, ChkRecibido.Checked, UsuarioActual.CveEmpresa) Then GvDatos.DataSource = ObjInventarios.DtResultados DtInventarios = ObjInventarios.DtResultados - GvDatos.DataBind() - UPDatos.Update() + End If ObjInventarios.Dispose() + GvDatos.DataBind() + UPDatos.Update() End Sub #End Region