diff --git a/E04梭织坯布仓库/TatClothStk.dproj.local b/E04梭织坯布仓库/TatClothStk.dproj.local index 36e1778..9dd8eac 100644 --- a/E04梭织坯布仓库/TatClothStk.dproj.local +++ b/E04梭织坯布仓库/TatClothStk.dproj.local @@ -1,77 +1,77 @@  - 1899/12/30 00:00:00.000.782,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm - 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899/12/30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas - 1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas= - 1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm - 1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm - 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.506,=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.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.pas - 1899/12/30 00:00:00.000.339,=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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj - 1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm - 1899/12/30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.dfm - 1899/12/30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas - 1899/12/30 00:00:00.000.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.pas - 1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas - 1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas - 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas - 1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm - 1899/12/30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.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.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas - 1899/12/30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas - 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.187,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas= - 1899/12/30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm - 1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas - 1899/12/30 00:00:00.000.439,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas - 1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas= - 1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 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 - 1899/12/30 00:00:00.000.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.pas - 1899/12/30 00:00:00.000.231,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.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.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.pas= - 1899/12/30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.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.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm - 1899/12/30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas - 1899/12/30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj - 1899/12/30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.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.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas - 1899/12/30 00:00:00.000.231,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas - 1899/12/30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas - 1899/12/30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.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 - 2025/12/19 11:28:25.000.554,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothStkHZList2.pas - 2025/12/30 09:28:30.000.231,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothRKHZList2.pas - 2025/12/30 14:40:41.000.157,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothEDCDLook.pas - 2026/01/05 09:38:54.000.740,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothStkHZList3.pas - 2026/01/05 09:39:04.000.732,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothCKHZList3.pas - 2026/01/10 09:26:48.000.337,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothCRStkHZList.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas + 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899-12-30 00:00:00.000.782,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.506,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas + 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas + 1899-12-30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.pas + 1899-12-30 00:00:00.000.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj + 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899-12-30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm + 1899-12-30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm + 1899-12-30 00:00:00.000.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.pas + 1899-12-30 00:00:00.000.554,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothStkHZList2.pas + 1899-12-30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas + 1899-12-30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas + 1899-12-30 00:00:00.000.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.pas + 1899-12-30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.pas= + 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas + 1899-12-30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm + 1899-12-30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.dfm + 1899-12-30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm + 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas + 1899-12-30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas= + 1899-12-30 00:00:00.000.740,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothStkHZList3.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.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.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas + 1899-12-30 00:00:00.000.157,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothEDCDLook.pas + 1899-12-30 00:00:00.000.439,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas + 1899-12-30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas + 1899-12-30 00:00:00.000.442,=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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas= + 1899-12-30 00:00:00.000.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.pas= + 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899-12-30 00:00:00.000.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.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.231,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 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.337,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothCRStkHZList.pas + 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899-12-30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm + 1899-12-30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas= + 1899-12-30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas + 1899-12-30 00:00:00.000.732,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothCKHZList3.pas + 1899-12-30 00:00:00.000.231,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothRKHZList2.pas + 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899-12-30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas + 1899-12-30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm + 1899-12-30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm + 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899-12-30 00:00:00.000.231,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas + 1899-12-30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas + 1899-12-30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas + 1899-12-30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas= + 1899-12-30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj + 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas + 1899-12-30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas diff --git a/E04梭织坯布仓库/TatClothStk.identcache b/E04梭织坯布仓库/TatClothStk.identcache index 97dc87f..dfab23f 100644 Binary files a/E04梭织坯布仓库/TatClothStk.identcache and b/E04梭织坯布仓库/TatClothStk.identcache differ diff --git a/E04梭织坯布仓库/U_TatClothCKHZList.dfm b/E04梭织坯布仓库/U_TatClothCKHZList.dfm index e702869..26e706a 100644 --- a/E04梭织坯布仓库/U_TatClothCKHZList.dfm +++ b/E04梭织坯布仓库/U_TatClothCKHZList.dfm @@ -2,13 +2,13 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList Left = 184 Top = 138 Caption = #25104#21697#20986#24211#27719#24635#21015#34920 - ClientHeight = 600 + ClientHeight = 621 ClientWidth = 1540 FormStyle = fsMDIChild Position = poScreenCenter Visible = True ExplicitWidth = 1556 - ExplicitHeight = 639 + ExplicitHeight = 660 PixelsPerInch = 96 TextHeight = 12 object ToolBar1: TToolBar [0] @@ -77,7 +77,6 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList Color = clWhite ParentBackground = False TabOrder = 1 - ExplicitTop = 32 object Label2: TLabel Left = 70 Top = 36 @@ -232,9 +231,9 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList TabOrder = 6 OnKeyPress = C_NameKeyPress end - object ToCoName: TEdit + object CoName: TEdit Tag = 2 - Left = 534 + Left = 532 Top = 6 Width = 100 Height = 20 @@ -267,7 +266,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList Left = 0 Top = 105 Width = 1540 - Height = 495 + Height = 516 ActivePage = TabSheet1 Align = alClient Font.Charset = GB2312_CHARSET @@ -278,13 +277,14 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList ParentFont = False Style = tsFlatButtons TabOrder = 2 + ExplicitHeight = 495 object TabSheet1: TTabSheet Caption = #26377#20986#24211#21333#20986#24211 object cxGrid1: TcxGrid Left = 0 Top = 0 Width = 1532 - Height = 457 + Height = 478 Align = alClient BorderStyle = cxcbsNone Font.Charset = GB2312_CHARSET @@ -295,6 +295,9 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList ParentFont = False PopupMenu = PM_1 TabOrder = 0 + ExplicitLeft = -72 + ExplicitTop = 72 + ExplicitHeight = 457 object Tv1: TcxGridDBTableView OnDblClick = Tv1DblClick Navigator.Buttons.CustomButtons = <> @@ -442,7 +445,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList Left = 0 Top = 0 Width = 1532 - Height = 457 + Height = 478 Align = alClient BorderStyle = cxcbsNone Font.Charset = GB2312_CHARSET @@ -451,11 +454,9 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList Font.Name = #23435#20307 Font.Style = [] ParentFont = False - PopupMenu = PM_1 + PopupMenu = PM_4 TabOrder = 0 - ExplicitTop = 111 - ExplicitWidth = 1540 - ExplicitHeight = 495 + ExplicitHeight = 457 object Tv4: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -520,6 +521,10 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList item Kind = skSum Column = cxGridDBColumn17 + end + item + Kind = skSum + Column = Tv4amount end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False @@ -556,7 +561,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 92 + Width = 94 end object Tv1ToCoName: TcxGridDBColumn Caption = #23458#25143 @@ -630,6 +635,20 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList Options.Editing = False Width = 80 end + object Tv4PFPrice: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'PFPrice' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv4amount: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'amount' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end end object cxGridLevel3: TcxGridLevel GridView = Tv4 @@ -643,7 +662,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList Left = 0 Top = 0 Width = 1532 - Height = 457 + Height = 478 Align = alClient BorderStyle = cxcbsNone Font.Charset = GB2312_CHARSET @@ -654,6 +673,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList ParentFont = False PopupMenu = PM_2 TabOrder = 0 + ExplicitHeight = 457 object Tv2: TcxGridDBTableView OnDblClick = Tv2DblClick Navigator.Buttons.CustomButtons = <> @@ -794,7 +814,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList Left = 0 Top = 0 Width = 1532 - Height = 457 + Height = 478 Align = alClient BorderStyle = cxcbsNone Font.Charset = GB2312_CHARSET @@ -805,6 +825,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList ParentFont = False PopupMenu = PM_3 TabOrder = 0 + ExplicitHeight = 457 object Tv3: TcxGridDBTableView OnDblClick = Tv3DblClick Navigator.Buttons.CustomButtons = <> @@ -970,8 +991,8 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList object GPM_1: TcxGridPopupMenu Grid = cxGrid1 PopupMenus = <> - Left = 400 - Top = 384 + Left = 408 + Top = 368 end object CDS_1: TClientDataSet Aggregates = <> @@ -1015,8 +1036,8 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList object GPM_2: TcxGridPopupMenu Grid = cxGrid2 PopupMenus = <> - Left = 488 - Top = 392 + Left = 480 + Top = 368 end object PM_2: TPopupMenu Left = 424 @@ -1105,8 +1126,8 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList object GPM_3: TcxGridPopupMenu Grid = cxGrid3 PopupMenus = <> - Left = 592 - Top = 304 + Left = 536 + Top = 368 end object GPM_4: TcxGridPopupMenu Grid = cxGrid4 diff --git a/E04梭织坯布仓库/U_TatClothCKHZList.pas b/E04梭织坯布仓库/U_TatClothCKHZList.pas index 87f02ea..fedf484 100644 --- a/E04梭织坯布仓库/U_TatClothCKHZList.pas +++ b/E04梭织坯布仓库/U_TatClothCKHZList.pas @@ -43,7 +43,7 @@ type Label1: TLabel; DRMID: TEdit; Label3: TLabel; - ToCoName: TEdit; + CoName: TEdit; Label6: TLabel; C_Width: TEdit; Label7: TLabel; @@ -122,6 +122,8 @@ type MenuItem12: TMenuItem; GPM_3: TcxGridPopupMenu; GPM_4: TcxGridPopupMenu; + Tv4PFPrice: TcxGridDBColumn; + Tv4amount: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -138,7 +140,6 @@ type procedure cxPageControl1Change(Sender: TObject); procedure CDS_1BeforeOpen(DataSet: TDataSet); procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); - procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); procedure ToolButton4Click(Sender: TObject); procedure PM11Click(Sender: TObject); @@ -233,12 +234,13 @@ begin sql.Add('SELECT A.C_CODE,A.C_Name,A.C_GramWeight,DRMID = '''' '); // sql.Add(',B.ToCoID '); -// sql.Add(',COName = (select COName from BS_Company X where X.CoID = B.ToCoID)'); +// sql.Add(',COName = '''' '); sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight) '); // sql.Add(',pf = CAST(A.C_Width AS DECIMAL(18,2))/100*sum(A.meter) '); SQL.Add(',issp=isnull(A.issp,'''') '); sql.Add(' FROM V_Tat_Cloth_IO A '); sql.Add(' left JOIN Tat_Cloth_DR_Main B on A.IONo = B.DRMID '); + sql.Add(' left join BS_Company D on D.CoID = B.ToCoID '); sql.Add(' where A.IONo LIKE ''RSG%'' and A.IOFlag = '''' '); sql.Add(WSql); if canshu1 = 'ҵ' then @@ -249,7 +251,7 @@ begin // ,B.ToCoID SQL.Add(' order by A.C_CODE ,A.C_GramWeight'); -// showmessage(sql.text); + showmessage(sql.text); Open; end; SCreateCDS(ADOQueryMain, CDS_1); @@ -286,16 +288,17 @@ begin sql.Clear; sql.Add('SELECT A.C_CODE,A.C_Name,A.C_GramWeight '); // sql.Add(',ioType=max(A.ioType) '); + sql.Add(',COName = '''' '); sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight) '); sql.Add(' ,ISNULL(A.issp, '''') as issp '); sql.Add(' FROM V_Tat_Cloth_IO A '); sql.Add(' left JOIN Tat_Cloth_DR_Main B on A.IONo = B.DRMID '); + sql.Add(' left join BS_Company D on D.CoID = B.ToCoID '); sql.Add(' where A.IONo not LIKE ''RSG%'' and A.IOFlag = '''' '); sql.Add(WSql); SQL.Add(' group by A.C_CODE ,A.C_GramWeight,A.C_Name,ISNULL(A.issp, '''')'); SQL.Add(' order By A.C_CODE ,A.C_GramWeight'); // SQL.Add(' order by B.DRMID'); - // showmessage(sql.text); Open; end; @@ -340,6 +343,7 @@ begin // SQL.Add(',issp=isnull(A.issp,'''') '); sql.Add(' FROM V_Tat_Cloth_IO A '); sql.Add(' left JOIN Tat_Cloth_DR_Main B on A.IONo = B.DRMID '); + sql.Add(' left join BS_Company D on D.CoID = B.ToCoID '); sql.Add(' where A.IONo LIKE ''RSG%'' and A.IOFlag = '''' '); sql.Add(WSql); if canshu1 = 'ҵ' then @@ -385,25 +389,28 @@ begin sql.Clear; sql.Add('SELECT A.C_CODE,A.C_Name,A.C_width,A.C_GramWeight,A.IONO as DRMID'); - sql.Add(',CAST(ioTime AS DATE) as ioTime '); - sql.Add(', (SELECT COName FROM BS_Company X WHERE X.CoID = B.ToCoID) as COName'); + sql.Add(',CAST(ioTime AS DATE) as ioTime, C.PFPrice, (CAST(A.C_Width AS DECIMAL(18,2))/100 * SUM(A.meter) * C.PFPrice) as amount'); +// sql.Add(', (SELECT COName FROM BS_Company X WHERE X.CoID = B.ToCoID) as COName'); + sql.Add(', D.COName '); sql.Add(' ,COUNT(*) as js, SUM(A.meter) as Meter,SUM(A.NetWeight) as NetWeight '); sql.Add(', CAST(A.C_Width AS DECIMAL(18,2))/100 * SUM(A.meter) as pf'); SQL.Add(',ISNULL(A.issp, '''') as issp '); sql.Add(' FROM V_Tat_Cloth_IO A '); sql.Add(' left JOIN Tat_Cloth_DR_Main B on A.IONo = B.DRMID '); + Sql.Add(' left JOIN Tat_Cloth_DR_Sub C on B.DRMID = C.DRMID and C.C_CODE=A.C_CODE and C.C_width=A.C_width and C.C_GramWeight=A.C_GramWeight '); + sql.Add(' left join BS_Company D on D.CoID = B.ToCoID '); sql.Add(' where A.IONo LIKE ''RSG%'' and A.IOFlag = '''' '); // sql.Add(' and (select COName from BS_Company X where X.CoAbbrName = max(B.ToCoName))= ' + QuotedStr(Trim(fconame))); // sql.Add(' and A.C_Name = ' + QuotedStr(Trim(fC_Name))); -//// sql.Add(' and B.ToCoID = ' + QuotedStr(Trim(fToCoID))); +// sql.Add(' and B.ToCoID = ' + QuotedStr(Trim(fToCoID))); // sql.Add(' and isnull(A.issp,'''') = ' + QuotedStr(Trim(fissp))); sql.Add(WSql); - SQL.Add(' group by A.C_CODE,A.C_width,A.C_GramWeight,A.IONO,A.C_Name,isnull(A.issp,''''),B.ToCoID,CAST(ioTime AS DATE)'); + SQL.Add(' group by A.C_CODE,A.C_width,A.C_GramWeight,A.IONO,A.C_Name,isnull(A.issp,''''),B.ToCoID, D.COName,CAST(ioTime AS DATE),C.PFPrice'); // sql.Add(' HAVING(select COName from BS_Company X where X.CoAbbrName = max(B.ToCoName))= ' + QuotedStr(Trim(fconame))); - SQL.Add(' order by A.IONO,A.C_CODE,CAST(A.C_width AS INT),A.C_GramWeight,CAST(ioTime AS DATE)'); + SQL.Add(' order by A.IONO,A.C_CODE,CAST(A.C_width AS INT),A.C_GramWeight,CAST(ioTime AS DATE) '); -// showmessage(sql.text); +// showmessage(sql.text); Open; end; SCreateCDS(ADOQueryMain, CDS_4); diff --git a/E04梭织坯布仓库/U_TatClothInList.dfm b/E04梭织坯布仓库/U_TatClothInList.dfm index 7f3f175..76e19f9 100644 --- a/E04梭织坯布仓库/U_TatClothInList.dfm +++ b/E04梭织坯布仓库/U_TatClothInList.dfm @@ -102,7 +102,6 @@ inherited frmTatClothInList: TfrmTatClothInList Color = clWhite ParentBackground = False TabOrder = 1 - ExplicitTop = 39 object Label2: TLabel Left = 70 Top = 36 @@ -459,8 +458,10 @@ inherited frmTatClothInList: TfrmTatClothInList Items.Strings = ( '' #26816#39564#20837#24211 - #38144#21806#20986#24211 - #26399#21021#20837#24211) + #36864#36135#20837#24211 + #26399#21021#20837#24211 + #27979#35797#20837#24211 + #21253#35013#20837#24211) end object Grade: TEdit Tag = 2 diff --git a/E04梭织坯布仓库/U_TatDRList.dfm b/E04梭织坯布仓库/U_TatDRList.dfm index 596f371..49272a7 100644 --- a/E04梭织坯布仓库/U_TatDRList.dfm +++ b/E04梭织坯布仓库/U_TatDRList.dfm @@ -3,13 +3,13 @@ inherited frmTatDRList: TfrmTatDRList Top = 16 BorderStyle = bsNone Caption = #21457#36135#30003#35831 - ClientHeight = 594 + ClientHeight = 792 ClientWidth = 1465 FormStyle = fsMDIChild Position = poScreenCenter Visible = True ExplicitWidth = 1481 - ExplicitHeight = 633 + ExplicitHeight = 831 PixelsPerInch = 96 TextHeight = 12 object ToolBar1: TToolBar [0] @@ -99,16 +99,24 @@ inherited frmTatDRList: TfrmTatDRList ImageIndex = 3 OnClick = TBEditClick end - object TBPrint: TToolButton + object TbEditPFPrice: TToolButton Left = 616 Top = 0 AutoSize = True + Caption = #20462#25913#21333#20215 + ImageIndex = 3 + OnClick = TbEditPFPriceClick + end + object TBPrint: TToolButton + Left = 711 + Top = 0 + AutoSize = True Caption = #25171#21360 ImageIndex = 21 OnClick = TBPrintClick end object ToolButton2: TToolButton - Left = 687 + Left = 782 Top = 0 AutoSize = True Caption = #30721#21333#25171#21360 @@ -116,7 +124,7 @@ inherited frmTatDRList: TfrmTatDRList OnClick = ToolButton2Click end object ToolButton3: TToolButton - Left = 782 + Left = 877 Top = 0 AutoSize = True Caption = #21462#28040 @@ -124,7 +132,7 @@ inherited frmTatDRList: TfrmTatDRList OnClick = ToolButton3Click end object tchk: TToolButton - Left = 853 + Left = 948 Top = 0 AutoSize = True Caption = #23457#26680 @@ -180,16 +188,24 @@ inherited frmTatDRList: TfrmTatDRList ImageIndex = 20 OnClick = TBExportClick end - object ToolButton7: TToolButton + object TbMXExport: TToolButton Left = 498 Top = 38 AutoSize = True + Caption = #23548#20986#26126#32454 + ImageIndex = 20 + OnClick = TbMXExportClick + end + object ToolButton7: TToolButton + Left = 593 + Top = 38 + AutoSize = True Caption = #19968#38190#21457#36135 ImageIndex = 12 OnClick = ToolButton7Click end object ToolButton6: TToolButton - Left = 593 + Left = 688 Top = 38 AutoSize = True Caption = #20445#23384#26684#24335 @@ -197,7 +213,7 @@ inherited frmTatDRList: TfrmTatDRList OnClick = ToolButton6Click end object ToolButton5: TToolButton - Left = 688 + Left = 783 Top = 38 AutoSize = True Caption = #25764#38144#21462#28040 @@ -205,7 +221,7 @@ inherited frmTatDRList: TfrmTatDRList OnClick = ToolButton5Click end object TBClose: TToolButton - Left = 783 + Left = 878 Top = 38 AutoSize = True Caption = #20851#38381 @@ -213,7 +229,7 @@ inherited frmTatDRList: TfrmTatDRList OnClick = TBCloseClick end object ToolButton8: TToolButton - Left = 854 + Left = 949 Top = 38 AutoSize = True Caption = #36135#26410#21457#20840 @@ -221,264 +237,7 @@ inherited frmTatDRList: TfrmTatDRList OnClick = ToolButton8Click end end - object cxGrid1: TcxGrid [1] - Left = 0 - Top = 142 - Width = 1465 - Height = 222 - Align = alClient - PopupMenu = PM_1 - TabOrder = 3 - object Tv1: TcxGridDBTableView - Navigator.Buttons.CustomButtons = <> - ScrollbarAnnotations.CustomAnnotations = <> - OnCustomDrawCell = Tv1CustomDrawCell - OnFocusedRecordChanged = Tv1FocusedRecordChanged - DataController.DataSource = DataSource1 - DataController.Filter.AutoDataSetFilter = True - DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] - DataController.Summary.DefaultGroupSummaryItems = < - item - Kind = skSum - Position = spFooter - end - item - Kind = skSum - Position = spFooter - end - item - Kind = skSum - Position = spFooter - end - item - Kind = skSum - Position = spFooter - end - item - Kind = skSum - Position = spFooter - end - item - Kind = skSum - Position = spFooter - end - item - Kind = skSum - Position = spFooter - end - item - Kind = skSum - Position = spFooter - end - item - Kind = skSum - Position = spFooter - end - item - Kind = skSum - Position = spFooter - end - item - Kind = skSum - Position = spFooter - end> - DataController.Summary.FooterSummaryItems = <> - DataController.Summary.SummaryGroups = <> - OptionsCustomize.ColumnFiltering = False - OptionsView.CellAutoHeight = True - OptionsView.Footer = True - OptionsView.GroupByBox = False - OptionsView.GroupFooters = gfAlwaysVisible - OptionsView.IndicatorWidth = 30 - object v1Column4: TcxGridDBColumn - Caption = #36873#25321 - DataBinding.FieldName = 'SSel' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxCheckBoxProperties' - Properties.ImmediatePost = True - Properties.MultiLine = True - Properties.NullStyle = nssUnchecked - Properties.OnChange = v1Column4PropertiesChange - HeaderAlignmentHorz = taCenter - Width = 49 - end - object Tv1OverTime: TcxGridDBColumn - Caption = #21457#36135#29366#24577 - DataBinding.FieldName = 'OverTime' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxTextEditProperties' - OnCustomDrawCell = Tv1OverTimeCustomDrawCell - HeaderAlignmentHorz = taCenter - Styles.OnGetContentStyle = Tv1FlagStylesGetContentStyle - Width = 80 - end - object Tv1CheckEdit: TcxGridDBColumn - Caption = #23457#26680#20462#25913 - DataBinding.FieldName = 'CheckEdit' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Styles.OnGetContentStyle = Tv1CheckEditStylesGetContentStyle - Width = 80 - end - object Tv1CheckEditTime: TcxGridDBColumn - Caption = #23457#26680#20462#25913#26102#38388 - DataBinding.FieldName = 'CheckEditTime' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object v1Column8: TcxGridDBColumn - Caption = #30003#35831#21333#21495 - DataBinding.FieldName = 'DRMID' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 93 - end - object v1OrdDate: TcxGridDBColumn - Caption = #30331#35760#26085#26399 - DataBinding.FieldName = 'Filltime' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxDateEditProperties' - Properties.ShowTime = False - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.Focusing = False - Width = 85 - end - object v1Column27: TcxGridDBColumn - Caption = #21457#36135#26085#26399 - DataBinding.FieldName = 'DlyDate' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 69 - end - object Tv1ToCoName: TcxGridDBColumn - Caption = #23458#25143 - DataBinding.FieldName = 'ToCoName' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 124 - end - object Tv1CoName: TcxGridDBColumn - Caption = #23458#25143 - DataBinding.FieldName = 'CoName' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 139 - end - object Tv1Saleser: TcxGridDBColumn - Caption = #19994#21153#21592 - DataBinding.FieldName = 'Saleser' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv1Contacts: TcxGridDBColumn - Caption = #32852#31995#20154 - DataBinding.FieldName = 'Contacts' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv1Telephone: TcxGridDBColumn - Caption = #32852#31995#30005#35805 - DataBinding.FieldName = 'Telephone' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 91 - end - object v1Column1: TcxGridDBColumn - Caption = #30003#35831#20154 - DataBinding.FieldName = 'Filler' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object v1Column13: TcxGridDBColumn - Caption = #23457#26680#20154 - DataBinding.FieldName = 'Chker' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 65 - end - object v1Column17: TcxGridDBColumn - Caption = #23457#26680#26085#26399 - DataBinding.FieldName = 'ChkTime' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object v1Column7: TcxGridDBColumn - Caption = #22791#27880 - DataBinding.FieldName = 'Note' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxTextEditProperties' - Properties.OnEditValueChanged = v1Column7PropertiesEditValueChanged - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 70 - end - object Tv1CoAddress: TcxGridDBColumn - Caption = #25910#36135#22320#22336 - DataBinding.FieldName = 'CoAddress' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 384 - end - object Tv1Column2: TcxGridDBColumn - Caption = #23436#25104#22791#27880 - DataBinding.FieldName = 'wcnote' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 128 - end - object Tv1Column6: TcxGridDBColumn - Caption = #23436#25104#20154 - DataBinding.FieldName = 'Comper' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 67 - end - object Tv1Column3: TcxGridDBColumn - Caption = #32440#31649 - DataBinding.FieldName = 'tube' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 68 - end - object Tv1Column4: TcxGridDBColumn - Caption = #21253#35013#34955 - DataBinding.FieldName = 'Packaging' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 70 - end - object Tv1Column5: TcxGridDBColumn - Caption = #33136#23553 - DataBinding.FieldName = 'Seal' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 70 - end - object Tv1sselJS: TcxGridDBColumn - DataBinding.FieldName = 'sselJS' - DataBinding.IsNullValueType = True - Visible = False - HeaderAlignmentHorz = taCenter - Width = 80 - end - end - object cxGrid1Level1: TcxGridLevel - GridView = Tv1 - end - end - object Panel1: TPanel [2] + object Panel1: TPanel [1] Left = 0 Top = 76 Width = 1465 @@ -694,7 +453,7 @@ inherited frmTatDRList: TfrmTatDRList OnClick = TbNowDayClick end end - object cxTabControl1: TcxTabControl [3] + object cxTabControl1: TcxTabControl [2] Left = 0 Top = 121 Width = 1465 @@ -714,196 +473,726 @@ inherited frmTatDRList: TfrmTatDRList ClientRectRight = 0 ClientRectTop = 0 end - object cxSplitter1: TcxSplitter [4] + object cxSplitter1: TcxSplitter [3] Left = 0 - Top = 364 + Top = 784 Width = 1465 Height = 8 HotZoneClassName = 'TcxMediaPlayer9Style' AlignSplitter = salBottom - Control = cxGrid2 end - object cxGrid2: TcxGrid [5] + object PageControl1: TPageControl [4] Left = 0 - Top = 372 + Top = 142 Width = 1465 - Height = 222 - Align = alBottom - PopupMenu = PM_2 - TabOrder = 5 - object TV2: TcxGridDBTableView - Navigator.Buttons.CustomButtons = <> - ScrollbarAnnotations.CustomAnnotations = <> - DataController.DataSource = DS_2 - DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] - DataController.Summary.DefaultGroupSummaryItems = < - item - Format = '0' - Position = spFooter + Height = 642 + ActivePage = TabSheet1 + Align = alClient + TabOrder = 4 + OnChange = PageControl1Change + object TabSheet1: TTabSheet + Caption = ' '#27719#24635 + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1457 + Height = 337 + Align = alClient + PopupMenu = PM_1 + TabOrder = 0 + object TV1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + OnCustomDrawCell = TV1CustomDrawCell + OnFocusedRecordChanged = TV1FocusedRecordChanged + DataController.DataSource = DataSource1 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.CellAutoHeight = True + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.GroupFooters = gfAlwaysVisible + OptionsView.IndicatorWidth = 30 + object v1Column4: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.MultiLine = True + Properties.NullStyle = nssUnchecked + Properties.OnChange = v1Column4PropertiesChange + HeaderAlignmentHorz = taCenter + Width = 49 + end + object cxgrdbclmnTV11OverTime: TcxGridDBColumn + Caption = #21457#36135#29366#24577 + DataBinding.FieldName = 'OverTime' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + OnCustomDrawCell = cxgrdbclmnTV11OverTimeCustomDrawCell + HeaderAlignmentHorz = taCenter + Styles.OnGetContentStyle = Tv1FlagStylesGetContentStyle + Width = 80 + end + object Tv1CheckEdit: TcxGridDBColumn + Caption = #23457#26680#20462#25913 + DataBinding.FieldName = 'CheckEdit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Styles.OnGetContentStyle = Tv1CheckEditStylesGetContentStyle + Width = 80 + end + object cxgrdbclmnTV11CheckEditTime: TcxGridDBColumn + Caption = #23457#26680#20462#25913#26102#38388 + DataBinding.FieldName = 'CheckEditTime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column8: TcxGridDBColumn + Caption = #30003#35831#21333#21495 + DataBinding.FieldName = 'DRMID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object v1OrdDate: TcxGridDBColumn + Caption = #30331#35760#26085#26399 + DataBinding.FieldName = 'Filltime' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Focusing = False + Width = 85 + end + object Tv1DlyDate: TcxGridDBColumn + Caption = #21457#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 69 + end + object TV1ToCoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'ToCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 124 + end + object TV1CoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 139 + end + object TV1Saleser: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'Saleser' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object TV1Contacts: TcxGridDBColumn + Caption = #32852#31995#20154 + DataBinding.FieldName = 'Contacts' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object TV1Telephone: TcxGridDBColumn + Caption = #32852#31995#30005#35805 + DataBinding.FieldName = 'Telephone' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 91 + end + object Tv1Filler: TcxGridDBColumn + Caption = #30003#35831#20154 + DataBinding.FieldName = 'Filler' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Chker: TcxGridDBColumn + Caption = #23457#26680#20154 + DataBinding.FieldName = 'Chker' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object Tv1ChkTime: TcxGridDBColumn + Caption = #23457#26680#26085#26399 + DataBinding.FieldName = 'ChkTime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Note: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column7PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object Tv1CoAddress: TcxGridDBColumn + Caption = #25910#36135#22320#22336 + DataBinding.FieldName = 'CoAddress' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 384 + end + object Tv1wcnote: TcxGridDBColumn + Caption = #23436#25104#22791#27880 + DataBinding.FieldName = 'wcnote' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 128 + end + object Tv1Comper: TcxGridDBColumn + Caption = #23436#25104#20154 + DataBinding.FieldName = 'Comper' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 67 + end + object Tv1tube: TcxGridDBColumn + Caption = #32440#31649 + DataBinding.FieldName = 'tube' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 68 + end + object Tv1Packaging: TcxGridDBColumn + Caption = #21253#35013#34955 + DataBinding.FieldName = 'Packaging' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Seal: TcxGridDBColumn + Caption = #33136#23553 + DataBinding.FieldName = 'Seal' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1sselJS: TcxGridDBColumn + DataBinding.FieldName = 'sselJS' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Width = 80 + end + object TV1CheckEditPiece: TcxGridDBColumn + Caption = #20462#25913#21069#21367#25968 + DataBinding.FieldName = 'CheckEditPiece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end end - item - Format = '0' - Position = spFooter + object cxGrid1Level1: TcxGridLevel + GridView = TV1 end - item - Format = '0' - Position = spFooter - end> - DataController.Summary.FooterSummaryItems = < - item - Kind = skSum - Column = TV2Column2 + end + object cxGrid2: TcxGrid + Left = 0 + Top = 337 + Width = 1457 + Height = 277 + Align = alBottom + PopupMenu = PM_2 + TabOrder = 1 + ExplicitLeft = 3 + ExplicitTop = 335 + object TV2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = TV2Column2 + end + item + Kind = skSum + Column = cxGridDBColumn7 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object cxGridDBColumn3: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object v1Column6: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object TV2issp: TcxGridDBColumn + Caption = #21452#21943 + DataBinding.FieldName = 'issp' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object TV2Column4: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'C_width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 66 + end + object TV2Column5: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 67 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #30003#35831#21367#25968 + DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object cv1Column3: TcxGridDBColumn + Caption = #27599#21367#31859#25968 + DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end + object TV2Column7: TcxGridDBColumn + Caption = #30003#35831#24179#26041 + DataBinding.FieldName = 'pingfang' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 66 + end + object TV2PFPrice: TcxGridDBColumn + Caption = #24179#26041#21333#20215 + DataBinding.FieldName = 'PFPrice' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object TV2Column1: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object TV2Column2: TcxGridDBColumn + Caption = #21457#36135#21305#25968 + DataBinding.FieldName = 'DlyPiece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object TV2Column3: TcxGridDBColumn + Caption = #21457#36135#31859#25968 + DataBinding.FieldName = 'DlyQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object TV2Column6: TcxGridDBColumn + Caption = #21457#36135#37325#37327 + DataBinding.FieldName = 'DLYKGQTY' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object TV2Volume: TcxGridDBColumn + Caption = #37197#36135#30003#35831#21367#25968 + DataBinding.FieldName = 'Volume' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 102 + end + object TV2Applicant: TcxGridDBColumn + Caption = #30003#35831#20154 + DataBinding.FieldName = 'Applicant' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object TV2ApplicationReaon: TcxGridDBColumn + Caption = #37197#36135#30003#35831#21407#22240 + DataBinding.FieldName = 'ApplicationReaon' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object TV2editStatus: TcxGridDBColumn + Caption = #20462#25913#29366#24577 + DataBinding.FieldName = 'editStatus' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 87 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 end - item - Kind = skSum - Column = cxGridDBColumn7 - end> - DataController.Summary.SummaryGroups = <> - OptionsBehavior.FocusCellOnTab = True - OptionsBehavior.GoToNextCellOnEnter = True - OptionsBehavior.FocusCellOnCycle = True - OptionsCustomize.ColumnFiltering = False - OptionsData.Editing = False - OptionsView.Footer = True - OptionsView.GroupByBox = False - object cxGridDBColumn3: TcxGridDBColumn - Caption = #20135#21697#32534#21495 - DataBinding.FieldName = 'C_Code' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 88 - end - object v1Column6: TcxGridDBColumn - Caption = #20135#21697#21517#31216 - DataBinding.FieldName = 'C_Name' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 71 - end - object TV2issp: TcxGridDBColumn - Caption = #21452#21943 - DataBinding.FieldName = 'issp' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object cxGridDBColumn4: TcxGridDBColumn - Caption = #39068#33394 - DataBinding.FieldName = 'C_Color' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 73 - end - object TV2Column4: TcxGridDBColumn - Caption = #38376#24133 - DataBinding.FieldName = 'C_width' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 66 - end - object TV2Column5: TcxGridDBColumn - Caption = #20811#37325 - DataBinding.FieldName = 'C_GramWeight' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 67 - end - object cxGridDBColumn7: TcxGridDBColumn - Caption = #30003#35831#21367#25968 - DataBinding.FieldName = 'Piece' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 81 - end - object cv1Column3: TcxGridDBColumn - Caption = #27599#21367#31859#25968 - DataBinding.FieldName = 'Qty' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxTextEditProperties' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 90 - end - object TV2Column7: TcxGridDBColumn - Caption = #30003#35831#24179#26041 - DataBinding.FieldName = 'pingfang' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 66 - end - object TV2PFPrice: TcxGridDBColumn - Caption = #24179#26041#21333#20215 - DataBinding.FieldName = 'PFPrice' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object TV2Column1: TcxGridDBColumn - Caption = #25968#37327#21333#20301 - DataBinding.FieldName = 'QtyUnit' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object TV2Column2: TcxGridDBColumn - Caption = #21457#36135#21305#25968 - DataBinding.FieldName = 'DlyPiece' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 70 - end - object TV2Column3: TcxGridDBColumn - Caption = #21457#36135#31859#25968 - DataBinding.FieldName = 'DlyQty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object TV2Column6: TcxGridDBColumn - Caption = #21457#36135#37325#37327 - DataBinding.FieldName = 'DLYKGQTY' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 70 - end - object TV2Volume: TcxGridDBColumn - Caption = #37197#36135#30003#35831#21367#25968 - DataBinding.FieldName = 'Volume' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 102 - end - object TV2Applicant: TcxGridDBColumn - Caption = #30003#35831#20154 - DataBinding.FieldName = 'Applicant' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object TV2ApplicationReaon: TcxGridDBColumn - Caption = #37197#36135#30003#35831#21407#22240 - DataBinding.FieldName = 'ApplicationReaon' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object TV2editStatus: TcxGridDBColumn - Caption = #20462#25913#29366#24577 - DataBinding.FieldName = 'editStatus' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 87 end end - object cxGridLevel1: TcxGridLevel - GridView = TV2 + object TabSheet2: TTabSheet + Caption = ' '#26126#32454 + ImageIndex = 1 + object cxGrid3: TcxGrid + Left = 0 + Top = 0 + Width = 1457 + Height = 614 + Align = alClient + PopupMenu = pm_3 + TabOrder = 0 + object TV3: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_3 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn15 + end + item + Kind = skSum + Column = cxGridDBColumn10 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object TV3ssel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'ssel' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 49 + end + object TV3DRMID: TcxGridDBColumn + Caption = #30003#35831#21333#21495 + DataBinding.FieldName = 'DRMID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object TV3Filltime: TcxGridDBColumn + Caption = #30331#35760#26085#26399 + DataBinding.FieldName = 'Filltime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object TV3DlyDate: TcxGridDBColumn + Caption = #21457#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object TV3Saleser: TcxGridDBColumn + Caption = #19994#21153#21592 + DataBinding.FieldName = 'Saleser' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object TV3ToCoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'ToCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object cxGridDBColumn1: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21452#21943 + DataBinding.FieldName = 'issp' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 73 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'C_width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 67 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #30003#35831#21367#25968 + DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 81 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #27599#21367#31859#25968 + DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #30003#35831#24179#26041 + DataBinding.FieldName = 'pingfang' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #24179#26041#21333#20215 + DataBinding.FieldName = 'PFPrice' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #25968#37327#21333#20301 + DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #21457#36135#21305#25968 + DataBinding.FieldName = 'DlyPiece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #21457#36135#31859#25968 + DataBinding.FieldName = 'DlyQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #21457#36135#37325#37327 + DataBinding.FieldName = 'DLYKGQTY' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #37197#36135#30003#35831#21367#25968 + DataBinding.FieldName = 'Volume' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 102 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #30003#35831#20154 + DataBinding.FieldName = 'Applicant' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #37197#36135#30003#35831#21407#22240 + DataBinding.FieldName = 'ApplicationReaon' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn21: TcxGridDBColumn + Caption = #20462#25913#29366#24577 + DataBinding.FieldName = 'editStatus' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object TV3Contacts: TcxGridDBColumn + Caption = #32852#31995#20154 + DataBinding.FieldName = 'Contacts' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object TV3Telephone: TcxGridDBColumn + Caption = #32852#31995#30005#35805 + DataBinding.FieldName = 'Telephone' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGridLevel2: TcxGridLevel + GridView = TV3 + end + end end end inherited ADOQueryBaseCmd: TADOQuery @@ -913,14 +1202,14 @@ inherited frmTatDRList: TfrmTatDRList end inherited ADOQueryBaseTemp: TADOQuery Connection = DataLink_TatClothStk.ADOLink - Left = 73 - Top = 161 + Left = 153 + Top = 233 end - object cxGridPopupMenu1: TcxGridPopupMenu + object GPM_1: TcxGridPopupMenu Grid = cxGrid1 PopupMenus = <> - Left = 592 - Top = 208 + Left = 512 + Top = 304 end object ADOQueryCmd: TADOQuery Connection = DataLink_TatClothStk.ADOLink @@ -932,15 +1221,15 @@ inherited frmTatDRList: TfrmTatDRList Connection = DataLink_TatClothStk.ADOLink LockType = ltReadOnly Parameters = <> - Left = 560 - Top = 160 + Left = 552 + Top = 168 end object ADOQueryTemp: TADOQuery Connection = DataLink_TatClothStk.ADOLink LockType = ltReadOnly Parameters = <> - Left = 688 - Top = 152 + Left = 672 + Top = 160 end object DataSource1: TDataSource DataSet = Order_Main @@ -954,11 +1243,11 @@ inherited frmTatDRList: TfrmTatDRList Top = 184 end object DS_2: TDataSource - DataSet = ClientDataSet2 + DataSet = CDS_2 Left = 352 Top = 600 end - object ClientDataSet2: TClientDataSet + object CDS_2: TClientDataSet Aggregates = <> Params = <> Left = 272 @@ -1002,11 +1291,11 @@ inherited frmTatDRList: TfrmTatDRList OnClick = N2Click end end - object cxGridPopupMenu2: TcxGridPopupMenu - Grid = cxGrid2 + object GPM_3: TcxGridPopupMenu + Grid = cxGrid3 PopupMenus = <> - Left = 513 - Top = 208 + Left = 1233 + Top = 408 end object PM_2: TPopupMenu Left = 368 @@ -1016,4 +1305,31 @@ inherited frmTatDRList: TfrmTatDRList OnClick = N3Click end end + object pm_3: TPopupMenu + Left = 1260 + Top = 350 + object N4: TMenuItem + Caption = #20840#36873 + OnClick = N4Click + end + object N5: TMenuItem + Caption = #20840#24323 + OnClick = N5Click + end + object N6: TMenuItem + Caption = #22797#21046 + OnClick = N6Click + end + end + object CDS_3: TClientDataSet + Aggregates = <> + Params = <> + Left = 1108 + Top = 350 + end + object DS_3: TDataSource + DataSet = CDS_3 + Left = 1212 + Top = 350 + end end diff --git a/E04梭织坯布仓库/U_TatDRList.pas b/E04梭织坯布仓库/U_TatDRList.pas index 86472ae..1f37a34 100644 --- a/E04梭织坯布仓库/U_TatDRList.pas +++ b/E04梭织坯布仓库/U_TatDRList.pas @@ -25,19 +25,13 @@ type TBDel: TToolButton; TBPrint: TToolButton; TBClose: TToolButton; - Tv1: TcxGridDBTableView; - cxGrid1Level1: TcxGridLevel; - cxGrid1: TcxGrid; - cxGridPopupMenu1: TcxGridPopupMenu; ADOQueryCmd: TADOQuery; ADOQueryMain: TADOQuery; ADOQueryTemp: TADOQuery; DataSource1: TDataSource; TBExport: TToolButton; - v1OrdDate: TcxGridDBColumn; Order_Main: TClientDataSet; ToolButton1: TToolButton; - v1Column4: TcxGridDBColumn; Panel1: TPanel; Label4: TLabel; Label8: TLabel; @@ -54,78 +48,125 @@ type Tnochk: TToolButton; cxSplitter1: TcxSplitter; DS_2: TDataSource; - v1Column8: TcxGridDBColumn; Label2: TLabel; - ClientDataSet2: TClientDataSet; + CDS_2: TClientDataSet; GPM_2: TcxGridPopupMenu; - v1Column13: TcxGridDBColumn; - v1Column17: TcxGridDBColumn; - v1Column1: TcxGridDBColumn; - v1Column7: TcxGridDBColumn; - Tv1ToCoName: TcxGridDBColumn; - v1Column27: TcxGridDBColumn; btnWC: TToolButton; btnWCCX: TToolButton; CheckBox1: TCheckBox; ToolButton6: TToolButton; Label1: TLabel; - cxGrid2: TcxGrid; - TV2: TcxGridDBTableView; - cxGridDBColumn3: TcxGridDBColumn; - v1Column6: TcxGridDBColumn; - cxGridDBColumn4: TcxGridDBColumn; - cxGridDBColumn7: TcxGridDBColumn; - cv1Column3: TcxGridDBColumn; - cxGridLevel1: TcxGridLevel; - TV2Column1: TcxGridDBColumn; - TV2Column2: TcxGridDBColumn; - TV2Column3: TcxGridDBColumn; Label3: TLabel; shdanwei: TEdit; ToolButton2: TToolButton; IdHTTP1: TIdHTTP; ToolButton3: TToolButton; - Tv1Column2: TcxGridDBColumn; ToolButton4: TToolButton; - Tv1Column3: TcxGridDBColumn; - Tv1Column4: TcxGridDBColumn; - Tv1Column5: TcxGridDBColumn; ToolButton5: TToolButton; ToolButton7: TToolButton; - TV2Column4: TcxGridDBColumn; - TV2Column5: TcxGridDBColumn; - TV2Column6: TcxGridDBColumn; - TV2Column7: TcxGridDBColumn; - Tv1Column6: TcxGridDBColumn; TbGoodsEdit: TToolButton; - TV2Volume: TcxGridDBColumn; - TV2Applicant: TcxGridDBColumn; - TV2ApplicationReaon: TcxGridDBColumn; - Tv1CoAddress: TcxGridDBColumn; Label5: TLabel; SSelJS: TLabel; - Tv1sselJS: TcxGridDBColumn; PM_1: TPopupMenu; N1: TMenuItem; PM11: TMenuItem; - Tv1Telephone: TcxGridDBColumn; - cxGridPopupMenu2: TcxGridPopupMenu; - TV2issp: TcxGridDBColumn; + GPM_3: TcxGridPopupMenu; N2: TMenuItem; - Tv1Contacts: TcxGridDBColumn; TbAddressCopy: TToolButton; - Tv1OverTime: TcxGridDBColumn; - Tv1CheckEdit: TcxGridDBColumn; - Tv1CoName: TcxGridDBColumn; ToolButton8: TToolButton; TbUndoVisible: TToolButton; - TV2PFPrice: TcxGridDBColumn; - Tv1Saleser: TcxGridDBColumn; TbNowDay: TcxButton; - Tv1CheckEditTime: TcxGridDBColumn; - TV2editStatus: TcxGridDBColumn; PM_2: TPopupMenu; N3: TMenuItem; + TbEditPFPrice: TToolButton; + PageControl1: TPageControl; + TabSheet1: TTabSheet; + TabSheet2: TTabSheet; + cxGrid1: TcxGrid; + TV1: TcxGridDBTableView; + v1Column4: TcxGridDBColumn; + cxgrdbclmnTV11OverTime: TcxGridDBColumn; + Tv1CheckEdit: TcxGridDBColumn; + cxgrdbclmnTV11CheckEditTime: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1OrdDate: TcxGridDBColumn; + Tv1DlyDate: TcxGridDBColumn; + TV1ToCoName: TcxGridDBColumn; + TV1CoName: TcxGridDBColumn; + TV1Saleser: TcxGridDBColumn; + TV1Contacts: TcxGridDBColumn; + TV1Telephone: TcxGridDBColumn; + Tv1Filler: TcxGridDBColumn; + Tv1Chker: TcxGridDBColumn; + Tv1ChkTime: TcxGridDBColumn; + Tv1Note: TcxGridDBColumn; + Tv1CoAddress: TcxGridDBColumn; + Tv1wcnote: TcxGridDBColumn; + Tv1Comper: TcxGridDBColumn; + Tv1tube: TcxGridDBColumn; + Tv1Packaging: TcxGridDBColumn; + Tv1Seal: TcxGridDBColumn; + Tv1sselJS: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + cxGridDBColumn3: TcxGridDBColumn; + v1Column6: TcxGridDBColumn; + TV2issp: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + TV2Column4: TcxGridDBColumn; + TV2Column5: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cv1Column3: TcxGridDBColumn; + TV2Column7: TcxGridDBColumn; + TV2PFPrice: TcxGridDBColumn; + TV2Column1: TcxGridDBColumn; + TV2Column2: TcxGridDBColumn; + TV2Column3: TcxGridDBColumn; + TV2Column6: TcxGridDBColumn; + TV2Volume: TcxGridDBColumn; + TV2Applicant: TcxGridDBColumn; + TV2ApplicationReaon: TcxGridDBColumn; + TV2editStatus: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxGrid3: TcxGrid; + TV3: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + pm_3: TPopupMenu; + N4: TMenuItem; + N5: TMenuItem; + N6: TMenuItem; + CDS_3: TClientDataSet; + DS_3: TDataSource; + GPM_1: TcxGridPopupMenu; + TbMXExport: TToolButton; + TV3ssel: TcxGridDBColumn; + TV3DRMID: TcxGridDBColumn; + TV3Saleser: TcxGridDBColumn; + TV3ToCoName: TcxGridDBColumn; + TV3Filltime: TcxGridDBColumn; + TV3DlyDate: TcxGridDBColumn; + TV3Contacts: TcxGridDBColumn; + TV3Telephone: TcxGridDBColumn; + TV1CheckEditPiece: TcxGridDBColumn; //RMllPDFExport1: TRMllPDFExport; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); @@ -146,7 +187,7 @@ type procedure TnochkClick(Sender: TObject); procedure cxTabControl1Change(Sender: TObject); procedure btnWCClick(Sender: TObject); - procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); + procedure TV1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); procedure btnWCCXClick(Sender: TObject); procedure v1Column7PropertiesEditValueChanged(Sender: TObject); procedure Tv1Column9PropertiesEditValueChanged(Sender: TObject); @@ -162,15 +203,20 @@ type procedure PM11Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure TbAddressCopyClick(Sender: TObject); - procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure TV1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure Tv1CheckEditStylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle); procedure Tv1FlagStylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle); procedure ToolButton8Click(Sender: TObject); - procedure Tv1OverTimeCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure cxgrdbclmnTV11OverTimeCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure TbUndoVisibleClick(Sender: TObject); procedure TbNowDayClick(Sender: TObject); procedure N3Click(Sender: TObject); - + procedure TbEditPFPriceClick(Sender: TObject); + procedure PageControl1Change(Sender: TObject); + procedure N6Click(Sender: TObject); + procedure N5Click(Sender: TObject); + procedure N4Click(Sender: TObject); + procedure TbMXExportClick(Sender: TObject); private fcxGridStyleFlag: Boolean; procedure InitGrid(); @@ -178,6 +224,7 @@ type procedure InitForm(); procedure SetStatus(); function DelData(): Boolean; + procedure InitSubGrid2(); { Private declarations } public @@ -440,7 +487,6 @@ begin // Exit; // if Trim(canshu1) <> '管理' then // begin - // with ADOQueryTemp do // begin // Close; @@ -496,6 +542,34 @@ begin end; end; +procedure TfrmTatDRList.TbEditPFPriceClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + + try + frmTatDRtInPut := TfrmTatDRtInPut.Create(Application); + with frmTatDRtInPut do + begin + PState := 999; + TbSavePFPrice.Visible := True; + TbSave.Visible := false; + canshu1 := self.canshu1; + isCheck := cxTabControl1.TabIndex; + Tv1Volume.Options.Editing := False; + Tv1ApplicationReaon.Options.Editing := False; + FDRMID := Trim(Self.Order_Main.fieldbyname('DRMID').AsString); + if ShowModal = 1 then + begin + InitGrid(); + end; + end; + finally + frmTatDRtInPut.Free; + end; + +end; + procedure TfrmTatDRList.TBDelClick(Sender: TObject); begin if Order_Main.IsEmpty then @@ -586,6 +660,20 @@ begin end; end; +procedure TfrmTatDRList.TbMXExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; + with CDS_3 do + begin + Filtered := false; + Filter := ' ssel = 1'; + Filtered := true; + end; + TcxGridToExcel(Self.Caption, cxGrid3); + InitsubGrid2(); +end; + procedure TfrmTatDRList.TbNowDayClick(Sender: TObject); begin BegDate.Date := strToDate(FormatDateTime('yyyy-MM-dd', SGetServerDate(ADOQueryCmd))); @@ -675,6 +763,7 @@ end; procedure TfrmTatDRList.TBRafreshClick(Sender: TObject); begin InitGrid(); + InitSubGrid2(); end; procedure TfrmTatDRList.TbUndoVisibleClick(Sender: TObject); @@ -992,11 +1081,72 @@ begin sql.Clear; sql.Add('select A.* '); sql.Add('from Tat_Cloth_DR_Sub A where A.DRMID=''' + Trim(Order_Main.fieldbyname('DRMID').AsString) + ''''); + +// sql.Add('from Tat_Cloth_DR_Sub A where A.DRMID in (select rtvalue from F_Tool_SplitString(''' + SelCDSKey(Order_Main, ['DRMID'])[0] + ''' , '',''))'); // ShowMessage(SQL.Text); Open; end; - SCreateCDS(ADOQueryTemp, ClientDataSet2); - SInitCDSData(ADOQueryTemp, ClientDataSet2); + SCreateCDS(ADOQueryTemp, CDS_2); + SInitCDSData(ADOQueryTemp, CDS_2); +end; + +procedure TfrmTatDRList.InitSubGrid2(); +begin + + with ADOQueryCMD do + begin + + Close; + sql.Clear; +// sql.Add('select A.* '); +// sql.Add(' from Tat_Cloth_DR_Sub A where A.DRMID in (select rtvalue from F_Tool_SplitString(''' + SelCDSKey(Order_Main, ['DRMID'])[0] + ''' , '',''))'); + sql.Add(' select B.*,A.ToCoName,A.Filltime,A.DlyDate,C.Saleser '); + SQL.Add(' ,Telephone=(select top 1 Telephone from Bs_Company_contact X where X.CoID=A.ToCoID )'); + SQL.Add(' ,Contacts=(select top 1 Contacts from Bs_Company_contact X where X.CoID=A.ToCoID ) '); + SQL.Add(' from Tat_Cloth_DR_Sub B '); + sql.Add(' left join Tat_Cloth_DR_Main A on A.DRMID = B.DRMID '); + sql.Add(' left join BS_Company C on A.ToCoID = C.COID '); + SQL.Add(' where 1 = 1'); + if CheckBox1.Checked then + begin + sql.Add(' and A.Filltime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' '); + sql.Add(' and A.Filltime<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' '); + end; + case cxTabControl1.TabIndex of + 0: + begin + SQL.Add(' and isnull(A.status,''0'')=''0'' '); + end; + 1: + begin + SQL.Add(' and isnull(A.status,''0'')=''9'' '); + end; + 2: + begin + SQL.Add(' and isnull(A.status,''0'')=''10'' '); + end; + 3: + begin + SQL.Add(' and isnull(A.status,''0'')=''-2'' '); + end; + 4: + begin + SQL.Add(' and isnull(A.status,''0'')<>''-2'' '); + end; + end; + + if Trim(canshu1) = '录入' then + begin + sql.Add(' and isnull(A.Filler,'''')=''' + Trim(DName) + ''''); + end; + sql.Add(' order by A.DRMID , A.Filltime desc '); + + +// ShowMessage(SQL.Text); + Open; + end; + SCreateCDS(ADOQueryCMD, CDS_3); + SInitCDSData(ADOQueryCMD, CDS_3); end; procedure TfrmTatDRList.N1Click(Sender: TObject); @@ -1022,7 +1172,37 @@ end; procedure TfrmTatDRList.N3Click(Sender: TObject); begin - Clipboard.SetTextBuf(PChar(Trim(ClientDataSet2.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); + Clipboard.SetTextBuf(PChar(Trim(CDS_2.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); +end; + +procedure TfrmTatDRList.N4Click(Sender: TObject); +begin + SelOKNo(CDS_3, true); + +end; + +procedure TfrmTatDRList.N5Click(Sender: TObject); +begin + SelOKNo(CDS_3, False); + +end; + +procedure TfrmTatDRList.N6Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_3.fieldbyname(TV3.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); +end; + +procedure TfrmTatDRList.PageControl1Change(Sender: TObject); +begin + if PageControl1.TabIndex = 1 then + begin + InitSubGrid2(); + TbMXExport.Visible := True; + end + else + begin + TbMXExport.Visible := False; + end; end; procedure TfrmTatDRList.PM11Click(Sender: TObject); @@ -1310,7 +1490,7 @@ end; procedure TfrmTatDRList.Tv1CheckEditStylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle); var GroupValue: string; -// ColorValue: Integer; + ColorValue: Integer; I: Integer; begin if (ARecord <> nil) and (ARecord is TcxGridDataRow) then @@ -1368,7 +1548,7 @@ begin tv1.Controller.EditingController.ShowEdit(); end; -procedure TfrmTatDRList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +procedure TfrmTatDRList.TV1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); var FLAG: Variant; begin @@ -1408,12 +1588,12 @@ begin // end; end; -procedure TfrmTatDRList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); +procedure TfrmTatDRList.TV1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); begin InitSubGrid(); end; -procedure TfrmTatDRList.Tv1OverTimeCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +procedure TfrmTatDRList.cxgrdbclmnTV11OverTimeCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); //单格子 var FLAG: string; @@ -1536,7 +1716,6 @@ begin // SQL.Add(' where DRMID = ' + QuotedStr(Trim(mDRMID))); // Open; // end; - // 如果没有选择任何记录 if Order_Main.IsEmpty then diff --git a/E04梭织坯布仓库/U_TatDRtInPut.dfm b/E04梭织坯布仓库/U_TatDRtInPut.dfm index e91430f..e9bb955 100644 --- a/E04梭织坯布仓库/U_TatDRtInPut.dfm +++ b/E04梭织坯布仓库/U_TatDRtInPut.dfm @@ -40,7 +40,6 @@ object frmTatDRtInPut: TfrmTatDRtInPut ParentFont = False ShowCaptions = True TabOrder = 0 - ExplicitTop = 4 object TBSave: TToolButton Left = 0 Top = 0 @@ -49,17 +48,25 @@ object frmTatDRtInPut: TfrmTatDRtInPut ImageIndex = 16 OnClick = TBSaveClick end - object TbPHSave: TToolButton + object TbSavePFPrice: TToolButton Left = 71 Top = 0 AutoSize = True + Caption = #20445#23384#21333#20215 + ImageIndex = 16 + OnClick = TbSavePFPriceClick + end + object TbPHSave: TToolButton + Left = 166 + Top = 0 + AutoSize = True Caption = #37197#36135#20445#23384 ImageIndex = 16 Visible = False OnClick = TbPHSaveClick end object ToolButton4: TToolButton - Left = 166 + Left = 261 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -67,7 +74,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut OnClick = ToolButton4Click end object TBClose: TToolButton - Left = 261 + Left = 356 Top = 0 AutoSize = True Caption = #20851#38381 @@ -88,7 +95,6 @@ object frmTatDRtInPut: TfrmTatDRtInPut ParentColor = False ParentCtl3D = False TabOrder = 1 - ExplicitTop = 32 object Label1: TLabel Left = 244 Top = 13 @@ -323,7 +329,6 @@ object frmTatDRtInPut: TfrmTatDRtInPut ParentFont = False ShowCaptions = True TabOrder = 2 - ExplicitTop = 133 object ToolButton3: TToolButton Left = 0 Top = 0 @@ -373,7 +378,6 @@ object frmTatDRtInPut: TfrmTatDRtInPut Height = 469 Align = alClient TabOrder = 3 - ExplicitTop = 181 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -457,7 +461,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut DataBinding.FieldName = 'c_Color' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 68 + Width = 67 end object Tv1Piece: TcxGridDBColumn Caption = #30003#35831#21367#25968 diff --git a/E04梭织坯布仓库/U_TatDRtInPut.pas b/E04梭织坯布仓库/U_TatDRtInPut.pas index e086717..2198524 100644 --- a/E04梭织坯布仓库/U_TatDRtInPut.pas +++ b/E04梭织坯布仓库/U_TatDRtInPut.pas @@ -70,6 +70,7 @@ type Tv1issp: TcxGridDBColumn; Tv1PFPrice: TcxGridDBColumn; Tv1editStatus: TcxGridDBColumn; + TbSavePFPrice: TToolButton; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); @@ -86,7 +87,7 @@ type procedure ToolButton6Click(Sender: TObject); procedure TbPHSaveClick(Sender: TObject); procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); - + procedure TbSavePFPriceClick(Sender: TObject); private fuserName: string; procedure InitData(); @@ -162,7 +163,7 @@ begin SQL.Clear; sql.Add(' select A.* '); sql.Add(' from Tat_Cloth_DR_Sub A'); - if (PState = 1) or (PState = 2) then ////鿴޸ + if (PState = 1) or (PState = 2) or (PState = 999) then ////鿴޸ ޸ĵ begin sql.Add('where DRMID=''' + Trim(FDRMID) + ''''); end; @@ -424,6 +425,15 @@ begin begin FieldByName('CheckEdit').Value := 'Ѹĵ'; FieldByName('CheckEditTime').Value := SGetServerDateTime(ADOTemp); + + with ADOTemp do + begin + Close; + sql.Clear; + SQL.Add('select sum(Piece) as sumPiece from Tat_Cloth_DR_Sub where DRMID=''' + Trim(FDRMID) + ''''); + Open; + end; + FieldByName('CheckEditPiece').Value := ADOTemp.FieldByName('sumPiece').Value; end; Post; end; @@ -536,6 +546,58 @@ begin end; end; +procedure TfrmTatDRtInPut.TbSavePFPriceClick(Sender: TObject); +var + MaxMid, MaxSid: string; + CurrentYear: string; +begin + ///////////////// ӱ ///////////////// + Order_Sub.DisableControls; + MaxMid := Trim(FDRMID); + with Order_Sub do + begin + First; + while not Eof do + begin +// if Trim(Order_Sub.fieldbyname('DRSID').AsString) = '' then +// begin +// if GetLSNo(ADOCmd, MaxSid, 'TDS', 'Tat_Cloth_DR_Sub', 4, 1) = False then +// raise Exception.Create('ȡˮʧܣ'); +// end +// else +// begin + MaxSid := Trim(Order_Sub.fieldbyname('DRSID').AsString); +// end; + + with ADOCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Tat_Cloth_DR_Sub '); + sql.Add(' where DRMID=''' + Trim(MaxMid) + ''''); + sql.Add(' and DRSID=''' + Trim(MaxSid) + ''''); +// ShowMessage(sql.Text); + Open; + if ADOCmd.IsEmpty then + begin + Append; + end + else + begin + Edit; + end; + FieldByName('PFPrice').Value := Order_Sub.fieldbyname('PFPrice').Value; + Post; + end; + Next; + end; + end; + Order_Sub.EnableControls; + + Application.MessageBox('ɹ', 'ʾ', 0); + ModalResult := 1; +end; + procedure TfrmTatDRtInPut.ToolButton1Click(Sender: TObject); var FQtyUnit, FFSubid: string; diff --git a/E04梭织坯布仓库/testDll.identcache b/E04梭织坯布仓库/testDll.identcache index 87edbdb..6a24ec9 100644 Binary files a/E04梭织坯布仓库/testDll.identcache and b/E04梭织坯布仓库/testDll.identcache differ diff --git a/E04梭织坯布仓库/testDll.res b/E04梭织坯布仓库/testDll.res index e116c48..2465ca0 100644 Binary files a/E04梭织坯布仓库/testDll.res and b/E04梭织坯布仓库/testDll.res differ diff --git a/F01染色坯布仓库/DyeGreyClothStk.dproj.local b/F01染色坯布仓库/DyeGreyClothStk.dproj.local index c49ac22..e70e879 100644 --- a/F01染色坯布仓库/DyeGreyClothStk.dproj.local +++ b/F01染色坯布仓库/DyeGreyClothStk.dproj.local @@ -1,48 +1,76 @@  - 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.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.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.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.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.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.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.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.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.070,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.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.270,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.069,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.394,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.dfm - 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_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.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.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.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.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.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.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.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.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.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.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.270,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/F01染色坯布仓库/DyeGreyClothStk.identcache b/F01染色坯布仓库/DyeGreyClothStk.identcache index fe08070..65c8eaa 100644 Binary files a/F01染色坯布仓库/DyeGreyClothStk.identcache and b/F01染色坯布仓库/DyeGreyClothStk.identcache differ