金蝶 K3 供应链单据开发手册(4)

EshowType：单据的状态

Public Enum Enu_ShowBillType Showinput = 0 录入 Showedit = 1 修改 Showview = 2 查看 Showcheck = 3 审核 showconvey = 4 生产订单下达 End Enum

二、 中间层调用接口

? 组件

BillDataAccess.SaveData

? 方法

SaveBillEx(ByVal sDsn As String, ByVal BillVect As KFO.Vector) As Object

? 参数

sDsn：连接字符串

BillVect：KFO.Vector的对象，对象包含多少个元素可由Size()方法获得。第一个元素为KFO.Dictionary对象；第二个元素为KFO.Vector对象，保存二次开发组件传递的信息。

对于第一个元素，其中保存着单据的一些基本信息，相应的关键字见下面说明： TransType：单据类型，为long型

BillInterID：单据内码，新增单据时为0，为long型 IsROBBill：单据是否区分红蓝单，为boolean型 IsRedBill：单据是否为红单，为boolean型

TableHeadName：单据表头对应的物理表名，为string型 TableEntryName：单据表体对应的物理表名，为string型 AutoBillNO：系统自动生成的单据编码，为string型 BillNo：单据编码，为string型

BillNoFldName：单据编码对应的物理字段名，为string型

IsAppendItemBill：单据能否追加物料，为boolean型，默认值为False EntryKeyWord：分录关键字，为string型

UserID：操作者ID，为long型，默认值为16394 UserName：操作者名称，为string型

AppendItem：是否追加了物料，为boolean型 SplitBill：是否拆单，为boolean型 AcctName：帐套名称，为string型

CurBillUpStockWhenSave：保存库存单据时，是否更新库存，为long型，0表示否，从已有单据的FUpStockWhenSave字段获得，默认为0。。 IgnoreCredit：是否进行信用控制，为boolean型，默认值为True

EntrySQL：单据体数据的SQL语句的数组，记录单据保存时，提交的数据库更新SQL语句，为单据体SQL，为Variant型

HeadSQL：单据头数据的SQL语句，记录单据保存时，提交的数据库更新SQL语句，为单据头SQL，为string型

JustForAccInput：成本核算系统单据调用时的特殊控制参数，用来控制保存和界面处理。Boolean型

ReSave：重新保存单据时的状态，每个字位代表一个意思，为long型，中间层若取不到值，默认值为7。 1：表示忽略负库存、2：忽略库存警告、4：忽略锁库检查、8：忽略所有检查

? 返回值： 为KFO.Dictionary对象，相应的关键字见下面说明： Success：保存是否成功，为boolean型

RetCode：返回的代码值，为long型。3：信用提示、2：最高最低库存提示、1：负库存提示、-200：锁库物料为负库存、-201：库存数不足以锁库、-204：销售最低限价提示、-205：采购最高限价提示 ReturnMsg：返回的信息，为string型 BillInterID：单据内码,为long型 ReturnBillNo：单据编码，为string型 CheckItemInfo：超出最高最低安全库存时存储相应的物料，为KFO.Vector对象

? 单据流程

一、 新建单据流程

新建单据时，首先设置单据的属性值（包括RemoteCnn、LocalCnn、SetOpt、TheSaleMode、ShowForModeExt、NewBillTransType），然后再调用过程Public Sub Show( ByVal eBillCls As Enu_BillCls, ByVal eShowType As Enu_ShowBillType)，显示想要新建的某种单据，对于新建单据，参数eShowType应传值为０。

过程Show通过激发窗体frmBill的Form_Load()事件，显示新建的单据样式。 Form_Load()事件主要完成以下操作： 1． 调用函数FillBillTypeCtl(ByVal ctl As Object, Optional ByVal transtype)，从

表ICTransactionType中取出新建单据类（可能包括多种单据）的基本属性值，包括单据名称、单据模版号、单据对应的数据库表名、单据窗体宽高等等。将每种单据的属性值拼成一个字符串，作为cmbTransType（comboBox控件）的一个列表值，依次添加到cmbTransType中。

2． 激发cmbTransType的cmbTransType_Click ()事件，根据当前cmbTransType

的列表值，取出该种单据有关属性值，设置窗体的宽高及固定列，再由该属性列表值通过调用过程BuildBill(ByVal strTemplateID As String)建立整张单据（包括单据头及单据分录）。

