在Visual Studio中编写Epicor10的BPM代码
目录
- 1.搭建Visual Studio编写BPM的环境
- 2.编写BPM代码
- 3.BPM代码例子
- 4.复制代码到BPM控件中
- 5.BPM调试
1.搭建Visual Studio编写BPM的环境
a.共享或复制服务端Server文件
BPM是运行在Epicor服务器上的,因此编写BPM代码是需要服务端文件支持的,
所以需要把服务端Server文件夹共享或复制到编程的电脑上,使其能够访问,服务端文件路径如下:
b.引用编写BPM所需要的文件
在VS中新建一个类库项目,并引用编写BPM所需要的文件,文件列表如下图所示,
这些文件可以在Server目录下的Assemblies和Bin文件夹中找到.
因为Ice.Data.Model文件会在APP服务Regenerate Data Model后重新生成,
所以如果你是复制文件到编程的电脑上,需要在APP服务Regenerate Data Model后,重新复制Ice.Data.Model文件,
否则新添加的UD字段,在使用时会提示错误.
添加完文件后,编码环境就已经基本搭建好,我们就可以编写BPM代码了.
2.编写BPM代码
a. 新建类和方法.
我们最终需要把代码复制到Epicor的BPM客制代码控件里面,
所以VS中的类名和方法名称自己随便定义,方便自己查看就好.
b. 定义BPM中的变量
BPM中有些变量是可以直接使用的(如Db,Session,对应的tt表等),而VS环境中是没有的,
所以这就需要在方法外面定义BPM中的可以使用变量,如下面的代码.
public class Class1
{
Erp.ErpContext Db=new Erp.ErpContext();
Session Session = new Session("","");
public void TestFun() {
}
}
c. 添加代码中需要服务端BO文件
如下图所示,我添加了生成总账凭证所需要的两个BO文件.
3.BPM代码例子
下面是根据UD30表中维护的数据,生成总账凭证并过账的代码例子.
using System;
using System.Linq;
using Ice.Tables;
using System.Data.Entity.Core.Objects;
using Ice;
using System.Data;
namespace BPM
{
public class Class1
{
//定义BPM中已有的变量,方便在方法中使用
Erp.ErpContext Db = new Erp.ErpContext();
ObjectSet<UD30> ttUD30 = new Erp.ErpContext().UD30;
public void Approved()
{
foreach (var ttUD30Row in ttUD30)
{
//UD30表用于存储业务数据,当批核状态为Approved时,生成总账凭证
string ApprovalStatus_c = ttUD30Row.ApprovalStatus_c;
if (ApprovalStatus_c == "Approved")
{
//过去Company表中配置好的科目段落值
string InterGLNatureAcc = (from Company_Row in Db.Company
where (Company_Row.Company1 == ttUD30Row.Company)
select Company_Row.InterGLNatureAcc_c).FirstOrDefault();
if (string.IsNullOrEmpty(InterGLNatureAcc))
{
throw new Ice.BLException("Inter GL Nature account is empty in company configuration!");
}
string SourceP = ttUD30Row.SourceP_c;
string SourceT = ttUD30Row.SourceT_c;
string TargetP = ttUD30Row.TargetP_c;
string TargetT = ttUD30Row.TargetT_c;
decimal TranAmount = ttUD30Row.TranAmount_c;
using (var txScope = IceContext.CreateDefaultTransactionScope())
{
string groupID = "I" + DateTime.Now.ToString("yyyyMMdd");//生成凭证GroupID
var svc = Ice.Assemblies.ServiceRenderer.GetService<Erp.Contracts.GLJrnGrpSvcContract>(Db);
Erp.Tablesets.GLJrnGrpTableset ds = new Erp.Tablesets.GLJrnGrpTableset();
//新建凭证群组
svc.GetNewGLJrnGrp(ref ds);
Erp.Tablesets.GLJrnGrpRow glJrnGrpRow = ds.GLJrnGrp.LastOrDefault();
glJrnGrpRow.GroupID = groupID;
glJrnGrpRow.JournalCode = "GJ";
svc.Update(ref ds);
var svc1 = Ice.Assemblies.ServiceRenderer.GetService<Erp.Contracts.GLJournalEntrySvcContract>(Db);
Erp.Tablesets.GLJournalEntryTableset ds1 = new Erp.Tablesets.GLJournalEntryTableset();
//在凭证群组下添加凭证
svc1.GetNewGlJrnHedTran(ref ds1, groupID);
Erp.Tablesets.GLJrnHedRow glJrnHedRow = ds1.GLJrnHed.LastOrDefault();
glJrnHedRow.Description = "xxxxxxx";
bool requiresUserInput;
svc1.PreUpdate(ref ds1, out requiresUserInput);
svc1.Update(ref ds1);
string journalCode = glJrnHedRow.JournalCode;
int journalNum = glJrnHedRow.JournalNum;
DateTime? jEDate = glJrnHedRow.JEDate;
string legalNumber = glJrnHedRow.LegalNumber;
int fiscalYear = glJrnHedRow.FiscalYear;
int fiscalPeriod = glJrnHedRow.FiscalPeriod;
//生成第一条凭证明细记录
svc1.GetNewGLJrnDtlMnl(ref ds1, glJrnHedRow.BookID, glJrnHedRow.FiscalYear,
glJrnHedRow.FiscalYearSuffix, glJrnHedRow.JournalCode, glJrnHedRow.JournalNum, 0);
Erp.Tablesets.GLJrnDtlMnlRow glJrnDtlMnlRow1 = ds1.GLJrnDtlMnl.LastOrDefault();
glJrnDtlMnlRow1.GLAccount = InterGLNatureAcc + "||" + SourceP + "|" + SourceT;//拼接总账科目
glJrnDtlMnlRow1.SegValue1 = InterGLNatureAcc;//段落值
glJrnDtlMnlRow1.SegValue3 = SourceP;
glJrnDtlMnlRow1.SegValue4 = SourceT;
glJrnDtlMnlRow1.TotDebit = TranAmount;
svc1.ChangeGlAcct(1, ref ds1);
svc1.Update(ref ds1);
//生成第二条凭证明细记录
svc1.GetNewGLJrnDtlMnl(ref ds1, glJrnHedRow.BookID, glJrnHedRow.FiscalYear,
glJrnHedRow.FiscalYearSuffix, glJrnHedRow.JournalCode, glJrnHedRow.JournalNum, 0);
Erp.Tablesets.GLJrnDtlMnlRow glJrnDtlMnlRow2 = ds1.GLJrnDtlMnl.LastOrDefault();
glJrnDtlMnlRow2.GLAccount = InterGLNatureAcc + "||" + TargetP + "|" + TargetT;
glJrnDtlMnlRow2.SegValue1 = InterGLNatureAcc;
glJrnDtlMnlRow2.SegValue3 = TargetP;
glJrnDtlMnlRow2.SegValue4 = TargetT;
glJrnDtlMnlRow2.TotCredit = TranAmount;
svc1.ChangeGlAcct(2, ref ds1);
svc1.Update(ref ds1);
string NotAllPostedMessage;
//凭证过账
svc.PostGroupJournals(groupID, out NotAllPostedMessage);
//回写总账凭证数据到UD30表
UD30 UD30Row = (from UD30_Row in Db.UD30
where (UD30_Row.Company == ttUD30Row.Company
&& string.Compare(UD30_Row.Key1, ttUD30Row.Key1, true) == 0
&& string.Compare(UD30_Row.Key2, ttUD30Row.Key2, true) == 0
&& string.Compare(UD30_Row.Key3, ttUD30Row.Key3, true) == 0
&& string.Compare(UD30_Row.Key4, ttUD30Row.Key4, true) == 0
&& string.Compare(UD30_Row.Key5, ttUD30Row.Key5, true) == 0)
select UD30_Row).FirstOrDefault();
UD30Row.GroupID_c = groupID;
UD30Row.JournalCode_c = journalCode;
UD30Row.JournalNum_c = journalNum;
UD30Row.ApplyDate_c = jEDate;
UD30Row.LegalNumer_c = legalNumber;
Db.Validate();
txScope.Complete();
}
}
}
}
}
}
4.复制代码到BPM控件中
a.复制代码到到BPM控件中,点击"Check Syntax"按钮之后会发现一大串错误,这是因为在BPM控件中没有添加BO文件的引用
b.添加BO文件和命名空间
i.点击"Using & References…"按钮,如下图:
ii.点击"添加"按钮,筛选需要的BO文件
iii.如果在VS使用特殊的命名空间,需在如下图位置添加
c.添加BO文件和命名空间后,再次点击"Check Syntax"按钮,如果没有错误,会弹出"Syntax is OK"的提示.
5.BPM调试
Epicor官方BPM文档中有提到在VS中调试BPM代码,但是需要将VS安装在服务器上,这在大部分时候都不太可行
,所以我也就没有使用这种方法了.
我经常用的就是用PublishInfoMessage方法,弹出一个提示,然后根据提示来调试代码.
PublishInfoMessage方法参数如下:
PublishInfoMessage("YourMessage", Ice.Common.BusinessObjectMessageType.Information,
Ice.Bpm.InfoMessageDisplayMode.Individual, "YourBO", "YourMethod");
Epicor官方BPM文档