【www.bbyears.com--设计基础】
大型.NET ERP系统 单据标准(新增,修改,删除,复制,打印)功能程序设计
ERP系统的单据具备标准的功能,这里的单据可翻译为Bill,Document,Entry,具备相似的工具条操作界面。通过设计可复用的基类,子类只需要继承基类窗体即可完成单据功能的程序设计。先看标准的销售合同单据界面:
本篇通过销售合同单据功能,依次讲解编程要点,供参考。
1 新增 Insert
窗体有二种状态,一种是编辑状态,别一种是数据浏览状态,区别在于编辑状态的窗体数据被修改(dirty),在窗体关闭时需要保存数据。点击工具条的新增(Insert)按钮,窗体进入编辑状态。新增状态需要对窗体所编辑的单据设置默认值。一般我们在实体映射文件中设置默认值,参考下面的例子代码:
public partial class SalesContractEntity { protected override void OnInitialized() { base.OnInitialized(); // Assign default value for new entity if (Fields.State == EntityState.New) { #region DefaultValue // __LLBLGENPRO_USER_CODE_REGION_START DefaultValue this.Fields[(int) SalesContractFieldIndex.Closed].CurrentValue = false; // __LLBLGENPRO_USER_CODE_REGION_END #endregion } } }
也可以考虑在窗体中做默认值设定。当遇到这样一种场景,两个功能对应同一个实体类型,则需要在界面中根据需要初始化值,参考下面的程序片段。
protected override EntityBase2 Add() { base.Add(); this._inventoryMovement = new InventoryMovementEntity(); this._inventoryMovement.TranType = GetStringValue(InventoryTransactionType.Movement); return this._inventoryMovement; }
2 保存 Save
窗体基类检测到界面中的控件值被修改过,窗体状态变为编辑状态,点击保存按钮执行保存方法。保存方法的主要内容是将数据源控件(BindingSource)所绑定的控件值更新到它映射的实体中,再调用窗体保存方法保存实体。
protected override EntityBase2 Save(EntityBase2 entityToSave, EntityCollection entitiesToDelete) { SalesContractEntity SalesContractEntity = (SalesContractEntity)entityToSave; this._salesContractEntity = this._salesContractEntityManager.SaveSalesContract( SalesContractEntity, entitiesToDelete, SeriesCode); return this._salesContractEntity; }
entityToSave是数据源控件绑定的实体类型,在保存完成后,这个值再次绑定到数据源控件中。
3 删除 Delete
窗体只有在浏览状态时,才可以点击删除按钮,删除按钮的内容是获取窗体数据源控件绑定的实体,调用窗体删除方法。
protected override void Delete(EntityBase2 entityToDelete) { base.Delete(entityToDelete); SalesContractEntity SalesContractEntity = (SalesContractEntity)entityToDelete; this._salesContractEntityManager.DeleteSalesContract(SalesContractEntity); }
对实体的任何操作,都会跑实体验证类型,比如在保存时,需要验证主键值是否已经保存过,参考下面的代码。
public override void ValidateEntityBeforeSave(IEntityCore involvedEntity) { base.ValidateEntityBeforeSave(involvedEntity); SalesContractEntity salesContract = (SalesContractEntity)involvedEntity; if (string.IsNullOrEmpty(salesContract.ContractNo)) throw new EntityValidationException("Contract No. is required"); if (string.IsNullOrEmpty(salesContract.CustomerNo)) throw new EntityValidationException("Customer No. is required"); if (salesContract.IsNew) { ISalesContractManager salesContractManager = CreateProxyInstance(); if (salesContractManager.IsSalesContractExist(salesContract.ContractNo)) throw new RecordDuplicatedException(salesContract.ContractNo, "Cotract No. is already used"); } }
4 复制 Clone
窗体支持两种复制方法,复制当前加载的值,复制其它对象的值。对象值复制完成后,需用重置新的对象的主键值,让它为空或是为默认值,供用户修改。复制其它对象的值需要弹出对象选择窗体。这两种复制都需要注意复制完后,重置对象初始化默认值。因为复制时采用的是深拷贝,没有跑对象初始化值。
protected override object Clone(DictionaryrefNo) { base.Clone(refNo); string receiptRefNo; refNo.TryGetValue("ContractNo", out receiptRefNo); if (string.IsNullOrEmpty(receiptRefNo)) { using (ILookupForm lookup = GetLookupForm("SalesContractLookup")) { if (!AllowViewAllTransaction) lookup.PredicateBucket = new RelationPredicateBucket(SalesContractFields.CreatedBy == Shared.CurrentUser.UserId); lookup.SetCurrentValue(CurrentRefNo); if (lookup.ShowDialog() != DialogResult.OK) return null; receiptRefNo = lookup.GetFirstSelectionValue(); } } if (!string.IsNullOrEmpty(receiptRefNo)) { this._salesContractEntity = this._salesContractEntityManager.CloneSalesContract(receiptRefNo); return this._salesContractEntity; } return null; }
注意到这些方法全部是以override重写的方式出现,被基类调用。每个方法都运行在后台线程控件BackgroundWorker线程中,所以都不能操作界面控件。
5 记录浏览 Record Navigator
主要用于工具条的前四个按钮,分别对应第一笔数据,前一笔数据,下一笔数据,最后一笔数据。工具条浏览需要设定窗体的NavigateBindingSource属性,传入一个空白的BindingSource控件或是一个装载页面所有数据的BindingSource控件,工具条浏览方法重写参考下面的程序片段。
protected override void InitNavigator(InitNavigatorArgs args) { base.InitNavigator(args); args.SortExpression.Add(SalesContractFields.ContractNo | SortOperator.Ascending); args.PredicateBucket.PredicateExpression.Add(SalesContractFields.Closed == false); }
6 记录过帐 Record Post
主要用于业务单据过帐逻辑,基类的方法为空方法,不同的业务单据有不同的逻辑定义,没有可复用的代码。
protected override void Post(EntityBase2 entityToPost) { base.Post(entityToPost); SalesContractEntity resignEntity = entityToPost as SalesContractEntity; _salesContractEntityManager.PostSalesContract(resignEntity); }
这里的过帐可以理解为确认,批核,不可更改的意思。在有些系统中叫送审,审核。
7 打印 Print
一般在设计视图绑定当前窗体对应的水晶报表文件以及要传入的参数。也可以通过重写打印方法传入传数值。
protected override void Print(ref DictionaryselectionFormulas, ref List formulaFields, ref List parameterFields) { base.Print(ref selectionFormulas, ref formulaFields, ref parameterFields); }
重写方法常用于动态指定报表文件,或是动态的参数值。不推荐在代码中这样写,这样做导致每次都需要重新编译和分发程序,推荐在水晶报表中做公式,在分发时只需要拷贝文件即可。
大型.NET ERP系统 单据编码功能实现
单据编码是ERP系统中必备的功能,用于生成各种单据的流水号,常常借助于日期时间等字符来生成一个唯一的单据号码。从软件的角度来说,就是为生成数据表的主键值(参考编号),从用户的角度来说,就是给业务单据制定编码规范。之后做到见名知意,比如销售订单号是SO201508190001,采购订单号码是PO201508190001。
1 基础单据编码 Document serialization basic
单据编码主表,用于存放单据及其编码规则。
CREATE TABLE [dbo].[DocumentSerialization]( [SeriesCode] [NVARCHAR](8) NOT NULL, [Description] [NVARCHAR](40) NOT NULL, [Suspended] [NVARCHAR](1) NULL, [SerialLength] [DECIMAL](2, 0) NULL, [PrefixLength] [DECIMAL](2, 0) NULL, [Prefix] [NVARCHAR](12) NULL, [NextSeqNo] [DECIMAL](10, 0) NULL, [AllowOverride] [NVARCHAR](1) NULL, [CreatedDate] [DATETIME] NULL, [CreatedBy] [NVARCHAR](10) NULL, [RevisedDate] [DATETIME] NULL, [RevisedBy] [NVARCHAR](10) NULL, [WithReset] [NVARCHAR](1) NULL, [PrevResetDate] [DATETIME] NULL, [PrefixDefault] [NVARCHAR](12) NULL, CONSTRAINT [PK_DocumentSerialization] PRIMARY KEY CLUSTERED ( [SeriesCode] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] GO
举例说明,这些字段值的含义。
SeriesCode Description Suspended SerialLength PrefixLength Prefix NextSeqNo
SLSOSC Sales Order Cancellation N 12 6 SC@Y@M 55
SLSOSO Sales Order Entry N 12 6 SO@Y@M 4
SLSOSQ Sales Quotations Processing N 12 6 SQ@Y@M 2
处理销售订单功能SLSOSO,它的单据编码总长度是12,序号前缀长度是6,序号前缀规则是SO@Y@M,@Y表示两位数的年,@M表示两位数的月份,下一个单据编码流水号是4,所以当产生处理销售订单的单据编码时,它是SO1508000004。
2 宏处理 Macro
有时候我们需要根据情况选择一种或多种序列号生成方式,在生成序号的时候弹出窗体,让我们选择要哪一种前缀编码方案,比如采购订单的编码规则,有时候是PO201508180001,有时候是OE201508180001,它们的前缀(Prefix)是不一样的。为达到这种目的,我们给DocumentSerialization增加子表。
CREATE TABLE [dbo].[DocumentSerializationDetail] ( [Index] [int] NOT NULL, [SeriesCode] [nvarchar] (8) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL , [Prefix] [varchar] (12) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL, [TextPattern] [varchar] (12) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL CONSTRAINT , [NextSeqNo] [decimal] (10, 0) NULL, [CreatedDate] [datetime] NULL, [CreatedBy] [varchar] (10) COLLATE SQL_Latin1_General_CP1_CI_AS NULL, [RevisedDate] [datetime] NULL, [RevisedBy] [varchar] (10) COLLATE SQL_Latin1_General_CP1_CI_AS NULL, [Suspended] [varchar] (1) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ) ON [PRIMARY] GO ALTER TABLE [dbo].[DocumentSerializationDetail] ADD CONSTRAINT [PK_DocumentSerializationDetail] PRIMARY KEY CLUSTERED ([Index], [SeriesCode]) ON [PRIMARY] GO ALTER TABLE [dbo].[DocumentSerializationDetail] ADD CONSTRAINT [FK_DocumentSerializationDetail_DocumentSerialization] FOREIGN KEY ([SeriesCode]) REFERENCES [dbo].[DocumentSerialization] ([SeriesCode]) GO
参考下面的数据例子来理解这个表的含义:
SeriesCode Prefix TextPattern NextSeqNo
SLSOSO ??@Y@M PO 9
SLSOSO ??@Y@M OE 17
使用问号作为占位符,在运行时弹出窗体让用户选择哪一种单据编码方案,用户选择PO,则生成PO201508前缀的采购订单编码,如用户选择OE,则生成OE201508前缀的采购订单编码。
为了加深对占位符号的理解,举例说明以下几种情况。
1 前缀定义值是 ??ABC,用户选择XY,则返回前缀结果XYABC。
2 前缀定义???ABC,用户选择XY,返回结果前坠XY_ABC,对于不多余的占位符号用下划线替代。
3 前缀定义@D@M@YABC,当前日期是2015年8月19日,则生成的前缀值是150819ABC。
3 基于用户的需要编码方案 User-based document serialization
有时候不同的用户有不同的单据编码规则,我们需要依照用户来创建编码规则。先创建数据库。
CREATE TABLE [dbo].[DocumentSerializationUser] ( [Index] [int] NOT NULL, [SeriesCode] [nvarchar] (8) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL , [UserId] nvarchar(10) NOT NULL COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL , [Prefix] [varchar] (12) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL, [TextPattern] [varchar] (12) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL CONSTRAINT , [NextSeqNo] [decimal] (10, 0) NULL, [CreatedDate] [datetime] NULL, [CreatedBy] [varchar] (10) COLLATE SQL_Latin1_General_CP1_CI_AS NULL, [RevisedDate] [datetime] NULL, [RevisedBy] [varchar] (10) COLLATE SQL_Latin1_General_CP1_CI_AS NULL, [Suspended] [varchar] (1) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ) ON [PRIMARY] GO
这个表也是序号编码DocumentSerialization的子表,主键增加了用户编码字段UserId,记录每个用户要编码规则。
在系统中,优先使用基于用户的编码规则,其次是宏替换处理,最后才是应用基础的编码规则。
4 并发处理 Concurrency
当两个并发用户同时创建或保存一张同样的业务单据时,系统会返回两个相同的单据编码,产生了并发问题。
A 方案
打开业务功能时,立即为当前单据创建单据编码,比如产生单据编码SO15080004,在单据保存时,发现这张单据编码被其它的用户使用过,则重新产生一个新的业务单据编码SO15080005,如有发现此编码仍然被占用,依此向下搜寻,直到找到可以保存的单据编码。
这种方案的优点是总是可以保存单据,缺点是界面中看到的单据编码,不一定是最终保存的单据编码。
B 方案
打开业务功能时,不产生单据编码,只有在单据保存时才产生单据编码。避免了单据并发冲突。
这种方案优点是没有并发冲突,缺点是只有单据保存之后才可以看到单据编码。
5 编码规则程序设计 Document serialization programming
在单据保存时,调用接口产生编码规则,参考下面的程序片段。
EcnEntity ecn..... if (ecn.IsNew && seriesCode != string.Empty) { IDocumentSerializationManager serializationManager =ProxyInstance(); ecn.EcnNo = serializationManager.GetNextSerialNo(sessionId, seriesCode, ecn.EcnNo, ecn); }
如果业务单据的实体保存时发生异常,则需要重置用户编码,清除产生的序号编码。
catch { adapter.Rollback(); if (ecn.IsNew && string.CompareOrdinal(ecn.EcnNo, currentRefNo) != 0) { try { ecn.EcnNo = currentRefNo; serializationManager.ResetNextSequenceNo(seriesCode); } catch { } } throw; }
6 固定编码规则 Fixed document serialization
以上实现了基于流水号的单据编码规则,如果单据的编码规则相对固定,则以上方法行不通。请先阅读下面的需求说明:
接到客户订单,订立合同编号:HT201508003;接着做合同评审,产生一个合同评审单号PS201508003;合同评审通过以后,再到ERP系统中做销售单,销售单号是XSD201508003;如果一个合同分三个销售订单下单,则会分别产生XSD201508003-01,XSD201508003-02,XSD201508003-03 三个销售订单号。继续为销售订单发货,销售订单XSD201508003所产生的发货单号应该是XSFH201508003,如果销售订单XSD201508003分三次发货,则依次产生的三张销售发货单号是XSFH201508003-01,XSFH201508003-02,XSFH201508003-03。
销售合同
合同评审
销售订单
销售发货
备注
HT201508003
PS201508003
一张销售订单
XSD201508003
三张销售订单
XSD201508003-01
XSD201508003-02
XSD201508003-03
一张销售发货单
XSFH201508003
二张销售发货单
XSFH201508003-01
XSFH201508003-02
单据编号201508003从销售合同到销售发货都是同一个单据号,只是编码前缀不同。
单据编号201508003从销售合同到销售发货都是同一个单据号,只是编码前缀不同。
这种编码方案要求一个单据号码贯穿整个流程,单据编号从起始点业务单据传递到最终业务单据,仅仅是前缀不同。
要实现这种固定格式的单据编码,需要对流转的每个单据进行编程处理,业务单据也应该有固定的下推流程,做不到通用性,但是优点是很明显的,一个号码贯穿整个业务单据,非常清晰明了。