diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 25f5e0936..1752b34e4 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -5725,7 +5725,7 @@ Public Class ClsVentas
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_ClientesVendedorCambio")
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCliente", SqlDbType.VarChar).Value = CveCliente
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
             .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With