diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 69d5f99cf..f95d74192 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2958,7 +2958,7 @@ Partial Class Ventas
         If ObjPVenta.GetVta_Cortes("-1", "-1", UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 0) Then
             If ObjPVenta.DtResultados.Rows.Count > 0 Then
 
-                Total = ObjPVenta.DtResultados(0)("ImporteInicial").ToString().ToDouble + ObjPVenta.DtResultados(0)("VentasEfectivo").ToString().ToDouble + ObjPVenta.DtResultados(0)("Propina").ToString().ToDouble + ObjPVenta.DtResultados(0)("Ingresado").ToString().ToDouble - ObjPVenta.DtResultados(0)("Retirado").ToString().ToDouble
+                Total = ObjPVenta.DtResultados(0)("ImporteInicial").ToString().ToDouble + ObjPVenta.DtResultados(0)("VentasEfectivo").ToString().ToDouble + ObjPVenta.DtResultados(0)("Ingresado").ToString().ToDouble - ObjPVenta.DtResultados(0)("Retirado").ToString().ToDouble - ObjPVenta.DtResultados(0)("Devoluciones").ToString().ToDouble
                 DineroCaja = Total
                 LblEfectivoEsperado.Text = Total.FormatoNumero(2)
 
@@ -2977,10 +2977,15 @@ Partial Class Ventas
                 Dr2("Importe") = ObjPVenta.DtResultados(0)("VentasEfectivo").ToString().ToDouble
                 Dt.Rows.Add(Dr2)
 
-                Dim Dr3 = Dt.NewRow
-                Dr3("Descripcion") = "Propinas"
-                Dr3("Importe") = ObjPVenta.DtResultados(0)("Propina").ToString().ToDouble
-                Dt.Rows.Add(Dr3)
+                Dim Dr21 = Dt.NewRow
+                Dr21("Descripcion") = "Devoluciones"
+                Dr21("Importe") = ObjPVenta.DtResultados(0)("Devoluciones").ToString().ToDouble
+                Dt.Rows.Add(Dr21)
+
+                'Dim Dr3 = Dt.NewRow
+                'Dr3("Descripcion") = "Propinas"
+                'Dr3("Importe") = ObjPVenta.DtResultados(0)("Propina").ToString().ToDouble
+                'Dt.Rows.Add(Dr3)
 
                 Dim Dr4 = Dt.NewRow
                 Dr4("Descripcion") = "Entradas"
@@ -6847,7 +6852,7 @@ Partial Class Ventas
             Dim ClienteRetIVA = Me.ClienteRetIVA
 
             If ClienteRetIVA <= 0 Then
-                If CBool(TmpDT.Rows(e.RowIndex)("EsOutSourcing").ToString()) Then
+                If TmpDT.Rows(e.RowIndex)("EsOutSourcing").ToString() <> "" AndAlso CBool(TmpDT.Rows(e.RowIndex)("EsOutSourcing").ToString()) Then
                     ClienteRetIVA = 0.06D
                     DdlTipoRetencion.SelectedValueExist("4")
                     LblRetIVA.Text = (ClienteRetIVA * 100).FormatoNumero