3．

设置菜单及工具条的Visible以及Enabled属性。

4．

过程BuildBill(ByVal strTemplateID As String)是构建单据的关键。它完成以下操作：

1． 根据传过来参数strTemplateID取得单据模版号、单据表头对应的数据库表名、

单据分录对应的数据库表名、单据事务类型内部ID。

2． 根据单据模版号，从表ICTemplate中取得表头模版，从表ICTemplateEntry中取

得分录模版。

3． 根据分录模版，调用过程BuildEntryCtls()构造单据的分录。

4． 根据表头模版，调用过程BuildHeadCtls()构造单据的表头。

过程BuildEntryCtls(rsTmpEntry As ADODB.Recordset)完成单据分录的构造工作，参数rsTmpEntry是从ICTemplateEntry取出的一个记录集，它反映了该单据所有分录列的属性值，也就是该单据的分录模版。该过程主要是将分录模版信息存储在分录属性数组TentryCtl中，并根据这些模版信息去设置单据分录的列数、列宽、列标题、数据类型等属性。

过程BuildHeadCtls(Rstmp As ADODB.Recordset)完成单据头的构造工作，参数rsTmp是从ICTemplate取出的一个记录集，它反映了该单据所有表头的属性值，也就是该单据的表头模版。该过程主要是将表头模版信息存储在表头属性数组THeadCtl中，并根据这些模版信息去设置单据表头控件的大小、位置、标题、数据类型等属性。

设置套打的本地、远程的连接属性，以及套打模版号。

二、 查看或修改单据流程：

对于由报表或序时薄进入单据，首先设置单据的属性值（包括RemoteCnn、LocalCnn、SetOpt、TheSaleMode、ShowForModeExt、NewBillTransType，以及ListRecordset、ListRSFieldVect），然后再调用过程Public Sub Show( ByVal eBillCls As Enu_BillCls, ByVal eShowType As Enu_ShowBillType)，显示想要修改的某种单据。如果是修改单据，参数eShowType传值为１；如果是查看单据，参数eShowType传值为２。

查看或修改单据的主要操作也是在窗体frmBill的Form_Load()事件中完成。流程如下：

调用过程MoveBill取得显示单据的事物类型和单据内码

调用函数FillBillTypeCtl新建一张同种事务类型的空白单据（其过程与新建单据一样）

函数Public Function FillBillData(ByVal InterID As Long, ByVal transtype As

Integer) As Integer完成将某张单据数据填入空白单据的操作，参数InterID指该张单据的内码，参数transtype指该张单据的事物类型。这两个参数可确定唯 一一张单据。FillBillData的流程如下： 根据单据内码以及单据表头对应的数据库表名，取得单据表头信息记 录集。

逐个读取该记录集，将其数据填入相应的表头控件中以及表头控件数组THeadCtl中 通过单据内码以及单据分录对应的数据库表名，取得单据分录信息记录集。 逐个读取该记录集，将其数据填入相应的分录列中以及分录控件数组TEntryCtl中

三、 录单流程：

在录单的过程中，表头控件及分录列都设置了一定的属性，即只能录入特定的数据。对于基础资料和选单，都有两种录入方式：按F7或F8选取或手工直接录入。其它的如数量、单价、单据号码等，就只能手工录入。

过程Private Sub LookUp(Optional ByVal bQuickView As Integer = 1)实现了按F7或F8键查看并选取某项基础资料数据的功能。参数bQuickView=0表示是查看基础资料详细的树状图，对应的是F7键；bQuickView=1表示是查看基础资料编码列表，对应的是F8键。LookUp的主要流程如下：

退出 当前活动控件查看类型 按F7或F8查看 选单 根据选单模版及当前控件的过滤条件构造选单序时薄过滤条件 基础资料 设置过滤条件，并根据基础资料查看类别显示相应的基础资料查看窗体 由选单序时薄模版号及过滤条件调用序时薄，显示选单序时薄 否 返回时选中某一条基础资料 在序时薄上选中了一条以上的记录 是 取得返回的InterID、Name、Number等信息，并将其值赋与当前活动控件 是 否 退出

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库金蝶 K3 供应链单据开发手册(4)在线全文阅读。