diff --git a/App_Code/ClsCRM.vb b/App_Code/ClsCRM.vb
index d269279b6..acabd6abe 100644
--- a/App_Code/ClsCRM.vb
+++ b/App_Code/ClsCRM.vb
@@ -1089,6 +1089,43 @@ Public Class ClsCRM
End Function
#End Region
+#Region "Asignar Vendedor a Prospectos"
+ Public Function GetProspectosPorAsignarVendedor(CveEmpresa As Integer, Optional Empresa As String = "-1", Optional CveSubProyecto As Integer = -1, Optional CveGiro As Integer = -1) As Boolean
+ Dim retorno As Boolean = False
+ DataAdapter("PA_CRM_GetProspectosPorAsignarVendedor", CommandType.StoredProcedure)
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@Empresa", SqlDbType.NVarChar).Value = Empresa
+ .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+ .Add("@CveGiro", SqlDbType.Int).Value = CveGiro
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener los Prospectos sin Vendedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return retorno
+ End Function
+
+ Public Function AsignarVendedor(CveProspectos As String, CveVendedor As Integer) As Boolean
+ Dim retorno As Boolean = False
+ DataAdapter("PA_CRM_AsignarVendedores", CommandType.StoredProcedure)
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@ProspectosCve", SqlDbType.NVarChar).Value = CveProspectos
+ .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener los Prospectos sin Vendedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+ Return retorno
+ End Function
+#End Region
+
#Region "IDisposable Support"
' IDisposable
Protected Overridable Sub Dispose(disposing As Boolean)
diff --git a/CRM/AsignarVendedorEnProspectos.aspx b/CRM/AsignarVendedorEnProspectos.aspx
index 1bc111064..bf082f0cd 100644
--- a/CRM/AsignarVendedorEnProspectos.aspx
+++ b/CRM/AsignarVendedorEnProspectos.aspx
@@ -14,17 +14,89 @@
+
+
+