diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb
index b12725805..4f046f9db 100644
--- a/App_Code/ClsOC.vb
+++ b/App_Code/ClsOC.vb
@@ -68,6 +68,7 @@ Public Class ClsOC
     Public Property FechaEstimadaEntrega As Date
     'Private _NombreUsuario As String
     Public Property CveProveedor As Integer
+    Public Property TipoProveedor As String
     Public Property CveProveedorSucursal As Integer
     Public Property SucursalDireccion As String
     Public Property ProveedorContacto As String
@@ -736,6 +737,7 @@ Public Class ClsOC
                 _NombreUsuario = dr("NombreUsuario").ToString
 
                 _CveProveedor = If(Not IsDBNull(dr("CveProveedor")), dr("CveProveedor").ToString.ToEntero, -1)
+                Me.TipoProveedor = If(Not IsDBNull(dr("CveTipoProveedor")), dr("CveTipoProveedor").ToString, "-1")
                 _CveProveedorSucursal = If(Not IsDBNull(dr("CveProveedorSucursal")), dr("CveProveedorSucursal").ToString.ToEntero, -1)
                 _RazonSocial = If(Not IsDBNull(dr("RazonSocial")), dr("RazonSocial").ToString, "")
                 _Direccion = If(Not IsDBNull(dr("Direccion")), dr("Direccion").ToString, "")
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 38ccbc84f..191b602d2 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -7406,6 +7406,9 @@ Public Class ClsPaginas
 
                 params.Add(New ReportParameter("ProveedorDireccion", If(ObjOC.CveProveedorSucursal > 0, ObjOC.SucursalDireccion, ObjOC.Direccion)))
                 params.Add(New ReportParameter("ProveedorTel", If(ObjOC.CveProveedorSucursal > 0, ObjOC.SucursalTelefono, ObjOC.Telefono)))
+                If UsuarioActual.CveEmpresa = 119 Then
+                    params.Add(New ReportParameter("TipoProveedor", ObjOC.TipoProveedor))
+                End If
                 params.Add(New ReportParameter("ProveedorRFC", ObjOC.RFC))
                 params.Add(New ReportParameter("IVA", ObjOC.IVA.ToString))
                 params.Add(New ReportParameter("RetIVA", ObjOC.RetIVA.ToString.FormatoNumero(2)))
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 71ec1f5d1..db277f368 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -15931,10 +15931,15 @@ Partial Class Ventas
                         Return False
                     End If
 
-                    If UsuarioActual.CveEmpresa = 72 AndAlso DrPS("SATClavePS").ToString() = "01010101" Then
-                        MensajeCveSAT.AppendFormat("<b>{0}-{1}</b>: El producto/servicio no existe en el catálogo del SAT<br/>", DrPS("Codigo").ToString(), DrPS("PS").ToString())
-                        Return False
-                    End If
+                    'If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) AndAlso DrPS("SATClavePS").ToString() = "01010101" Then
+                    '    MensajeCveSAT.AppendFormat("<b>{0}-{1}</b>: El producto/servicio no existe en el catálogo del SAT<br/>", DrPS("Codigo").ToString(), DrPS("PS").ToString())
+                    '    Return False
+                    'End If
+                End If
+            Else
+                If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) AndAlso DrPS("SATClavePS").ToString() = "01010101" Then
+                    MensajeCveSAT.AppendFormat("<b>{0}-{1}</b>: El producto/servicio no existe en el catálogo del SAT<br/>", DrPS("Codigo").ToString(), DrPS("PS").ToString())
+                    Return False
                 End If
             End If