Call a simple function module: BAPI EMPLOYEE GETDATA

From Theobald Software

German Version: Einen einfachen Baustein aufrufen: BAPI EMPLOYEE GETDATA

BAPI EMPLOYEE GETDATA is an RFC-enabled function module that should be present in every SAP system. As an import parameter, the laste name of an employee should be transferred to the module and the employees personla data is sent back to the calling program contained in an table parameter.

The code below shows how to log on to the SAP system. An RFCFunction object is created by the method CreateFunction(). The import parameter LASTNAME_M is filled with the string given by the user. Execute() executes the function module. After the call, the program gets the table parameter PERSONAL_DATA and writes the table field PERNO to the console. Additionally the Lastname and the Name are written to the console

Screenshot of the sample program

[C#]

static void Main(string[] args)
        {
            R3Connection con = new R3Connection("Host", 05, "User", "Password", "DE", "800");
            con.Open(false);
 
            // Create a function object
            RFCFunction func = con.CreateFunction("BAPI_EMPLOYEE_GETDATA");
            Console.WriteLine("Please enter Lastname of Employee...");
            Console.WriteLine("(you can also use Wildcard Characters * ...)"); 
 
            // fill the export parameter
            string  EmployeeLM = Console.ReadLine();
            func.Exports["LASTNAME_M"].ParamValue = EmployeeLM;
            func.Exports["DATE"].ParamValue = ERPConnect.ConversionUtils.NetDate2SAPDate(System.DateTime.Now); 
            try
            {
                func.Execute();
            }
            catch (ERPException e)
            {
                Console.WriteLine(e.Message);
                Console.ReadLine();
                return;
            }
 
            // Output the result of the function module
            RFCTable EmployeeDataTable = func.Tables["PERSONAL_DATA"];
            if (EmployeeDataTable.RowCount > 0)
            {
                for (int i = 0; i < EmployeeDataTable.RowCount; i++)
                {
                    Console.WriteLine(
                    EmployeeDataTable.Rows[i]["PERNO"].ToString() + " " +
                    EmployeeDataTable.Rows[i]["LAST_NAME"].ToString() + " " +
                    EmployeeDataTable.Rows[i]["FIRSTNAME"].ToString());
                }
            }
            else
            {
                Console.WriteLine("No Employee found");
            }
            Console.ReadLine();
        }
    }

[VB]

Sub Main()
 
     Dim con As New R3Connection("host", 5, "User", "Password", "DE", "800")
 
        con.Open(False)
        Dim sii As String = con.Codepage()
        ' Create a function object
        Dim func = con.CreateFunction("BAPI_EMPLOYEE_GETDATA")
        Console.WriteLine("Please enter Lastname of Employee...")
        Console.WriteLine("(you can also use Wildcard Characters * ...)")
 
        ' fill the export parameter
        Dim EmployeeLM As String = Console.ReadLine()
        func.Exports("LASTNAME_M").ParamValue = EmployeeLM
        func.Exports("DATE").ParamValue = ERPConnect.ConversionUtils.NetDate2SAPDate(System.DateTime.Now)
 
        Try
            func.Execute()
        Catch e As ERPException
            Console.WriteLine(e.Message)
            Console.ReadLine()
            Return
        End Try
 
        Dim EmployeeDataTable As RFCTable = func.Tables("PERSONAL_DATA")
        If EmployeeDataTable.RowCount > 0 Then
            For i As Integer = 0 To EmployeeDataTable.RowCount - 1
                Console.WriteLine(EmployeeDataTable.Rows(i)("PERNO").ToString() + _
                                  " " + EmployeeDataTable.Rows(i)("LAST_NAME").ToString() + _
                                  " " + EmployeeDataTable.Rows(i)("FIRSTNAME").ToString())
            Next i
        Else
            Console.WriteLine("No Employee found")
        End If
        Console.ReadLine()
    End Sub