namespace ConsoleForSap
{
    public class SapConfig
    {
        public string ASHOST { get; set; }
        public string CLIENT { get; set; }
        public string LANG { get; set; }
        public string USER { get; set; }
        public string PASSWD { get; set; }
        public int SYSNR { get; set; }
    }

    public class SapParameter
    {
        public string ParamName { get; set; }
        public object ParamValue { get; set; }
        private ArrayList ObjSapParam = new ArrayList();

        public void AddParam(string ParamName, object ParamValue)
        {
            SapParameter param = new SapParameter();
            param.ParamName = ParamName;
            param.ParamValue = ParamValue;
            ObjSapParam.Add(param);
        }

        public void ClearParam()
        {
            ObjSapParam.Clear();
        }

        public Object[] GetParam()
        {
            return ObjSapParam.ToArray();
        }
    }

    public class CallSAP
    {
        private DataSet MapSapData(SAPDataReader Sapdr)
        {
            DataSet ds = new DataSet();
            DataTable dtResult;
            DataTable dtSchema;
            do
            {
                dtResult = new DataTable();
                dtSchema = Sapdr.GetSchemaTable();
                foreach (DataRow dr in dtSchema.Rows)
                {
                    DataColumn col = new DataColumn();
                    col.ColumnName = dr["ColumnName"].ToString();
                    col.Caption = dr["Caption"].ToString();
                    col.DataType = System.Type.GetType(dr["DataType"].ToString());
                    if (dr["DataType"].ToString().ToLower().EndsWith(".system") == true)
                    {
                        int iSize = 0;
                        int.TryParse(dr["ColumnSize"].ToString(), out iSize);
                        col.MaxLength = iSize;
                    }
                    dtResult.Columns.Add(col);
                }
                while (Sapdr.Read())
                {
                    DataRow dr = dtResult.NewRow();
                    for (int i = 0; i < Sapdr.FieldCount; i++)
                    {
                        try
                        {
                            dr[i] = Sapdr.GetValue(i);
                        }
                        catch { }
                    }
                    dtResult.Rows.Add(dr);
                }
                ds.Tables.Add(dtResult);
            }
            while (Sapdr.NextResult());
            return ds;
        }

        public DataSet ExecuteSapCmd(SapConfig conf, string SapRfcName, SapParameter ObjParam, ref string strMsg)
        {
            string strConn = "ASHOST=" + conf.ASHOST + "; CLIENT=" + conf.CLIENT + ";SYSNR=" + conf.SYSNR.ToString() + ";USER=" + conf.USER + ";PASSWD=" + conf.PASSWD + ";LANG=" + conf.LANG;
            return ExecuteSapCmd(strConn, SapRfcName, ObjParam, ref strMsg);
        }

        public DataSet ExecuteSapCmd(string strConn, string SapRfcName, SapParameter ObjParam, ref string strMsg)
        {
            DataSet dsOut = new DataSet();
            try
            {
                strMsg = "ok";
                SAPConnection con = new SAPConnection(strConn);
                con.Open();
                SAPCommand cmd = new SAPCommand(con);
                string strCmd = "EXEC " + SapRfcName + " ";
                foreach (SapParameter obj in ObjParam.GetParam())
                {
                    if (string.IsNullOrEmpty(obj.ParamName) == true)
                    {
                        strCmd += "'" + obj.ParamValue + "',";
                    }
                    else
                    {
                        strCmd += "@" + obj.ParamName + "='" + obj.ParamValue + "',";
                    }
                }
                if (strCmd.EndsWith(",") == true)
                {
                    strCmd = strCmd.Substring(0, strCmd.Length - 1);
                }
                cmd.CommandText = strCmd;
                SAPDataReader drOut = cmd.ExecuteReader();
                dsOut = MapSapData(drOut);
                drOut.Close();
            }
            catch(Exception e)
            {
                strMsg = e.Message;
            }
            return dsOut;
        }
    }

    class Program
    {
        static void Main(string[] args)
        {
           string strMsg = "";
           SapConfig cof = new SapConfig();
           cof.ASHOST = "192.168.0.1";
           cof.CLIENT = "20";
           cof.LANG = "ZF";
           cof.USER = "sap";
           cof.PASSWD = "sap";
           cof.SYSNR = 0;

           SapParameter param = new SapParameter();
           param.AddParam("PartNo", "PN6022");
           param.AddParam("Factory", "WBA");
           CallSAP call = new CallSAP();
           DataSet dsBom = call.ExecuteSapCmd(cof, "rfc_Bom", param, ref strMsg);
           WriteData(dsBom, strMsg);

           param.ClearParam();
           param.AddParam("", "01436886");
           DataSet dsSd = call.ExecuteSapCmd(cof, "rfc_Delivery", param, ref strMsg);

           WriteData(dsSd, strMsg);
           Console.WriteLine("Running finished.");
           Console.ReadKey(true);
        }

