Merge branch 'master' of http://192.168.10.111:8383/SIG

Ventas/PV.aspx.vb

@@ -7873,6 +7873,11 @@ Partial Class PV
                 DescuentoCargo = (TotalAnterior - Dr("Descuento").ToString.ToDecimal())
             End If
 
+            'AJUSTA EL DESCUENTO PARA QUE NO RESTE EL TOTAL
+            If DescuentoCargo = (TotalAnterior - Dr("Descuento").ToString.ToDecimal()) Then
+                DescuentoCargo -= 0.01D
+            End If
+
             Dim Descuento As Decimal = Dr("Descuento").ToString.ToDecimal + DescuentoCargo
             Dim TotalCalculableImpuestos As Decimal = (Dr("Cantidad").ToString.ToDecimal * (Dr("PU").ToString.ToDecimal)) - Descuento
             TotalCargos -= DescuentoCargo
@@ -7896,6 +7901,7 @@ Partial Class PV
 
         Next
         TmpDT.AcceptChanges()
+
         If TotalCargos > 0 Then ' cuando se entrega más valor de usados, que los cargos hechos, se descuenta sobre el PU del producto de venta
             Dim DtPSFiltro As DataTable = TmpDT.FiltraParametros($"Consec = {ConsecPSPadre} AND EsCargo = False AND EliminarDB = False AND CvePS={CvePS} AND (Total - Descuento) > 0.0000", Orderby:="Consec DESC")
             Dim Divisor As Decimal = 1

Ventas/Ventas.aspx.vb

@@ -12380,7 +12380,7 @@ Partial Class Ventas
         Timbre.Comprobante.Serie = Obj.Serie
         Timbre.Comprobante.Fecha = Obj.FechaCP
         Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33
-        Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33
+        Timbre.Comprobante.CondicionesdePago = If(UsuarioActual.CveEmpresa.Contiene(15, 76), "No Aplica", Obj.FormaPago33)
         Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT
         Timbre.Comprobante.SubTotal = Obj.SubTotal
         Timbre.Comprobante.Descuentos = Obj.Descuento