个人博客 用于记载日常收集的一些技术文章 ...

K3 BOS : K3 老单 值更新 K3 BOS : K3 老单 值更新 -------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- 表体 值更新事件：FAdviceConsignDate 建议交货日期 = 表头.交货日期 + 0

UPDATE ICTemplateEntry SET FRelationID = 'Head&FHeadSelfS0195,FItemID'
,FAction = 'V>=K,Head|FHeadSelfS0195;!D,Head|FHeadSelfS0195,+,0'
WHERE FID = 'S01'
AND FFieldName = 'FAdviceConsignDate'
/*
原值：
FRelationID：Head&FTransitAheadTime,Head&FCustID,FItemID,FDate
FAction ：D,FDate;!D,FDate,-,Head|FTransitAheadTime

值更新：Head&FTransitAheadTime 表头.运输提前期 ,Head&FCustID 表头.客户 ,FItemID 物料 ,FDate 交货日期
表达式：交货日期 - 表头.运输提前期

Head&FHeadSelfS0195 表头.交货日期 Head|FHeadSelfS0195
*/
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- 表体 值更新事件：FDate 交货日期 = 表头.交货日期 + 0

UPDATE ICTemplateEntry SET FRelationID = 'Head&FHeadSelfS0195,FItemID'
,FAction = 'V>=K,Head|FHeadSelfS0195;!D,Head|FHeadSelfS0195,+,0'
WHERE FID = 'S01'
AND FFieldName = 'FDate'

/*
原值：
FRelationID：FAdviceConsignDate,FItemID
FAction ：V>=K,FAdviceConsignDate;!D,FAdviceConsignDate,+,Head|FTransitAheadTime

值更新：FAdviceConsignDate 建议交货日期 ,FItemID 物料
表达式：V>=K,FAdviceConsignDate 建议交货日期;!D,FAdviceConsignDate 建议交货日期,+,Head|FTransitAheadTime 表头.运输提前期

Head&FHeadSelfS0195 表头.交货日期 Head|FHeadSelfS0195
*/ 郭少锋 编辑 2023-09-05 10:13:25 创建 2023-09-05 10:12:25 K3 BOS K3 BOS : K3 老单 值更新 K3 BOS : K3 老单 值更新 -------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- 表头 值更新事件：票据种类 = 客户.票据种类

UPDATE ICTemplate SET FRelationID = 'FCustID'
,FAction = '.B,F_102,t_SubMessage'
WHERE FID = 'S01'
AND FFieldName = 'FHeadSelfS0192'
/*
FCustID 客户

.B 属性
F_102 票据种类

t_SubMessage 数据表名：辅助资料表
*/ 郭少锋 创建 2023-09-05 10:11:11 K3 BOS K3 BOS : K3 老单 序时簿 默认宽度 K3 BOS : K3 老单 序时簿 默认宽度 -------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- 单据序时簿：默认宽度

UPDATE ICChatBillTitle SET FColCaption = '整单关闭$' WHERE FTypeID = 61 AND FColName = 'FCloseStatus' -- 关闭标志$
UPDATE ICChatBillTitle SET FColCaption = '行关闭$' WHERE FTypeID = 61 AND FColName = 'FMRPClosed' -- 行业务关闭标志$

