0

E01梭织生产计划/TatPlan.dpr

@@ -37,14 +37,16 @@ uses
   U_globalVar in '..\..\..\public10\design\U_globalVar.pas',
   U_WindowFormdesign in '..\..\..\public10\design\U_WindowFormdesign.pas',
   U_YarnInfoInPut in '..\B02基础纱线仓库\U_YarnInfoInPut.pas' {frmYarnInfoInPut},
-  U_WBSpecInPut in '..\A02基础产品管理\U_WBSpecInPut.pas' {frmWBSpecInPut},
+  U_WBSpecInPut in 'U_WBSpecInPut.pas' {frmWBSpecInPut},
   FrameDateSel in '..\A00通用组件\FrameDateSel.pas' {frmFrameDateSel: TFrame},
   uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
   U_TatGYList in 'U_TatGYList.pas' {frmTatGYList},
   U_TatGYInPut in 'U_TatGYInPut.pas' {frmTatGYInPut},
   U_TatGYSel in '..\E00梭织通用窗体\U_TatGYSel.pas' {frmTatGYSel},
   U_TatPlanSel in '..\E00梭织通用窗体\U_TatPlanSel.pas' {frmTatPlanSel},
-  U_PictureUpload in '..\A00通用窗体\U_PictureUpload.pas' {frmPictureUpload};
+  U_PictureUpload in '..\A00通用窗体\U_PictureUpload.pas' {frmPictureUpload},
+  U_GKManageSel in '..\A02基础产品管理\U_GKManageSel.pas' {frmGKManageSel},
+  U_GKInput in 'U_GKInput.pas' {frmGKInput};
 
 {$R *.res}
 

E01梭织生产计划/TatPlan.dproj

@@ -180,7 +180,7 @@
             <Form>frmYarnInfoInPut</Form>
             <FormType>dfm</FormType>
         </DCCReference>
-        <DCCReference Include="..\A02基础产品管理\U_WBSpecInPut.pas">
+        <DCCReference Include="U_WBSpecInPut.pas">
             <Form>frmWBSpecInPut</Form>
             <FormType>dfm</FormType>
         </DCCReference>
@@ -210,6 +210,14 @@
             <Form>frmPictureUpload</Form>
             <FormType>dfm</FormType>
         </DCCReference>
+        <DCCReference Include="..\A02基础产品管理\U_GKManageSel.pas">
+            <Form>frmGKManageSel</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="U_GKInput.pas">
+            <Form>frmGKInput</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
         <BuildConfiguration Include="Debug">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>

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

@@ -1,77 +1,83 @@
 <?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<Transactions>
-    <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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</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.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</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.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.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.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
+    <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.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.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</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.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm</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.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm</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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.422,=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.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.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.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj</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.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.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.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.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.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.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.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.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.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.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.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.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.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.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.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.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas</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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</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.048,=D:\Dp10Repo\public10\design\U_BaseList.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</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.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.048,=D:\Dp10Repo\public10\design\U_BaseList.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.228,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.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.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.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.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.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.719,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.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.203,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.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.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm</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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.556,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm</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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</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.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.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.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.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.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.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.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.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.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.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.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.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.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.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.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</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.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.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.259,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.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.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
+    <Transaction>2025-09-01 15:46:20.258,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKManageSel.pas</Transaction>
+    <Transaction>2025-09-01 16:22:25.613,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas</Transaction>
+    <Transaction>2025-09-01 16:22:56.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas</Transaction>
+    <Transaction>2025-09-01 16:22:56.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.dfm</Transaction>
+    <Transaction>2025-09-01 16:24:18.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
+    <Transaction>2025-09-01 16:24:18.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.dfm</Transaction>
   </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">
     <File Path="..\..\D10SZKaiXiYa"/>
@@ -100,8 +106,8 @@
     <File Path="..\A00通用组件\FrameDateSel.pas"/>
     <File Path="..\A00通用组件\FrameDateSel.dfm"/>
     <File Path="..\A02基础产品管理"/>
-    <File Path="..\A02基础产品管理\U_WBSpecInPut.pas"/>
+    <File Path="..\A02基础产品管理\U_GKManageSel.pas"/>
-    <File Path="..\A02基础产品管理\U_WBSpecInPut.dfm"/>
+    <File Path="..\A02基础产品管理\U_GKManageSel.dfm"/>
     <File Path="..\B02基础纱线仓库"/>
     <File Path="..\B02基础纱线仓库\U_YarnInfoInPut.pas"/>
     <File Path="..\B02基础纱线仓库\U_YarnInfoInPut.dfm"/>
@@ -153,5 +159,9 @@
     <File Path="U_TatGYList.dfm"/>
     <File Path="U_TatGYInPut.pas"/>
     <File Path="U_TatGYInPut.dfm"/>
+    <File Path="U_GKInput.pas"/>
+    <File Path="U_GKInput.dfm"/>
+    <File Path="U_WBSpecInPut.pas"/>
+    <File Path="U_WBSpecInPut.dfm"/>
   </ProjectSortOrder>
 </BorlandProject>

E01梭织生产计划/U_GKInput.dfm

