La aplicación utiliza un valor de tipo no válido para la operación actual

[pali_wichis]

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

[u_goldman]

El problema ocurre en alguna parte en el método ConsultarTab(p_tabla), primero que nada asegúrate que el valor envíado es el correcto y despues con VB depura esa dll, realmente el problema está en tu componente, te diría más cosas pero no veo ese método.

Saludos

[pali_wichis]

Mmm... el error da en la línea de arriba del método ConsultarTab por eso no inlcui la componente, pero de todas maneras volvere a revisar y depurar la dll...

gracias