K3 ERP wise 老单开发手册(3)

@ U 该字段不能为空 该字段不能=0 1.该字段必须>0;2.该字〉 该字段必须〉某个值 1.>:0；2.>:Fqty 段>FQty ^ 该字段必须〉0 ^ 该字段必须〉0 该字段大于等于0并且小1.该字段必须>0;2.该字~ 1.~；2.~:Fqty;3.~:100 于某数或者某列的值 段

该字段不能为空 该字段不能=某个值 @ U：0 二、选单模版

1． ICSelbills：选单要取得哪些值，这些值是如何而来的，以及需回填到哪个对应

的控件里。 ICSelbills FID FFieldName FdstCtlField FselType 单据的模版ID 单据上可以选单的字段的字段名 回填的目标字段名 目标字段的类型：0 表示单据分录字段，2表示单据头字段，1表示该目标字段的当前值将会作为选单序时薄的过滤条件。 用于表头控件，表示对于同一个目标字段，该回填值是作为FID或Fname或Fnumber。 0：FID 1：Fname 2：Fnumber 源字段的别名 源字段名 源表名 源表别名 用于处理一些需对字段值进行判断，或需要在字段之间进行一些运算的情况。 FDK FcolName Fname FtableName FtableAlias Faction 注意事项：

单据头的字段如果有选单数据来源，则必须有三行，分别填入对应的ID,名称，代码。如果没有ID，代码，则随便传入一个数。而且这个顺序不能改变。

2．ICTableRelation：选单中涉及的所有表之间的连接关系。

ICTableRelation Ftypeid FinterID FtableName FtableNameAlias FfieldName Ftablename11 FtableNameAlias11 FfieldName11 Flogic FBillID FFieldID

选单的基本过程是：由当前录入的是哪一种单据，以及是在哪一个控件上进行选单（即需要选何种单据），得到选单模版号FID、FieldName。从ICSelbills和ICTableRelation中选出对应的模版信息，拼装成一个SQL语句，执行取得相应的记录集。再根据ICSelbills中的数据回填信息，将该记录集的值回填到对应的目标字段中。

用于序时薄模版 用于序时薄模版 表1名 表1的别名 表1的字段名 表2名 表2的别名 表2的字段名 表1和表2的两个字段之间的关系 选单模版号，与ICSelbills中的FID相对应 选单字段名，与ICSelbills中的FFieldName相对应

三，单据控制

1、ICBillNo

ICBillNo FBillID FBillName FPreLetter FSufLetter FCurNo FFormat FPos

2、ICMaxNum

ICMaxNum 单据ID，对应于ICTransactiontype中的FID 单据名称 前缀名 后缀名 当前单据序号 当前序号的格式 FTableName FMaxNum

表名 当前最大的FInterID 四，单据套打

1、GLNoteType：单据套打表，记录单据与套打编号的关系。

GLNoteType FTemplateID FnoteType FnoteTypeID

单据ID，对应于ICTransactiontype中的FTemplateID 单据套打名称 单据套打ID 2、GLNoteCitation：单据套打关系表，记录单据套打字段的属性。

GLNoteCitation FTemplateID FID FNoteTypeID Fcode FCitationName FIsEntry FIsMoney FCtlIndex FIsSum FKeyFieldName FExtFieldName FTableName FRelationID 当前字段的属性标识 1：表头 2：表体 3：汇总 4：扩展表头 5：主计量单位 6：主计量单位数量 7：主计量单位单价 8：扩展分录 单据ID，对应于ICTransactiontype中的FTemplateID 在同一单据套打模板中，作为唯一的序列号 套打ID，对应于GLNoteType中的FNoteTypeID 数据来源字段名 套打模板取数名称 当前字段是否是分录 当前字段是否是金额 当前字段在单据中的位置（已经没用） 当前字段是否要合计 扩展字段。表示要取FtableName表中的FextFieldName字段，通过FkeyFieldName字段与当前字段关联 相关说明：FRelationID与FIsEntry不同，FIsEntry是用来在套打定义中区分表头、表体（如：在表头栏里只显示表头字段、表体栏里只显示表体字段），FRelationID是套打在填充数值时，判断字段属性用的。

? 单据调用接口

一、 客户端调用接口

? 组件

K3Bills.Bill, K3Bills.Bills ? 方法

1) Public Property Let RemoteCnn(ByVal strCnn As String)

单据的远程SQL Server数据库连接字符串

2) Public Property Let LocalCnn(ByVal strCnn As String)

单据的本地 ACCESS 数据库连接字符串，主要用于套打

3) Public Property Let ListRecordset(ByVal rs As ADODB.Recordset)

由序时薄等进入单据时，将序时薄上显示的纪录作为一个Recordset传给单据。单据在实现上一条、下一条的浏览功能时，就根据该Recordset去移动与构造。

4) Public Property Let ListRSFieldVect(ByVal vData As KFO.Vector)

与ListRecordset相配套，主要用于说明该Recordset中哪个字段代表FinterID(单据内

码)，哪个字段代表FtranType（单据事务类型）。 ListRSFieldVect是包含若干KFO.Dictionary的一个KFO.Vector，每个Dictionary包含有两个值：FcolName和FISPrimary。

当FISPrimary=1时，对应的FcolName的值为单据内码字段名； 当FISPrimary=3时，对应的FcolName的值为单据事务类型字段名。

5) Public Property Let billValueChanged(ByVal ValueChanged As Boolean)

设置单据是否经过修改。

6) Public Property Get billValueChanged() As Boolean

返回单据是否经过修改，从而可确定显示时是否需刷新数据。

7) Public Property Let NewBillTransType(ByVal transtype As Long)

由序时薄新增单据时，新增单据的事物类型。

8) Public Sub SetOpt(ByVal ID As Long, Optional ByVal Name As String)

设置操作员的ID和Name。

9) Public Property Let TheSaleMode(ByVal vNew As Enu_SaleMode) 销售方式 内销 0；外销 1；

10) Public Property Let ShowForModeExt(ByVal vData As Integer)

单据显示状态。 有六种状态

0：ShowForSelectBill，新增单据 1：ShowForModifyBill，修改单据 2：ShowForViewBill，查看单据 3：ShowForCheckBill，审核单据 4：ShowForConveyBill，下达单据

5：ShowForPriceCal，核算时单据的单价金额修改

11) Public Sub Show( ByVal eBillCls As Enu_BillCls, ByVal ShowType As

Enu_ShowBillType) 显示想要调用的单据 EbillCls：单据的类型

Public Enum Enu_BillCls BillBuyReq = 100 采购申请单据 billBuyOrder = 101 采购订单 BillBuyRec = 102 采购收货单据 BillBuyCancel = 112 采购退货单据 BillBuyInvoice = 103 采购发票 BillCheckedInStock = 200 验收入库单据 BillSendMaterials = 201 领料发货单据 BillStockMove = 202 仓库调拨单据 BillStockAdjust = 204 库存调整单据 BillProductOrder = 207 生产订单 BillSellOrder = 300 销售订单 BillSellSendBackGoods = 311 销售退货单据 BillSellSendGoods = 301 销售发货单据 BillSellInvoice = 302 销售发票 BillReqForPrice = 400 询价问价单据 BillAdjustPrice = 500 调价单据 billAll = 1000 所有单据 End Enum