From f8a94ffed2dd3c91d1745367786d31a81e69412d Mon Sep 17 00:00:00 2001 From: "LAPTOP-8NOV8MVQ\\cai" Date: Thu, 11 Sep 2025 10:48:11 +0800 Subject: [PATCH] 9.11 --- A02基础产品管理/ClothInfo.dproj.local | 56 +++++++-------- A02基础产品管理/U_ClothInfoInput.dfm | 2 + A02基础产品管理/U_ClothInfoInput.pas | 1 + B03基础物料仓库/ProductStk.dproj.local | 58 +++++++-------- B03基础物料仓库/ProductStk.identcache | Bin 1756 -> 1756 bytes B03基础物料仓库/U_PrtDyeInfoInPut.pas | 22 ++---- F01染色坯布仓库/DyeGreyClothStk.dproj.local | 34 ++++----- F01染色坯布仓库/DyeGreyClothStk.identcache | Bin 1733 -> 1733 bytes F01染色坯布仓库/U_DyeGreyClothInEdit.dfm | 23 +++--- F01染色坯布仓库/U_DyeGreyClothInEdit.pas | 32 +++++++-- F01染色坯布仓库/U_DyeGreyClothInList.dfm | 1 - F01染色坯布仓库/U_DyePlanForCardSel.dfm | 1 + F02染色计划单/U_DyePlanCardInput.dfm | 35 ++++++++- F02染色计划单/U_DyePlanCardInput.pas | 9 ++- F02染色计划单/U_DyePlanCardList.dfm | 2 +- F02染色计划单/U_DyePlanCardList.pas | 76 +++++++++++++++----- F02染色计划单/U_DyePlanInPut.dfm | 33 +++++++-- F02染色计划单/U_DyePlanInPut.pas | 7 +- F02染色计划单/U_DyePlanList.dfm | 9 ++- F02染色计划单/U_DyePlanList.pas | 16 +++-- F02染色计划单/U_DyeProcessDefin.dfm | 12 ++++ F02染色计划单/U_DyeProcessDefin.pas | 6 +- F02染色计划单/U_DyeTechnicsinput.pas | 75 +++++++++++++++++-- F04染色刷卡/DyeProcess.dproj.local | 24 +++---- F04染色刷卡/DyeProcess.identcache | Bin 1185 -> 1185 bytes 25 files changed, 375 insertions(+), 159 deletions(-) diff --git a/A02基础产品管理/ClothInfo.dproj.local b/A02基础产品管理/ClothInfo.dproj.local index 0bafd46..8e9703a 100644 --- a/A02基础产品管理/ClothInfo.dproj.local +++ b/A02基础产品管理/ClothInfo.dproj.local @@ -1,52 +1,52 @@  - 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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm - 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.480,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A00通用窗体\U_ProductInfoSel.pas - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas 1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas + 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm + 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899/12/30 00:00:00.000.472,=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.480,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A00通用窗体\U_ProductInfoSel.pas + 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899/12/30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899/12/30 00:00:00.000.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas - 1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas - 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm - 1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm + 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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas + 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas= - 1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas + 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas 1899/12/30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm + 1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899/12/30 00:00:00.000.217,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.936,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A02基础产品管理\U_ClothInfoInput.pas 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas 1899/12/30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas - 1899/12/30 00:00:00.000.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas - 1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm - 1899/12/30 00:00:00.000.146,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas + 1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm 1899/12/30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm + 1899/12/30 00:00:00.000.146,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj - 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.734,=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.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas + 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj + 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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas diff --git a/A02基础产品管理/U_ClothInfoInput.dfm b/A02基础产品管理/U_ClothInfoInput.dfm index b076cb2..83c9774 100644 --- a/A02基础产品管理/U_ClothInfoInput.dfm +++ b/A02基础产品管理/U_ClothInfoInput.dfm @@ -438,6 +438,8 @@ object frmClothInfoInput: TfrmClothInfoInput Height = 346 Align = alBottom TabOrder = 24 + ExplicitLeft = 2 + ExplicitTop = 337 object TV4: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/A02基础产品管理/U_ClothInfoInput.pas b/A02基础产品管理/U_ClothInfoInput.pas index a33f993..4ba525c 100644 --- a/A02基础产品管理/U_ClothInfoInput.pas +++ b/A02基础产品管理/U_ClothInfoInput.pas @@ -1176,6 +1176,7 @@ begin FieldByName('BCIID').Value := Trim(MaxBCIID); FieldByName('TechnicsID').Value := Trim(MaxTechnicsID); FieldByName('C_Code').Value := Trim(C_Code.Text); + FieldByName('C_Name').Value := Trim(C_Name.Text); RTSetSaveDataCDS(ADOQueryCmd, Tv4, CDS_GY, 'Bs_Cloth_Dye_Technics', 0); Post; end; diff --git a/B03基础物料仓库/ProductStk.dproj.local b/B03基础物料仓库/ProductStk.dproj.local index cc48210..d478272 100644 --- a/B03基础物料仓库/ProductStk.dproj.local +++ b/B03基础物料仓库/ProductStk.dproj.local @@ -1,45 +1,45 @@  - 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.233,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProductInfoSel.dfm - 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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.840,=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInList.pas - 1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInList.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtDyeInList.pas 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.486,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\ProductStk.dproj=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\InformationBase.dproj - 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.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.840,=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInList.pas + 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899/12/30 00:00:00.000.943,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtDyeInList.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInList.pas + 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.526,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_PrtDyeInfoInPut.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_ProductInfoInPut.pas + 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.233,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProductInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas 1899/12/30 00:00:00.000.923,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\Unit1.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899/12/30 00:00:00.000.526,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_ProductInfoInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_PrtDyeInfoInPut.dfm - 1899/12/30 00:00:00.000.233,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProductInfoSel.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899/12/30 00:00:00.000.713,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899/12/30 00:00:00.000.997,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.486,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\ProductStk.dproj 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899/12/30 00:00:00.000.495,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.526,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_ProductInfoInPut.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_PrtDyeInfoInPut.pas + 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtDyeInList.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInList.dfm + 1899/12/30 00:00:00.000.233,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProductInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899/12/30 00:00:00.000.713,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899/12/30 00:00:00.000.526,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_PrtDyeInfoInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_ProductInfoInPut.dfm + 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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= 1899/12/30 00:00:00.000.686,=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_ProductInfoInPut.pas - 1899/12/30 00:00:00.000.997,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899/12/30 00:00:00.000.943,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.495,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899/12/30 00:00:00.000.734,=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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInList.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtDyeInList.dfm diff --git a/B03基础物料仓库/ProductStk.identcache b/B03基础物料仓库/ProductStk.identcache index 866ea4afd9bb17661460cc29e1dee5f446252e73..b5eec37b3804a0d247f60c6199a2088444d3d9c7 100644 GIT binary patch delta 66 zcmV-I0KNa*4crX@7n6+zS&?0_lS%|BldJ|XlMVsZlOzUTlga`kvs(gH0ka1Li2;-T Y1Ur)+0veO%1wNCo16Pwu1V52O8UqIwP5=M^ delta 58 zcmV-A0LA~@4crX@7n6VnT#;I_lVkzalbHoolPUuvv%3OS0h25SSF;cVi2;+k13QsF Q8 - 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas - 1899/12/30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.pas 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899/12/30 00:00:00.000.440,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.pas + 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas 1899/12/30 00:00:00.000.865,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas 1899/12/30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas - 1899/12/30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.pas - 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.951,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\DyeGreyClothStk.dproj + 1899/12/30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas 1899/12/30 00:00:00.000.817,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.440,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.pas - 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899/12/30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.dfm + 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.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899/12/30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.dfm + 1899/12/30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.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.070,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.dfm + 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899/12/30 00:00:00.000.951,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\DyeGreyClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\InformationBase.dproj 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.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.791,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899/12/30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.pas + 1899/12/30 00:00:00.000.278,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas 1899/12/30 00:00:00.000.492,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899/12/30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.dfm + 1899/12/30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.dfm + 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.069,=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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.278,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899/12/30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.dfm 2025/08/29 17:00:58.000.253,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F01染色坯布仓库\U_DyePlanForCardSel.pas diff --git a/F01染色坯布仓库/DyeGreyClothStk.identcache b/F01染色坯布仓库/DyeGreyClothStk.identcache index 4e6113a738c6a18ad1cff9b12c40350abed49f5a..2c0f4ec1b76f34a8227ad4c71804783728edb4f0 100644 GIT binary patch delta 28 kcmX@gdz5zrBh%ystf7+`nanp&Wa4L@Y{3*c`77%M0EdJLjQ{`u delta 43 zcmV+`0M!4*4aE(x0Roea0wa@o0u+1<*R@ B4lV!y diff --git a/F01染色坯布仓库/U_DyeGreyClothInEdit.dfm b/F01染色坯布仓库/U_DyeGreyClothInEdit.dfm index c5f196f..c1e9264 100644 --- a/F01染色坯布仓库/U_DyeGreyClothInEdit.dfm +++ b/F01染色坯布仓库/U_DyeGreyClothInEdit.dfm @@ -22,7 +22,6 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit Height = 508 Align = alClient TabOrder = 0 - ExplicitTop = 44 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -108,8 +107,8 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit Width = 90 end object Tv1Column4: TcxGridDBColumn - Caption = #25104#21697#32534#21495 - DataBinding.FieldName = 'C_COde' + Caption = #25104#21697#21517#31216 + DataBinding.FieldName = 'C_Name' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < @@ -121,16 +120,9 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit HeaderAlignmentHorz = taCenter Width = 72 end - object Tv1C_Name: TcxGridDBColumn - Caption = #25104#21697#21517#31216 - DataBinding.FieldName = 'C_Name' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end object Tv1Column2: TcxGridDBColumn - Caption = #22383#24067#32534#21495 - DataBinding.FieldName = 'F_Code' + Caption = #22383#24067#21517#31216 + DataBinding.FieldName = 'F_Name' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 80 @@ -230,6 +222,13 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit HeaderAlignmentHorz = taCenter Width = 80 end + object Tv1C_Code: TcxGridDBColumn + Caption = #25104#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end end object cxGrid2Level1: TcxGridLevel GridView = Tv1 diff --git a/F01染色坯布仓库/U_DyeGreyClothInEdit.pas b/F01染色坯布仓库/U_DyeGreyClothInEdit.pas index fe1b774..e4a2419 100644 --- a/F01染色坯布仓库/U_DyeGreyClothInEdit.pas +++ b/F01染色坯布仓库/U_DyeGreyClothInEdit.pas @@ -50,12 +50,12 @@ type Tv1Column6: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn; Tv1ioTime: TcxGridDBColumn; - Tv1C_Name: TcxGridDBColumn; Tv1StkCoName: TcxGridDBColumn; Tv1StkCoNo: TcxGridDBColumn; Tv1QtyUnit: TcxGridDBColumn; Tv1OrderNo: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn; + Tv1C_Code: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBAddClick(Sender: TObject); procedure TBCloseClick(Sender: TObject); @@ -204,9 +204,6 @@ begin // end; - - - with ADOQueryCmd do begin Close; @@ -727,10 +724,12 @@ begin with Self.CDS_Sub do begin Edit; - FieldByName('C_COde').Value := Trim(CDS_1.fieldbyname('C_COde').AsString); + FieldByName('C_Name').Value := Trim(CDS_1.fieldbyname('C_Name').AsString); + FieldByName('F_Name').Value := Trim(CDS_1.fieldbyname('F_Name').AsString); + FieldByName('C_Width').Value := Trim(CDS_1.fieldbyname('C_Width').AsString); -// FieldByName('F_Code').Value := Trim(CDS_1.fieldbyname('F_Code').AsString); + FieldByName('F_Width').Value := Trim(CDS_1.fieldbyname('F_Width').AsString); FieldByName('Material').Value := Trim(CDS_1.fieldbyname('Material').AsString); @@ -785,10 +784,31 @@ begin begin Self.CDS_Sub.Edit; Self.CDS_Sub.FieldByName('OrderNo').Value := Order_Main.fieldbyname('OrderNo').asstring; + Self.CDS_Sub.FieldByName('C_Name').Value := Order_Main.fieldbyname('C_Name').asstring; + Self.CDS_Sub.FieldByName('C_Code').Value := Order_Main.fieldbyname('C_Code').asstring; + Self.CDS_Sub.FieldByName('F_Name').Value := Order_Main.fieldbyname('F_Name').asstring; // initGlide(); end; free; end; + with ADOQueryTemp do + begin + Close; + SQL.Clear; + SQL.Add('select * from BS_Cloth_Info where C_Name = ' + QuotedStr(Trim(CDS_Sub.FieldByName('C_Name').Value))); + Open; + end; + with CDS_Sub do + begin + Edit; + + FieldByName('C_Width').Value := Trim(ADOQueryTemp.fieldbyname('C_Width').AsString); + FieldByName('F_Width').Value := Trim(ADOQueryTemp.fieldbyname('F_Width').AsString); + FieldByName('Material').Value := Trim(ADOQueryTemp.fieldbyname('Material').AsString); + + FieldByName('finishDescription').Value := Trim(ADOQueryTemp.fieldbyname('FinishingStandards').AsString); + Post; + end; end; procedure TfrmDyeGreyClothInEdit.v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); diff --git a/F01染色坯布仓库/U_DyeGreyClothInList.dfm b/F01染色坯布仓库/U_DyeGreyClothInList.dfm index b9b7315..1d27504 100644 --- a/F01染色坯布仓库/U_DyeGreyClothInList.dfm +++ b/F01染色坯布仓库/U_DyeGreyClothInList.dfm @@ -326,7 +326,6 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 - ExplicitTop = 95 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/F01染色坯布仓库/U_DyePlanForCardSel.dfm b/F01染色坯布仓库/U_DyePlanForCardSel.dfm index 8bade00..49587d9 100644 --- a/F01染色坯布仓库/U_DyePlanForCardSel.dfm +++ b/F01染色坯布仓库/U_DyePlanForCardSel.dfm @@ -186,6 +186,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 + ExplicitTop = 109 object Tv1: TcxGridDBTableView OnDblClick = Tv1DblClick Navigator.Buttons.CustomButtons = <> diff --git a/F02染色计划单/U_DyePlanCardInput.dfm b/F02染色计划单/U_DyePlanCardInput.dfm index 82571ce..00381c7 100644 --- a/F02染色计划单/U_DyePlanCardInput.dfm +++ b/F02染色计划单/U_DyePlanCardInput.dfm @@ -348,6 +348,20 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput Font.Style = [fsBold] ParentFont = False end + object Label6: TLabel + Left = 721 + Top = 41 + Width = 52 + Height = 12 + Caption = #24037#33402#20027#38190 + Font.Charset = GB2312_CHARSET + Font.Color = clMaroon + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end object OrderNo: TBtnEditA Tag = 2 Left = 101 @@ -495,6 +509,21 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput ParentFont = False TabOrder = 9 end + object DTMID: TEdit + Tag = 2 + Left = 780 + Top = 37 + Width = 100 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 10 + Visible = False + end end object cxGrid2: TcxGrid Left = 0 @@ -588,8 +617,8 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput Width = 124 end object cxGridDBColumn2: TcxGridDBColumn - Caption = #22383#24067#32534#21495 - DataBinding.FieldName = 'F_Code ' + Caption = #22383#24067#21517#31216 + DataBinding.FieldName = 'F_Name' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False @@ -1136,6 +1165,8 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput Align = alClient PopupMenu = PM_1 TabOrder = 0 + ExplicitLeft = 2 + ExplicitTop = 45 object TV1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/F02染色计划单/U_DyePlanCardInput.pas b/F02染色计划单/U_DyePlanCardInput.pas index 5b7293f..28156ca 100644 --- a/F02染色计划单/U_DyePlanCardInput.pas +++ b/F02染色计划单/U_DyePlanCardInput.pas @@ -166,6 +166,8 @@ type C_Name: TEdit; ADO_PB: TADOQuery; TV2Column1: TcxGridDBColumn; + Label6: TLabel; + DTMID: TEdit; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -331,13 +333,13 @@ begin Filtered := False; Close; sql.Clear; - sql.Add(' select OrderNo, C_Name, F_Code, QtyUnit, Material,SUM(StkQty) as StkQty, SUM(StkPiece) as StkPiece '); + sql.Add(' select OrderNo, C_Name, F_Name, QtyUnit, Material,SUM(StkQty) as StkQty, SUM(StkPiece) as StkPiece '); sql.Add(' ,IOTime = min(IOTime) ,IOType = min(ioType) ,C_Width = min(C_Width) ,F_Width = min(F_Width)'); sql.Add(' from BS_Cloth_IO A where isnull(STKName,'''')=''Ⱦɫ'' '); SQL.Add(' and A.IOFlag='''' '); // SQL.Add(' and EXISTS(select * from [dbo].[F_Tool_SplitString](' + quotedstr(FGC_STKID) + ','','' ) X where X.RTValue=A.StkId AND ISNULL(RTValue,'''')<>'''') '); SQL.Add(' and A.OrderNo= ' + QuotedStr(trim(OrderNo.Text))); - SQL.Add(' group by OrderNo, C_Name, F_Code, QtyUnit, Material '); + SQL.Add(' group by OrderNo, C_Name, F_Name, QtyUnit, Material '); // ShowMessage(sql.Text); Open; end; @@ -488,6 +490,7 @@ begin with frmCraftSel.CDS_1 do begin Self.DTMPSlist.Text := frmCraftSel.CDS_1.FieldByName('DTMPSlist').Value; + Self.DTMID.Text := frmCraftSel.CDS_1.FieldByName('DTMID').Value; end; end; end; @@ -703,6 +706,7 @@ begin sql.add(',@dname=' + QuotedStr(trim(dname))); SQL.Add(',@C_Name=' + QuotedStr(Trim(C_Name.Text))); SQL.Add(',@OrderNo=' + QuotedStr(Trim(OrderNo.Text))); + SQL.Add(',@DTMID=' + QuotedStr(Trim(DTMID.Text))); execsql; end; @@ -1020,6 +1024,7 @@ begin C_COLORNO.Text := ADOQueryTmp.FieldByName('C_COLORNO').AsString; C_Name.Text := ADOQueryTmp.FieldByName('C_Name').AsString; FC_Code := ADOQueryTmp.FieldByName('C_Code').AsString; + FC_Name := ADOQueryTmp.FieldByName('C_Name').AsString; // C_Width.Text := ADOQueryTmp.FieldByName('C_Width').Value; // C_Width.Text := ADOQueryTmp.FieldByName('C_Width').Value; end; diff --git a/F02染色计划单/U_DyePlanCardList.dfm b/F02染色计划单/U_DyePlanCardList.dfm index 261588b..97774fa 100644 --- a/F02染色计划单/U_DyePlanCardList.dfm +++ b/F02染色计划单/U_DyePlanCardList.dfm @@ -729,7 +729,7 @@ inherited frmDyePlanCardList: TfrmDyePlanCardList TabOrder = 3 Properties.CustomButtons.Buttons = <> Properties.Style = 9 - Properties.TabIndex = 0 + Properties.TabIndex = 3 Properties.Tabs.Strings = ( #26410#23457#26680 #24050#23457#26680 diff --git a/F02染色计划单/U_DyePlanCardList.pas b/F02染色计划单/U_DyePlanCardList.pas index 471d221..a502cea 100644 --- a/F02染色计划单/U_DyePlanCardList.pas +++ b/F02染色计划单/U_DyePlanCardList.pas @@ -164,7 +164,7 @@ var implementation uses - U_DataLink, U_RTFun, U_DyePlanCardInput; + U_DataLink, U_RTFun, U_DyePlanCardInput, U_LabelPrint; {$R *.dfm} procedure TfrmDyePlanCardList.PrintCar(MPCID: string); @@ -495,7 +495,6 @@ end; procedure TfrmDyePlanCardList.TBPrintClick(Sender: TObject); var - i: integer; MPCID: string; begin if CDS_1.IsEmpty then @@ -505,27 +504,72 @@ begin Application.MessageBox('ûѡ!', 'ʾ', 0); Exit; end; - i := 0; + + MPCID := ''; + CDS_1.DisableControls; with CDS_1 do begin - DisableControls; + MPCID := Trim(CDS_1.fieldbyname('PCID').AsString); First; - while not Eof do + while CDS_1.Locate('SSel', True, []) do begin - if Fieldbyname('Ssel').AsBoolean then - begin - if i = 0 then - MPCID := trim(CDS_1.fieldbyname('PCID').AsString); - PrintCar(trim(CDS_1.fieldbyname('PCID').AsString)); - i := i + 1; - end; - Next; + +// MPCID := MPCID + ',' + Trim(CDS_1.fieldbyname('PCID').AsString); + + Edit; + FieldByName('SSel').Value := False; + Post; end; - EnableControls; end; - SelOKNoFiler(Tv1, False); - CDS_1.Locate('PCID', MPCID, []); + CDS_1.EnableControls; + + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'DyePlanCarListPrint1'; + FFiltration1 := MPCID; + if ShowModal = 1 then + begin +// Self.InitGrid(); + end; + end; + finally + frmLabelPrint.Free; + end; end; +//var +// i: integer; +// MPCID: string; +//begin +// if CDS_1.IsEmpty then +// Exit; +// if CDS_1.Locate('SSel', True, []) = False then +// begin +// Application.MessageBox('ûѡ!', 'ʾ', 0); +// Exit; +// end; +// i := 0; +// with CDS_1 do +// begin +// DisableControls; +// First; +// while not Eof do +// begin +// if Fieldbyname('Ssel').AsBoolean then +// begin +// if i = 0 then +// MPCID := trim(CDS_1.fieldbyname('PCID').AsString); +// PrintCar(trim(CDS_1.fieldbyname('PCID').AsString)); +// i := i + 1; +// end; +// Next; +// end; +// EnableControls; +// end; +// SelOKNoFiler(Tv1, False); +// CDS_1.Locate('PCID', MPCID, []); +//end; procedure TfrmDyePlanCardList.TBRafreshClick(Sender: TObject); begin diff --git a/F02染色计划单/U_DyePlanInPut.dfm b/F02染色计划单/U_DyePlanInPut.dfm index 69feec9..fe91484 100644 --- a/F02染色计划单/U_DyePlanInPut.dfm +++ b/F02染色计划单/U_DyePlanInPut.dfm @@ -79,6 +79,7 @@ object frmDyePlanInPut: TfrmDyePlanInPut ParentColor = False ParentCtl3D = False TabOrder = 1 + ExplicitTop = 32 object Label1: TLabel Left = 304 Top = 132 @@ -209,6 +210,20 @@ object frmDyePlanInPut: TfrmDyePlanInPut Font.Style = [fsBold] ParentFont = False end + object Label5: TLabel + Left = 721 + Top = 93 + Width = 65 + Height = 12 + Caption = #25104#21697#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end object F_description: TEdit Tag = 2 Left = 370 @@ -234,18 +249,19 @@ object frmDyePlanInPut: TfrmDyePlanInPut Height = 18 TabOrder = 2 end - object djUnit: TComboBox + object Status: TComboBox Tag = 2 Left = 370 Top = 51 Width = 121 Height = 20 - ItemIndex = 1 TabOrder = 3 - Text = 'M' Items.Strings = ( '' - 'M') + #24050#19979#36798 + #24050#35745#21010 + #24050#32467#31639 + #24050#21462#28040) end object C_PlanQty: TEdit Tag = 2 @@ -303,6 +319,15 @@ object frmDyePlanInPut: TfrmDyePlanInPut OnDblClick = C_NameDblClick OnBtnClick = C_NameBtnClick end + object C_Code: TEdit + Tag = 2 + Left = 783 + Top = 91 + Width = 120 + Height = 18 + TabOrder = 10 + Visible = False + end end object cxPageControl1: TcxPageControl Left = 0 diff --git a/F02染色计划单/U_DyePlanInPut.pas b/F02染色计划单/U_DyePlanInPut.pas index 71dba16..4b451b0 100644 --- a/F02染色计划单/U_DyePlanInPut.pas +++ b/F02染色计划单/U_DyePlanInPut.pas @@ -50,7 +50,7 @@ type cxGrid1Level1: TcxGridLevel; Label6: TLabel; F_Name: TEdit; - djUnit: TComboBox; + Status: TComboBox; Label8: TLabel; Label11: TLabel; C_PlanQty: TEdit; @@ -65,6 +65,8 @@ type Tv1Column2: TcxGridDBColumn; QtyOrder: TEdit; C_Name: TBtnEditA; + C_Code: TEdit; + Label5: TLabel; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); @@ -184,6 +186,7 @@ begin CDS_1.DisableControls; Self.C_Name.Text := trim(CDS_1.FieldByName('C_Name').AsString); + Self.C_Code.Text := trim(CDS_1.FieldByName('C_Code').AsString); end; CDS_1.EnableControls; @@ -257,7 +260,7 @@ begin RTSetsavedata(ADOCmd, 'Dye_Plan_Main', ScrollBox1, 2); FieldByName('MainId').Value := Trim(maxno); FieldByName('Workshop').Value := Trim(FWorkshop); - FieldByName('status').Value := '9'; +// FieldByName('status').Value := '9'; Post; end; diff --git a/F02染色计划单/U_DyePlanList.dfm b/F02染色计划单/U_DyePlanList.dfm index a0bcfd4..1dd0f7b 100644 --- a/F02染色计划单/U_DyePlanList.dfm +++ b/F02染色计划单/U_DyePlanList.dfm @@ -299,6 +299,7 @@ inherited frmDyePlanList: TfrmDyePlanList Align = alClient PopupMenu = PM_1 TabOrder = 2 + ExplicitTop = 127 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -449,10 +450,12 @@ inherited frmDyePlanList: TfrmDyePlanList TabOrder = 4 Properties.CustomButtons.Buttons = <> Properties.Style = 9 - Properties.TabIndex = 0 + Properties.TabIndex = 4 Properties.Tabs.Strings = ( - #24050#23457#26680 - #24050#23436#25104 + #24050#19979#36798 + #24050#35745#21010 + #24050#32467#31639 + #24050#21462#28040 #20840#37096) OnChange = cxTabControl1Change ClientRectBottom = 22 diff --git a/F02染色计划单/U_DyePlanList.pas b/F02染色计划单/U_DyePlanList.pas index a2efc71..12b5c5c 100644 --- a/F02染色计划单/U_DyePlanList.pas +++ b/F02染色计划单/U_DyePlanList.pas @@ -331,15 +331,23 @@ begin case cxTabControl1.TabIndex of 0: begin - sql.Add(' and isnull(A.status,''0'') in(''0'',''9'') '); + sql.Add(' and isnull(A.status,''0'') in(''´'') '); end; 1: begin - sql.Add(' and isnull(A.status,''0'')=''10'' '); + sql.Add(' and isnull(A.status,''0'')in(''Ѽƻ'' )'); end; -// 2: + 2: + begin + sql.Add(' and isnull(A.status,''0'')in(''ѽ'' )'); + end; + 3: + begin + sql.Add(' and isnull(A.status,''0'')in(''ȡ'' )'); + end; +// 4: // begin -// sql.Add(' and isnull(A.status,''0'')=''10'' '); +// sql.Add(' and isnull(A.status,''0'')in(''ѽ'' )'); // end; end; sql.Add(' and OrdDate>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' '); diff --git a/F02染色计划单/U_DyeProcessDefin.dfm b/F02染色计划单/U_DyeProcessDefin.dfm index 131d0fe..4ce2f47 100644 --- a/F02染色计划单/U_DyeProcessDefin.dfm +++ b/F02染色计划单/U_DyeProcessDefin.dfm @@ -632,6 +632,18 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin HeaderAlignmentHorz = taCenter Width = 70 end + object Tv2Column2: TcxGridDBColumn + Tag = 2 + DataBinding.FieldName = 'PSID' + DataBinding.IsNullValueType = True + Width = 96 + end + object Tv2Column3: TcxGridDBColumn + Tag = 2 + DataBinding.FieldName = 'BCPID' + DataBinding.IsNullValueType = True + Width = 138 + end end object cxGridLevel6: TcxGridLevel GridView = Tv2 diff --git a/F02染色计划单/U_DyeProcessDefin.pas b/F02染色计划单/U_DyeProcessDefin.pas index 049f0de..485685c 100644 --- a/F02染色计划单/U_DyeProcessDefin.pas +++ b/F02染色计划单/U_DyeProcessDefin.pas @@ -796,6 +796,8 @@ type Tv4fs_use: TcxGridDBColumn; Tv5gj_use: TcxGridDBColumn; Tv6Column2: TcxGridDBColumn; + Tv2Column2: TcxGridDBColumn; + Tv2Column3: TcxGridDBColumn; procedure FormShow(Sender: TObject); procedure TBCloseClick(Sender: TObject); procedure TbSaveClick(Sender: TObject); @@ -1372,6 +1374,7 @@ begin begin maxsubid2 := Trim(CDS_2.fieldbyname('BCPID').AsString); end; + with ADOQueryCmd do begin Close; @@ -1382,7 +1385,7 @@ begin end; with ADOQueryCmd do begin - if Trim(CDS_2.fieldbyname('BCPID').AsString) = '' then + if Trim(CDS_2.fieldbyname('BCPID').AsString) = '' then begin Append; @@ -1398,6 +1401,7 @@ begin RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_2, 'Bs_Cloth_GY_Sub', 0); Post; end; + // CDS_2.Edit; // CDS_2.FieldByName('PSID').Value := Trim(maxId); // CDS_2.FieldByName('PSID').Value := Trim(maxid2); diff --git a/F02染色计划单/U_DyeTechnicsinput.pas b/F02染色计划单/U_DyeTechnicsinput.pas index 43a6b57..b6fe306 100644 --- a/F02染色计划单/U_DyeTechnicsinput.pas +++ b/F02染色计划单/U_DyeTechnicsinput.pas @@ -162,7 +162,7 @@ end; procedure TfrmDyeTechnicsinput.InitGlide(); var - maxNo: string; + maxNo, maxsubid: string; begin with ADOQueryTemp do begin @@ -212,6 +212,73 @@ begin CDS_1.FieldByName('DTMID').asstring := ''; CDS_1.Post; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(' select * from BS_Cloth_GY_Sub where PSID = ' + QuotedStr(Trim(maxNo))); + Open; + end; + ADOQueryCmd.First; + while not ADOQueryCmd.Eof do + begin + + if ADOQueryCmd.FieldByName('gytype').Value = 'ϴ' then + begin + if GetLSNo(ADOQueryTemp, maxsubid, 'CCQX', 'Bs_Cloth_GY_Sub', 5, 1) = False then + begin + Application.MessageBox('ȡˮʧܣ', 'ʾ', 0); + Exit; + end; + end + else if ADOQueryCmd.FieldByName('gytype').Value = 'Ⱦϴ' then + begin + if GetLSNo(ADOQueryTemp, maxsubid, 'RGQX', 'Bs_Cloth_GY_Sub', 5, 1) = False then + begin + Application.MessageBox('ȡˮʧܣ', 'ʾ', 0); + Exit; + end; + end + else if ADOQueryCmd.FieldByName('gytype').Value = 'ϴ' then + begin + if GetLSNo(ADOQueryTemp, maxsubid, 'JGQX', 'Bs_Cloth_GY_Sub', 5, 1) = False then + begin + Application.MessageBox('ȡˮʧܣ', 'ʾ', 0); + Exit; + end; + end + else if ADOQueryCmd.FieldByName('gytype').Value = 'ˮ' then + begin + if GetLSNo(ADOQueryTemp, maxsubid, 'FS', 'Bs_Cloth_GY_Sub', 5, 1) = False then + begin + Application.MessageBox('ȡˮʧܣ', 'ʾ', 0); + Exit; + end; + end + else if ADOQueryCmd.FieldByName('gytype').Value = 'ν' then + begin + if GetLSNo(ADOQueryTemp, maxsubid, 'GJ', 'Bs_Cloth_GY_Sub', 5, 1) = False then + begin + Application.MessageBox('ȡˮʧܣ', 'ʾ', 0); + Exit; + end; + end + else + begin + if GetLSNo(ADOQueryTemp, maxsubid, 'FP', 'Bs_Cloth_GY_Sub', 5, 1) = False then + begin + Application.MessageBox('ȡˮʧܣ', 'ʾ', 0); + Exit; + end; + end; + + + ADOQueryCmd.Edit; + ADOQueryCmd.fieldByName('BCPID').Value := maxsubid; + ADOQueryCmd.Post; + ADOQueryCmd.Next; + end; + CDS_1.next; end; end; @@ -273,7 +340,7 @@ begin Close; sql.Clear; sql.Add('select * from Dye_Technics_Main where DTMName=''' + Trim(DTMName.Text) + ''''); - sql.Add(' and DTMID <> ''' + Trim(maxno) + ''''); + sql.Add(' and DTMID <> ''' + Trim(maxno) + ''''); Open; end; if ADOQueryCmd.RecordCount > 0 then @@ -317,7 +384,7 @@ begin begin Close; SQL.Clear; - SQL.Text := 'DELETE FROM BS_Cloth_GG_Main WHERE PSID IN (' + fPSIDList + ')'; + SQL.Text := 'DELETE FROM BS_Cloth_GY_Main WHERE PSID IN (' + fPSIDList + ')'; // ShowMessage(sql.Text); try ExecSQL; @@ -330,7 +397,7 @@ begin begin Close; SQL.Clear; - SQL.Text := 'DELETE FROM BS_Cloth_GG_Sub WHERE PSID IN (' + fPSIDList + ')'; + SQL.Text := 'DELETE FROM BS_Cloth_GY_Sub WHERE PSID IN (' + fPSIDList + ')'; // ShowMessage(sql.Text); try ExecSQL; diff --git a/F04染色刷卡/DyeProcess.dproj.local b/F04染色刷卡/DyeProcess.dproj.local index 6bfb4a6..829aa13 100644 --- a/F04染色刷卡/DyeProcess.dproj.local +++ b/F04染色刷卡/DyeProcess.dproj.local @@ -1,27 +1,27 @@  + 1899/12/30 00:00:00.000.963,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutputList.pas 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899/12/30 00:00:00.000.788,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeOutputList.dfm=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCList.dfm 1899/12/30 00:00:00.000.138,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutput.pas - 1899/12/30 00:00:00.000.963,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutputList.pas + 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas 1899/12/30 00:00:00.000.811,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899/12/30 00:00:00.000.788,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCList.pas=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeOutputList.pas - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899/12/30 00:00:00.000.998,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\Unit1.pas= - 1899/12/30 00:00:00.000.788,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCList.dfm=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeOutputList.dfm 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899/12/30 00:00:00.000.326,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\DyeProcess.dproj + 1899/12/30 00:00:00.000.998,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\Unit1.pas= + 1899/12/30 00:00:00.000.788,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeOutputList.pas=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCList.pas + 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899/12/30 00:00:00.000.326,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\DyeProcess.dproj=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\InformationBase.dproj + 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas diff --git a/F04染色刷卡/DyeProcess.identcache b/F04染色刷卡/DyeProcess.identcache index 46a55f3da75fcf594ae25fade8966ce8467a5bc6..028f4fd11bd3a7af9f36cf5fc51c26e0a7451e98 100644 GIT binary patch delta 36 ucmV+<0Neke384wFTLF{013r`10g;n^13iR}F*! delta 36 ucmV+<0Neke384wFTLF`O1ACL10g;oQ0wc4E0uup~N&+2|TLC_k_yei#Eey5*