diff --git a/E01梭织生产计划/TatPlan.dproj.local b/E01梭织生产计划/TatPlan.dproj.local index 9b62a21..734d479 100644 --- a/E01梭织生产计划/TatPlan.dproj.local +++ b/E01梭织生产计划/TatPlan.dproj.local @@ -1,76 +1,76 @@  - 1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas - 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas= - 1899/12/30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas - 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm - 1899/12/30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm - 1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm - 1899/12/30 00:00:00.000.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas - 1899/12/30 00:00:00.000.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas= - 1899/12/30 00:00:00.000.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.pas - 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas - 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899/12/30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas - 1899/12/30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm - 1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899/12/30 00:00:00.000.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899/12/30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas - 1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm - 1899/12/30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas - 1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas - 1899/12/30 00:00:00.000.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm - 1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm - 1899/12/30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas - 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899/12/30 00:00:00.000.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.pas - 1899/12/30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj - 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899/12/30 00:00:00.000.228,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas - 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899/12/30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas - 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.pas - 1899/12/30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas - 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas - 1899/12/30 00:00:00.000.203,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas - 1899/12/30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899/12/30 00:00:00.000.556,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899/12/30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm - 1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas - 1899/12/30 00:00:00.000.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.pas - 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899/12/30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.719,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas - 1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas - 1899/12/30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas - 1899/12/30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas - 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm - 1899/12/30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas - 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899/12/30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.pas - 1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm - 1899/12/30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas - 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899/12/30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas - 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas + 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas + 1899-12-30 00:00:00.000.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas= + 1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm + 1899-12-30 00:00:00.000.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas + 1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm + 1899-12-30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm + 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.pas + 1899-12-30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj + 1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas= + 1899-12-30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas + 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899-12-30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas + 1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas + 1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas + 1899-12-30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas + 1899-12-30 00:00:00.000.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas + 1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas + 1899-12-30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas + 1899-12-30 00:00:00.000.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas + 1899-12-30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas + 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899-12-30 00:00:00.000.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.pas + 1899-12-30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas + 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899-12-30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas + 1899-12-30 00:00:00.000.228,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas + 1899-12-30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm + 1899-12-30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas + 1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm + 1899-12-30 00:00:00.000.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.pas + 1899-12-30 00:00:00.000.719,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas + 1899-12-30 00:00:00.000.203,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas + 1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas + 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm + 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899-12-30 00:00:00.000.556,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899-12-30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899-12-30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm + 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899-12-30 00:00:00.000.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.pas + 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899-12-30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm + 1899-12-30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas + 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas + 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas + 1899-12-30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas + 1899-12-30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899-12-30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas + 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899-12-30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm + 1899-12-30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas + 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm + 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas diff --git a/E01梭织生产计划/TatPlan.identcache b/E01梭织生产计划/TatPlan.identcache index 6b36389..d425042 100644 Binary files a/E01梭织生产计划/TatPlan.identcache and b/E01梭织生产计划/TatPlan.identcache differ diff --git a/E01梭织生产计划/U_TatGYInPut.dfm b/E01梭织生产计划/U_TatGYInPut.dfm index 1a2b10d..60c75b3 100644 --- a/E01梭织生产计划/U_TatGYInPut.dfm +++ b/E01梭织生产计划/U_TatGYInPut.dfm @@ -72,6 +72,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut Ctl3D = False ParentCtl3D = False TabOrder = 1 + ExplicitTop = 36 object Label2: TLabel Left = 848 Top = 9 @@ -668,7 +669,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut Height = 414 Align = alClient TabOrder = 2 - Properties.ActivePage = cxTabSheet1 + Properties.ActivePage = cxTabSheet2 Properties.CustomButtons.Buttons = <> Properties.Style = 9 ClientRectBottom = 414 @@ -744,8 +745,6 @@ inherited frmTatGYInPut: TfrmTatGYInPut Height = 384 Align = alClient TabOrder = 1 - ExplicitLeft = -2 - ExplicitTop = -1 object TV1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -863,6 +862,8 @@ inherited frmTatGYInPut: TfrmTatGYInPut Caption = #25439#32791'%' DataBinding.FieldName = 'SH' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged GroupSummaryAlignment = taCenter HeaderAlignmentHorz = taCenter Width = 77 @@ -1120,6 +1121,8 @@ inherited frmTatGYInPut: TfrmTatGYInPut Caption = #25439#32791'CM' DataBinding.FieldName = 'SH' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged HeaderAlignmentHorz = taCenter Styles.Header = DataLink_TatPlan.grid_head_black Width = 83 diff --git a/E01梭织生产计划/U_TatGYInPut.pas b/E01梭织生产计划/U_TatGYInPut.pas index 8e20520..cc93c16 100644 --- a/E01梭织生产计划/U_TatGYInPut.pas +++ b/E01梭织生产计划/U_TatGYInPut.pas @@ -1022,7 +1022,7 @@ end; procedure TfrmTatGYInPut.TV1Column1PropertiesEditValueChanged(Sender: TObject); var mvalue, FFieldName: string; - GS, ZGS, MF, DS, WM, TW: double; + GS, ZGS, MF, DS, WM, TW, SUNHAO: double; begin mvalue := TcxTextEdit(Sender).EditingText; @@ -1052,6 +1052,15 @@ begin ZGS := FieldByName('CycleYarnQty').Value; //ѭ end; + if FieldByName('SH').Value = null then + begin + SUNHAO := 0; // + end + else + begin + SUNHAO := FieldByName('SH').Value; // + end; + MF := strtofloatdef(C_ReedWidth.text, 0); //ط if FieldByName('TestDenier').Value = null then @@ -1072,7 +1081,7 @@ begin with CDS_1 do begin Edit; - FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2); + FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS * (1 + SUNHAO / 100) / 9000, 2); Post; end; end; @@ -1112,7 +1121,7 @@ end; procedure TfrmTatGYInPut.Tv2Column1PropertiesEditValueChanged(Sender: TObject); var mvalue, FFieldName: string; - GS, ZGS, MF, DS, WM: double; + GS, ZGS, MF, DS, WM, sunhao: double; begin mvalue := TcxTextEdit(Sender).EditingText; @@ -1141,7 +1150,14 @@ begin begin ZGS := FieldByName('CycleYarnQty').Value; //ѭ end; - + if FieldByName('SH').Value = null then + begin + sunhao := 0; // + end + else + begin + sunhao := FieldByName('SH').Value; // + end; MF := strtofloatdef(C_ReedWidth.text, 0); //ط if FieldByName('TestDenier').Value = null then @@ -1160,7 +1176,7 @@ begin with CDS_2 do begin Edit; - FieldByName('MeterQty').Value := roundfloat(GS / ZGS * MF * DS * WM / 9000, 2); + FieldByName('MeterQty').Value := roundfloat(GS / ZGS * (MF + sunhao) * DS * WM / 9000, 2); Post; end; end; diff --git a/E01梭织生产计划/U_TatPlanInPut.dfm b/E01梭织生产计划/U_TatPlanInPut.dfm index e847d10..1dc38d1 100644 --- a/E01梭织生产计划/U_TatPlanInPut.dfm +++ b/E01梭织生产计划/U_TatPlanInPut.dfm @@ -885,6 +885,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Caption = #25439#32791'%' DataBinding.FieldName = 'SH' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 79 end @@ -1138,6 +1140,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut Caption = #25439#32791'CM' DataBinding.FieldName = 'SH' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged FooterAlignmentHorz = taCenter GroupSummaryAlignment = taCenter HeaderAlignmentHorz = taCenter diff --git a/E01梭织生产计划/U_TatPlanInPut.pas b/E01梭织生产计划/U_TatPlanInPut.pas index d5e6af9..81e64a2 100644 --- a/E01梭织生产计划/U_TatPlanInPut.pas +++ b/E01梭织生产计划/U_TatPlanInPut.pas @@ -244,7 +244,7 @@ type public PState, FCopyInt: Integer; FConNo, FMainId, FSubId: string; - fStatus : Integer; //0, 1޸ + fStatus: Integer; //0, 1޸ { Public declarations } end; @@ -571,6 +571,9 @@ begin ReadCxGrid('ƻ¼11', Tv1, ''); ReadCxGrid('ƻ¼22', Tv2, ''); InitData(); + JSJS(); //㾭˿ + JSWS(); //γ˿ + JSKZ(); // Initexcel(); end; @@ -1032,7 +1035,7 @@ end; procedure TfrmTatPlanInPut.TV1Column1PropertiesEditValueChanged(Sender: TObject); var mvalue, FFieldName: string; - GS, ZGS, MF, DS, WM, TW, SH: double; + GS, ZGS, MF, DS, WM, TW, SUNHAO: double; begin mvalue := TcxTextEdit(Sender).EditingText; @@ -1062,6 +1065,15 @@ begin ZGS := FieldByName('CycleYarnQty').Value; //ѭ end; + if FieldByName('SH').Value = null then + begin + SUNHAO := 0; // + end + else + begin + SUNHAO := FieldByName('SH').Value; // + end; + MF := strtofloatdef(C_ReedWidth.text, 0); //ط if FieldByName('TestDenier').Value = null then @@ -1076,15 +1088,13 @@ begin WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //γ TW := strtofloatdef(C_YarnQty.text, 0); //ͷ - - end; if ZGS <> 0 then begin with CDS_1 do begin Edit; - FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2); + FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS * (1 + SUNHAO / 100) / 9000, 2); Post; end; end; @@ -1124,7 +1134,7 @@ end; procedure TfrmTatPlanInPut.Tv2Column1PropertiesEditValueChanged(Sender: TObject); var mvalue, FFieldName: string; - GS, ZGS, MF, DS, WM: double; + GS, ZGS, MF, DS, WM, sunhao: double; begin mvalue := TcxTextEdit(Sender).EditingText; @@ -1153,7 +1163,14 @@ begin begin ZGS := FieldByName('CycleYarnQty').Value; //ѭ end; - + if FieldByName('SH').Value = null then + begin + sunhao := 0; // + end + else + begin + sunhao := FieldByName('SH').Value; // + end; MF := strtofloatdef(C_ReedWidth.text, 0); //ط if FieldByName('TestDenier').Value = null then @@ -1172,7 +1189,7 @@ begin with CDS_2 do begin Edit; - FieldByName('MeterQty').Value := roundfloat(GS / ZGS * MF * DS * WM / 9000, 2); + FieldByName('MeterQty').Value := roundfloat(GS / ZGS * (MF + sunhao) * DS * WM / 9000, 2); Post; end; end; @@ -1181,7 +1198,7 @@ end; procedure TfrmTatPlanInPut.cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin - if (Trim(Self.C_Code.Text)='') or (Trim(Self.C_Name.text) = '') then + if (Trim(Self.C_Code.Text) = '') or (Trim(Self.C_Name.text) = '') then begin ShowMessage('ѡƷϢ'); Exit; @@ -1545,22 +1562,29 @@ var begin C_GramWeight.SetFocus; - SumJS := IfThen(VarIsNull(Tv1.DataController.Summary.FooterSummaryValues[0]), - 0, - Tv1.DataController.Summary.FooterSummaryValues[0]); + if Tv1.DataController.Summary.FooterSummaryValues[0] <> NULL then + begin + SumJS := IfThen(VarIsNull(Tv1.DataController.Summary.FooterSummaryValues[0]), 0, Tv1.DataController.Summary.FooterSummaryValues[0]); + + end; + if Tv2.DataController.Summary.FooterSummaryValues[0] <> NULL then + begin + SumWS := IfThen(VarIsNull(Tv2.DataController.Summary.FooterSummaryValues[0]), 0, Tv2.DataController.Summary.FooterSummaryValues[0]); + end; - SumWS := IfThen(VarIsNull(Tv2.DataController.Summary.FooterSummaryValues[0]), - 0, - Tv2.DataController.Summary.FooterSummaryValues[0]); IsInch := ContainsText(C_ReedWidth.Text, '"'); - Val(Trim(StringReplace(C_ReedWidth.Text, '"', '', [rfReplaceAll, rfIgnoreCase])), - ReedWidthValue, - ErrCode); + Val(Trim(StringReplace(C_ReedWidth.Text, '"', '', [rfReplaceAll, rfIgnoreCase])), ReedWidthValue, ErrCode); if (ErrCode = 0) and (ReedWidthValue > 0) then begin if IsInch then - ReedWidthValue := ReedWidthValue * 0.0254; - C_GramWeight.Text := FormatFloat('0.00', (SumJS + SumWS) / ReedWidthValue/100); + begin + C_GramWeight.Text := FloatToStr(roundfloat(((SumJS + SumWS) / ReedWidthValue * 2.54 * 100), 0)); + end + else + begin + C_GramWeight.Text := FloatToStr(roundfloat(((SumJS + SumWS) / ReedWidthValue * 100), 0)); + end; + end else C_GramWeight.Text := '0.00'; @@ -1780,7 +1804,8 @@ procedure TfrmTatPlanInPut.UpdateCalculations(Sender: TObject); var dQty, dPiece, dPieceLen: Double; begin - if FUpdating then Exit; + if FUpdating then + Exit; FUpdating := True; try dQty := StrToFloatDef(OrdQty.Text, 0); @@ -1805,7 +1830,6 @@ begin end; end; - procedure TfrmTatPlanInPut.OrdPieceLenPropertiesChange(Sender: TObject); //pi chang begin UpdateCalculations(Sender); diff --git a/E01梭织生产计划/U_TatPlanList.dfm b/E01梭织生产计划/U_TatPlanList.dfm index 4feaed1..286d383 100644 --- a/E01梭织生产计划/U_TatPlanList.dfm +++ b/E01梭织生产计划/U_TatPlanList.dfm @@ -618,8 +618,6 @@ inherited frmTatPlanList: TfrmTatPlanList #24050#32467#26463 #20840#37096) OnChange = cxTabControl1Change - ExplicitLeft = 32 - ExplicitTop = 106 ClientRectRight = 0 ClientRectTop = 0 end diff --git a/E01梭织生产计划/U_TatPlanMachInput.dfm b/E01梭织生产计划/U_TatPlanMachInput.dfm index bf001d0..1152f12 100644 --- a/E01梭织生产计划/U_TatPlanMachInput.dfm +++ b/E01梭织生产计划/U_TatPlanMachInput.dfm @@ -425,7 +425,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput object PMType: TcxComboBox Tag = 2 Left = 127 - Top = 10 + Top = 16 Properties.Items.Strings = ( #23613#26426#23433#25490 #19979#24067#25913#26426) @@ -435,8 +435,8 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput end object WB_Code: TcxButtonEdit Tag = 2 - Left = 127 - Top = 126 + Left = 128 + Top = 125 BeepOnEnter = False Properties.Buttons = < item diff --git a/E01梭织生产计划/U_TatPlanMachInput.pas b/E01梭织生产计划/U_TatPlanMachInput.pas index db1d719..ce5b8ea 100644 --- a/E01梭织生产计划/U_TatPlanMachInput.pas +++ b/E01梭织生产计划/U_TatPlanMachInput.pas @@ -259,12 +259,59 @@ begin end; procedure TfrmTatPlanMachInput.ToolButton1Click(Sender: TObject); +var + FWB_CODE: string; begin if CheckData() = False then begin exit; end; + if FPMID = '' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('SELECT * FROM Tat_Plan_Mach'); + sql.Add('WHERE ISNULL(Status, ''0'') in (''0'') '); + SQL.Add('AND MCNO=' + QuotedStr(FMCNo)); + Open; + end; + if ADOQueryTemp.IsEmpty = FALSE then + begin + Application.MessageBox('ų̂Ѵδ񣬲棡', 'ʾ', 0); + exit; + end; + + end; + + if PMType.Text = '²Ļ' then + begin + if FPMID = '' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('SELECT * FROM Tat_Plan_Mach'); + sql.Add('WHERE ISNULL(Status, ''0'') in (''1'') '); + SQL.Add('AND MCNO=' + QuotedStr(FMCNo)); + Open; + end; + if ADOQueryTemp.IsEmpty = FALSE then + begin + if ADOQueryTemp.FieldByName('WB_CODE').AsString <> WB_CODE.Text then + begin + Application.MessageBox('ղͬ棡', 'ʾ', 0); + exit; + end; + + end; + + end; + end; + if SaveData() then begin Application.MessageBox('ɹ', 'ʾ', 0); diff --git a/E01梭织生产计划/U_TatPlanMachList.dfm b/E01梭织生产计划/U_TatPlanMachList.dfm index 3c11b8b..d49cbd8 100644 --- a/E01梭织生产计划/U_TatPlanMachList.dfm +++ b/E01梭织生产计划/U_TatPlanMachList.dfm @@ -207,6 +207,8 @@ inherited frmTatPlanMachList: TfrmTatPlanMachList Align = alClient PopupMenu = PM_1 TabOrder = 2 + ExplicitLeft = -5 + ExplicitTop = 146 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -314,7 +316,7 @@ inherited frmTatPlanMachList: TfrmTatPlanMachList end object Tv1Column6: TcxGridDBColumn Caption = #25972#32463#24037#33402#32534#21495 - DataBinding.FieldName = 'WB_Name' + DataBinding.FieldName = 'WB_code' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False @@ -363,14 +365,15 @@ inherited frmTatPlanMachList: TfrmTatPlanMachList end object Tv1Column12: TcxGridDBColumn Caption = #19978#36724#26102#38388 - DataBinding.FieldName = 'SZSJ' + DataBinding.FieldName = 'SZSJ2' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxDateEditProperties' HeaderAlignmentHorz = taCenter Width = 80 end object Tv1Column13: TcxGridDBColumn Caption = #36724#21345#21495 - DataBinding.FieldName = 'ZKH' + DataBinding.FieldName = 'WBCID' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter @@ -378,10 +381,11 @@ inherited frmTatPlanMachList: TfrmTatPlanMachList end object Tv1Column14: TcxGridDBColumn Caption = #32463#36724#31859#25968 - DataBinding.FieldName = 'JZMS' + DataBinding.FieldName = 'JZMS2' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter + Width = 70 end end object cxGrid1Level1: TcxGridLevel diff --git a/E01梭织生产计划/U_TatPlanMachList.pas b/E01梭织生产计划/U_TatPlanMachList.pas index e06769b..f00bb52 100644 --- a/E01梭织生产计划/U_TatPlanMachList.pas +++ b/E01梭织生产计划/U_TatPlanMachList.pas @@ -14,23 +14,22 @@ uses cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations, dxCore, cxDateUtils, cxMaskEdit, cxCalendar, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, cxImage, cxDBEdit, IdFTP, - ShellAPI, dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, - dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, - dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, - dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, - dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, - dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, - dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, - dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, - dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, - dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark, - dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, - dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, - dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust, - dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine, - dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, - dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, - dxSkinXmas2008Blue; + ShellAPI, dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, + dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, + dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, + dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, + dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful, + dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful, + dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, + dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, + dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, + dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue, + dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010, + dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue; type TfrmTatPlanMachList = class(TfrmBaseList)