From 94a4c32564d8163e8329873d375cb790d5c5cd5b Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 22 Jul 2021 21:15:33 -0700 Subject: [PATCH 01/10] -- cambios en globaldtContratos, parametro cveempresa --- App_Code/ClsPaginas.vb | 2 +- Contratos/Contrato.aspx.vb | 2 +- Contratos/ContratoAvance.aspx.vb | 2 +- Contratos/ContratoObraAutorizacion.aspx.vb | 2 +- Contratos/Estimaciones.aspx.vb | 2 +- Contratos/FacturacionMasiva.aspx.vb | 2 +- Contratos/RepContratos.aspx.vb | 2 +- Contratos/RepContratosAvances.aspx.vb | 2 +- Contratos/RepContratosCostos.aspx.vb | 2 +- Contratos/RepContratosDetalle.aspx.vb | 2 +- Contratos/RepContratosFianzas.aspx.cs | 2 +- Contratos/RepContratosObraAvances.aspx.vb | 2 +- Contratos/RepContratosSuministros.aspx.vb | 2 +- Contratos/RepPedidosDevolucionesXContrato.aspx.vb | 2 +- 14 files changed, 14 insertions(+), 14 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 63911c9ad..9e898f86c 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -1804,7 +1804,7 @@ Public Class ClsPaginas 'sino existe, recarga los datos If Application(AppNombre) Is Nothing Then Using ObjContratos As New ClsContratos - If ObjContratos.GetContratos(-1, -1) Then Application(AppNombre) = ObjContratos.DtResultados Else Application(AppNombre) = Nothing + If ObjContratos.GetContratos(-1, CveEmpresa) Then Application(AppNombre) = ObjContratos.DtResultados Else Application(AppNombre) = Nothing End Using End If diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb index 62fc596a4..81398fed4 100644 --- a/Contratos/Contrato.aspx.vb +++ b/Contratos/Contrato.aspx.vb @@ -1654,7 +1654,7 @@ Partial Class Contratos_Default End Sub Private Sub CargaContratoPadre() DdlContratoPadre.Items.Clear() - DdlContratoPadre.DataSource = GlobalDTContratos.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveContratoTipo = {TipoContrato} {If(DdlCliente.SelectedValue.ToEntero > 0, $"AND CveCliente = {DdlCliente.SelectedValue}", "")} {If(CveContrato > 0, $"AND CveContrato <> {CveContrato}", "")} ") + DdlContratoPadre.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros($" CveContratoTipo = {TipoContrato} {If(DdlCliente.SelectedValue.ToEntero > 0, $"AND CveCliente = {DdlCliente.SelectedValue}", "")} {If(CveContrato > 0, $"AND CveContrato <> {CveContrato}", "")} ") DdlContratoPadre.DataBind() DdlContratoPadre.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub diff --git a/Contratos/ContratoAvance.aspx.vb b/Contratos/ContratoAvance.aspx.vb index a2271dff1..43540332c 100644 --- a/Contratos/ContratoAvance.aspx.vb +++ b/Contratos/ContratoAvance.aspx.vb @@ -135,7 +135,7 @@ Partial Class Contratos_ContratoAvance #Region "Filtros" Private Sub CargaContrato() - DdlContratos.DataSource = GlobalDTContratos.FiltraParametros(String.Format($"CveContratoTipo in (30,31) AND CveEmpresa = {UsuarioActual.CveEmpresa}")) + DdlContratos.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros(" CveContratoTipo in (30,31) ") DdlContratos.DataBind() End Sub diff --git a/Contratos/ContratoObraAutorizacion.aspx.vb b/Contratos/ContratoObraAutorizacion.aspx.vb index 312288238..ccd33f44e 100644 --- a/Contratos/ContratoObraAutorizacion.aspx.vb +++ b/Contratos/ContratoObraAutorizacion.aspx.vb @@ -133,7 +133,7 @@ Partial Class Contratos_ContratoObraAutorizacion Private Sub CargaContrato() - DDlContratosEstimaciones.DataSource = GlobalDTContratos.FiltraParametros(String.Format($"CveContratoTipo in (30,31) AND CveEmpresa = {UsuarioActual.CveEmpresa}")) + DDlContratosEstimaciones.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros("CveContratoTipo in (30,31) ") DDlContratosEstimaciones.DataBind() End Sub diff --git a/Contratos/Estimaciones.aspx.vb b/Contratos/Estimaciones.aspx.vb index 1c846d0f6..afd08771d 100644 --- a/Contratos/Estimaciones.aspx.vb +++ b/Contratos/Estimaciones.aspx.vb @@ -54,7 +54,7 @@ Partial Class Contratos_Estimaciones End Sub Private Sub CargaContratos() - DdlContrato.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa) DdlContrato.DataBind() DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1")) End Sub diff --git a/Contratos/FacturacionMasiva.aspx.vb b/Contratos/FacturacionMasiva.aspx.vb index 5bf22c51f..e7f136f5d 100644 --- a/Contratos/FacturacionMasiva.aspx.vb +++ b/Contratos/FacturacionMasiva.aspx.vb @@ -115,7 +115,7 @@ Partial Class Contratos_FacturacionMasiva Private Sub CargaCombos() DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) DdlCliente.DataBind() - DdlContrato.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") + DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa) DdlContrato.DataBind() DdlSucursal.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) DdlSucursal.DataBind() diff --git a/Contratos/RepContratos.aspx.vb b/Contratos/RepContratos.aspx.vb index 19902c81d..862ba07a6 100644 --- a/Contratos/RepContratos.aspx.vb +++ b/Contratos/RepContratos.aspx.vb @@ -55,7 +55,7 @@ Partial Class RepContratos End Sub Private Sub CargaContratos() - DdlContrato.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa) DdlContrato.DataBind() DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1")) End Sub diff --git a/Contratos/RepContratosAvances.aspx.vb b/Contratos/RepContratosAvances.aspx.vb index cb5c64c16..efbfb6a52 100644 --- a/Contratos/RepContratosAvances.aspx.vb +++ b/Contratos/RepContratosAvances.aspx.vb @@ -42,7 +42,7 @@ Partial Class RepContratosAvances Private Sub CargaContratos() - DdlContrato.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa) DdlContrato.DataBind() DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1")) End Sub diff --git a/Contratos/RepContratosCostos.aspx.vb b/Contratos/RepContratosCostos.aspx.vb index 24ec4e969..1f992d9dd 100644 --- a/Contratos/RepContratosCostos.aspx.vb +++ b/Contratos/RepContratosCostos.aspx.vb @@ -44,7 +44,7 @@ Partial Class Contratos_RepContratosCostos #Region "C O M B O S" Public Sub CargaContratos() - DdlContratos.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") + DdlContratos.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa) DdlContratos.DataBind() End Sub diff --git a/Contratos/RepContratosDetalle.aspx.vb b/Contratos/RepContratosDetalle.aspx.vb index c62f0b3bd..95da1ce79 100644 --- a/Contratos/RepContratosDetalle.aspx.vb +++ b/Contratos/RepContratosDetalle.aspx.vb @@ -55,7 +55,7 @@ Partial Class RepContratos End Sub Private Sub CargaContratos() - DdlContrato.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa) DdlContrato.DataBind() DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1")) End Sub diff --git a/Contratos/RepContratosFianzas.aspx.cs b/Contratos/RepContratosFianzas.aspx.cs index 3a4ab2e29..2497b618d 100644 --- a/Contratos/RepContratosFianzas.aspx.cs +++ b/Contratos/RepContratosFianzas.aspx.cs @@ -69,7 +69,7 @@ public partial class Contratos_RepContratosFianzas : ClsPaginas protected void CargaContratos() { - DdlContratos.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " + UsuarioActual.CveEmpresa); + DdlContratos.DataSource = get_GlobalDTContratos(UsuarioActual.CveEmpresa); DdlContratos.DataBind(); } protected void CargaClientes() diff --git a/Contratos/RepContratosObraAvances.aspx.vb b/Contratos/RepContratosObraAvances.aspx.vb index 987e7206c..1ee3aa59b 100644 --- a/Contratos/RepContratosObraAvances.aspx.vb +++ b/Contratos/RepContratosObraAvances.aspx.vb @@ -79,7 +79,7 @@ Partial Class RepContratosObraAvances Private Sub CargaContratos() - DdlContrato.DataSource = GlobalDTContratos.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveContratoTipo IN(30,31) ") + DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros(" CveContratoTipo IN(30,31) ") DdlContrato.DataBind() DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1")) End Sub diff --git a/Contratos/RepContratosSuministros.aspx.vb b/Contratos/RepContratosSuministros.aspx.vb index 6b22f268c..b05d9970a 100644 --- a/Contratos/RepContratosSuministros.aspx.vb +++ b/Contratos/RepContratosSuministros.aspx.vb @@ -42,7 +42,7 @@ Partial Class Contratos_RepContratosSuministros #Region "C O M B O S" Public Sub CargaContratos() - DdlContratos.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") + DdlContratos.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa) DdlContratos.DataBind() End Sub diff --git a/Contratos/RepPedidosDevolucionesXContrato.aspx.vb b/Contratos/RepPedidosDevolucionesXContrato.aspx.vb index 0c7ce6161..c47574744 100644 --- a/Contratos/RepPedidosDevolucionesXContrato.aspx.vb +++ b/Contratos/RepPedidosDevolucionesXContrato.aspx.vb @@ -45,7 +45,7 @@ Partial Class Ventas_RepPedidosDevolucionesXContrato #Region "C O M B O S" Public Sub CargaContratos() - DdlContratos.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") + DdlContratos.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa) DdlContratos.DataBind() End Sub From 06e1853754fd8d7a9dd9c59286610524816fd946 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 23 Jul 2021 18:42:43 -0700 Subject: [PATCH 02/10] globalDTContratos --- GPS/FacturacionMasiva.aspx.vb | 2 +- Inventarios/RepTrasladoSolicitud.aspx.vb | 2 +- Inventarios/TrasladoSolicitud.aspx.vb | 12 ++++++------ 3 files changed, 8 insertions(+), 8 deletions(-) diff --git a/GPS/FacturacionMasiva.aspx.vb b/GPS/FacturacionMasiva.aspx.vb index 9a43ef120..c5ac0022e 100644 --- a/GPS/FacturacionMasiva.aspx.vb +++ b/GPS/FacturacionMasiva.aspx.vb @@ -100,7 +100,7 @@ Partial Class Contratos_FacturacionMasiva Private Sub CargaCombos() DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) DdlCliente.DataBind() - DdlContrato.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") + DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa) DdlContrato.DataBind() DdlSucursal.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) DdlSucursal.DataBind() diff --git a/Inventarios/RepTrasladoSolicitud.aspx.vb b/Inventarios/RepTrasladoSolicitud.aspx.vb index b11fb549c..2b7374c81 100644 --- a/Inventarios/RepTrasladoSolicitud.aspx.vb +++ b/Inventarios/RepTrasladoSolicitud.aspx.vb @@ -21,7 +21,7 @@ Partial Class Inventarios_RepTrasladoSolicitud DdlAlmacenDestino.DataBind() DdlAlmacenDestino.Items.Insert(0, New ListItem("Todos", "-1")) - DdlContrato.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") + DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa) DdlContrato.DataBind() DdlContrato.Items.Insert(0, New ListItem("Todos", "-1")) diff --git a/Inventarios/TrasladoSolicitud.aspx.vb b/Inventarios/TrasladoSolicitud.aspx.vb index ef5af71e2..3fd260b3e 100644 --- a/Inventarios/TrasladoSolicitud.aspx.vb +++ b/Inventarios/TrasladoSolicitud.aspx.vb @@ -246,7 +246,7 @@ Partial Class Inventarios_TrasladoSolicitud If CveDireccionEnvio > 0 And ObjClientes.DireccionEnvioGet(CveDireccionEnvio, -1, -1) Then LblDireccionEnvio.Text = ObjClientes.DtResultados.FiltraParametros(String.Format("Estatus = 1")).Rows(0)("SucursalClienteVentaDireccion").ToString Else - Dim CveCliente As Integer = GlobalDTContratos().FiltroPrimeroValor("CveCliente", $"CveContrato = {ObjInventarios.DtResultados.Rows(0)("CveContrato").ToString.ToEntero}").ToEntero + Dim CveCliente As Integer = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"CveContrato = {ObjInventarios.DtResultados.Rows(0)("CveContrato").ToString.ToEntero}").ToEntero Dim DtCliente As DataTable = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros($"CveCliente = {CveCliente}") If DtCliente.Rows.Count > 0 Then LblDireccionEnvio.Text = String.Format("{0},{1}, {2}", DtCliente.FiltroPrimeroValor("Direccion"), DtCliente.FiltroPrimeroValor("Colonia"), DtCliente.FiltroPrimeroValor("Ciudad"), DtCliente.FiltroPrimeroValor("Contacto")) @@ -517,7 +517,7 @@ Partial Class Inventarios_TrasladoSolicitud If ObjContratos.GetContratosEstatus(UsuarioActual.CveEmpresa) Then Dim CveEstatusVigente = ObjContratos.DtResultados.FiltroPrimeroValor("CveContratoEstatus", "TipoEstatus = 1", Orderby:="CveContratoEstatus").ToEntero - DdlContratos.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCliente = {DdlClientes.SelectedValue.ToEntero} AND CveContratosEstatus = {CveEstatusVigente}") + DdlContratos.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros($" CveCliente = {DdlClientes.SelectedValue.ToEntero} AND CveContratosEstatus = {CveEstatusVigente}") 'If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, DdlClientes.SelectedValue.ToEntero, CveEstatusVigente) Then ' DdlContratos.DataSource = ObjContratos.DtResultados @@ -808,10 +808,10 @@ Partial Class Inventarios_TrasladoSolicitud Dim CveContrato As Integer = ObjInventarios.DtResultados.FiltroPrimeroValor("CveContrato").ToString.ToEntero If CveContrato > 0 Then - Contrato = GlobalDTContratos().FiltroPrimeroValor("DescripcionContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}") - NumContrato = GlobalDTContratos().FiltroPrimeroValor("NumeroContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}") - CveCliente = GlobalDTContratos().FiltroPrimeroValor("CveCliente", $"CveContrato = {CveContrato}").ToEntero - CveDireccionEnvio = GlobalDTContratos().FiltroPrimeroValor("CveDireccionEnvio", $"CveContrato = {CveContrato}").ToEntero + Contrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("DescripcionContrato", $"CveContrato={CveContrato}") + NumContrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("NumeroContrato", $"CveContrato={CveContrato} ") + CveCliente = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"CveContrato = {CveContrato}").ToEntero + CveDireccionEnvio = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveDireccionEnvio", $"CveContrato = {CveContrato}").ToEntero If CveCliente > 0 Then From ef11bc1feb157fa5b7ac415f2402b28177b23e79 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 23 Jul 2021 18:43:10 -0700 Subject: [PATCH 03/10] -- cambios en redondeos --- Bancos/PopIECompras.aspx.vb | 136 ++++++++++++++++++------------------ 1 file changed, 68 insertions(+), 68 deletions(-) diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb index 1582d5826..67e647931 100644 --- a/Bancos/PopIECompras.aspx.vb +++ b/Bancos/PopIECompras.aspx.vb @@ -1577,8 +1577,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal ImporteMX = ImporteMovimiento * tipoCambioCompra End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = tipoCambioCompra CveIE = rw.DataKey("CveIE").ToString.ToEntero @@ -1625,8 +1625,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal ImporteMX = ImporteMovimiento * tipoCambioCompra End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = tipoCambioCompra CveIE = rw.DataKey("CveIE").ToString.ToEntero @@ -1672,8 +1672,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal ImporteMX = ImporteMovimiento * tipoCambioCompra End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL CveIE = rw.DataKey("CveIE").ToString.ToEntero If CveMonedaCompra <> 1 Then @@ -1718,8 +1718,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal ImporteMX = ImporteMovimiento * tipoCambioCompra End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL If CveMonedaCompra <> 1 Then 'si la factura es en dólares y trae complementaria, el importemn debe ser igual al importe @@ -1763,8 +1763,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = ImportePagado.ToString.ToDecimal ImporteMX = ImporteMovimiento * tipoCambioCompra End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = tipoCambioCompra End If @@ -1795,8 +1795,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago) ImporteMX = ImporteMovimiento * tipoCambioCompra End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = tipoCambioCompra If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}" @@ -1829,8 +1829,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago) ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" @@ -1863,8 +1863,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago) ImporteMX = ImporteMovimiento * tipoCambioCompra End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = tipoCambioCompra If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}" @@ -2136,8 +2136,8 @@ Partial Class Bancos_PopIECompras ' ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago) ' ImporteMX = ImporteMovimiento * tipoCambioCompra ' End If - ' ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ' ImporteMX = Math.Round(ImporteMX, 2) + ' ImporteMovimiento = ImporteMovimiento.RoundSQL + ' ImporteMX = ImporteMX.RoundSQL ' TimpocambioGeneral = tipoCambioCompra ' If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}" @@ -2171,8 +2171,8 @@ Partial Class Bancos_PopIECompras ' ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago) ' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago) ' End If - ' ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ' ImporteMX = Math.Round(ImporteMX, 2) + ' ImporteMovimiento = ImporteMovimiento.RoundSQL + ' ImporteMX = ImporteMX.RoundSQL ' TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago) ' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" @@ -2206,8 +2206,8 @@ Partial Class Bancos_PopIECompras ' ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago) ' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago) ' End If - ' ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ' ImporteMX = Math.Round(ImporteMX, 2) + ' ImporteMovimiento = ImporteMovimiento.RoundSQL + ' ImporteMX = ImporteMX.RoundSQL ' TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago) ' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" @@ -2242,8 +2242,8 @@ Partial Class Bancos_PopIECompras ' ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago) ' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago) ' End If - ' ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ' ImporteMX = Math.Round(ImporteMX, 2) + ' ImporteMovimiento = ImporteMovimiento.RoundSQL + ' ImporteMX = ImporteMX.RoundSQL ' TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago) ' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" @@ -2431,7 +2431,7 @@ Partial Class Bancos_PopIECompras ImporteMXNoDeducible = ImporteMovimientoNoDeducible * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) End If ImporteMovimientoNoDeducible = Math.Round(ImporteMovimientoNoDeducible, 2) - ImporteMXNoDeducible = Math.Round(ImporteMX, 2) + ImporteMXNoDeducible = ImporteMX.RoundSQL TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimientoNoDeducible.FormatoNumero(2)}" @@ -2596,8 +2596,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = (MovimientoPagar.IVADeducible) ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" @@ -2620,8 +2620,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = (MovimientoPagar.IVADeducible * PorcentajePago) ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" @@ -2657,7 +2657,7 @@ Partial Class Bancos_PopIECompras ImporteMXNoDeducible = ImporteMovimientoNoDeducible * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) End If ImporteMovimientoNoDeducible = Math.Round(ImporteMovimientoNoDeducible, 2) - ImporteMXNoDeducible = Math.Round(ImporteMX, 2) + ImporteMXNoDeducible = ImporteMX.RoundSQL TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimientoNoDeducible.FormatoNumero(2)}" @@ -2742,8 +2742,8 @@ Partial Class Bancos_PopIECompras ' ImporteMovimiento = (MovimientoPagar.IVANoDeducible) ' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) ' End If - ' ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ' ImporteMX = Math.Round(ImporteMX, 2) + ' ImporteMovimiento = ImporteMovimiento.RoundSQL + ' ImporteMX = ImporteMX.RoundSQL ' TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) ' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" @@ -2765,8 +2765,8 @@ Partial Class Bancos_PopIECompras ' ImporteMovimiento = (MovimientoPagar.IVANoDeducible * PorcentajePago) ' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) ' End If - ' ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ' ImporteMX = Math.Round(ImporteMX, 2) + ' ImporteMovimiento = ImporteMovimiento.RoundSQL + ' ImporteMX = ImporteMX.RoundSQL ' TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) ' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" @@ -2802,8 +2802,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = (MovimientoPagar.IEPS * PorcentajePago) ImporteMX = ImporteMovimiento * tipoCambioCompra End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = tipoCambioCompra If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then @@ -2825,8 +2825,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = (MovimientoPagar.IEPS * PorcentajePago) ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then @@ -2854,7 +2854,7 @@ Partial Class Bancos_PopIECompras ImporteMovimiento += ((MovimientoPagar.RetIVA * PorcentajePago) * TCImpuestos) - ((MovimientoPagar.RetIVA * PorcentajePago) * tipoCambioCompra) 'Añadimos la diferencia de ganancia en el RetIVA ImporteMovimiento += ((MovimientoPagar.RetISR * PorcentajePago) * TCImpuestos) - ((MovimientoPagar.RetISR * PorcentajePago) * tipoCambioCompra) 'Añadimos la diferencia de ganancia en el RetISR ImporteMovimiento -= ((MovimientoPagar.IEPS * PorcentajePago) * TCImpuestos) - ((MovimientoPagar.IEPS * PorcentajePago) * tipoCambioCompra) 'Añadimos la diferencia de ganancia en el IEPS - ImporteMovimiento = Math.Abs(Math.Round(ImporteMovimiento, 2)) + ImporteMovimiento = Math.Abs(ImporteMovimiento.RoundSQL) ImporteMX = ImporteMovimiento End If Else @@ -2878,7 +2878,7 @@ Partial Class Bancos_PopIECompras ImporteMovimiento += ((MovimientoPagar.RetIVA * PorcentajePago) * tipoCambioCompra) - ((MovimientoPagar.RetIVA * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el RetIVA ImporteMovimiento += ((MovimientoPagar.RetISR * PorcentajePago) * tipoCambioCompra) - ((MovimientoPagar.RetISR * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el RetISR ImporteMovimiento -= ((MovimientoPagar.IEPS * PorcentajePago) * tipoCambioCompra) - ((MovimientoPagar.IEPS * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el IEPS - ImporteMovimiento = Math.Abs(Math.Round(ImporteMovimiento, 2)) + ImporteMovimiento = Math.Abs(ImporteMovimiento.RoundSQL) ImporteMX = ImporteMovimiento End If Else @@ -2899,8 +2899,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = ImportePagado.ToString.ToDecimal ImporteMX = ImporteMovimiento * tipoCambioPago End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = tipoCambioPago If CveMoneda = 1 Then @@ -2946,8 +2946,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal ImporteMX = ImporteMovimiento * tipoCambioPago End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL CveIE = rw.DataKey("CveIE").ToString.ToEntero @@ -2975,8 +2975,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal ImporteMX = ImporteMovimiento * tipoCambioPago End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL CveIE = rw.DataKey("CveIE").ToString.ToEntero @@ -3003,8 +3003,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = ImportePagado.ToString.ToDecimal ImporteMX = ImporteMovimiento * tipoCambioPago End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = tipoCambioPago IdCtaContable = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal).FiltroPrimeroValor("IdCtaContPersonal", "").ToEntero @@ -3028,8 +3028,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal ImporteMX = ImporteMovimiento * tipoCambioPago End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL CveIE = rw.DataKey("CveIE").ToString.ToEntero IdCtaContable = CtaProveedorDeudores @@ -3057,8 +3057,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal ImporteMX = ImporteMovimiento * tipoCambioPago End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL If rw.DataKey("CveMoneda").ToEntero = 1 Then IdCtaContable = IdCuentaCliente @@ -3100,8 +3100,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = rw.DataKey("RetIVA").ToString.ToDecimal * PorcentajePagoVenta ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL 'Conta ContPAQ If IdCtaContRetIVACliente <> 0 Then @@ -3141,8 +3141,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoVenta ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL 'Conta ContPAQ If IdCtaContRetISR <> 0 Then @@ -3183,8 +3183,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = rw.DataKey("IVA").ToString.ToDecimal * PorcentajePagoVenta ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL PorcentajeImpuesto = rw.DataKey("PorcentajeIVA").ToDecimal Dim IdCtaIVAXTrasladar As Integer = 0 @@ -3225,8 +3225,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = rw.DataKey("IVA").ToString.ToDecimal * PorcentajePagoVenta ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, rw.DataKey("TipoCambio").ToString.ToDecimal) End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL PorcentajeImpuesto = rw.DataKey("PorcentajeIVA").ToDecimal @@ -3268,8 +3268,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = rw.DataKey("IEPS").ToString.ToDecimal * PorcentajePagoVenta ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSxTrasladar @@ -3301,8 +3301,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = rw.DataKey("IEPS").ToString.ToDecimal * PorcentajePagoVenta ImporteMX = ImporteMovimiento * tipoCambioPago End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSTrasladado @@ -3334,8 +3334,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = rw.DataKey("RetIVA").ToString.ToDecimal * PorcentajePagoVenta ImporteMX = ImporteMovimiento * tipoCambioPago End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL 'Conta ContPAQ If IdCtaContRetIVA <> 0 Then @@ -3377,8 +3377,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoVenta ImporteMX = ImporteMovimiento * tipoCambioPago End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL 'Conta ContPAQ If IdCtaContRetISR <> 0 Then From f9dab46a0c48692a357ceee9ae43159c24b175ca Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 23 Jul 2021 18:44:00 -0700 Subject: [PATCH 04/10] funcionalidad llantera --- Ventas/ProductosServicios.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index 8583d5742..bc7e20c47 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -244,7 +244,7 @@ Partial Class ProductosyServicios InicializaEcommerce() - If UsuarioActual.CveEmpresa.Contiene(141, 152) Then + If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then 'DivDatos.Attributes("class") = "col-md-12" DivDdlTipo.Visible = True From eaf1b96d17169344991fe5b0f9335aab80b8a312 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 23 Jul 2021 18:44:24 -0700 Subject: [PATCH 05/10] globalclasifdetalle --- Sistemas/CatSesiones.aspx.vb | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb index e06cf9d67..4bdb52791 100644 --- a/Sistemas/CatSesiones.aspx.vb +++ b/Sistemas/CatSesiones.aspx.vb @@ -228,8 +228,14 @@ Partial Class Sistemas_CatSesiones If ObjPS.GetPSEquivalencias(-1, -1) Then Application("GlobalDTProductosServiciosEquivalencias") = ObjPS.DtResultados Else Application("GlobalDTProductosServiciosEquivalencias") = Nothing 'If ObjPS.GetPS(-1, -1, -1) Then Application("GlobalDTProductosServicios") = ObjPS.DtResultados.AsEnumerable() Else Application("GlobalDTProductosServicios") = Nothing If ObjPS.GetMetodosInv() Then Application("GlobalDTInvMetodosInventario") = ObjPS.DtResultados Else Application("GlobalDTInvMetodosInventario") = Nothing - If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable() Else Application("GlobalDTPSSimplificado") = Nothing + 'If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable() Else Application("GlobalDTPSSimplificado") = Nothing ObjPS.Dispose() + GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing + Using ObjVenta As New ClsVentas + If ObjVenta.GetClasificacionDetalle(-1, CveClasificacion:=-1) Then + Application("GlobalDTClasificacionesDetalle") = ObjVenta.DtResultados + End If + End Using 'Fin Carga Usuarios End Sub From e721b7a9487001e9b564dbc4520abe3f7615a306 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 23 Jul 2021 18:46:04 -0700 Subject: [PATCH 06/10] acomodo o rubro indirectos --- Contratos/ContratoObra.aspx | 15 +++++---------- 1 file changed, 5 insertions(+), 10 deletions(-) diff --git a/Contratos/ContratoObra.aspx b/Contratos/ContratoObra.aspx index 62d582d06..89d0fa726 100644 --- a/Contratos/ContratoObra.aspx +++ b/Contratos/ContratoObra.aspx @@ -675,9 +675,7 @@ - - - +
@@ -765,11 +763,7 @@
- - - - - +