From 239a66ccb9f8a970de985d0a84796873d67c2939 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=E2=80=9Cddf=E2=80=9D?= <“ddf668490@163.com”>
Date: Wed, 24 Jul 2024 09:18:38 +0800
Subject: [PATCH] =?UTF-8?q?=E6=8A=95=E5=9D=AF=E8=BF=9B=E5=BA=A6?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../D01针织生产计划/KnitPlan.dproj.local      | 112 +--
 .../D01针织生产计划/KnitPlan.identcache       | Bin 2486 -> 2486 bytes
 .../D01针织生产计划/U_KnitPlanInPut.dfm       |  10 +-
 .../RTBasicsV1/D01针织生产计划/U_KnitPlanList.dfm |  31 +-
 .../RTBasicsV1/D01针织生产计划/U_KnitPlanList.pas |  15 +-
 .../RTBasicsV1/T01贸易生产计划/TradePlan.dpr  |   2 +-
 .../RTBasicsV1/T01贸易生产计划/TradePlan.dproj |   4 +-
 .../T01贸易生产计划/TradePlan.dproj.local     |  48 +-
 .../T01贸易生产计划/TradePlan.identcache      | Bin 3375 -> 3376 bytes
 .../RTBasicsV1/T01贸易生产计划/U_GetDllForm.pas |  16 +-
 .../T01贸易生产计划/U_TradePlanSchedule.dfm   |   4 +-
 .../T01贸易生产计划/U_TradePlanSchedule1.dfm  | 850 ++++++++++++++++++
 .../T01贸易生产计划/U_TradePlanSchedule1.pas  | 321 +++++++
 .../T02贸易汇总仓库/TradeTotalClothStk.identcache | Bin 5337 -> 5337 bytes
 .../T02贸易汇总仓库/U_ClothScheduleList.dfm   |  36 +-
 15 files changed, 1308 insertions(+), 141 deletions(-)
 create mode 100644 项目代码/RTBasicsV1/T01贸易生产计划/U_TradePlanSchedule1.dfm
 create mode 100644 项目代码/RTBasicsV1/T01贸易生产计划/U_TradePlanSchedule1.pas

diff --git a/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dproj.local b/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dproj.local
index d055b12..94ae854 100644
--- a/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dproj.local
+++ b/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dproj.local
@@ -1,62 +1,62 @@
 <?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<Transactions>
-    <Transaction>1899/12/30 00:00:00.000.811,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitPlanList.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.951,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.726,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.257,=D:\Dp10Repo\项目代码\恒赫\D01针织生产计划\U_MachPlanSet.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.911,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.064,D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_KnitPlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.509,D:\Dp10Repo\项目代码\RTBasics\D00针织通用窗体\U_KnitSalesContractSel.pas=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.925,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\Unit1.pas=</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.756,D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCardDel.pas=D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCard.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.139,D:\RTFormwork\项目代码\RTBasicsV1\A02基础产品管理\U_KnitClothInfoInput.pas=</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_KnitPlanSel.pas=</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.612,=D:\Dp10Repo\项目代码\RTBasics\D00针织通用窗体\U_KnitPlanSel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.111,=D:\Dp10Repo\项目代码\共佳\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.140,=D:\RTFormwork\public10\design\U_cxGridCustomSet.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.881,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitCardInPut.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.031,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.756,D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCardDel.dfm=D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCard.dfm</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.264,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitPlanCard.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.667,=D:\Dp10Repo\项目代码\共佳\A02基础产品管理\U_KnitClothInfoInput.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.181,=D:\RTFormwork\public10\design\U_FormLayOutDesign.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.798,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.709,D:\RTFormwork\项目代码\RTBasicsV1\B02基础纱线仓库\U_YarnInfoInPut.pas=</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.509,D:\Dp10Repo\项目代码\RTBasics\D00针织通用窗体\U_KnitSalesContractSel.dfm=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.dfm</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.929,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas=</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.064,D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_KnitPlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.dfm</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.945,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.988,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\KnitPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\InformationBase.dproj</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.232,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用窗体\U_LoomSel.pas</Transaction>
-    <Transaction>2024/07/16 16:57:34.000.480,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用组件\FramePagingSel.pas</Transaction>
-    <Transaction>2024/07/16 16:57:34.000.356,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用组件\FrameDateSel.pas</Transaction>
-    <Transaction>2024/07/16 17:00:42.000.758,=D:\RTFormwork\public10\design\U_BaseDataLink.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.811,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitPlanList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.951,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.726,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.257,=D:\Dp10Repo\项目代码\恒赫\D01针织生产计划\U_MachPlanSet.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.064,D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_KnitPlanSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.911,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.756,D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCard.dfm=D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCardDel.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.925,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\Unit1.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.509,D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.dfm=D:\Dp10Repo\项目代码\RTBasics\D00针织通用窗体\U_KnitSalesContractSel.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.139,D:\RTFormwork\项目代码\RTBasicsV1\A02基础产品管理\U_KnitClothInfoInput.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_KnitPlanSel.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.612,=D:\Dp10Repo\项目代码\RTBasics\D00针织通用窗体\U_KnitPlanSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.111,=D:\Dp10Repo\项目代码\共佳\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.140,=D:\RTFormwork\public10\design\U_cxGridCustomSet.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.756,D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCard.pas=D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCardDel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.031,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.509,D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas=D:\Dp10Repo\项目代码\RTBasics\D00针织通用窗体\U_KnitSalesContractSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.181,=D:\RTFormwork\public10\design\U_FormLayOutDesign.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.988,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\KnitPlan.dproj</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.798,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.709,D:\RTFormwork\项目代码\RTBasicsV1\B02基础纱线仓库\U_YarnInfoInPut.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.945,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.232,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用窗体\U_LoomSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.881,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitCardInPut.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.929,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.667,=D:\Dp10Repo\项目代码\共佳\A02基础产品管理\U_KnitClothInfoInput.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.064,D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_KnitPlanSel.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.264,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitPlanCard.pas</Transaction>
+    <Transaction>2024-07-16 16:57:34.000.356,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用组件\FrameDateSel.pas</Transaction>
+    <Transaction>2024-07-16 16:57:34.000.480,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用组件\FramePagingSel.pas</Transaction>
+    <Transaction>2024-07-16 17:00:42.000.758,=D:\RTFormwork\public10\design\U_BaseDataLink.pas</Transaction>
   </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">
     <File Path="android-support-v4.dex.jar"/>
