个人博客

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

云星空 : 套打文件批量修改云星空 : 套打文件批量修改 ------------------------------------------------------------------------------
打印效果：
销售订单 SEORD2025051598072
销售出库 XOUT174584
采购订单 2025030222755
采购入库 WIN153961
委外出库 SOUT87930
委外入库 WIN148727

------------------------------------------------------------------------------
替换【颜色】【字体】

color="#ff0000" / color="Red"
color="Black"

微软雅黑宋体

云星空小六 7

标题三号 16
产品名称小四 12 粗体

------------------------------------------------------------------------------
明细.聚合字段集合

AmountSum / sum( FAmount ) / 文本 GetDataSourceValue("FEntity","AmountSum")

合计金额：
合计：￥

SumFQtyStock3 / sum( FQtyStock3 ) / 文本 GetDataSourceValue("FEntity2","SumFQtyStock3")
SumFQtySale2 / sum( FQtySale2 ) / 文本 GetDataSourceValue("FEntity2","SumFQtySale2")

------------------------------------------------------------------------------
脚本：合计金额 "cell31","cell36","cell34" 最后一页不显示合计金额

import clr
clr.AddReference("System.Drawing")
clr.AddReference("Kingdee.BOS.Core")
from System.Drawing import *
from Kingdee.BOS.Core import *

def OutputElement(e):

Ctrls = ["cell31","cell36","cell34"]

if(not e.IsLastNotePage):
if e.ControlInfo.ControlID in Ctrls:
e.ControlInfo.Text="";
郭少锋编辑 2025-11-20 18:38:08 创建 2025-11-19 01:08:32 云星空云星空 : 单据合法性校验云星空 : 单据合法性校验变更后【颜色】必填！

FMaterialId.FIsColor = 1 and FColor == null
物料编码.颜色必填 = 1 and 颜色 == null

【FMaterialId 物料编码】基础资料
【FIsColor 颜色必填】复选框

【FColor 颜色】基础资料，有填写【FColor != null】，未填写【FColor == null】郭少锋创建 2025-11-20 09:56:29 云星空云星空 : 当前行颜色云星空 : 当前行颜色淡紫色 #2ACC00FF 郭少锋创建 2025-11-20 09:50:59 云星空云星空 : 套打动态字段云星空 : 套打动态字段使用GetDataSourceValue(“实体标识”,“动态字段标识”)取数，函数参考：https://vip.kingdee.com/knowledge/687303251607225344。

动态字段标识 FNote2
",".join(filter(None, [FID_SaleOrder.FName, FEntryNote, FID_SaleOrder.FCustNo]))
",".join([FID_SaleOrder.FName, FEntryNote, FID_SaleOrder.FCustNo])

GetDataSourceValue("FEntity","FNote2")

GetValue("FID_SaleOrder.FName")，GetValue("FEntryNote")，GetValue("FID_SaleOrder.FCustNo")
郭少锋编辑 2025-11-16 16:03:32 创建 2025-11-16 15:45:01 云星空云星空 : 表达式条件云星空 : 表达式条件 ISDRAW() = 1
关联上游单据生成时，锁定字段

字段【FAmountStock(加工金额)】的值更新事件绑定的服务【加工单价2 = 加工金额 / 业务数量】的条件公式【["FPriceSale2 = FAmountStock / FQtySale"]】存在除零风险，前提条件公式为【】，请核查后修复。

更正后：FPriceSale2 = FAmountStock / FQtySale if (FQtySale <> 0) else 0 郭少锋编辑 2025-11-12 22:11:43 创建 2025-04-14 17:36:37 云星空云星空 : 读取系统设置云星空 : 读取系统设置
var aUserId = aContext.UserId.ToString(); // 当前用户 id
var aFOrgId = aContext.CurrentOrganizationInfo.ID; // 当前组织 id

#region| 取得：系统设置 |

var aSql = $@"/*dialect*/
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- 读取：系统设置