        static void WriteData(DataSet ds, string strMsg)
        {
            Console.WriteLine("|{0,64:C}|", "-".PadLeft(64, '-'));               
            Console.WriteLine("|{0,64:C}|",(DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss ")+strMsg).PadRight(64,' '));
            Console.WriteLine("|{0,64:C}|", "-".PadLeft(64, '-'));               
            foreach (DataTable dt in ds.Tables)
            {
                Console.WriteLine("|{0,12:C}|{1,12:C}|{2,12:C}|{3,12:C}|{4,12:C}|", dt.Columns[0].Caption, dt.Columns[1].Caption,
                    dt.Columns[2].Caption, dt.Columns[3].Caption,dt.Columns[4].Caption);
                Console.WriteLine("|{0,64:C}|", "-".PadLeft(64, '-'));               
                foreach (DataRow dr in dt.Rows)
                {
                    Console.WriteLine(String.Format("|{0,12:C}|{1,12:C}|{2,12:C}|{3,12:C}|{4,12:C}|", dr[0], dr[1], dr[2], dr[3], dr[4]));
                }
                Console.WriteLine("|{0,64:C}|","-".PadLeft(64,'-'));               
            }
        }
    }
}


DataProviderForSAP

Introduction

Using SAP's .NET Connector is very easy, all it takes to manage it is a little work and effort. This article provides you an introductory example on how to use the Connector within C#.

The example will teach you:

1. How to use SAP.Connector.SAPLogonDestination to let you select any destination provided by your saplogon.ini file.
2. How to make an RFC call to the SAP R/3 System. Especially the example shows how to call the RFC_READ_TABLE function module to read from any table within your SAP system.
3. How to extract the field values of the data rows returned by the RFC call.

Any GUI stuff is omitted to keep the example as simple as possible and to focus on the Connector's use.

Background

You should have some experiences with ABAP/4 and function modules and the SAP.NET Connector installed. Any project that uses the Connector must have a reference to SAP.Connector.dll. The Connector is available at http://service.sap.com/connectors and an overview is given at http://www.microsoft-sap.com/net_connector.aspx.

Using the code

If you want to use DBReader in your application, download and unzip the source file. Add a reference to the library assembly DBReader.dll that comes with the sources. DBReader.dll provides the following classes:

1. DBReader.TableReader, wrapper for the RFC_READ_TABLE call to SAP.
2. DBReader.ResultSet, to manage the returned dataset.
3. DBReader.ResultColumn, to hold a column of the returned dataset.
4. DBReader.Proxy, wrapper for the proxy generated by the Connector wizard.
5. DBReader.Logon, wrapper for SAP.Connector.SAPLogonDestination.
6. DBReader.ConnectionInfo, to hold logon information.

If you want to see how it works, download and unzip the demo file to disk. Either run DBReaderDemo.exe in the bin subfolder of the demo project from console directly, or open DBReaderDemo.sln into Visual Studio and run the demo.

The TableReaderDemo class shows how to use the DBReader for a query to SAP. Consider the following SQL statement in ABAP:

Collapse Copy Code

    SELECT TABNAME, TABCLASS
FROM DD02L
WHERE TABNAME LIKE 'NP%'
AND ( TABCLASS EQ 'TRANSP' OR
TABCLASS EQ 'CLUSTER' OR
TABCLASS EQ 'POOL' OR
TABCLASS EQ 'VIEW' )

The equivalent code to achieve this with DBReader from outside SAP shows a demo function of class TableReaderDemo:

Collapse Copy Code

