diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 990a3e2f5..ccf04fdcb 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -6617,7 +6617,7 @@ Public Class ClsPaginas
 
 
             'CLIENTE 
-            If Vta.CveCliente.ToEntero > 0 Then
+            If Vta.CveCliente.ToEntero > 0 Or Vta.CveEmpresaCRM.ToEntero > 0 Then
                 params.Add(New ReportParameter("ClienteCodigo", Vta.Cliente.Codigo))
                 params.Add(New ReportParameter("ClienteNombre", If(Vta.ClienteSucursal.ImprimeNombreSucursal = "True", If(Vta.CveClienteSucursal > 0, Vta.ClienteSucursal.Sucursal, Vta.Cliente.Nombre), If(Vta.AtencionA <> "" AndAlso Vta.TipoDocto.Contiene("Ing", "Rem") AndAlso Vta.Cliente.RFC = "XAXX010101000", $"{Vta.Cliente.Nombre}({Vta.AtencionA})", Vta.Cliente.Nombre))))
                 params.Add(New ReportParameter("ClienteDireccion", ClienteDireccion))