select * from (
--------------------------------------------------------------------------------------------
select FOrgId

,a1.value('(Seq)[1]', 'int') FSeq
,a1.value('(FUserId/User/Id)[1]', 'int') FUserId

,a1.value('(FUserId/User/Name)[1]', 'nvarchar(50)') FUserName

,a1.value('(FType)[1]', 'nvarchar(50)') FType
,a1.value('(FValue)[1]', 'int') FValue

from t_Bas_SysParameter

cross apply FParameters.nodes('/FHead/FEntity/FEntity') T(a1)

where FParameterObjId = 'aGsf_SysSet'
--------------------------------------------------------------------------------------------
) a where FUserId = {aUserId} and FOrgId in ( 0,{aFOrgId} )

order by FOrgId desc

---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
";
DynamicObjectCollection aTable1 = DBServiceHelper.ExecuteDynamicObject(aContext, aSql);
#endregion
郭少锋创建 2025-10-10 10:08:45 云星空云星空 : BOS配置云星空 : BOS配置属性：采购员过滤 FBizOrgId='GetValue(FPurchaseOrgId)'

FPurchaseOrgId 采购组织字段标识
FBizOrgId 采购员的使用组织字段标识。

属性：部门过滤 FDEPTID IN (SELECT FDEPTID FROM T_BD_STAFF WHERE FEMPINFOID = GetValue(F_DN_Person) )

FCustId ='GetValue(FReceiveId)' and FIsUsed=1

郭少锋编辑 2025-09-08 16:04:11 创建 2024-05-31 10:32:28 云星空云星空 : 简单账表基础资料字段显示值替换云星空 : 简单账表基础资料字段显示值替换
#region| 设置：报表属性 Initialize() |
public override void Initialize()
{
base.Initialize();

base.ReportProperty.IdentityFieldName = "FIdentityId"; // 字段筛选需要用到，名称不可修改

base.ReportProperty.BillTypeFieldName = "FBillTypeId";
base.ReportProperty.FormIdFieldName = "FFormId";
base.ReportProperty.BillKeyFieldName = "FID";
base.ReportProperty.PrimaryKeyFieldName = "FBillNo";

base.ReportProperty.ReportType = ReportType.REPORTTYPE_NORMAL;

base.ReportProperty.IsUIDesignerColumns = true;
base.ReportProperty.IsGroupSummary = true;

base.IsCreateTempTableByPlugin = true;
base.ReportProperty.SimpleAllCols = true;
base.ReportProperty.IsDefaultOnlyDspSumAndDetailData = true;

//base.ReportProperty.DspInsteadColumnsInfo.DefaultDspInsteadColumns.Add("FStockId", "FStockNo");
//base.ReportProperty.DspInsteadColumnsInfo.DefaultDspInsteadColumns.Add("FMaterialId", "FMaterialNo");

base.ReportProperty.DspInsteadColumnsInfo.DefaultDspInsteadColumns = new Dictionary<string, string>() // 显示时，把基础资料 FStockId 的值显示成数据表 FStockNo 的值
{
{ "FStockId", "FStockNo"},
{ "FMaterialId", "FMaterialNo"},
};

}
#endregion

