Documentos proveedores

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

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
             }
 
             //

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
+            '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 Then
+            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

vwd.webinfo

@@ -22,10 +22,6 @@
     
   
     
-  
-    
-  
-