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