diff --git a/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.identcache b/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.identcache
index 623a26d7b22879a9b6a71ff5374f572734cf544e..43be5b1ed8ff184efc83244e9ed8b25705fec700 100644
GIT binary patch
delta 70
zcmV-M0J;CR6Sfnuq63rS13i;l30spN1do%K2UnA>1f-E$EtAg!6O*e2{gW^PIg^V8
cAd{#D@00EaT9d8>Ig`2wp_AMKC6jFk6z8HF?*IS*

delta 73
zcmV-P0Ji_O6Sfnuq63jzEtByD6O*C?J(D^FkCPw;q?0fLIg>gEAd>_J{gYY;?~};{
fSCQH&lPv}slZ*%#lYI#}lOP2-liUcQlived<vJSC

diff --git a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanInPut.dfm b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanInPut.dfm
index f225ae7..fd5782b 100644
--- a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanInPut.dfm
+++ b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanInPut.dfm
@@ -382,8 +382,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
       ParentFont = False
     end
     object Label4: TLabel
-      Left = 1260
-      Top = 132
+      Left = 893
+      Top = 158
       Width = 65
       Height = 12
       Caption = #21152#24037#21333#20301#65306
@@ -393,7 +393,6 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
-      Visible = False
     end
     object Label6: TLabel
       Left = 916
@@ -1018,13 +1017,12 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
         #35797#26679#21333)
     end
     object FtyCoName: TBtnEditC
-      Left = 1321
-      Top = 128
+      Left = 954
+      Top = 154
       Width = 120
       Height = 20
       ReadOnly = True
       TabOrder = 22
-      Visible = False
       OnBtnUpClick = FtyCoNameBtnUpClick
       OnBtnDnClick = CustNameBtnDnClick
     end
diff --git a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.dfm b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.dfm
index 86a95ac..febcd93 100644
--- a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.dfm
+++ b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.dfm
@@ -276,11 +276,11 @@ inherited frmKnitPlanList: TfrmKnitPlanList
       ParentFont = False
       Properties.DropDownListStyle = lsFixedList
       Properties.Items.Strings = (
-        'M'
-        'Y'
-        'Kg')
+        ''
+        #22823#36135#21333
+        #22806#21457#21333
+        #35797#26679#21333)
       TabOrder = 5
-      Text = 'M'
       Width = 150
     end
     inline frmFrameDateSel1: TfrmFrameDateSel
@@ -315,8 +315,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList
     Align = alClient
     PopupMenu = PopupMenu1
     TabOrder = 2
-    ExplicitTop = 217
-    ExplicitHeight = 425
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
       ScrollbarAnnotations.CustomAnnotations = <>
@@ -392,17 +390,12 @@ inherited frmKnitPlanList: TfrmKnitPlanList
       OptionsCustomize.ColumnFiltering = False
       OptionsView.Footer = True
       OptionsView.GroupByBox = False
-      Styles.IncSearch = DataLink_KnitPlan.SHuangSe
-      Styles.Header = DataLink_KnitPlan.Default
-      Styles.Inactive = DataLink_KnitPlan.SHuangSe
-      Styles.Selection = DataLink_KnitPlan.SHuangSe
       object v1OrderNo: TcxGridDBColumn
         Caption = #21512#21516#21495
         DataBinding.FieldName = 'ConNo'
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Styles.Header = DataLink_KnitPlan.Default
         Width = 100
       end
       object Tv1Column2: TcxGridDBColumn
@@ -427,7 +420,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Styles.Header = DataLink_KnitPlan.Default
         Width = 71
       end
       object Tv1Column1: TcxGridDBColumn
@@ -447,7 +439,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList
         Properties.ShowTime = False
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Styles.Header = DataLink_KnitPlan.Default
         Width = 82
       end
       object v1Column21: TcxGridDBColumn
@@ -456,7 +447,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Styles.Header = DataLink_KnitPlan.Default
         Width = 92
       end
       object v1Column2: TcxGridDBColumn
@@ -465,7 +455,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Styles.Header = DataLink_KnitPlan.Default
         Width = 73
       end
       object v1Column20: TcxGridDBColumn
@@ -482,7 +471,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Styles.Header = DataLink_KnitPlan.Default
         Width = 67
       end
       object v1PRTMF: TcxGridDBColumn
@@ -491,7 +479,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Styles.Header = DataLink_KnitPlan.Default
         Width = 69
       end
       object Tv1Column3: TcxGridDBColumn
@@ -508,7 +495,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Styles.Header = DataLink_KnitPlan.Default
         Width = 76
       end
       object v1Column6: TcxGridDBColumn
@@ -517,7 +503,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Styles.Header = DataLink_KnitPlan.Default
         Width = 59
       end
       object v1Column22: TcxGridDBColumn
@@ -526,7 +511,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Styles.Header = DataLink_KnitPlan.Default
         Width = 63
       end
       object v1Column7: TcxGridDBColumn
@@ -535,7 +519,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Styles.Header = DataLink_KnitPlan.Default
         Width = 72
       end
       object v1PRTOrderQty: TcxGridDBColumn
@@ -544,7 +527,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Styles.Header = DataLink_KnitPlan.Default
         Width = 92
       end
       object v1Column12: TcxGridDBColumn
@@ -553,7 +535,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Styles.Header = DataLink_KnitPlan.Default
         Width = 64
       end
       object v1Column4: TcxGridDBColumn
@@ -562,7 +543,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Styles.Header = DataLink_KnitPlan.Default
         Width = 68
       end
       object Tv1Column7: TcxGridDBColumn
@@ -623,7 +603,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList
       #24050#32467#26463
       #20840#37096)
     OnChange = cxTabControl1Change
-    ExplicitTop = 189
     ClientRectBottom = 30
     ClientRectRight = 1540
     ClientRectTop = 30
@@ -635,8 +614,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList
     Height = 453
     Align = alRight
     TabOrder = 4
-    ExplicitTop = 217
-    ExplicitHeight = 425
     object Label6: TLabel
       Left = 28
       Top = 48
diff --git a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.pas b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.pas
index 65d0467..4fc60a7 100644
--- a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.pas
+++ b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.pas
@@ -263,8 +263,8 @@ begin
       sql.Add(',Y_NameS= SUBSTRING(CAST((select  ''+'' +X.Y_Name from knit_Plan_Yarn X where   X.subid=B.subid order by YRId for xml path('''') ) AS VARCHAR(100)) , 2, 100)   ');
 
       sql.Add(' from knit_Plan_Main A inner join knit_Plan_Sub B on A.Mainid=B.MainId');
-      sql.Add(' where A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd',frmFrameDateSel1.BegDate.Date)) + '''');
-      sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd',frmFrameDateSel1.EndDate.Date + 1)) + '''');
+      sql.Add(' where A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + '''');
+      sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.EndDate.Date + 1)) + '''');
 
       case cxTabControl1.TabIndex of
         0:
@@ -278,11 +278,10 @@ begin
         2:
           begin
             sql.Add('and isnull(Status,''0'') =''10'' ');
-            sql.Add(' and A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + '''');
-            sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd',frmFrameDateSel1. EndDate.Date + 1)) + '''');
           end;
       end;
       sql.add('order by A.FILLTIME DESC');
+//      ShowMessage(sql.Text);
       Open;
     end;
     SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
@@ -302,8 +301,8 @@ procedure TfrmKnitPlanList.InitForm();
 begin
   InitButton();
   ReadCxGrid(trim(self.Caption), Tv1, '������������');
- frmFrameDateSel1. BegDate.Date := SGetServerDate(ADOQueryTemp) - 30;
- frmFrameDateSel1. EndDate.Date := SGetServerDate(ADOQueryTemp);
+  frmFrameDateSel1.BegDate.Date := SGetServerDate(ADOQueryTemp) - 30;
+  frmFrameDateSel1.EndDate.Date := SGetServerDate(ADOQueryTemp);
   InitGrid();
 end;
 
@@ -630,8 +629,8 @@ begin
   begin
     Close;
     SQL.Clear;
-    sql.Add(' exec P_Knit_Plan_Progress @Begdate=' + quotedstr(trim(FormatDateTime('yyyy-MM-dd',frmFrameDateSel1. Begdate.Date))));
-    sql.Add(',@enddate=' + quotedstr(trim(FormatDateTime('yyyy-MM-dd',frmFrameDateSel1. EndDate.Date + 1))));
+    sql.Add(' exec P_Knit_Plan_Progress @Begdate=' + quotedstr(trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.Begdate.Date))));
+    sql.Add(',@enddate=' + quotedstr(trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.EndDate.Date + 1))));
     sql.Add(',@criteria= ' + quotedstr(fwhere));
     Open;
   end;
diff --git a/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.dpr b/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.dpr
index 60c3345..eea3318 100644
--- a/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.dpr
+++ b/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.dpr
@@ -31,7 +31,7 @@ uses
   U_PictureUpload in '..\A00ͨ�ô���\U_PictureUpload.pas' {frmPictureUpload},
   U_ZDYHelpSel in '..\..\..\public10\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel},
   U_TradePlanScheduleDetail in 'U_TradePlanScheduleDetail.pas' {frmTradePlanScheduleDetail},
-  U_TradePlanSchedule in 'U_TradePlanSchedule.pas' {frmTradePlanSchedule},
+  U_TradePlanSchedule1 in 'U_TradePlanSchedule1.pas' {frmTradePlanSchedule1},
   U_SysLogHelp in '..\..\..\public10\ThreeFun\Form\U_SysLogHelp.pas' {frmSysLogHelp},
   U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
   U_TradePlanColorList in 'U_TradePlanColorList.pas' {frmTradePlanColorList},
diff --git a/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.dproj b/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.dproj
index a270c37..a2244f0 100644
--- a/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.dproj
+++ b/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.dproj
@@ -211,8 +211,8 @@
             <Form>frmTradePlanScheduleDetail</Form>
             <FormType>dfm</FormType>
         </DCCReference>
-        <DCCReference Include="U_TradePlanSchedule.pas">
-            <Form>frmTradePlanSchedule</Form>
+        <DCCReference Include="U_TradePlanSchedule1.pas">
+            <Form>frmTradePlanSchedule1</Form>
             <FormType>dfm</FormType>
         </DCCReference>
         <DCCReference Include="..\..\..\public10\ThreeFun\Form\U_SysLogHelp.pas">
diff --git a/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.dproj.local b/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.dproj.local
index e736dc2..0cbb470 100644
--- a/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.dproj.local
+++ b/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.dproj.local
@@ -1,37 +1,38 @@
 <?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<Transactions>
-    <Transaction>1899-12-30 00:00:00.000.537,=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanCard.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.568,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.472,=D:\Dp10Repo\public10\ThreeFun\Form\U_SysLogHelp.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.030,=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProfit.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.937,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanColorInPut.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofInPut.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.329,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradeInspSet.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.629,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanColorList.pas=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.537,=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanCard.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.764,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradeCardInStk.pas=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradeCardInPut.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.505,D:\Dp10RepoV1\项目代码\花蝴蝶\T01贸易生产计划\U_TradeLabelSel.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\T01贸易生产计划\U_TradeInspSet.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_InputBoxCard.pas=D:\Dp10RepoV1\项目代码\须上\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.629,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanColorList.pas=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofList.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.937,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanColorInPut.pas=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofInPut.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.904,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.314,=D:\Dp10RepoV1\项目代码\花蝴蝶\T01贸易生产计划\U_TradePlanInPut.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.514,D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\TradePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\InformationBase.dproj</Transaction>
     <Transaction>1899-12-30 00:00:00.000.505,D:\Dp10RepoV1\项目代码\花蝴蝶\T01贸易生产计划\U_TradeLabelSel.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\T01贸易生产计划\U_TradeInspSet.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradePlanList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.764,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradeCardInStk.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradeCardInPut.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.314,=D:\Dp10RepoV1\项目代码\花蝴蝶\T01贸易生产计划\U_TradePlanInPut.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.600,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.994,=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanScheduleDetail.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.276,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.681,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.764,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradeCardInStk.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradeCardInPut.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.276,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.332,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.904,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
@@ -45,32 +46,33 @@
     <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.396,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.713,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.649,=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanSchedule.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.134,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.649,=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanSchedule.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.713,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.747,=D:\RTFormwork\项目代码\RTBasicsV1\T01贸易生产计划\U_TradePlanList.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.081,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofInPut.pas=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanInPut.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.442,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\PdfPrint.dll=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.103,=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\PdfPrint.dll</Transaction>
     <Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_InputBoxCard.pas=D:\Dp10RepoV1\项目代码\须上\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.629,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanColorList.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofList.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.442,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\PdfPrint.dll=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.780,=D:\Dp10RepoV1\项目代码\花蝴蝶\T01贸易生产计划\U_TradePlanList.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.629,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanColorList.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofList.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_InputBoxCard.dfm=D:\Dp10RepoV1\项目代码\须上\A00通用窗体\U_InputBoxSingleNumber.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.081,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofInPut.pas=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanInPut.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.686,=D:\Dp10RepoV1\项目代码\须上\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.082,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofInPut.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanInPut.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.560,=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_printPdf.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.370,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.686,=D:\Dp10RepoV1\项目代码\须上\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.424,=D:\Dp10RepoV1\项目代码\须上\A00通用窗体\U_InputBoxSingleString.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_InputBoxCard.dfm=D:\Dp10RepoV1\项目代码\须上\A00通用窗体\U_InputBoxSingleNumber.dfm</Transaction>
+    <Transaction>2024-07-23 21:02:39.334,D:\RTFormwork\项目代码\RTBasicsV1\T01贸易生产计划\U_TradePlanSchedule1.pas=D:\RTFormwork\项目代码\RTBasicsV1\T01贸易生产计划\U_TradePlanSchedule.pas</Transaction>
+    <Transaction>2024-07-23 21:02:39.334,D:\RTFormwork\项目代码\RTBasicsV1\T01贸易生产计划\U_TradePlanSchedule1.dfm=D:\RTFormwork\项目代码\RTBasicsV1\T01贸易生产计划\U_TradePlanSchedule.dfm</Transaction>
   </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">
     <File Path="android-support-v4.dex.jar"/>
@@ -141,10 +143,10 @@
     <File Path="..\..\..\public10\design\U_BaseList.pas"/>
     <File Path="..\..\..\public10\design\U_BaseList.dfm"/>
     <File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
-    <File Path="..\..\..\public10\design\U_globalVar.pas"/>
-    <File Path="..\..\..\public10\design\U_WindowFormdesign.pas"/>
     <File Path="..\..\..\public10\design\U_cxGridCustomSet.pas"/>
     <File Path="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
+    <File Path="..\..\..\public10\design\U_globalVar.pas"/>
+    <File Path="..\..\..\public10\design\U_WindowFormdesign.pas"/>
     <File Path="..\..\..\public10\ThreeFun"/>
     <File Path="..\..\..\public10\ThreeFun\Form"/>
     <File Path="..\..\..\public10\ThreeFun\Form\U_SysLogHelp.pas"/>
@@ -165,8 +167,6 @@
     <File Path="U_TradePlanMulFtyList.dfm"/>
     <File Path="U_TradePlanScheduleDetail.pas"/>
     <File Path="U_TradePlanScheduleDetail.dfm"/>
-    <File Path="U_TradePlanSchedule.pas"/>
-    <File Path="U_TradePlanSchedule.dfm"/>
     <File Path="U_TradeLabelSel.pas"/>
     <File Path="U_TradeLabelSel.dfm"/>
     <File Path="U_TradePlanProfit.pas"/>
@@ -183,5 +183,7 @@
     <File Path="U_TradeCardInStk.dfm"/>
     <File Path="U_TradePlanList.pas"/>
     <File Path="U_TradePlanList.dfm"/>
+    <File Path="U_TradePlanSchedule1.pas"/>
+    <File Path="U_TradePlanSchedule1.dfm"/>
   </ProjectSortOrder>
 </BorlandProject>
diff --git a/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.identcache b/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.identcache
index bdea84d46b7290bb4e815b7edcf91de7e2642f96..7d76711466dab711977de5703332c2a35a5ad686 100644
GIT binary patch
delta 47
zcmV+~0MP%h8n7C$lLeEy240i%1;>*d1tGIJ2Py-TSq4Z6Q)6glWOZz1F_T~nF|&jU
Fs{*Bt5R(7^

delta 48
zcmV-00MGxh8m}6#lLY}&lTQgl3{Y%gZc}4uWn^`1Ws~6r*OQY4UXvUJA+y;ADg(1*
G3d{noZ4rI|

diff --git a/项目代码/RTBasicsV1/T01贸易生产计划/U_GetDllForm.pas b/项目代码/RTBasicsV1/T01贸易生产计划/U_GetDllForm.pas
index 0cb55bd..38c58ea 100644
--- a/项目代码/RTBasicsV1/T01贸易生产计划/U_GetDllForm.pas
+++ b/项目代码/RTBasicsV1/T01贸易生产计划/U_GetDllForm.pas
@@ -17,7 +17,7 @@ implementation
 uses
   U_DataLink, U_iniParam, U_TradePlanList, U_TradePlanProofList,
   U_TradePlanColorList, U_TradePlanMulFtyList, U_TradePlanSchedule,
-  U_TradePlanProfit, U_TradePlanCard;
+  U_TradePlanProfit, U_TradePlanCard, U_TradePlanSchedule1;
 
        /////////////////////////////////////////////////////////////////
       //         ����˵��:ȡDll�еô���                              //
@@ -163,7 +163,7 @@ begin
         end;
       end;
 
-    211:  //�����ƻ�����
+    211:  //�ƻ��������ƻ�����
       begin
         with TfrmTradePlanSchedule.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do       //
         begin
@@ -175,6 +175,18 @@ begin
         end;
       end;
 
+    212:  //����Ͷ������
+      begin
+        with TfrmTradePlanSchedule1.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do       //
+        begin
+          fFormID := FormID;
+          FormStyle := mstyle;
+          WindowState := mstate;
+          BorderStyle := mborderstyle;
+          mnewHandle := Handle;
+        end;
+      end;
+
     311:  //���������ѯ
       begin
         with TfrmTradePlanProfit.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do       //
diff --git a/项目代码/RTBasicsV1/T01贸易生产计划/U_TradePlanSchedule.dfm b/项目代码/RTBasicsV1/T01贸易生产计划/U_TradePlanSchedule.dfm
index e043237..6d8a3c3 100644
--- a/项目代码/RTBasicsV1/T01贸易生产计划/U_TradePlanSchedule.dfm
+++ b/项目代码/RTBasicsV1/T01贸易生产计划/U_TradePlanSchedule.dfm
@@ -753,8 +753,8 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
   object CDS_1: TClientDataSet
     Aggregates = <>
     Params = <>
-    Left = 472
-    Top = 200
+    Left = 533
+    Top = 449
   end
   object RMGridReport1: TRMGridReport
     ThreadPrepareReport = True
diff --git a/项目代码/RTBasicsV1/T01贸易生产计划/U_TradePlanSchedule1.dfm b/项目代码/RTBasicsV1/T01贸易生产计划/U_TradePlanSchedule1.dfm
new file mode 100644
index 0000000..63a91cf
--- /dev/null
+++ b/项目代码/RTBasicsV1/T01贸易生产计划/U_TradePlanSchedule1.dfm
@@ -0,0 +1,850 @@
+inherited frmTradePlanSchedule1: TfrmTradePlanSchedule1
+  Left = 274
+  Top = 193
+  Caption = #35746#21333#36827#24230
+  ClientHeight = 910
+  ClientWidth = 1894
+  Font.Height = -16
+  Position = poScreenCenter
+  WindowState = wsMaximized
+  ExplicitWidth = 1910
+  ExplicitHeight = 949
+  PixelsPerInch = 96
+  TextHeight = 21
+  object ToolBar1: TToolBar [0]
+    Tag = 1
+    Left = 0
+    Top = 0
+    Width = 1894
+    Height = 30
+    AutoSize = True
+    ButtonHeight = 30
+    ButtonWidth = 99
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    DisabledImages = DataLink_TradePlan.cxImageList_bar
+    Images = DataLink_TradePlan.cxImageList_bar
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 0
+    ExplicitWidth = 1595
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 1
+      OnClick = TBRafreshClick
+    end
+    object ToolButton2: TToolButton
+      Left = 71
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 0
+      OnClick = ToolButton2Click
+    end
+    object ToolButton1: TToolButton
+      Left = 142
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 20
+      OnClick = ToolButton1Click
+    end
+    object ToolButton3: TToolButton
+      Left = 213
+      Top = 0
+      AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 21
+      OnClick = ToolButton3Click
+    end
+    object ToolButton5: TToolButton
+      Left = 284
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384#26684#24335
+      ImageIndex = 16
+      OnClick = ToolButton5Click
+    end
+    object TBClose: TToolButton
+      Left = 387
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 7
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel [1]
+    Left = 0
+    Top = 30
+    Width = 1894
+    Height = 87
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clWhite
+    ParentBackground = False
+    TabOrder = 1
+    object Label4: TLabel
+      Left = 452
+      Top = 50
+      Width = 64
+      Height = 21
+      Caption = #25105#26041#21333#20301
+    end
+    object Label9: TLabel
+      Left = 24
+      Top = 50
+      Width = 64
+      Height = 21
+      Caption = #37319#36141#21333#21495
+    end
+    object Label3: TLabel
+      Left = 246
+      Top = 50
+      Width = 48
+      Height = 21
+      Caption = #20379#24212#21830
+    end
+    inline frmFrameDateSel1: TfrmFrameDateSel
+      Left = 2
+      Top = 2
+      Width = 1890
+      Height = 37
+      Align = alTop
+      Color = clWhite
+      ParentBackground = False
+      ParentColor = False
+      TabOrder = 0
+      ExplicitLeft = 2
+      ExplicitTop = 2
+      ExplicitWidth = 1591
+      inherited BegDate: TcxDateEdit
+        ExplicitHeight = 33
+      end
+      inherited EndDate: TcxDateEdit
+        ExplicitHeight = 33
+      end
+      inherited cbbType: TcxComboBox
+        ExplicitHeight = 33
+      end
+    end
+    object BuyName: TcxTextEdit
+      Tag = 2
+      Left = 520
+      Top = 44
+      ParentFont = False
+      TabOrder = 1
+      Width = 150
+    end
+    object PurNo: TcxTextEdit
+      Tag = 2
+      Left = 92
+      Top = 44
+      ParentFont = False
+      TabOrder = 2
+      Width = 150
+    end
+    object SellName: TcxTextEdit
+      Tag = 2
+      Left = 298
+      Top = 44
+      ParentFont = False
+      TabOrder = 3
+      Width = 150
+    end
+  end
+  object cxGrid1: TcxGrid [2]
+    Left = 0
+    Top = 117
+    Width = 1894
+    Height = 400
+    Align = alTop
+    BorderStyle = cxcbsNone
+    TabOrder = 2
+    ExplicitTop = 137
+    ExplicitWidth = 1595
+    object TV1: TcxGridDBTableView
+      Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
+      OnFocusedRecordChanged = TV1FocusedRecordChanged
+      DataController.DataSource = DS_1
+      DataController.Filter.AutoDataSetFilter = True
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Format = '0'
+          Position = spFooter
+        end
+        item
+          Format = '0'
+          Position = spFooter
+          Column = v1PRTOrderQty
+        end
+        item
+          Format = '0'
+          Position = spFooter
+          Column = v1PRTPrice
+        end>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = v1PRTOrderQty
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = cxGridDBColumn9
+        end
+        item
+          Kind = skSum
+          Column = TV1Column8
+        end
+        item
+          Kind = skSum
+          Column = TV1Column7
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.FocusCellOnTab = True
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsBehavior.FocusCellOnCycle = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Deleting = False
+      OptionsData.DeletingConfirmation = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      object TV1Column4: TcxGridDBColumn
+        Caption = #19979#21333#26085#26399
+        DataBinding.FieldName = 'PurDate'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 104
+      end
+      object TV1Column2: TcxGridDBColumn
+        Caption = #37319#36141#21333#21495
+        DataBinding.FieldName = 'PurNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 109
+      end
+      object TV1Column1: TcxGridDBColumn
+        Caption = #20379#24212#21830
+        DataBinding.FieldName = 'SellName'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 107
+      end
+      object TV1Column3: TcxGridDBColumn
+        Caption = #20132#36135#26085#26399
+        DataBinding.FieldName = 'DlyDate'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 106
+      end
+      object TV1Column5: TcxGridDBColumn
+        Caption = #31867#22411
+        DataBinding.FieldName = 'C_Degree'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 91
+      end
+      object VC_SCSCode: TcxGridDBColumn
+        Caption = #20135#21697#32534#21495
+        DataBinding.FieldName = 'C_Code'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.ReadOnly = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 92
+      end
+      object cxGridDBColumn2: TcxGridDBColumn
+        Caption = #20013#25991#21697#21517
+        DataBinding.FieldName = 'C_Name'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 93
+      end
+      object TV1Column12: TcxGridDBColumn
+        Caption = #24067#31181
+        DataBinding.FieldName = 'GC_Name'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 68
+      end
+      object TV1Column14: TcxGridDBColumn
+        Caption = #21518#25972#29702#20013#25991
+        DataBinding.FieldName = 'CraftName'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 99
+      end
+      object TV1Column13: TcxGridDBColumn
+        Caption = #21152#24037#21035
+        DataBinding.FieldName = 'CraftCode'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 87
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #35268#26684
+        DataBinding.FieldName = 'C_Spec'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 60
+      end
+      object TV1Column6: TcxGridDBColumn
+        Caption = #20811#37325
+        DataBinding.FieldName = 'C_GramWeight'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object TV1Column9: TcxGridDBColumn
+        Caption = #38376#24133
+        DataBinding.FieldName = 'C_Width'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object cxGridDBColumn4: TcxGridDBColumn
+        Caption = #25104#20998
+        DataBinding.FieldName = 'C_Composition'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 70
+      end
+      object cxGridDBColumn5: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'C_Color'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 70
+      end
+      object v1PRTOrderQty: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'Qty'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 70
+      end
+      object v1OrderUnit: TcxGridDBColumn
+        Caption = #21333#20301
+        DataBinding.FieldName = 'QtyUnit'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxComboBoxProperties'
+        Properties.DropDownListStyle = lsEditFixedList
+        Properties.Items.Strings = (
+          'Kg'
+          'M'
+          'Y')
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 58
+      end
+      object v1PRTPrice: TcxGridDBColumn
+        Caption = #21333#20215
+        DataBinding.FieldName = 'Price'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Options.Sorting = False
+        Width = 70
+      end
+      object cxGridDBColumn9: TcxGridDBColumn
+        Caption = #37329#39069
+        DataBinding.FieldName = 'Amount'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 84
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'SNote'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 92
+      end
+      object TV1Column8: TcxGridDBColumn
+        Caption = #22238#20179#21305#25968
+        DataBinding.FieldName = 'LJHCPiece'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 114
+      end
+      object TV1Column7: TcxGridDBColumn
+        Caption = #22238#20179#25968#37327
+        DataBinding.FieldName = 'LJHCQty'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 120
+      end
+    end
+    object cxGridLevel1: TcxGridLevel
+      GridView = TV1
+    end
+  end
+  object Panel2: TPanel [3]
+    Left = 0
+    Top = 517
+    Width = 1894
+    Height = 393
+    Align = alClient
+    Caption = 'Panel2'
+    TabOrder = 3
+    ExplicitLeft = 8
+    ExplicitTop = 536
+    ExplicitWidth = 1595
+    ExplicitHeight = 373
+    object cxGrid2: TcxGrid
+      Left = 1
+      Top = 1
+      Width = 608
+      Height = 391
+      Align = alLeft
+      TabOrder = 0
+      ExplicitHeight = 371
+      object TV2: TcxGridDBTableView
+        Navigator.Buttons.CustomButtons = <>
+        ScrollbarAnnotations.CustomAnnotations = <>
+        DataController.DataSource = DS_2
+        DataController.Summary.DefaultGroupSummaryItems = <
+          item
+            Kind = skSum
+            Position = spFooter
+          end>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skCount
+          end
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+            Column = v2Column6
+          end
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+            Column = v1Column15
+          end>
+        DataController.Summary.SummaryGroups = <>
+        OptionsCustomize.ColumnFiltering = False
+        OptionsView.Footer = True
+        OptionsView.GroupByBox = False
+        object TV2Column1: TcxGridDBColumn
+          Caption = #22238#20179#26085#26399
+          DataBinding.FieldName = 'IOTime'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 115
+        end
+        object v1Column10: TcxGridDBColumn
+          Caption = #25209#21495
+          DataBinding.FieldName = 'BatchNo'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          VisibleForCustomization = False
+          Width = 124
+        end
+        object v1Column15: TcxGridDBColumn
+          Caption = #21305#25968
+          DataBinding.FieldName = 'Piece'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 102
+        end
+        object v2Column6: TcxGridDBColumn
+          Tag = 2
+          Caption = #25968#37327
+          DataBinding.FieldName = 'Qty'
+          DataBinding.IsNullValueType = True
+          PropertiesClassName = 'TcxTextEditProperties'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 118
+        end
+        object v1Column3: TcxGridDBColumn
+          Tag = 2
+          Caption = #21333#20301
+          DataBinding.FieldName = 'QtyUnit'
+          DataBinding.IsNullValueType = True
+          PropertiesClassName = 'TcxComboBoxProperties'
+          Properties.DropDownListStyle = lsFixedList
+          Properties.Items.Strings = (
+            'Kg'
+            'M'
+            'Y')
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 87
+        end
+      end
+      object cxGrid1Level1: TcxGridLevel
+        GridView = TV2
+      end
+    end
+    object cxGrid3: TcxGrid
+      Left = 609
+      Top = 1
+      Width = 1284
+      Height = 391
+      Align = alClient
+      TabOrder = 1
+      ExplicitLeft = 615
+      ExplicitTop = 6
+      ExplicitHeight = 371
+      object TV3: TcxGridDBTableView
+        Navigator.Buttons.CustomButtons = <>
+        ScrollbarAnnotations.CustomAnnotations = <>
+        DataController.DataSource = DS_3
+        DataController.Filter.AutoDataSetFilter = True
+        DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+        DataController.Summary.DefaultGroupSummaryItems = <
+          item
+            Kind = skSum
+            Position = spFooter
+          end>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skCount
+          end
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+            Column = cxGridDBColumn8
+          end
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+            Column = cxGridDBColumn7
+          end>
+        DataController.Summary.SummaryGroups = <>
+        OptionsCustomize.ColumnFiltering = False
+        OptionsView.Footer = True
+        OptionsView.GroupByBox = False
+        object cxGridDBColumn3: TcxGridDBColumn
+          Caption = #26085#26399
+          DataBinding.FieldName = 'IOTime'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 66
+        end
+        object cxGridDBColumn6: TcxGridDBColumn
+          Caption = #32568#21495
+          DataBinding.FieldName = 'FtyPCId'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          VisibleForCustomization = False
+          Width = 66
+        end
+        object TV3Column1: TcxGridDBColumn
+          Caption = #39068#33394
+          DataBinding.FieldName = 'C_Color'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 66
+        end
+        object cxGridDBColumn7: TcxGridDBColumn
+          Caption = #25237#22383#21305#25968
+          DataBinding.FieldName = 'TPPiece'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 66
+        end
+        object cxGridDBColumn8: TcxGridDBColumn
+          Tag = 2
+          Caption = #25237#22383#25968#37327
+          DataBinding.FieldName = 'TPQty'
+          DataBinding.IsNullValueType = True
+          PropertiesClassName = 'TcxTextEditProperties'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 66
+        end
+        object TV3Column3: TcxGridDBColumn
+          Caption = #21152#24037#21378
+          DataBinding.FieldName = 'ToCoName'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 66
+        end
+        object TV3Column2: TcxGridDBColumn
+          Caption = #22238#20179#37325#37327
+          DataBinding.FieldName = 'WGQty'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 66
+        end
+        object TV3Column4: TcxGridDBColumn
+          Caption = #22238#20179#21305#25968
+          DataBinding.FieldName = 'WGPiece'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 66
+        end
+        object TV3Column5: TcxGridDBColumn
+          Caption = #25439#32791'%'
+          DataBinding.FieldName = 'sl'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 66
+        end
+        object TV3Column6: TcxGridDBColumn
+          Caption = #22238#20179#24773#20917
+          DataBinding.FieldName = 'StkCoName'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 66
+        end
+        object TV3Column7: TcxGridDBColumn
+          Caption = #24211#23384#21305#25968
+          DataBinding.FieldName = 'STKPiece'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 66
+        end
+        object TV3Column8: TcxGridDBColumn
+          Caption = #24211#23384#25968#37327
+          DataBinding.FieldName = 'STKQty'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 66
+        end
+      end
+      object cxGridLevel2: TcxGridLevel
+        GridView = TV3
+      end
+    end
+  end
+  inherited ADOQueryBaseCmd: TADOQuery
+    Connection = DataLink_TradePlan.ADOLink
+    Left = 789
+    Top = 369
+  end
+  inherited ADOQueryBaseTemp: TADOQuery
+    Connection = DataLink_TradePlan.ADOLink
+    Left = 861
+    Top = 369
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradePlan.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 789
+    Top = 441
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradePlan.ADOLink
+    Parameters = <>
+    Left = 933
+    Top = 369
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradePlan.ADOLink
+    LockType = ltReadOnly
+    CommandTimeout = 600
+    Parameters = <>
+    Left = 1005
+    Top = 369
+  end
+  object GPM_1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 933
+    Top = 441
+  end
+  object DS_1: TDataSource
+    DataSet = CDS_1
+    Left = 1077
+    Top = 441
+  end
+  object CDS_1: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 861
+    Top = 441
+  end
+  object RMGridReport1: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
+    DefaultCollate = False
+    SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
+    PreviewOptions.RulerUnit = rmutScreenPixels
+    PreviewOptions.RulerVisible = False
+    PreviewOptions.DrawBorder = False
+    PreviewOptions.BorderPen.Color = clGray
+    PreviewOptions.BorderPen.Style = psDash
+    Dataset = RMDBDataSet1
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 906
+    Top = 650
+    ReportData = {}
+  end
+  object RMDBDataSet1: TRMDBDataSet
+    Visible = True
+    DataSet = CDS_1
+    Left = 803
+    Top = 627
+  end
+  object RMXLSExport1: TRMXLSExport
+    ShowAfterExport = True
+    ExportPrecision = 1
+    PagesOfSheet = 100
+    ExportImages = True
+    ExportFrames = True
+    ExportImageFormat = ifBMP
+    JPEGQuality = 0
+    ScaleX = 1.000000000000000000
+    ScaleY = 1.000000000000000000
+    CompressFile = False
+    Left = 1006
+    Top = 653
+  end
+  object ADOQueryPrint: TADOQuery
+    Connection = DataLink_TradePlan.ADOLink
+    Parameters = <>
+    Left = 1077
+    Top = 369
+  end
+  object cxStyleRepository1: TcxStyleRepository
+    Left = 1005
+    Top = 441
+    PixelsPerInch = 96
+    object cxStyle1: TcxStyle
+      AssignedValues = [svColor, svFont, svTextColor]
+      Color = clBlack
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clBlack
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      TextColor = clBlack
+    end
+  end
+  object CDS_2: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 788
+    Top = 707
+  end
+  object GPM_2: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 860
+    Top = 707
+  end
+  object DS_2: TDataSource
+    DataSet = CDS_2
+    Left = 1004
+    Top = 707
+  end
+  object ADO_2: TADOQuery
+    Connection = DataLink_TradePlan.ADOLink
+    LockType = ltReadOnly
+    CommandTimeout = 600
+    Parameters = <>
+    Left = 912
+    Top = 713
+  end
+  object CDS_3: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 791
+    Top = 785
+  end
+  object GPM_3: TcxGridPopupMenu
+    Grid = cxGrid3
+    PopupMenus = <>
+    Left = 863
+    Top = 785
+  end
+  object ADO_3: TADOQuery
+    Connection = DataLink_TradePlan.ADOLink
+    LockType = ltReadOnly
+    CommandTimeout = 600
+    Parameters = <>
+    Left = 915
+    Top = 791
+  end
+  object DS_3: TDataSource
+    DataSet = CDS_3
+    Left = 1007
+    Top = 785
+  end
+end
diff --git a/项目代码/RTBasicsV1/T01贸易生产计划/U_TradePlanSchedule1.pas b/项目代码/RTBasicsV1/T01贸易生产计划/U_TradePlanSchedule1.pas
new file mode 100644
index 0000000..878c84b
--- /dev/null
+++ b/项目代码/RTBasicsV1/T01贸易生产计划/U_TradePlanSchedule1.pas
@@ -0,0 +1,321 @@
+unit U_TradePlanSchedule1;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
+  cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
+  cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
+  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
+  cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
+  cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
+  RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
+  IdTCPClient, IdFTP, ShellAPI, IniFiles, U_BaseList, cxLookAndFeels,
+  cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, dxSkinWXI,
+  cxNavigator, dxDateRanges, dxScrollbarAnnotations, cxTextEdit,
+  dxBarBuiltInMenu, Vcl.Menus, RM_e_Xls, cxPC, cxGridBandedTableView,
+  cxGridDBBandedTableView, FrameDateSel, cxButtonEdit, cxDropDownEdit,
+  cxContainer;
+
+type
+  TfrmTradePlanSchedule1 = class(TfrmBaseList)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBClose: TToolButton;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    Panel1: TPanel;
+    ToolButton2: TToolButton;
+    ADOQueryMain: TADOQuery;
+    ToolButton1: TToolButton;
+    GPM_1: TcxGridPopupMenu;
+    DS_1: TDataSource;
+    CDS_1: TClientDataSet;
+    ToolButton3: TToolButton;
+    RMGridReport1: TRMGridReport;
+    RMDBDataSet1: TRMDBDataSet;
+    RMXLSExport1: TRMXLSExport;
+    ADOQueryPrint: TADOQuery;
+    cxStyleRepository1: TcxStyleRepository;
+    cxStyle1: TcxStyle;
+    ToolButton5: TToolButton;
+    frmFrameDateSel1: TfrmFrameDateSel;
+    cxGrid1: TcxGrid;
+    TV1: TcxGridDBTableView;
+    TV1Column4: TcxGridDBColumn;
+    TV1Column2: TcxGridDBColumn;
+    TV1Column1: TcxGridDBColumn;
+    TV1Column3: TcxGridDBColumn;
+    TV1Column5: TcxGridDBColumn;
+    VC_SCSCode: TcxGridDBColumn;
+    cxGridDBColumn2: TcxGridDBColumn;
+    TV1Column12: TcxGridDBColumn;
+    TV1Column14: TcxGridDBColumn;
+    TV1Column13: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    TV1Column6: TcxGridDBColumn;
+    TV1Column9: TcxGridDBColumn;
+    cxGridDBColumn4: TcxGridDBColumn;
+    cxGridDBColumn5: TcxGridDBColumn;
+    v1PRTOrderQty: TcxGridDBColumn;
+    v1OrderUnit: TcxGridDBColumn;
+    v1PRTPrice: TcxGridDBColumn;
+    cxGridDBColumn9: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    TV1Column8: TcxGridDBColumn;
+    TV1Column7: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    Panel2: TPanel;
+    cxGrid2: TcxGrid;
+    TV2: TcxGridDBTableView;
+    TV2Column1: TcxGridDBColumn;
+    v1Column10: TcxGridDBColumn;
+    v1Column15: TcxGridDBColumn;
+    v2Column6: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    cxGrid3: TcxGrid;
+    TV3: TcxGridDBTableView;
+    cxGridDBColumn3: TcxGridDBColumn;
+    cxGridDBColumn6: TcxGridDBColumn;
+    TV3Column1: TcxGridDBColumn;
+    cxGridDBColumn7: TcxGridDBColumn;
+    cxGridDBColumn8: TcxGridDBColumn;
+    cxGridLevel2: TcxGridLevel;
+    TV3Column2: TcxGridDBColumn;
+    TV3Column3: TcxGridDBColumn;
+    TV3Column4: TcxGridDBColumn;
+    TV3Column5: TcxGridDBColumn;
+    TV3Column6: TcxGridDBColumn;
+    TV3Column7: TcxGridDBColumn;
+    TV3Column8: TcxGridDBColumn;
+    Label4: TLabel;
+    Label9: TLabel;
+    Label3: TLabel;
+    BuyName: TcxTextEdit;
+    PurNo: TcxTextEdit;
+    SellName: TcxTextEdit;
+    CDS_2: TClientDataSet;
+    GPM_2: TcxGridPopupMenu;
+    DS_2: TDataSource;
+    ADO_2: TADOQuery;
+    CDS_3: TClientDataSet;
+    GPM_3: TcxGridPopupMenu;
+    ADO_3: TADOQuery;
+    DS_3: TDataSource;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure P_OrderNo_YSK(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure MPRTCodeNameChange(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
+    procedure CustNameChange(Sender: TObject);
+    procedure ConNoChange(Sender: TObject);
+    procedure cxTabControl1Change(Sender: TObject);
+    procedure TV1DblClick(Sender: TObject);
+    procedure ToolButton5Click(Sender: TObject);
+    procedure TV1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
+  private
+    { Private declarations }
+
+    procedure InitGrid();
+  public
+    { Public declarations }
+    RKFlag, FCYID, FZKType, FBZType: string;
+    fType: string;
+  end;
+
+var
+  frmTradePlanSchedule1: TfrmTradePlanSchedule1;
+
+implementation
+
+uses
+  U_DataLink, U_RTFun, U_ZDYHelp, U_TradePlanScheduleDetail;
+
+{$R *.dfm}
+
+procedure TfrmTradePlanSchedule1.InitGrid();
+var
+  SqlStr: string;
+begin
+
+  SqlStr := ' select A.*,B.*';
+  SqlStr := SqlStr + ',LJHCPiece= (select SUM(X.Piece) from BS_Cloth_IO X where X.FromPurSId = B.PurSId and X.IOType =''�ɹ����'' and STKName=''ó�ײ�ƥ'')';
+  SqlStr := SqlStr + ',LJHCQty= (select SUM(X.Qty)   from BS_Cloth_IO X where X.FromPurSId = B.PurSId and X.IOType =''�ɹ����'' and STKName=''ó�ײ�ƥ'')';
+  SqlStr := SqlStr + ' from Pur_ClothPlan_Main A inner join Pur_ClothPlan_sub B on A.PurMId=B.PurMId  ';
+  SqlStr := SqlStr + 'where C_Degree=''����'' ';
+
+  InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'PurNo');
+end;
+
+procedure TfrmTradePlanSchedule1.FormDestroy(Sender: TObject);
+begin
+  inherited;
+  frmTradePlanSchedule1 := nil;
+end;
+
+procedure TfrmTradePlanSchedule1.ConNoChange(Sender: TObject);
+begin
+  ToolButton2.Click;
+end;
+
+procedure TfrmTradePlanSchedule1.cxTabControl1Change(Sender: TObject);
+begin
+
+  InitGrid();
+end;
+
+procedure TfrmTradePlanSchedule1.CustNameChange(Sender: TObject);
+begin
+  ToolButton2.Click;
+end;
+
+procedure TfrmTradePlanSchedule1.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  inherited;
+  Action := caFree;
+end;
+
+procedure TfrmTradePlanSchedule1.TBCloseClick(Sender: TObject);
+begin
+
+  Close;
+end;
+
+procedure TfrmTradePlanSchedule1.FormShow(Sender: TObject);
+begin
+  inherited;
+  readCxGrid(self.Caption + 'Tv1', Tv1, '����ͳ�Ʋ�ѯ');
+  readCxGrid(self.Caption + 'Tv2', Tv2, '����ͳ�Ʋ�ѯ');
+  readCxGrid(self.Caption + 'Tv3', Tv3, '����ͳ�Ʋ�ѯ');
+  InitGrid();
+end;
+
+procedure TfrmTradePlanSchedule1.TBRafreshClick(Sender: TObject);
+begin
+  frmFrameDateSel1.begdate.SetFocus;
+  InitGrid();
+end;
+
+procedure TfrmTradePlanSchedule1.ToolButton2Click(Sender: TObject);
+begin
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+    SCreateCDS(ADOQueryMain, CDS_1);
+    SInitCDSData(ADOQueryMain, CDS_1);
+  end;
+end;
+
+procedure TfrmTradePlanSchedule1.P_OrderNo_YSK(Sender: TObject);
+begin
+  ToolButton2.Click;
+end;
+
+procedure TfrmTradePlanSchedule1.ToolButton1Click(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then
+    Exit;
+  TcxGridToExcel(self.Caption, cxgrid1);
+end;
+
+procedure TfrmTradePlanSchedule1.MPRTCodeNameChange(Sender: TObject);
+begin
+  ToolButton2.Click;
+end;
+
+procedure TfrmTradePlanSchedule1.FormCreate(Sender: TObject);
+begin
+  inherited;
+  frmFrameDateSel1.Enddate.Date := SGetServerDate(ADOQueryTemp);
+  frmFrameDateSel1.begdate.Date := frmFrameDateSel1.Enddate.Date - 60;
+end;
+
+procedure TfrmTradePlanSchedule1.ToolButton3Click(Sender: TObject);
+var
+  filepath: string;
+  mBegdate, mEnddate: string;
+begin
+  mBegdate := FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.begdate.Date);
+  mEnddate := FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date);
+  if CDS_1.IsEmpty then
+    exit;
+
+  try
+
+    filepath := ExtractFilePath(Application.ExeName) + 'report\���������.rmf';
+    if not FileExists(Pchar(filepath)) then
+    begin
+      application.MessageBox(pchar('�ļ�[' + filepath + ']�����ڣ�'), '��ʾ��Ϣ', MB_IConError);
+      exit;
+    end;
+
+    RMGridReport1.LoadFromFile(filepath);
+
+    RMGridReport1.ShowReport;
+  finally
+
+  end;
+
+end;
+
+procedure TfrmTradePlanSchedule1.ToolButton5Click(Sender: TObject);
+begin
+
+  WriteCxGrid(self.Caption + 'Tv1', Tv1, '����ͳ�Ʋ�ѯ');
+  WriteCxGrid(self.Caption + 'Tv2', Tv2, '����ͳ�Ʋ�ѯ');
+  WriteCxGrid(self.Caption + 'Tv3', Tv3, '����ͳ�Ʋ�ѯ');
+end;
+
+procedure TfrmTradePlanSchedule1.TV1DblClick(Sender: TObject);
+begin
+
+  try
+    frmTradePlanScheduleDetail := TfrmTradePlanScheduleDetail.Create(Application);
+    with frmTradePlanScheduleDetail do
+    begin
+      FMainId := self.CDS_1.FieldByName('MainId').AsString;
+      FOrderNo := self.CDS_1.FieldByName('OrderNo').AsString;
+      FMasterOrderNo := self.CDS_1.FieldByName('MasterOrderNo').AsString;
+      if ShowModal = 1 then
+      begin
+        Self.InitGrid();
+      end;
+    end;
+  finally
+    frmTradePlanScheduleDetail.Free;
+  end;
+end;
+
+procedure TfrmTradePlanSchedule1.TV1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
+var
+  SqlStr: string;
+begin
+
+  SqlStr := ' select A.*';
+
+  SqlStr := SqlStr + ' from BS_Cloth_IO A    ';
+  SqlStr := SqlStr + 'where A.FromPurSId =  ' + quotedstr(Trim(CDS_1.fieldbyname('PurSId').AsString));
+  SqlStr := SqlStr + 'and A.IOType =''�ɹ����'' and STKName=''ó�ײ�ƥ'' ';
+
+  InitCDSData(ADO_2, CDS_2, Tv2, SqlStr, '', '');
+
+  SqlStr := ' select A.IOTime,A.ToCoName,TPPiece=A.Piece,TPQty=A.Qty,WGPiece=B.Piece,WGQty=B.Qty,B.STKPiece,B.STKQty,B.FtyPCId,B.C_Color,B.StkCoName   ';
+  SqlStr := SqlStr + ' ,sl=cast(round((1-ISNULL(B.Qty, 0)/A.Qty)*100,2) as DECIMAL(18,2))                       ';
+  SqlStr := SqlStr + ' from BS_Cloth_IO A left join BS_Cloth_IO B on A.ToSubID=B.FromSubId   AND B.IOType=''�ӹ����''         ';
+  SqlStr := SqlStr + ' where   A.IOType=''Ͷ������''     ';
+  SqlStr := SqlStr + ' and  A.FromPurSId =  ' + quotedstr(Trim(CDS_1.fieldbyname('PurSId').AsString));
+
+  InitCDSData(ADO_3, CDS_3, Tv3, SqlStr, '', '');
+
+end;
+
+end.
+
diff --git a/项目代码/RTBasicsV1/T02贸易汇总仓库/TradeTotalClothStk.identcache b/项目代码/RTBasicsV1/T02贸易汇总仓库/TradeTotalClothStk.identcache
index baec347e5b0aa19868851ea8f000d64e70d5a075..203b7f22b567df86ef3bd753d23d95d8cf72b630 100644
GIT binary patch
delta 266
zcmcbqc~f&j=Hzoi=@ZYTPM*c8IoVQ3Y_f!a@@8YkNsJTExlBGFz&rVmpvdG6d@hq4
zL^vmZ<rN3AQzj>{8E)RoY|J=Wh6AXGlY8<M!RW~e9ITt`SZ6SUHF7FWcIC2~%*_PR
zs3sx?V{caAR$`niAQU~>i6?&YW;WHyM@2*?GxIutZE;}ZnH<F=0#`hNSAh}eG{4F3
zc|<0Q@Fz^R7FY(d0BG67P0^D#^Q(cCI<Rq0E@KvhyC;=Xd~&u>^5lB18IwVBAp5Na
Y6eouXD@^{t;tKVU0+9Bcti>e_0ARFNIsgCw

delta 244
zcmcbqc~f&j=41snzsWj+VUr!WSSO1xDsG<6IEis`A9Kp&1zawZ-w4W2_GUNS+|FXm
zIQfjQ>t+SEhs=|6`1~hF35id<;4*mwAK&C)E@7Ysm&rRt6egeLP@LS(B{^A+$8s{S
zaQx)AES#GIxRn?upXG_4T*jX?c{-!+<Vn23K-2v<NASskta6!b#-cF!27kiD3-*(n
z1l54*G$+R~T2Ag3R-7Cu&<a-aMv!yzCth)|-JEREK#RF2S1^lBF5-y>yYxRd$K<_0
hH)W;+wK)QXmQT(RmIrF}og613K6xIy>f}IP5di(hQ@Q{E

diff --git a/项目代码/RTBasicsV1/T02贸易汇总仓库/U_ClothScheduleList.dfm b/项目代码/RTBasicsV1/T02贸易汇总仓库/U_ClothScheduleList.dfm
index 6eb0e65..15cfd7a 100644
--- a/项目代码/RTBasicsV1/T02贸易汇总仓库/U_ClothScheduleList.dfm
+++ b/项目代码/RTBasicsV1/T02贸易汇总仓库/U_ClothScheduleList.dfm
@@ -3,9 +3,9 @@ inherited frmClothScheduleList: TfrmClothScheduleList
   Top = 116
   Caption = #24067#21305#21152#24037#35745#21010
   ClientHeight = 701
-  ClientWidth = 1284
+  ClientWidth = 1575
   Font.Height = -16
-  ExplicitWidth = 1300
+  ExplicitWidth = 1591
   ExplicitHeight = 740
   PixelsPerInch = 96
   TextHeight = 21
@@ -13,7 +13,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList
     Tag = 1
     Left = 0
     Top = 0
-    Width = 1284
+    Width = 1575
     Height = 30
     AutoSize = True
     ButtonHeight = 30
@@ -26,6 +26,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList
     ParentColor = False
     ShowCaptions = True
     TabOrder = 0
+    ExplicitWidth = 1284
     object TBRafresh: TToolButton
       Left = 0
       Top = 0
@@ -70,7 +71,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList
   object Panel1: TPanel [1]
     Left = 0
     Top = 30
-    Width = 1284
+    Width = 1575
     Height = 83
     Align = alTop
     BevelInner = bvRaised
@@ -78,6 +79,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList
     Color = clWhite
     ParentBackground = False
     TabOrder = 1
+    ExplicitWidth = 1284
     object Label9: TLabel
       Left = 23
       Top = 50
@@ -134,11 +136,12 @@ inherited frmClothScheduleList: TfrmClothScheduleList
   object cxGrid1: TcxGrid [2]
     Left = 0
     Top = 143
-    Width = 1284
+    Width = 1575
     Height = 289
     Align = alClient
     BorderStyle = cxcbsNone
     TabOrder = 2
+    ExplicitWidth = 1284
     object TV1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
       ScrollbarAnnotations.CustomAnnotations = <>
@@ -375,7 +378,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList
     Tag = 1
     Left = 0
     Top = 432
-    Width = 1284
+    Width = 1575
     Height = 30
     Align = alBottom
     AutoSize = True
@@ -389,6 +392,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList
     ParentColor = False
     ShowCaptions = True
     TabOrder = 3
+    ExplicitWidth = 1284
     object ToolButton2: TToolButton
       Left = 0
       Top = 0
@@ -441,16 +445,17 @@ inherited frmClothScheduleList: TfrmClothScheduleList
   object cxPageControl1: TcxPageControl [4]
     Left = 0
     Top = 462
-    Width = 1284
+    Width = 1575
     Height = 239
     Align = alBottom
     TabOrder = 4
-    Properties.ActivePage = cxTabSheet4
+    Properties.ActivePage = cxTabSheet2
     Properties.CustomButtons.Buttons = <>
     Properties.Style = 5
     OnChange = cxPageControl1Change
+    ExplicitWidth = 1284
     ClientRectBottom = 239
-    ClientRectRight = 1284
+    ClientRectRight = 1575
     ClientRectTop = 32
     object cxTabSheet2: TcxTabSheet
       Caption = '  '#37197#24067#25968#25454'  '
@@ -458,7 +463,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList
       object cxGrid2: TcxGrid
         Left = 0
         Top = 0
-        Width = 1284
+        Width = 1575
         Height = 207
         Align = alClient
         TabOrder = 0
@@ -614,7 +619,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList
       object cxGrid3: TcxGrid
         Left = 0
         Top = 0
-        Width = 1284
+        Width = 1575
         Height = 207
         Align = alClient
         TabOrder = 0
@@ -786,7 +791,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList
       object cxGrid4: TcxGrid
         Left = 0
         Top = 0
-        Width = 1284
+        Width = 1575
         Height = 207
         Align = alClient
         TabOrder = 0
@@ -955,13 +960,15 @@ inherited frmClothScheduleList: TfrmClothScheduleList
     object cxTabSheet4: TcxTabSheet
       Caption = #38754#26009#20986#24211
       ImageIndex = 3
+      ExplicitWidth = 1284
       object cxGrid5: TcxGrid
         Left = 0
         Top = 0
-        Width = 1284
+        Width = 1575
         Height = 207
         Align = alClient
         TabOrder = 0
+        ExplicitWidth = 1284
         object TV5: TcxGridDBTableView
           Navigator.Buttons.CustomButtons = <>
           ScrollbarAnnotations.CustomAnnotations = <>
@@ -1142,7 +1149,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList
   object cxTabControl1: TcxTabControl [5]
     Left = 0
     Top = 113
-    Width = 1284
+    Width = 1575
     Height = 30
     Align = alTop
     TabOrder = 5
@@ -1155,6 +1162,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList
       #24050#23436#25104
       #20840#37096)
     OnChange = cxTabControl1Change
+    ExplicitWidth = 1284
     ClientRectRight = 0
     ClientRectTop = 0
   end