Quantcast
Channel: SCN: Message List
Viewing all articles
Browse latest Browse all 2779

Re: SAP.NET connector 3.0

$
0
0

Dear Markus

 

Thanks for your information.  I change the code as follows.  It seems work to connect SAP with multiple users.  Is it a correct approach?

 

Private Sub check_user()

Try

    If Not RfcDestinationManager.IsDestinationConfigurationRegistered() Then

          Dim objDestConfig As New InmemoryDestinationConfiguration

          Dim parms as New RfcConfigParameters

          parms.Add(RfcConfigParameters.AppServerHost, sR3Add.Trim.ToString)

          parms.Add(RfcConfigParameters.SystemNumber, "00")

          parms.Add(RfcConfigParameters.Client, sR3Clinet.Trim.ToString)

          parms.Add(RfcConfigParameters.Language, "EN")

          parms.Add(RfcConfigParameters.Name, "WING")

          RfcDestinationManager.RegisterDestinationConfiguration(objDestConfig)

          objDestConfig.AddOrEditDestination(parms)

    End If

    Dim destination As RfcDestination = RfcDestinationManager.GetDestination("WING")

    Dim destination1 As RfcCustomDestination = destination.CreateCustomDestination()

    destination1.User = sUserID.Trim.ToString

    destination1.Password = sUserPass.Trim.ToString

    destination1.Ping()

Cache ex as Exception

     Response.Redirect("Error.aspx")

End Try

End Sub

 

Private Sub order_enquiry()

     Dim destination As RFCDestination = RfcDestinationManager.GetDestination("WING"

     Dim destination1 As RfcCustomDestination = destination.CreateCustomDestination()

     destination1.User = sUserID.Trim.ToString

     destination1.Password = sUserPass.Trim.ToString

     Dim repository As RfcRepository = destination1.Repository

     Dim bapiSOGetDetail As IRfcFunction = repository.CreateFunction("Z_BAPI_SALESDOCUMENT_GETDETAIL")

     bapiSOGetDetail.SetValue("SLAESDOCUMENT", DOC_No)

     bapiSOGetDetail.Invoke(destination1)

     ...

     Get results from RFC

     ...

End Sub

 

Thanks in advanced for your kindly support.

 

David Lau


Viewing all articles
Browse latest Browse all 2779

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>