From 69f6bdfc0e7307e1873320ac12e6a335a6f59077 Mon Sep 17 00:00:00 2001
From: funa <1559646174@qq.com>
Date: Mon, 18 May 2026 17:33:41 +0800
Subject: [PATCH] =?UTF-8?q?=E9=87=87=E8=B4=AD?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
B04采购计划管理/ProjectGroup1.groupproj.local | 2 +-
B04采购计划管理/PurchasePlan.dpr | 3 +-
B04采购计划管理/PurchasePlan.dproj | 3 +-
B04采购计划管理/PurchasePlan.dproj.local | 122 +++++++++---------
B04采购计划管理/PurchasePlan.identcache | Bin 2710 -> 2479 bytes
B04采购计划管理/U_ClothHJGPlanList.dfm | 61 +++++++--
B04采购计划管理/U_ClothHJGPlanList.pas | 17 ++-
B04采购计划管理/U_ClothPurchasePlanList.dfm | 5 +-
B04采购计划管理/U_ClothRSPlanList.dfm | 4 +-
B04采购计划管理/testDll.identcache | Bin 182 -> 164 bytes
10 files changed, 136 insertions(+), 81 deletions(-)
diff --git a/B04采购计划管理/ProjectGroup1.groupproj.local b/B04采购计划管理/ProjectGroup1.groupproj.local
index 585217b..3676032 100644
--- a/B04采购计划管理/ProjectGroup1.groupproj.local
+++ b/B04采购计划管理/ProjectGroup1.groupproj.local
@@ -2,6 +2,6 @@
-
+
diff --git a/B04采购计划管理/PurchasePlan.dpr b/B04采购计划管理/PurchasePlan.dpr
index 7b6b7e6..43a936b 100644
--- a/B04采购计划管理/PurchasePlan.dpr
+++ b/B04采购计划管理/PurchasePlan.dpr
@@ -37,7 +37,8 @@ uses
U_RSTradePlanSel in 'U_RSTradePlanSel.pas' {frmRSTradePlanSel},
U_ClaimsList in 'U_ClaimsList.pas' {frmClaimsList},
U_TradeDefectKCListSel in 'U_TradeDefectKCListSel.pas' {frmTradeDefectKCListSel},
- U_CLNoteEdit in 'U_CLNoteEdit.pas' {frmCLNoteEdit};
+ U_CLNoteEdit in 'U_CLNoteEdit.pas' {frmCLNoteEdit},
+ uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas';
{$R *.res}
diff --git a/B04采购计划管理/PurchasePlan.dproj b/B04采购计划管理/PurchasePlan.dproj
index 6f5dc62..8d169b4 100644
--- a/B04采购计划管理/PurchasePlan.dproj
+++ b/B04采购计划管理/PurchasePlan.dproj
@@ -80,7 +80,7 @@
CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)
- E:\temp\Dp10Repo\项目代码\D10zzbiaoqi\B04采购计划管理\testDll.exe
+ D:\D10W\项目代码\D10myBiaoqi\B04采购计划管理\testDll.exe
@@ -189,6 +189,7 @@
dfm
+
Cfg_2
Base
diff --git a/B04采购计划管理/PurchasePlan.dproj.local b/B04采购计划管理/PurchasePlan.dproj.local
index 834c5f1..10a022a 100644
--- a/B04采购计划管理/PurchasePlan.dproj.local
+++ b/B04采购计划管理/PurchasePlan.dproj.local
@@ -1,67 +1,68 @@
- 1899-12-30 00:00:00.000.305,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_RSTradePlanSel.pas=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_PurTradePlanSel.pas
- 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
- 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas
- 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm
- 1899-12-30 00:00:00.000.857,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothHJGPlanPut.pas
- 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
- 1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
- 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
- 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
- 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
- 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
- 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899-12-30 00:00:00.000.020,D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_ClaimsList.pas
- 1899-12-30 00:00:00.000.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas
- 1899-12-30 00:00:00.000.953,D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_ClaimsPut.pas
- 1899-12-30 00:00:00.000.891,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothPurchasePlanList.dfm=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothRSPlanList.dfm
- 1899-12-30 00:00:00.000.954,D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_ClaimsPut.dfm
- 1899-12-30 00:00:00.000.910,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothStainPlanPut.dfm
- 1899-12-30 00:00:00.000.458,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_EmpSel.dfm=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_GXSel.dfm
- 1899-12-30 00:00:00.000.910,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothPurchasePlanPut.pas=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothStainPlanPut.pas
- 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
- 1899-12-30 00:00:00.000.891,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothPurchasePlanList.pas=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothRSPlanList.pas
- 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
- 1899-12-30 00:00:00.000.488,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothStainPlanList.pas
- 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
- 1899-12-30 00:00:00.000.869,D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.pas=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_PurTradePlanSel.pas
- 1899-12-30 00:00:00.000.450,=D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.pas
- 1899-12-30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas
- 1899-12-30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj
- 1899-12-30 00:00:00.000.110,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothHJGPlanList.pas
- 1899-12-30 00:00:00.000.059,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothRSPlanPut.pas
- 1899-12-30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
- 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
- 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899-12-30 00:00:00.000.985,=D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_CLNoteEdit.pas
- 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
- 1899-12-30 00:00:00.000.931,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
- 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
- 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
- 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
- 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
- 1899-12-30 00:00:00.000.458,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_EmpSel.pas=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_GXSel.pas
- 1899-12-30 00:00:00.000.781,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_HJGTradePlanSel.pas
- 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
- 1899-12-30 00:00:00.000.020,D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_ClaimsList.dfm
- 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
- 1899-12-30 00:00:00.000.564,=D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_UserSel.pas
- 1899-12-30 00:00:00.000.606,=D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_TradeDefectKCListSel.pas
- 1899-12-30 00:00:00.000.869,D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.dfm=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_PurTradePlanSel.dfm
- 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
- 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
- 1899-12-30 00:00:00.000.961,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_EmpSel.pas
- 1899-12-30 00:00:00.000.106,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanPut.pas
- 1899-12-30 00:00:00.000.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.pas
- 1899-12-30 00:00:00.000.305,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_RSTradePlanSel.dfm=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_PurTradePlanSel.dfm
- 1899-12-30 00:00:00.000.724,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.pas=
+ 1899/12/30 00:00:00.000.458,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_GXSel.pas=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_EmpSel.pas
+ 1899/12/30 00:00:00.000.891,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothRSPlanList.pas=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothPurchasePlanList.pas
+ 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas
+ 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
+ 1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_PurTradePlanSel.dfm=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_RSTradePlanSel.dfm
+ 1899/12/30 00:00:00.000.869,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_PurTradePlanSel.dfm=D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.dfm
+ 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas
+ 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
+ 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.564,=D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_UserSel.pas
+ 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
+ 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
+ 1899/12/30 00:00:00.000.910,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothStainPlanPut.pas=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothPurchasePlanPut.pas
+ 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
+ 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
+ 1899/12/30 00:00:00.000.488,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothStainPlanList.pas
+ 1899/12/30 00:00:00.000.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas
+ 1899/12/30 00:00:00.000.450,=D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.pas
+ 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
+ 1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
+ 1899/12/30 00:00:00.000.458,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_GXSel.dfm=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_EmpSel.dfm
+ 1899/12/30 00:00:00.000.891,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothRSPlanList.dfm=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothPurchasePlanList.dfm
+ 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm
+ 1899/12/30 00:00:00.000.857,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothHJGPlanPut.pas
+ 1899/12/30 00:00:00.000.953,D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_ClaimsPut.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_YarnPurchasePlanPut.pas
+ 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
+ 1899/12/30 00:00:00.000.954,D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_ClaimsPut.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_YarnPurchasePlanPut.dfm
+ 1899/12/30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj
+ 1899/12/30 00:00:00.000.110,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothHJGPlanList.pas
+ 1899/12/30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas
+ 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
+ 1899/12/30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
+ 1899/12/30 00:00:00.000.059,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothRSPlanPut.pas
+ 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
+ 1899/12/30 00:00:00.000.985,=D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_CLNoteEdit.pas
+ 1899/12/30 00:00:00.000.931,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
+ 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
+ 1899/12/30 00:00:00.000.020,D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_ClaimsList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_YarnPurchasePlanList.dfm
+ 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
+ 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
+ 1899/12/30 00:00:00.000.961,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_EmpSel.pas
+ 1899/12/30 00:00:00.000.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.pas
+ 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
+ 1899/12/30 00:00:00.000.910,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothStainPlanPut.dfm=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_ClothPurchasePlanPut.dfm
+ 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
+ 1899/12/30 00:00:00.000.606,=D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_TradeDefectKCListSel.pas
+ 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
+ 1899/12/30 00:00:00.000.781,=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_HJGTradePlanSel.pas
+ 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
+ 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
+ 1899/12/30 00:00:00.000.020,D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_ClaimsList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\B04采购计划管理\U_YarnPurchasePlanList.pas
+ 1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_PurTradePlanSel.pas=D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_RSTradePlanSel.pas
+ 1899/12/30 00:00:00.000.724,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.pas=
+ 1899/12/30 00:00:00.000.106,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanPut.pas
+ 1899/12/30 00:00:00.000.869,D:\Dp10Repo\项目代码\骉骐\B04采购计划管理\U_PurTradePlanSel.pas=D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.pas
+ 2026/05/18 15:54:55.800,=D:\D10W\public10\ThreeFun\Fun\uSZHN_JSON.pas
-
+
@@ -79,7 +80,7 @@
-
+
@@ -98,6 +99,7 @@
+
diff --git a/B04采购计划管理/PurchasePlan.identcache b/B04采购计划管理/PurchasePlan.identcache
index db5d1d51db169954e02e88eb582b2a6fa73dd24e..17edc05ac0b5fe396fdd09344a785649652e8947 100644
GIT binary patch
literal 2479
zcmb_dL5tHs80}y2q6k{D;>m;1CT+UA*&3V1b(cVxCbQeY$xNI{aC_5>>rqq?^kVTM
zf<1W=@!zau`!AeyNswf+VMhZcrSyCA-uK=&-?dJsbKSV-8C%-E7pF6ff-TJpAxFo=
zbNxQxa0GGOjR6<`ET4x($$I%C`?xy$`8oUaA_s{UeFW%J(kTo@88Z>%ipiw
zWUFQN`lUdeG7v%o9>E~l)h)ym2jVKasfcc;ESL+%HU^{{#;l|(z6=yGUEcr+un>7t
zWqH39v8QS4=O40nU$U?7&wjlX>Rk?*MDWc5s&rsFXAllk;^iOLpG?KOO5jGVs`Tv`
z(;2{z0ISyQ6*X5jPRBHvk9N$wxw&suSRT~Hv^NimE@+^+J$-qbsEKhEF@@m3bfL}N(%E*202HR
zNaENp${Q`Ild-@I;yn;Mu$CtkxC6k*HaVgaaq1rY9eg{j@l?N95J5IzpcWVP2rBrj>i6u^I%-P7~7Lx
zzcPAB0)lx2N#Y7ZAiO$ebHMTz%eKw!!nQK)<~7NR=mXI~I;@Y)8XY>EJVf}(ZDSw8=ezx$GZeSh)mZ8SLwz!c*9fQ_JBV?Zdl>f339>(Z0~
zayo)ohrMOMvTTY`+;^h!j6=AYk!X|hRFOOM4z?g>I>G}3q4vTX&dufd`Q`U-my7xD
zS8wvgJb(RCA-fo$RD_vv>FWk|#V&yYoe*_+0|;p2H8##R<~1CRIY?lL0kKHes?&p%
zVR{Oo1vhL@+zs}qgo6Ybite=s_kaWeB9C<=9JYrp<@Vq)jODHyAR#UCOxl-mF_p8e
z9lvO-#dVHR!F1gTrc;3T0oPS%;EK9&@E=*O-GwX4F)L)%Nq681L{JDgNOkCaL(Ilw
zc(q+N_8my$L+N2$EIOTk2X<3V``;e%S69ePjER8U;+77UU#a?VR5K$T$a1BCt*fm9
zuME4QHfoshc&5;crmQ85SFZ#0
z(*WGG(Yll%o~4k;iOMCA=+_Pm)oQ2M1TP!CO^&I>sP_!ux^@(A7!HL%lvw)GVC|X&
x4*(}M{BGCtt6m`SGoPcx&4i?>D}=7ys*f1k5Zqaz{6j<%`n1?xe;MiZ{{Xo;Bx3*o
diff --git a/B04采购计划管理/U_ClothHJGPlanList.dfm b/B04采购计划管理/U_ClothHJGPlanList.dfm
index 94e2427..05ef982 100644
--- a/B04采购计划管理/U_ClothHJGPlanList.dfm
+++ b/B04采购计划管理/U_ClothHJGPlanList.dfm
@@ -6,6 +6,8 @@ inherited frmClothHJGPlanList: TfrmClothHJGPlanList
ClientWidth = 1525
FormStyle = fsMDIChild
Visible = True
+ ExplicitLeft = -90
+ ExplicitTop = -105
ExplicitWidth = 1541
ExplicitHeight = 775
PixelsPerInch = 96
@@ -89,16 +91,24 @@ inherited frmClothHJGPlanList: TfrmClothHJGPlanList
ImageIndex = 22
OnClick = ToolButton5Click
end
- object TBPrint: TToolButton
+ object ToolButton3: TToolButton
Left = 497
Top = 0
AutoSize = True
+ Caption = #23548#20986
+ ImageIndex = 21
+ OnClick = ToolButton3Click
+ end
+ object TBPrint: TToolButton
+ Left = 568
+ Top = 0
+ AutoSize = True
Caption = #25171#21360
ImageIndex = 21
OnClick = TBPrintClick
end
object btnTijiao: TToolButton
- Left = 568
+ Left = 639
Top = 0
AutoSize = True
Caption = #25552#20132
@@ -106,7 +116,7 @@ inherited frmClothHJGPlanList: TfrmClothHJGPlanList
OnClick = btnTijiaoClick
end
object btnCXTijiao: TToolButton
- Left = 639
+ Left = 710
Top = 0
AutoSize = True
Caption = #25764#38144#25552#20132
@@ -114,7 +124,7 @@ inherited frmClothHJGPlanList: TfrmClothHJGPlanList
OnClick = btnCXTijiaoClick
end
object tchk: TToolButton
- Left = 734
+ Left = 805
Top = 0
AutoSize = True
Caption = #23457#26680
@@ -122,7 +132,7 @@ inherited frmClothHJGPlanList: TfrmClothHJGPlanList
OnClick = tchkClick
end
object Tnochk: TToolButton
- Left = 805
+ Left = 876
Top = 0
AutoSize = True
Caption = #25764#38144#23457#26680
@@ -130,7 +140,7 @@ inherited frmClothHJGPlanList: TfrmClothHJGPlanList
OnClick = TnochkClick
end
object btnWC: TToolButton
- Left = 900
+ Left = 971
Top = 0
AutoSize = True
Caption = #23436#25104
@@ -138,7 +148,7 @@ inherited frmClothHJGPlanList: TfrmClothHJGPlanList
OnClick = btnWCClick
end
object btnWCCX: TToolButton
- Left = 971
+ Left = 1042
Top = 0
AutoSize = True
Caption = #25764#38144#23436#25104
@@ -146,7 +156,7 @@ inherited frmClothHJGPlanList: TfrmClothHJGPlanList
OnClick = btnWCCXClick
end
object Tqx: TToolButton
- Left = 1066
+ Left = 1137
Top = 0
AutoSize = True
Caption = #21512#21516#21462#28040
@@ -154,7 +164,7 @@ inherited frmClothHJGPlanList: TfrmClothHJGPlanList
OnClick = TqxClick
end
object Tnoqx: TToolButton
- Left = 1161
+ Left = 1232
Top = 0
AutoSize = True
Caption = #25764#38144#21512#21516#21462#28040
@@ -162,7 +172,7 @@ inherited frmClothHJGPlanList: TfrmClothHJGPlanList
OnClick = TnoqxClick
end
object ToolButton7: TToolButton
- Left = 1280
+ Left = 1351
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@@ -170,7 +180,7 @@ inherited frmClothHJGPlanList: TfrmClothHJGPlanList
OnClick = ToolButton7Click
end
object TBClose: TToolButton
- Left = 1375
+ Left = 1446
Top = 0
AutoSize = True
Caption = #20851#38381
@@ -186,6 +196,7 @@ inherited frmClothHJGPlanList: TfrmClothHJGPlanList
Align = alClient
PopupMenu = pm1
TabOrder = 3
+ ExplicitTop = 121
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -199,6 +210,7 @@ inherited frmClothHJGPlanList: TfrmClothHJGPlanList
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
+ Column = Tv1CGQty
end
item
Kind = skSum
@@ -264,6 +276,30 @@ inherited frmClothHJGPlanList: TfrmClothHJGPlanList
Styles.Header = DataLink_PurchasePlan.Default
Width = 82
end
+ object Tv1C_Name: TcxGridDBColumn
+ Caption = #21697#21517
+ DataBinding.FieldName = 'C_Name'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 80
+ end
+ object Tv1CGQty: TcxGridDBColumn
+ Caption = #21518#21152#24037#25968#37327
+ DataBinding.FieldName = 'CGQty'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 80
+ end
+ object Tv1qtyunit: TcxGridDBColumn
+ Caption = #21333#20301
+ DataBinding.FieldName = 'qtyunit'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 80
+ end
object Tv1Column4: TcxGridDBColumn
Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo'
@@ -667,6 +703,7 @@ inherited frmClothHJGPlanList: TfrmClothHJGPlanList
end
item
Kind = skSum
+ Column = TV2CGQty
end
item
Kind = skSum
@@ -746,7 +783,7 @@ inherited frmClothHJGPlanList: TfrmClothHJGPlanList
Options.Editing = False
Width = 70
end
- object TV2Column6: TcxGridDBColumn
+ object TV2CGQty: TcxGridDBColumn
Caption = #21518#21152#24037#25968#37327
DataBinding.FieldName = 'CGQty'
DataBinding.IsNullValueType = True
diff --git a/B04采购计划管理/U_ClothHJGPlanList.pas b/B04采购计划管理/U_ClothHJGPlanList.pas
index a478a6c..f63827e 100644
--- a/B04采购计划管理/U_ClothHJGPlanList.pas
+++ b/B04采购计划管理/U_ClothHJGPlanList.pas
@@ -111,12 +111,16 @@ type
TV2Column3: TcxGridDBColumn;
TV2Column4: TcxGridDBColumn;
TV2Column5: TcxGridDBColumn;
- TV2Column6: TcxGridDBColumn;
+ TV2CGQty: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Label1: TLabel;
BuyConNo: TEdit;
+ ToolButton3: TToolButton;
+ Tv1C_Name: TcxGridDBColumn;
+ Tv1CGQty: TcxGridDBColumn;
+ Tv1qtyunit: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@@ -153,6 +157,7 @@ type
procedure FormCreate(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
+ procedure ToolButton3Click(Sender: TObject);
private
fFlileFlag: string;
procedure InitGrid();
@@ -384,7 +389,7 @@ begin
Close;
sql.Clear;
- sql.Add('select AA.* from (select DISTINCT A.*,C.BuyConNo,D.FOrdNo');
+ sql.Add('select AA.* from (select DISTINCT A.*,B.qtyunit,CGQty = (select sum(CGQty) from Pur_ClothPlan_Sub X where X.PurMId = A.PurMId),C.BuyConNo,C.C_Name,D.FOrdNo');
sql.Add(',(Case A.Status when ''0'' then ''δύ'' when ''1'' then ''ύ''');
sql.Add('when ''9'' then '''' when ''10'' then '''' ');
SQL.Add('when ''-1'' then ''ȡ'' end) AS ZT');
@@ -606,6 +611,14 @@ begin
end;
end;
+procedure TfrmClothHJGPlanList.ToolButton3Click(Sender: TObject);
+begin
+ inherited;
+ if CDS_1.IsEmpty then
+ exit;
+ TcxGridToExcel(Self.Caption, cxGrid1);
+end;
+
procedure TfrmClothHJGPlanList.btnWCClick(Sender: TObject);
var
MPurMIdS: string;
diff --git a/B04采购计划管理/U_ClothPurchasePlanList.dfm b/B04采购计划管理/U_ClothPurchasePlanList.dfm
index 20ee0f5..d544aef 100644
--- a/B04采购计划管理/U_ClothPurchasePlanList.dfm
+++ b/B04采购计划管理/U_ClothPurchasePlanList.dfm
@@ -6,7 +6,8 @@ inherited frmClothPurchasePlanList: TfrmClothPurchasePlanList
ClientWidth = 1525
FormStyle = fsMDIChild
Visible = True
- ExplicitLeft = -635
+ ExplicitLeft = -225
+ ExplicitTop = -105
ExplicitWidth = 1541
ExplicitHeight = 775
PixelsPerInch = 96
@@ -195,7 +196,6 @@ inherited frmClothPurchasePlanList: TfrmClothPurchasePlanList
Align = alClient
PopupMenu = pm1
TabOrder = 3
- ExplicitTop = 121
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -209,6 +209,7 @@ inherited frmClothPurchasePlanList: TfrmClothPurchasePlanList
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
+ Column = Tv1Column9
end
item
Kind = skSum
diff --git a/B04采购计划管理/U_ClothRSPlanList.dfm b/B04采购计划管理/U_ClothRSPlanList.dfm
index 3764c2b..9b465c2 100644
--- a/B04采购计划管理/U_ClothRSPlanList.dfm
+++ b/B04采购计划管理/U_ClothRSPlanList.dfm
@@ -6,7 +6,6 @@ inherited frmClothRSPlanList: TfrmClothRSPlanList
ClientWidth = 1525
FormStyle = fsMDIChild
Visible = True
- ExplicitLeft = -499
ExplicitWidth = 1541
ExplicitHeight = 775
PixelsPerInch = 96
@@ -195,7 +194,6 @@ inherited frmClothRSPlanList: TfrmClothRSPlanList
Align = alClient
PopupMenu = pm1
TabOrder = 3
- ExplicitTop = 121
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -665,6 +663,8 @@ inherited frmClothRSPlanList: TfrmClothRSPlanList
Align = alBottom
BorderStyle = cxcbsNone
TabOrder = 5
+ ExplicitLeft = -79
+ ExplicitTop = 478
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
diff --git a/B04采购计划管理/testDll.identcache b/B04采购计划管理/testDll.identcache
index ab71f9895f3a688c71ea806b2852eba702a9bf48..fe6ec77ea8662f17279d21927c70098dbd8d35af 100644
GIT binary patch
delta 75
zcmdnSxP(!GiGhK^$;B$h#n2!;=H