UPDATE ICChatBillTitle SET FColWidth = 500 WHERE FTypeID = 61 AND FColName = 'FCheck' -- 审核标志$
UPDATE ICChatBillTitle SET FColWidth = 500 WHERE FTypeID = 61 AND FColName = 'FCloseStatus' -- 整单关闭$
UPDATE ICChatBillTitle SET FColWidth = 1150 WHERE FTypeID = 61 AND FColName = 'Fdate' -- 制单日期$
UPDATE ICChatBillTitle SET FColWidth = 1150 WHERE FTypeID = 61 AND FColName = 'FOutStockDate' -- 交货日期$
UPDATE ICChatBillTitle SET FColWidth = 2200 WHERE FTypeID = 61 AND FColName = 'FCustIDName' -- 购货单位$
UPDATE ICChatBillTitle SET FColWidth = 500 WHERE FTypeID = 61 AND FColName = 'FFetchStyle' -- 交货方式$
UPDATE ICChatBillTitle SET FColWidth = 2000 WHERE FTypeID = 61 AND FColName = 'FBillNo' -- 单据编号$
UPDATE ICChatBillTitle SET FColWidth = 900 WHERE FTypeID = 61 AND FColName = 'FDeptIDName' -- 部门$
UPDATE ICChatBillTitle SET FColWidth = 700 WHERE FTypeID = 61 AND FColName = 'FEmpIDName' -- 业务员$
UPDATE ICChatBillTitle SET FColWidth = 700 WHERE FTypeID = 61 AND FColName = 'FuserName' -- 制单$
UPDATE ICChatBillTitle SET FColWidth = 700 WHERE FTypeID = 61 AND FColName = 'FHeadSelfS0194' -- 区域
UPDATE ICChatBillTitle SET FColWidth = 1500 WHERE FTypeID = 61 AND FColName = 'FItemName' -- 产品名称$
UPDATE ICChatBillTitle SET FColWidth = 1500 WHERE FTypeID = 61 AND FColName = 'FAuxPropIDName' -- 辅助属性$
UPDATE ICChatBillTitle SET FColWidth = 1500 WHERE FTypeID = 61 AND FColName = 'FExplanation' -- 摘要$
UPDATE ICChatBillTitle SET FColWidth = 1500 WHERE FTypeID = 61 AND FColName = 'FNote' -- 内部备注$
UPDATE ICChatBillTitle SET FColWidth = 1500 WHERE FTypeID = 61 AND FColName = 'FEntrySelfS0176' -- 客户备注
UPDATE ICChatBillTitle SET FColWidth = 1500 WHERE FTypeID = 61 AND FColName = 'FHeadSelfS0193' -- 客户单号
UPDATE ICChatBillTitle SET FColWidth = 1200 WHERE FTypeID = 61 AND FColName = 'FAllAmount' -- 价税合计$
UPDATE ICChatBillTitle SET FColWidth = 1200 WHERE FTypeID = 61 AND FColName = 'FEntrySelfS0182' -- 销售金额$
UPDATE ICChatBillTitle SET FColWidth = 1200 WHERE FTypeID = 61 AND FColName = 'FEntrySelfS0173' -- 业务数量
UPDATE ICChatBillTitle SET FColWidth = 1200 WHERE FTypeID = 61 AND FColName = 'FEntrySelfS0177' -- 数量未出库
UPDATE ICChatBillTitle SET FColWidth = 1200 WHERE FTypeID = 61 AND FColName = 'FEntrySelfS0179' -- 数量已出库
UPDATE ICChatBillTitle SET FColWidth = 1200 WHERE FTypeID = 61 AND FColName = 'FEntrySelfS0175' -- 业务金额$
UPDATE ICChatBillTitle SET FColWidth = 500 WHERE FTypeID = 61 AND FColName = 'FUnitIDName' -- 单位$
UPDATE ICChatBillTitle SET FColWidth = 500 WHERE FTypeID = 61 AND FColName = 'FCancellation' -- 作废标志$
UPDATE ICChatBillTitle SET FColWidth = 500 WHERE FTypeID = 61 AND FColName = 'FMRPClosed' -- 行关闭$
UPDATE ICChatBillTitle SET FColWidth = 500 WHERE FTypeID = 61 AND FColName = 'FHeadSelfS0192' -- 票据种类$
UPDATE ICChatBillTitle SET FColWidth = 500 WHERE FTypeID = 61 AND FColName = 'FEntrySelfS0172' -- 业务单位$ 郭少锋 创建 2023-09-05 10:09:10 K3 BOS K3 BOS : K3 老单 隐藏字段 K3 BOS : K3 老单 隐藏字段 FVisForBillType 0 1 31 63
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- 单据表体：显示字段 31/63

UPDATE ICTemplateEntry SET FVisForBillType = 31 WHERE FID = 'S01' AND FFieldName = 'FAuxTaxPrice' -- FAuxTaxPrice 含税单价
UPDATE ICTemplateEntry SET FVisForBillType = 31 WHERE FID = 'S01' AND FFieldName = 'FAllStdAmount' -- FAllStdAmount 价税合计(本位币)