@@ -0,0 +1,237 @@
+inherited frmGKInput: TfrmGKInput
+  Left = 261
+  Top = 149
+  Caption = #38050#25187#24405#20837
+  ClientHeight = 549
+  ClientWidth = 863
+  Color = clWhite
+  Font.Charset = GB2312_CHARSET
+  Font.Height = -16
+  OldCreateOrder = True
+  Position = poScreenCenter
+  OnClose = FormClose
+  ExplicitWidth = 879
+  ExplicitHeight = 588
+  PixelsPerInch = 96
+  TextHeight = 21
+  object ToolBar1: TToolBar [0]
+    Tag = 1
+    Left = 0
+    Top = 0
+    Width = 863
+    Height = 30
+    AutoSize = True
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Color = clWhite
+    Images = DataLink_TatPlan.cxImageList_bar
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TbSave: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384
+      ImageIndex = 16
+      OnClick = TbSaveClick
+    end
+    object TBClose: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 7
+      OnClick = TBCloseClick
+    end
+  end
+  object ScrollBox1: TScrollBox [1]
+    Left = 0
+    Top = 30
+    Width = 863
+    Height = 519
+    Align = alClient
+    BevelInner = bvNone
+    BevelOuter = bvNone
+    BorderStyle = bsNone
+    Color = clWhite
+    Ctl3D = False
+    ParentColor = False
+    ParentCtl3D = False
+    TabOrder = 1
+    ExplicitTop = 27
+    ExplicitHeight = 522
+    object Label2: TLabel
+      Left = 48
+      Top = 73
+      Width = 64
+      Height = 21
+      Caption = #38050#31576#32534#21495
+    end
+    object Label6: TLabel
+      Left = 48
+      Top = 109
+      Width = 106
+      Height = 21
+      Caption = #31576#21495'('#40831'/2'#33521#23544')'
+    end
+    object Label39: TLabel
+      Left = 48
+      Top = 146
+      Width = 91
+      Height = 21
+      Caption = #38050#31576#38271#24230'CM'
+    end
+    object Label7: TLabel
+      Left = 48
+      Top = 230
+      Width = 57
+      Height = 21
+      Caption = #22791'     '#27880
+    end
+    object Label3: TLabel
+      Left = 399
+      Top = 73
+      Width = 64
+      Height = 21
+      Caption = #26550#23376#32534#21495
+    end
+    object Label1: TLabel
+      Left = 399
+      Top = 108
+      Width = 64
+      Height = 21
+      Caption = #26550#23376#23618#21495
+    end
+    object Label4: TLabel
+      Left = 48
+      Top = 186
+      Width = 48
+      Height = 21
+      Caption = #31576#40831#25968
+    end
+    object Label5: TLabel
+      Left = 399
+      Top = 143
+      Width = 32
+      Height = 21
+      Caption = #31576#24133
+    end
+    object Label8: TLabel
+      Left = 647
+      Top = 139
+      Width = 16
+      Height = 21
+      Caption = #8220
+    end
+    object GKKH: TcxTextEdit
+      Tag = 2
+      Left = 159
+      Top = 105
+      Properties.OnChange = JZBHPropertiesChange
+      TabOrder = 1
+      OnExit = GKKHExit
+      Width = 200
+    end
+    object GKBH: TcxTextEdit
+      Tag = 2
+      Left = 159
+      Top = 69
+      Enabled = False
+      TabOrder = 0
+      Text = #33258#21160#29983#25104
+      Width = 200
+    end
+    object GKLength: TcxTextEdit
+      Tag = 2
+      Left = 159
+      Top = 143
+      Properties.OnChange = JZBHPropertiesChange
+      TabOrder = 2
+      Width = 200
+    end
+    object JZBH: TcxTextEdit
+      Tag = 2
+      Left = 469
+      Top = 69
+      Properties.OnChange = JZBHPropertiesChange
+      TabOrder = 3
+      Width = 200
+    end
+    object Note: TcxMemo
+      Tag = 2
+      Left = 159
+      Top = 230
+      TabOrder = 4
+      Height = 77
+      Width = 518
+    end
+    object JZCH: TcxTextEdit
+      Tag = 2
+      Left = 469
+      Top = 104
+      Properties.OnChange = JZBHPropertiesChange
+      TabOrder = 5
+      Width = 200
+    end
+    object GKCS: TcxTextEdit
+      Tag = 2
+      Left = 159
+      Top = 183
+      Properties.OnChange = JZBHPropertiesChange
+      TabOrder = 6
+      OnExit = GKKHExit
+      Width = 200
+    end
+    object GKwidth: TcxTextEdit
+      Tag = 2
+      Left = 469
+      Top = 140
+      Properties.OnChange = JZBHPropertiesChange
+      TabOrder = 7
+      Width = 172
+    end
+  end
+  inherited ADOQueryBaseCmd: TADOQuery
+    Connection = DataLink_TatPlan.ADOLink
+    Left = 704
+    Top = 219
+  end
+  inherited ADOQueryBaseTemp: TADOQuery
+    Connection = DataLink_TatPlan.ADOLink
+    Left = 706
+    Top = 264
+  end
+  inherited ImageList_new32: TImageList
+    Left = 688
+    Top = 166
+  end
+  inherited cxImageList_bar: TcxImageList
+    FormatVersion = 1
+    Left = 770
+    Top = 88
+    DesignInfo = 5767938
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TatPlan.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 747
+    Top = 173
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TatPlan.ADOLink
+    Parameters = <>
+    Left = 684
+    Top = 101
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TatPlan.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 692
+    Top = 52
+  end
+end

E01梭织生产计划/U_GKInput.pas

