From d4140fad0be7d822585d342c1257afef5ab753c4 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 24 Jul 2024 17:37:16 -0700 Subject: [PATCH 1/3] --puntos varios --- App_Code/ClsPaginas.vb | 2 +- App_Code/ClsVentas.vb | 3 +- Compras/Compras.aspx | 10 ++++-- Compras/Compras.aspx.vb | 3 +- Compras/PopUpVerFactura.aspx.vb | 15 ++++++++- Ventas/PVCobranza.aspx | 6 ++-- Ventas/PVCobranza.aspx.vb | 9 +++-- Ventas/Ventas.aspx | 10 +++--- Ventas/Ventas.aspx.vb | 59 ++++++++++++++++++++++++--------- 9 files changed, 85 insertions(+), 32 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index f3365603a..c1ae046c4 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -7615,7 +7615,7 @@ Public Class ClsPaginas End If Dim urlHost As String = "hhttp://sig.adssistemas.mx:7998/" If EsProduccion Then - urlHost = "http://sig.adssistemas.mx:6599/" + urlHost = "http://192.200.113.178:6599/" End If 'SITIO DE PRUEBA EN IIS Dim Url As Uri = New Uri(String.Format("{0}{1}", urlHost, Opcion)) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 18032d741..5ea5979ef 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -2159,13 +2159,14 @@ Public Class ClsVentas #Region "V E N T A S - P R E C I O L I S T A S" - Public Function GetPreciosListaSPPermitidos(CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean + Public Function GetPreciosListaSPPermitidos(CveSubProyecto As Integer, CvePS As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_PrecioListaSPPermitdosGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CvePS", SqlDbType.Int).Value = CvePS .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 60aa183be..d9b266f58 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -6125,7 +6125,10 @@ // totalPoints += ToDouble($(this).val()); let txtvalue = ToDouble($(this).val()); //let asdasdasd = $(this).data('tcanticipo'); - let TCAnticipo = ToDouble($(this).data('tcanticipo')); + let TCAnticipo = 1; + if ($(this).data('tcanticipo')) { + TCAnticipo = ToDouble($(this).data('tcanticipo')); + } if (CveMonedaAnticipo == 1 && CveMonedaOriginal == 2) { txtvalue = ToDouble(txtvalue / TCAnticipo); @@ -6146,7 +6149,10 @@ $('input[name*=TxtComision]').each(function () { //totalPoints += ToDouble($(this).val()); let txtvalue = ToDouble($(this).val()); - let TCAnticipo = ToDouble($(this).data('tcanticipo')); + let TCAnticipo = 1; + if ($(this).data('tcanticipo')) { + TCAnticipo = ToDouble($(this).data('tcanticipo')); + } if (CveMonedaAnticipo == 1 && CveMonedaOriginal == 2) { txtvalue = ToDouble(txtvalue / TCAnticipo); } else if (CveMonedaAnticipo == 2 && CveMonedaOriginal == 1) { diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 8485f0651..1359cb59e 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -9919,6 +9919,7 @@ Partial Class Compras_Compras e.Row.FCTextBox("TxtAnticipo").Attributes.Add("data-tcanticipo", tTCFecha.ToString) + e.Row.FCTextBox("TxtComision").Attributes.Add("data-tcanticipo", tTCFecha.ToString) Dim TCAnt As Decimal = If(DdlMoneda.SelectedValue = "1", 1, If(CveCompra > 0, LblTC.Text.Replace("TC:", "").ToDecimal, TxtTC.Text.ToDecimal)) @@ -13309,7 +13310,7 @@ Partial Class Compras_Compras DDLDevolucion.Items.Clear() Dim dtt As DataTable = objcompras.DtResultados If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then 'solo los últimos 3 meses - dtt = dtt.FiltraParametros($"Fecha >= #{NowADS.AddMonths(-6).ToString("yyyy/MM/dd")}#") + dtt = dtt.FiltraParametros($"Fecha >= #{NowADS.AddMonths(-12).ToString("yyyy/MM/dd")}#") End If DDLDevolucion.DataSource = dtt DDLDevolucion.Items.Insert(0, New ListItem("Seleccione", "-1")) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 386792d7a..760d15aa0 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -1557,6 +1557,16 @@ Partial Class PopUpVerFactura Dim ConsultaPorSucursal As Boolean = UsuarioActual.Empresa.Funcionalidad(382) = "1" If ConsultaPorSucursal Then + 'SI NO TIENE ESTOS VALORES, SARCALOS DEL CORTE + If CveCorte > 0 AndAlso (FechaConsulta = ModExtensiones.MaxFecha OrElse CveSubProyecto <= 0) Then + Using ObjVta As New ClsPuntoVenta + If ObjVta.GetVta_Cortes("-1", "-1", -1, CveCorte, UsuarioActual.CveEmpresa, -1) AndAlso ObjVta.DtResultados.Rows.Count > 0 Then + FechaConsulta = ObjVta.DtResultados.FiltroPrimeroValor("FechaInicial").ToString().ToDate().Date + CveSubProyecto = ObjVta.DtResultados.FiltroPrimeroValor("CveSubProyecto").ToEntero() + End If + End Using + End If + CveCorte = -1 End If @@ -1638,7 +1648,10 @@ Partial Class PopUpVerFactura If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa = 197 Then If DtReporteCorte IsNot Nothing Then - Dim DtTT = GenerateTransposedTable(DtReporteCorte) + Dim dtDatos = DtReporteCorte.Clone() + dtDatos.ImportRow(DtReporteCorte.Rows(0)) + + Dim DtTT = GenerateTransposedTable(dtDatos) Dim DtDatosVentas As New DataTable() DtDatosVentas.Columns.Add(New DataColumn("Orden", GetType(Integer))) DtDatosVentas.Columns.Add(New DataColumn("Columna", GetType(String))) diff --git a/Ventas/PVCobranza.aspx b/Ventas/PVCobranza.aspx index 09bfc0992..a824d0d73 100644 --- a/Ventas/PVCobranza.aspx +++ b/Ventas/PVCobranza.aspx @@ -1007,9 +1007,9 @@