计划

E01梭织生产计划/TatPlan.dpr

@@ -26,6 +26,7 @@ uses
   U_YarnInfoSel in '..\A00通用窗体\U_YarnInfoSel.pas' {frmYarnInfoSel},
   U_TatClothInfoSel in '..\A00通用窗体\U_TatClothInfoSel.pas' {frmTatClothInfoSel},
   U_JHDTJ in 'U_JHDTJ.pas' {frmJHDTJ},
+  U_TatOrderProdTJ in 'U_TatOrderProdTJ.pas' {frmTatOrderProdTJ},
   U_WBSpecSel in '..\A00通用窗体\U_WBSpecSel.pas' {frmWBSpecSel},
   U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
   U_TradeSalesContractSel in '..\T00贸易通用窗体\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel},

E01梭织生产计划/TatPlan.dproj.local

@@ -1,84 +1,84 @@
 <?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<Transactions>
+    <Transaction>1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.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.873,=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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm</Transaction>
     <Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.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.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm</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.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj</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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm</Transaction>
     <Transaction>1899/12/30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.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.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.724,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_YarnStkSel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.724,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_YarnStkSel.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.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.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.613,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.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.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.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.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.dfm</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.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.228,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.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.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm</Transaction>
     <Transaction>1899/12/30 00:00:00.000.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.719,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.203,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm</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.556,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm</Transaction>
     <Transaction>1899/12/30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.998,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_YarnCFInfoSel.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
     <Transaction>1899/12/30 00:00:00.000.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.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.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.998,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_YarnCFInfoSel.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.259,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.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.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.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.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.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.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.467,=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.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.dfm</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.dfm</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.dfm</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.258,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKManageSel.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.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.258,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKManageSel.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.259,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
   </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">
@@ -169,5 +169,7 @@
     <File Path="U_WBSpecInPut.dfm"/>
     <File Path="U_YarnStkSel.pas"/>
     <File Path="U_YarnStkSel.dfm"/>
+    <File Path="U_TatOrderProdTJ.pas"/>
+    <File Path="U_TatOrderProdTJ.dfm"/>
   </ProjectSortOrder>
 </BorlandProject>

E01梭织生产计划/U_GetDllForm.pas

@@ -17,7 +17,7 @@ implementation
 uses
   U_DataLink, U_iniParam, U_TatPlanList, U_TatPlanCard, U_TatPlanMachList,
   U_TatPlanCard1, U_TatPlanCardWJY, U_JHDTJ, U_TatGYList, U_TatPlanJTSCLIST,
-  U_TatPlanPSYLLIST;
+  U_TatPlanPSYLLIST, U_TatOrderProdTJ;
 
 
 
@@ -198,6 +198,18 @@ begin
         end;
       end;
 
+    212:  //坯布订单生产统计
+      begin
+        with TfrmTatOrderProdTJ.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;
+
 //    126:  //已下布未检验
 //      begin
 //        with TfrmTatPlanCardWJY.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do

E01梭织生产计划/U_TatOrderProdTJ.dfm