UPDATE ICTemplateEntry SET FVisForBillType = 31 WHERE FID = 'S01' AND FFieldName = 'FTaxRate' -- FTaxRate 折扣率(%)
UPDATE ICTemplateEntry SET FVisForBillType = 31 WHERE FID = 'S01' AND FFieldName = 'FUniDiscount' -- FUniDiscount 单位折扣额
UPDATE ICTemplateEntry SET FVisForBillType = 31 WHERE FID = 'S01' AND FFieldName = 'FTaxAmount' -- FTaxAmount 折扣额
UPDATE ICTemplateEntry SET FVisForBillType = 31 WHERE FID = 'S01' AND FFieldName = 'FAllAmount' -- FAllAmount 价税合计
UPDATE ICTemplateEntry SET FVisForBillType = 31 WHERE FID = 'S01' AND FFieldName = 'FAuxPriceDiscount' -- FAuxPriceDiscount 实际含税单价
UPDATE ICTemplateEntry SET FVisForBillType = 63 WHERE FID = 'S01' AND FFieldName = 'FCess' -- FCess 税率(%)
UPDATE ICTemplateEntry SET FVisForBillType = 31 WHERE FID = 'S01' AND FFieldName = 'FTaxAmt' -- FTaxAmt 销项税额
UPDATE ICTemplateEntry SET FVisForBillType = 31 WHERE FID = 'S01' AND FFieldName = 'Fauxprice' -- Fauxprice 单价

-------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- 单据表体：隐藏字段

UPDATE ICTemplateEntry SET FVisForBillType = 0 WHERE FID = 'S01' AND FFieldName = 'FAuxTaxPrice' -- FAuxTaxPrice 含税单价
UPDATE ICTemplateEntry SET FVisForBillType = 0 WHERE FID = 'S01' AND FFieldName = 'FAllStdAmount' -- FAllStdAmount 价税合计(本位币)

UPDATE ICTemplateEntry SET FVisForBillType = 0 WHERE FID = 'S01' AND FFieldName = 'FTaxRate' -- FTaxRate 折扣率(%)
UPDATE ICTemplateEntry SET FVisForBillType = 0 WHERE FID = 'S01' AND FFieldName = 'FUniDiscount' -- FUniDiscount 单位折扣额
UPDATE ICTemplateEntry SET FVisForBillType = 0 WHERE FID = 'S01' AND FFieldName = 'FTaxAmount' -- FTaxAmount 折扣额
UPDATE ICTemplateEntry SET FVisForBillType = 0 WHERE FID = 'S01' AND FFieldName = 'FAllAmount' -- FAllAmount 价税合计
UPDATE ICTemplateEntry SET FVisForBillType = 0 WHERE FID = 'S01' AND FFieldName = 'FAuxPriceDiscount' -- FAuxPriceDiscount 实际含税单价
UPDATE ICTemplateEntry SET FVisForBillType = 0 WHERE FID = 'S01' AND FFieldName = 'FCess' -- FCess 税率(%)
UPDATE ICTemplateEntry SET FVisForBillType = 0 WHERE FID = 'S01' AND FFieldName = 'FTaxAmt' -- FTaxAmt 销项税额
UPDATE ICTemplateEntry SET FVisForBillType = 0 WHERE FID = 'S01' AND FFieldName = 'Fauxprice' -- Fauxprice 单价 郭少锋 编辑 2023-09-05 10:08:13 创建 2023-09-05 10:06:16 K3 BOS K3 BOS : K3 老单 锁定字段 K3 BOS : K3 老单 锁定字段 FEnable 0 48 112
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- 字段：锁定 0

UPDATE ICTemplate SET FEnable = 0 WHERE FID = 'S01' AND FFieldName = 'Fdate' -- Fdate 制单日期

UPDATE ICTemplateEntry SET FEnable = 0 WHERE FID = 'S01' AND FFieldName = 'FAuxTaxPrice' -- FAuxTaxPrice 含税单价
UPDATE ICTemplateEntry SET FEnable = 0 WHERE FID = 'S01' AND FFieldName = 'Fauxprice' -- Fauxprice 单价
UPDATE ICTemplateEntry SET FEnable = 0 WHERE FID = 'S01' AND FFieldName = 'Famount' -- Famount 金额

-------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- 字段：可编辑 48

UPDATE ICTemplate SET FEnable = 48 WHERE FID = 'S01' AND FFieldName = 'FHeadSelfS0192' -- FHeadSelfS0192 票据种类

UPDATE ICTemplateEntry SET FEnable = 48 WHERE FID = 'S01' AND FFieldName = 'FTaxAmt' -- FTaxAmt 销项税额
UPDATE ICTemplateEntry SET FEnable = 48 WHERE FID = 'S01' AND FFieldName = 'FTaxAmount' -- FTaxAmount 折扣额 郭少锋 编辑 2023-09-05 10:07:14 创建 2023-09-05 10:03:55 K3 BOS K3 BOS : K3 老单 更改 单据布局 K3 BOS : K3 老单 更改 单据布局 -------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- 单据布局：左右 总宽度 + 200

