/// <summary>
///根据函数名，返回函数的元数据，各个参数的名称，类型等。
/// </summary>
/// <param name="sysName"></param>
/// <param name="funame"></param>
/// <returns></returns>
public static RfcFunctionMetadata GetRfcFunctionMetadata(string sysName, string funame)
{
funame = funame.ToUpper().Trim();
if (string.IsNullOrEmpty(funame))
{
throw new SAPException("请输入函数！！");
}
if (!SAPFunction.CheckFunction(sysName, funame))
{
throw new SAPException("函数不存在！！");
}
RfcFunctionMetadata MetaData = null;
try
{
RfcDestination destination = SAPDestination.GetDesByName(sysName);
//destination.Repository.ClearAllMetadata();
MetaData = destination.Repository.GetFunctionMetadata(funame);
}
catch (RfcAbapException rfce)
{
throw new SAPException(rfce.Key + rfce.Message);
}
catch (RfcAbapRuntimeException rfcrunteime)
{
throw new SAPException(rfcrunteime.Key + rfcrunteime.Message);
}
return(MetaData);
}
/// <summary>
/// 物料凭证查询
/// </summary>
/// <param name="I_BKTXT">凭证抬头文本(凭证号与抬头文本至少填一个)</param>
/// <param name="I_MBLNR">物料凭证(凭证号与抬头文本至少填一个)</param>
/// <param name="I_MJAHR">物料凭证年度(选填)</param>
/// <returns></returns>
public static Result ZWMS_MKPF(string I_BKTXT, string I_MBLNR = "", string I_MJAHR = "")
{
Result result = new Result {
Success = false
};
try
{
//RfcDestination rfcDest = RfcDestinationManager.GetDestination(GetSapServerString());
RfcDestination rfcDest = RfcDestinationManager.GetDestination(ConfigurationManager.AppSettings["sapServer"].ToString());
//选择要调用的BAPI的名称
RfcFunctionMetadata rfMD = rfcDest.Repository.GetFunctionMetadata("ZWMS_MKPF");
//新建调用该BAPI的一个“实例”
IRfcFunction irF = rfMD.CreateFunction();
//******************************
//输入参数设置
//******************************
irF.SetValue("I_MBLNR", I_MBLNR); //物料凭证
irF.SetValue("I_MJAHR", I_MJAHR); //物料凭证年度
irF.SetValue("I_BKTXT", I_BKTXT); //凭证抬头文本
IRfcTable irt = irF.GetTable("O_MKPF");
RfcSessionManager.BeginContext(rfcDest);
irF.Invoke(rfcDest);
//irfCommit.Invoke(rfcDest);
RfcSessionManager.EndContext(rfcDest);
result.Success = irF.GetString("RTYPE").ToUpper() == "S";
result.Message = irF.GetValue("RTMSG").ToString();
if (result.Success && irt.RowCount > 0)
{
var MBLNR = "";
for (int i = 0; i < irt.RowCount; i++)
{
irt.CurrentIndex = i;
if (MBLNR.IsNotEmpty())
{
MBLNR += "/";
}
MBLNR += irt.GetString("MBLNR");
}
result.Message = MBLNR;
}
}
catch (Exception ex)
{
result.Success = false;
result.Message = ex.Message;
}
return(result);
}
/// <summary>
/// 读取RFCFunction的所有元数据，并以DataTable的形式输出
/// </summary>
/// <param name="sysName"></param>
/// <param name="funame"></param>
/// <returns></returns>
public static FunctionMetaAsDataTable GetRfcFuncMetaAsDataTable(string sysName, string funame)
{
FunctionMetaAsDataTable metaTable = null;
try
{
RfcFunctionMetadata MetaData = GetRfcFunctionMetadata(sysName, funame);
metaTable = new FunctionMetaAsDataTable();
DataTable dtImport = FunctionMetaAsDataTable.ParameterDefinitionView();
DataTable dtExport = dtImport.Copy();
DataTable dtChanging = dtImport.Copy();
DataTable dtTables = dtImport.Copy();
//根据参数的方向，分为四种（CHANGING,EXPORT,IMPORT,TABLES);
for (int i = 0; i < MetaData.ParameterCount; i++)
{
RfcParameterMetadata pMetadata = MetaData[i];
switch (pMetadata.Direction)
{
//创建四个方向的参数列表
case RfcDirection.CHANGING:
AddMetadataToTable(ref pMetadata, ref dtChanging);
break;
case RfcDirection.EXPORT:
AddMetadataToTable(ref pMetadata, ref dtExport);
break;
case RfcDirection.IMPORT:
AddMetadataToTable(ref pMetadata, ref dtImport);
break;
case RfcDirection.TABLES:
AddMetadataToTable(ref pMetadata, ref dtTables);
break;
}
if (pMetadata.DataType == RfcDataType.STRUCTURE)
{
RfcStructureMetadata strucmeta = pMetadata.ValueMetadataAsStructureMetadata;
RfcContainerMetadata <RfcFieldMetadata> meta = pMetadata.ValueMetadataAsStructureMetadata;
if (!metaTable.StructureDetail.Keys.Contains(meta.Name))
{
//在这里创建结构体的定义表格
DataTable dtStructure = FunctionMetaAsDataTable.StructDefinitionView();
for (int f = 0; f < strucmeta.FieldCount; f++)
{
DataRow dr = dtStructure.NewRow();
RfcFieldMetadata fieldm = strucmeta[f];
dr["Name"] = fieldm.Name;
dr["DataType"] = fieldm.DataType.ToString();
dr["Decimals"] = fieldm.Decimals;
dr["Length"] = fieldm.NucLength;
dr["Documentation"] = fieldm.Documentation;
dtStructure.Rows.Add(dr);
}
metaTable.StructureDetail.Add(meta.Name, dtStructure);
}
if (!metaTable.InputTable.Keys.Contains(pMetadata.Name))
{
//用于输入数据的DataTable;
DataTable dtInput = new DataTable();
for (int f = 0; f < strucmeta.FieldCount; f++)
{
RfcFieldMetadata fieldm = strucmeta[f];
DataColumn dc = null;
String colName = fieldm.Name;
dc = new DataColumn(colName, Type.GetType("System.String"));
dc.MaxLength = fieldm.NucLength;
dc.Caption = fieldm.Documentation;
dtInput.Columns.Add(dc);
}
metaTable.InputTable.Add(pMetadata.Name, dtInput);
}
}
else if (pMetadata.DataType == RfcDataType.TABLE)
{
//在这里创建表的定义明细表格
RfcTableMetadata tablem = pMetadata.ValueMetadataAsTableMetadata;
if (!metaTable.StructureDetail.Keys.Contains(tablem.LineType.Name))
{
DataTable dtTable = FunctionMetaAsDataTable.StructDefinitionView();
for (int f = 0; f < tablem.LineType.FieldCount; f++)
{
DataRow dr = dtTable.NewRow();
RfcFieldMetadata fieldm = tablem.LineType[f];
dr["Name"] = fieldm.Name;
dr["DataType"] = fieldm.DataType;
dr["Decimals"] = fieldm.Decimals;
dr["Length"] = fieldm.NucLength;
dr["Documentation"] = fieldm.Documentation;
dtTable.Rows.Add(dr);
}
metaTable.StructureDetail.Add(tablem.LineType.Name, dtTable);
}
if (!metaTable.InputTable.Keys.Contains(pMetadata.Name))
{
//用于输入数据的DataTable;
DataTable dtInput = new DataTable();
for (int f = 0; f < tablem.LineType.FieldCount; f++)
{
RfcFieldMetadata fieldm = tablem.LineType[f];
DataColumn dc = null;
String colName = fieldm.Name;
dc = new DataColumn(colName, Type.GetType("System.String"));
dc.MaxLength = fieldm.NucLength;
dc.Caption = fieldm.Documentation;
dtInput.Columns.Add(dc);
}
metaTable.InputTable.Add(pMetadata.Name, dtInput);
}
}
}
metaTable.Import = dtImport;
metaTable.Export = dtExport;
metaTable.Changing = dtChanging;
metaTable.Tables = dtTables;
}
catch (Exception ee)
{
metaTable = null;
throw new SAPException(ee.Message);
}
return(metaTable);
}
/// <summary>
/// Get teh response from SAP and dynamically generate DataTables based on the responses metadata
/// </summary>
/// <param name="function"></param>
/// <param name="meta"></param>
/// <param name="rfc"></param>
private void ProcessResults(SAPFunction function, RfcFunctionMetadata meta, IRfcFunction rfc)
{
foreach (var output in function.OutputParameters)
{
String paramName = output;
String secondLevelStructure = string.Empty;
int index = -1;
string[] paramDetail = paramName.Split(':');
if (paramDetail.Length == 1)
{
index = meta.TryNameToIndex(paramName);
}
else if (paramDetail.Length == 2)
{
secondLevelStructure = paramDetail[0];
paramName = paramDetail[1];
index = meta.TryNameToIndex(secondLevelStructure);
}
if (index != -1)
{
RfcElementMetadata elementMeta = rfc.GetElementMetadata(index);
RfcDataType type = elementMeta.DataType;
String dataType = type.ToString();
if (dataType.Equals(SAPFunction.STRUCTURE))
{
DataTable table = null;
if (function.Results.Tables[secondLevelStructure] == null)
{
table = function.Results.Tables.Add(secondLevelStructure);
IRfcStructure rfcStructure = rfc.GetStructure(secondLevelStructure);
RfcStructureMetadata structureMetaData = rfcStructure.Metadata;
for (int x = 0; x < rfcStructure.ElementCount; x++)
{
DataColumn dc = table.Columns.Add(structureMetaData[x].Name, typeof(String));
dc.DataType = ConvertDataType(type);
}
DataRow dr = table.NewRow();
foreach (var column in table.Columns)
{
dr[column.ToString()] = rfcStructure.GetValue(column.ToString());
}
table.Rows.Add(dr);
}
}
else if (dataType.Equals(SAPFunction.TABLE))
{
DataTable table = null;
if (function.Results.Tables[secondLevelStructure] == null)
{
table = function.Results.Tables.Add(secondLevelStructure);
IRfcTable rfcTable = rfc.GetTable(secondLevelStructure);
RfcTableMetadata tableMetaData = rfcTable.Metadata;
for (int x = 0; x < tableMetaData.LineType.FieldCount; x++)
{
DataColumn dc = table.Columns.Add(tableMetaData.LineType[x].Name, typeof(String));
dc.DataType = ConvertDataType( type );
}
foreach(var row in rfcTable)
{
DataRow dr = table.NewRow();
foreach(var column in table.Columns)
{
dr[column.ToString()] = row.GetValue(column.ToString());
}
table.Rows.Add(dr);
}
}
}
else
{
DataTable table = null;
if (function.Results.Tables["Root"] == null)
{
table = function.Results.Tables.Add("Root");
function.Results.Tables["Root"].NewRow();
}
else
{
table = function.Results.Tables[paramName];
}
table.Columns.Add(paramName);
table.Rows[0][paramName] = rfc;
}
}
}
}
/// <summary>
/// 读取RFC函数的全部信息
/// </summary>
/// <param name="sysName"></param>
/// <param name="funame"></param>
/// <returns></returns>
public static RfcFunctionMetaAsList GetFuncMetaAsList(string sysName, string funame)
{
funame = funame.ToUpper().Trim();
RfcFunctionMetadata MetaData = GetRfcFunctionMetadata(sysName, funame);
RfcFunctionMetaAsList metaList = new RfcFunctionMetaAsList();
// metaList.Import.Add(
//根据参数的方向，分为四种（CHANGING,EXPORT,IMPORT,TABLES);
for (int i = 0; i < MetaData.ParameterCount; i++)
{
RfcParameterMetadata pMetadata = MetaData[i];
FunctionField field = null;
String dataTypeName = String.Empty;
if (pMetadata.DataType == RfcDataType.STRUCTURE)
{
RfcContainerMetadata <RfcFieldMetadata> meta = pMetadata.ValueMetadataAsStructureMetadata;
dataTypeName = meta.Name;
}
else if (pMetadata.DataType == RfcDataType.TABLE)
{
RfcContainerMetadata <RfcFieldMetadata> meta = pMetadata.ValueMetadataAsTableMetadata;
RfcTableMetadata tablem = pMetadata.ValueMetadataAsTableMetadata;
dataTypeName = tablem.LineType.Name;
}
field = new FunctionField(pMetadata.Name, pMetadata.Direction.ToString(), pMetadata.DataType.ToString(), pMetadata.Decimals, pMetadata.DefaultValue, pMetadata.NucLength, pMetadata.Optional, pMetadata.Documentation, dataTypeName);
switch (pMetadata.Direction)
{
//创建四个方向的参数列表
case RfcDirection.CHANGING:
metaList.Changing.Add(pMetadata.Name, field);
break;
case RfcDirection.EXPORT:
metaList.Export.Add(pMetadata.Name, field);
break;
case RfcDirection.IMPORT:
metaList.Import.Add(pMetadata.Name, field);
break;
case RfcDirection.TABLES:
metaList.Tables.Add(pMetadata.Name, field);
break;
}
if (pMetadata.DataType == RfcDataType.STRUCTURE)
{
RfcContainerMetadata <RfcFieldMetadata> fieldMeta = pMetadata.ValueMetadataAsStructureMetadata;
if (!metaList.StructureDetail.Keys.Contains(fieldMeta.Name))
{
RfcStructureMetadata strucmeta = pMetadata.ValueMetadataAsStructureMetadata;
List <StructureField> fieldList = new List <StructureField>();
for (int f = 0; f < strucmeta.FieldCount; f++)
{
RfcFieldMetadata fieldm = strucmeta[f];
StructureField structureField = new StructureField(fieldm.Name, fieldm.DataType.ToString(), fieldm.Decimals, fieldm.NucLength, fieldm.Documentation);
fieldList.Add(structureField);
}
metaList.StructureDetail.Add(fieldMeta.Name, fieldList);
}
}
else if (pMetadata.DataType == RfcDataType.TABLE)
{
RfcTableMetadata tableMeta = pMetadata.ValueMetadataAsTableMetadata;
if (!metaList.StructureDetail.Keys.Contains(tableMeta.LineType.Name))
{
List <StructureField> tableFieldList = new List <StructureField>();
for (int f = 0; f < tableMeta.LineType.FieldCount; f++)
{
RfcFieldMetadata fieldm = tableMeta.LineType[f];
StructureField structureField = new StructureField(fieldm.Name, fieldm.DataType.ToString(), fieldm.Decimals, fieldm.NucLength, fieldm.Documentation);
tableFieldList.Add(structureField);
}
metaList.StructureDetail.Add(tableMeta.LineType.Name, tableFieldList);
}
}
}
return(metaList);
}
/// <summary>
/// Notify SAP which output parameters are required i.e. SAP will only respond with the data that has been requested
/// </summary>
/// <param name="function"></param>
/// <param name="meta"></param>
/// <param name="rfc"></param>
private void PrepareOutputParameters(SAPFunction function, RfcFunctionMetadata meta, IRfcFunction rfc)
{
foreach (var iout in function.OutputParameters)
{
String paramName = iout;
String secondLevelStructure = string.Empty;
int index = -1;
string[] paramDetail = paramName.Split(':');
if (paramDetail.Length == 1)
{
index = meta.TryNameToIndex(paramName);
}
else if (paramDetail.Length == 2)
{
secondLevelStructure = paramDetail[0];
paramName = paramDetail[1];
index = meta.TryNameToIndex(secondLevelStructure);
}
if (index != -1)
{
RfcElementMetadata elementMeta = rfc.GetElementMetadata(index);
RfcDataType type = elementMeta.DataType;
String dataType = type.ToString();
function.DataType.Add(paramName + ":" + secondLevelStructure, ConvertDataType(type));
IRfcDataContainer container = null;
if (dataType.Equals(SAPFunction.STRUCTURE))
{
RfcStructureMetadata structureMeta = elementMeta.ValueMetadataAsStructureMetadata;
container = rfc.GetStructure(secondLevelStructure);
}
else if (dataType.Equals(SAPFunction.TABLE))
{
RfcTableMetadata tableMeta = elementMeta.ValueMetadataAsTableMetadata;
container = rfc.GetTable(secondLevelStructure);
if (tableMeta.Name.Equals(String.Empty))
{
String lineType = tableMeta.LineType.ContainerType.ToString();
if (lineType.Equals("STRUCTURE"))
{
container = tableMeta.LineType.CreateStructure();
}
}
}
else
{
rfc.GetString(secondLevelStructure);
}
}
}
}
/// <summary>
/// Pass input parameters to SAP remote function call
/// </summary>
/// <param name="function"></param>
/// <param name="meta"></param>
/// <param name="rfc"></param>
private void PrepareInputParameters( SAPFunction function, RfcFunctionMetadata meta, IRfcFunction rfc)
{
Dictionary<String,IRfcTable> _table = new Dictionary<String,IRfcTable>();
Dictionary<String,IRfcStructure> _structure = new Dictionary<String,IRfcStructure>();
foreach (var iin in function.InputParameters)
{
String paramName = iin.Key;
String paramValue = iin.Value;
String secondLevelStructure = string.Empty;
int sapFieldIndex = -1;
int tableRowIndex = -1;
string[] paramDetail = paramName.Split(':');
if(paramDetail.Length == 1) {
sapFieldIndex = meta.TryNameToIndex(paramName);
} else if (paramDetail.Length == 2) {
secondLevelStructure = paramDetail[0];
paramName = paramDetail[1];
if (secondLevelStructure.Contains('[') && secondLevelStructure.Contains(']'))
{
sapFieldIndex = meta.TryNameToIndex(secondLevelStructure.Split('[')[0]);
string arrayIndex = secondLevelStructure.Split('[')[1].Split(']')[0];
Int32.TryParse(arrayIndex, out tableRowIndex);
}
else
{
sapFieldIndex = meta.TryNameToIndex(secondLevelStructure);
}
}
if (sapFieldIndex != -1)
{
RfcElementMetadata elementMeta = rfc.GetElementMetadata(sapFieldIndex);
RfcDataType type = elementMeta.DataType;
String dataType = type.ToString();
function.DataType.Add(secondLevelStructure + ":" + paramName, ConvertDataType(type));
if (dataType.Equals(SAPFunction.STRUCTURE))
{
IRfcStructure structure;
if (!_structure.TryGetValue(secondLevelStructure, out structure))
{
structure = rfc.GetStructure(secondLevelStructure);
_structure.Add(secondLevelStructure, structure);
}
structure.SetValue(paramName, paramValue);
function.Length.Add(paramName + ":" + secondLevelStructure, structure.GetElementMetadata(paramName).NucLength);
}
else if (dataType.Equals(SAPFunction.TABLE))
{
if (secondLevelStructure.Contains('[') && secondLevelStructure.Contains(']'))
{
IRfcTable table;
if (!_table.TryGetValue(secondLevelStructure.Split('[')[0], out table))
{
table = rfc.GetTable(secondLevelStructure.Split('[')[0]);
_table.Add(secondLevelStructure.Split('[')[0], table);
}
try
{
table.ElementAt(tableRowIndex);
}
catch (ArgumentOutOfRangeException)
{
table.Insert(1, tableRowIndex);
}
table.CurrentIndex = tableRowIndex;
//rfc.Invoke(this.Destination);
RfcElementMetadata em = table.GetElementMetadata(paramName);
string s = String.Format("{0, " + table.GetElementMetadata(paramName).NucLength + "}", paramValue);
table.SetValue(paramName, s.Trim());
function.Length.Add(paramName + ":" + secondLevelStructure, table.GetElementMetadata(paramName).NucLength);
}
}
else
{
rfc.SetValue(paramName, paramValue);
function.Length.Add(paramName, rfc.GetElementMetadata( paramName ).NucLength);
}
}
}
}
/// <summary>
/// 动态调用RFC函数
/// </summary>
/// <param name="sysName"></param>
/// <param name="funame"></param>
/// <param name="input"></param>
/// <param name="output"></param>
/// <returns></returns>
public static bool InvokeFunction(string sysName, string funame, MetaValueList input, out MetaValueList output)
{
try
{
RfcFunctionMetadata MetaData = SAPFunctionMeta.GetRfcFunctionMetadata(sysName, funame);
IRfcFunction function = MetaData.CreateFunction();
//初步序列化后的参数还需要进一步进行格式化，把结构体与表格都转化成SAP格式。
if (input != null)
{
//填充所有的参数
List <String> KeyIndex = new List <string>();
KeyIndex.AddRange(input.FieldValueList.Keys);
KeyIndex.AddRange(input.StructureValueList.Keys);
KeyIndex.AddRange(input.TableValueList.Keys);
KeyIndex.ForEach(x => x.ToUpper().Trim());
for (int i = 0; i < MetaData.ParameterCount; i++)
{
RfcParameterMetadata pMetadata = MetaData[i];
if (pMetadata.Direction == RfcDirection.EXPORT)
{
continue;
}
if (!KeyIndex.Contains(pMetadata.Name))
{
continue;
}
// Dictionary<String, Object> ParameterList = new Dictionary<string, object>();
if (pMetadata.DataType == RfcDataType.STRUCTURE)
{
if (input.StructureValueList.ContainsKey(pMetadata.Name))
{
Dictionary <String, String> structure;
input.StructureValueList.TryGetValue(pMetadata.Name, out structure);
IRfcStructure str = function.GetStructure(pMetadata.Name, true);
if (structure != null)
{
for (int s = 0; s < str.Metadata.FieldCount; s++)
{
RfcFieldMetadata field = str.Metadata[s];
if (structure.Keys.Contains(field.Name))
{
Object o = Converts.ObjectToRfcValue(structure[field.Name], field.DataType);
str.SetValue(field.Name, o);
}
}
}
}
}
else if (pMetadata.DataType == RfcDataType.TABLE)
{
List <Dictionary <String, String> > tablelist;
input.TableValueList.TryGetValue(pMetadata.Name, out tablelist);
if (tablelist != null)
{
IRfcTable table = function.GetTable(pMetadata.Name);
for (int j = 0; j < tablelist.Count; j++)
{
table.Append();
for (int k = 0; k < table.Metadata.LineType.FieldCount; k++)
{
RfcFieldMetadata field = table.Metadata.LineType[k];
if (tablelist[j].Keys.Contains(field.Name))
{
Object o = Converts.ObjectToRfcValue(tablelist[j][field.Name], field.DataType);
table.SetValue(field.Name, o);
}
}
}
}
}
else
{
String value = "";
input.FieldValueList.TryGetValue(pMetadata.Name, out value);
Object o = Converts.ObjectToRfcValue(value, pMetadata.DataType);
function.SetValue(pMetadata.Name, o);
}
}
}
MetaValueList outputlist = new MetaValueList();
try
{
RfcDestination destination = SAPDestination.GetDesByName(sysName);
function.Invoke(destination);
}
catch (RfcAbapException ee)
{
throw new SAPException(ee.Key + ee.Message + ee.PlainText);
}
catch (RfcAbapRuntimeException runtimeEx)
{
throw new SAPException(runtimeEx.Key + runtimeEx.Message + runtimeEx.PlainText);
}
for (int i = 0; i < MetaData.ParameterCount; i++)
{
RfcParameterMetadata pMetadata = MetaData[i];
if (pMetadata.Direction == RfcDirection.IMPORT)
{
continue;
}
// outputlist.FieldTypeList.Add(pMetadata.Name, pMetadata.DataType.ToString());
if (pMetadata.DataType == RfcDataType.STRUCTURE)
{
Dictionary <String, String> stru = null;
IRfcStructure structure = function.GetStructure(pMetadata.Name, false);
if (structure != null)
{
stru = new Dictionary <string, string>();
for (int s = 0; s < structure.Metadata.FieldCount; s++)
{
RfcFieldMetadata field = structure.Metadata[s];
Object result = null;
if (field.DataType == RfcDataType.BYTE)
{
result = structure.GetString(field.Name);
}
else
{
result = structure.GetValue(field.Name);
}
result = Converts.RfcToDoNetValue(result, field.DataType).ToString();
stru.Add(field.Name, result.ToString());
}
if (stru != null)
{
outputlist.StructureValueList.Add(pMetadata.Name, stru);
}
}
}
else if (pMetadata.DataType == RfcDataType.TABLE)
{
List <Dictionary <String, String> > outTableList = null;
IRfcTable outTable = function.GetTable(pMetadata.Name, false);
if (outTable != null)
{
outTableList = new List <Dictionary <string, string> >();
for (int s = 0; s < outTable.RowCount; s++)
{
IRfcStructure rfcTableLine = outTable[s];
Dictionary <String, String> row = new Dictionary <string, string>();
for (int z = 0; z < rfcTableLine.Metadata.FieldCount; z++)
{
RfcFieldMetadata field = rfcTableLine[z].Metadata;
Object result = null;
if (field.DataType == RfcDataType.BYTE)
{
result = rfcTableLine.GetString(field.Name);
}
else
{
result = rfcTableLine.GetValue(field.Name);
}
result = Converts.RfcToDoNetValue(result, field.DataType).ToString();
row.Add(field.Name, result.ToString());
}
outTableList.Add(row);
}
}
outputlist.TableValueList.Add(pMetadata.Name, outTableList);
}
else
{
Object result = function.GetValue(pMetadata.Name);
result = Converts.RfcToDoNetValue(result, pMetadata.DataType);
outputlist.FieldValueList.Add(pMetadata.Name, result.ToString());
}
}
output = outputlist;
return(true);
}
catch (Exception e)
{
output = null;
throw new SAPException(e.Message);
}
}
/// <summary>
/// 填充所有的参数调用SAP RFC函数后，填充所有的参数
/// </summary>
/// <param name="funame">函数名</param>
/// <param name="list">输入参数列表</param>
/// <param name="olist">输出参数列表</param>
/// <returns></returns>
private static bool InvokeFunctionFromJson(string sysName, string funame, RfcInputListJson list, out RfcOutputListJson olist)
{
try
{
if (funame == "" || null == list)
{
olist = null;
return(false);
}
if (!SAPFunction.CheckFunction(sysName, funame))
{
olist = null;
return(false);
}
RfcDestination destination = SAPDestination.GetDesByName(sysName);
RfcFunctionMetadata MetaData = destination.Repository.GetFunctionMetadata(funame);
IRfcFunction function = MetaData.CreateFunction();
//初步序列化后的参数还需要进一步进行格式化，把结构体与表格都转化成SAP格式。
list.All.Clear();
list.All.AddRange(list.Import);
list.All.AddRange(list.Change);
list.All.AddRange(list.Tables);
foreach (var item in list.All)
{
if (item.Value == null)
{
continue;
}
RfcParameterMetadata p = MetaData[item.Name];
if (p == null)
{
continue;
}
//尝试把OBJECT反解析成对应的类型
if (p.DataType == RfcDataType.STRUCTURE)
{
Console.WriteLine(item.Value.GetType().ToString());
if (item.Value.GetType().ToString() != "Newtonsoft.Json.Linq.JArray" && item.Value.GetType().ToString() != "System.Array")
{
continue;
}
if (item.Value.GetType().ToString() != "System.Array")
{
// continue;
}
IRfcStructure str = function.GetStructure(item.Name, true);
var arr = JsonConvert.DeserializeObject <List <Dictionary <string, object> > >(item.Value.ToString());
if (arr.Count == 1)
{
//结构使用第一行
var o = arr[0];
for (int s = 0; s < str.Metadata.FieldCount; s++)
{
RfcFieldMetadata field = str.Metadata[s];
str.SetValue(field.Name, o[field.Name]);
}
}
item.Value = str;
}
else if (p.DataType == RfcDataType.TABLE)
{
if (string.IsNullOrEmpty(item.Value.ToString()))
{
continue;
}
IRfcTable tbl = function.GetTable(item.Name, true);
var arr = JsonConvert.DeserializeObject <List <Dictionary <string, object> > >(item.Value.ToString());
for (int x = 0; x < arr.Count; x++)
{
IRfcStructure str = tbl.Metadata.LineType.CreateStructure();
for (int s = 0; s < tbl.Metadata.LineType.FieldCount; s++)
{
RfcFieldMetadata field = tbl.Metadata.LineType[s];
str.SetValue(field.Name, arr[x][field.Name]);
}
tbl.Append(str);
}
item.Value = tbl;
}
}
//填充所有的参数
for (int i = 0; i < MetaData.ParameterCount; i++)
{
RfcParameterMetadata pMetadata = MetaData[i];
if (list.All.Exists(x => x.Name == pMetadata.Name))
{
var value = list.All.Find(x => x.Name == pMetadata.Name).Value;
if (value != null)
{
function.SetValue(pMetadata.Name, value);
}
}
}
//远程调用函数
try
{
function.Invoke(destination);
}
catch (RfcAbapException ee)
{
throw new Exception(ee.Key + ee.Message);
}
//保留调用结果。
RfcOutputListJson outlist = new RfcOutputListJson();
//循环读取结果。把所以的结果都保存到List<object>中。
for (int i = 0; i < MetaData.ParameterCount; i++)
{
RfcParameterMetadata pMetadata = MetaData[i];
//
if (pMetadata.Direction == RfcDirection.IMPORT)
{
continue;
}
RfcKeyValueJson d = new RfcKeyValueJson();
d.Name = pMetadata.Name;
if (pMetadata.DataType == RfcDataType.STRUCTURE)
{
//注意，在这里就算是结构体，也把放到List中，这样可以序列化成数组格式。
List <object> tb_list = new List <object>();
IRfcStructure row = function.GetStructure(pMetadata.Name);
Dictionary <string, object> rowd = new Dictionary <string, object>();
for (int x = 0; x < row.Metadata.FieldCount; x++)
{
rowd.Add(row[x].Metadata.Name, row[x].GetValue());
}
tb_list.Add(rowd);
d.Value = tb_list;
}
else if (pMetadata.DataType == RfcDataType.TABLE)
{
List <object> tb_list = new List <object>();
IRfcTable table = function.GetTable(pMetadata.Name);
var readItems = table.RowCount;
if (readItems > 0)
{
try
{
//保存结果到数据库。
RfcTableMetadata tableMeta = pMetadata.ValueMetadataAsTableMetadata;
var _table = new SapTable(sysName, funame + "_" + pMetadata.Name, tableMeta.LineType.Name);
_table.DbConnectionString = ConfigFileTool.SAPGlobalSettings.GetDefaultDbConnection();
_table.NewTable = true;
_table.SaveDataTable(SAPFunction.RfcTableToDataTable(table));
// RfcTableToDb dbhelper = new RfcTableToDb(funame, d.Name, tble);
// dbhelper.saveTable();
}
catch (Exception ee)
{
throw new Exception(ee.Message);
}
// ThreadStart threadStart = new ThreadStart(dbhelper.saveTable);
// Thread thread = new Thread(threadStart);
// thread.Start();
//DbHelper.saveRfcTable(funame,ref tble);
}
//控制100条，数据过多会序列华出错。以后再做改善，
if (readItems > 10)
{
readItems = 10;
}
for (int rowc = 0; rowc < readItems; rowc++)
{
IRfcStructure row = table[rowc];
Dictionary <string, object> rowd = new Dictionary <string, object>();
for (int x = 0; x < row.Metadata.FieldCount; x++)
{
rowd.Add(row[x].Metadata.Name, row[x].GetValue());
}
tb_list.Add(rowd);
}
d.Value = tb_list;
}
else
{
d.Value = function.GetValue(pMetadata.Name);
}
//存放于不同的集合也是为了序列化方便。
switch (pMetadata.Direction)
{
case RfcDirection.CHANGING:
outlist.Change.Add(d);
break;
case RfcDirection.EXPORT:
outlist.Export.Add(d);
break;
case RfcDirection.IMPORT:
outlist.Import.Add(d);
break;
case RfcDirection.TABLES:
outlist.Tables.Add(d);
break;
}
}
olist = outlist;
return(true);
}
catch (Exception e)
{
throw new SAPException(e.Message);
}
}
public static RfcOutputListJson GetFunMetaList(string sysName, string funame)
{
RfcOutputListJson paralist = new RfcOutputListJson();
try
{
if (string.IsNullOrEmpty(funame))
{
throw new SAPException("请输入函数！！");
}
if (!SAPFunction.CheckFunction(sysName, funame))
{
throw new SAPException("函数不存在！！");
}
funame = funame.ToUpper();
RfcDestination destination = SAPDestination.GetDesByName(sysName);
destination.Repository.ClearAllMetadata();
RfcFunctionMetadata MetaData = destination.Repository.GetFunctionMetadata(funame);
IRfcFunction function = null;
function = MetaData.CreateFunction();
//根据参数的方向，分为四种（CHANGING,EXPORT,IMPORT,TABLES);
for (int i = 0; i < MetaData.ParameterCount; i++)
{
RfcParameterMetadata pMetadata = MetaData[i];
paralist.All.Add(pMetadata);
switch (pMetadata.Direction)
{
case RfcDirection.CHANGING:
paralist.Change.Add(pMetadata);
break;
case RfcDirection.EXPORT:
paralist.Export.Add(pMetadata);
break;
case RfcDirection.IMPORT:
paralist.Import.Add(pMetadata);
break;
case RfcDirection.TABLES:
paralist.Tables.Add(pMetadata);
break;
}
//参数也可能是结构体，表，ABAP对象
//一定要分开TRY，因为有些是没有的
if (pMetadata.DataType == RfcDataType.STRUCTURE)
{
try
{
//结构体的行项目结构
List <object> elelist = new List <object>();
RfcStructureMetadata strucmeta = pMetadata.ValueMetadataAsStructureMetadata;
for (int f = 0; f < strucmeta.FieldCount; f++)
{
RfcFieldMetadata fieldm = strucmeta[f];
elelist.Add(fieldm);
}
paralist.Objects.Add(pMetadata.Name, elelist);
}
catch (Exception)
{
// throw new SAPException(ee.Message);
}
}
if (pMetadata.DataType == RfcDataType.TABLE)
{
//表结构的行项目结构
List <object> tbllist = new List <object>();
RfcTableMetadata tablem = pMetadata.ValueMetadataAsTableMetadata;
for (int t = 0; t < tablem.LineType.FieldCount; t++)
{
RfcFieldMetadata fieldm = tablem.LineType[t];
tbllist.Add(fieldm);
}
paralist.Objects.Add(pMetadata.Name, tbllist);
}
if (pMetadata.DataType == RfcDataType.CLASS)
{
//abap object 属性
List <object> attlist = new List <object>();
RfcAbapObjectMetadata abapitem = pMetadata.ValueMetadataAsAbapObjectMetadata;
for (int o = 0; o < abapitem.AttributeCount; o++)
{
RfcAttributeMetadata abapobject = abapitem[o];
attlist.Add(abapobject);
}
paralist.Objects.Add(pMetadata.Name, attlist);
}
}
return(paralist);
}
catch (Exception ee)
{
throw new SAPException(ee.Message);
}
}