@@ -0,0 +1,696 @@
+inherited frmTatOrderProdTJ: TfrmTatOrderProdTJ
+  Left = 154
+  Top = 76
+  Caption = #22383#24067#35746#21333#29983#20135#32479#35745
+  ClientHeight = 637
+  ClientWidth = 1541
+  Font.Height = -16
+  Position = poScreenCenter
+  ExplicitWidth = 1557
+  ExplicitHeight = 676
+  PixelsPerInch = 96
+  TextHeight = 21
+  object ToolBar1: TToolBar [0]
+    Tag = 1
+    Left = 0
+    Top = 0
+    Width = 1541
+    Height = 30
+    AutoSize = True
+    ButtonHeight = 30
+    ButtonWidth = 83
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    DisabledImages = DataLink_TatPlan.cxImageList_bar
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_TatPlan.cxImageList_bar
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 2
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 1
+      OnClick = TBRafreshClick
+    end
+    object ToolButton1: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 20
+      OnClick = ToolButton1Click
+    end
+    object ToolButton2: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384#26684#24335
+      ImageIndex = 16
+      OnClick = ToolButton2Click
+    end
+    object TBClose: TToolButton
+      Left = 213
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 7
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel [1]
+    Left = 0
+    Top = 30
+    Width = 1541
+    Height = 95
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clWhite
+    ParentBackground = False
+    TabOrder = 4
+    object Label1: TLabel
+      Left = 22
+      Top = 16
+      Width = 64
+      Height = 21
+      Caption = #26597#35810#26085#26399
+    end
+    object Label2: TLabel
+      Left = 65
+      Top = 53
+      Width = 21
+      Height = 21
+      Caption = '---'
+    end
+    object Label3: TLabel
+      Left = 236
+      Top = 16
+      Width = 48
+      Height = 21
+      Caption = #21512#21516#21495
+    end
+    object Label4: TLabel
+      Left = 236
+      Top = 53
+      Width = 32
+      Height = 21
+      Caption = #23458#25143
+    end
+    object Label5: TLabel
+      Left = 488
+      Top = 16
+      Width = 64
+      Height = 21
+      Caption = #38754#26009#21517#31216
+    end
+    object BegDate: TcxDateEdit
+      Left = 90
+      Top = 12
+      Properties.ShowTime = False
+      TabOrder = 0
+      Width = 120
+    end
+    object EndDate: TcxDateEdit
+      Left = 90
+      Top = 49
+      Properties.ShowTime = False
+      TabOrder = 1
+      Width = 120
+    end
+    object ConNo: TcxTextEdit
+      Tag = 2
+      Left = 306
+      Top = 12
+      Properties.OnChange = EdtPropertiesChange
+      TabOrder = 2
+      Width = 150
+    end
+    object CustName: TcxTextEdit
+      Tag = 2
+      Left = 306
+      Top = 49
+      Properties.OnChange = EdtPropertiesChange
+      TabOrder = 3
+      Width = 150
+    end
+    object C_Name: TcxTextEdit
+      Tag = 2
+      Left = 558
+      Top = 12
+      Properties.OnChange = EdtPropertiesChange
+      TabOrder = 4
+      Width = 150
+    end
+  end
+  object cxGrid1: TcxGrid [3]
+    Left = 0
+    Top = 125
+    Width = 1541
+    Height = 512
+    Align = alClient
+    TabOrder = 3
+    object TV1: TcxGridDBBandedTableView
+      Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
+      DataController.DataSource = DS_1
+      DataController.Filter.AutoDataSetFilter = True
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Format = '0.00'
+          Kind = skSum
+          Column = ColOrdQty
+        end
+        item
+          Format = '0.00'
+          Kind = skSum
+          Column = ColLLYarnLen
+        end
+        item
+          Format = '0.00'
+          Kind = skSum
+          Column = ColLLYarnQty
+        end
+        item
+          Format = '0'
+          Kind = skSum
+          Column = ColAZGroup
+        end
+        item
+          Format = '0'
+          Kind = skSum
+          Column = ColAZCard
+        end
+        item
+          Format = '0.00'
+          Kind = skSum
+          Column = ColAZLen
+        end
+        item
+          Format = '0'
+          Kind = skSum
+          Column = ColWSCard
+        end
+        item
+          Format = '0.00'
+          Kind = skSum
+          Column = ColWSLen
+        end
+        item
+          Format = '0'
+          Kind = skSum
+          Column = ColSCCard
+        end
+        item
+          Format = '0.00'
+          Kind = skSum
+          Column = ColSCLen
+        end
+        item
+          Format = '0'
+          Kind = skSum
+          Column = ColJLCard
+        end
+        item
+          Format = '0.00'
+          Kind = skSum
+          Column = ColJLLen
+        end
+        item
+          Format = '0.00'
+          Kind = skSum
+          Column = ColMBMeter
+        end
+        item
+          Format = '0.00'
+          Kind = skSum
+          Column = ColYBMeter
+        end
+        item
+          Format = '0.00'
+          Kind = skSum
+          Column = ColRKQty
+        end
+        item
+          Format = '0.00'
+          Kind = skSum
+          Column = ColQSQty
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      OptionsView.Indicator = True
+      OptionsView.IndicatorWidth = 30
+      Styles.OnGetContentStyle = TV1StylesGetContentStyle
+      Bands = <
+        item
+          Caption = #21512#21516#20449#24687
+          Options.Moving = False
+          Width = 640
+        end
+        item
+          Caption = #32433#32447#29702#35770#29992#37327
+          Options.Moving = False
+          Width = 415
+        end
+        item
+          Caption = #24050#23433#25490
+          Options.Moving = False
+          Width = 190
+        end
+        item
+          Caption = #26410#19978#36724
+          Options.Moving = False
+          Width = 135
+        end
+        item
+          Caption = #29983#20135#20013
+          Options.Moving = False
+          Width = 135
+        end
+        item
+          Caption = #24050#20102#26426
+          Options.Moving = False
+          Width = 135
+        end
+        item
+          Caption = #22383#24067#32479#35745
+          Options.Moving = False
+          Width = 290
+        end>
+      object ColConNo: TcxGridDBBandedColumn
+        Caption = #21512#21516#21495
+        DataBinding.FieldName = 'ConNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Options.CellMerging = True
+        Width = 90
+        OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging
+        Position.BandIndex = 0
+        Position.ColIndex = 0
+        Position.RowIndex = 0
+      end
+      object ColCustName: TcxGridDBBandedColumn
+        Caption = #23458#25143
+        DataBinding.FieldName = 'CustName'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Options.CellMerging = True
+        Width = 140
+        OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging
+        Position.BandIndex = 0
+        Position.ColIndex = 1
+        Position.RowIndex = 0
+      end
+      object ColC_Name: TcxGridDBBandedColumn
+        Caption = #38754#26009#21517#31216
+        DataBinding.FieldName = 'C_Name'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Options.CellMerging = True
+        Width = 120
+        OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging
+        Position.BandIndex = 0
+        Position.ColIndex = 2
+        Position.RowIndex = 0
+      end
+      object ColC_Spec: TcxGridDBBandedColumn
+        Caption = #38754#26009#35268#26684
+        DataBinding.FieldName = 'C_Spec'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Options.CellMerging = True
+        Width = 140
+        OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging
+        Position.BandIndex = 0
+        Position.ColIndex = 3
+        Position.RowIndex = 0
+      end
+      object ColOrdQty: TcxGridDBBandedColumn
+        Caption = #35746#21333#25968#37327
+        DataBinding.FieldName = 'OrdQty'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Options.CellMerging = True
+        Width = 70
+        OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging
+        Position.BandIndex = 0
+        Position.ColIndex = 4
+        Position.RowIndex = 0
+      end
+      object ColJHDate: TcxGridDBBandedColumn
+        Caption = #20132#26399
+        DataBinding.FieldName = 'JHDate'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.ShowTime = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Options.CellMerging = True
+        Width = 80
+        OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging
+        Position.BandIndex = 0
+        Position.ColIndex = 5
+        Position.RowIndex = 0
+      end
+      object ColYType: TcxGridDBBandedColumn
+        Caption = #31867#22411
+        DataBinding.FieldName = 'YType'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 45
+        Position.BandIndex = 1
+        Position.ColIndex = 0
+        Position.RowIndex = 0
+      end
+      object ColYZS: TcxGridDBBandedColumn
+        Caption = #32433#25903
+        DataBinding.FieldName = 'YZS'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 60
+        Position.BandIndex = 1
+        Position.ColIndex = 1
+        Position.RowIndex = 0
+      end
+      object ColYGYS: TcxGridDBBandedColumn
+        Caption = #32433#32447#20379#24212#21830
+        DataBinding.FieldName = 'YGYS'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 140
+        Position.BandIndex = 1
+        Position.ColIndex = 2
+        Position.RowIndex = 0
+      end
+      object ColLLYarnLen: TcxGridDBBandedColumn
+        Caption = #29702#35770#32433#32447#38271#24230'M'
+        DataBinding.FieldName = 'LLYarnLen'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Options.CellMerging = True
+        Width = 95
+        OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging
+        Position.BandIndex = 1
+        Position.ColIndex = 3
+        Position.RowIndex = 0
+      end
+      object ColLLYarnQty: TcxGridDBBandedColumn
+        Caption = #29702#35770#29992#37327'KG'
+        DataBinding.FieldName = 'LLYarnQty'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 85
+        Position.BandIndex = 1
+        Position.ColIndex = 4
+        Position.RowIndex = 0
+      end
+      object ColAZGroup: TcxGridDBBandedColumn
+        Caption = #36724#32452#25968
+        DataBinding.FieldName = 'AZGroup'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Options.CellMerging = True
+        Width = 55
+        OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging
+        Position.BandIndex = 2
+        Position.ColIndex = 0
+        Position.RowIndex = 0
+      end
+      object ColAZCard: TcxGridDBBandedColumn
+        Caption = #36724#21345#25968
+        DataBinding.FieldName = 'AZCard'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Options.CellMerging = True
+        Width = 55
+        OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging
+        Position.BandIndex = 2
+        Position.ColIndex = 1
+        Position.RowIndex = 0
+      end
+      object ColAZLen: TcxGridDBBandedColumn
+        Caption = #32463#36724#38271#24230
+        DataBinding.FieldName = 'AZLen'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Options.CellMerging = True
+        Width = 80
+        OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging
+        Position.BandIndex = 2
+        Position.ColIndex = 2
+        Position.RowIndex = 0
+      end
+      object ColWSCard: TcxGridDBBandedColumn
+        Caption = #32463#36724#25968
+        DataBinding.FieldName = 'WSCard'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Options.CellMerging = True
+        Width = 55
+        OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging
+        Position.BandIndex = 3
+        Position.ColIndex = 0
+        Position.RowIndex = 0
+      end
+      object ColWSLen: TcxGridDBBandedColumn
+        Caption = #32463#36724#38271#24230
+        DataBinding.FieldName = 'WSLen'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Options.CellMerging = True
+        Width = 80
+        OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging
+        Position.BandIndex = 3
+        Position.ColIndex = 1
+        Position.RowIndex = 0
+      end
+      object ColSCCard: TcxGridDBBandedColumn
+        Caption = #32463#36724#25968
+        DataBinding.FieldName = 'SCCard'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Options.CellMerging = True
+        Width = 55
+        OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging
+        Position.BandIndex = 4
+        Position.ColIndex = 0
+        Position.RowIndex = 0
+      end
+      object ColSCLen: TcxGridDBBandedColumn
+        Caption = #32463#36724#38271#24230
+        DataBinding.FieldName = 'SCLen'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Options.CellMerging = True
+        Width = 80
+        OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging
+        Position.BandIndex = 4
+        Position.ColIndex = 1
+        Position.RowIndex = 0
+      end
+      object ColJLCard: TcxGridDBBandedColumn
+        Caption = #32463#36724#25968
+        DataBinding.FieldName = 'JLCard'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Options.CellMerging = True
+        Width = 55
+        OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging
+        Position.BandIndex = 5
+        Position.ColIndex = 0
+        Position.RowIndex = 0
+      end
+      object ColJLLen: TcxGridDBBandedColumn
+        Caption = #32463#36724#38271#24230
+        DataBinding.FieldName = 'JLLen'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Options.CellMerging = True
+        Width = 80
+        OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging
+        Position.BandIndex = 5
+        Position.ColIndex = 1
+        Position.RowIndex = 0
+      end
+      object ColMBMeter: TcxGridDBBandedColumn
+        Caption = #30721#24067#31859#25968
+        DataBinding.FieldName = 'MBMeter'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Options.CellMerging = True
+        Width = 80
+        OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging
+        Position.BandIndex = 6
+        Position.ColIndex = 0
+        Position.RowIndex = 0
+      end
+      object ColYBMeter: TcxGridDBBandedColumn
+        Caption = #39564#24067#31859#25968
+        DataBinding.FieldName = 'YBMeter'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Options.CellMerging = True
+        Width = 80
+        OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging
+        Position.BandIndex = 6
+        Position.ColIndex = 1
+        Position.RowIndex = 0
+      end
+      object ColRKQty: TcxGridDBBandedColumn
+        Caption = #20837#24211#31859#25968
+        DataBinding.FieldName = 'RKQty'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Options.CellMerging = True
+        Width = 80
+        OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging
+        Position.BandIndex = 6
+        Position.ColIndex = 2
+        Position.RowIndex = 0
+      end
+      object ColQSQty: TcxGridDBBandedColumn
+        Caption = #35746#21333#32570#25968
+        DataBinding.FieldName = 'QSQty'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Options.CellMerging = True
+        Width = 80
+        OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging
+        Position.BandIndex = 6
+        Position.ColIndex = 3
+        Position.RowIndex = 0
+      end
+      object ColIsRed: TcxGridDBBandedColumn
+        Caption = #26631#32418
+        DataBinding.FieldName = 'IsRed'
+        DataBinding.IsNullValueType = True
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Options.CellMerging = True
+        Width = 55
+        OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging
+        Position.BandIndex = 6
+        Position.ColIndex = 4
+        Position.RowIndex = 0
+      end
+    end
+    object cxGridLevel1: TcxGridLevel
+      GridView = TV1
+    end
+  end
+  inherited cxProgressBar2: TcxProgressBar
+    Left = 430
+    Top = 441
+    ExplicitLeft = 430
+    ExplicitTop = 441
+    ExplicitHeight = 29
+  end
+  inherited ADOQueryBaseCmd: TADOQuery
+    Connection = DataLink_TatPlan.ADOLink
+    Left = 81
+    Top = 272
+  end
+  inherited ADOQueryBaseTemp: TADOQuery
+    Connection = DataLink_TatPlan.ADOLink
+    Left = 81
+    Top = 209
+  end
+  object GPM_1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 296
+    Top = 368
+  end
+  object PopupMenu1: TPopupMenu
+    Left = 362
+    Top = 368
+    object N1: TMenuItem
+      Caption = #20840#36873
+      OnClick = N1Click
+    end
+    object N2: TMenuItem
+      Caption = #20840#24323
+      OnClick = N2Click
+    end
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TatPlan.ADOLink
+    Parameters = <>
+    Left = 720
+    Top = 208
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TatPlan.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 701
+    Top = 399
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TatPlan.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 396
+    Top = 403
+  end
+  object DS_1: TDataSource
+    DataSet = CDS_1
+    Left = 520
+    Top = 364
+  end
+  object CDS_1: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 472
+    Top = 364
+  end
+  object cxStyleRepository1: TcxStyleRepository
+    Left = 600
+    Top = 300
+    PixelsPerInch = 96
+    object cxStyleRed: TcxStyle
+      AssignedValues = [svFont, svTextColor]
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -13
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      TextColor = clRed
+    end
+  end
+end