@@ -0,0 +1,253 @@
+unit U_GKInput;
+
+interface
+
+uses
+  Windows, Messages, StrUtils, 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, cxCheckBox, cxCalendar, cxButtonEdit,
+  cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
+  cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxContainer, dxCore,
+  cxDateUtils, cxImage, cxDBEdit, IdExplicitTLSClientServerBase, cxMemo,
+  U_BaseInput, System.ImageList, Vcl.ImgList, cxImageList, dxSkinsCore,
+  dxSkinsDefaultPainters;
+
+type
+  TfrmGKInput = class(TfrmBaseInput)
+    ToolBar1: TToolBar;
+    TBClose: TToolButton;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    TbSave: TToolButton;
+    ScrollBox1: TScrollBox;
+    Label2: TLabel;
+    Label6: TLabel;
+    Label39: TLabel;
+    GKKH: TcxTextEdit;
+    GKBH: TcxTextEdit;
+    GKLength: TcxTextEdit;
+    Label7: TLabel;
+    JZBH: TcxTextEdit;
+    Label3: TLabel;
+    Note: TcxMemo;
+    Label1: TLabel;
+    JZCH: TcxTextEdit;
+    Label4: TLabel;
+    GKCS: TcxTextEdit;
+    Label5: TLabel;
+    GKwidth: TcxTextEdit;
+    Label8: TLabel;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure TbSaveClick(Sender: TObject);
+    procedure CoareaBtnDnClick(Sender: TObject);
+    procedure JZBHPropertiesChange(Sender: TObject);
+    procedure GKKHExit(Sender: TObject);
+  private
+    { Private declarations }
+    procedure InitGrid();
+    function SaveData(): Boolean;
+  public
+    fFlileFlag: string;
+    fkhType: string;
+    { Public declarations }
+    FGKID: string;
+  end;
+
+var
+  frmGKInput: TfrmGKInput;
+
+implementation
+
+uses
+  U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel;
+
+{$R *.dfm}
+
+procedure TfrmGKInput.InitGrid();
+begin
+  try
+
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered := False;
+      Close;
+      SQL.Clear;
+      sql.Add(' select * from BS_GK where GKID=''' + Trim(FGKID) + '''');
+      Open;
+    end;
+    SCSHData(ADOQueryMain, ScrollBox1, 2);
+
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmGKInput.JZBHPropertiesChange(Sender: TObject);
+begin
+  inherited;
+  GKBH.Text := JZBH.Text + '-' + GKKH.Text + '-' + JZCH.Text + '-' + GKLength.Text;
+end;
+
+procedure TfrmGKInput.FormDestroy(Sender: TObject);
+begin
+  inherited;
+  frmGKInput := nil;
+end;
+
+procedure TfrmGKInput.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  inherited;
+  Action := caFree;
+end;
+
+procedure TfrmGKInput.TBCloseClick(Sender: TObject);
+begin
+  ModalResult := 1;
+end;
+
+procedure TfrmGKInput.FormShow(Sender: TObject);
+begin
+  inherited;
+  InitGrid();
+
+end;
+
+procedure TfrmGKInput.GKKHExit(Sender: TObject);
+var
+  FKCS, FKOUHAO: double;
+begin
+  FKCS := StrToFloatDef(GKCS.Text, 0);
+  FKOUHAO := StrToFloatDef(GKKH.Text, 0);
+  if FKOUHAO <> 0 then
+  begin
+    GKwidth.Text := FloatToStr(RoundFloat(FKCS / FKOUHAO * 2, 2));
+  end;
+
+end;
+
+procedure TfrmGKInput.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+function TfrmGKInput.SaveData(): Boolean;
+var
+  MaxId, MaxSubId, FCoCode, FCCID, MaxCFID: string;
+begin
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    if Trim(FGKID) = '' then
+    begin
+      if GetLSNo(ADOQueryCmd, MaxId, 'GK', 'BS_GK', 4, 1) = False then
+      begin
+        Result := False;
+        ADOQueryCmd.Connection.RollbackTrans;
+        Application.MessageBox('取最大号失败！', '提示', 0);
+        Exit;
+      end;
+
+    end
+    else
+    begin
+      MaxId := Trim(FGKID);
+    end;
+
+    with ADOQueryCmd do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add('select * from BS_GK where GKID=''' + Trim(FGKID) + '''');
+      Open;
+    end;
+    with ADOQueryCmd do
+    begin
+      if Trim(FGKID) = '' then
+      begin
+        Append;
+        FieldByName('Filler').Value := Trim(DName);
+      end
+      else
+      begin
+        Edit;
+        FieldByName('Editer').Value := Trim(DName);
+        FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp);
+      end;
+      FieldByName('GKID').Value := Trim(MaxId);
+      RTSetsavedata(ADOQueryCmd, 'BS_GK', ScrollBox1, 2);
+      Post;
+    end;
+
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from BS_GK where GKBH=' + quotedstr(trim(GKBH.Text)));
+      Open;
+    end;
+    if ADOQueryCmd.RecordCount > 1 then
+    begin
+      ADOQueryCmd.Connection.RollbackTrans;
+      Application.MessageBox('钢扣编号重复!', '提示', 0);
+      Exit;
+    end;
+
+    ADOQueryCmd.Connection.CommitTrans;
+    FCCID := Trim(MaxSubId);
+    Result := True;
+  except
+    Result := false;
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存异常!', '提示', 0);
+  end;
+end;
+
+procedure TfrmGKInput.TbSaveClick(Sender: TObject);
+begin
+  if Trim(JZBH.Text) = '' then
+  begin
+    Application.MessageBox('架子编号不能为空!', '提示', 0);
+    Exit;
+  end
+  else if Trim(GKKH.Text) = '' then
+  begin
+    Application.MessageBox('筘号不能为空!', '提示', 0);
+    Exit;
+  end
+  else if Trim(JZCH.Text) = '' then
+  begin
+    Application.MessageBox('架子层号不能为空!', '提示', 0);
+    Exit;
+  end
+  else if Trim(GKLength.Text) = '' then
+  begin
+    Application.MessageBox('钢筘长度不能为空!', '提示', 0);
+    Exit;
+  end;
+
+  if SaveData() then
+  begin
+    Application.MessageBox('保存成功!', '提示', 0);
+    ModalResult := 1;
+  end;
+end;
+
+procedure TfrmGKInput.CoareaBtnDnClick(Sender: TObject);
+begin
+  TBtnEditC(Sender).Text := '';
+  TBtnEditC(Sender).TxtCode := '';
+end;
+
+end.
+

E01梭织生产计划/U_TatCardInPut1.dfm

@@ -400,7 +400,7 @@ inherited frmTatCardInPut1: TfrmTatCardInPut1
       Caption = #22791'      '#27880
     end
     object Button3: TButton
-      Left = 621
+      Left = 626
       Top = 6
       Width = 143
       Height = 63

E01梭织生产计划/U_TatPlanMachList.dfm

@@ -82,16 +82,24 @@ inherited frmTatPlanMachList: TfrmTatPlanMachList
       ImageIndex = 11
       OnClick = ToolButton4Click
     end
-    object ToolButton2: TToolButton
+    object ToolButton7: TToolButton
       Left = 609
       Top = 0
       AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 21
+      OnClick = ToolButton7Click
+    end
+    object ToolButton2: TToolButton
+      Left = 680
+      Top = 0
+      AutoSize = True
       Caption = #20445#23384#26684#24335
       ImageIndex = 16
       OnClick = ToolButton2Click
     end
     object TBClose: TToolButton
-      Left = 712
+      Left = 783
       Top = 0
       AutoSize = True
       Caption = #20851#38381
@@ -207,7 +215,6 @@ inherited frmTatPlanMachList: TfrmTatPlanMachList
     Align = alClient
     PopupMenu = PM_1
     TabOrder = 2
-    ExplicitTop = 146
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
       ScrollbarAnnotations.CustomAnnotations = <>
@@ -242,6 +249,16 @@ inherited frmTatPlanMachList: TfrmTatPlanMachList
         Options.Editing = False
         Width = 50
       end
+      object Tv1Column18: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'ssel'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.ImmediatePost = True
+        Properties.NullStyle = nssUnchecked
+        HeaderAlignmentHorz = taCenter
+        Width = 67
+      end
       object v1Column8: TcxGridDBColumn
         Caption = #26426#22411
         DataBinding.FieldName = 'MCType'

E01梭织生产计划/U_TatPlanMachList.pas

@@ -93,6 +93,8 @@ type
     Tv1Column12: TcxGridDBColumn;
     Tv1Column13: TcxGridDBColumn;
     Tv1Column14: TcxGridDBColumn;
+    Tv1Column18: TcxGridDBColumn;
+    ToolButton7: TToolButton;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormDestroy(Sender: TObject);
     procedure P_CodeNameChange(Sender: TObject);
@@ -114,6 +116,7 @@ type
     procedure ToolButton5Click(Sender: TObject);
     procedure ToolButton6Click(Sender: TObject);
     procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+    procedure ToolButton7Click(Sender: TObject);
   private
     procedure InitGrid();
     procedure SetStatus();
@@ -131,7 +134,7 @@ var
 implementation
 
 uses
-  U_DataLink, U_RTFun, U_ZDYHelp, U_TatPlanMachInput;
+  U_DataLink, U_RTFun, U_ZDYHelp, U_TatPlanMachInput, U_LabelPrint;
 {$R *.dfm}
 
 procedure TfrmTatPlanMachList.SetStatus();
@@ -525,6 +528,52 @@ begin
   end;
 end;
 
+procedure TfrmTatPlanMachList.ToolButton7Click(Sender: TObject);
+var
+  MBCIOID: string;
+begin
+  if CDS_1.IsEmpty then
+    Exit;
+  if CDS_1.Locate('SSel', True, []) = False then
+  begin
+    Application.MessageBox('ûÓÐÑ¡ÔñÊý¾Ý!', 'Ìáʾ', 0);
+    Exit;
+  end;
+
+  MBCIOID := '';
+  CDS_1.DisableControls;
+  with CDS_1 do
+  begin
+    First;
+    while CDS_1.Locate('SSel', True, []) do
+    begin
+
+      MBCIOID := MBCIOID + ',' + (Trim(CDS_1.fieldbyname('PMID').AsString));
+
+      Edit;
+      FieldByName('SSel').Value := False;
+      Post;
+    end;
+  end;
+  CDS_1.EnableControls;
+
+  try
+    frmLabelPrint := TfrmLabelPrint.Create(Application);
+    with frmLabelPrint do
+    begin
+      FLMType := 'PMID';
+      FFiltration1 := MBCIOID;
+      if ShowModal = 1 then
+      begin
+
+        Self.InitGrid();
+      end;
+    end;
+  finally
+    frmLabelPrint.Free;
+  end;
+end;
+
 procedure TfrmTatPlanMachList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
 begin
 //  if (AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('IsRed').Index]) = 0 then

E01梭织生产计划/U_WBSpecInPut.pas

@@ -0,0 +1,888 @@
+unit U_WBSpecInPut;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
+  cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, ComCtrls, ToolWin,
+  cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
+  cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridCustomPopupMenu,
+  cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, StdCtrls, ExtCtrls,
+  cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
+  dxBarBuiltInMenu, U_BaseInput, U_BaseList, System.ImageList, Vcl.ImgList,
+  cxMemo, dxScrollbarAnnotations, cxContainer, dxSkinsCore,
+  dxSkinsDefaultPainters, cxImageList, dxSkinOffice2013White, dxSkinSharpPlus,
+  dxSkinWXI, cxMaskEdit, cxGroupBox, MATH, Vcl.Menus;
+
+type
+  TfrmWBSpecInPut = class(TfrmBaseInput)
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1SPName: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    ToolBar1: TToolBar;
+    TBSave: TToolButton;
+    TBClose: TToolButton;
+    DS_1: TDataSource;
+    CDS_Sub: TClientDataSet;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    GPM_1: TcxGridPopupMenu;
+    v1Column12: TcxGridDBColumn;
+    v1SPSpec: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v1Column18: TcxGridDBColumn;
+    v1Column10: TcxGridDBColumn;
+    v1Column15: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    ToolButton1: TToolButton;
+    Tv1Column1: TcxGridDBColumn;
+    ScrollBox1: TScrollBox;
+    Label3: TLabel;
+    WB_Code: TcxTextEdit;
+    ToolBar2: TToolBar;
+    ToolButton3: TToolButton;
+    ToolButton4: TToolButton;
+    Label8: TLabel;
+    WB_YarnQty: TcxTextEdit;
+    Tv1Column2: TcxGridDBColumn;
+    Label1: TLabel;
+    Label2: TLabel;
+    WB_Name: TcxTextEdit;
+    WB_ReedNote: TcxTextEdit;
+    Label5: TLabel;
+    BSQTY: TcxTextEdit;
+    Label10: TLabel;
+    WB_ReedNo: TcxTextEdit;
+    Label12: TLabel;
+    C_KCQTY: TcxTextEdit;
+    Tv1Column3: TcxGridDBColumn;
+    btn1: TToolButton;
+    Tv1Column4: TcxGridDBColumn;
+    Tv1Column6: TcxGridDBColumn;
+    Tv1Column7: TcxGridDBColumn;
+    Label18: TLabel;
+    ISSizing: TcxComboBox;
+    Tv1Column8: TcxGridDBColumn;
+    Label19: TLabel;
+    GKBH: TcxButtonEdit;
+    Tv1Column9: TcxGridDBColumn;
+    Label20: TLabel;
+    WB_TYPE: TcxComboBox;
+    Label4: TLabel;
+    WB_Width: TcxTextEdit;
+    cxGroupBox1: TcxGroupBox;
+    Label6: TLabel;
+    F_MAXKESHU: TcxTextEdit;
+    Label7: TLabel;
+    F_YarnStripQty: TcxTextEdit;
+    Label9: TLabel;
+    F_SJKESHU: TcxTextEdit;
+    Label11: TLabel;
+    F_YUSHU: TcxTextEdit;
+    cxGroupBox2: TcxGroupBox;
+    Label13: TLabel;
+    Label14: TLabel;
+    Label15: TLabel;
+    Label16: TLabel;
+    Z_MAXKESHU: TcxTextEdit;
+    Z_FENJIAO: TcxTextEdit;
+    Z_FJGENSHU: TcxTextEdit;
+    Z_BINGSHU: TcxTextEdit;
+    Label17: TLabel;
+    Label21: TLabel;
+    Z_SJKESHU1: TcxTextEdit;
+    Z_ZHOUSHU1: TcxTextEdit;
+    Label22: TLabel;
+    Label23: TLabel;
+    Z_SJKESHU2: TcxTextEdit;
+    Z_ZHOUSHU2: TcxTextEdit;
+    ToolButton2: TToolButton;
+    PopupMenu1: TPopupMenu;
+    N1: TMenuItem;
+    Label24: TLabel;
+    DCRQTY: TcxTextEdit;
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBAddClick(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBDelClick(Sender: TObject);
+    procedure TBSaveClick(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+    procedure btn1Click(Sender: TObject);
+    procedure GYNoDblClick(Sender: TObject);
+    procedure GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+    procedure v1Column3PropertiesEditValueChanged(Sender: TObject);
+    procedure WB_YarnQtyPropertiesEditValueChanged(Sender: TObject);
+    procedure WB_YarnQtyExit(Sender: TObject);
+
+    procedure Tv1Column8PropertiesEditValueChanged(Sender: TObject);
+    procedure WB_TYPEPropertiesChange(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure N1Click(Sender: TObject);
+  private
+    { Private declarations }
+    function SaveData(): Boolean;
+    procedure JSJS(); //计算经丝
+
+    procedure JS(); //计算经丝
+  public
+    { Public declarations }
+    FWBSID, FSTKName: string;
+  end;
+
+var
+  frmWBSpecInPut: TfrmWBSpecInPut;
+
+implementation
+
+uses
+  U_DataLink, U_RTFun, U_ZDYHelp, U_YarnInfoSel, U_TatClothInfoSel, U_TatGYSel,
+  U_CompanySel, U_GKManageSel;
+
+{$R *.dfm}
+
+procedure TfrmWBSpecInPut.JS();
+var
+  FZGS, FF_MAXKESHU: double;
+  fTS, FSJKS, FFJ, FF_MAXKESHU2, ffjgs, fbs: Integer;
+  FSJKS1, FSJKZ2, FXZS1, FXZS2: Integer;
+begin
+//总经根数/纱架最大挂纱数 向上取整=条数
+//  总经根数/条数 向下取整=颗数
+//  总经根数-条数*颗数 取余整=余数
+  FZGS := STRTOFLOATDEF(WB_YarnQty.Text, 0);
+  FF_MAXKESHU := STRTOFLOATDEF(F_MAXKESHU.Text, 0);
+  if (FF_MAXKESHU <> 0) and (FZGS <> 0) then
+  begin
+    fTS := Ceil(FZGS / FF_MAXKESHU);
+    F_YarnStripQty.Text := INTTOSTR(fTS);
+    FSJKS := Floor(FZGS / fTS);
+    F_SJKESHU.Text := INTTOSTR(FSJKS);
+    F_YUSHU.Text := FLOATTOSTR(FZGS - FSJKS * fTS);
+  end
+  else
+  begin
+    Exit;
+  end;
+
+      // 总经根数/分交  向上取整=分绞根数
+      // 分交根数/ 纱架最大挂纱数 向上取整=并数
+      //  分交根数/并数 向下取整=上稀轴数
+      //  分交根数- （分交根数/并数 向下取整）*6=下稀轴数
+  FFJ := StrToIntdef(Z_FENJIAO.Text, 0);
+  FF_MAXKESHU2 := STRTOintDEF(Z_MAXKESHU.Text, 0);
+  if (FFJ <> 0) and (FF_MAXKESHU2 <> 0) then
+  begin
+    ffjgs := Ceil(FZGS / FFJ);
+    Z_FJGENSHU.Text := inttostr(ffjgs);
+    fbs := Ceil(ffjgs / FF_MAXKESHU2);
+    Z_BINGSHU.Text := inttostr(fbs);
+    FSJKS1 := Floor(ffjgs / fbs);
+    if FSJKS1 * fbs = ffjgs then
+    begin
+      Z_SJKESHU1.Text := inttostr(FSJKS1);
+      Z_ZHOUSHU1.Text := inttostr(fbs);
+      Z_SJKESHU2.Text := '0';
+      Z_ZHOUSHU2.Text := '0';
+    end
+    else
+    begin
+      Z_SJKESHU1.Text := inttostr(FSJKS1);
+      Z_ZHOUSHU1.Text := inttostr(fbs - 1);
+      Z_SJKESHU2.Text := inttostr(ffjgs - (FSJKS1 * (fbs - 1)));
+      Z_ZHOUSHU2.Text := '1';
+    end;
+
+  end;
+end;
+
+procedure TfrmWBSpecInPut.JSJS();
+var
+  GS, ZGS, MF, DS, WM, TW: double;
+begin
+  if CDS_SUB.IsEmpty then
+    exit;
+  with CDS_SUB do
+  begin
+    DisableControls;
+    first;
+    while not eof do
+    begin
+
+      with CDS_SUB do
+      begin
+
+        if FieldByName('YarnQty').Value = null then
+        begin
+          GS := 0;   //根数
+        end
+        else
+        begin
+          GS := FieldByName('YarnQty').Value;   //根数
+        end;
+
+        if FieldByName('CycleYarnQty').Value = null then
+        begin
+          ZGS := 0; //循环根数
+        end
+        else
+        begin
+          ZGS := FieldByName('CycleYarnQty').Value; //循环根数
+        end;
+
+        MF := strtofloatdef(WB_Width.text, 0);    //筘幅
+
+        TW := strtofloatdef(WB_YarnQty.text, 0);    //头纹
+
+        if FieldByName('TestDenier').Value = null then
+        begin
+          DS := 0;     //D数
+        end
+        else
+        begin
+          DS := FieldByName('TestDenier').Value;     //D数
+        end;
+
+      end;
+      if ZGS <> 0 then
+      begin
+        with CDS_SUB do
+        begin
+          Edit;
+          FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2);
+          Post;
+        end;
+      end;
+      next;
+    end;
+    First;
+    EnableControls;
+  end;
+end;
+
+procedure TfrmWBSpecInPut.N1Click(Sender: TObject);
+var
+  I, J: Integer;
+  AField: TField;
+begin
+  with tv1 do
+  begin
+    // 遍历所有选中行
+
+    DataController.DataSource.Dataset.Edit; // 进入编辑模式
+
+      // 遍历所有字段列
+    for J := 0 to ColumnCount - 1 do
+    begin
+        // 获取当前列的字段
+      AField := Columns[J].DataBinding.Field;
+
+        // 检查字段存在且不是 RowNo 列
+      if (AField <> nil) and (CompareText(AField.FieldName, 'RowNo') <> 0) and (CompareText(Columns[J].Name, 'RowNo') <> 0) then // 双重检查确保排除
+      begin
+        AField.Clear; // 清空字段值
+      end;
+    end;
+
+    DataController.DataSource.Dataset.Post; // 提交修改
+
+  end;
+end;
+
+procedure TfrmWBSpecInPut.btn1Click(Sender: TObject);
+begin
+  try
+    frmTatClothInfoSel := TfrmTatClothInfoSel.Create(Application);
+    with frmTatClothInfoSel do
+    begin
+      if ShowModal = 1 then
+      begin
+
+        Self.WB_YarnQty.Text := frmTatClothInfoSel.CDS_1.fieldbyname('C_YarnQty').AsString;
+        Self.WB_ReedNo.Text := frmTatClothInfoSel.CDS_1.fieldbyname('C_ReedNo').AsString;
+
+        with Self.ADOQueryTemp do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select A.*  from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID');
+          sql.Add(' where A.YRType=''经丝'' and B.C_Code=''' + Trim(frmTatClothInfoSel.CDS_1.fieldbyname('C_Code').AsString) + '''');
+          Open;
+          First;
+          Self.CDS_Sub.EmptyDataSet;
+          while not Eof do
+          begin
+            with Self.CDS_Sub do
+            begin
+              Append;
+              FieldByName('RowNo').Value := Self.ADOQueryTemp.fieldbyname('RowNo').value;
+              FieldByName('Y_Code').Value := Self.ADOQueryTemp.fieldbyname('Y_Code').value;
+              FieldByName('Y_Name').Value := Self.ADOQueryTemp.fieldbyname('Y_Name').value;
+              FieldByName('Y_Spec').Value := Self.ADOQueryTemp.fieldbyname('Y_Spec').value;
+              FieldByName('Y_Color').Value := Self.ADOQueryTemp.fieldbyname('Y_Color').value;
+              FieldByName('YarnQty').Value := Self.ADOQueryTemp.fieldbyname('YarnQty').value;
+              FieldByName('CycleYarnQty').Value := Self.ADOQueryTemp.fieldbyname('CycleYarnQty').value;
+            end;
+            Next;
+          end;
+
+        end;
+
+      end;
+    end;
+  finally
+    frmTatClothInfoSel.Free;
+  end;
+end;
+
+procedure TfrmWBSpecInPut.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  inherited;
+  Action := caFree;
+end;
+
+procedure TfrmWBSpecInPut.TBAddClick(Sender: TObject);
+begin
+  try
+    frmYarnInfoSel := TfrmYarnInfoSel.Create(Application);
+    with frmYarnInfoSel do
+    begin
+      FSTKName := '纱线';
+      if ShowModal = 1 then
+      begin
+        with Self.CDS_Sub do
+        begin
+          Append;
+          FieldByName('Y_Color').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Color').value;
+          FieldByName('Y_Code').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Code').value;
+          FieldByName('Y_Name').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Name').value;
+          FieldByName('Y_Spec').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Spec').value;
+
+          FieldByName('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').value;
+          FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').value;
+          FieldByName('Denier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').value;
+          FieldByName('Y_Ratio').Value := 0;
+        end;
+      end;
+    end;
+  finally
+    frmYarnInfoSel.Free;
+  end;
+end;
+
+function TfrmWBSpecInPut.SaveData(): Boolean;
+var
+  MaxNo, MaxYRId: string;
+begin
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+
+    if Trim(FWBSID) = '' then
+    begin
+      if GetLSNo(ADOQueryCmd, MaxNo, 'QJ', 'Tat_WB_Spec', 5, 0) = False then
+        raise Exception.Create('取最大号失败！');
+
+      WB_Code.Text := MaxNo;
+    end
+    else
+    begin
+      MaxNo := Trim(FWBSID);
+    end;
+    with ADOQueryCmd do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add('select * from Tat_WB_Spec where WBSID=''' + Trim(MaxNo) + '''');
+      Open;
+    end;
+    with ADOQueryCmd do
+    begin
+      if Trim(FWBSID) = '' then
+      begin
+        Append;
+        FieldByName('FillId').Value := Trim(DCode);
+        FieldByName('Filler').Value := Trim(DName);
+      end
+      else
+      begin
+        Edit;
+        FieldByName('EditId').Value := Trim(DCode);
+        FieldByName('Editer').Value := Trim(DName);
+        FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp);
+      end;
+      FieldByName('WBSID').Value := Trim(MaxNo);
+      RTSetsavedata(ADOQueryCmd, 'Tat_WB_Spec', ScrollBox1, 2);
+      RTSetsavedata(ADOQueryCmd, 'Tat_WB_Spec', cxGroupBox1, 2);
+      RTSetsavedata(ADOQueryCmd, 'Tat_WB_Spec', cxGroupBox2, 2);
+      Post;
+    end;
+
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from Tat_WB_Spec where WB_Code=' + quotedstr(trim(WB_Code.Text)));
+      Open;
+    end;
+    if ADOQueryCmd.RecordCount > 1 then
+      raise Exception.Create('编号重复!');
+
+    CDS_Sub.DisableControls;
+    with CDS_Sub do
+    begin
+      First;
+      while not eof do
+      begin
+        with ADOQueryTemp do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select * from Tat_WB_Formula  ');
+          sql.Add('where WBSID=''' + Trim(MaxNo) + '''');
+          sql.Add('and YRId=''' + Trim(CDS_Sub.fieldbyname('YRId').AsString) + '''');
+          open;
+        end;
+        MaxYRId := Trim(ADOQueryTemp.fieldbyname('YRId').AsString);
+        if Trim(MaxYRId) = '' then
+        begin
+          if GetLSNo(ADOQueryCmd, MaxYRId, 'P', 'Tat_WB_Formula', 4, 0) = False then
+            raise Exception.Create('取最大号失败！');
+        end
+        else
+        begin
+          MaxYRId := Trim(MaxYRId);
+        end;
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select * from Tat_WB_Formula where YRId=''' + Trim(MaxYRId) + '''');
+          Open;
+        end;
+        with ADOQueryCmd do
+        begin
+          if Trim(MaxYRId) = '' then
+          begin
+            Append;
+            FieldByName('Fillid').Value := Trim(Dcode);
+            FieldByName('Filler').Value := Trim(DName)
+          end
+          else
+          begin
+            Edit;
+            FieldByName('Editid').Value := Trim(Dcode);
+            FieldByName('Editer').Value := Trim(DName);
+            FieldByName('EditTime').Value := SGetServerDate(ADOQueryTemp);
+          end;
+          FieldByName('WBSID').Value := Trim(MaxNo);
+          FieldByName('YRId').Value := Trim(MaxYRId);
+          RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'Tat_WB_Formula', 0);
+          Post;
+        end;
+
+        Edit;
+        FieldByName('YRId').Value := Trim(MaxYRId);
+        Post;
+        Next;
+      end;
+    end;
+    CDS_Sub.EnableControls;
+
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('update  Tat_WB_Spec set WB_Name=');   // X.RowNo
+      sql.Add(' SUBSTRING(CAST((select ''+''+X.Y_Name from Tat_WB_Formula X where  isnull(X.Y_Name,'''')<>'''' and X.WBSID=Tat_WB_Spec.WBSID order by RowNo for xml path('''') ) AS VARCHAR(200)) , 2, 200)');
+      sql.Add('where isnull(WB_Name,'''')='''' and WBSID=''' + Trim(MaxNo) + '''');
+//      ShowMessage(SQL.Text);
+      ExecSQL;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    Result := True;
+  except
+    Result := False;
+    ADOQueryCmd.Connection.RollbackTrans;
+    application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
+  end;
+
+end;
+
+procedure TfrmWBSpecInPut.TBCloseClick(Sender: TObject);
+begin
+
+  Close;
+end;
+
+procedure TfrmWBSpecInPut.FormShow(Sender: TObject);
+var
+  fsj: string;
+begin
+  inherited;
+  ReadCxGrid(trim(self.Caption), Tv1, '经规格仓库');
+
+  with ADOQueryTemp do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add(' select * from Tat_WB_Spec ');
+    sql.Add(' where WBSID=''' + Trim(FWBSID) + '''');
+    Open;
+  end;
+  SCSHData(ADOQueryTemp, ScrollBox1, 2);
+  SCSHData(ADOQueryTemp, cxGroupBox1, 2);
+  SCSHData(ADOQueryTemp, cxGroupBox2, 2);
+
+  if WB_TYPE.Text = '整浆并' then
+  begin
+    cxGroupBox2.Visible := True;
+    cxGroupBox1.Visible := false;
+  end
+  else
+  begin
+    cxGroupBox2.Visible := false;
+    cxGroupBox1.Visible := True;
+  end;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add(' select * from Tat_WB_Formula ');
+    sql.Add(' where WBSID=''' + Trim(FWBSID) + '''');
+    Open;
+  end;
+  SCreateCDS(ADOQueryTemp, CDS_Sub);
+  SInitCDSData(ADOQueryTemp, CDS_Sub);
+
+  if FWBSID = '' then
+  begin
+    with CDS_Sub do
+    begin
+      Append;
+      FieldByName('RowNo').Value := 'A';
+      Post;
+
+      Append;
+      FieldByName('RowNo').Value := 'B';
+      Post;
+
+      Append;
+      FieldByName('RowNo').Value := 'C';
+      Post;
+
+      Append;
+      FieldByName('RowNo').Value := 'D';
+      Post;
+
+      Append;
+      FieldByName('RowNo').Value := 'E';
+      Post;
+
+      Append;
+      FieldByName('RowNo').Value := 'F';
+      Post;
+
+      Append;
+      FieldByName('RowNo').Value := 'G';
+      Post;
+
+      Append;
+      FieldByName('RowNo').Value := 'H';
+      Post;
+
+    end;
+  end;
+
+end;
+
+procedure TfrmWBSpecInPut.GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmGKManageSel := tfrmGKManageSel.Create(Application);
+    with frmGKManageSel do
+    begin
+
+      if ShowModal = 1 then
+      begin
+        SELF.GKBH.Text := CDS_HZ.FieldByName('GKBH').AsString;
+        SELF.WB_ReedNo.Text := CDS_HZ.FieldByName('GKKH').AsString;
+        SELF.C_KCQTY.Text := CDS_HZ.FieldByName('GKCS').AsString;
+        SELF.WB_Width.Text := CDS_HZ.FieldByName('GKwidth').AsString;
+      end;
+    end;
+  finally
+    frmGKManageSel.Free;
+  end;
+end;
+
+procedure TfrmWBSpecInPut.GYNoDblClick(Sender: TObject);
+begin
+  inherited;
+  TcxButtonEdit(Sender).Properties.LookupItems.Text := '';
+  TcxButtonEdit(Sender).Text := '';
+end;
+
+procedure TfrmWBSpecInPut.TBDelClick(Sender: TObject);
+begin
+  if CDS_Sub.IsEmpty then
+    Exit;
+  if Trim(CDS_Sub.fieldbyname('YRId').AsString) <> '' then
+  begin
+    if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
+      Exit;
+
+    try
+      ADOQueryCmd.Connection.BeginTrans;
+      with ADOQueryCmd do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add(' delete Tat_WB_Formula where YRId=''' + Trim(CDS_Sub.fieldbyname('YRId').AsString) + '''');
+        ExecSQL;
+      end;
+
+      ADOQueryCmd.Connection.CommitTrans;
+      CDS_Sub.Delete;
+    except
+      ADOQueryCmd.Connection.RollbackTrans;
+      Application.MessageBox('删除异常!', '提示', 0);
+    end;
+
+  end
+  else
+  begin
+    CDS_Sub.Delete;
+  end;
+
+end;
+
+procedure TfrmWBSpecInPut.TBSaveClick(Sender: TObject);
+begin
+  ToolBar1.SetFocus;
+
+//  with CDS_Sub do
+//  begin
+//    CDS_Sub.First;
+//    while not Eof do
+//    begin
+//      if trim(CDS_Sub.fieldbyname('Y_Code').asstring) <> '' then
+//      begin
+//        if StrToFloatDef(Trim(CDS_Sub.fieldbyname('YarnQty').AsString), 0) = 0 then
+//        begin
+//          Application.MessageBox('根数不能为空!', '提示', 0);
+//          Exit;
+//        end;
+//      end;
+//
+//      if trim(CDS_Sub.fieldbyname('Y_Code').asstring) <> '' then
+//      begin
+//        if StrToFloatDef(Trim(CDS_Sub.fieldbyname('CycleYarnQty').AsString), 0) = 0 then
+//        begin
+//          Application.MessageBox('循环根数不能为空!', '提示', 0);
+//          Exit;
+//        end;
+//      end;
+//
+//      CDS_Sub.Next;
+//    end;
+//  end;
+
+  if SaveData() then
+  begin
+    Application.MessageBox('保存成功!', '提示', 0);
+    ModalResult := 1;
+    Exit;
+  end;
+end;
+
+procedure TfrmWBSpecInPut.ToolButton1Click(Sender: TObject);
+begin
+  WriteCxGrid(trim(self.Caption), Tv1, '经规格仓库');
+end;
+
+procedure TfrmWBSpecInPut.ToolButton2Click(Sender: TObject);
+var
+  I, J: Integer;
+begin
+  // 确保引用的是正确的视图（如 TcxGridDBTableView）
+  with TV1 do
+  begin
+    // 遍历所有选中行
+//    for I := 0 to SelectedRowCount - 1 do
+//    begin
+      // 获取数据集记录
+    DataController.DataSource.Dataset.Edit; // 进入编辑模式
+      // 遍历所有字段列
+    for J := 0 to ColumnCount - 1 do
+    begin
+        // 清空字段值（跳过只读/关键字段）
+      if Columns[J].DataBinding.Field <> nil then
+        Columns[J].DataBinding.Field.Clear;
+    end;
+    DataController.DataSource.Dataset.Post; // 提交修改
+//    end;
+  end;
+
+end;
+
+procedure TfrmWBSpecInPut.Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmYarnInfoSel := TfrmYarnInfoSel.Create(Application);
+    with frmYarnInfoSel do
+    begin
+      FSTKName := '纱线';
+      if ShowModal = 1 then
+      begin
+        with Self.CDS_Sub do
+        begin
+          Edit;
+          FieldByName('Y_Color').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Color').value;
+          FieldByName('Y_Code').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Code').value;
+          FieldByName('Y_Name').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Name').value;
+          FieldByName('Y_Spec').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Spec').value;
+
+          FieldByName('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').value;
+          FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').value;
+          FieldByName('Denier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').value;
+          FieldByName('ZS').Value := frmYarnInfoSel.CDS_1.fieldbyname('ZS').value;
+          FieldByName('Y_Ratio').Value := 0;
+        end;
+      end;
+    end;
+  finally
+    frmYarnInfoSel.Free;
+  end;
+end;
+
+procedure TfrmWBSpecInPut.Tv1Column8PropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue, FFieldName: string;
+  ZS, ZGS: double;
+begin
+
+  mvalue := TcxTextEdit(Sender).EditingText;
+  FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
+
+  with CDS_SUB do
+  begin
+    Edit;
+    FieldByName(FFieldName).Value := mvalue;
+    Post;
+
+    if FieldByName('QFYARNQTY').Value = null then
+    begin
+      ZGS := 0;   //QUANFU根数
+    end
+    else
+    begin
+      ZGS := FieldByName('QFYARNQTY').Value;   //全服根数
+    end;
+
+    if FieldByName('ZS').Value = null then
+    begin
+      ZS := 0; //循环根数
+    end
+    else
+    begin
+      ZS := FieldByName('ZS').Value; //循环根数
+    end;
+
+  end;
+  if ZS <> 0 then
+  begin
+    with CDS_SUB do
+    begin
+      Edit;
+      FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS * 1.08, 2);
+      Post;
+    end;
+  end;
+end;
+
+procedure TfrmWBSpecInPut.v1Column3PropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue, FFieldName: string;
+  GS, ZGS, MF, DS, WM, TW, SUNHAO: double;
+begin
+
+  mvalue := TcxTextEdit(Sender).EditingText;
+  FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
+
+//  with CDS_SUB do
+//  begin
+//    Edit;
+//    FieldByName(FFieldName).Value := mvalue;
+//    Post;
+//
+//    if FieldByName('YarnQty').Value = null then
+//    begin
+//      GS := 0;   //根数
+//    end
+//    else
+//    begin
+//      GS := FieldByName('YarnQty').Value;   //根数
+//    end;
+//
+//    if FieldByName('CycleYarnQty').Value = null then
+//    begin
+//      ZGS := 0; //循环根数
+//    end
+//    else
+//    begin
+//      ZGS := FieldByName('CycleYarnQty').Value; //循环根数
+//    end;
+//
+//    if FieldByName('Denier').Value = null then
+//    begin
+//      DS := 0;     //D数
+//    end
+//    else
+//    begin
+//      DS := FieldByName('Denier').Value;     //D数
+//    end;
+//
+//    TW := strtofloatdef(WB_YarnQty.text, 0); //头纹
+//  end;
+//  if ZGS <> 0 then
+//  begin
+//    with CDS_SUB do
+//    begin
+//      Edit;
+//      FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2);
+//      Post;
+//    end;
+//  end;
+end;
+
+procedure TfrmWBSpecInPut.WB_TYPEPropertiesChange(Sender: TObject);
+begin
+  if WB_TYPE.Text = '整浆并' then
+  begin
+    cxGroupBox2.Visible := True;
+    cxGroupBox1.Visible := false;
+  end
+  else
+  begin
+    cxGroupBox2.Visible := false;
+    cxGroupBox1.Visible := True;
+  end;
+
+end;
+
+procedure TfrmWBSpecInPut.WB_YarnQtyExit(Sender: TObject);
+begin
+  JS();
+end;
+
+procedure TfrmWBSpecInPut.WB_YarnQtyPropertiesEditValueChanged(Sender: TObject);
+begin
+  JSJS();
+end;
+
+end.
+

E03梭织坯布检验/TatInsp.dproj.local

@@ -1,58 +1,86 @@
 <?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<Transactions>
-    <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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.638,=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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.151,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.231,=D:\Dp10RepoV1\项目代码\D10szJinCheng\E03梭织坯布检验\U_ZKJL.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.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.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.514,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.514,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.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.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.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.935,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.935,=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.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>
+    <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.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.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.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.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.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.436,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.436,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.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.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.897,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.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.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.897,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.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.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.231,=D:\Dp10RepoV1\项目代码\D10szJinCheng\E03梭织坯布检验\U_ZKJL.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.151,=D:\Dp10RepoV1\项目代码\D10szJinCheng\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.734,=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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
   </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">
+    <File Path="android-support-v4.dex.jar"/>
+    <File Path="cloud-messaging.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-ads-base.17.2.0.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-ads.17.2.0.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-analytics.16.0.8.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-base.16.0.1.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-basement.16.2.0.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-gass.17.2.0.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-identity.16.0.0.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-maps.16.1.0.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-stats.16.0.1.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-tasks.16.0.1.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-wallet.16.0.1.dex.jar"/>
+    <File Path="com-google-firebase.firebase-analytics.16.4.0.dex.jar"/>
+    <File Path="com-google-firebase.firebase-common.16.1.0.dex.jar"/>
+    <File Path="com-google-firebase.firebase-iid-interop.16.0.1.dex.jar"/>
+    <File Path="com-google-firebase.firebase-iid.17.1.1.dex.jar"/>
+    <File Path="com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar"/>
+    <File Path="com-google-firebase.firebase-messaging.17.5.0.dex.jar"/>
+    <File Path="fmx.dex.jar"/>
+    <File Path="google-play-billing.dex.jar"/>
+    <File Path="google-play-licensing.dex.jar"/>
     <File Path="..\..\D10SZKaiXiYa"/>
     <File Path="..\A00通用窗体"/>
     <File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>

E03梭织坯布检验/TatInspLogin.dproj.local

@@ -1,6 +1,34 @@
 <?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<ProjectSortOrder AutoSort="0" SortType="0">
+    <File Path="android-support-v4.dex.jar"/>
+    <File Path="cloud-messaging.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-ads-base.17.2.0.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-ads.17.2.0.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-analytics.16.0.8.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-base.16.0.1.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-basement.16.2.0.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-gass.17.2.0.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-identity.16.0.0.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-maps.16.1.0.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-stats.16.0.1.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-tasks.16.0.1.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-wallet.16.0.1.dex.jar"/>
+    <File Path="com-google-firebase.firebase-analytics.16.4.0.dex.jar"/>
+    <File Path="com-google-firebase.firebase-common.16.1.0.dex.jar"/>
+    <File Path="com-google-firebase.firebase-iid-interop.16.0.1.dex.jar"/>
+    <File Path="com-google-firebase.firebase-iid.17.1.1.dex.jar"/>
+    <File Path="com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar"/>
+    <File Path="com-google-firebase.firebase-messaging.17.5.0.dex.jar"/>
+    <File Path="fmx.dex.jar"/>
+    <File Path="google-play-billing.dex.jar"/>
+    <File Path="google-play-licensing.dex.jar"/>
     <File Path="DbPanel"/>
     <File Path="DbPanel\MovePanel.pas"/>
     <File Path="delphitwain"/>
@@ -21,7 +49,7 @@
     <File Path="U_upPassword.dfm"/>
   </ProjectSortOrder>
 	<Transactions>
-    <Transaction>1899/12/30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj</Transaction>
   </Transactions>
 </BorlandProject>