0707
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
66dfced431
commit
6f1d5981be
|
|
@ -1,76 +1,76 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<Transactions>
|
||||
<Transaction>1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.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.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.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.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.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.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm</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.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.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.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.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas=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.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.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.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.203,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.556,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.pas</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.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.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.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm</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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.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.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.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.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.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.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.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.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.228,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm</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.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.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.719,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.203,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.556,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.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.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.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.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm</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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
|
||||
</Transactions>
|
||||
<ProjectSortOrder AutoSort="0" SortType="0">
|
||||
<File Path="..\..\D10SZKaiXiYa"/>
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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);
|
||||
|
|
|
|||
|
|
@ -618,8 +618,6 @@ inherited frmTatPlanList: TfrmTatPlanList
|
|||
#24050#32467#26463
|
||||
#20840#37096)
|
||||
OnChange = cxTabControl1Change
|
||||
ExplicitLeft = 32
|
||||
ExplicitTop = 106
|
||||
ClientRectRight = 0
|
||||
ClientRectTop = 0
|
||||
end
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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);
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user