buenas gente tengo un problema, resulta ser que necesito hacer el llamado a un metodo en Vb desde JavaScript pero depende de la manera en como lo haga este no funciona, voy a poner los codigos
Código Javascript
:
Ver originalvar params = "{ Nombre: '" + Objeto + "'}";
PageMethods.AgregarChofer(params);
// este funciona, va al lado servidor y todo perfecto
pero usando Ajax me da un codigo de error 500, el cual no entiendo la verdad
Código Javascript
:
Ver original$.ajax({
type: "POST",
contentType: "application/json; charset=utf-8",
url: "Realizar.aspx/AgregarChofer",
data: params,
dataType: "json",
success: function (data) {
alert('Entro');
$("#gvSeleccionados").empty();
if (data.d.length > 0) {
$("#gvSeleccionados").append("<tr> <th> </th> <th>Nombre</th> </tr>");
for (var i = 0; i < data.d.length; i++) {
alert(data.d[i].Nombre)
$("#gvSeleccionados").append("<tr><td>" +
"<a href=\" \" class=\"Iconos\"> <img " +
"src=\"images/user_remove.png\" " +
"onclick=\"QuitarChofer(this)\" alt=\"Agregar Chofer\" " +
"/></a>" + "</td> <td>" +
data.d[i].Nombre + "</td></tr>");
}
}
},
error: function (result) {
alert("Error al llenar el grid");
}
});
el metodo en la parte servidor es el siguiente:
Código ASP:
Ver original<System.Web.Services.WebMethod()> _
Public Shared Function AgregarChofer(data As Object) As pChofer()
Dim Choferes As New List(Of pChofer)()
Dim posible As Boolean = True
Dim Json As String = data
Dim ser As JObject = JObject.Parse(Json)
Dim datos As List(Of JToken) = ser.Children().ToList
For Each item As JProperty In datos
item.CreateReader()
Select Case item.Name
Case "Nombre"
If Lista.choferes.Count > 0 Then
For Each value In Lista.choferes
If value = item.Value Then
posible = False
MsgBox("Ese chofer ya ha sido agregado", MsgBoxStyle.OkOnly, "No se pudo agregar")
Return Nothing
Exit For
Else
Lista.choferes.Add(item.Value)
End If
Next
Else
Lista.choferes.Add(item.Value)
End If
End Select
Next
For Each value In Lista.choferes
Dim oChofer As New pChofer
oChofer.Nombre = value.ToString
Choferes.Add(oChofer)
Next
Return Choferes.ToArray
End Function
Agradeceria cualquier ayuda que me puedan dar, y de antemano muchas gracias