UPDATE ICTransactionType SET FFormWidth = 13300 WHERE FTemplateID = 'S01' -- 整单


UPDATE ICTemplate SET FLeft = 100 ,FWidth = 13000 WHERE FID = 'S01' AND FFieldName = 'FEntry' -- 表体

UPDATE ICTemplate SET FLeft = 7600 ,FWidth = 1300 WHERE FID = 'S01' AND FFieldName = 'FBillCaption' -- 销售订单

UPDATE ICTemplate SET FLeft = 100 ,FWidth = 4000 WHERE FID = 'S01' AND FFieldName = 'FHeadSelfS0193' -- 客户单号
UPDATE ICTemplate SET FLeft = 4200 ,FWidth = 1300 WHERE FID = 'S01' AND FFieldName = 'FHeadSelfS0194' -- 区域
UPDATE ICTemplate SET FLeft = 10900 ,FWidth = 2200 WHERE FID = 'S01' AND FFieldName = 'FBillNo' -- 单据编号

UPDATE ICTemplate SET FLeft = 100 ,FWidth = 5400 WHERE FID = 'S01' AND FFieldName = 'FCustID' -- 购货单位
UPDATE ICTemplate SET FLeft = 5700 ,FWidth = 2000 WHERE FID = 'S01' AND FFieldName = 'FFetchStyle' -- 交货方式
UPDATE ICTemplate SET FLeft = 7800 ,FWidth = 2200 WHERE FID = 'S01' AND FFieldName = 'FHeadSelfS0195' -- 交货日期
UPDATE ICTemplate SET FLeft = 10900 ,FWidth = 2200 WHERE FID = 'S01' AND FFieldName = 'Fdate' -- 制单日期

UPDATE ICTemplate SET FLeft = 100 ,FWidth = 1500 WHERE FID = 'S01' AND FFieldName = 'FHeadSelfS0192' -- 票据种类
UPDATE ICTemplate SET FLeft = 1700 ,FWidth = 1700 WHERE FID = 'S01' AND FFieldName = 'FEmpID' -- 业务员
UPDATE ICTemplate SET FLeft = 3600 ,FWidth = 1900 WHERE FID = 'S01' AND FFieldName = 'FDeptID' -- 部门
UPDATE ICTemplate SET FLeft = 5700 ,FWidth = 7400 WHERE FID = 'S01' AND FFieldName = 'FFetchAdd' -- 交货地点

UPDATE ICTemplate SET FLeft = 100 ,FWidth = 13000 WHERE FID = 'S01' AND FFieldName = 'FExplanation' -- 摘要

UPDATE ICTemplate SET FLeft = 100 ,FWidth = 1500 WHERE FID = 'S01' AND FFieldName = 'FBillerID' -- 制单
UPDATE ICTemplate SET FLeft = 1700 ,FWidth = 1500 WHERE FID = 'S01' AND FFieldName = 'FCheckerID' -- 审核
郭少锋 创建 2023-09-05 10:02:54 K3 BOS K3 BOS : K3 老单 更改 单据布局 K3 BOS : K3 老单 更改 单据布局 -------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- 单据布局：上下 总高度 + 800

UPDATE ICTransactionType SET FFormHeight = 8000 WHERE FTemplateID = 'S01' -- 整单

UPDATE ICTemplate SET FTop = 100 ,FHeight = 300 WHERE FID = 'S01' AND FFieldName = 'FBillCaption' -- 销售订单

UPDATE ICTemplate SET FTop = 200 ,FHeight = 300 WHERE FID = 'S01' AND FFieldName = 'FHeadSelfS0193' -- 客户单号
UPDATE ICTemplate SET FTop = 200 ,FHeight = 300 WHERE FID = 'S01' AND FFieldName = 'FHeadSelfS0194' -- 区域
UPDATE ICTemplate SET FTop = 200 ,FHeight = 300 WHERE FID = 'S01' AND FFieldName = 'FBillNo' -- 单据编号

UPDATE ICTemplate SET FTop = 600 ,FHeight = 300 WHERE FID = 'S01' AND FFieldName = 'FCustID' -- 购货单位
UPDATE ICTemplate SET FTop = 600 ,FHeight = 300 WHERE FID = 'S01' AND FFieldName = 'FFetchStyle' -- 交货方式
UPDATE ICTemplate SET FTop = 600 ,FHeight = 300 WHERE FID = 'S01' AND FFieldName = 'FHeadSelfS0195' -- 交货日期
UPDATE ICTemplate SET FTop = 600 ,FHeight = 300 WHERE FID = 'S01' AND FFieldName = 'Fdate' -- 制单日期

