The OneStream Community is temporarily frozen until June 29th due to the ongoing maintenance. Please read the blog post here to learn more.

Forum Discussion

JC_Hackkett's avatar
JC_Hackkett
New Contributor II
2 years ago

Compile SIF using Gateway Direct Connect type to connect with SAP

I have SIC version 8.2.1 I already created the gateway and is online, is a Direct connect type configured to connect with SAP I already install the SAP dll in the SIC local When I try to compil...
Connectors
JC_Hackkett's avatar
JC_Hackkett
New Contributor II
1 year ago

Hi ashimoga 

  It's correct you don't need create a datasource in Local Gateway Connections.

  If the gateway is online, you have to review the DLLs installed, you need  the librfc32.dll installed too

the link https://help.theobald-software.com/en/erpconnect/prerequisites-and-installation/saplibraries

ashimoga's avatar
ashimoga
New Contributor
1 year ago

Thanks JC_Hackkett . Do we need to buy ERPConnect license for this?

  • JC_Hackkett's avatar
    JC_Hackkett
    New Contributor II
    1 year ago

    I was also validating this topic. No, it is not necessary
    Download the dll from the OneStream marketplace according to the SIC manual, once you copy it into the local SIC configuration xml, automatically add the license.

    Validate with the Basic or ABAP people that your login request is being received and the request, whether it is to read a table or request an RFC.
    I had to take the error that calls you back

    This is an example of how to take the error message that comes to you directly from SAP, use some standard RFC and give access to your SAP connection user.

        Dim r3Conn As New R3Connection(host, systemnumber, username, password, language, client)
        r3Conn.Protocol = ClientProtocol.NWRFC
        r3Conn.Open()
     
        If r3Conn.IsOpen Then
            Dim r3Func As RFCFunction = r3Conn.CreateFunction("BAPI_GL_ACC_GETBALANCE")  
            r3Func.Exports("COMPANYCODE").ParamValue = "XXXX"
            r3Func.Exports("GLACCT").ParamValue = "XXXXXXXXX" 
            r3Func.Exports("FISCALYEAR").ParamValue = "XXXX"
            r3Func.Exports("CURRENCYTYPE").ParamValue = "XX"
            r3Func.Execute()
            Dim balanceDetail As RFCStructure = r3Func.Imports("ACCOUNT_BALANCE").ToStructure()
            Dim returnStruct As RfcStructure = r3Func.Imports("RETURN").ToStructure()
            'This message is from SAP
            Dim message As String = returnStruct("MESSAGE").ToString()
    End If

     

    • ashimoga's avatar
      ashimoga
      New Contributor
      1 year ago

      Thank you JC_Hackkett , Let me try this.