diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index be1ef0a10..5b98f44a9 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -14377,7 +14377,7 @@ Partial Class Ventas
             End If
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso EsVentaMedica AndAlso factura.TipoDocto.Contiene("Ped", "Rem") Then
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso EsVentaMedica AndAlso (factura.TipoDocto.Contiene("Ped", "Rem") OrElse (factura.TipoDocto.Contiene("Ing") AndAlso RBLTipoVenta.SelectedValue = "4")) Then
             Dim CveClientesucursatTemp As Integer = DdlClienteSucursalSucursal()
             If CveClientesucursatTemp > 0 Then