E01梭织生产计划/U_TatOrderProdTJ.pas

@@ -0,0 +1,213 @@
+unit U_TatOrderProdTJ;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
+  cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
+  cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
+  cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
+  cxGrid, DBClient, cxCalendar, cxTextEdit, cxLookAndFeels,
+  cxLookAndFeelPainters, cxNavigator, Vcl.Menus, cxContainer, dxCore,
+  cxDateUtils, cxMaskEdit, cxDropDownEdit, dxSkinsCore, cxProgressBar,
+  cxGridBandedTableView, cxGridDBBandedTableView, U_BaseList, dxSkinWXI,
+  dxDateRanges, dxScrollbarAnnotations, dxBarBuiltInMenu;
+
+type
+  TfrmTatOrderProdTJ = class(TfrmBaseList)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
+    TBClose: TToolButton;
+    Panel1: TPanel;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    Label4: TLabel;
+    Label5: TLabel;
+    BegDate: TcxDateEdit;
+    EndDate: TcxDateEdit;
+    ConNo: TcxTextEdit;
+    CustName: TcxTextEdit;
+    C_Name: TcxTextEdit;
+    cxGrid1: TcxGrid;
+    TV1: TcxGridDBBandedTableView;
+    ColConNo: TcxGridDBBandedColumn;
+    ColCustName: TcxGridDBBandedColumn;
+    ColC_Name: TcxGridDBBandedColumn;
+    ColC_Spec: TcxGridDBBandedColumn;
+    ColOrdQty: TcxGridDBBandedColumn;
+    ColJHDate: TcxGridDBBandedColumn;
+    ColYType: TcxGridDBBandedColumn;
+    ColYZS: TcxGridDBBandedColumn;
+    ColYGYS: TcxGridDBBandedColumn;
+    ColLLYarnLen: TcxGridDBBandedColumn;
+    ColLLYarnQty: TcxGridDBBandedColumn;
+    ColAZGroup: TcxGridDBBandedColumn;
+    ColAZCard: TcxGridDBBandedColumn;
+    ColAZLen: TcxGridDBBandedColumn;
+    ColWSCard: TcxGridDBBandedColumn;
+    ColWSLen: TcxGridDBBandedColumn;
+    ColSCCard: TcxGridDBBandedColumn;
+    ColSCLen: TcxGridDBBandedColumn;
+    ColJLCard: TcxGridDBBandedColumn;
+    ColJLLen: TcxGridDBBandedColumn;
+    ColMBMeter: TcxGridDBBandedColumn;
+    ColYBMeter: TcxGridDBBandedColumn;
+    ColRKQty: TcxGridDBBandedColumn;
+    ColQSQty: TcxGridDBBandedColumn;
+    ColIsRed: TcxGridDBBandedColumn;
+    cxGridLevel1: TcxGridLevel;
+    GPM_1: TcxGridPopupMenu;
+    PopupMenu1: TPopupMenu;
+    N1: TMenuItem;
+    N2: TMenuItem;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    DS_1: TDataSource;
+    CDS_1: TClientDataSet;
+    cxStyleRepository1: TcxStyleRepository;
+    cxStyleRed: TcxStyle;
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure N1Click(Sender: TObject);
+    procedure N2Click(Sender: TObject);
+    procedure EdtPropertiesChange(Sender: TObject);
+    procedure TV1CompareRowValuesForCellMerging(Sender: TcxGridColumn;
+      ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties;
+      const AValue1: Variant; ARow2: TcxGridDataRow;
+      AProperties2: TcxCustomEditProperties; const AValue2: Variant;
+      var AAreEqual: Boolean);
+    procedure TV1StylesGetContentStyle(Sender: TcxCustomGridTableView;
+      ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
+      var AStyle: TcxStyle);
+  private
+    procedure InitGrid();
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+implementation
+
+uses
+  U_DataLink, U_RTFun;
+
+{$R *.dfm}
+
+procedure TfrmTatOrderProdTJ.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  inherited;
+  Action := caFree;
+end;
+
+procedure TfrmTatOrderProdTJ.TBCloseClick(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TfrmTatOrderProdTJ.InitGrid();
+var
+  fwhere, Pwhere: string;
+begin
+  Pwhere := SGetFilters(Panel1, 1, 2);
+  if trim(Pwhere) <> '' then
+    fwhere := ' and ' + trim(Pwhere)
+  else
+    fwhere := '';
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add(' exec P_Tat_OrderProdTJ @Begdate=' + quotedstr(trim(FormatDateTime('yyyy-MM-dd', Begdate.Date))));
+      sql.Add(',@enddate=' + quotedstr(trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1))));
+      sql.Add(',@criteria= ' + quotedstr(fwhere));
+      Open;
+    end;
+    SCreateCDS(ADOQueryMain, CDS_1);
+    SInitCDSData(ADOQueryMain, CDS_1);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmTatOrderProdTJ.N1Click(Sender: TObject);
+begin
+  SelOKNo(CDS_1, True);
+end;
+
+procedure TfrmTatOrderProdTJ.N2Click(Sender: TObject);
+begin
+  SelOKNo(CDS_1, False);
+end;
+
+procedure TfrmTatOrderProdTJ.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmTatOrderProdTJ.ToolButton1Click(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then
+    Exit;
+  TcxGridToExcel(self.Caption, cxGrid1);
+end;
+
+procedure TfrmTatOrderProdTJ.ToolButton2Click(Sender: TObject);
+begin
+  WriteCxBandedGrid(trim(self.Caption) + 'Tv1', Tv1, 'ͳ¼Æ²éѯ');
+end;
+
+procedure TfrmTatOrderProdTJ.TV1CompareRowValuesForCellMerging(
+  Sender: TcxGridColumn; ARow1: TcxGridDataRow;
+  AProperties1: TcxCustomEditProperties; const AValue1: Variant;
+  ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties;
+  const AValue2: Variant; var AAreEqual: Boolean);
+begin
+  if ARow1.Values[ColConNo.Index] = ARow2.Values[ColConNo.Index] then
+    AAreEqual := True
+  else
+    AAreEqual := False;
+end;
+
+procedure TfrmTatOrderProdTJ.TV1StylesGetContentStyle(
+  Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
+  AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
+begin
+  if (AItem = ColQSQty) and (ARecord <> nil) then
+  begin
+    if (not VarIsNull(ARecord.Values[ColIsRed.Index]))
+      and (ARecord.Values[ColIsRed.Index] = 1) then
+      AStyle := cxStyleRed;
+  end;
+end;
+
+procedure TfrmTatOrderProdTJ.EdtPropertiesChange(Sender: TObject);
+begin
+  if ADOQueryMain.Active = False then
+    Exit;
+  SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+  SCreateCDS(ADOQueryMain, CDS_1);
+  SInitCDSData(ADOQueryMain, CDS_1);
+end;
+
+procedure TfrmTatOrderProdTJ.FormShow(Sender: TObject);
+begin
+  inherited;
+  ReadCxBandedGrid(trim(self.Caption) + 'Tv1', Tv1, 'ͳ¼Æ²éѯ');
+  EndDate.Date := SGetServerDate(ADOQueryTemp);
+  BegDate.Date := EndDate.Date - 90;
+  InitGrid();
+end;
+
+end.

E01梭织生产计划/U_TatPlanPSYLLIST.dfm

@@ -115,11 +115,10 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST
     TabOrder = 4
     Properties.ActivePage = cxTabSheet1
     Properties.CustomButtons.Buttons = <>
-    ExplicitTop = 82
     ClientRectBottom = 495
     ClientRectLeft = 1
     ClientRectRight = 1124
-    ClientRectTop = 29
+    ClientRectTop = 35
     object cxTabSheet1: TcxTabSheet
       Caption = '    '#27719#24635'    '
       ImageIndex = 0
@@ -127,7 +126,7 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST
         Left = 0
         Top = 0
         Width = 1123
-        Height = 466
+        Height = 460
         Align = alClient
         PopupMenu = PopupMenu1
         TabOrder = 0
@@ -257,7 +256,7 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST
         Left = 0
         Top = 0
         Width = 1123
-        Height = 466
+        Height = 460
         Align = alClient
         PopupMenu = PopupMenu1
         TabOrder = 0