金蝶云星空拆分录二次开发

Posted 2021-01-21 zfangfang

有客户需求按照一定的规则将一条分录拆成多条分录，比如物料的数量是1400，那么按照数量500的标准来拆分录，那么需要将原来的分录拆成500,500,400这三条分录，之前使用的方法是用this.View.Model.CreateNewEntryRow("FT_BD_CUSTLOCATION")和this.View.Model.SetValue()来完成拆分录，这样需要添加的字段较多，但是依然能达到效果。问题是这样拆分录之后，单据的关联关系被破坏了，上查和下查都查不到关联的单据了，所以需要使用clone（）的方法来完成拆分录，示例代码如下：

DynamicObject obj = this.View.Model.DataObject as DynamicObject;//构建整个单据的数据包
Entity entity = this.View.BusinessInfo.GetEntity("FTreeEntity");//构建单据体数据包
DynamicObjectCollection entityrows = entity.DynamicProperty.GetValue(obj) as DynamicObjectCollection;//构建单据行数据包

DynamicObject EntryRow = entityrows[i].Clone() as DynamicObject;//克隆单据体的第i行

EntryRow["Seq"] = Seq;//给单据行的具体字段进行赋值
EntryRow["RowId"] = System.Guid.NewGuid().ToString();
entityrows.Add(EntryRow);//将克隆出来的新行添加到单据体数据包中

 

用这种方式做的拆单功能不会破坏单据的转换关系，上查下查都没有问题！