sap.net connector 3.0 example

Former Member · ‎01-14-2011

Hey All,

I have gotten the NCo.net 3.0.....In the past I built a proof-of-concept to work on the old connector, but the new connector looks totally different. Is there any people out there with a simple connection and simple data retrieve from SAP server?

Former Member · ‎12-22-2011

Hi..

Here i am giving a small code which contains the following scenario:

Whenever u login to SAp through .NET, in the page load you will all the packages in ABAP. When u click on button1, the programs list will be display checklistbox which contains in the package. When you select the button2, the programs will be display in the list view.

Here is the COde:

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Windows.Forms;

using SAP.Middleware.Connector;

using System.Data.SqlClient;

namespace Code_Optimization

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

}

private void panel1_Paint(object sender, PaintEventArgs e)

{

}

public class MyBackendConfig : IDestinationConfiguration

{

public RfcConfigParameters GetParameters(String destinationName)

{

if ("SE38".Equals(destinationName))

{

RfcConfigParameters parms = new RfcConfigParameters();

parms.Add(RfcConfigParameters.AppServerHost, "192.168.1.14");

parms.Add(RfcConfigParameters.SystemNumber, "02");

parms.Add(RfcConfigParameters.User, "abaper");

parms.Add(RfcConfigParameters.Password, "erp@1234");

parms.Add(RfcConfigParameters.Client, "800");

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

parms.Add(RfcConfigParameters.PoolSize, "5");

parms.Add(RfcConfigParameters.MaxPoolSize, "10");

parms.Add(RfcConfigParameters.IdleTimeout, "600");

return parms;

}

else return null;

}

public bool ChangeEventsSupported()

{

return false;

}

public event RfcDestinationManager.ConfigurationChangeHandler ConfigurationChanged;

}

private void Form1_Load(object sender, EventArgs e)

{

RfcDestinationManager.RegisterDestinationConfiguration(new MyBackendConfig());

RfcDestination prd = RfcDestinationManager.GetDestination("SE38");

RfcRepository repo = prd.Repository;

IRfcFunction companyBapi = repo.CreateFunction("ZBAPI_PACKAGE_GETLIST");

companyBapi.Invoke(prd);

IRfcTable address = companyBapi["ZPACKAGE"].GetTable();

for (int index = 0; index < address.RowCount; ++index)

{

comboBox1.Items.Add(address[index]["DEVCLASS"].GetString());

}

private void button1_Click(object sender, EventArgs e)

{

checkedListBox1.Items.Clear();

RfcDestination prd = RfcDestinationManager.GetDestination("SE38");

RfcRepository repo = prd.Repository;

IRfcFunction companyBapi1 = repo.CreateFunction("ZBAPI_PACKAGE_OBJECTLIST");

string package = "EU_" + comboBox1.SelectedItem.ToString();

companyBapi1.SetValue("PACKNAME", package);

companyBapi1.Invoke(prd);

IRfcTable address1 = companyBapi1["TOBJECTS"].GetTable();

if (address1.RowCount != 0)

{

for (int index = 0; index < address1.RowCount; ++index)

{

checkedListBox1.Items.Add(address1[index]["PROGRAM"].GetString());

panel2.Visible = true;

}

else

{

MessageBox.Show("No Programs Found");

}

private void button2_Click(object sender, EventArgs e)

{

listView1.Visible = true;

listView1.Items.Clear();

RfcDestination prd = RfcDestinationManager.GetDestination("SE38");

RfcRepository repo = prd.Repository;

IRfcFunction companyBapi1 = repo.CreateFunction("ZBAPI_GET_PROGRAM_DETAILS");

companyBapi1.SetValue("PROGRAM", checkedListBox1.SelectedItem.ToString());

companyBapi1.Invoke(prd);

IRfcTable address1 = companyBapi1["PROGDET"].GetTable();

for (int index = 0; index < address1.RowCount; ++index)

{

listView1.Items.Add(address1[index]["STRING"].GetString());

}

Former Member · ‎02-28-2011

How do you pass in a parameter to the BAPI? I am getting an error on the createnewfunction when I try to call it before I set the parameters.

I am not invoking it yet, just trying to use create new function.

former_member197445 · ‎02-10-2011

First, create a class that implements IDestinationConfiguration. VB.NET code shown below.

Imports SAP.Middleware.Connector

Public Class ECCDestinationConfig
    Implements IDestinationConfiguration

    Public Event ConfigurationChanged(ByVal destinationName As String, ByVal args As RfcConfigurationEventArgs) Implements IDestinationConfiguration.ConfigurationChanged

    Public Function GetParameters(ByVal destinationName As String) As RfcConfigParameters Implements IDestinationConfiguration.GetParameters

        Dim parms As New RfcConfigParameters

        Select Case destinationName

            Case "ECDCLNT140"

                parms.Add(RfcConfigParameters.AppServerHost, "10.1.1.1")
                parms.Add(RfcConfigParameters.SystemNumber, "00")
                parms.Add(RfcConfigParameters.SystemID, "ECD")
                parms.Add(RfcConfigParameters.User, "username")
                parms.Add(RfcConfigParameters.Password, "secret")
                parms.Add(RfcConfigParameters.Client, "140")
                parms.Add(RfcConfigParameters.Language, "EN")
                parms.Add(RfcConfigParameters.PoolSize, "5")
                parms.Add(RfcConfigParameters.MaxPoolSize, "10")
                parms.Add(RfcConfigParameters.IdleTimeout, "600")

            Case Else

        End Select

        Return parms

    End Function

    Public Function ChangeEventsSupported() As Boolean Implements IDestinationConfiguration.ChangeEventsSupported
        Return False
    End Function

End Class

Then, create a web application, console application, web service, whatever, that uses the NCo 3.0 object model. Very simple stuff to call an RFC enabled Function Module. See sample Console application below:

Imports SAP.Middleware.Connector

Module Driver

    Private _ecc As RfcDestination

    Sub Main()

        RfcDestinationManager.RegisterDestinationConfiguration(New ECCDestinationConfig)

        Try

            _ecc = RfcDestinationManager.GetDestination("ECDCLNT140")

            GetCompanyName()


        Catch ex As Exception
            System.Console.WriteLine(ex.Message)
            System.Console.ReadLine()
        End Try


    End Sub

    Private Sub GetCompanyName()
        System.Console.WriteLine(String.Format("Successfully connected to System {0} Client {1}.", _ecc.SystemID, _ecc.Client))
        System.Console.WriteLine("Enter a company ID:")

        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"
            End If

            System.Console.WriteLine(companyName)

            companyID = System.Console.ReadLine()

        End While
    End Sub

End Module

Pretty sweet how you don't have to define the input or output structures. It's all done behind the scenes. Love it!

Former Member · ‎01-15-2011

Check out this blogpost [A Spotlight on the New .NET Connector 3.0|SDNWeblogs_Interoperabilitynet%2528SAPNetworkWeblogs%253AInteroperability.NET%2529]

It hightlights the differences and improvements wrt NCo 2.0 (in particular the relieve of explicit connection handling, which previous NCo versions required each application developer to do self); and also has some example code for how to set up a configuration, simple client and simple server.

Best regards, William.

sap.net connector 3.0 example

Accepted Solutions (0)

Answers (4)

Answers (4)

Re: How to define ajax call in SAP MDK

How to navigate from ALV report output to Outlook ...

Iterating through JSONModel with multiple nested a...

Re: Connecting SAP CAP with SAP Cloud ALM

How to use CopyProvider on Table created by TypeSc...