#region| 创建临时表 aCreateTempTable() |
private void aCreateTempTable(Context aContext)
{
aSql = string.Format(@"/*dialect*/
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- 创建：临时表 {0}

create table dbo.{0}(

FListId bigint identity(1,1) primary key -- 自动递增

,FIdentityId int null default(0) -- 序号：字段筛选需要用到
,FLevel int null default(0) -- 步骤：

,FFormId varchar(36) null default('') -- 单据名称

,FFormSeq int null default(0) -- 单据顺序

,FID int null default(0) -- 单据内码
,FEntryId int null default(0) -- 分录内码

,FBillTypeId varchar(36) null default('') -- 单据类型

,FDate datetime null -- 单据日期

,FBillNo nvarchar(30) null default('') -- 单据编号

,FSeq int null default(0) -- 行号

,FStockId bigint null default(0) -- 仓库名称
,FMaterialId bigint null default(0) -- 物料编码
,FColor bigint null default(0) -- 颜色

,FStockNo nvarchar(50) null default('') -- 仓库编码
,FMtrlNo nvarchar(50) null default('') -- 仓库编码
);
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
", aTableName); DBUtils.Execute(aContext, aSql);
}
#endregion
郭少锋创建 2025-07-10 16:16:28 云星空云星空 : 联查：关联信息云星空 : 联查：关联信息
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- 联查：关联信息

select

it11.FMasterId ,it11.FInstanceId,it11.FFLowId,it11.FFirstFormId,it11.FFirstBillNo,it11.FFirstBillId,it11.FStartTime,it11.FStatus,it11.FSourceId ,'|' A

,it12.FInstanceId,it12.FRouteId,it12.FsTableName,it12.FsId,it12.FtTableName,it12.FtId,it12.FCreateTime,it12.FLineId,it12.FFirstNode,it12.FIsBreak

,it11.FFirstBillNo FBillNo_PpBom
,isnull(pb12.FSeq,'') FSeq_PpBom

,isnull(pm11.FBillNo ,'') FBillNo_PickMtrl
,isnull(pm12.FSeq ,'') FSeq_PickMtrl

from t_BF_Instance it11
left join t_BF_InstanceEntry it12 on it11.FInstanceId = it12.FInstanceId

left join t_Prd_PpBomEntry pb12 on (case when it12.FtTableName = 't_Prd_PpBomEntry' then it12.FtId else 0 end) = pb12.FEntryId
left join t_Prd_PickMtrlData pm12 on (case when it12.FtTableName = 't_Prd_PickMtrlData' then it12.FtId else 0 end) = pm12.FEntryId

left join t_Prd_PickMtrl pm11 on pm11.FID = pm12.FID

where it11.FFirstBillNo = 'PPBOM64260' and it11.FInstanceId = '1'

order by it11.FMasterId ,it11.FInstanceId ,it12.FRouteId

/*
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

dbcc checkIdent('Z_Prd_PickMtrlData_LK', noReSeed) ; -- 种子表

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

t_BF_InstanceEntry

FFirstNode = 1 是否存在【关联关系】

FLineId = 5 具体的【关联关系】

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

delete from t_BF_Instance where FInstanceId = '1'
delete from t_BF_InstanceEntry where FInstanceId = '1'

insert into t_BF_Instance ( FMasterId ,FInstanceId ,FFirstFormId ,FFirstBillNo ,FFirstBillId ) -- 源单：表头信息
select '1' ,'1' ,'PRD_PPBOM' ,'PPBOM64260' ,'205129'

insert into t_BF_InstanceEntry ( FInstanceId ,FRouteId ,FsTableName ,FsId ,FtTableName ,FtId ,FLineId ,FFirstNode ) -- 源单：表体信息 + 对应关系
select '1' ,'2' ,' ' ,'0' ,'T_PRD_PPBOMENTRY' ,'1849488' ,'0' ,'1' union all
select '1' ,'3' ,'T_PRD_PPBOMENTRY' ,'1849488' ,'T_PRD_PICKMTRLDATA' ,'995718' ,'5' ,'0' union all
select '1' ,'4' ,'T_PRD_PPBOMENTRY' ,'1849488' ,'T_PRD_PICKMTRLDATA' ,'998663' ,'5' ,'0'

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

select * from t_BF_Instance where FInstanceId = '6859002b528307'
select * from t_BF_InstanceEntry where FtId = 1849488

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
*/

郭少锋创建 2025-07-10 15:41:39 云星空云星空 : 开发商注册码云星空 : 开发商注册码 select * from t_bos_isv -- 开发商注册码在配置数据库 K3DBConfiger_231008

update t_bos_isv set FDEVCODE ='aGsf' WHERE FISVID = 'IBHC-LMFG-QIMZ-RMVF-BKTP'

郭少锋创建 2025-06-28 18:12:47 云星空