diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 353e03685..86f7cca10 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -14319,7 +14319,7 @@ Partial Class Ventas
             End If
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso EsVentaMedica Then
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso EsVentaMedica AndAlso factura.TipoDocto.Contiene("Ped", "Rem") Then
             Dim CveClientesucursatTemp As Integer = DdlClienteSucursalSucursal()
             If CveClientesucursatTemp > 0 Then
 
@@ -14366,17 +14366,16 @@ Partial Class Ventas
             End If
         End If
 
-        Dim TotalImpuestoLocal As Double = 0
+        Dim TotalImpuestoLocal As Decimal = 0
         If GvImpuestosLocales2.Rows.Count > 0 Then
             For Each gvr As GridViewRow In GvImpuestosLocales2.Rows
                 If gvr.RowType = DataControlRowType.DataRow Then
-                    If gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble <> 0 Then
+                    If gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDecimal <> 0 Then
                         If gvr.DataKey("TipoImpuesto") = "5" Then ' cuando es traslado local 
-                            TotalImpuestoLocal -= gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble
+                            TotalImpuestoLocal -= gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDecimal
                         Else ' cuando es retención
-                            TotalImpuestoLocal += gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDouble
+                            TotalImpuestoLocal += gvr.FCTextBox("TxtImpuestoLocalPS").Text.ToDecimal
                         End If
-
                     End If
                 End If
             Next