UPDATE ICTemplate SET FTop = 1000 ,FHeight = 300 WHERE FID = 'S01' AND FFieldName = 'FHeadSelfS0192' -- 票据种类
UPDATE ICTemplate SET FTop = 1000 ,FHeight = 300 WHERE FID = 'S01' AND FFieldName = 'FEmpID' -- 业务员
UPDATE ICTemplate SET FTop = 1000 ,FHeight = 300 WHERE FID = 'S01' AND FFieldName = 'FDeptID' -- 部门
UPDATE ICTemplate SET FTop = 1000 ,FHeight = 300 WHERE FID = 'S01' AND FFieldName = 'FFetchAdd' -- 交货地点

UPDATE ICTemplate SET FTop = 1400 ,FHeight = 300 WHERE FID = 'S01' AND FFieldName = 'FExplanation' -- 摘要

UPDATE ICTemplate SET FTop = 1800 ,FHeight = 5000 WHERE FID = 'S01' AND FFieldName = 'FEntry' -- 表体

UPDATE ICTemplate SET FTop = 6900 ,FHeight = 300 WHERE FID = 'S01' AND FFieldName = 'FBillerID' -- 制单
UPDATE ICTemplate SET FTop = 6900 ,FHeight = 300 WHERE FID = 'S01' AND FFieldName = 'FCheckerID' -- 审核
郭少锋 创建 2023-09-05 10:02:30 K3 BOS K3 BOS : K3 老单 更改 字段高度 宽度 K3 BOS : K3 老单 更改 字段高度 宽度 -------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- 字段高度

UPDATE ICTemplate SET FHeight = 300 WHERE FHeight < 1000 AND FID = 'S01'

UPDATE ICTemplate SET FTop = 3000 WHERE FTop = 0 AND FID = 'S01'
UPDATE ICTemplate SET FLeft = 1000 WHERE FLeft = 0 AND FID = 'S01'
郭少锋 创建 2023-09-05 10:01:00 K3 BOS K3 BOS : VB 序时簿 只能查看 本人创建的单据 K3 BOS : VB 序时簿 只能查看 本人创建的单据 Dim aComm1 As New aComm


Private WithEvents m_ListInterface As ListEvents '定义 ListEvents 接口. 必须具有的声明, 以此来获得事件



Public Sub Show(ByVal oListInterface As Object) 'ListEvents 接口实现 '注意: 此方法必须存在, 请勿修改

Set m_ListInterface = oListInterface

aFUserId = m_ListInterface.K3Lib.User.UserID
aFClassTypeID = m_ListInterface.DataSrv.ClassTypeID
aTableName = m_ListInterface.DataSrv.ClassType("FTableName")

'---------------------------------------------------------------------------------------------------------------------------------------
' 过滤条件 只能查看 本人创建的单据

aControl = aComm1.aCheckFunc1(m_ListInterface, aFUserId, aFClassTypeID, 18, "ShowOne") '只能查看 本人创建的单据

If aControl = True Then
m_ListInterface.ListFilterString = aTableName & ".FBiller = " & aFUserId '制单人 = 当前用户
m_ListInterface.RefreshList
End If

End Sub



Private Sub Class_Terminate()

Set m_ListInterface = Nothing '释放接口对象 '注意: 此方法必须存在, 请勿修改
End Sub 郭少锋 编辑 2023-09-04 16:52:54 创建 2023-09-02 17:55:03 K3 BOS K3 BOS : K3 单据 显示列 K3 BOS : K3 单据 显示列 Private Sub m_BillInterface_AfterLoadBill() '【设置】字段权限 后，仍可显示字段


Dim oEntrys As K3ClassEvents.BillEntrys: Set oEntrys = m_BillInterface.BillEntrys
Dim oEntry As K3ClassEvents.BillEntry: Set oEntry = oEntrys(1)


Set oFields = oEntry.BOSFields
'---------------------------------------------------------------------
Set oField = oFields("FPrice") 'FPrice 销售单价
With oField
.Visible = True '显示列：初始=False 就能不能再改为 True
End With
'---------------------------------------------------------------------
Set oField = oFields("FAmount") 'FAmount 销售金额
With oField
.Visible = True
End With

End Sub
郭少锋 编辑 2023-09-04 15:44:02 创建 2023-09-04 15:27:24 K3 BOS