les escribo por un error que me da cuando grabo datos desde mi pagina asp.
Son dos listas llenadas con un xml desde la base de datos e inexplicablemente me da ese error aún cuando verifico que todos los datos están correctos. Depuré la componente y trae todos los datos correctamente hasta una línea que dice: "La aplicación utiliza un valor de tipo no válido para la operación actual" .
les dejo ambos códigos... el de la componente y el asp.
gracias.
Código HTML:
COMPONENTE: ByVal descTabla As String, ByVal prefijo As String, _ ByVal idBase As String) As String Dim objBODataManager As BO_DataManager.StoreProcCommand Dim objParams As Scripting.Dictionary Dim objOps As Scripting.Dictionary Dim objOutParams As Scripting.Dictionary Dim strXML As String Dim strLog As String On Error GoTo Handler_Error Set objBODataManager = New BO_DataManager.StoreProcCommand Set objParams = New Scripting.Dictionary Set objOps = New Scripting.Dictionary Set objOutParams = New Scripting.Dictionary objParams.Add "@nombreTabla", nombreTabla objParams.Add "@descTabla", descTabla objParams.Add "@prefijo", prefijo objParams.Add "@idBase", idBase objOps.Add "return_outputparams", "1" strXML = objBODataManager.ExecStoreProcCommand(StrConDoc, "sp_ModificarTabla", _ objParams, objOps, objOutParams) ModificarTabla = objOutParams("@retorno") Set objBODataManager = Nothing Set objParams = Nothing Set objOps = Nothing Set objOutParams = Nothing Exit Function Handler_Error: Dim IngError Dim ObjError As Errores.clsError Dim strDescripcion 'Destrucción de objetos y otros. Set objBODataManager = Nothing Set objParams = Nothing Set objOps = Nothing Set objOutParams = Nothing IngError = Err.Number 'Set ObjError = CreateObject("Errores.clsError") Set ObjError = New Errores.clsError strDescripcion = ObjError.Reportar_ErrorPerfil(GetObjectContext, IngError, Err.Description, gNomProyecto, gNOMCLASE, "ModificarTabla") Set ObjError = Nothing Err.Raise IngError, Err.Source, strDescripcion End Function
Código HTML:
ASP: '--------------------------------------------------------------------------------- 'Método que guarda los parámtros ingresados por página en la base de datos '--------------------------------------------------------------------------------- function modifica(p_tabla,p_desc,p_prefijo,p_base) dim p Response.Write "p_tabla:"&p_tabla&"<br>" Response.Write "p_desc:"&p_desc&"<br>" Response.Write "p_prefijo:"&p_prefijo&"<br>" Response.Write "p_base:"&p_base&"<br>" 'Response.End set objNegDoc2= server.CreateObject("DocumentacionAFC.clsDocTablas") 'Response.end '------------------------------------------------------------------------------------------------------------------------ 'PROBLEMA: "La aplicación utiliza un valor de tipo no válido para la operación actual" '------------------------------------------------------------------------------------------------------------------------ set objRec2= objNegDoc2.ModificarTabla(Trim(cstr(p_tabla)),Trim(cstr(p_desc)),Trim(cstr(p_prefijo)),trim(cstr(p_base))) 'EN ESTA LÍNEA DA EL ERROR... set objRec1=objNegDoc2.ConsultarTab(p_tabla) '------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------ set objNegDoc2= nothing p="AgregarTabla.asp?strAccion=inicio" Response.Write "pagina:"&p&"<br>" Response.End Response.Redirect p 'strAccion="inicio" end function