插件开发技术说明(15)---单据处理编程模式

以CSale为例说明.

1.定义单据类

包括主表类和明细类.

#include "RecordsetBinder.h" ///< BIND_DECLARE,...class CSale:public CSheet{public:CSale():CSheet(2050) {}CSale(SLIC_SHEETID sheet_id):CSheet(2050,sheet_id) {}public:static int Init();BIND_DECLARE(CSale)};

.单据类实现2个构造函数.***注意要初始化单据类成员变量.上述代码略.
.增加BIND_DECLARE(CSale),宏BIND_DECLARE定义与绑定有关的静态成员和方法.
.单据类实现文件中声明变量,字段绑定信息初始化.

CRecordsetBindObject<CSale> CSale::binder_;CRecordsetBindObject<CSale::CSaleDetail> CSale::CSaleDetail::binder_;/////////////////////////////////////////////////////////////////////////////CFieldBind CSale::fld_bind_[] = {FIELD_BIND3(CSale,sheet_id_,"SheetID",true),FIELD_BIND1(CSale,eid_,"EId"),FIELD_BIND1(CSale,co_eid_,"CoEId"),FIELD_BIND1(CSale,ref_sheet_id_,"RefSheetId"),FIELD_BIND1(CSale,user_id_,"UserId"),FIELD_BIND1(CSale,stock_id_,"StockId"),FIELD_BIND1(CSale,group_id_,"GroupId"),FIELD_BIND1(CSale,dept_id_,"DeptId"),FIELD_BIND1(CSale,send_type_,"SendType"),FIELD_BIND1(CSale,disc_value_,"DiscValue"),FIELD_BIND1(CSale,crm_value_,"CrmValue"),FIELD_BIND1(CSale,pay_type_,"PayType"),FIELD_BIND1(CSale,pur_flag_,"PurFlag"),FIELD_BIND1(CSale,pur_value_,"PurValue"),FIELD_BIND1(CSale,delivery_date_,"DeliveryDate"),FIELD_BIND1(CSale,delivery_address_,"DeliveryAddress"),FIELD_BIND1(CSale,contact_,"Contact"),FIELD_BIND1(CSale,contact_mobile_,"ContactMobile"),FIELD_BIND1(CSale,notes_,"Notes"),FIELD_BIND1(CSale,status_,"Status"),FIELD_BIND1(CSale,del_flag_,"DelFlag"),FIELD_BIND1(CSale,operator_,"Operator"),FIELD_BIND1(CSale,creator_,"EditOr"),FIELD_BIND1(CSale,create_time_,"EditDate"),FIELD_BIND1(CSale,from_id_,"FromId"),};CFieldBind CSale::CSaleDetail::fld_bind_[] = {FIELD_BIND1(CSale::CSaleDetail,eid_,"EId"),FIELD_BIND1(CSale::CSaleDetail,sheet_id_,"SheetID"),FIELD_BIND1(CSale::CSaleDetail,line_num_,"LineNum"),FIELD_BIND1(CSale::CSaleDetail,goods_id_,"GoodsId"),FIELD_BIND1(CSale::CSaleDetail,barcode_,"Barcode"),FIELD_BIND1(CSale::CSaleDetail,stype_,"SType"),FIELD_BIND1(CSale::CSaleDetail,icolor_,"IColor"),FIELD_BIND1(CSale::CSaleDetail,isize_,"ISize"),FIELD_BIND1(CSale::CSaleDetail,wp_rate_,"WPRate"),FIELD_BIND1(CSale::CSaleDetail,cost_,"Cost"),FIELD_BIND1(CSale::CSaleDetail,tax_rate_,"TaxRate"),FIELD_BIND1(CSale::CSaleDetail,bulk_price_,"BulkPrice"),FIELD_BIND1(CSale::CSaleDetail,pack_price_,"PackPrice"),FIELD_BIND1(CSale::CSaleDetail,old_bulk_price_,"OldBulkPrice"),FIELD_BIND1(CSale::CSaleDetail,old_bulk_price_,"OldBulkPrice"),FIELD_BIND1(CSale::CSaleDetail,bulk_qty_,"BulkQty"),FIELD_BIND1(CSale::CSaleDetail,pack_qty_,"PackQty"),FIELD_BIND1(CSale::CSaleDetail,pack_unit_qty_,"PackUnitQty"),FIELD_BIND1(CSale::CSaleDetail,promotion_sheetid_,"PromotionSheetID"),FIELD_BIND1(CSale::CSaleDetail,prefer_notes_,"PreferNotes"),FIELD_BIND1(CSale::CSaleDetail,disc_value_,"DiscValue"),FIELD_BIND1(CSale::CSaleDetail,gift_qty_,"GiftQty"),FIELD_BIND1(CSale::CSaleDetail,gift_flag_,"GiftFlag"),FIELD_BIND1(CSale::CSaleDetail,stk_qty_,"StkQty"),FIELD_BIND1(CSale::CSaleDetail,notes_,"Notes"),};/////////////////////////////////////////////////////////////////////////////int CSale::Init() {ISheetTypeInfo *sti = CDataEnv::env_->sheet_type_mgr_->Add(2050,"t_ven_sale","t_ven_saleitem",0);binder_.SetFieldBindInfo(&fld_bind_[0],sizeof(fld_bind_)/sizeof(fld_bind_[0]),false);CSale::CSaleDetail::binder_.SetFieldBindInfo(&CSale::CSaleDetail::fld_bind_[0],sizeof(CSale::CSaleDetail::fld_bind_)/sizeof(CSale::CSaleDetail::fld_bind_[0]),false);sti->SetBinder(&binder_,&CSale::CSaleDetail::binder_,0);return 0;}

