diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index f5ace049e..5d1cd4b98 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -4308,7 +4308,7 @@ Partial Class Ventas
                 End If
 
 
-                If CveEmpresaCRM > 0 Then
+                If CveEmpresaCRM > 0 And Not CveCliente > 0 Then
                     CargaEmpresaCRM(CveEmpresaCRM)
                 Else
                     CveEmpresaCRM = IIf(CveEmpresaCRM > 0, CveEmpresaCRM, 0).ToString().ToEntero()