    public void demoTableReader(){
// Show the available destinations and let the user select one.
      string destName = this.askForDestination();
if(destName == null)
return;
// Get the selected destination object.
      SAP.Connector.Destination dest = this.saplogon.getDestinationByName(
destName);
Console.WriteLine("Connecting to '" + destName + "'");
// Information like system number, SAPServer etc. are already
      // obtained by the .Net Connector from the c:\windows\saplogon.ini file.
      // It remains to add these information:
      dest.Client   = 1;
Console.Write("User:     ");
dest.Username = Console.ReadLine();
Console.Write("Password: ");
dest.Password = Console.ReadLine();
dest.Language = "EN";
// Setup the TableReader
      SAPReader.TableReader tabReader = new TableReader(dest);
// Specify the table to read.
      // The table DD02L contains metadata of all the available
      // tables on a SAP system.
      tabReader.QueryTable = "DD02L";
// How many rows of the table should be skipped.
      tabReader.RowSkip = 10;
// How many rows should be selected (at most, if available).
      tabReader.RowCount = 6;
// Yes, we want to see data.
      // Default is NoData=true, i.e., only table information is retrieved.
      tabReader.NoData = false;
// Select FOI (fields of interest)
      SAPReader.SAPKernel.RFC_DB_FLD tabNameField  =
tabReader.addQueryField("TABNAME");
SAPReader.SAPKernel.RFC_DB_FLD tabClassField =
tabReader.addQueryField("TABCLASS");
//
      // Add the WHERE clause
      string pattern = "NP%";
// Select the names of all the transparent, cluster, pool
      // and view tables containing the pattern:
      tabReader.addWhereClause("TABNAME LIKE '" + pattern + "'");
tabReader.addWhereClause("AND ( TABCLASS EQ 'TRANSP' OR");
tabReader.addWhereClause("      TABCLASS EQ 'CLUSTER' OR");
tabReader.addWhereClause("      TABCLASS EQ 'POOL' OR");
tabReader.addWhereClause("      TABCLASS EQ 'VIEW' )");
// Force to read the table from SAP
      string abapException = tabReader.read();
if(abapException == null){
// Output the result:
        SAPReader.ResultSet RS = tabReader.getResultSet();
Console.WriteLine("\n\nTableData read:");
Console.WriteLine(tabNameField.Fieldname + "\t\t" +
tabClassField.Fieldname);
Console.WriteLine(
"-----------------------------------------------------");
for(int i = 0; i < RS.LineCount; i++){
Console.Write(RS.getEntryAt(tabNameField.Fieldname, i).Trim());
Console.Write("\t\t" +
RS.getEntryAt(tabClassField.Fieldname, i).Trim());
Console.WriteLine();
}
}
else{
Console.WriteLine("ABAP-Exception: " + abapException );
}
// That's it!
    }

After the table was read successfully, the ResultSet is traversed row-wise (although the data is stored column-wise there) and printed to the screen.

Points of Interest

The fragmented screenshot below shows the console output for this example.

The SAPReader.Logon saplogon is an attribute of class TableReaderDemo and is derived from SAP.Connector.SAPLogonDestination. If the user selects a destination name, the saplogon selects the corresponding destination parameters:

Collapse Copy Code

    public SAP.Connector.Destination getDestinationByName(string name){
// Map the name used for displaying the available destination,
      // e.g. at SAPLogon, to the internal name used to address this item.
      // BTW, the internal name (key) is derived from saplogon.ini.
      string destName = this.GetDestinationNameFromPrintName(name);
// null returned if the destination does not exist.
      if(destName == null || destName == "" ){
Console.WriteLine(this.GetType().ToString()
+ ".getDestinationByName: Destination " + name +
" does not exist."
);
Console.WriteLine("Available Destinations are: ");
this.printAvailableDestinations(Console.Out);
Environment.Exit(0);
}
// This is the key statement for selecting the
      // desired destination item:
      this.DestinationName = destName;
// Now all information is retrieved from the SAPLogon's ini file
      // to the respective variables of 'this' destination object.
      // (The ini file is stored in the private variable:
      // SAP.Connector.SAPLogonDestination.saplogon.fileName)

return (SAP.Connector.Destination)this;
}

The RFC call is performed by TableReader this way:

Collapse Copy Code

    public string read(){
if(this.proxy.connected() == false){
this.proxy.connectSAP();
}
try {
// Force the proxy to make the rfc call synchronously
        // See documentation for RFC_READ_TABLE Function Module at
        // your SAP system for further details (Transaction SE37).
        this.proxy.SAPProxy.Rfc_Read_Table(this.delim, this.noData,
this.qTable, this.rowCount, this.rowSkip,
ref this.data, ref this.fields, ref this.options);
// Check if data found
        if( this.NoData == false && this.data.Count == 0 ){
return "No data found";
}
// NoData set
        if(this.NoData == true){
for( int i = 0; i < this.fields.Count; i++){
this.results.addEntry(this.fields[i], "NoData");
}
}
// NoData not set
        // Save data to the column-wise ResultSet.
        else if(this.data.Count > 0 ){
//Loop over data rows
          for( int i = 0; i < this.data.Count; i++){
//Loop over fields
            for(int j = 0; j < this.fields.Count; j++){
string val = this.parseTableRow(this.fields[j], this.data[i]);
this.results.addEntry(this.fields[j], val);
}
}
}//else
      }
catch (SAP.Connector.RfcSystemException ex) {
System.Text.StringBuilder msg = new System.Text.StringBuilder();
msg.Append("Table: " + this.qTable);
foreach(SAPKernel.RFC_DB_FLD field in this.fields){
msg.Append("\nFields: " + field.Fieldname);
}
foreach(SAPKernel.RFC_DB_OPT opt in this.options){
msg.Append("\nOptions: " + opt.Text);
}
Console.WriteLine(msg + "\n"
+ "Error calling SAP RFC \n" + ex.ToString() + "\n" + ex.ErrorCode,
"Problem with SAP"
);
return ex.ErrorCode;
}
catch(SAP.Connector.RfcAbapException ex){
return ex.ErrorCode;
}
return null;
}

Data returned by the RFC call is stored row-wise. A value of a field in a certain row can be extracted by using the offset and length stored in each field structure returned:

Collapse Copy Code

