- Se corrigio un error que afectaba a las productos con descuento y redondeo.

B4A/Subs.bas

@@ -1154,7 +1154,7 @@ End Sub
 Sub traeTotalTicketActual_PT As String
 	Private t As String = 0
 	Private pt As Cursor = Starter.skmt.ExecQuery($"select ifnull(sum(PT_MONTO),0) as subtotal from PEDIDO_TICKET where PT_TICKET = '${Starter.ticketActual}' and PT_MESA = '${Starter.mesaActual}' and PT_PAGO = 'VENTA'"$)
-	pt.Position=0
+	pt.Position = 0
 	If pt.RowCount > 0 Then
 		t = pt.GetString("subtotal")
 	End If
@@ -1177,10 +1177,10 @@ Sub traeTotalTicketActual_P(tipoPago As String) As String
 				desc = 0
 			End If
 '			Log(">>>>>>>   " & p.GetString("CAT_GP_NOMBRE") & " - " & (p.GetString("PE_COSTO_TOT") * desc))
-			st = st + (p.GetString("PE_COSTO_TOT") - (p.GetString("PE_COSTO_TOT") * desc))
+			st = st + Ceil((p.GetString("PE_COSTO_TOT") - (p.GetString("PE_COSTO_TOT") * desc))) 'Sumamos el subtotal anterior mas el REDONDEO del producto con descuento.
 		Next
 	End If
-	st = Ceil(st)
+	'st = Ceil(st)
 	Return st
 End Sub