Tipo Parametro Componente
Publicado por ;David (2 intervenciones) el 10/04/2007 12:30:48
Muy buenas,
Llamo a un Componente VB cuyo parametro de entrada es una clase, creo la clase y la reconoce, pero al pasarla como parametro da este error: "No coinciden los tipos: 'GetPru'. "
Muestro el código por si alguien supiera como solucionar esto:
'****************************************
'*/ CODIGO PÁGINA ASP
'****************************************
Dim oFinancialDataKey
Set oInvokeWS = Server.CreateObject("InvokeWS.CInvokeWS")
Set oKey = Server.CreateObject("InvokeWS.CKey")
oKey.Id = cStr("1")
oKey.Nombre = cStr("David")
Set szDatos = oInvokeMarketWS.GetPru(oKey)
'****************************************
'*/ CODIGO InvokeWS.CInvokeWS.cls
'****************************************
Public Function GetPru(oKey As CKey) As String
GetPru = cStr(oKey.Id & oKey.Nombre)
End Function
'****************************************
'*/ CODIGO InvokeWS.CKey.cls
'****************************************
Option Explicit
Public Id As String
Public Nombre As String
Llamo a un Componente VB cuyo parametro de entrada es una clase, creo la clase y la reconoce, pero al pasarla como parametro da este error: "No coinciden los tipos: 'GetPru'. "
Muestro el código por si alguien supiera como solucionar esto:
'****************************************
'*/ CODIGO PÁGINA ASP
'****************************************
Dim oFinancialDataKey
Set oInvokeWS = Server.CreateObject("InvokeWS.CInvokeWS")
Set oKey = Server.CreateObject("InvokeWS.CKey")
oKey.Id = cStr("1")
oKey.Nombre = cStr("David")
Set szDatos = oInvokeMarketWS.GetPru(oKey)
'****************************************
'*/ CODIGO InvokeWS.CInvokeWS.cls
'****************************************
Public Function GetPru(oKey As CKey) As String
GetPru = cStr(oKey.Id & oKey.Nombre)
End Function
'****************************************
'*/ CODIGO InvokeWS.CKey.cls
'****************************************
Option Explicit
Public Id As String
Public Nombre As String
Valora esta pregunta


0