    public string parseTableRow(SAPReader.SAPKernel.RFC_DB_FLD field,
SAPReader.SAPKernel.TAB512 dataRow ){
// Length of the field
      int len = int.Parse(field.Length);
// Position where the field's value starts in the data row
      int offset = int.Parse(field.Offset);
// The data row, containing all the field values concatenated
      // by SAP's rfc_read_table
      string row = dataRow.Wa;
string retValue = "";
try{
if(offset < row.Length){
// Read the field's value starting at the position specified
          // by offset.
          if(offset + len > row.Length)
// Read until the end of the row string
            retValue = dataRow.Wa.Substring(offset);
else
// Read only len characters, otherwise.
            retValue = dataRow.Wa.Substring(offset,len);
}
}catch(System.ArgumentOutOfRangeException e){
Console.WriteLine(e.ToString());
Environment.Exit(0);
}
return retValue;
}

Interop.SAPBAPIControlLib.dll
Interop.SAPFunctionsOCX.dll
Interop.SAPLogonCtrl.dll
Interop.SAPTableFactoryCtrl.dll

调用方法体：

private void GetMateriel()
    {
        string number = this.txtNumber.Text.Trim();
        string desc = this.txtDesc.Text.Trim();

        Config config = new Config();
        SAPLogonCtrl.SAPLogonControlClass login = new SAPLogonCtrl.SAPLogonControlClass();

        login.ApplicationServer = config.Server;
        login.Client = config.Client;
        login.Language = config.Language;
        login.User = config.User;
        login.Password = config.Password;
        login.SystemNumber = config.Number;

        SAPLogonCtrl.Connection conn = (SAPLogonCtrl.Connection)login.NewConnection();
        DataSet ds = new DataSet();
        DataTable table = new DataTable();
        table.Columns.Add("Number", typeof(string));
        table.Columns.Add("Desc1", typeof(string));
        table.Columns.Add("Desc2", typeof(string));
        table.Columns.Add("Desc3", typeof(string));
        table.Columns.Add("Uint", typeof(string));

        if (conn.Logon(0, true))
        {
            SAPFunctionsOCX.SAPFunctionsClass func = new SAPFunctionsOCX.SAPFunctionsClass();
            func.Connection = conn;

            SAPFunctionsOCX.IFunction ifunc = (SAPFunctionsOCX.IFunction)func.Add("Z_MATERIAL_APPLICATION"); //（Z_MATERIAL_APPLICATION） SAP RFC 名称

            SAPFunctionsOCX.IParameter gclient = (SAPFunctionsOCX.IParameter)ifunc.get_Exports("I_WERKS"); //（I_WERKS）输入参数
            gclient.Value = Factory; //（Factory）对参数赋值

            SAPFunctionsOCX.IParameter matnr = (SAPFunctionsOCX.IParameter)ifunc.get_Exports("I_MATNR");
            matnr.Value = number;

            SAPFunctionsOCX.IParameter maktx = (SAPFunctionsOCX.IParameter)ifunc.get_Exports("I_MAKTX");
            maktx.Value = desc;

            ifunc.Call();
            SAPTableFactoryCtrl.Tables tables = (SAPTableFactoryCtrl.Tables)ifunc.Tables;
            SAPTableFactoryCtrl.Table ENQ = (SAPTableFactoryCtrl.Table)tables.get_Item("PO_TAB"); （PO_TAB）输出表名

            for (int i = 1; i <= ENQ.RowCount; i++)
            {
                DataRow dr = table.NewRow();
                dr[0] = ENQ.get_Cell(i, "MATNR");
                dr[1] = ENQ.get_Cell(i, "MAKTX");
                dr[2] = ENQ.get_Cell(i, "MAKTX2");
                dr[3] = ENQ.get_Cell(i, "MAKTX3");
                dr[4] = ENQ.get_Cell(i, "MEINS");
                table.Rows.Add(dr);
            }

            ds.Tables.Add(table);
        }
        conn.Logoff();

        this.Repeater1.DataSource = ds.Tables[0];
        this.DataBind();
        this.lblCount.Text = "共找到" + ds.Tables[0].Rows.Count.ToString() + "條記錄";
        ScriptManager.RegisterStartupScript(btnSAP, this.GetType(), "", "$(document).ready( function (){ jQuery.page('page',10);} )", true);
    }

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/robaot/archive/2009/10/20/4704127.aspx