一套通过c# sap-rfc 完整处理一个bdc凭证的程序代码
2016-01-11 15:59
1026 查看
注明：有abap c# 2种开发语言的接口
1.首先进入sap系统
建立function
ZTEST_SIMPLE_02
源代码
data: maxprice1 like sflight-price.
DATA: LSBL3(10) . "临时变量3
data HS1 TYPE I.
DATA: l_msg(50).
TYPES: BEGIN OF tp_out.
TYPES: YGMC TYPE KNA1-NAME1.
TYPES: BM TYPE CSKT-KTEXT. "部门
TYPES: YFXJ TYPE ZFIT_GZYSJ01-SJ1. "应发小计
TYPES: END OF tp_out.
DATA:
gt_out TYPE TABLE OF tp_out WITH HEADER LINE.
DATA gt_wa like line of gt_out.
DATA: gt_outHB TYPE TABLE OF tp_out WITH HEADER LINE.
data wb type char20.
**********定义一个BDC内表***********************
DATA g_itb_bdcdata TYPE TABLE OF bdcdata.
DATA g_wa_bdcdata LIKE LINE OF g_itb_bdcdata.
data p_BUKRS LIKE ZFIT_GZYSJ02-BUKRS .
data p_GJAHR LIKE ZFIT_GZYSJ02-GJAHR .
data p_MONAT LIKE ZFIT_GZYSJ02-MONAT.
FUNCTION ZTEST_SIMPLE_02.
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*" VALUE(CARRID) LIKE SFLIGHT-CARRID
*" VALUE(CURRENCY) TYPE S_CURRCODE OPTIONAL
*" EXPORTING
*" VALUE(PRICE) TYPE S_PRICE
*" VALUE(MESSAGE) TYPE BUTXT
*" TABLES
*" AIRDATA STRUCTURE SFLIGHT
*" EXCEPTIONS
*" UNIT_NOT_FOUND
*"----------------------------------------------------------------------
select * from sflight into table airdata where carrid = carrid and currency = currency.
if sy-subrc <> 0.
raise unit_not_found.
else.
perform getmaxprice1 tables airdata.
price = maxprice1.
MESSAGE = l_msg.
endif.
ENDFUNCTION.
*&---------------------------------------------------------------------*
*& Form getmaxprice1
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->L_TAB text
*----------------------------------------------------------------------*
form getmaxprice1 tables l_tab structure sflight.
read table l_tab index 1.
maxprice1 = l_tab-price.
perFORM frm_post_fp.
endform. "getmaxprice1
*&---------------------------------------------------------------------*
*& Form frm_bdc_input
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P1 text
* -->P2 text
* -->P3 text
*----------------------------------------------------------------------*
FORM frm_bdc_input USING p1 p2 p3.
CLEAR g_wa_bdcdata.
IF p1 = 'X'.
g_wa_bdcdata-program = p2.
g_wa_bdcdata-dynpro = p3.
g_wa_bdcdata-dynbegin = p1.
APPEND g_wa_bdcdata TO g_itb_bdcdata.
ELSE.
g_wa_bdcdata-fnam = p2.
g_wa_bdcdata-fval = p3.
APPEND g_wa_bdcdata TO g_itb_bdcdata.
ENDIF.
ENDFORM. "frm_bdc_input
*&---------------------------------------------------------------------*
*& Form frm_post_fp
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM frm_post_fp.
p_BUKRS = '1000'.
p_GJAHR = '2009'.
p_MONAT = '10'.
DATA l_itb_message TYPE TABLE OF bdcmsgcoll.
DATA l_wa_message LIKE LINE OF l_itb_message.
DATA l_message TYPE char100.
DATA l_date TYPE bkpf-budat.
DATA l_wrbtr TYPE char16.
DATA l_str TYPE string.
DATA l_mode TYPE c VALUE 'N'.
* DATA l_mode TYPE c VALUE 'A'.
* DATA l_mode TYPE c VALUE 'E'.
DATA: l_datum TYPE datum.
CONCATENATE '这是用rfc处理的' p_MONAT '月的凭证' into wb.
l_datum+0(4) = p_GJAHR.
l_datum+4(2) = p_MONAT.
l_datum+6(2) = '15'.
IF GT_outhb[] IS INITIAL.
CLEAR:g_wa_bdcdata,g_itb_bdcdata.
*先设置科目编码
LSBL3 = '6601050000'."记住科目编码的状态变式非常重要
l_wrbtr = '100.00'.
PERFORM frm_bdc_input USING: 'X' 'SAPLF040' '0100',
'' 'BDC_OKCODE' '/00',
'' 'BKPF-BLDAT' l_datum,
'' 'BKPF-BLART' 'SA',
'' 'BKPF-BUKRS' p_BUKRS, "输入公司代码
'' 'BKPF-BUDAT' l_datum, "日期
'' 'BKPF-WAERS' 'RMB',
'' 'BKPF-BKTXT' wb , "文本抬头
'' 'VBKPF-XBWAE' 'X',
'' 'FS006-DOCID' '*'.
PERFORM frm_bdc_input USING: '' 'RF05V-NEWBS' '40'.
PERFORM frm_bdc_input USING: '' 'RF05V-NEWKO' LSBL3. "科目编码
PERFORM frm_bdc_input USING: 'X' 'SAPLF040' '0300',
'' 'BDC_OKCODE' '=ZK',
'' 'BSEG-WRBTR' l_wrbtr, "金额为文本格式
'X' 'SAPLKACB' '0
4000
002',
'' 'BDC_OKCODE' '/EESC',
'' 'BDC_CURSOR' 'COBL-KOSTL',
'X' 'SAPLF040' '0330',
'' 'BDC_CURSOR' 'BSEG-VBUND',
'' 'BDC_OKCODE' '=ZK',
'X' 'SAPLF040' '0300',
'' 'BDC_OKCODE' '=ZK',
'X' 'SAPLKACB' '0002',
'' 'BDC_OKCODE' '=ENTE',
'' 'COBL-KOSTL' '1000002' , "成本中心
'X' 'SAPLF040' '0330',
'' 'BDC_OKCODE' '=S+',
*按员工核算则BSEG-XREF2不为空
* '' 'BSEG-XREF2' gt_wa_out-kunnr.
'' 'BSEG-XREF2' ''.
PERFORM frm_bdc_input USING: '' 'RF05V-NEWBS' '50',
'' 'RF05V-NEWKO' '2211030101',
'X' 'SAPLF040' '0300',
'' 'BDC_OKCODE' '=AB',
'' 'BSEG-WRBTR' '*',
'X' 'SAPLKACB' '0002',
'' 'BDC_OKCODE' '=ENTE',
'X' 'SAPLF040' '0700',
'' 'BDC_CURSOR' 'BKPF-XBLNR',
'' 'BDC_OKCODE' '=PBBP'.
"break-point.
CALL TRANSACTION 'F-65' USING g_itb_bdcdata MODE l_mode MESSAGES INTO l_itb_message.
READ TABLE l_itb_message INTO l_wa_message WITH KEY msgtyp = 'S' msgid = 'FP' msgnr = '001'.
IF sy-subrc = 0.
CALL FUNCTION 'FORMAT_MESSAGE'
EXPORTING
id = l_wa_message-msgid
lang = '1'
no = l_wa_message-msgnr
v1 = l_wa_message-msgv1
v2 = l_wa_message-msgv2
v3 = l_wa_message-msgv3
v4 = l_wa_message-msgv4
IMPORTING
msg = l_msg
EXCEPTIONS
not_found = 1
OTHERS = 2.
* WRITE:/ l_msg.
ELSE.
LOOP AT l_itb_message INTO l_wa_message WHERE msgtyp = 'E' OR msgtyp = 'A'.
CALL FUNCTION 'FORMAT_MESSAGE'
EXPORTING
id = l_wa_message-msgid
lang = '1'
no = l_wa_message-msgnr
v1 = l_wa_message-msgv1
v2 = l_wa_message-msgv2
v3 = l_wa_message-msgv3
v4 = l_wa_message-msgv4
IMPORTING
msg = l_msg
EXCEPTIONS
not_found = 1
OTHERS = 2.
* WRITE:/ l_msg.
ENDLOOP.
ENDIF.
ELSE.
* WRITE:/ '没有需要结转的数据'.
ENDIF.
ENDFORM. " FRM_POST
2.然后进入c#vs2010系统
新建c#-项目
新建form2个label、1个textbox
form后台代码
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;
namespace WindowsFormsApplication1
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private void Form1_Load(object sender, EventArgs e)
{
RfcConfigParameters rfcPar = new RfcConfigParameters();
rfcPar.Add(RfcConfigParameters.Name, "dxx");
rfcPar.Add(RfcConfigParameters.AppServerHost, "11x.xs.ee.45");
rfcPar.Add(RfcConfigParameters.Client, "660");
rfcPar.Add(RfcConfigParameters.User, "FI2sd");
rfcPar.Add(RfcConfigParameters.Password, "734569");
rfcPar.Add(RfcConfigParameters.SystemNumber, "00");
rfcPar.Add(RfcConfigParameters.Language, "EN");
RfcDestination dest = RfcDestinationManager.GetDestination(rfcPar);
RfcRepository rfcrep = dest.Repository;
IRfcFunction myfun = null;
myfun = rfcrep.CreateFunction("ZTEST_SIMPLE_02");
myfun.SetValue("CARRID", "AA");//SAP里面的传入参数
myfun.SetValue("CURRENCY", "USD");//SAP里面的传入参数
myfun.Invoke(dest);
string ERMSG = myfun.GetValue("PRICE").ToString();
string message = myfun.GetValue("MESSAGE").ToString();
this.label1.Text = ERMSG;
this.label2.Text = message;
dest = null;
rfcrep = null;
IRfcTable IrfTable = myfun.GetTable("AIRDATA");
//提前实例化一个空的表结构出来
DataTable dt = new DataTable();
dt.Columns.Add("CARRID");
dt.Columns.Add("CONNID");
dt.Columns.Add("FLDATE");
for (int i = 0; i < IrfTable.Count; i++)
{
IrfTable.CurrentIndex = i;
DataRow dr = dt.NewRow();
dr["CARRID"] = IrfTable.GetString("CARRID");
dr["CONNID"] = IrfTable.GetString("CONNID");
dr["FLDATE"] = IrfTable.GetString("FLDATE");
textBox1.AppendText(IrfTable.GetString("CARRID")+IrfTable.GetString("CONNID")+IrfTable.GetString("FLDATE")+'\n');
dt.Rows.Add(dr);
}
}
private void label2_Click(object sender, EventArgs e)
{
}
private void label1_Click(object sender, EventArgs e)
{
}
}
}
执行效果：
1.首先进入sap系统
建立function
ZTEST_SIMPLE_02
源代码
data: maxprice1 like sflight-price.
DATA: LSBL3(10) . "临时变量3
data HS1 TYPE I.
DATA: l_msg(50).
TYPES: BEGIN OF tp_out.
TYPES: YGMC TYPE KNA1-NAME1.
TYPES: BM TYPE CSKT-KTEXT. "部门
TYPES: YFXJ TYPE ZFIT_GZYSJ01-SJ1. "应发小计
TYPES: END OF tp_out.
DATA:
gt_out TYPE TABLE OF tp_out WITH HEADER LINE.
DATA gt_wa like line of gt_out.
DATA: gt_outHB TYPE TABLE OF tp_out WITH HEADER LINE.
data wb type char20.
**********定义一个BDC内表***********************
DATA g_itb_bdcdata TYPE TABLE OF bdcdata.
DATA g_wa_bdcdata LIKE LINE OF g_itb_bdcdata.
data p_BUKRS LIKE ZFIT_GZYSJ02-BUKRS .
data p_GJAHR LIKE ZFIT_GZYSJ02-GJAHR .
data p_MONAT LIKE ZFIT_GZYSJ02-MONAT.
FUNCTION ZTEST_SIMPLE_02.
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*" VALUE(CARRID) LIKE SFLIGHT-CARRID
*" VALUE(CURRENCY) TYPE S_CURRCODE OPTIONAL
*" EXPORTING
*" VALUE(PRICE) TYPE S_PRICE
*" VALUE(MESSAGE) TYPE BUTXT
*" TABLES
*" AIRDATA STRUCTURE SFLIGHT
*" EXCEPTIONS
*" UNIT_NOT_FOUND
*"----------------------------------------------------------------------
select * from sflight into table airdata where carrid = carrid and currency = currency.
if sy-subrc <> 0.
raise unit_not_found.
else.
perform getmaxprice1 tables airdata.
price = maxprice1.
MESSAGE = l_msg.
endif.
ENDFUNCTION.
*&---------------------------------------------------------------------*
*& Form getmaxprice1
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->L_TAB text
*----------------------------------------------------------------------*
form getmaxprice1 tables l_tab structure sflight.
read table l_tab index 1.
maxprice1 = l_tab-price.
perFORM frm_post_fp.
endform. "getmaxprice1
*&---------------------------------------------------------------------*
*& Form frm_bdc_input
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P1 text
* -->P2 text
* -->P3 text
*----------------------------------------------------------------------*
FORM frm_bdc_input USING p1 p2 p3.
CLEAR g_wa_bdcdata.
IF p1 = 'X'.
g_wa_bdcdata-program = p2.
g_wa_bdcdata-dynpro = p3.
g_wa_bdcdata-dynbegin = p1.
APPEND g_wa_bdcdata TO g_itb_bdcdata.
ELSE.
g_wa_bdcdata-fnam = p2.
g_wa_bdcdata-fval = p3.
APPEND g_wa_bdcdata TO g_itb_bdcdata.
ENDIF.
ENDFORM. "frm_bdc_input
*&---------------------------------------------------------------------*
*& Form frm_post_fp
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM frm_post_fp.
p_BUKRS = '1000'.
p_GJAHR = '2009'.
p_MONAT = '10'.
DATA l_itb_message TYPE TABLE OF bdcmsgcoll.
DATA l_wa_message LIKE LINE OF l_itb_message.
DATA l_message TYPE char100.
DATA l_date TYPE bkpf-budat.
DATA l_wrbtr TYPE char16.
DATA l_str TYPE string.
DATA l_mode TYPE c VALUE 'N'.
* DATA l_mode TYPE c VALUE 'A'.
* DATA l_mode TYPE c VALUE 'E'.
DATA: l_datum TYPE datum.
CONCATENATE '这是用rfc处理的' p_MONAT '月的凭证' into wb.
l_datum+0(4) = p_GJAHR.
l_datum+4(2) = p_MONAT.
l_datum+6(2) = '15'.
IF GT_outhb[] IS INITIAL.
CLEAR:g_wa_bdcdata,g_itb_bdcdata.
*先设置科目编码
LSBL3 = '6601050000'."记住科目编码的状态变式非常重要
l_wrbtr = '100.00'.
PERFORM frm_bdc_input USING: 'X' 'SAPLF040' '0100',
'' 'BDC_OKCODE' '/00',
'' 'BKPF-BLDAT' l_datum,
'' 'BKPF-BLART' 'SA',
'' 'BKPF-BUKRS' p_BUKRS, "输入公司代码
'' 'BKPF-BUDAT' l_datum, "日期
'' 'BKPF-WAERS' 'RMB',
'' 'BKPF-BKTXT' wb , "文本抬头
'' 'VBKPF-XBWAE' 'X',
'' 'FS006-DOCID' '*'.
PERFORM frm_bdc_input USING: '' 'RF05V-NEWBS' '40'.
PERFORM frm_bdc_input USING: '' 'RF05V-NEWKO' LSBL3. "科目编码
PERFORM frm_bdc_input USING: 'X' 'SAPLF040' '0300',
'' 'BDC_OKCODE' '=ZK',
'' 'BSEG-WRBTR' l_wrbtr, "金额为文本格式
'X' 'SAPLKACB' '0
4000
002',
'' 'BDC_OKCODE' '/EESC',
'' 'BDC_CURSOR' 'COBL-KOSTL',
'X' 'SAPLF040' '0330',
'' 'BDC_CURSOR' 'BSEG-VBUND',
'' 'BDC_OKCODE' '=ZK',
'X' 'SAPLF040' '0300',
'' 'BDC_OKCODE' '=ZK',
'X' 'SAPLKACB' '0002',
'' 'BDC_OKCODE' '=ENTE',
'' 'COBL-KOSTL' '1000002' , "成本中心
'X' 'SAPLF040' '0330',
'' 'BDC_OKCODE' '=S+',
*按员工核算则BSEG-XREF2不为空
* '' 'BSEG-XREF2' gt_wa_out-kunnr.
'' 'BSEG-XREF2' ''.
PERFORM frm_bdc_input USING: '' 'RF05V-NEWBS' '50',
'' 'RF05V-NEWKO' '2211030101',
'X' 'SAPLF040' '0300',
'' 'BDC_OKCODE' '=AB',
'' 'BSEG-WRBTR' '*',
'X' 'SAPLKACB' '0002',
'' 'BDC_OKCODE' '=ENTE',
'X' 'SAPLF040' '0700',
'' 'BDC_CURSOR' 'BKPF-XBLNR',
'' 'BDC_OKCODE' '=PBBP'.
"break-point.
CALL TRANSACTION 'F-65' USING g_itb_bdcdata MODE l_mode MESSAGES INTO l_itb_message.
READ TABLE l_itb_message INTO l_wa_message WITH KEY msgtyp = 'S' msgid = 'FP' msgnr = '001'.
IF sy-subrc = 0.
CALL FUNCTION 'FORMAT_MESSAGE'
EXPORTING
id = l_wa_message-msgid
lang = '1'
no = l_wa_message-msgnr
v1 = l_wa_message-msgv1
v2 = l_wa_message-msgv2
v3 = l_wa_message-msgv3
v4 = l_wa_message-msgv4
IMPORTING
msg = l_msg
EXCEPTIONS
not_found = 1
OTHERS = 2.
* WRITE:/ l_msg.
ELSE.
LOOP AT l_itb_message INTO l_wa_message WHERE msgtyp = 'E' OR msgtyp = 'A'.
CALL FUNCTION 'FORMAT_MESSAGE'
EXPORTING
id = l_wa_message-msgid
lang = '1'
no = l_wa_message-msgnr
v1 = l_wa_message-msgv1
v2 = l_wa_message-msgv2
v3 = l_wa_message-msgv3
v4 = l_wa_message-msgv4
IMPORTING
msg = l_msg
EXCEPTIONS
not_found = 1
OTHERS = 2.
* WRITE:/ l_msg.
ENDLOOP.
ENDIF.
ELSE.
* WRITE:/ '没有需要结转的数据'.
ENDIF.
ENDFORM. " FRM_POST
2.然后进入c#vs2010系统
新建c#-项目
新建form2个label、1个textbox
form后台代码
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;
namespace WindowsFormsApplication1
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private void Form1_Load(object sender, EventArgs e)
{
RfcConfigParameters rfcPar = new RfcConfigParameters();
rfcPar.Add(RfcConfigParameters.Name, "dxx");
rfcPar.Add(RfcConfigParameters.AppServerHost, "11x.xs.ee.45");
rfcPar.Add(RfcConfigParameters.Client, "660");
rfcPar.Add(RfcConfigParameters.User, "FI2sd");
rfcPar.Add(RfcConfigParameters.Password, "734569");
rfcPar.Add(RfcConfigParameters.SystemNumber, "00");
rfcPar.Add(RfcConfigParameters.Language, "EN");
RfcDestination dest = RfcDestinationManager.GetDestination(rfcPar);
RfcRepository rfcrep = dest.Repository;
IRfcFunction myfun = null;
myfun = rfcrep.CreateFunction("ZTEST_SIMPLE_02");
myfun.SetValue("CARRID", "AA");//SAP里面的传入参数
myfun.SetValue("CURRENCY", "USD");//SAP里面的传入参数
myfun.Invoke(dest);
string ERMSG = myfun.GetValue("PRICE").ToString();
string message = myfun.GetValue("MESSAGE").ToString();
this.label1.Text = ERMSG;
this.label2.Text = message;
dest = null;
rfcrep = null;
IRfcTable IrfTable = myfun.GetTable("AIRDATA");
//提前实例化一个空的表结构出来
DataTable dt = new DataTable();
dt.Columns.Add("CARRID");
dt.Columns.Add("CONNID");
dt.Columns.Add("FLDATE");
for (int i = 0; i < IrfTable.Count; i++)
{
IrfTable.CurrentIndex = i;
DataRow dr = dt.NewRow();
dr["CARRID"] = IrfTable.GetString("CARRID");
dr["CONNID"] = IrfTable.GetString("CONNID");
dr["FLDATE"] = IrfTable.GetString("FLDATE");
textBox1.AppendText(IrfTable.GetString("CARRID")+IrfTable.GetString("CONNID")+IrfTable.GetString("FLDATE")+'\n');
dt.Rows.Add(dr);
}
}
private void label2_Click(object sender, EventArgs e)
{
}
private void label1_Click(object sender, EventArgs e)
{
}
}
}
执行效果：
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- c#调用COM组件
- C#实现把指定数据写入串口
- C#动态创建button的方法
- C#中抽象方法与虚拟方法的区别
- c#中虚函数的相关使用方法
- C#使用加边法计算行列式的值
- C#实现多线程的同步方法实例分析
- C#中尾递归的使用、优化及编译器优化
- C#实现子窗体与父窗体通信方法实例总结
- C#通用邮件发送类分享
- C#中this的用法集锦
- C#数据结构之顺序表(SeqList)实例详解
- C#.NET获取拨号连接的宽带连接方法
- C#异步绑定数据实现方法
- C#实现AddRange为数组添加多个元素的方法
- C#中Equality和Identity浅析
- C#比较二个数组并找出相同或不同元素的方法
- C#生成饼形图及添加文字说明实例代码
- C#判等对象是否相等的方法汇总
- RabbitMQ入门与使用篇 推荐