[SOLUCIONADO] Como evitar que me salga este error

[th3r0rn]

Hola,
Tengo un desarrollo en visual basic .net en realidad es un web services que se conecta a SAP y consume una funcion remota, la primera ves que la ejecuto le mando un valor y me regresa otro desde SAP, pero cuando repito el proceso me sale que ya fue inicializado antes, como puedo comprobar que si ya fue inicializada la conexion ya no la tome en cuenta?

[Malenko]

No termino de ver varias cosas en el código. Lo primero es que la variable _ecc se está definiendo fuera de la función donde se usa. Otra cosa es que el try/catch está para envolver el código que puede generar excepciones y claramente te has dejado una ;)

[th3r0rn]

Gracia spor responder Malenko, pero como desktop application y console application si funciona, solo en web services me da este pequeño problema. Tienes alguna idea de como comprobar si ya fue o no inicializado el ECCconfigDestination?

[Malenko]

Iniciado por th3r0rn

Gracia spor responder Malenko, pero como desktop application y console application si funciona, solo en web services me da este pequeño problema. Tienes alguna idea de como comprobar si ya fue o no inicializado el ECCconfigDestination?

En consola y desktop te funciona porque las variables generales (las definidas fuera de las funciones) mantienen el valor entre funciones. En una pagina web (ya sea web normal o webservice) el ciclo de vida de las variables es algo diferente.

[Ka0stj]

Que tal th3r0rn

Checa los siguientes enlaces:

http://scn.sap.com/thread/1885178
http://codery.blogspot.mx/2011/06/av...iguration.html

Espero y te sirvan.

Saludos!

[th3r0rn]

Muchas gracias Ka0stj ya logre que mi codigo funcione, solo hize una pequeña modificacion. Dejo el ejemplo por si alguien mas tiene el mismo problema:

Código vb:

Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports SAP.Middleware.Connector
 
' Para permitir que se llame a este servicio Web desde un script, usando ASP.NET AJAX, quite la marca de comentario de la siguiente línea.
' <System.Web.Script.Services.ScriptService()> _
<WebService(Namespace:="http://tempuri.org/")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Public Class CallRFC
    Inherits System.Web.Services.WebService
    Private _ecc As RfcDestination
 
    <WebMethod()> _
    Public Function GetCompayName(ByVal companyID As String) As String
 
 
        Try
            _ecc = RfcDestinationManager.TryGetDestination("ECDCLNT140")
 
            If (_ecc Is Nothing) Then
                RfcDestinationManager.RegisterDestinationConfiguration(New ECCDestinationConfig())
                _ecc = RfcDestinationManager.GetDestination("ECDCLNT140")
            End If
 
        Catch ex As Exception
            System.Console.WriteLine(ex.Message)
            System.Console.ReadLine()
        End Try
 
 
 
        ' System.Console.WriteLine(String.Format("Successfully connected to System {0} Client {1}.", _ecc.SystemID, _ecc.Client))
        ' System.Console.WriteLine("Enter a company ID:") ' Ingresar el ID: 000880
 
        ' Dim companyID As String = System.Console.ReadLine()
 
        While Not String.IsNullOrEmpty(companyID.Trim)
 
            Dim companyAPI As IRfcFunction = _ecc.Repository.CreateFunction("BAPI_COMPANY_GETDETAIL")
            companyAPI.SetValue("COMPANYID", companyID)
 
            companyAPI.Invoke(_ecc)
 
            Dim companyName As String = companyAPI.GetStructure("COMPANY_DETAIL").GetString("NAME1")
 
 
            If String.IsNullOrEmpty(companyName.Trim) Then
                companyName = "Not found 1"
            End If
 
            Return companyName
 
            companyID = System.Console.ReadLine()
 
        End While
    End Function
End Class