/// <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>
/// 填充所有的参数调用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);
}
}
/// <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);
}
}
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);
}
}