diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index c554e418e..c71fc445f 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -19200,7 +19200,7 @@ Partial Class Ventas
 
             End If
 
-            If UsuarioActual.CveEmpresa = 119 Then
+            If UsuarioActual.CveEmpresa.Contiene(119, 13, 83) Then
                 If Not RemisionesLista.Count > 0 Then 'SI VIENE DE REMISION NO SE CONSIDERA
 
                     'MONEDA DIFERENTE DEL PS AL PRIMER PS AGREGADO