CSale::Init()在插件的Initialize函数中调用.

int CSd::Initialize() {  parent::Initialize();CSale::Init();  return 0;}

如果需要,重载基类的函数:
如校验单据数据有效性.对明细进行合计.

public:    void AddDetail(CSheetDetail *pDetail,short index=0);int Check();

实现:

/////////////////////////////////////////////////////////////////////////////int CSale::Check() {return this->pur_value_ >= this->disc_value_;}/////////////////////////////////////////////////////////////////////////void CSale::AddDetail(CSheetDetail *pDetail,short index) {CSale::CSaleDetail *detail = (CSale::CSaleDetail*)pDetail;  detail->sale_ = this;  detail->line_num_ = details_.size()+1;  this->pur_value_ += detail->bulk_qty_*detail->bulk_price_;  this->pur_value_ += detail->pack_qty_*detail->pack_price_;  this->pack_qty_ += detail->pack_qty_;  details_[index]->push_back(detail);}

这样定义后，就具有了许多常用的功能.无需增加其它代码.

2.使用示例

2.1插入新单据

以下是iep_b处理EVENT_NEW_PURCHASE事件的代码.

EVENT_NEW_PURCHASE在slic_event.h中定义.

#define EVENT_NEW_PURCHASE7800/// 采购订单

代码：

////////////////////////////////////////////////////////////////////////////////int CIEPB::OnNewPurchase(CEvent *e) {vector<string> vs;CHECK_EVENT_REFER(e,vs,2,-1); ///< 事件主体unsigned int eid = atol(vs[0].c_str());unsigned __int64 sheet_id = _atoi64(vs[1].c_str());vector<string> vs2;CHECK_EVENT_PARA(e,vs2,1,-1); ///< 事件参数unsigned int co_eid = atol(vs2[0].c_str());mpm_ns::CPurchase purchase;int ret = purchase.Load(sheet_id); ///< 读入采购订单信息if (ret!=1)return ret;sd_ns::CSale sale;Purchase2Sale(purchase,sale); ///< 采购订单转销售单if (sale.ApplyID())return -1;if (sale.Insert()) ///< 插入订单return -1;return 0;}

sale.Insert调用的是CSheet的方法,不需要再对CSale编写代码.

2.2读入单据

读入指定的单据.
以下代码中的sale.Load加载整张单据,而用sale.Select则可以读所需的字段,减少开销.


下列代码是iep_b插件处理销售单状态改变的代码

