k3老单2次开发课件.pptVIP

二次开发简介 曹且根;提纲;二次开发所需环境及要点 ;序时薄二次开发 ;序时薄二次开发流程图 ;序时薄二次开发 ;序时薄二次开发 ;范例续 将按钮插入到工具栏 Delete From t_BandToolMapping where FBandID=52 and FToolID = 10002 and FID = 82 insert into t_BandToolMapping (FID,FBandID,FToolID,FSubBandID,FIndex,FComName,FBeginGroup) values (82,52,10002,0,65,|K3ListPlug.List,0) 在外购入库序时薄显示按钮(如果里面有|V,则只能在后面加菜单项) Update IclistTemplate set FLogicStr=FLogicStr+ Case When Right(FLogicStr,1)=| then V:FMenuPC else |V:FMenuPC end where FID =1 and not FLogicStr like %FMenuPC% ;数据元建好之后，再新建一个工程文件。如： 新建一个vb工程，命名为：ProListBill，在工程中新建一个类命名为：ListBill ;在类ListBill中添加以下代码;单据二次开发 ;其常用属性—续 6．Property Head As Object 单据表头控件，是一个KDText控件数组 7．Property Grid As Object 单据分录控件，为FpSpread控件 8．Property SumGrid As Object 单据分录合计控件， 为FpSpread控件 9．Property HeadCtl As Variant 对应表头控件数组，记录每个表头项目各属性的数组 如果要改变HeadCtl中的某个属性值，需先对HeadCtl做一个备份，然后修改此备份的相应属性值，再将此备份赋值给HeadCtl。 。 ;其常用属性—续 10．Property EntryCtl As Variant 对应分录各列，记录每个分录列各属性的数组 如果要改变EntryCtl中的某个属性值，需先对EntryCtl做一个备份，然后修改此备份的相应属性值，再将此备份赋值给EntryCtl 11．Property SaveVect As KFO.Vector 二次开发外部数据存取接口。在录单过程中，用户可将某些数据保存在此Vector中，在单据保存时，再通过二次开发中间层组件，将此Vector中的数据保存到指定位置。 SaveVect.Item(1) 为一个KFO.Dictionary对象 该对象包含以下四个系统数据 SaveVect.Item(1).Value(FInterID)：单据内码 SaveVect.Item(1).Value(FTransType) ：单据事务类型 SaveVect.Item(1).Value(ISRedBill) ：是否红字单据 SaveVect.Item(1).Value(BillChecked) ：是否审核。;常用的方法 Function AddUserMenuItem(ByVal Caption As String, [ByVal RootMenuCaption As String = ]) 说明：添加一个用户自定义菜单项，系统一共预设了五个菜单项供二次开发使用 参数：Caption:菜单名称 RootMenuCaption:根菜单名称。缺省为“自定义菜单” 2．Function GetGridText(ByVal Row As Long, ByVal Col As Long) As String 说明：获取分录某单元格的值 参数：Row:分录行,Col:分录列 3．Function GetHeadNumber(ByVal CtlIndex As Long) As String 说明：获取表头某项的代码 参数：CtlIndex:表头控件索引 ?4．Function GetHeadText(ByVal CtlIndex As Long) As String 说明：获取表头某项的文本 参数：CtlIndex:表头控件索引;单据二次开发 ;常用的方法—续 7．Function SetHead(ByVal Index As Long, ByVal Value, [ByVal InterID As Long = 0], [ByVal sName As String = ])