#携带应收单明细的自定义字段（产品、项目等信息到收款计划）importclrclr.AddReference('System')clr.AddReference('Kingdee.BOS')clr.AddReference('Kingdee.BOS.Core')clr.AddReference('Kingdee.BOS.DataEntity')fromSystemimport*fromSystem.Collections.Genericimport*fromKingdee.BOS.Core.Bill.PlugInimport*fromKingdee.BOS.Core.DynamicFormimport*fromKingdee.BOS.Orm.DataEntityimport*fromKingdee.BOS.Core.DynamicForm.PlugIn.Argsimport*fromKingdee.BOS.Utilimport*fromKingdee.BOS.Core.DynamicForm.PlugIn.ControlModelimport*fromSystemimportDateTimedefCreatePlanData():entryDC=this.View.Model.DataObject["AP_PAYABLEENTRY"]this.View.Model.DeleteEntryData("FEntityPlan")dt=DateTime.Parse(str(this.Model.GetValue("FDATE")))ct=entryDC.Countforiinrange(0,ct):this.Model.CreateNewEntryRow("FEntityPlan")#到期日this.View.Model.SetValue("FENDDATE",str(dt.AddDays(i)),i)#this.View.Model.SetValue("FENDDATE",this.Model.GetValue("FDATE"),i)#应付比例this.View.Model.SetValue("FPAYRATE",100,i)#应付金额this.View.Model.SetValue("FPayAmountFor",this.Model.GetValue("FALLAMOUNTFOR_D",i),i)#应付金额本位币this.View.Model.SetValue("FPayAmount",this.Model.GetValue("FALLAMOUNTFOR_D",i),i)#不含税金额this.View.Model.SetValue("F_ora_Amount",this.Model.GetValue("FNoTaxAmountFor_D",i),i)#税额this.View.Model.SetValue("F_ora_Amount1",this.Model.GetValue("FTAXAMOUNTFOR_D",i),i)#税率this.View.Model.SetValue("F_ora_Decimal",this.Model.GetValue("FEntryTaxRate",i),i)#价税合计this.View.Model.SetValue("F_ora_Amount2",this.Model.GetValue("FALLAMOUNTFOR_D",i),i)#项目this.View.Model.SetValue("F_ora_Assistant",this.Model.GetValue("F_PAEZ_xm",i),i)#产品this.View.Model.SetValue("F_ora_Assistant1",this.Model.GetValue("F_PAEZ_cp",i),i)#城市this.View.Model.SetValue("F_ora_Assistant2",this.Model.GetValue("F_PAEZ_CS",i),i)#区域this.View.Model.SetValue("F_ora_Assistant3",this.Model.GetValue("F_PAEZ_QY",i),i)#发票类型this.View.Model.SetValue("F_ora_Combo",this.Model.GetValue("F_PAEZ_FPLX",i),i)#备注this.View.Model.SetValue("F_ora_Text",this.Model.GetValue("FComment",i),i)this.View.UpdateView("FEntityPlan")defDataChanged(e):ife.Field.Key.Equals("FALLAMOUNTFOR",StringComparison.OrdinalIgnoreCase):CreatePlanData()elife.Field.Key.Equals("F_PAEZ_xm",StringComparison.OrdinalIgnoreCase):CreatePlanData()elife.Field.Key.Equals("F_PAEZ_cp",StringComparison.OrdinalIgnoreCase):CreatePlanData()elife.Field.Key.Equals("F_PAEZ_CS",StringComparison.OrdinalIgnoreCase):CreatePlanData()elife.Field.Key.Equals("F_PAEZ_QY",StringComparison.OrdinalIgnoreCase):CreatePlanData()elife.Field.Key.Equals("F_PAEZ_FPLX",StringComparison.OrdinalIgnoreCase):CreatePlanData()elife.Field.Key.Equals("FComment",StringComparison.OrdinalIgnoreCase):CreatePlanData()defAfterCreateNewData(e):CreatePlanData()