////////////////////////////////////////////////////////////////////////////////int CIEPB::OnSaleStatusChanged(unsigned __int64 sheet_id,int status) {sd_ns::CSale sale;sale.sheet_id_ = sheet_id;int ret = sale.Select("purflag","refsheetid","fromid",0); ///< 仅读取所需要的字段//int ret = sale.Load(sheet_id); ///< 加载整张单据if (ret==-1)return -1;if (ret==0) {/// ==0无此单据return 0;}if (sale.ref_sheet_id_==0) ///< return 0;if (sale.pur_flag_==0) {COrder order;order.sheet_id_ = sale.ref_sheet_id_;if (order.UpdateStatus(status))return -1;}else if (sale.pur_flag_==1) {CPurchase purchase;purchase.sheet_id_ = sale.ref_sheet_id_;if (purchase.UpdateStatus(status))return -1;}return 1;}

3.优化内容

。对象与字段绑定：可大幅降低代码量,并降低开销,提高处理性能
(1)统一字段映射：
此前CRecordsetBindObject和ITableHandler分别执行绑定,分别对应查询和插入/修改/更新操作.
查询时,         

    CRecordsetBindObject<CSale> binder;    binder.BindRecordset(prs);    binder.BindField(NEW_FIELD_BIND(CSale,ORM_FIELD_TYPE_ULONG,0,eid_,"EId"));

插入/修改/更新时:               

    ITableHandler *th = CDataEnv::env_->db_helper_->NewTableHandler(pdbor,"t_Ven_SaleItem");    AUTO_POINTER_NODECLARE(ITableHandler,th);    th->BindField("Eid",(char**)&this->eid_,sizeof(this->eid_));    

(2)预绑定：不需要再运行时每次进行绑定，减少cpu开销，提高处理速度    


。支持一主多从表：更复杂的结构以后扩展支持
。扩展单据基类CSheet,大幅降低单据业务处理的编程量,提高开发效率.
***已有的业务单据类实现若直接应用,可删除大量的代码.


。此模式可进一步延伸到非单据类，初步思路:
orm_helper.h中定义CORM类，承接CSheet中的若干功能.非单据类从CORM派生。

3.附：相关实现代码

3.1CSheet虚函数

virtual CRecordsetBindObjectBase* GetBinder() { return 0; }virtual CRecordsetBindObjectBase* NewBinder(const char *fld,...) { return 0; }virtual CRecordsetBindObjectBase* NewBinder(const char *fld,va_list arg) { return 0; }///< 检查对象数据是否有效///< @return -1:错误 0:无效 1:有效virtual int Check() { return 1; }        virtual int ApplyID(); ///< 生成单据编号/// @return 0-成功 -1-失败 1-存在主键冲突virtual int Insert(short on_dup_error=2); ///< on_dup_error 忽略-1，按错误处理-2,更新-3 virtual int Update(short inc_detail); ///< 修改单据 inc_detail:是否更新明细virtual int Update(const char *fld,...); ///< 修改指定的单据字段virtual int Select(const char *fld,...); ///< 查询指定的单据字段virtual int Delete(); ///< 删除单据virtual int DeleteDetail(); ///< 删除明细virtual void ClearDetail(short index=0);virtual void ClearAllDetail();virtual void AddDetail(CSheetDetail *pDetail,short index=0);virtual int Load(SLIC_SHEETID sheet_id,bool load_detail=true); ///< 加载单据信息virtual int LoadDetail(); ///< 加载明细信息    virtual int Save(); ///< 保存单据    virtual int UpdateStatus(int nStatus);

其中,Save是兼容性保留,待废弃. 

int Update(const char *fld,...)暂未实现.       

3.2BIND_DECLARE宏

 #define BIND_DECLARE(CLS) \static CFieldBind fld_bind_[];\static CRecordsetBindObject<CLS> binder_; \CRecordsetBindObjectBase* GetBinder() { return &binder_; }\CRecordsetBindObjectBase* NewBinder(const char *fld,va_list arg) { \CRecordsetBindObject<CLS>  *binder = new CRecordsetBindObject<CLS> ; \const char *p = fld;\while(p) { \CFieldBind* f = binder_.GetField(p); \binder->BindField(f); \p = va_arg(arg,const char *); \} \return binder; \}\CRecordsetBindObjectBase* NewBinder(const char *fld,...) { \va_list vl;\va_start(vl,fld);\CRecordsetBindObjectBase  *binder = NewBinder(fld,vl);\return binder;\}\