精华内容
下载资源
问答
  • K3 WISE 开发插件《 工业单据老单客户端插件事件、属性、方法》
  • 1.VB插件工程的命名、命名空间和生成的DLL命名要一致,否则导致注册不成功! 2.主控台的查询分析工具,添加sql直接报表,代码用到临时表,提示“在对应所需名称或序数的集合中未找到项目” 解决:在代码开头加上:...

    1.VB插件工程的命名、命名空间和生成的DLL命名要一致,否则导致注册不成功!

    2.主控台的查询分析工具,添加sql直接报表,代码用到临时表,提示“在对应所需名称或序数的集合中未找到项目”

    解决:在代码开头加上:set nocount on

    3.如何用MRP计算一个无销售订单的BOM表产生的采购需求?

      问题补充:通过BOM表,利用BOM表的采购件来推出采购需求,生成采购申请单,推出采购订单进行采购,然后做外购入库

    解决:做一张该BOM表的产品预测单--MRP运算--采购需求--采购申请--采购订单---外购入库,

    做完流程后,关闭采购申请--关闭采购需求--关闭产品预测单。用产品预测单来提取采购件的采购需求。

    4.存货核算--凭证生成,生成外购入库凭证时,提示取凭证模板失败 “当前默认凭证模板设置不正确,凭证字不存在!”

    解决:模板设置里,分【实际成本法部分】和【计划成本法部分】,里面都有外购入库部分,都要设置模板

    5.启用批号管理后,使用一段时间,又要取消批号,应该怎么做?

    把 库存清空 取消批次 (用其他出库 全部出了)

    然后 后台修改 取消批次 ======================== select fbatchmanager,fnumber from t_icitem where fnumber = 'OP.19.0002-000'--批次管理 update t_icitem set  fbatchmanager= 1 where fnumber = 'OP.19.0002-000' ===============================

    然后再重新 其他入库

    6.在生产领料单的套打上添加即时库存的操作

    1.客户端工具包--辅助工具--单据自定义--打开--增加分录列--输入分录列的名称 2.选择分录表身--属性--选中刚才的分录列--在高级项目栏上选择[来源方式]=通过公式得到--在第一行的空白栏上选上实存数量这个字段。

    7.工业单据添加工具栏按钮,是否可行?

    解答:网络上提供的方法,验证添加按钮是可行的,按钮点击激发事件RetEvents,也能激发点击事件,

    但是,传入参数Para对象,识别不了是哪个按钮激发的事件。结论:不可行,建议使用自定义菜单插件。

    8、BOS新单二次开发调用存储过程

    strSQL = "exec Proc_K3_ProductionOrdersByCustomer " & strCustomer  

    Set rs = m_BillInterface.K3Lib.GetData(strSQL)

    9、常引用的dll文件

    1.K3ClassEvents.dll  对应   K3ClassEvents

    2.Kfo10.dll 对应  Kingdee Foundation Objects 1.0

    3.K3BillTransfer.dll  对应 K3BillTransfer

    4.在VB中引入ADODB类型

    解决方式如下:

    在菜单project--refrences里,选中microsoft   activex     data   object   2.5library!

    dim   conn   as   new   ADODB.Connection  dim   rs   as   new   ADODB.RecordSet 

    10、出入库单据

    外购入库 产品入库 委外加工入库单 虚仓入库 其他入库 盘盈入库 调拨单 受托加工材料入库单

    销售出库 生产领料单 虚仓出库 委外加工出库单 其他出库单 调拨单 盘亏毁损 受托加工领料

    11、在K3wise里面做仓存管理的初始数据录入,输入代码时,弹出金蝶提示

    ”系统在调用函数FILLItemDetailbyF7()时发生错误,错误原因:下标越界 错误来源:K3ICInitialCtl;“

    解决:单位表丢失了0记录导致的。

    insert into t_UnitGroup
    (FUnitGroupID,FName,FDefaultUnitID)
    select FUnitGroupID,FName,FDefaultUnitID 
    from AIS20121023172833.dbo.t_UnitGroup where FUnitGroupID=0
    
    insert into t_measureunit
    (FMeasureUnitID,FUnitGroupID,FNumber,FAuxClass,FName,
    FCoefficient,FBrNo,FItemID,FParentID,FDeleted,
    FShortNumber,FOperDate,FScale,FStandard,FControl,
    FSystemType,FConversation,FPrecision,FNameEN,FNameEnPlu)
    
    select FMeasureUnitID,FUnitGroupID,FNumber,FAuxClass,FName,
    FCoefficient,FBrNo,FItemID,FParentID,FDeleted,
    FShortNumber,FOperDate,FScale,FStandard,FControl,
    FSystemType,FConversation,FPrecision,FNameEN,FNameEnPlu
    from AIS20121023172833.dbo.t_measureunit
    where fmeasureunitid=0
    

     

    12、销售订单计算公式

    数量、不含税单价

    基本单位数量

    FQty = FAuxQty * t_measureunit.FCoefficient

    基本单位单价

    FPrice = FAuxPrice /  t_measureunit.FCoefficient

    FAuxQty 数量(显示单位是kg,就是千克数量;显示单位是吨,就是吨数量)

    FAuxPrice 单价(显示单位是kg,就是千克单价;显示单位是吨,就是吨单价)

     

    (含税)单位折扣额 = (含税)折扣额 /  数量   

    FUniDiscount = FTaxAmount / FQty

     

    销项税额 =(含税)销售额 /(1+税率)* 税率 - (含税)折扣额  /(1+税率)* 税率

    FTaxAmt = FAllAmount / (1 + 0.17) * 0.17 - FTaxAmount / (1 + 0.17) * 0.17

    销项税额 =(不含税)销售额 *  税率  - (不含税)折扣额  * 税率

    FTaxAmt = FAmount * 0.17  - FTaxAmount / (1 + 0.17) * 0.17

     

    不含税金额 = 不含税单价 * 数量 - 折扣额 / (1 + FCess / 100)

     FAmount = FAuxPrice * FQty - FTaxAmount  / ( 1 + 0.17 )

     

    含税单价= 不含税单机 * (1+税率/ 100)

    FAuxTaxPrice = FAuxPrice * (1+ FCess / 100)

     FTaxPrice = FPrice * (1+ FCess / 100)

     

    价税合计 = 含税单价 * 数量 - (含税)折扣额

    FAllAmount = FAuxPrice * FQty - FTaxAmount

    价税合计(本位币) = 价税合计 * 汇率

    FAllStdAmount = FAllAmount   * SEOrder.FExchangeRate                                                                   

     

    (含税)折后单价 或 实际含税单价 = (含税)单价 - 折扣额

    FAuxPriceDiscount = FTaxPrice - FTaxAmount

    FPriceDiscount = FTaxPrice - FTaxAmount

    转载于:https://www.cnblogs.com/zhugq02/p/11232320.html

    展开全文
  • 有时候如果导入数据,这里的值没有更改的话,可能你再到k3里新增保存,就出错了噢。 -- ----------------多级审核------------------------ SELECT * FROM ICClassMCTemplate -- 审批流模板表 SELECT *...
    在后台数据库ICClassType表中,字段FID<0的是老单,FID>0的是新单。
    
    ----------------系统设置------------------------
    FStatus: 0--未审核;1--已审核;2--部分行关闭;3--已关闭;
    ===============================================
    步骤一:先从t_tabledescription表中查业务单据的FTableID
    步骤二:再根据FTableID,从t_fielddescription表中查业务单据的字段名、字段中文描述
    这两个表可以查询金蝶的所有业务单据,用法如下:
    SELECT * FROM T_TableDescription WHERE FDescription LIKE '%入库%'   --系统表
    SELECT * FROM T_TableDescription WHERE FTableName LIKE '%ICStockBill%'   --系统表
    SELECT * FROM T_TableDescription WHERE FTableID=17   --系统表
    SELECT * FROM T_FieldDescription WHERE FDescription LIKE '%批号%'   --字段表
    SELECT * FROM T_FieldDescription WHERE FFieldName LIKE '%FBatchNo%'    --字段表
    SELECT * FROM T_FieldDescription WHERE FTableID=17    --字段表 
     
    表名  单据名 FTableID 表名  单据名 FTableID 表名 单据名 FTableID
    SEOrder 销售订单 230004 t_ICItem  物料 17 SEOutStock 发货通知单 230006
    SEOrderEntry 销售订单分录 230005  ICMO   生产任务单  470000 SEOutStockEntry 发货通知分录 230007
     ICStockBill   出入库单  210008  ICBom  Bom清单  250000  PPBom  投料单    470001
     ICStockBillEntry  出入库单分录 210009  ICBomChild  Bom清单明细  250001  PPBomEntry  投料单分录  470002
     POOrder  采购订单  200004  ICPurchase 采购发票   200000  ICSale  销售发票  50043
     POOrderEntry  采购订单分录  200005  ICPurchaseEntry  采购发票分录  200001  ICSaleEntry  销售发票分录  50044
     t_Supply  采购价格  200008            
     t_SupplyEntry  采购价格分录  200009            
                     
     
    SELECT * FROM ICClassType WHERE FName_CHS LIKE '%供货%' --用此表基本上可以查询到所有的表  
    
    SELECT * FROM ICTransType   --单据类型表,查询业务单据类型FTranTypeID,经常和出入库表配合精确查询
    
    SELECT * FROM ICTransactionType    --业务单据类型  
    
    
    
    --单据表和单据类型
    Select t2.FID AS FID_O,t2.FHeadTable AS FHeadTable_O,t2.FEntryTable AS FEntryTable_O,
    t2.FName AS FName_O,  abs(t1.FID) AS FID_N as 单据类型,t1.FTableName AS FHeadTable_N,
    t1.FName_CHS AS FName_N  
    From ICClassType t1 
    left join ICTransactiontype t2  on abs(t1.FID)=t2.FID  Where abs(t1.FID)=1000020
    
    ===============================================
    
    SELECT * FROM T_Log --日志表 
    
    SELECT * FROM ICTemplate --记录单据头字段的信息 
    SELECT * FROM ICTemplateEntry --记录单据体字段的信息,有时候系统定义的字段信息不能改,就到这里看看吧(比如字段默认值) 
    SELECT * FROM ICListTemplate --记录序时薄模板  
    SELECT * FROM T_UserProfile --用户方案表 
    SELECT * FROM ICSelbills  --单据之间字段的关系信息。类似采购订单下推到到货单据,字段的对应关系就在这里。比如我们可以把采购订单加的自定义字段批号,关系到入库单的批号,就这里改改吧!
    SELECT * FROM ICMaxNum --记录每张使用内码表的数值。有时候如果导入数据,这里的值没有更改的话,可能你再到k3里新增保存,就出错了噢。
    ------------------多级审核------------------------
    SELECT * FROM ICClassMCTemplate  --审批流模板表
    SELECT * FROM ICClassMCTableInfo  --审批流模板明细表
    SELECT * FROM ICClassMCTemplateMap  --单据-审核流模板映射表
    SELECT * FROM ICClassMCStatus200000007  --单据审核步骤表
    SELECT * FROM ICClassMCRecord200000007  --单据审核记录表
    
    --删除单据数据,导致审核流程无法修改,提示“单据正在审核”
    
    SELECT * FROM ICClassMCTemplate    WHERE FClasstypeID=200000008
    DELETE   FROM ICClassMCTemplate    WHERE FClasstypeID=200000008
    DELETE   FROM ICClassMCTemplateMap WHERE FClasstypeID=200000008
    DELETE   FROM ICClassMCTableInfo   WHERE FTemplateID=87
    
    -----------------基础资料设置---------------------
    
    SELECT * FROM T_Item    --核算项目基础资料,其中fitemclassid值
                                  --表示1-客户2-部门3-职员4-商品5-仓位7-单位8-供应商
    SELECT * FROM T_Stock    --仓库  
    SELECT * FROM T_Emp    --职员表  
    SELECT * FROM T_Department    --部门  
    SELECT * FROM T_Organization    --客户
    SELECT * FROM T_MeasureUnit    --计量单位  
    SELECT * FROM T_Supplier    --供应商表
    SELECT * FROM  T_SubMessage    --辅助资料表 
    SELECT * FROM SubMesType   --辅助资料分类表 
    -----------------物料设置--------------------------
    update t_ICItem set FISKFPeriod=0 where FNumber='91.001'  --取消保质期管理
    SELECT * FROM T_ICItem    --物料表
    --物料属性 1- 外购; 2-自制 或 自制(特性配置) ;3- 委外加工;4- ;5- 虚拟件;6-特征类 ;7- 配置类; 8- 规划类;9- 组装件;
    --物料属性 1-无成本对象;2-有成本对象;3-无;5-无;6-无;7-有;8-无;9-无;
    SELECT * FROM T_ICItemCore    --核心表,通过FItemID与其它表相关联
    SELECT * FROM T_ICItemBase    --基本资料表,包含了规则型号,单位等
    SELECT * FROM T_ICItemMaterial    --物流资料表,包含了成本计价方法,核算会计科目
    SELECT * FROM T_ICItemPlan    --计划资料表,包含了计划策略和工艺路线等
    SELECT * FROM T_ICItemDesign    --设计资料表,包含了净重,毛重,长宽高等
    SELECT * FROM T_ICItemStandard    --标准资料表,包含了标准成本,工时等
    SELECT * FROM T_ICItemQuality    --质量资料表,检验资料
    SELECT * FROM T_Base_ICItemEntrance    --进出口资料表,英文名称,HS编码等
    SELECT * FROM T_ICItemCustom          --物料所有自定义的字段表 
    ------------------供应链设置-----------------------
    
    --所有出入库单表头  其中:ftrantype值表示单据类型如下:1-采购入库 10-其他入库 21-销售出库 29-其他出库 41-调拨单 100-成本调整单
    --(-85,-52,-88,1002533)--任务单、工序计划单、投料单、综合任务单
    
    SELECT * FROM ICStockBill    
    SELECT * FROM ICStockBillEntry    --所有出入库单表体  表头与表体用finterid关联 
    SELECT * FROM ICInventory    --实仓库存表 即时存货表  
    SELECT * FROM POInventory    --虚仓库存表  
    SELECT * FROM ICBal    --存货余额表
    SELECT * FROM ICInvBal    --库房存货余额表
    SELECT * FROM ICInvInitial     --存货初始数据表
    
    SELECT * FROM SEOutStock     --发货通知单
    
    SELECT * FROM ICSale --销售发票表头
    SELECT * FROM ICSaleEntry --销售发票表体
    SELECT * FROM vwICBill_43 --销售发票(视图)
    SELECT * FROM SEOrder --销售订单表头
    SELECT * FROM SEOrderEntry --销售订单表体 表头与表体用finterid关联
    SELECT * FROM vwICBill_32 --销售订单(视图)
    SELECT * FROM PORFQ --销售报价表头
    SELECT * FROM PORFQEntry --销售报价表体
    SELECT * FROM vwICBill_35 --销售报价单(视图)
    SELECT * FROM vwICBill_8 --销售出库(视图) 
    
     
    
    SELECT a.*,ISNULL(b.FTable,'') AS FTable,ISNULL(e.FFieldName,'') as FieldName FROM t_BillCodeRule a
    LEFT JOIN t_Option e ON a.FProjectID=e.FProjectID AND a.FFormatIndex=e.FID
    LEFT OUTER JOIN t_CheckProject b ON a.FBillType=b.FBillTypeID AND a.FProjectval=b.FField
    WHERE a.FBillTypeiID = '81' ORDER BY a.FClassIndex
    
    SELECT FBillTypeID,FFormatChar,FProjectVal,FNumMax FROM t_BillCodeBy
    WHERE FBillTypeID = '81' AND FFormatChar='1412' AND FProjectVal='yymm|'
    UPDATE t_BillCodeBy SET FNumMax=10 WHERE FBillTypeID = '81' AND FFormatChar='1410' AND FProjectVal='yymm|'
    
    SELECT * FROM t_Option --单据编码格式
    SELECT * FROM t_BillCodeBy WHERE FBillTypeID = '81' --销售订单每期编号详情
    SELECT * FROM t_BillCodeRule WHERE FbilltypeID='81' --销售订单编号的编码规则
    SELECT * FROM t_CheckProject
    
    SELECT * FROM ICPurChase    --采购发票表头 FTranType 76-普通发票(供应链)/进口单证;75-增值税发票(供应链);603-普通发票(应付);604-增值税发票(应付)
                               --ICClassType:单据类别表,FClassTypeID,1000004-采购增值税发票,1000003-采购普通发票,1007140-进口单证
    SELECT * FROM ICPurChaseEntry    --采购发票表体
    SELECT * FROM vwICBill_42    --采购发票(视图)
    SELECT * FROM POOrder    --采购订单表头  
    SELECT * FROM POOrderEntry     --采购订单表体    
    SELECT * FROM vwICBill_26    --采购订单(视图)
    SELECT * FROM POrequest    --采购申请单表头
    SELECT * FROM POrequestentry    --采购申请单表体  表头与表体用finterid关联 
    SELECT * FROM vwICBill_25    --采购申请单(视图)   
    SELECT * FROM vwICBill_1    --采购入库(视图) 
    
    SELECT * FROM T_RP_NewReceiveBill    --收款单
    SELECT * FROM T_RP_Contact    --应收、应付往来表
    SELECT * FROM T_RP_NewCheckInfo    --核销日志 核销业务详细记录。FRP= 1-应收 :FRP = 0-应付
    SELECT * FROM T_Rp_CheckDetail    --核销明细   
    SELECT * FROM T_RP_ContactBal   -- 往来余额表 FRP= 1-应收 :FRP = 0-应付
    SELECT * FROM ICItemMapping    --供货信息表  
    SELECT * FROM T_supplyentry    --报价表
    -----------------生产管理---------------------------      
    SELECT * FROM ICmo    --生产任务单  
    SELECT * FROM PPBom    --生产投料单  
    
    SELECT * FROM PPBomentry    --生产投料单 FMaterielType 371-普通件;372-联产品;373-副产品;374-等级品;375-特征件;376-返还件
    
     SELECT * FROM ICSubContract --委外订单表头  SELECT * FROM ICSubContractEntry --委外订单表体 表头与表体用finterid关联  -----------------财务会计---------------------------- SELECT * FROM T_Account --科目表 SELECT * FROM T_Balance --科目余额表
    SELECT * FROM t_ExchangeRateEntry  --汇率表
    SELECT * FROM T_Voucher    --凭证表
    SELECT * FROM T_VoucherGroup  --凭证字
    SELECT * FROM T_VoucherEntry    --凭证分录表
    SELECT * FROM T_VoucherExp    --凭证摘要表
    SELECT * FROM T_ItemPropDesc    --核算项目附表信息描述表
    SELECT * FROM T_ItemDetailV    --核算项目使用详情纵表
    SELECT * FROM T_ItemDetail    --核算项目使用详情横表
    SELECT * FROM T_RPContract WHERE FContractNO='2014079'    --合同应收
    SELECT * FROM t_RPContractScheme WHERE FContractid=1546    --收款计划明细表                                                                    
    SELECT FPeriod,FYear FROM T_PeriodDate WHERE '2008-02-29'>=FStartDate and '2008-02-29'<=FEndDate  --年份、帐期                                 
    SELECT * FROM T_Currency  --币别                                                                                                             
    SELECT a.FAccountID,a.FNumber FAccountNumber,a.FName FAccountName,i.FItemClassID,   --科目挂核算项目
    i.FNumber FItemClassNumber,i.FName FItemClassName,CASE ai.FItemID WHEN -1 THEN 1 ELSE 0 END FBalChecked  
    FROM t_Account a,t_ItemClass i,t_ItemDetailV ai 
    WHERE a.FDetailID = ai.FDetailID AND ai.FItemClassID = i.FItemClassID AND ai.FItemID IN(-1,-2) 
    ORDER BY a.FAccountID, i.FNumber    
    
    ---------------生产制造---------------------------------
    SELECT * FROM ICBOM  --生产任务单 0-计划,1-下达,3-结案,5-确认    startflag-开工                             
    
    --BOS单据模板信息:
    --单据整体属性表
    SELECT * FROM icclasstype WHERE FName_CHS LIKE '%费用报销单%'
    --单据体属性表
    SELECT * FROM ICClassTypeEntry WHERE  FParentID=1000050
    --单据字段模板信息表
    SELECT * FROM ICClassTableInfo WHERE FClassTypeID=1000050 
    
    --单据转换流程模板信息:
    --单据转换流程整体信息表
    SELECT * FROM ICClassLink
    --转换流程中字段对应关系表
    SELECT * FROM  ICClassLinkEntry
    --钩稽关系中控制字段、关闭字段、控件字段信息表
    SELECT * FROM ICClassLinkCommit 
    
    --单据转换流程在BOS集成开发工具里的显示与布局信息:
    --单据转换流程名称信息表
    SELECT * FROM ICClassWorkFlow
    --单据转换流程中单据的位置信息表
    SELECT * FROM ICClassWorkFlowBill
    --单据转换流程中两个单据之间的连线信息表
    SELECT * FROM ICClassWorkFlowJoin 
    
    --审批流程设计时的模板信息:
    --审批流整体信息表
    SELECT * FROM ICClassMCTemplate
    --审批流的流程节点、转换级次及其属性的明细信息表
    SELECT * FROM ICClassMCTableInfo 
    
    --审核记录信息表:ICClassMCRecord+单据类型ID
    --例如费用报销单ID为1000050,那么它的审核记录表就是ICClassMCRecord1000050
    SELECT * FROM ICClassMCRecord1000050
    --审核状态信息表:ICClassMCStatus+单据类型ID
    ----例如费用报销单ID为1000050,那么它的审核记录表就是ICClassMCStatus1000050
    SELECT * FROM ICClassMCStatus1000050 
    
    一级菜单:t_subsystem
    二级菜单:t_dataflowsubsystem
    三级菜单:t_dataflowsubfunc
    四级菜单:t_dataflowdetailfunc
    
    

     

    
    
    展开全文
  • 有时候如果导入数据,这里的值没有更改的话,可能你再到k3里新增保存,就出错了噢。 ------------------多级审核------------------------ SELECT * FROM ICClassMCTemplate --审批流模板表 SELECT * FROM ...
    在后台数据库ICClassType表中,字段FID<0的是老单,FID>0的是新单。
    ----------------系统设置------------------------
    FStatus: 0--未审核;1--已审核;2--部分行关闭;3--已关闭;
    ===============================================
    步骤一:先从t_tabledescription表中查业务单据的FTableID
    步骤二:再根据FTableID,从t_fielddescription表中查业务单据的字段名、字段中文描述
    这两个表可以查询金蝶的所有业务单据,用法如下:
    SELECT * FROM T_TableDescription WHERE FDescription LIKE '%入库%'   --系统表
    SELECT * FROM T_TableDescription WHERE FTableName LIKE '%ICStockBill%'   --系统表
    SELECT * FROM T_TableDescription WHERE FTableID=17   --系统表
    SELECT * FROM T_FieldDescription WHERE FDescription LIKE '%批号%'   --字段表
    SELECT * FROM T_FieldDescription WHERE FFieldName LIKE '%FBatchNo%'    --字段表
    SELECT * FROM T_FieldDescription WHERE FTableID=17    --字段表 
    
    表名 
    单据名
    FTableID
    表名 
    单据名
    FTableID
    表名
    单据名
    FTableID
    
    
    SEOrder
    销售订单
    t_ICItem 
    物料
    SEOutStock
    发货通知单
    
    
    SEOrderEntry
    销售订单分录
     ICMO 
     生产任务单
    SEOutStockEntry
    发货通知分录
    
    
     ICStockBill 
     出入库单 
     ICBom
     Bom清单
     PPBom
     投料单  
    
    
     ICStockBillEntry
     出入库单分录
     ICBomChild
     Bom清单明细
     PPBomEntry
     投料单分录
    
    
     POOrder
     采购订单
     ICPurchase
    采购发票
     ICSale
     销售发票
    
    
     POOrderEntry
     采购订单分录
     ICPurchaseEntry
     采购发票分录
     ICSaleEntry
     销售发票分录
    
    
     t_Supply
     采购价格
     t_rp_PayApplyBill
     付款申请单
     
    t_SupplyEntry
     采购价格分录
     t_rp_PayApplyBillEntry
     付款申请单分录
     
    SELECT * FROM ICClassType WHERE FName_CHS LIKE '%供货%' --用此表基本上可以查询到所有的表  
    SELECT * FROM ICTransType   --单据类型表,查询业务单据类型FTranTypeID,经常和出入库表配合精确查询
    
    SELECT * FROM ICTransactionType    --业务单据类型  
    
    
    --单据表和单据类型
    Select t2.FID AS FID_O,t2.FHeadTable AS FHeadTable_O,t2.FEntryTable AS FEntryTable_O,
    t2.FName AS FName_O,  abs(t1.FID) AS FID_N as 单据类型,t1.FTableName AS FHeadTable_N,
    t1.FName_CHS AS FName_N  
    From ICClassType t1 
    left join ICTransactiontype t2  on abs(t1.FID)=t2.FID  Where abs(t1.FID)=1000020
    
    ===============================================
    SELECT * FROM T_Log --日志表 
    SELECT * FROM ICTemplate --记录单据头字段的信息 
    SELECT * FROM ICTemplateEntry --记录单据体字段的信息,有时候系统定义的字段信息不能改,就到这里看看吧(比如字段默认值) 
    SELECT * FROM ICListTemplate --记录序时薄模板  
    SELECT * FROM T_UserProfile --用户方案表 
    SELECT * FROM ICSelbills  --单据之间字段的关系信息。类似采购订单下推到到货单据,字段的对应关系就在这里。比如我们可以把采购订单加的自定义字段批号,关系到入库单的批号,就这里改改吧!
    SELECT * FROM ICMaxNum --记录每张使用内码表的数值。有时候如果导入数据,这里的值没有更改的话,可能你再到k3里新增保存,就出错了噢。
    ------------------多级审核------------------------
    SELECT * FROM ICClassMCTemplate  --审批流模板表
    SELECT * FROM ICClassMCTableInfo  --审批流模板明细表
    SELECT * FROM ICClassMCTemplateMap  --单据-审核流模板映射表
    SELECT * FROM ICClassMCStatus200000007  --单据审核步骤表
    SELECT * FROM ICClassMCRecord200000007  --单据审核记录表
    --删除单据数据,导致审核流程无法修改,提示“单据正在审核”
    SELECT * FROM ICClassMCTemplate    WHERE FClasstypeID=200000008
    DELETE   FROM ICClassMCTemplate    WHERE FClasstypeID=200000008
    DELETE   FROM ICClassMCTemplateMap WHERE FClasstypeID=200000008
    DELETE   FROM ICClassMCTableInfo   WHERE FTemplateID=87
    -----------------基础资料设置---------------------
    SELECT * FROM T_Item    --核算项目基础资料,其中fitemclassid值
                                  --表示1-客户2-部门3-职员4-商品5-仓位7-单位8-供应商
    SELECT * FROM T_Stock    --仓库  
    SELECT * FROM T_Emp    --职员表  
    SELECT * FROM T_Department    --部门  
    SELECT * FROM T_Organization    --客户
    SELECT * FROM T_MeasureUnit    --计量单位  
    SELECT * FROM T_Supplier    --供应商表
    SELECT * FROM  T_SubMessage    --辅助资料表 
    SELECT * FROM SubMesType   --辅助资料分类表 
    -----------------物料设置--------------------------
    update t_ICItem set FISKFPeriod=0 where FNumber='91.001'  --取消保质期管理
    SELECT * FROM T_ICItem    --物料表
    --物料属性 1- 外购; 2-自制 或 自制(特性配置) ;3- 委外加工;4- ;5- 虚拟件;6-特征类 ;7- 配置类; 8- 规划类;9- 组装件;
    --物料属性 1-无成本对象;2-有成本对象;3-无;5-无;6-无;7-有;8-无;9-无;
    SELECT * FROM T_ICItemCore    --核心表,通过FItemID与其它表相关联
    SELECT * FROM T_ICItemBase    --基本资料表,包含了规则型号,单位等
    SELECT * FROM T_ICItemMaterial    --物流资料表,包含了成本计价方法,核算会计科目
    SELECT * FROM T_ICItemPlan    --计划资料表,包含了计划策略和工艺路线等
    SELECT * FROM T_ICItemDesign    --设计资料表,包含了净重,毛重,长宽高等
    SELECT * FROM T_ICItemStandard    --标准资料表,包含了标准成本,工时等
    SELECT * FROM T_ICItemQuality    --质量资料表,检验资料
    SELECT * FROM T_Base_ICItemEntrance    --进出口资料表,英文名称,HS编码等
    SELECT * FROM T_ICItemCustom          --物料所有自定义的字段表 
    ------------------供应链设置-----------------------
    
    --所有出入库单表头  其中:ftrantype值表示单据类型如下:1-采购入库 10-其他入库 21-销售出库 29-其他出库 41-调拨单 100-成本调整单
    --(-85,-52,-88,1002533)--任务单、工序计划单、投料单、综合任务单
    SELECT * FROM ICStockBill    
    SELECT * FROM ICStockBillEntry    --所有出入库单表体  表头与表体用finterid关联 
    SELECT * FROM ICInventory    --实仓库存表 即时存货表  
    SELECT * FROM POInventory    --虚仓库存表  
    SELECT * FROM ICBal    --存货余额表
    SELECT * FROM ICInvBal    --库房存货余额表
    SELECT * FROM ICInvInitial     --存货初始数据表
    SELECT * FROM SEOutStock     --发货通知单
    SELECT * FROM ICSale --销售发票表头
    SELECT * FROM ICSaleEntry --销售发票表体
    SELECT * FROM vwICBill_43 --销售发票(视图)
    SELECT * FROM SEOrder --销售订单表头
    SELECT * FROM SEOrderEntry --销售订单表体 表头与表体用finterid关联
    SELECT * FROM vwICBill_32 --销售订单(视图)
    SELECT * FROM PORFQ --销售报价表头
    SELECT * FROM PORFQEntry --销售报价表体
    SELECT * FROM vwICBill_35 --销售报价单(视图)
    SELECT * FROM vwICBill_8 --销售出库(视图) 
    
    
     
    SELECT a.*,ISNULL(b.FTable,'') AS FTable,ISNULL(e.FFieldName,'') as FieldName FROM t_BillCodeRule a
     LEFT JOIN t_Option e ON a.FProjectID=e.FProjectID AND a.FFormatIndex=e.FID
     LEFT OUTER JOIN t_CheckProject b ON a.FBillType=b.FBillTypeID AND a.FProjectval=b.FField
     WHERE a.FBillTypeiID = '81' ORDER BY a.FClassIndex
     SELECT FBillTypeID,FFormatChar,FProjectVal,FNumMax FROM t_BillCodeBy 
     WHERE FBillTypeID = '81' AND FFormatChar='1412' AND FProjectVal='yymm|'
     UPDATE t_BillCodeBy SET FNumMax=10 WHERE FBillTypeID = '81' AND FFormatChar='1410' AND FProjectVal='yymm|'
    SELECT * FROM t_Option --单据编码格式
    SELECT * FROM t_BillCodeBy  WHERE FBillTypeID = '81'   --销售订单每期编号详情
    SELECT * FROM t_BillCodeRule WHERE FbilltypeID='81'    --销售订单编号的编码规则
    SELECT * FROM t_CheckProject 
    SELECT * FROM ICPurChase    --采购发票表头 FTranType 76-普通发票(供应链)/进口单证;75-增值税发票(供应链);603-普通发票(应付);604-增值税发票(应付)
                               --ICClassType:单据类别表,FClassTypeID,1000004-采购增值税发票,1000003-采购普通发票,1007140-进口单证
    SELECT * FROM ICPurChaseEntry    --采购发票表体
    SELECT * FROM vwICBill_42    --采购发票(视图)
    SELECT * FROM POOrder    --采购订单表头  
    SELECT * FROM POOrderEntry     --采购订单表体    
    SELECT * FROM vwICBill_26    --采购订单(视图)
    SELECT * FROM POrequest    --采购申请单表头
    SELECT * FROM POrequestentry    --采购申请单表体  表头与表体用finterid关联 
    SELECT * FROM vwICBill_25    --采购申请单(视图)   
    SELECT * FROM vwICBill_1    --采购入库(视图) 
    
    SELECT * FROM T_RP_NewReceiveBill    --收款单
    SELECT * FROM T_RP_Contact    --应收、应付往来表
    SELECT * FROM T_RP_NewCheckInfo    --核销日志 核销业务详细记录。FRP= 1-应收 :FRP = 0-应付
    SELECT * FROM T_Rp_CheckDetail    --核销明细   
    SELECT * FROM T_RP_ContactBal   -- 往来余额表 FRP= 1-应收 :FRP = 0-应付
    SELECT * FROM ICItemMapping    --供货信息表  
    SELECT * FROM T_supplyentry    --报价表
    -----------------生产管理---------------------------      
    SELECT * FROM ICmo    --生产任务单  
    SELECT * FROM PPBom    --生产投料单  
    
    SELECT * FROM PPBomentry    --生产投料单 FMaterielType 371-普通件;372-联产品;373-副产品;374-等级品;375-特征件;376-返还件
     SELECT * FROM ICSubContract --委外订单表头  SELECT * FROM ICSubContractEntry --委外订单表体 表头与表体用finterid关联  -----------------财务会计---------------------------- SELECT * FROM T_Account --科目表 SELECT * FROM T_Balance --科目余额表
    SELECT * FROM t_ExchangeRateEntry  --汇率表
    SELECT * FROM T_Voucher    --凭证表
    SELECT * FROM T_VoucherGroup  --凭证字
    SELECT * FROM T_VoucherEntry    --凭证分录表
    SELECT * FROM T_VoucherExp    --凭证摘要表
    SELECT * FROM T_ItemPropDesc    --核算项目附表信息描述表
    SELECT * FROM T_ItemDetailV    --核算项目使用详情纵表
    SELECT * FROM T_ItemDetail    --核算项目使用详情横表
    SELECT * FROM T_RPContract WHERE FContractNO='2014079'    --合同应收
    SELECT * FROM t_RPContractScheme WHERE FContractid=1546    --收款计划明细表                                                                    
    SELECT FPeriod,FYear FROM T_PeriodDate WHERE '2008-02-29'>=FStartDate and '2008-02-29'<=FEndDate  --年份、帐期                                 
    SELECT * FROM T_Currency  --币别                                                                                                             
    SELECT a.FAccountID,a.FNumber FAccountNumber,a.FName FAccountName,i.FItemClassID,   --科目挂核算项目
    i.FNumber FItemClassNumber,i.FName FItemClassName,CASE ai.FItemID WHEN -1 THEN 1 ELSE 0 END FBalChecked  
    FROM t_Account a,t_ItemClass i,t_ItemDetailV ai 
    WHERE a.FDetailID = ai.FDetailID AND ai.FItemClassID = i.FItemClassID AND ai.FItemID IN(-1,-2) 
    ORDER BY a.FAccountID, i.FNumber    
    
    ---------------生产制造---------------------------------
    SELECT * FROM ICMO  --生产任务单 0-计划,1-下达,3-结案,5-确认    startflag-开工                             
    --BOS单据模板信息:
    --单据整体属性表
    SELECT * FROM icclasstype WHERE FName_CHS LIKE '%费用报销单%'
    --单据体属性表
    SELECT * FROM ICClassTypeEntry WHERE  FParentID=1000050
    --单据字段模板信息表
    SELECT * FROM ICClassTableInfo WHERE FClassTypeID=1000050 
    
    --单据转换流程模板信息:
    --单据转换流程整体信息表
    SELECT * FROM ICClassLink
    --转换流程中字段对应关系表
    SELECT * FROM  ICClassLinkEntry
    --钩稽关系中控制字段、关闭字段、控件字段信息表
    SELECT * FROM ICClassLinkCommit 
    
    --单据转换流程在BOS集成开发工具里的显示与布局信息:
    --单据转换流程名称信息表
    SELECT * FROM ICClassWorkFlow
    --单据转换流程中单据的位置信息表
    SELECT * FROM ICClassWorkFlowBill
    --单据转换流程中两个单据之间的连线信息表
    SELECT * FROM ICClassWorkFlowJoin 
    
    --审批流程设计时的模板信息:
    --审批流整体信息表
    SELECT * FROM ICClassMCTemplate
    --审批流的流程节点、转换级次及其属性的明细信息表
    SELECT * FROM ICClassMCTableInfo 
    
    --审核记录信息表:ICClassMCRecord+单据类型ID
    --例如费用报销单ID为1000050,那么它的审核记录表就是ICClassMCRecord1000050
    SELECT * FROM ICClassMCRecord1000050
    --审核状态信息表:ICClassMCStatus+单据类型ID
    ----例如费用报销单ID为1000050,那么它的审核记录表就是ICClassMCStatus1000050
    SELECT * FROM ICClassMCStatus1000050 
    
    一级菜单:t_subsystem
    二级菜单:t_dataflowsubsystem
    三级菜单:t_dataflowsubfunc
    四级菜单:t_dataflowdetailfunc
    

      

    转载于:https://www.cnblogs.com/zhugq02/p/11231762.html

    展开全文
  • 开发环境:K/3 Wise 13.0、K/3 Bos开发平台...一、二次开发插件编程 二、代码演示 三、配置插件 四、测试插件 五、插件配置后未生效 六、附SQLHelper 七、K3自带连接数据库的写法 八、源码下载 ================...

    开发环境:K/3 Wise 13.0、K/3 Bos开发平台、Visual Basic 6.0

    ===============================================

    目录

    一、二次开发插件编程 二、代码演示 三、配置插件 四、测试插件

    五、插件配置后未生效 六、附SQLHelper

    七、K3自带连接数据库的写法

    八、源码下载

    ===============================================

    一、二次开发插件编程

      打开Visual Basic 6.0,新建工程ActiveX DLL:

    命名为FirstPlugin.class:

    引用类库如下:

    已安装K/3 Wise,在VB 6.0菜单栏上会多出一个金蝶开发插件:

    打开金蝶开发向导,创建工业单据客户端插件(工业单据俗称“老单”):

    点击“确定”,选择类“FirstPlugin”:

    点击“下一步”,这里我们自定义一个菜单项“插件工具”:

    点击“下一步”,选择事件“UserMenuClick”:

    完成向导。

    二、代码演示

      代码编写如下:

    '配置路径:供应链-外购入库单
    '函数功能:插件工具--根据“长、宽、厚”自动计算批号
    '定义插件对象接口. 必须具有的声明, 以此来获得事件
    Private WithEvents m_BillTransfer   As K3BillTransfer.Bill
    Dim F55 As Long, F55Text As String  '长
    Dim F56 As Long, F56Text As String  '宽
    Dim F57 As Long, F57Text As String  '高
    Dim FDate As Long, FDateText As String  '日期
    Dim FBatchNo As String  '批号
    Dim FItemID As Long, FNumber As String  '物料编码
    Dim FBatchManager As Boolean  '是否采用业务批号管理
    Dim str As String
    Dim RowCount As Integer
    
    Public Sub Show(ByVal oBillTransfer As Object)
    
        '接口实现
        '注意: 此方法必须存在, 请勿修改
        Set m_BillTransfer = oBillTransfer
     
    End Sub
    
    Private Sub Class_Terminate()
     
        '释放接口对象
        '注意: 此方法必须存在, 请勿修改
        Set m_BillTransfer = Nothing
    
    End Sub
    
    Private Sub m_BillTransfer_BillInitialize()
            
        '*************** 开始设置菜单 ***************
     
        m_BillTransfer.AddUserMenuItem "自动批号", "插件工具"
     
        '*************** 结束设置菜单 ***************
        
        'TODO: 请在此处添加代码响应事件 BillInitialize, 下面True是表体,False是表头
        F55 = GetCtlIndexByFld("FEntrySelfA0155", True)
        F56 = GetCtlIndexByFld("FEntrySelfA0156", True)
        F57 = GetCtlIndexByFld("FEntrySelfA0157", True)
        FBatchNo = GetCtlIndexByFld("FBatchNo", True)
        FDate = GetCtlIndexByFld("FDate", False)
        FItemID = GetCtlIndexByFld("FItemID", True)
    
    End Sub
    
    Private Sub m_BillTransfer_UserMenuClick(ByVal Index As Long, ByVal Caption As String)
        'TODO: 请在此处添加代码响应事件 UserMenuClick
     
        Select Case Caption
        Case "自动批号"
            RowCount = m_BillTransfer.BillForm.get_MaxEntry
    
            '此处添加处理 批号生成 菜单对象的 Click 事件
            With m_BillTransfer
            
                For i = 1 To RowCount
                    If .GetGridText(i, FItemID) = "" Then
                        Exit For
                    End If
                    '从物料表检测 是否采用业务批次管理
                    Dim strSQL As String '用于执行SQL
                    Dim rs As ADODB.Recordset
                    FNumber = ""
                    FNumber = .GetGridText(i, FItemID)
                    strSQL = ""
                    strSQL = "SELECT FBatchManager FROM t_ICItem WHERE FNumber='" & FNumber & "'"
                    Set rs = SQLHelper.ExecuteSQL(strSQL, "")
                    If rs.EOF = False Then
                        FBatchManager = rs.Fields("FBatchManager")
                    End If
                    Set rs = Nothing
                    F55Text = .GetGridText(i, F55)
                    F56Text = .GetGridText(i, F56)
                    F57Text = .GetGridText(i, F57)
                    If F55Text = "" Then F55Text = "0"
                    If F56Text = "" Then F56Text = "0"
                    If F57Text = "" Then F57Text = "0"
                    FDateText = Replace(.GetHeadText(FDate), "-", "")
                    If (FBatchManager = True) Then
                    .SetGridText i, FBatchNo, F55Text & "-" & F56Text & "-" & F57Text & "-" & FDateText
                    End If                    
                Next
            End With
        Case Else
        End Select
    
    End Sub
    
    '**********************************
    '返回单据字段顺序(isEntry True是表体)
    '**********************************
    Public Function GetCtlIndexByFld(ByVal fldName As String, Optional ByVal isEntry As Boolean = False) As Long
    Dim ctlIdx As Long
    Dim i As Integer
    Dim isFind As Boolean
    Dim vValue As Variant
    fldName = UCase(fldName)
    isFind = False
    With m_BillTransfer
    If isEntry Then
        For i = LBound(.EntryCtl) To UBound(.EntryCtl)
        If UCase(.EntryCtl(i).FieldName) = fldName Then
        ctlIdx = .EntryCtl(i).FCtlOrder
        isFind = True
        Exit For
        End If
        Next i
    Else
        For i = LBound(.HeadCtl) To UBound(.HeadCtl)
        If UCase(.HeadCtl(i).FieldName) = fldName Then
        ctlIdx = .HeadCtl(i).FCtlIndex
        isFind = True
        Exit For
        End If
        Next i
    End If
    End With
    If isFind = True Then
    GetCtlIndexByFld = ctlIdx
    Else
    GetCtlIndexByFld = 0
    End If
    End Function
    

     

    三、配置插件

      在Visual Basic 6.0生成DLL:

    启动K/3 Wise BOS开发平台,打开外购入库单,并进行插件配置:

    “插件配置管理”,配置客户端插件:

     

    点击“浏览”,找到插件并勾选:

     点击“确定”,并保存外购入库单。

    四、测试插件

      启动K/3 Wise,打开“供应链-仓存管理-外购入库单-新增”:

     

    至此,插件开发和配置完成!

    五、插件配置后未生效

          1.在插件配置管理提示“没有找到文件,或文件没有正确注册”

             解决方法:插件dll名称命名要和工程名称一致。

                           比如工程名称“aaaa”,其中有一个类“bbb”,dll命名为“aaa”,

                           配置插件后,显示完整名称“aaa.bbb”,提示aaaa“没有找到文件,或文件没有正确注册”。

                           修改dll名称“aaa”为“aaaa”,重新配置插件,即可修复问题。

     六、附SqlHelper源码:

    Attribute VB_Name = "SQLHelper"
    'Public Function Conn() As ADODB.Connection
    '    Set Conn = New ADODB.Connection
    '    Conn.Open = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=AIS20140411200431;Data Source=."
    'End Function
    
    
    Public Function ConnectString() As String
       'ConnectString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=AIS20140411200431;Data Source=."
       ConnectString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=Ab123456;Initial Catalog=AIS20140508100349;Data Source=KDSERVER"
    End Function
    
    
    '传递参数SQL传递查询语句,MsgString传递查询信息。自身以一个数据集对象的形式返回
    Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
    Dim Cnn As ADODB.Connection '定义连接
    Dim Rst As ADODB.Recordset
    Dim sTokens() As String '定义字符串
    
    On Error GoTo ExecuteSQL_Error '异常处理
    
    sTokens = Split(SQL) '用Split函数产生一个包含各个子串的数组
    
    Set Cnn = New ADODB.Connection '创建连接
    Cnn.Open ConnectString
    
    If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then '判断字符串中是否含有指定内容
    Cnn.Execute SQL '执行查询语句
    MsgString = sTokens(0) & "query successful" '返回查询信息
    Else
    Set Rst = New ADODB.Recordset '闯将数据集对象
    Rst.Open Trim$(SQL), Cnn, adOpenKeyset, adLockOptimistic '返回查询结果
    Set ExecuteSQL = Rst '返回记录集对象
    MsgString = "查询到" & Rst.RecordCount & " 条记录"
    End If
    
    ExecuteSQL_Exit:
    
    Set Rst = Nothing '清空数据集对象
    Set Cnn = Nothing '中断连接
    Exit Function
    
    ExecuteSQL_Error: '判断错误类型
    
    MsgString = "查询错误:" & Err.Description
    MsgBox MsgString
    Resume ExecuteSQL_Exit
    
    End Function
    

     七、K3自带连接数据库的写法

    '定义插件对象接口. 必须具有的声明, 以此来获得事件
    Private WithEvents m_BillTransfer   As k3BillTransfer.Bill
    Private conn As New ADODB.Connection
    Dim FEntrySelfS0170 As Long  '库存量
    Dim FItemID As Long '物料ID
    Dim FItemIDText As String  '物料ID取值:结果取到物料代码
    
    Public Sub Show(ByVal oBillTransfer As Object)
     
        '接口实现
        '注意: 此方法必须存在, 请勿修改
        Set m_BillTransfer = oBillTransfer
        
        conn.ConnectionString = m_BillTransfer.Cnnstring
        conn.Open
    End Sub
    
    Private Sub Class_Terminate()
     
        '释放接口对象
        '注意: 此方法必须存在, 请勿修改
        Set m_BillTransfer = Nothing
    
    End Sub
    
    
    Private Sub m_BillTransfer_BillInitialize()
     
        'TODO: 请在此处添加代码响应事件 BillInitialize
        FEntrySelfS0170 = GetCtlIndexByFld("FEntrySelfS0170", True)
        FItemID = GetCtlIndexByFld("FItemID", True)
    End Sub
    
    Private Sub m_BillTransfer_GridChange(ByVal Col As Long, ByVal Row As Long, ByVal Value As Variant, ByVal bNewBill As Boolean, Cancel As Boolean)
     
        'TODO: 请在此处添加代码响应事件 GridChange
        Dim strSQL As String '用于执行SQL
        Dim rs As New ADODB.Recordset
        rs.CursorLocation = adUseClient
        Dim strXSZDL As Long '销售在订量临时赋值变量
        With m_BillTransfer
            If Col = FItemID Then
                FItemIDText = .GetGridText(Row, FItemID) '取到物料代码FNumber
                strSQL = ""
                strSQL = "select  t1.fitemid,t2.FQty  " & _
                         "from t_ICItem t1 " & _
                         "left join ICInventory t2 on t1.FItemID =t2.FItemID " & _
                        "where t1.FNumber='" & FItemIDText & "' "
    
                
                If rs.State = adStateOpen Then
                    rs.Close
                End If
                rs.Open strSQL, conn, adOpenStatic, adLockBatchOptimistic
                
                If rs.RecordCount > 0 Then
                strXSZDL = rs("FQty").Value
                .SetGridText Row, FEntrySelfS0170, strXSZDL
                End If
                
            End If
        End With
        Set rs = Nothing
        Exit Sub
    
    
    End Sub
    
    '**********************************
    '返回单据字段顺序(isEntry True是表体)
    '**********************************
    Public Function GetCtlIndexByFld(ByVal fldName As String, Optional ByVal isEntry As Boolean = False) As Long
    Dim ctlIdx As Long
    Dim i As Integer
    Dim isFind As Boolean
    Dim vValue As Variant
    fldName = UCase(fldName)
    isFind = False
    With m_BillTransfer
    If isEntry Then
        For i = LBound(.EntryCtl) To UBound(.EntryCtl)
        If UCase(.EntryCtl(i).FieldName) = fldName Then
        ctlIdx = .EntryCtl(i).FCtlOrder
        isFind = True
        Exit For
        End If
        Next i
    Else
        For i = LBound(.HeadCtl) To UBound(.HeadCtl)
        If UCase(.HeadCtl(i).FieldName) = fldName Then
        ctlIdx = .HeadCtl(i).FCtlIndex
        isFind = True
        Exit For
        End If
        Next i
    End If
    End With
    If isFind = True Then
    GetCtlIndexByFld = ctlIdx
    Else
    GetCtlIndexByFld = 0
    End If
    End Function
    

     

    转载于:https://www.cnblogs.com/zhugq02/p/11233036.html

    展开全文

空空如也

空空如也

1 2 3 4
收藏数 80
精华内容 32
关键字:

k3wise开发插件