From e37f192ffa7d5f088e68ec156ef6bcfea20e646c Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 3 Mar 2020 10:34:35 -0700 Subject: [PATCH 1/3] Cantidad debe ser mayor que 0 --- Ventas/Ventas.aspx.vb | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 9ecd8ab82..3c79eea5e 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -5835,6 +5835,11 @@ Partial Class Ventas Descuento = (GvPS.Rows(e.RowIndex).FCTextBox("TxtDescuento").Text.ToDecimal).RoundSQL(NumeroDecimales) CuentaPredial = GvPS.Rows(e.RowIndex).FCTextBox("TxtPredial").Text.Trim + If PU <= 0 AndAlso UsuarioActual.CveEmpresa = 141 Then + Alert("El precio debe ser mayor a 0", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + If UsuarioActual.CveEmpresa = 140 Then Descuento = CalcularDescuentos(TmpDT.Rows(e.RowIndex)("CvePS").ToString.ToEntero, Cantidad, PU) End If @@ -8803,8 +8808,8 @@ Partial Class Ventas 'siempre estaremos agregando el iva, auqnue sea en importe cero o tasa cero, para que se emita la factura ' If drr("ImporteIVA").ToString.ToDouble > 0 Then - 'si es ingreso amortizado por la totalidad, y arroja el valor total de cero, no debe de impuestos - If Timbre.Comprobante.Total > 0 Then + 'si es ingreso amortizado por la totalidad, y arroja el valor total de cero, no debe de impuestos, y si la BASE de calculo es mayor a cero + If Timbre.Comprobante.Total > 0 AndAlso concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional > 0 Then concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional, .TasaOCuota = drr("PorcentajeIVA").ToString.ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString.ToDecimal}) End If @@ -13920,6 +13925,11 @@ Partial Class Ventas Return False End If + If PU <= 0 AndAlso UsuarioActual.CveEmpresa = 141 Then + Alert("El precio debe ser mayor a 0", TipoMensaje.MsgAdvertencia) + Return False + End If + 'VALIDA PROMOCIONES Dim ObjVentas As New ClsVentas If ObjVentas.GetPromocionesPS(-1, TxtFecha.Text.ToDateTime, DdlSubProyectoDatos.SelectedValue.ToEntero, CveCliente, DdlVendedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then From e2c17160ce5367784107dd2bac38b6deeeca54a7 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 3 Mar 2020 10:34:52 -0700 Subject: [PATCH 2/3] Quitar timer de notificaciones de campana --- SiteGPS.master | 31 ++++++++++++++++--------------- vwd.webinfo | 2 ++ 2 files changed, 18 insertions(+), 15 deletions(-) diff --git a/SiteGPS.master b/SiteGPS.master index f1aa06e3e..657d03977 100644 --- a/SiteGPS.master +++ b/SiteGPS.master @@ -847,22 +847,23 @@ CveBitacora: -1 } } - var json = JSON.stringify(request); - $.ajax({ - data: json, - url: '/Ashx/SIGGPS.ashx', - type: 'post', - beforeSend: function () { - console.log("procesando....."); - }, - success: function (response) { - console.log("notificacion actualizada...."); - var datos = JSON.parse(response); - UpdateNotificacionesCampana(datos); - } - }); - setTimeout(startTimer, 60000); // callback + //var json = JSON.stringify(request); + //$.ajax({ + // data: json, + // url: '/Ashx/SIGGPS.ashx', + // type: 'post', + // beforeSend: function () { + // console.log("procesando....."); + // }, + // success: function (response) { + // console.log("notificacion actualizada...."); + // var datos = JSON.parse(response); + // UpdateNotificacionesCampana(datos); + // } + //}); + + //setTimeout(startTimer, 60000); // callback } // diff --git a/vwd.webinfo b/vwd.webinfo index a280964b8..2f273a97f 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -23,6 +23,8 @@ + + From d9966fba4f5f712faaa1cc8649c7817d14f024e0 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Tue, 3 Mar 2020 17:48:23 -0700 Subject: [PATCH 3/3] --- Compras/Compras.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 134e806e2..055ef4dc0 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6235,7 +6235,7 @@ Partial Class Compras_Compras End If Case 6 'Compra - Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" + Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 141) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Dim RegistraConcepto225 As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" If RBLPago.SelectedValue.ToEntero = 4 Then