Hola!
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