From a33af2b46f1517298ee00dacac6c88307ac39061 Mon Sep 17 00:00:00 2001 From: "LAPTOP-8NOV8MVQ\\cai" Date: Tue, 31 Mar 2026 00:07:23 +0800 Subject: [PATCH] 3.31 --- E03梭织坯布检验/TatInsp.dproj.local | 92 +- E03梭织坯布检验/TatInspLogin.dproj.local | 24 +- E03梭织坯布检验/TatInspLogin.identcache | Bin 1186 -> 1186 bytes E03梭织坯布检验/U_TatClothInspHZList.dfm | 1371 +++++++++++++++------ E03梭织坯布检验/U_TatClothInspHZList.pas | 294 ++++- E03梭织坯布检验/U_TatClothInspHZList2.dfm | 2 +- E03梭织坯布检验/U_TatInspSHHZ.dfm | 1206 ++++++++++++------ E03梭织坯布检验/U_TatInspSHHZ.pas | 128 +- E03梭织坯布检验/U_TatInspSHHZ2.dfm | 4 +- E03梭织坯布检验/testDll.identcache | Bin 178 -> 178 bytes E04梭织坯布仓库/TatClothStk.dproj.local | 88 +- E04梭织坯布仓库/TatClothStk.identcache | Bin 40526 -> 40526 bytes E04梭织坯布仓库/U_TatClothCKHZList.dfm | 9 +- E04梭织坯布仓库/U_TatClothCKHZList.pas | 32 +- E04梭织坯布仓库/U_TatClothCRStkHZList.dfm | 2 + E04梭织坯布仓库/U_TatClothRKHZList.dfm | 1 - E04梭织坯布仓库/U_TatClothRKHZList.pas | 14 +- E04梭织坯布仓库/U_TatClothStkHZList.dfm | 1039 +++++++++++----- E04梭织坯布仓库/U_TatClothStkHZList.pas | 165 ++- E04梭织坯布仓库/testDll.identcache | Bin 1375 -> 1375 bytes 20 files changed, 3186 insertions(+), 1285 deletions(-) diff --git a/E03梭织坯布检验/TatInsp.dproj.local b/E03梭织坯布检验/TatInsp.dproj.local index d9bcf79..d0a86ec 100644 --- a/E03梭织坯布检验/TatInsp.dproj.local +++ b/E03梭织坯布检验/TatInsp.dproj.local @@ -1,52 +1,52 @@  - 1899/12/30 00:00:00.000.183,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899/12/30 00:00:00.000.638,=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.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.367,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas - 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas= - 1899/12/30 00:00:00.000.630,=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.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm - 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj - 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.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas - 1899/12/30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas - 1899/12/30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas - 1899/12/30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas - 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas - 1899/12/30 00:00:00.000.099,=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.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm - 1899/12/30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj - 1899/12/30 00:00:00.000.630,=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.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.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.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.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm - 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 2025/11/24 13:58:34.000.809,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatMachCutHZList.pas - 2025/11/24 15:19:14.000.013,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatClothInspHZList.pas - 2025/12/19 14:11:54.000.060,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatInspSHHZ.pas + 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899-12-30 00:00:00.000.638,=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.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.183,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas + 1899-12-30 00:00:00.000.367,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm + 1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas + 1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm + 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas= + 1899-12-30 00:00:00.000.630,=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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899-12-30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj + 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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899-12-30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas + 1899-12-30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas + 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas + 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899-12-30 00:00:00.000.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj + 1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas + 1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas + 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.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.292,=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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm + 1899-12-30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas + 2025-11-24 13:58:34.000.809,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatMachCutHZList.pas + 2025-11-24 15:19:14.000.013,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatClothInspHZList.pas + 2025-12-19 14:11:54.000.060,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatInspSHHZ.pas diff --git a/E03梭织坯布检验/TatInspLogin.dproj.local b/E03梭织坯布检验/TatInspLogin.dproj.local index 7f07b37..2213b37 100644 --- a/E03梭织坯布检验/TatInspLogin.dproj.local +++ b/E03梭织坯布检验/TatInspLogin.dproj.local @@ -1,27 +1,27 @@  - - - - + + - - - - + + + + + + - - + + - 1899/12/30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj - 1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj + 1899-12-30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj + 1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj diff --git a/E03梭织坯布检验/TatInspLogin.identcache b/E03梭织坯布检验/TatInspLogin.identcache index 83e3965dc1a020703ca4660401f45ebfefd9609b..f9c4d470885f1affafb56f436358df11f36fedf2 100644 GIT binary patch delta 31 pcmV+)0O0?k38D#*UXzjoTa)YpKe3%I0kbOtX91JT0brBu1GT|?3`76` delta 26 icmZ3)xrlQ@+{T@`jFWqr6E>?cr87>9i=Ol%nD@y diff --git a/E03梭织坯布检验/U_TatClothInspHZList.dfm b/E03梭织坯布检验/U_TatClothInspHZList.dfm index 9dd359d..24aaffc 100644 --- a/E03梭织坯布检验/U_TatClothInspHZList.dfm +++ b/E03梭织坯布检验/U_TatClothInspHZList.dfm @@ -7,8 +7,6 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList FormStyle = fsMDIChild Position = poScreenCenter Visible = True - ExplicitLeft = -689 - ExplicitTop = -14 ExplicitWidth = 1556 ExplicitHeight = 639 PixelsPerInch = 96 @@ -79,6 +77,7 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList Color = clWhite ParentBackground = False TabOrder = 1 + ExplicitTop = 24 object Label2: TLabel Left = 70 Top = 36 @@ -240,424 +239,942 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList OnKeyPress = C_NameKeyPress end end - object cxGrid1: TcxGrid [2] + object PageControl1: TPageControl [2] Left = 0 Top = 97 Width = 1540 Height = 503 + ActivePage = TabSheet1 Align = alClient - BorderStyle = cxcbsNone Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -12 + Font.Height = -20 Font.Name = #23435#20307 - Font.Style = [] - Images = DataLink_TatInsp.cxImageList_bar + Font.Style = [fsBold] ParentFont = False - PopupMenu = PM_1 TabOrder = 2 - object Tv1: TcxGridDBTableView - OnDblClick = Tv1DblClick - Navigator.Buttons.CustomButtons = <> - ScrollbarAnnotations.CustomAnnotations = <> - DataController.DataSource = DS_1 - DataController.Filter.AutoDataSetFilter = True - DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] - DataController.Summary.DefaultGroupSummaryItems = <> - DataController.Summary.FooterSummaryItems = < - item - Kind = skSum + object TabSheet1: TTabSheet + Caption = ' '#27719#24635' ' + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1532 + Height = 467 + Align = alClient + BorderStyle = cxcbsNone + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TatInsp.cxImageList_bar + ParentFont = False + PopupMenu = PM_1 + TabOrder = 0 + ExplicitTop = 103 + ExplicitWidth = 1540 + ExplicitHeight = 503 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_1 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Format = #26816#39564#31995#25968'=#.##' + Kind = skAverage + end + item + Format = #25442#31639#31995#25968'=#.##' + Kind = skAverage + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column6 + end + item + Kind = skSum + Column = Tv1Column1 + end + item + Kind = skSum + Column = Tv1Column7 + end + item + Kind = skSum + Column = Tv1Column8 + end + item + Kind = skSum + Column = Tv1Column9 + end + item + Kind = skSum + Column = Tv1Column10 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column13 + end + item + Kind = skSum + Column = Tv1Column14 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column17 + end + item + Kind = skSum + Column = Tv1Column18 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1fbJS + end + item + Kind = skSum + Column = Tv1fbqty + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1SHMeter + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.IndicatorWidth = 30 + object v1Column22: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + object Tv1C_Name: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 66 + OnCompareRowValuesForCellMerging = Tv1C_NameCompareRowValuesForCellMerging + end + object Tv1DXMF: TcxGridDBColumn + Caption = #23450#22411#38376#24133 + DataBinding.FieldName = 'DXMF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1dxmeter: TcxGridDBColumn + Caption = #23450#22411#31859#25968 + DataBinding.FieldName = 'dxmeter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 80 + OnCompareRowValuesForCellMerging = Tv1dxmeterCompareRowValuesForCellMerging + end + object Tv1Carno: TcxGridDBColumn + Caption = #26426#21488#21495 + DataBinding.FieldName = 'Carno' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 90 + OnCompareRowValuesForCellMerging = Tv1CarnoCompareRowValuesForCellMerging + end + object Tv1PCID: TcxGridDBColumn + Caption = #27969#36716#21345#21495 + DataBinding.FieldName = 'pcid' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 68 + OnCompareRowValuesForCellMerging = Tv1PCIDCompareRowValuesForCellMerging + end + object Tv1CIMachNo: TcxGridDBColumn + Caption = #20998#20999#26426#21488 + DataBinding.FieldName = 'CIMachNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 80 + OnCompareRowValuesForCellMerging = Tv1CIMachNoCompareRowValuesForCellMerging + end + object Tv1BCIOID: TcxGridDBColumn + Caption = #20998#20999#21333#21495 + DataBinding.FieldName = 'BCIOID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 80 + OnCompareRowValuesForCellMerging = Tv1BCIOIDCompareRowValuesForCellMerging + end + object Tv1qgSL: TcxGridDBColumn + Caption = #20999#21106#32553#29575 + DataBinding.FieldName = 'qgSL' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DecimalPlaces = 2 + Properties.DisplayFormat = '0.00%' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 90 + OnCompareRowValuesForCellMerging = Tv1qgSLCompareRowValuesForCellMerging + end + object Tv1qgMeter: TcxGridDBColumn + Caption = #20999#21106#31859#25968 + DataBinding.FieldName = 'qgMeter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 90 + OnCompareRowValuesForCellMerging = Tv1qgMeterCompareRowValuesForCellMerging + end + object Tv1Column20: TcxGridDBColumn + Caption = #20248#31561#29575 + DataBinding.FieldName = 'YDRate' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '0.0%' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1Column21: TcxGridDBColumn + Caption = #24223#24067#29575 + DataBinding.FieldName = 'FBRate' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '0.0%' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1issp: TcxGridDBColumn + Caption = #21452#21943 + DataBinding.FieldName = 'issp' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 80 + OnCompareRowValuesForCellMerging = Tv1isspCompareRowValuesForCellMerging + end + object Tv1Column4: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column6: TcxGridDBColumn + Caption = #20248#31561#21367#25968 + DataBinding.FieldName = 'YDJs' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object Tv1Column1: TcxGridDBColumn + Caption = #20248#31561#31859#25968 + DataBinding.FieldName = 'Ydqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column9: TcxGridDBColumn + Caption = #23567#21367#21367#25968 + DataBinding.FieldName = 'xjJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column10: TcxGridDBColumn + Caption = #23567#21367#31859#25968 + DataBinding.FieldName = 'xjqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column7: TcxGridDBColumn + Caption = #20108#31561#21367#25968 + DataBinding.FieldName = 'edJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column8: TcxGridDBColumn + Caption = #20108#31561#31859#25968 + DataBinding.FieldName = 'edqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column17: TcxGridDBColumn + Caption = #27979#35797#21367#25968 + DataBinding.FieldName = 'csJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column18: TcxGridDBColumn + Caption = #27979#35797#31859#25968 + DataBinding.FieldName = 'csqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column13: TcxGridDBColumn + Caption = #20998#20999#21367#25968 + DataBinding.FieldName = 'fqJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column14: TcxGridDBColumn + Caption = #20998#20999#31859#25968 + DataBinding.FieldName = 'fqqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1fbJS: TcxGridDBColumn + Caption = #24223#24067#21367#25968 + DataBinding.FieldName = 'fbJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1fbqty: TcxGridDBColumn + Caption = #24223#24067#31859#25968 + DataBinding.FieldName = 'fbqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column15: TcxGridDBColumn + DataBinding.FieldName = 'meterall' + DataBinding.IsNullValueType = True + Visible = False + end + object Tv1Column23: TcxGridDBColumn + DataBinding.FieldName = 'C_Widthall' + DataBinding.IsNullValueType = True + Visible = False + end + object Tv1SHMeter: TcxGridDBColumn + Caption = #25439#32791#31859#25968 + DataBinding.FieldName = 'SHMeter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end end - item - Kind = skSum + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 end - item - Kind = skCount - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Format = #26816#39564#31995#25968'=#.##' - Kind = skAverage - end - item - Format = #25442#31639#31995#25968'=#.##' - Kind = skAverage - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - Column = Tv1Column6 - end - item - Kind = skSum - Column = Tv1Column1 - end - item - Kind = skSum - Column = Tv1Column7 - end - item - Kind = skSum - Column = Tv1Column8 - end - item - Kind = skSum - Column = Tv1Column9 - end - item - Kind = skSum - Column = Tv1Column10 - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - Column = Tv1Column13 - end - item - Kind = skSum - Column = Tv1Column14 - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - Column = Tv1Column17 - end - item - Kind = skSum - Column = Tv1Column18 - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - Column = Tv1fbJS - end - item - Kind = skSum - Column = Tv1fbqty - end - item - Kind = skSum - end - item - Kind = skSum - Column = Tv1SHMeter - end> - DataController.Summary.SummaryGroups = <> - OptionsCustomize.ColumnFiltering = False - OptionsView.Footer = True - OptionsView.GroupByBox = False - OptionsView.IndicatorWidth = 30 - object v1Column22: TcxGridDBColumn - Caption = #36873#25321 - DataBinding.FieldName = 'SSel' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxCheckBoxProperties' - Properties.ImmediatePost = True - Properties.NullStyle = nssUnchecked - HeaderAlignmentHorz = taCenter - Options.Sorting = False - Width = 66 - end - object Tv1C_Name: TcxGridDBColumn - Caption = #20135#21697#21517#31216 - DataBinding.FieldName = 'C_Name' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.CellMerging = True - Width = 66 - OnCompareRowValuesForCellMerging = Tv1C_NameCompareRowValuesForCellMerging - end - object Tv1DXMF: TcxGridDBColumn - Caption = #23450#22411#38376#24133 - DataBinding.FieldName = 'DXMF' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv1dxmeter: TcxGridDBColumn - Caption = #23450#22411#31859#25968 - DataBinding.FieldName = 'dxmeter' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.CellMerging = True - Width = 80 - OnCompareRowValuesForCellMerging = Tv1dxmeterCompareRowValuesForCellMerging - end - object Tv1Carno: TcxGridDBColumn - Caption = #26426#21488#21495 - DataBinding.FieldName = 'Carno' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.CellMerging = True - Width = 90 - OnCompareRowValuesForCellMerging = Tv1CarnoCompareRowValuesForCellMerging - end - object Tv1PCID: TcxGridDBColumn - Caption = #27969#36716#21345#21495 - DataBinding.FieldName = 'pcid' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.CellMerging = True - Width = 68 - OnCompareRowValuesForCellMerging = Tv1PCIDCompareRowValuesForCellMerging - end - object Tv1CIMachNo: TcxGridDBColumn - Caption = #20998#20999#26426#21488 - DataBinding.FieldName = 'CIMachNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.CellMerging = True - Width = 80 - OnCompareRowValuesForCellMerging = Tv1CIMachNoCompareRowValuesForCellMerging - end - object Tv1BCIOID: TcxGridDBColumn - Caption = #20998#20999#21333#21495 - DataBinding.FieldName = 'BCIOID' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.CellMerging = True - Width = 80 - OnCompareRowValuesForCellMerging = Tv1BCIOIDCompareRowValuesForCellMerging - end - object Tv1qgSL: TcxGridDBColumn - Caption = #20999#21106#32553#29575 - DataBinding.FieldName = 'qgSL' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxCurrencyEditProperties' - Properties.DecimalPlaces = 2 - Properties.DisplayFormat = '0.00%' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.CellMerging = True - Width = 90 - OnCompareRowValuesForCellMerging = Tv1qgSLCompareRowValuesForCellMerging - end - object Tv1qgMeter: TcxGridDBColumn - Caption = #20999#21106#31859#25968 - DataBinding.FieldName = 'qgMeter' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.CellMerging = True - Width = 90 - OnCompareRowValuesForCellMerging = Tv1qgMeterCompareRowValuesForCellMerging - end - object Tv1Column20: TcxGridDBColumn - Caption = #20248#31561#29575 - DataBinding.FieldName = 'YDRate' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxCurrencyEditProperties' - Properties.DisplayFormat = '0.0%' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 90 - end - object Tv1Column21: TcxGridDBColumn - Caption = #24223#24067#29575 - DataBinding.FieldName = 'FBRate' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxCurrencyEditProperties' - Properties.DisplayFormat = '0.0%' - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 90 - end - object Tv1issp: TcxGridDBColumn - Caption = #21452#21943 - DataBinding.FieldName = 'issp' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Options.CellMerging = True - Width = 80 - OnCompareRowValuesForCellMerging = Tv1isspCompareRowValuesForCellMerging - end - object Tv1Column4: TcxGridDBColumn - Caption = #20811#37325 - DataBinding.FieldName = 'C_GramWeight' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object Tv1Column6: TcxGridDBColumn - Caption = #20248#31561#21367#25968 - DataBinding.FieldName = 'YDJs' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 74 - end - object Tv1Column1: TcxGridDBColumn - Caption = #20248#31561#31859#25968 - DataBinding.FieldName = 'Ydqty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column9: TcxGridDBColumn - Caption = #23567#21367#21367#25968 - DataBinding.FieldName = 'xjJS' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column10: TcxGridDBColumn - Caption = #23567#21367#31859#25968 - DataBinding.FieldName = 'xjqty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column7: TcxGridDBColumn - Caption = #20108#31561#21367#25968 - DataBinding.FieldName = 'edJS' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column8: TcxGridDBColumn - Caption = #20108#31561#31859#25968 - DataBinding.FieldName = 'edqty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column17: TcxGridDBColumn - Caption = #27979#35797#21367#25968 - DataBinding.FieldName = 'csJS' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column18: TcxGridDBColumn - Caption = #27979#35797#31859#25968 - DataBinding.FieldName = 'csqty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column13: TcxGridDBColumn - Caption = #20998#20999#21367#25968 - DataBinding.FieldName = 'fqJS' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column14: TcxGridDBColumn - Caption = #20998#20999#31859#25968 - DataBinding.FieldName = 'fqqty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1fbJS: TcxGridDBColumn - Caption = #24223#24067#21367#25968 - DataBinding.FieldName = 'fbJS' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1fbqty: TcxGridDBColumn - Caption = #24223#24067#31859#25968 - DataBinding.FieldName = 'fbqty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column15: TcxGridDBColumn - DataBinding.FieldName = 'meterall' - DataBinding.IsNullValueType = True - Visible = False - end - object Tv1Column23: TcxGridDBColumn - DataBinding.FieldName = 'C_Widthall' - DataBinding.IsNullValueType = True - Visible = False - end - object Tv1SHMeter: TcxGridDBColumn - Caption = #25439#32791#31859#25968 - DataBinding.FieldName = 'SHMeter' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 end end - object cxGrid1Level1: TcxGridLevel - GridView = Tv1 + object TabSheet2: TTabSheet + Caption = ' '#26126#32454' ' + ImageIndex = 1 + object cxGrid2: TcxGrid + Left = 0 + Top = 0 + Width = 1532 + Height = 467 + Align = alClient + BorderStyle = cxcbsNone + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TatInsp.cxImageList_bar + ParentFont = False + PopupMenu = PM_2 + TabOrder = 0 + ExplicitLeft = -3 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_2 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Format = #26816#39564#31995#25968'=#.##' + Kind = skAverage + end + item + Format = #25442#31639#31995#25968'=#.##' + Kind = skAverage + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn15 + end + item + Kind = skSum + Column = cxGridDBColumn16 + end + item + Kind = skSum + Column = cxGridDBColumn19 + end + item + Kind = skSum + Column = cxGridDBColumn20 + end + item + Kind = skSum + Column = cxGridDBColumn17 + end + item + Kind = skSum + Column = cxGridDBColumn18 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn23 + end + item + Kind = skSum + Column = cxGridDBColumn24 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn21 + end + item + Kind = skSum + Column = cxGridDBColumn22 + end + item + Kind = skSum + Column = Tv1Column19 + end + item + Kind = skSum + Column = Tv1YDpf + end + item + Kind = skSum + Column = Tv1xjPF + end + item + Kind = skSum + Column = Tv1edpf + end + item + Kind = skSum + Column = Tv1cspf + end + item + Kind = skSum + Column = Tv1fqPF + end + item + Kind = skSum + Column = cxGridDBColumn25 + end + item + Kind = skSum + Column = cxGridDBColumn26 + end + item + Kind = skSum + Column = Tv1FBPF + end + item + Kind = skSum + Column = cxGridDBColumn27 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.IndicatorWidth = 30 + object cxGridDBColumn1: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 66 + OnCompareRowValuesForCellMerging = Tv1C_NameCompareRowValuesForCellMerging + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #23450#22411#38376#24133 + DataBinding.FieldName = 'DXMF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 72 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #23450#22411#31859#25968 + DataBinding.FieldName = 'dxmeter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 80 + OnCompareRowValuesForCellMerging = Tv1dxmeterCompareRowValuesForCellMerging + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #26426#21488#21495 + DataBinding.FieldName = 'Carno' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 90 + OnCompareRowValuesForCellMerging = Tv1CarnoCompareRowValuesForCellMerging + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #27969#36716#21345#21495 + DataBinding.FieldName = 'pcid' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 68 + OnCompareRowValuesForCellMerging = Tv1PCIDCompareRowValuesForCellMerging + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #20998#20999#26426#21488 + DataBinding.FieldName = 'CIMachNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 80 + OnCompareRowValuesForCellMerging = Tv1CIMachNoCompareRowValuesForCellMerging + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20998#20999#21333#21495 + DataBinding.FieldName = 'BCIOID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 80 + OnCompareRowValuesForCellMerging = Tv1BCIOIDCompareRowValuesForCellMerging + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #20999#21106#32553#29575 + DataBinding.FieldName = 'qgSL' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DecimalPlaces = 2 + Properties.DisplayFormat = '0.00%' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 90 + OnCompareRowValuesForCellMerging = Tv1qgSLCompareRowValuesForCellMerging + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20999#21106#31859#25968 + DataBinding.FieldName = 'qgMeter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 90 + OnCompareRowValuesForCellMerging = Tv1qgMeterCompareRowValuesForCellMerging + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #20248#31561#29575 + DataBinding.FieldName = 'YDRate' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '0.0%' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #24223#24067#29575 + DataBinding.FieldName = 'FBRate' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '0.0%' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object Tv1Column22: TcxGridDBColumn + Caption = #20999#21106#38376#24133 + DataBinding.FieldName = 'C_width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 90 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #21452#21943 + DataBinding.FieldName = 'issp' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 80 + OnCompareRowValuesForCellMerging = Tv1isspCompareRowValuesForCellMerging + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #20248#31561#21367#25968 + DataBinding.FieldName = 'YDJs' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #20248#31561#31859#25968 + DataBinding.FieldName = 'Ydqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1YDpf: TcxGridDBColumn + Caption = #20248#31561#24179#26041 + DataBinding.FieldName = 'YDpf' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #23567#21367#21367#25968 + DataBinding.FieldName = 'xjJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #23567#21367#31859#25968 + DataBinding.FieldName = 'xjqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1xjPF: TcxGridDBColumn + Caption = #23567#21367#24179#26041 + DataBinding.FieldName = 'xjPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #20108#31561#21367#25968 + DataBinding.FieldName = 'edJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #20108#31561#31859#25968 + DataBinding.FieldName = 'edqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1edpf: TcxGridDBColumn + Caption = #20108#31561#24179#26041 + DataBinding.FieldName = 'edpf' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn21: TcxGridDBColumn + Caption = #27979#35797#21367#25968 + DataBinding.FieldName = 'csJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn22: TcxGridDBColumn + Caption = #27979#35797#31859#25968 + DataBinding.FieldName = 'csqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1cspf: TcxGridDBColumn + Caption = #27979#35797#24179#26041 + DataBinding.FieldName = 'cspf' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #20998#20999#21367#25968 + DataBinding.FieldName = 'fqJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #20998#20999#31859#25968 + DataBinding.FieldName = 'fqqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1fqPF: TcxGridDBColumn + Caption = #20998#20999#24179#26041 + DataBinding.FieldName = 'fqPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #24223#24067#21367#25968 + DataBinding.FieldName = 'fbJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #24223#24067#31859#25968 + DataBinding.FieldName = 'fbqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1FBPF: TcxGridDBColumn + Caption = #24223#24067#24179#26041 + DataBinding.FieldName = 'FBPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn27: TcxGridDBColumn + Caption = #25439#32791#31859#25968 + DataBinding.FieldName = 'SHMeter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column19: TcxGridDBColumn + Caption = #25439#32791#24179#26041 + DataBinding.FieldName = 'SHpf' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 71 + end + object cxGridDBColumn28: TcxGridDBColumn + DataBinding.FieldName = 'meterall' + DataBinding.IsNullValueType = True + Visible = False + end + object cxGridDBColumn29: TcxGridDBColumn + DataBinding.FieldName = 'C_Widthall' + DataBinding.IsNullValueType = True + Visible = False + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end end end inherited ADOQueryBaseCmd: TADOQuery @@ -698,7 +1215,6 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList Top = 284 end object GPM_1: TcxGridPopupMenu - Grid = cxGrid1 PopupMenus = <> Left = 728 Top = 288 @@ -711,8 +1227,8 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList Top = 284 end object PM_1: TPopupMenu - Left = 560 - Top = 384 + Left = 376 + Top = 288 object N1: TMenuItem Caption = #20840#36873 OnClick = N1Click @@ -730,4 +1246,41 @@ inherited frmTatClothInspHZList: TfrmTatClothInspHZList OnClick = N3Click end end + object PM_2: TPopupMenu + Left = 436 + Top = 401 + 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 + object N7: TMenuItem + Caption = #22797#21046#27880#33050 + OnClick = N7Click + end + end + object GPM_2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 516 + Top = 401 + end + object CDS_2: TClientDataSet + Aggregates = <> + Params = <> + Left = 596 + Top = 401 + end + object DS_2: TDataSource + DataSet = CDS_2 + Left = 684 + Top = 409 + end end diff --git a/E03梭织坯布检验/U_TatClothInspHZList.pas b/E03梭织坯布检验/U_TatClothInspHZList.pas index d576cbf..5dd3c45 100644 --- a/E03梭织坯布检验/U_TatClothInspHZList.pas +++ b/E03梭织坯布检验/U_TatClothInspHZList.pas @@ -40,46 +40,97 @@ type PM_1: TPopupMenu; PM11: TMenuItem; N1: TMenuItem; - cxGrid1: TcxGrid; - Tv1: TcxGridDBTableView; - v1Column22: TcxGridDBColumn; - Tv1C_Name: TcxGridDBColumn; - Tv1Column4: TcxGridDBColumn; - Tv1PCID: TcxGridDBColumn; - Tv1Column6: TcxGridDBColumn; - Tv1Column1: TcxGridDBColumn; - Tv1Column7: TcxGridDBColumn; - Tv1Column8: TcxGridDBColumn; - Tv1Column9: TcxGridDBColumn; - Tv1Column10: TcxGridDBColumn; - Tv1Column13: TcxGridDBColumn; - Tv1Column14: TcxGridDBColumn; - Tv1Column17: TcxGridDBColumn; - Tv1Column18: TcxGridDBColumn; - cxGrid1Level1: TcxGridLevel; - Tv1dxmeter: TcxGridDBColumn; - Tv1Carno: TcxGridDBColumn; - Tv1qgSL: TcxGridDBColumn; - Tv1qgMeter: TcxGridDBColumn; - Tv1Column20: TcxGridDBColumn; - Tv1Column21: TcxGridDBColumn; - Tv1fbJS: TcxGridDBColumn; - Tv1fbqty: TcxGridDBColumn; - Tv1CIMachNo: TcxGridDBColumn; - Tv1BCIOID: TcxGridDBColumn; Label1: TLabel; C_width: TEdit; Label3: TLabel; pcid: TEdit; Label4: TLabel; C_GramWeight: TEdit; - Tv1Column15: TcxGridDBColumn; - Tv1Column23: TcxGridDBColumn; - Tv1issp: TcxGridDBColumn; N2: TMenuItem; N3: TMenuItem; + PageControl1: TPageControl; + TabSheet1: TTabSheet; + TabSheet2: TTabSheet; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column22: TcxGridDBColumn; + Tv1C_Name: TcxGridDBColumn; Tv1DXMF: TcxGridDBColumn; + Tv1dxmeter: TcxGridDBColumn; + Tv1Carno: TcxGridDBColumn; + Tv1PCID: TcxGridDBColumn; + Tv1CIMachNo: TcxGridDBColumn; + Tv1BCIOID: TcxGridDBColumn; + Tv1qgSL: TcxGridDBColumn; + Tv1qgMeter: TcxGridDBColumn; + Tv1Column20: TcxGridDBColumn; + Tv1Column21: TcxGridDBColumn; + Tv1issp: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column9: TcxGridDBColumn; + Tv1Column10: TcxGridDBColumn; + Tv1Column7: TcxGridDBColumn; + Tv1Column8: TcxGridDBColumn; + Tv1Column17: TcxGridDBColumn; + Tv1Column18: TcxGridDBColumn; + Tv1Column13: TcxGridDBColumn; + Tv1Column14: TcxGridDBColumn; + Tv1fbJS: TcxGridDBColumn; + Tv1fbqty: TcxGridDBColumn; + Tv1Column15: TcxGridDBColumn; + Tv1Column23: TcxGridDBColumn; Tv1SHMeter: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + Tv1Column22: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + Tv1YDpf: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + Tv1xjPF: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridDBColumn20: TcxGridDBColumn; + Tv1edpf: TcxGridDBColumn; + cxGridDBColumn21: TcxGridDBColumn; + cxGridDBColumn22: TcxGridDBColumn; + Tv1cspf: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + Tv1fqPF: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + Tv1FBPF: TcxGridDBColumn; + cxGridDBColumn27: TcxGridDBColumn; + Tv1Column19: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + cxGridDBColumn29: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + PM_2: TPopupMenu; + GPM_2: TcxGridPopupMenu; + CDS_2: TClientDataSet; + DS_2: TDataSource; + N4: TMenuItem; + N5: TMenuItem; + N6: TMenuItem; + N7: TMenuItem; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -116,13 +167,19 @@ type procedure N2Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure Tv1DblClick(Sender: TObject); + procedure N4Click(Sender: TObject); + procedure N5Click(Sender: TObject); + procedure N6Click(Sender: TObject); + procedure N7Click(Sender: TObject); private CurrentPage, RecordsNumber: Integer; lstCust: TStringList; procedure InitGrid(); + procedure InitGrid2(); procedure SetStatus(); - procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); + procedure CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn); + { Private declarations } public canshu1: string; @@ -415,6 +472,148 @@ begin end; +procedure TfrmTatClothInspHZList.InitGrid2(); +var + WSql, WSql1: string; +begin + + WSql := SGetFilters(Panel1, 1, 2); + if Trim(WSql) <> '' then + WSql := ' and ' + WSql; + if IsJYTime.Checked then + begin + WSql1 := ' and A.FillTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); + WSql1 := WSql1 + ' and A.FillTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)); + end; + + try + ADOQueryMain.DisableControls; + + + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add('select * from ( '); + sql.Add('select A.C_NAME, A.C_width,A.C_GramWeight,A.pcid,A.Carno,A.dxmeter,issp=isnull(A.issp,'''') '); + sql.Add(' ,maX(B.C_Width) AS DXMF,A.CIMachNo,A.BCIOID '); +// sql.Add(' ,CAST(isNull(A.dxmeter,''1'') AS DECIMAL(18,2)) '); + +// SQL.Add(' ,qgMeter=sum(meter+SHMeter)/ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) '); + + sql.Add(' ,meterall=(select sum(meter+SHMeter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.BCIOID = A.BCIOID and X.GRADE<>''ѭ'' and X.CIMachNo=A.CIMachNo )'); + sql.Add(' ,C_Widthall= ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) '); + //ȥ 20260206 cai + SQL.Add(' ,qgMeter=(select sum(meter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.BCIOID = A.BCIOID and X.GRADE<>''ѭ'' and X.CIMachNo=A.CIMachNo )/ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) '); + SQL.Add(' ,SHMeter=(select sum(SHMeter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.BCIOID = A.BCIOID and X.GRADE<>''ѭ'' and X.CIMachNo=A.CIMachNo ) '); +// SQL.Add(' ,qgSL = ROUND((select sum(meter+SHMeter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.BCIOID = A.BCIOID and X.GRADE<>''ѭ'' and X.CIMachNo=A.CIMachNo )*100 '); +// sql.Add(' / ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1)/CAST(ISNULL(NULLIF(A.dxmeter, ''''), 1) AS DECIMAL(18,2)) , 2) '); + + SQL.Add(' ,qgSL = ROUND((CAST(ISNULL(NULLIF(A.dxmeter, ''''), 1) AS DECIMAL(18,2)) - (select sum(meter+SHMeter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.GRADE<>''ѭ'' and X.CIMachNo=A.CIMachNo )'); + SQL.Add(' /ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) )*100 '); + sql.Add(' /CAST(ISNULL(NULLIF(A.dxmeter, ''''), 1) AS DECIMAL(18,2)) , 3) '); + + SQL.Add(',SHpf=SUM(CASE WHEN ISNUMERIC(A.SHMETER) = 1 AND ISNUMERIC(A.C_WIDTH) = 1 '); + SQL.Add(' THEN CAST(A.SHMETER AS DECIMAL(18,2))/100 * CAST(A.C_WIDTH AS DECIMAL(18,2)) '); + SQL.Add(' ELSE 0 END)'); + + SQL.Add(',SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN 1 ELSE 0 END )AS YDJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN A.meter ELSE 0 END )AS Ydqty'); + SQL.Add(',YDpf=SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN A.meter ELSE 0 END )*A.C_Width/100 '); + + SQL.Add(',SUM(CASE WHEN A.GRADE=''Ʒ'' THEN 1 ELSE 0 END )AS edJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''Ʒ'' THEN A.meter ELSE 0 END )AS edqty'); + SQL.Add(',edpf=SUM(CASE WHEN A.GRADE=''Ʒ'' THEN A.meter ELSE 0 END )*A.C_Width/100 '); + + SQL.Add(',SUM(CASE WHEN A.GRADE=''С'' THEN 1 ELSE 0 END )AS xjJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''С'' THEN A.meter ELSE 0 END )AS xjqty'); + SQL.Add(',xjpf=SUM(CASE WHEN A.GRADE=''С'' THEN A.meter ELSE 0 END )*A.C_Width/100 '); + + SQL.Add(',SUM(CASE WHEN (A.GRADE=''ϲ'' and A.meter>0) THEN 1 ELSE 0 END )AS fbJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ϲ'' THEN A.meter ELSE 0 END )AS fbqty'); + SQL.Add(',fbpf=SUM(CASE WHEN A.GRADE=''ϲ'' THEN A.meter ELSE 0 END )*A.C_Width/100 '); + + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END )AS fqJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN A.meter ELSE 0 END )AS fqqty'); + SQL.Add(',fqpf=SUM(CASE WHEN A.GRADE='''' THEN A.meter ELSE 0 END )*A.C_Width/100 '); + +// SQL.Add(',SUM(CASE WHEN A.GRADE=''ѭ'' THEN 1 ELSE 0 END )AS xhJS'); +// SQL.Add(',SUM(CASE WHEN A.GRADE=''ѭ'' THEN A.meter ELSE 0 END )AS xhqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END )AS csJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN A.meter ELSE 0 END )AS csqty'); + SQL.Add(',cspf=SUM(CASE WHEN A.GRADE='''' THEN A.meter ELSE 0 END )*A.C_Width/100 '); + + + // ŵֶ - ŵȾ/(ŵȾ+С+Ⱦ+Ծ+о+ϲ(ųΪ0)) + SQL.Add(',YDRate=CAST('); + SQL.Add(' CASE '); + SQL.Add(' WHEN (SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN 1 ELSE 0 END) + '); // YDJS + SQL.Add(' SUM(CASE WHEN A.GRADE=''С'' THEN 1 ELSE 0 END) + '); // xjJS + SQL.Add(' SUM(CASE WHEN A.GRADE=''Ʒ'' THEN 1 ELSE 0 END) + '); // edJS + SQL.Add(' SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END) + '); // csJS + SQL.Add(' SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END) + '); // fqJS + SQL.Add(' SUM(CASE WHEN (A.GRADE=''ϲ'' and A.meter>0) THEN 1 ELSE 0 END)) = 0 '); // fbJSųΪ0 + SQL.Add(' THEN 0 '); + SQL.Add(' ELSE '); + SQL.Add(' CAST(SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN 1 ELSE 0 END)*100 AS DECIMAL(18,4)) / '); // ӣYDJS + SQL.Add(' CAST((SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN 1 ELSE 0 END) + '); // YDJS + SQL.Add(' SUM(CASE WHEN A.GRADE=''С'' THEN 1 ELSE 0 END) + '); // xjJS + SQL.Add(' SUM(CASE WHEN A.GRADE=''Ʒ'' THEN 1 ELSE 0 END) + '); // edJS + SQL.Add(' SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END) + '); // csJS + SQL.Add(' SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END) + '); // fqJS + SQL.Add(' SUM(CASE WHEN (A.GRADE=''ϲ'' and A.meter>0) THEN 1 ELSE 0 END)) AS DECIMAL(18,4)) '); // fbJS + SQL.Add(' END '); + SQL.Add('AS DECIMAL(18,4)) '); + + // ŵֶ - ŵȾ/(ŵȾ+С+Ⱦ+Ծ+о+ϲ(ųΪ0)) + SQL.Add(',FBRate=CAST('); + SQL.Add(' CASE '); + SQL.Add(' WHEN (SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN 1 ELSE 0 END) + '); // YDJS + SQL.Add(' SUM(CASE WHEN A.GRADE=''С'' THEN 1 ELSE 0 END) + '); // xjJS + SQL.Add(' SUM(CASE WHEN A.GRADE=''Ʒ'' THEN 1 ELSE 0 END) + '); // edJS + SQL.Add(' SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END) + '); // csJS + SQL.Add(' SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END) + '); // fqJS + SQL.Add(' SUM(CASE WHEN (A.GRADE=''ϲ'' and A.meter>0) THEN 1 ELSE 0 END)) = 0 '); // fbJSųΪ0 + SQL.Add(' THEN 0 '); + SQL.Add(' ELSE '); + SQL.Add(' CAST(SUM(CASE WHEN (A.GRADE=''ϲ'' and A.meter>0) THEN 1 ELSE 0 END)*100 AS DECIMAL(18,4)) / '); // ӣYDJS + SQL.Add(' CAST((SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN 1 ELSE 0 END) + '); // YDJS + SQL.Add(' SUM(CASE WHEN A.GRADE=''С'' THEN 1 ELSE 0 END) + '); // xjJS + SQL.Add(' SUM(CASE WHEN A.GRADE=''Ʒ'' THEN 1 ELSE 0 END) + '); // edJS + SQL.Add(' SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END) + '); // csJS + SQL.Add(' SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END) + '); // fqJS + SQL.Add(' SUM(CASE WHEN (A.GRADE=''ϲ'' and A.meter>0) THEN 1 ELSE 0 END)) AS DECIMAL(18,4)) '); // fbJS + SQL.Add(' END '); + SQL.Add('AS DECIMAL(18,4)) '); + + SQL.Add('from Tat_Cloth_Inspect A '); + SQL.Add(' left join BS_Cloth_IO B on A.BCIOID = B.BCIOID '); + SQL.Add(' where (A.BEFOREC_WIDTH='''' OR A.BEFOREC_WIDTH is null) '); + SQL.Add(' and (NOT EXISTS (select * from BS_Cloth_IO_mx X WHERE X.BCIOID = A.BCIOID and X.C_MXSHWidth is not NULL)) '); + SQL.Add(' and A.GRADE<>''ѭ'' '); + + SQL.Add(WSql1); + + sql.Add(' group by A.C_NAME, A.C_width,A.C_GramWeight,A.pcid,A.Carno,A.dxmeter'); + sql.Add(' ,A.CIMachNo,A.BCIOID,isnull(A.issp,'''')'); + + sql.add(' ) T where 1=1 '); + SQL.Add(WSql); + sql.Add(' Order By T.Carno,T.pcid,ISNULL(CAST(NULLIF(dxmeter, '''') AS DECIMAL), 0),BCIOID '); +// showmessage(sql.text); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_2); + SInitCDSData(ADOQueryMain, CDS_2); + + finally + ADOQueryMain.EnableControls; + TV1.DataController.Filter.Clear; + end; + +end; + procedure TfrmTatClothInspHZList.IsJYTimeClick(Sender: TObject); begin inherited; @@ -425,6 +624,7 @@ procedure TfrmTatClothInspHZList.TBRafreshClick(Sender: TObject); begin CurrentPage := 1; InitGrid(); + InitGrid2(); end; procedure TfrmTatClothInspHZList.CDS_1BeforeOpen(DataSet: TDataSet); @@ -454,6 +654,7 @@ begin if Key = #13 then begin InitGrid(); + InitGrid2(); end; end; @@ -477,6 +678,7 @@ begin BegDate.DateTime := SGetServerDate(ADOQueryCmd); EndDate.DateTime := BegDate.DateTime; InitGrid(); + InitGrid2(); end; @@ -799,17 +1001,37 @@ end; procedure TfrmTatClothInspHZList.N3Click(Sender: TObject); begin - CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn); + CopyColumnSummaryToClipboard(Tv1,TV1.Controller.FocusedColumn); end; -procedure TfrmTatClothInspHZList.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); +procedure TfrmTatClothInspHZList.N4Click(Sender: TObject); +begin + + SelOKNo(CDS_2, true); +end; + +procedure TfrmTatClothInspHZList.N5Click(Sender: TObject); +begin + + SelOKNo(CDS_2, false); +end; + +procedure TfrmTatClothInspHZList.N6Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_2.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); + +end; + +procedure TfrmTatClothInspHZList.N7Click(Sender: TObject); +begin + CopyColumnSummaryToClipboard(Tv2,TV2.Controller.FocusedColumn); +end; + +procedure TfrmTatClothInspHZList.CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn); var - AView: TcxGridDBTableView; SummaryIndex: Integer; SummaryText: string; begin - AView := Tv1; - // ָеĻ SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn); if SummaryIndex <> -1 then diff --git a/E03梭织坯布检验/U_TatClothInspHZList2.dfm b/E03梭织坯布检验/U_TatClothInspHZList2.dfm index 71a76d6..68b1f70 100644 --- a/E03梭织坯布检验/U_TatClothInspHZList2.dfm +++ b/E03梭织坯布检验/U_TatClothInspHZList2.dfm @@ -6,7 +6,6 @@ inherited frmTatClothInspHZList2: TfrmTatClothInspHZList2 ClientWidth = 1540 Position = poScreenCenter WindowState = wsMaximized - ExplicitLeft = -689 ExplicitWidth = 1556 ExplicitHeight = 639 PixelsPerInch = 96 @@ -254,6 +253,7 @@ inherited frmTatClothInspHZList2: TfrmTatClothInspHZList2 ParentFont = False PopupMenu = PM_1 TabOrder = 2 + ExplicitTop = 103 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/E03梭织坯布检验/U_TatInspSHHZ.dfm b/E03梭织坯布检验/U_TatInspSHHZ.dfm index fb5fee9..8689b1b 100644 --- a/E03梭织坯布检验/U_TatInspSHHZ.dfm +++ b/E03梭织坯布检验/U_TatInspSHHZ.dfm @@ -33,7 +33,6 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ ParentFont = False ShowCaptions = True TabOrder = 0 - ExplicitLeft = 1 object TBRafresh: TToolButton Left = 0 Top = 0 @@ -78,8 +77,6 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ Color = clWhite ParentBackground = False TabOrder = 1 - ExplicitLeft = 1 - ExplicitTop = 33 object Label2: TLabel Left = 70 Top = 36 @@ -222,394 +219,813 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ Height = 495 Align = alClient TabOrder = 2 - object cxGrid1: TcxGrid + object PageControl1: TPageControl Left = 1 Top = 1 Width = 1538 Height = 493 + ActivePage = TabSheet1 Align = alClient - BorderStyle = cxcbsNone Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -12 + Font.Height = -20 Font.Name = #23435#20307 - Font.Style = [] + Font.Style = [fsBold] ParentFont = False - PopupMenu = PM_1 TabOrder = 0 - ExplicitLeft = 2 + ExplicitLeft = 0 ExplicitTop = 6 - object Tv1: TcxGridDBTableView - OnDblClick = Tv1DblClick - Navigator.Buttons.CustomButtons = <> - ScrollbarAnnotations.CustomAnnotations = <> - DataController.DataSource = DS_1 - DataController.Filter.AutoDataSetFilter = True - DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] - DataController.Summary.DefaultGroupSummaryItems = <> - DataController.Summary.FooterSummaryItems = < - item - Kind = skSum + object TabSheet1: TTabSheet + Caption = ' '#27719#24635' ' + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1530 + Height = 457 + Align = alClient + BorderStyle = cxcbsNone + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + PopupMenu = PM_1 + TabOrder = 0 + ExplicitLeft = 264 + ExplicitTop = 200 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_1 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Format = #26816#39564#31995#25968'=#.##' + Kind = skAverage + end + item + Format = #25442#31639#31995#25968'=#.##' + Kind = skAverage + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1SH_TD1 + end + item + Kind = skSum + Column = Tv1SH_ZW2 + end + item + Kind = skSum + Column = Tv1SH_JT3 + end + item + Kind = skSum + Column = Tv1SH_LTY4 + end + item + Kind = skSum + Column = Tv1SH_DZ5 + end + item + Kind = skSum + Column = Tv1SH_DJ6 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1SH_HD7 + end + item + Kind = skSum + Column = Tv1SH_DS8 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1SH_HB9 + end + item + Kind = skSum + Column = Tv1SH_SCZ10 + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1SH_BB11 + end + item + Kind = skSum + Column = Tv1SH_ZW12 + end + item + Kind = skSum + Column = Tv1SH_HY13 + end + item + Kind = skSum + Column = Tv1SH_DPB14 + end + item + Kind = skSum + Column = Tv1SH_GJ15 + end + item + Kind = skSum + Column = Tv1SH_YS16 + end + item + Kind = skSum + Column = Tv1SH_KZ17 + end + item + Kind = skSum + Column = Tv1SH_SC18 + end + item + Kind = skSum + Column = Tv1SH_XY19 + end + item + Kind = skSum + Column = Tv1SH_YD20 + end + item + Kind = skSum + Column = Tv1SH_PD21 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.IndicatorWidth = 30 + Styles.IncSearch = DataLink_TatInsp.SHuangSe + Styles.Footer = DataLink_TatInsp.Default + Styles.Header = DataLink_TatInsp.Default + Styles.Inactive = DataLink_TatInsp.SHuangSe + Styles.Selection = DataLink_TatInsp.SHuangSe + object v1Column22: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + object Tv1Column3: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1issp: TcxGridDBColumn + Caption = #21452#21943 + DataBinding.FieldName = 'issp' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column4: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1SH_TD1: TcxGridDBColumn + Caption = #35843#20992 + DataBinding.FieldName = 'SH_TD1' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object Tv1SH_ZW2: TcxGridDBColumn + Caption = #33039#27745 + DataBinding.FieldName = 'SH_ZW2' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_JT3: TcxGridDBColumn + Caption = #25509#22836 + DataBinding.FieldName = 'SH_JT3' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_LTY4: TcxGridDBColumn + Caption = #34013#26465#21360 + DataBinding.FieldName = 'SH_LTY4' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_DZ5: TcxGridDBColumn + Caption = #26723#23376 + DataBinding.FieldName = 'SH_DZ5' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_DJ6: TcxGridDBColumn + Caption = #26029#32463 + DataBinding.FieldName = 'SH_DJ6' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_HD7: TcxGridDBColumn + Caption = #40657#28857 + DataBinding.FieldName = 'SH_HD7' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_DS8: TcxGridDBColumn + Caption = #26029#19997 + DataBinding.FieldName = 'SH_DS8' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_HB9: TcxGridDBColumn + Caption = #40644#26001 + DataBinding.FieldName = 'SH_HB9' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_SCZ10: TcxGridDBColumn + Caption = #27515#34411#23376 + DataBinding.FieldName = 'SH_SCZ10' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_BB11: TcxGridDBColumn + Caption = #30333#26001 + DataBinding.FieldName = 'SH_BB11' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_ZW12: TcxGridDBColumn + Caption = #30385#32441 + DataBinding.FieldName = 'SH_ZW12' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_HY13: TcxGridDBColumn + Caption = #40644#21360 + DataBinding.FieldName = 'SH_HY13' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_DPB14: TcxGridDBColumn + Caption = #22823#30772#36793 + DataBinding.FieldName = 'SH_DPB14' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_GJ15: TcxGridDBColumn + Caption = #24178#27974 + DataBinding.FieldName = 'SH_GJ15' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_YS16: TcxGridDBColumn + Caption = #27833#19997 + DataBinding.FieldName = 'SH_YS16' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_KZ17: TcxGridDBColumn + Caption = #31354#32455 + DataBinding.FieldName = 'SH_KZ17' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_SC18: TcxGridDBColumn + Caption = #33394#24046 + DataBinding.FieldName = 'SH_SC18' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_XY19: TcxGridDBColumn + Caption = #32483#21360 + DataBinding.FieldName = 'SH_XY19' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_YD20: TcxGridDBColumn + Caption = #27833#28857 + DataBinding.FieldName = 'SH_YD20' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1SH_PD21: TcxGridDBColumn + Caption = #30772#27934 + DataBinding.FieldName = 'SH_PD21' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end end - item - Kind = skSum + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 end - item - Kind = skCount - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Format = #26816#39564#31995#25968'=#.##' - Kind = skAverage - end - item - Format = #25442#31639#31995#25968'=#.##' - Kind = skAverage - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - Column = Tv1SH_TD1 - end - item - Kind = skSum - Column = Tv1SH_ZW2 - end - item - Kind = skSum - Column = Tv1SH_JT3 - end - item - Kind = skSum - Column = Tv1SH_LTY4 - end - item - Kind = skSum - Column = Tv1SH_DZ5 - end - item - Kind = skSum - Column = Tv1SH_DJ6 - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - Column = Tv1SH_HD7 - end - item - Kind = skSum - Column = Tv1SH_DS8 - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - Column = Tv1SH_HB9 - end - item - Kind = skSum - Column = Tv1SH_SCZ10 - end - item - Kind = skSum - end - item - Kind = skSum - Column = Tv1SH_BB11 - end - item - Kind = skSum - Column = Tv1SH_ZW12 - end - item - Kind = skSum - Column = Tv1SH_HY13 - end - item - Kind = skSum - Column = Tv1SH_DPB14 - end - item - Kind = skSum - Column = Tv1SH_GJ15 - end - item - Kind = skSum - Column = Tv1SH_YS16 - end - item - Kind = skSum - Column = Tv1SH_KZ17 - end - item - Kind = skSum - Column = Tv1SH_SC18 - end - item - Kind = skSum - Column = Tv1SH_XY19 - end - item - Kind = skSum - Column = Tv1SH_YD20 - end - item - Kind = skSum - Column = Tv1SH_PD21 - end> - DataController.Summary.SummaryGroups = <> - OptionsCustomize.ColumnFiltering = False - OptionsView.Footer = True - OptionsView.GroupByBox = False - OptionsView.IndicatorWidth = 30 - Styles.IncSearch = DataLink_TatInsp.SHuangSe - Styles.Footer = DataLink_TatInsp.Default - Styles.Header = DataLink_TatInsp.Default - Styles.Inactive = DataLink_TatInsp.SHuangSe - Styles.Selection = DataLink_TatInsp.SHuangSe - object v1Column22: TcxGridDBColumn - Caption = #36873#25321 - DataBinding.FieldName = 'SSel' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxCheckBoxProperties' - Properties.ImmediatePost = True - Properties.NullStyle = nssUnchecked - HeaderAlignmentHorz = taCenter - Options.Sorting = False - Width = 66 - end - object Tv1Column3: TcxGridDBColumn - Caption = #21697#21517 - DataBinding.FieldName = 'C_Name' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object Tv1issp: TcxGridDBColumn - Caption = #21452#21943 - DataBinding.FieldName = 'issp' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column4: TcxGridDBColumn - Caption = #20811#37325 - DataBinding.FieldName = 'C_GramWeight' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object Tv1SH_TD1: TcxGridDBColumn - Caption = #35843#20992 - DataBinding.FieldName = 'SH_TD1' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 74 - end - object Tv1SH_ZW2: TcxGridDBColumn - Caption = #33039#27745 - DataBinding.FieldName = 'SH_ZW2' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_JT3: TcxGridDBColumn - Caption = #25509#22836 - DataBinding.FieldName = 'SH_JT3' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_LTY4: TcxGridDBColumn - Caption = #34013#26465#21360 - DataBinding.FieldName = 'SH_LTY4' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_DZ5: TcxGridDBColumn - Caption = #26723#23376 - DataBinding.FieldName = 'SH_DZ5' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_DJ6: TcxGridDBColumn - Caption = #26029#32463 - DataBinding.FieldName = 'SH_DJ6' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_HD7: TcxGridDBColumn - Caption = #40657#28857 - DataBinding.FieldName = 'SH_HD7' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_DS8: TcxGridDBColumn - Caption = #26029#19997 - DataBinding.FieldName = 'SH_DS8' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_HB9: TcxGridDBColumn - Caption = #40644#26001 - DataBinding.FieldName = 'SH_HB9' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_SCZ10: TcxGridDBColumn - Caption = #27515#34411#23376 - DataBinding.FieldName = 'SH_SCZ10' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_BB11: TcxGridDBColumn - Caption = #30333#26001 - DataBinding.FieldName = 'SH_BB11' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_ZW12: TcxGridDBColumn - Caption = #30385#32441 - DataBinding.FieldName = 'SH_ZW12' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_HY13: TcxGridDBColumn - Caption = #40644#21360 - DataBinding.FieldName = 'SH_HY13' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_DPB14: TcxGridDBColumn - Caption = #22823#30772#36793 - DataBinding.FieldName = 'SH_DPB14' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_GJ15: TcxGridDBColumn - Caption = #24178#27974 - DataBinding.FieldName = 'SH_GJ15' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_YS16: TcxGridDBColumn - Caption = #27833#19997 - DataBinding.FieldName = 'SH_YS16' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_KZ17: TcxGridDBColumn - Caption = #31354#32455 - DataBinding.FieldName = 'SH_KZ17' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_SC18: TcxGridDBColumn - Caption = #33394#24046 - DataBinding.FieldName = 'SH_SC18' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_XY19: TcxGridDBColumn - Caption = #32483#21360 - DataBinding.FieldName = 'SH_XY19' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_YD20: TcxGridDBColumn - Caption = #27833#28857 - DataBinding.FieldName = 'SH_YD20' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1SH_PD21: TcxGridDBColumn - Caption = #30772#27934 - DataBinding.FieldName = 'SH_PD21' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 end end - object cxGrid1Level1: TcxGridLevel - GridView = Tv1 + object TabSheet2: TTabSheet + Caption = ' '#26126#32454' ' + ImageIndex = 1 + object cxGrid2: TcxGrid + Left = 0 + Top = 0 + Width = 1530 + Height = 457 + Align = alClient + BorderStyle = cxcbsNone + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + PopupMenu = PM_2 + TabOrder = 0 + ExplicitLeft = 3 + object TV2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_2 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Format = #26816#39564#31995#25968'=#.##' + Kind = skAverage + end + item + Format = #25442#31639#31995#25968'=#.##' + Kind = skAverage + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn5 + end + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Kind = skSum + Column = cxGridDBColumn7 + end + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skSum + Column = cxGridDBColumn9 + end + item + Kind = skSum + Column = cxGridDBColumn10 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn12 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn13 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn15 + end + item + Kind = skSum + Column = cxGridDBColumn16 + end + item + Kind = skSum + Column = cxGridDBColumn17 + end + item + Kind = skSum + Column = cxGridDBColumn18 + end + item + Kind = skSum + Column = cxGridDBColumn19 + end + item + Kind = skSum + Column = cxGridDBColumn20 + end + item + Kind = skSum + Column = cxGridDBColumn21 + end + item + Kind = skSum + Column = cxGridDBColumn22 + end + item + Kind = skSum + Column = cxGridDBColumn23 + end + item + Kind = skSum + Column = cxGridDBColumn24 + end + item + Kind = skSum + Column = cxGridDBColumn25 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.IndicatorWidth = 30 + Styles.IncSearch = DataLink_TatInsp.SHuangSe + Styles.Footer = DataLink_TatInsp.Default + Styles.Header = DataLink_TatInsp.Default + Styles.Inactive = DataLink_TatInsp.SHuangSe + Styles.Selection = DataLink_TatInsp.SHuangSe + object cxGridDBColumn1: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #21452#21943 + DataBinding.FieldName = 'issp' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1PCId: TcxGridDBColumn + Caption = #27969#36716#21345#21495 + DataBinding.FieldName = 'PCId' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #35843#20992 + DataBinding.FieldName = 'SH_TD1' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #33039#27745 + DataBinding.FieldName = 'SH_ZW2' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #25509#22836 + DataBinding.FieldName = 'SH_JT3' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #34013#26465#21360 + DataBinding.FieldName = 'SH_LTY4' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #26723#23376 + DataBinding.FieldName = 'SH_DZ5' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #26029#32463 + DataBinding.FieldName = 'SH_DJ6' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #40657#28857 + DataBinding.FieldName = 'SH_HD7' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #26029#19997 + DataBinding.FieldName = 'SH_DS8' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #40644#26001 + DataBinding.FieldName = 'SH_HB9' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #27515#34411#23376 + DataBinding.FieldName = 'SH_SCZ10' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #30333#26001 + DataBinding.FieldName = 'SH_BB11' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #30385#32441 + DataBinding.FieldName = 'SH_ZW12' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #40644#21360 + DataBinding.FieldName = 'SH_HY13' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #22823#30772#36793 + DataBinding.FieldName = 'SH_DPB14' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #24178#27974 + DataBinding.FieldName = 'SH_GJ15' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #27833#19997 + DataBinding.FieldName = 'SH_YS16' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn21: TcxGridDBColumn + Caption = #31354#32455 + DataBinding.FieldName = 'SH_KZ17' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn22: TcxGridDBColumn + Caption = #33394#24046 + DataBinding.FieldName = 'SH_SC18' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn23: TcxGridDBColumn + Caption = #32483#21360 + DataBinding.FieldName = 'SH_XY19' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn24: TcxGridDBColumn + Caption = #27833#28857 + DataBinding.FieldName = 'SH_YD20' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn25: TcxGridDBColumn + Caption = #30772#27934 + DataBinding.FieldName = 'SH_PD21' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end end end end @@ -651,7 +1067,6 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ Top = 156 end object GPM_1: TcxGridPopupMenu - Grid = cxGrid1 PopupMenus = <> Left = 608 Top = 136 @@ -683,4 +1098,41 @@ inherited frmTatInspSHHZ: TfrmTatInspSHHZ OnClick = N3Click end end + object PM_2: TPopupMenu + Left = 432 + Top = 385 + 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 + object N7: TMenuItem + Caption = #22797#21046#27880#33050 + OnClick = N7Click + end + end + object GPM_2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 552 + Top = 401 + end + object CDS_2: TClientDataSet + Aggregates = <> + Params = <> + Left = 664 + Top = 409 + end + object DS_2: TDataSource + DataSet = CDS_2 + Left = 760 + Top = 425 + end end diff --git a/E03梭织坯布检验/U_TatInspSHHZ.pas b/E03梭织坯布检验/U_TatInspSHHZ.pas index 2f60da7..8aaf668 100644 --- a/E03梭织坯布检验/U_TatInspSHHZ.pas +++ b/E03梭织坯布检验/U_TatInspSHHZ.pas @@ -45,6 +45,15 @@ type PCId: TEdit; label11: TLabel; Panel2: TPanel; + N2: TMenuItem; + N3: TMenuItem; + PM_2: TPopupMenu; + GPM_2: TcxGridPopupMenu; + CDS_2: TClientDataSet; + DS_2: TDataSource; + PageControl1: TPageControl; + TabSheet1: TTabSheet; + TabSheet2: TTabSheet; cxGrid1: TcxGrid; Tv1: TcxGridDBTableView; v1Column22: TcxGridDBColumn; @@ -61,8 +70,6 @@ type Tv1SH_DS8: TcxGridDBColumn; Tv1SH_HB9: TcxGridDBColumn; Tv1SH_SCZ10: TcxGridDBColumn; - cxGrid1Level1: TcxGridLevel; - N2: TMenuItem; Tv1SH_BB11: TcxGridDBColumn; Tv1SH_ZW12: TcxGridDBColumn; Tv1SH_HY13: TcxGridDBColumn; @@ -74,7 +81,40 @@ type Tv1SH_XY19: TcxGridDBColumn; Tv1SH_YD20: TcxGridDBColumn; Tv1SH_PD21: TcxGridDBColumn; - N3: TMenuItem; + cxGrid1Level1: TcxGridLevel; + N4: TMenuItem; + N5: TMenuItem; + N6: TMenuItem; + N7: TMenuItem; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + Tv1PCId: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: 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; + cxGridDBColumn22: TcxGridDBColumn; + cxGridDBColumn23: TcxGridDBColumn; + cxGridDBColumn24: TcxGridDBColumn; + cxGridDBColumn25: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -101,13 +141,18 @@ type procedure N2Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure Tv1DblClick(Sender: TObject); + procedure N4Click(Sender: TObject); + procedure N5Click(Sender: TObject); + procedure N6Click(Sender: TObject); + procedure N7Click(Sender: TObject); private CurrentPage, RecordsNumber: Integer; lstCust: TStringList; procedure InitGrid(); + procedure InitGrid2(); procedure SetStatus(); - procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); + procedure CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn); { Private declarations } public @@ -179,6 +224,47 @@ begin end; +procedure TfrmTatInspSHHZ.InitGrid2(); +var + WSql: string; + WSql1: string; +begin + + WSql := SGetFilters(Panel1, 1, 2); + if Trim(WSql) <> '' then + WSql := ' and ' + WSql; + if IsJYTime.Checked then + begin + WSql := WSql + ' and A.Filltime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); + WSql := WSql + ' and A.Filltime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)); + end; + + try + ADOQueryMain.DisableControls; + + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + + sql.Add(' ExEC P_Tat_Cloth_SHHZ2 '); + sql.Add(' @wsql = ' + quotedStr(WSql)); + sql.Add(' ,@wsql1 = ' + quotedStr(WSql1)); + +// showmessage(sql.text); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_2); + SInitCDSData(ADOQueryMain, CDS_2); + + finally + ADOQueryMain.EnableControls; + TV1.DataController.Filter.Clear; + end; + +end; + procedure TfrmTatInspSHHZ.IsJYTimeClick(Sender: TObject); begin inherited; @@ -189,6 +275,7 @@ procedure TfrmTatInspSHHZ.TBRafreshClick(Sender: TObject); begin CurrentPage := 1; InitGrid(); + InitGrid2(); end; procedure TfrmTatInspSHHZ.CDS_1BeforeOpen(DataSet: TDataSet); @@ -218,6 +305,7 @@ begin if Key = #13 then begin InitGrid(); + InitGrid2(); end; end; @@ -238,6 +326,7 @@ begin SetStatus(); InitGrid(); + InitGrid2(); end; procedure TfrmTatInspSHHZ.TBExportClick(Sender: TObject); @@ -347,18 +436,39 @@ end; procedure TfrmTatInspSHHZ.N3Click(Sender: TObject); begin - CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn); + CopyColumnSummaryToClipboard(Tv1, TV1.Controller.FocusedColumn); end; -procedure TfrmTatInspSHHZ.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); +procedure TfrmTatInspSHHZ.N4Click(Sender: TObject); +begin + + SelOKNo(CDS_2, true); +end; + +procedure TfrmTatInspSHHZ.N5Click(Sender: TObject); +begin + + SelOKNo(CDS_2, false); +end; + +procedure TfrmTatInspSHHZ.N6Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_2.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); + +end; + +procedure TfrmTatInspSHHZ.N7Click(Sender: TObject); +begin + CopyColumnSummaryToClipboard(Tv2, TV2.Controller.FocusedColumn); + +end; + +procedure TfrmTatInspSHHZ.CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn); var - AView: TcxGridDBTableView; SummaryIndex: Integer; SummaryText: string; begin - AView := Tv1; - // ָеĻ SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn); if SummaryIndex <> -1 then diff --git a/E03梭织坯布检验/U_TatInspSHHZ2.dfm b/E03梭织坯布检验/U_TatInspSHHZ2.dfm index 8bd54bb..1e3e8de 100644 --- a/E03梭织坯布检验/U_TatInspSHHZ2.dfm +++ b/E03梭织坯布检验/U_TatInspSHHZ2.dfm @@ -76,8 +76,6 @@ inherited frmTatInspSHHZ2: TfrmTatInspSHHZ2 Color = clWhite ParentBackground = False TabOrder = 1 - ExplicitLeft = -1 - ExplicitTop = 33 object Label2: TLabel Left = 70 Top = 36 @@ -187,7 +185,7 @@ inherited frmTatInspSHHZ2: TfrmTatInspSHHZ2 ParentFont = False PopupMenu = PM_1 TabOrder = 0 - ExplicitLeft = 0 + ExplicitLeft = 2 ExplicitTop = 6 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> diff --git a/E03梭织坯布检验/testDll.identcache b/E03梭织坯布检验/testDll.identcache index da925558296c296a5ba4c1654be7326a3845205d..293c0c811833319320bcd5a82eb9dfa8c98bf8c6 100644 GIT binary patch delta 12 TcmdnQxQUUGX<}sLM3x8u7#std delta 12 TcmdnQxQUUGX<~TvM3yiB7#IVX diff --git a/E04梭织坯布仓库/TatClothStk.dproj.local b/E04梭织坯布仓库/TatClothStk.dproj.local index 4696e8a..c5333d4 100644 --- a/E04梭织坯布仓库/TatClothStk.dproj.local +++ b/E04梭织坯布仓库/TatClothStk.dproj.local @@ -1,77 +1,77 @@  + 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.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.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.554,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothStkHZList2.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.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.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.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas - 1899-12-30 00:00:00.000.734,=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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.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.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.939,=D:\Dp10Repo\public10\design\U_BaseDataLink.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.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.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.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.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas - 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas - 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.337,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothCRStkHZList.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.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas - 1899-12-30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.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.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\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.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899-12-30 00:00:00.000.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.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.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas - 1899-12-30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas= 1899-12-30 00:00:00.000.231,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothRKHZList2.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.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.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.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.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.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas + 1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas diff --git a/E04梭织坯布仓库/TatClothStk.identcache b/E04梭织坯布仓库/TatClothStk.identcache index b20000bed0f7e0e2bffaa04e4e5bf941171b3825..835d5d1d1813d4f2f885449310c63c813f7da3d1 100644 GIT binary patch delta 10375 zcmZ`=6Vl|GWXt9NZkXa(&Ho1rBE!hoR{HEPh(beAN+U{UI-mI_r@HC5GG9NXXp zFc_KTVjDYn!3$oF4fc@5?VrDs{quLSPv4Ohgqo$zu*SL1ZWCo)P-9$F0B}w)<{@2fSqBbR zqr=`e=;bt_Q;-tic5SsVo~SM=G8}aMb9-b`(}g(sa$Bp#o78nh*340f(=@uk+FUW7 zkc7A(>l}F|M^n&uN8zV=SLpuTZg?<%nQ@d>cq6|R zzRX|hZC%533G%Q$VrL^!RgomGGGR%m;uxn3If6`AY+I8RE}l7mW%~4`*-Q6MADxEag3u?_tP0-SDEQGHLwyi2;qZ8Xyk@tI9Zb%aPMPb|- zoiM`F!Hc@tCn=i1bah7#N^TGfYnMA`-aK;s<+o-Yd3|Q;vMV~_=X5TjD=IfE+!R81 zs_^c{d{$8;W4(1gNsNwKf_Qtwf|}*A`xIFgj2qg!XcRtKRBOtK2s-2xd5Ue?L23H6 z$7U{n*B%fhU8R=-y+sx9t)h*MoMvao+&)E0#^n|(uA^gkGz;51bO0Aj#|S5*sIex-%)LldKR=KtW>(TuTYBb;Lj;J(sAc&_wL3lp6nFM@mb*TR;vMT>0P1U*K+ ztyv>F@6%ODgYmL8CX$`-YFRxzwxkL^EUWP68)+6&63IljASYXxL~;nD>EuZQ31Lni z7BnkaTNmSkDWqt+6)Uz+7x7yA2E%M1DTBMb%9X>%;#T8cI2HQJgYa5;V^ub<lPZt9p2bxXkbOGOaVfj&md2roRfuq3GP%Zl)!e15{qsoo?eaZn~l&-DwEpbH*J z3L+qBB%Mi{Mn1Hegb5*< zKOcjLu8JmkI4cZ~SJpsHR|))MWhDVgl9yegJPO%MqKi%b$Y4uGnXaW-4wFlk=H+0K znWC6XCW0LOh`^m!nWZgRkkwrWwnIhGUiGTksFy!fb?4`?MkM?yH%`t5yQ*(1i6YMG zIjrJkI@|&LkMVKx7^lJ2YHpp4^^OMPh#Z*|<5n?K-dBhY8kM+7-P%5y=P z7o!{^luwYPEHCi2zsO77G})*JYY;ZqA$de4FP8rve$ow6-3j}t*t7~(+6pklH z!wV9)I1^h>{x^Hoq&7k$y*c8J|xy@Xtnn?`ye|uf9eUzynysQOUlC>7bH%Kw+%CZiZ z3o8SeN*@`-0)-dC^-!|BJ_WYb5M5qWiQGMc+-+eEE<%z^6Y?paksC&@u;3p!ZSkOL26`a#kk9_v-)b#18>o2|z zw*G2pUB%5q-naV8;k8wT@csUR<+g)KMHhHYS8qZ;n*63DvJi9Q?1R_eJ_h*}m1a|K zLXhG0?G3Q;mSXtJ_VTZO5m=c z%FQmV-R?p1j~?NMO;#)~To$<48xp1M2&YR>6XXJ)_i;*E2U&tAD= z-=5@$h3#y&Zx?*IaTRRY6ooGWi{WoJg&0Ez!Sc;pi%1<4#tI91Qk7{kx4`kuO{*+{ zNOCC1YuP-X+aYHX?l(wI_`&9vLB8$xH5QMNF^n%vnD!6@> z5ulo_!5SyZs6l!{Ov4OPwNfF#scv{^tJmp>=%XkuMA{a7y0s)XH#*U!D5D;k4+w$; zUu}&$9RnmoQfO0SDS;`EWr?|;XhUY^wdby1yqvA5^r)>Vh=TV#KPk0(G$TO`%{<5B zaL(I|ok(OvjOk}LmcYkepE(qYupLnByQQA#cM}w|U<|*eiY*<;=aHRV@VKuJM6Cq= z;w!t&!P1o?*ro`1H{Clf=2Ngi5y`5E3>Lr0Ny@Nh>l@tT-%Z;hzrW$oT++En5)h;c z%84X`w;`V$yVP;EAlsQS7wDqTRl=2$YL(tw) z+n50p6k=1tHjNI9(cD4Jvidqpzo?0*@9eDC!}Byhm8=#ekDfP&5ZQlqoibRM#&{bWFiCN*0i{U%d4 ziZ^G9SLi)Dx)q+2!h)8RbS!PFr<0R;N#HSsP^;6gT>Y|ZZx+lnltQv6A5QeFH5++dKp&a;wLm>NiA42D-JGf@a;88& zDmOuQe`TJHB^?>*RSc{-xvB;p>91Y<&5jEEpntcM=66I%s!^epYN^nG(>AYc{(|c2 z^1y!E9HfA2SB2fqDmo|m6l`MG?K-+Fg)j5+?Pj4wxQyr(=vmziTiH@qc8_}=1L3~a z>mcN)fYZCtMVOa5P_kzQw5!9h(wRVL`G(W9eW#X)_zVE zIqa$6;NB+Kt<}H}_oA5f4HEW%O`*!O`y3X7+t$PT+G42LHwEMRB6xdWIb3Wmhp+aP z7SV_q$vfAoL**U)-$ySuH%bzYc|3TF$}ix#5bedd7gK4EwBrxI6@j-E)%YnGuw+8FuL3jkH6)xB~oQ zLrylf-=c_J6*97*Vb_E`^_19Woikc~E$+5sx*1xm6$TD0v8Lk$`hi*#u{`12flY@T z=>L#Ki26?xZ;EXfVc0#o&P7Lvr`ng0u;-m)U=%Tk7=}8rv1Iq822)8eUltC-xS}l? zei*}w$d1Jj(`hN`4D^hiTd|;(Gsg(j6;7Xebmqe0>E~aZKK1?S=iiw9&I=|sfDOYk zslRTapO)7#f#zbAo`N7JjWecY9lR&CfhoQg0`Z0%2RjB?D;wc#T=QYA8&21pm^bUB z?JJyp`1|C&j~@H%?e7_)2b~K9$T@Lm^>HfFA}7I0c?3SsTWq!Vp@)N<3g44I?#e;d zNpYLeo01#7NdjB75fr{$LNs+^gJlvi?hbCg`>_VLqXtD!0rn15!O$&*#ni0&njrWu zr2~7{0Hp*i}lX-C8iC8RvV}f-Jkg36^kGNFB~qu&y6zrv*kv}JNG0N% zcjH_mPCx=azq=MZ_Y_0^J>{F{swjtz>eg6NrgH#lSvY53d~W*ThpxZ#^2~Sdy~!&> z$Gw}IfQRmBbvk^?7+IE77!2Q2Uy&cvyU-x?M5B0c7H#CY0^LQN%QG)N3!agRLndOl zIJfU6$#1~A3v-xyO(FCbbc>|vr2ZD9A>qbee@AJGOla4Ptz_pOf?bi0u6f(aZ9#*B zv~rowtc6;*0&nwZxheH*u*_PpW&0Lz_?4_u=+CZY%q$W3aCf$dX2%G6-T#?=hs#Oc zPa3w)j;;`<`qKoaQw9ork<(i=hp?I0UlXo|6L%ECIn(OS%$ddlB_>fPIyKn9azS4Q zfdmya9*0%%GA+KraiS^B0a4X(NMl}}GT1B|ZuSdvbam23ja?F+4D&9Js{9^hhcFo; z=}9%|tLDb`d6x#KBy$C5)%4MB^vczA@=p+tV9{gUrs-5)5A2^2oeA_!+}mm|!o-8K|+eEwv!S^zP_U=8|-Qg#n_aac&ZF z%F=La;mluMoVjrP#^K{L54~&*#!{0nYM0l(b3j!^Rhi5+EUo?3&ib6YOeHq=)dRn6Iq+GeepV}bKU|Ud6vSaL)C}u zAyrA>fJ79?b14&uq+>QaLJmm{Pr4Zmje0WtlDr&F_l&C{bKcY+2~MQ#nS#DSgWC*( z_TliD_F1GOlgMOd&fKCo=5nRdE6*^5Y<1mcp(X|zIq9;k=AfM#1 zJT6NnaUmRd3TjHyUH$!irC9~Gc(*9iQ!_IUzld4~7C-Q`$BycDSmok4`Lqlfwr3GC zyb(?BBL!upqfc3YZk9AlX&MO z6pbXZcNDz_!A#&)n}==$Vw#SFC`83Eyw7=y&*6bR$Ly<-LGcmVotw}P(Q)9JAMp=% zs7SMD+=oyu;pk-UR|0V9*h=`9V|OiKqc}h#zV@7)$8C@&Xs372gLSLvG?q?V>53* z4`mOnwJ`o&zTR*L^gPtC7U%isL*c|2^V&&zM1fCP#SRPp*ec_cbpn>?M6Oz7DmN0pvXR zPp;{{Ntx#>vT?F>3-%30g>B~1*RMbE01o)^HzCArqUlRg3!XZ;c)iV&cI-?&Sh^;} zFWDR>MWDgEa+07Odkde!-&(*2Q!NZ5AnYd~>*1nK@Y>u>pNHjSeyE@8xWw`QKNxlV9O^pY6i#9ok!(U9jR|^fcPPB(*UqF<|iI=_i^Ar7GDE`A|JFS*fS;5O^y;V7VK|gsCu}~oOnd`xxU|1ITR0*$y$)(JY zN^^`%!wu|mD0D!nQDFT5ZZ%G4Tt3*&t+*BSA)2cy$y`_Jb)5oPB$qTEXu4rllP;nl zg$eW20)yw;9d?gKHbnK-Gv_uH0Fr`<#dF>5;+|4clx zcWWMAp`KcpV7!ZD7QGq59uDIY=<69ALL)wBi<$!gAAjLQ5eb?f-Ehc;K`|m|C3ivU z&BAt1;?GQ?7MvRp&)KHYpNwe&{tf}(&}o}Kb>*`+r*Q0v$H#mX_^>jb6YL3^>G<00 zA(&K{#vhUoy*&8}V?Y_1in6$K)sCcNAtC@5g{-Zm@IQ|xTMME*Ru|0>at{PY@i#{J z+b?XG5!=aQ+7OOfv3nMyW>(a(pL+hW+7J_HMTOu+XL(pshByhGJu@A>qjpv)>!N@c zb#hY$GsoY<{ZBvmdRRB^(x#<>jSwtF2ymTmGvg26lmv92zqKxx#{kdYo+D2GERj31 zl6`jY!*Kb0X&y3|AN3ZgTyit;@%bG)2|=6Vl|GWXt9P~beM1O@*jo}}HP9<+P)kBx5_kbo>aK1TR97`s)mktHyafZ1 z!CZ_D#&+;-CkDsFiDSIxOcHyNah${_nM{(CGcgik&Lp0knVe)MIhncdRkyk!K4bsz zahK}#d-s0#yWjm@fBbg-$8YDK+MTx(^6pv$UnyyVchqMb_QByEZiE;66+zPA4>b!b z?OShWCzHH)l#}AT#l!aYdqp9#56)|KQ1@8XQd3aU_&Bdv!n_vNI4z}`yrX<%A0M^2 zRgWx-JSUj~Jt49P{A+(b6s9&<4ZiTO%YbVtkVrKf4gH~E7d)C09CkLQBs`qTcl&$# zp2!{i4asCCQV#0r1{EU^Wd753qrh1n2LLnHY>EiKO*l%W`XoS5^E*Jb)>v z`V&cQ($JUWC8M`*u$OhpN|aZ66Ohf~dU zur^U%2gSo_X}OnW;+_L@TevxCn2Ih@7fc5g3uMug%{Y zF2L00heA2ab>g83Kuk$R7~?eFoY{qSaF~LR7nAVUdsbL2m{GDGufm!`F8D08816r` z*luUNp5DFz8ew?-P-lk&zb;!h`96;g^SV97E0f+t)HyWFa@w$0l(o^}u(r>T!u5h! zcIzHFw~aB5Xp+nI$nPgW%v%Ug=52;+dB0i^;ktz=Po8ylnDiK^On6d7^pOwSR~1OI z2AlU*73S?FA9Qrlk5_}Mps74>AOk4+$VI;ph6~yZ1uh|2$CO4C_zjo;4)FhDXoEImM-|h_NWWo)KP(E!09vjr|QHP&o`;UlIQ zzFt!b<)(Yw1<_cdC<~J=iXsC)!ACN*l;^gFy$X*>Mig4HG9;cB3DXn8!f1y#P5T`7 znKvK2{_AnP;9KVPhNzs+K~sJW)LKqk39dAR zs?i5;T6kzIsgIxyOG8GBq%xBf>E!W zNXinj1r+UF2_?2e&I06E>sY(aP_A}(!dBad2O%UkM=eE>2||Ybax#@9gw+jS8g1+Z~Cn>S%BmeMVAhfzuIb{21%yTUTI`~Sm( zGlXP7vhH!DdrpW;;`!jykv>#pM~AvS*Qw$-k|*)ox?6AAwvPDa&DS zv;GWQ>}+vEYs2(IPfTA;V|?bVQ`g>n_4@e-W{w>}CPj20ib#VV%7}q0yGq*g;CrQC zD{``WsC^1IPMhC&S*S7{e)5?ci_0{!PhbU+hfm8k)_atcI%>ea$``P*hw*aK7^j*d z;*L=~8MKvit;S%$=MPvTq6fRg9nnb_6IkQ#^sO=DGXD5vQZoh=IpKl#%O_xC#p-e+ z0$x@Mdt@$39$?UTE&-_uq|1u=bp~yemx>}$E+|DwmzNbUFN($yf>-#g;wL7C4Pf$A z_=n1c7W0@E;*doZ_+#bq{5%gFu4*gBk|9;w&tVs#h=Z4^E?6zBXJ0UZ-B5*|>f4s( z4dh0GoSKlSp@)xYHvJ?$LVQ#+Mr29V;G^mlwM?MX7w~p6vDM^X#_tN?KeWiU67mPO zW=&~Hx=ef?mKzcIA%P!$M9QV*q(Zg{!`Ku&!<%qpJ{jZF?;osB^$# ze*=7dv<7}u*J#FIvocB{SUynaEEwRUxs>>xza6&Km&1SiogJ1Wh6+=_PZYAFC}U{O zNHaCWFlSkHum+EUEgrEDg*OM*!d-!2DMQMZSJHZo@;5X!_@Q*md^p?CVorC!cKC5a zXPGUG%&EVinpnLz!h2il7{<#YhT)#QmC)Z< zu5qRCOw%j2?D0BaiCDYAz$!w5k{fg5^h4LL9yM+u64w@;2=7Bq^~ws*BvT`(N|`ZN z7*(y6Y_>n8prnNN=W)<*uo}G0C5(}3CrCC|!wP2;5||xcZ8jG=kY;o}L1p!?x7EVW zn#bC{$kO0tgFZN1ya4X(b-?>lmDRF8B_mRBVYt-GUnyI#Cm#;AE`>K*pE755 z3E@Q#z;74rgiUQ-X3B@0;sUMhTAPvTP)kO6b`_G{XLXt-(@NW6a&f%WPGa3hG%lVi ztwv@Sj}@D-5qmX7R5KX4a?g?v^B9`acJMFT1dlFDLD}*pILBZJV9WAd@Wyf%qE?@N zU}pI%aCXHoCX-H1|GVO1i+%d!BeUOl@y3~RvzIShx2B?Tek&XD?zEvk#6<);Qv6`$ zvWnb>fCr)5>y_cpDaV$VuF0x-_`Yj%BSTN#NdisiWPsOF ziezE&bR#m+YqjmIC8)p){Su*~Ov3}Y{pEsuAqG_)pM$frVtxq;A`03x3J7yLS&Sr- zu5U!tkGQDwezVD)uFb2R!M36_&&|n_Tr9HK)lGDBE*I?CPyyamEwD!{tH-ocK6ViO zjHi{bt754J!l{v96dqrdxJjTDcQq`YYkJJgtIuA)cqw02Xr4N9lv}61$DXc_945AJ zWG@OrO0uwQ^&;3mRSD{9FTA~anSrQFxUssf#1iPniGY-v$&cDHyuAl5Y;FO^nn4iP zEL`clMRMf{CZE8Ga$L0x4&ULsoxE%d$x%)m;8mm>_+-t3?an#o*X5jpgq84RP)epW z8|xu~r8~8eC+TH~?02G$o4$1Z+P9DCiq)jA1S{57#7?cuwrBFpGL(THr8c;@wi#!2!t=pI zyhlLPe_-iaW@SC@Xq0Z62_wwV6^Qd%zaZT%NOLp0X-H571Q@JbH!nMiqAYH^Rl2%N zbmElcERPv+KM4P~*R|omEf@;!*cu}6cj}dH#vT`tBPkW`UEc?JY_)a%+`ggswwe-a zHj*ZN<6zuyC(^eErK}E%JsZ{)GkWwbNkxwE(G&xNGSJU|81+v)BJ55 z<3u4khxHF`TMoaNR{`dYRcW=_vTiTnUU3>51%)OUw`uI!{j7Ow0#OQA24Fq>OqZ(DRu`iOTSzTaHe-llJ*{$lW z2TR%P?&hSZ$VVM|#kqR;F<#W?+r?0Pz8rp4>bUZ{yED(I4>P}uRl(mpMd?%&dRIZW z_e=0|?xb=cHH7M4QzP? z)-|GX#VF`XtgO3v!{1361F7k}fgE*qlais%5`#t<0s{7SuW3rdU#rBSg_aDD{uwa? z^t49d7mfXt4BLatKnhk-spE7khkpv5YcYqrQ)mZ<`K->NDm+);K#$l8rbr8XKCj~R zHl~F1dkiq)RK`D%#5_X%!5Zk=)(nHq#h`5q!;d$vfp{DwV_p71#I6};L9~lVC?_q-}xdR_Ai8260cW;9OYBx`ZKSiI2j<07NP zbRJBKI1a;acGrVpxEYoXuY+~t#o$Cm9Q;x^{`PRl19hjEe5|?9Yux9B?a>!dSXNd;Cke^HZFU; zU=T2!_O!C2%}JlJT=|?zO(tSc@hTd@X#IQfYD6gvd4_}DzTO?~f!-i|HQH`5dpQLg zF(<;c=$#gGKibdZ$jh*apSLhmQw4~gbO+18IJYS7<~xlBHh{C#xAW+!B|~uZR2QHK zfm4Y^a5b?QK2I!ILIhSi5x2}uIr%W+{EUXoCaDK*Z?VHkDOj5oJ0_NhvtSg-jcS%I z)G;kkCa;EF@-K^vVp{!$Wk#G z>XPJ+1}}YRk}=_AphNM9np_Gi5wDy=Q|AZC)zwysO(ga5&J?5(p9vx?*#At1l~nlN zew5p6M1yro+s*7HD9!M+QhOVE{|M;FDC!8CR~{ozq;$01V)LOP5#lB+0Tib<_v<;m2d|fw<+Z2Pp9MA?ZaR$3UC=z5 zgttp+KY+kFpB-gT>?VRyH0-GL;o&0tN^nB)j>gkY5N!>}*W?P2+`yosjf?UKCt?%J z)KT%^uns|;hrFsvB!ft3;#&G1|dYfKjGz0dyPZTpH zRV4A_{h5)2)EI-*f&jy^3=IrYx%$;3kJsS!5iVz+KKc&Mf78dGp1uDaW<(+8BMjX; zv78ZQbU}F=?kTRwsU(i}25k9S0p8nL+(af~g0#&29+cm=m@!h{4mRD_)snBt)Vnnb zD&AV;$Vt+~$TcLX(!wtOJsG_RIKNRX(EgVn(YfI22MRL+PmCwvxe&PDnFTpEQb@1*3&G5SiRxX@VWC$yg7#g{P zs3_X6zw+4h$!BLTy*qp9BKRM4EkxSD@j@Z7E_SChnKTJ96jBq+qS6aA)Z^zKTu@(v z97@`rXL8QRN0v6JlfxKb`0PQS&6tef4YgrJlatW;r3)+FDjK1LN%8ttp)VP|n%Lnp zCHgr9yQN9hq7kfSBe{1`^R|NRXiZh_Je7MZ2*dpqOQ~uvabx&(=bA7sQ3Ux>xhU)# z_A6MJs6=sj?7ep%U23x;K9YDPBcLn&;?aW(GK8&K=pPcEv0&nLgqd&{C&N2zen_h> z$MvW%(9<~V<5eLp<+CyP`Ps|Q zkd2Xr2&Rc21Kjb(=E5ijI*Slnl#gNCrs|F1@d7BR!I9$u_{H&6P<~dvj{~q1Og9eSd^sK|Zmz$~2;zX$Ie_fIs(^@#iO2+tLL~D=hfs zmBp5sv#;Up2D#Tj5+shxyC7%lc3Nv<9{Ubf&t?x83#!DSP4?Qc@BLGL>fgq zvG<)f9-O-V&Lv$+;OGsdQ!Bcx?Uu15fFOtqspL>C9&fq4&?xr%~nH>c`P>Ao|L3WGml zz?)d?Bql5}LUcyG44-@09m1Z5#t07hcq@~%^hwADK6zZSMev}AUH=#gdE}o_a&bqo zM5$0U4`4j{ByrMCuEmHzC1-?|lm10$3YO@Qn0fLdsw}-2ndwU>uDt_R^iJZ4T6_ym zo!ro1&QPEQnHG0|CZ~;FDN@r3>QAj$!|2uR#7Fe!8@N~UT^4!+Pe{T+l7f5nVDE~m zbVU+i*nMhCGtP!SEDdrb5?d?Y5@F$xdcdnEkBCGMADn83znwbYW_7E$E>F5CksU}E zW`g`)WX1yjPCwQUUOrJr^!-QH6TRudB=d@j_neS-8oe7rd@9tOX5r&|o9c6gQ9q}R znj)x_Q4$*n&%x=_-DGa1yBS9LB#iO!+tVIU9xGXqp;Qb9VQaD}viCwa_U*XDN7EU| z5IJ~ZvKjj!dN3t@WMD)Z$Nruk*wOnUAK((mO3aXgsrINx>MWIMN)|%@d>- z1bc&pq$|_=Wr{l^D`+_LK5%A@#hj@=`2LvzIHi&=qKhOUI|w3a7zmI`G9e+b=!-_tU1885S9ute#}Vd2@e zRz{yqtNSE)?Xk*16C0YuU#>(-hzEN7rD>SL>+IS0j?P?t&VW>>8L4??nLc?Ld4ybD zWV{Vrf9ByA5v8b|a3e-HX@bn`yDO?n(5_`B=O*M(Bujen zX67IZI&*q18Q)HC-+-T}QW)M)3GI(p+ilno@MJvMF!VpZuJsG<3<-S5j}CZ*k2!|t z!*YRFAFp!YZ-Ge1)cYTN`uMiB#ROtlT3NDYbjq{1$*xKFVeokP7Z#cY%8^7q!S-`y zRh49bB(G8>sjop^f#kVGg>&Y+A%VZGfEUks%S`ES!#h3vJyxItLE*VlbpE3}`0Rx28|NcJ0kqP|2hnj=>8_YnD;rCl}U3>62bqd!Y`7p8WIw0pATMfB*mh diff --git a/E04梭织坯布仓库/U_TatClothCKHZList.dfm b/E04梭织坯布仓库/U_TatClothCKHZList.dfm index 11e98f5..03626c0 100644 --- a/E04梭织坯布仓库/U_TatClothCKHZList.dfm +++ b/E04梭织坯布仓库/U_TatClothCKHZList.dfm @@ -223,7 +223,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList end object DRMID: TEdit Tag = 2 - Left = 243 + Left = 248 Top = 32 Width = 100 Height = 20 @@ -243,7 +243,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList end object C_Width: TEdit Tag = 2 - Left = 391 + Left = 392 Top = 6 Width = 100 Height = 20 @@ -267,7 +267,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList Top = 105 Width = 1540 Height = 516 - ActivePage = TabSheet1 + ActivePage = TabSheet4 Align = alClient Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -277,7 +277,6 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList ParentFont = False Style = tsFlatButtons TabOrder = 2 - ExplicitTop = 111 object TabSheet1: TTabSheet Caption = #26377#20986#24211#21333#20986#24211 object cxGrid1: TcxGrid @@ -559,7 +558,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList Options.Editing = False Width = 94 end - object Tv1ToCoName: TcxGridDBColumn + object Tv1CoName: TcxGridDBColumn Caption = #23458#25143 DataBinding.FieldName = 'CoName' DataBinding.IsNullValueType = True diff --git a/E04梭织坯布仓库/U_TatClothCKHZList.pas b/E04梭织坯布仓库/U_TatClothCKHZList.pas index fedf484..61b1ce4 100644 --- a/E04梭织坯布仓库/U_TatClothCKHZList.pas +++ b/E04梭织坯布仓库/U_TatClothCKHZList.pas @@ -103,7 +103,7 @@ type cxGridDBColumn3: TcxGridDBColumn; Tv1IOTime: TcxGridDBColumn; Tv1DRMID: TcxGridDBColumn; - Tv1ToCoName: TcxGridDBColumn; + Tv1CoName: TcxGridDBColumn; cxGridDBColumn4: TcxGridDBColumn; Tv1C_Width: TcxGridDBColumn; cxGridDBColumn6: TcxGridDBColumn; @@ -251,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); @@ -370,12 +370,12 @@ var WSql: string; begin - WSql := SGetFilters(Panel1, 1, 2); - if Trim(WSql) <> '' then - WSql := ' and ' + WSql; +// WSql := SGetFilters(Panel1, 1, 2); +// if Trim(WSql) <> '' then +// WSql := ' and ' + WSql; if IsJYTime.Checked then begin - WSql := WSql + ' and A.IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); + WSql := ' and A.IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); WSql := WSql + ' and A.IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)); end; @@ -405,6 +405,26 @@ begin // sql.Add(' and B.ToCoID = ' + QuotedStr(Trim(fToCoID))); // sql.Add(' and isnull(A.issp,'''') = ' + QuotedStr(Trim(fissp))); sql.Add(WSql); + if C_Name.text <> '' then + begin + SQL.Add(' and A.C_Name like ' + QuotedStr('%' + Trim(C_Name.text) + '%')); + end; + if C_Width.text <> '' then + begin + SQL.Add(' and A.C_Width like ' + QuotedStr('%' + Trim(C_Width.text) + '%')); + end; + if CoName.text <> '' then + begin + SQL.Add(' and D.CoName like ' + QuotedStr('%' + Trim(CoName.text) + '%')); + end; + if DRMID.text <> '' then + begin + SQL.Add(' and B.DRMID like ' + QuotedStr('%' + Trim(DRMID.text) + '%')); + end; + if C_GramWeight.text <> '' then + begin + SQL.Add(' and A.C_GramWeight like ' + QuotedStr('%' + Trim(C_GramWeight.text) + '%')); + end; 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))); diff --git a/E04梭织坯布仓库/U_TatClothCRStkHZList.dfm b/E04梭织坯布仓库/U_TatClothCRStkHZList.dfm index 8880cb2..4a54153 100644 --- a/E04梭织坯布仓库/U_TatClothCRStkHZList.dfm +++ b/E04梭织坯布仓库/U_TatClothCRStkHZList.dfm @@ -278,6 +278,8 @@ inherited frmTatClothCRStkHZList: TfrmTatClothCRStkHZList ParentFont = False PopupMenu = PM_1 TabOrder = 0 + ExplicitLeft = 0 + ExplicitTop = 6 object cxGrid1DBBandedTableView1: TcxGridDBBandedTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/E04梭织坯布仓库/U_TatClothRKHZList.dfm b/E04梭织坯布仓库/U_TatClothRKHZList.dfm index 98e5b90..5bf4254 100644 --- a/E04梭织坯布仓库/U_TatClothRKHZList.dfm +++ b/E04梭织坯布仓库/U_TatClothRKHZList.dfm @@ -298,7 +298,6 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList ParentFont = False PopupMenu = PM_1 TabOrder = 0 - ExplicitHeight = 464 object Tv1: TcxGridDBTableView OnDblClick = Tv1DblClick Navigator.Buttons.CustomButtons = <> diff --git a/E04梭织坯布仓库/U_TatClothRKHZList.pas b/E04梭织坯布仓库/U_TatClothRKHZList.pas index 86fb066..2e96057 100644 --- a/E04梭织坯布仓库/U_TatClothRKHZList.pas +++ b/E04梭织坯布仓库/U_TatClothRKHZList.pas @@ -148,7 +148,8 @@ type procedure InitGrid(); procedure InitGrid2(); procedure SetStatus(); - procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); + procedure CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn); + { Private declarations } public canshu1: string; @@ -329,7 +330,7 @@ begin // sql.Add('group by C_NAME, IOType,C_GramWeight,pcid,isnull(A.issp,'''')'); sql.Add('Order by C_NAME, C_width,pcid,C_GramWeight '); // sql.Add('Order by C_NAME, IOType,C_GramWeight '); - showmessage(sql.text); +// showmessage(sql.text); Open; end; SCreateCDS(ADOQueryMain, CDS_2); @@ -521,7 +522,7 @@ end; procedure TfrmTatClothRKHZList.N3Click(Sender: TObject); begin - CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn); + CopyColumnSummaryToClipboard(Tv1,TV1.Controller.FocusedColumn); end; procedure TfrmTatClothRKHZList.N4Click(Sender: TObject); @@ -543,17 +544,14 @@ end; procedure TfrmTatClothRKHZList.N7Click(Sender: TObject); begin - CopyColumnSummaryToClipboard(TV2.Controller.FocusedColumn); + CopyColumnSummaryToClipboard(TV2, TV2.Controller.FocusedColumn); end; -procedure TfrmTatClothRKHZList.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); +procedure TfrmTatClothRKHZList.CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn); var - AView: TcxGridDBTableView; SummaryIndex: Integer; SummaryText: string; begin - AView := Tv1; - // ָеĻ SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn); if SummaryIndex <> -1 then diff --git a/E04梭织坯布仓库/U_TatClothStkHZList.dfm b/E04梭织坯布仓库/U_TatClothStkHZList.dfm index ea7130b..0a4d22b 100644 --- a/E04梭织坯布仓库/U_TatClothStkHZList.dfm +++ b/E04梭织坯布仓库/U_TatClothStkHZList.dfm @@ -120,6 +120,20 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList Font.Style = [fsBold] ParentFont = False end + object label12: TLabel + Left = 190 + Top = 35 + Width = 26 + Height = 12 + Hint = '0' + Caption = #38376#24133 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end object BegDate: TDateTimePicker Left = 88 Top = 6 @@ -195,6 +209,16 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList TabOrder = 6 OnKeyPress = C_NameKeyPress end + object C_width: TEdit + Tag = 2 + Left = 237 + Top = 32 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 7 + OnKeyPress = C_NameKeyPress + end end object Panel2: TPanel [2] Left = 0 @@ -203,332 +227,685 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList Height = 495 Align = alClient TabOrder = 2 - object cxGrid1: TcxGrid + object PageControl1: TPageControl Left = 1 Top = 1 Width = 1538 Height = 493 + ActivePage = TabSheet1 Align = alClient - BorderStyle = cxcbsNone Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -12 + Font.Height = -20 Font.Name = #23435#20307 - Font.Style = [] + Font.Style = [fsBold] ParentFont = False - PopupMenu = PM_1 TabOrder = 0 - object Tv1: TcxGridDBTableView - OnDblClick = Tv1DblClick - Navigator.Buttons.CustomButtons = <> - ScrollbarAnnotations.CustomAnnotations = <> - DataController.DataSource = DS_1 - DataController.Filter.AutoDataSetFilter = True - DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] - DataController.Summary.DefaultGroupSummaryItems = <> - DataController.Summary.FooterSummaryItems = < - item - Kind = skSum + object TabSheet1: TTabSheet + Caption = ' '#27719#24635' ' + object cxGrid1: TcxGrid + Left = 0 + Top = 0 + Width = 1530 + Height = 457 + Align = alClient + BorderStyle = cxcbsNone + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + PopupMenu = PM_1 + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_1 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Format = #26816#39564#31995#25968'=#.##' + Kind = skAverage + end + item + Format = #25442#31639#31995#25968'=#.##' + Kind = skAverage + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column6 + end + item + Kind = skSum + Column = Tv1Column1 + end + item + Kind = skSum + Column = Tv1Column7 + end + item + Kind = skSum + Column = Tv1Column8 + end + item + Kind = skSum + Column = Tv1Column9 + end + item + Kind = skSum + Column = Tv1Column10 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column13 + end + item + Kind = skSum + Column = Tv1Column14 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column17 + end + item + Kind = skSum + Column = Tv1Column18 + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1YdPF + end + item + Kind = skSum + Column = Tv1edPF + end + item + Kind = skSum + Column = Tv1xjPF + end + item + Kind = skSum + Column = Tv1fqPF + end + item + Kind = skSum + Column = Tv1csPF + end + item + Kind = skSum + Column = Tv1pf + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.IndicatorWidth = 30 + Styles.IncSearch = DataLink_TatClothStk.SHuangSe + Styles.Footer = DataLink_TatClothStk.Default + Styles.Header = DataLink_TatClothStk.Default + Styles.Inactive = DataLink_TatClothStk.SHuangSe + Styles.Selection = DataLink_TatClothStk.SHuangSe + object v1Column22: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + object Tv1Column3: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1issp: TcxGridDBColumn + Caption = #21452#21943 + DataBinding.FieldName = 'issp' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column4: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column6: TcxGridDBColumn + Caption = #20248#31561#21367#25968 + DataBinding.FieldName = 'YDJs' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object Tv1Column1: TcxGridDBColumn + Caption = #20248#31561#31859#25968 + DataBinding.FieldName = 'Ydqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1YdPF: TcxGridDBColumn + Caption = #20248#31561#24179#26041 + DataBinding.FieldName = 'YdPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column7: TcxGridDBColumn + Caption = #20108#31561#21367#25968 + DataBinding.FieldName = 'edJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column8: TcxGridDBColumn + Caption = #20108#31561#31859#25968 + DataBinding.FieldName = 'edqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1edPF: TcxGridDBColumn + Caption = #20108#31561#24179#26041 + DataBinding.FieldName = 'edPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column9: TcxGridDBColumn + Caption = #23567#21367#21367#25968 + DataBinding.FieldName = 'xjJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column10: TcxGridDBColumn + Caption = #23567#21367#25968#37327 + DataBinding.FieldName = 'xjqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1xjPF: TcxGridDBColumn + Caption = #23567#21367#24179#26041 + DataBinding.FieldName = 'xjPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column13: TcxGridDBColumn + Caption = #20998#20999#21367#25968 + DataBinding.FieldName = 'fqJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column14: TcxGridDBColumn + Caption = #20998#20999#24067#25968#37327 + DataBinding.FieldName = 'fqqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1fqPF: TcxGridDBColumn + Caption = #20998#20999#24179#26041 + DataBinding.FieldName = 'fqPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column17: TcxGridDBColumn + Caption = #27979#35797#21367#25968 + DataBinding.FieldName = 'csJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column18: TcxGridDBColumn + Caption = #27979#35797#25968#37327 + DataBinding.FieldName = 'csqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1csPF: TcxGridDBColumn + Caption = #27979#35797#24179#26041 + DataBinding.FieldName = 'csPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1pf: TcxGridDBColumn + Caption = #24179#26041 + DataBinding.FieldName = 'pf' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end end - item - Kind = skSum + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 end - item - Kind = skCount - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Format = #26816#39564#31995#25968'=#.##' - Kind = skAverage - end - item - Format = #25442#31639#31995#25968'=#.##' - Kind = skAverage - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - Column = Tv1Column6 - end - item - Kind = skSum - Column = Tv1Column1 - end - item - Kind = skSum - Column = Tv1Column7 - end - item - Kind = skSum - Column = Tv1Column8 - end - item - Kind = skSum - Column = Tv1Column9 - end - item - Kind = skSum - Column = Tv1Column10 - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - Column = Tv1Column13 - end - item - Kind = skSum - Column = Tv1Column14 - end - item - Kind = skSum - end - item - Kind = skSum - end - item - Kind = skSum - Column = Tv1Column17 - end - item - Kind = skSum - Column = Tv1Column18 - end - item - Kind = skSum - end - item - Kind = skSum - Column = Tv1YdPF - end - item - Kind = skSum - Column = Tv1edPF - end - item - Kind = skSum - Column = Tv1xjPF - end - item - Kind = skSum - Column = Tv1fqPF - end - item - Kind = skSum - Column = Tv1csPF - end - item - Kind = skSum - Column = Tv1pf - end> - DataController.Summary.SummaryGroups = <> - OptionsCustomize.ColumnFiltering = False - OptionsView.Footer = True - OptionsView.GroupByBox = False - OptionsView.IndicatorWidth = 30 - Styles.IncSearch = DataLink_TatClothStk.SHuangSe - Styles.Footer = DataLink_TatClothStk.Default - Styles.Header = DataLink_TatClothStk.Default - Styles.Inactive = DataLink_TatClothStk.SHuangSe - Styles.Selection = DataLink_TatClothStk.SHuangSe - object v1Column22: TcxGridDBColumn - Caption = #36873#25321 - DataBinding.FieldName = 'SSel' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxCheckBoxProperties' - Properties.ImmediatePost = True - Properties.NullStyle = nssUnchecked - HeaderAlignmentHorz = taCenter - Options.Sorting = False - Width = 66 - end - object Tv1Column3: TcxGridDBColumn - Caption = #21697#21517 - DataBinding.FieldName = 'C_Name' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object Tv1issp: TcxGridDBColumn - Caption = #21452#21943 - DataBinding.FieldName = 'issp' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column4: TcxGridDBColumn - Caption = #20811#37325 - DataBinding.FieldName = 'C_GramWeight' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object Tv1Column6: TcxGridDBColumn - Caption = #20248#31561#21367#25968 - DataBinding.FieldName = 'YDJs' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 74 - end - object Tv1Column1: TcxGridDBColumn - Caption = #20248#31561#31859#25968 - DataBinding.FieldName = 'Ydqty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1YdPF: TcxGridDBColumn - Caption = #20248#31561#24179#26041 - DataBinding.FieldName = 'YdPF' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column7: TcxGridDBColumn - Caption = #20108#31561#21367#25968 - DataBinding.FieldName = 'edJS' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column8: TcxGridDBColumn - Caption = #20108#31561#31859#25968 - DataBinding.FieldName = 'edqty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1edPF: TcxGridDBColumn - Caption = #20108#31561#24179#26041 - DataBinding.FieldName = 'edPF' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column9: TcxGridDBColumn - Caption = #23567#21367#21367#25968 - DataBinding.FieldName = 'xjJS' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column10: TcxGridDBColumn - Caption = #23567#21367#25968#37327 - DataBinding.FieldName = 'xjqty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1xjPF: TcxGridDBColumn - Caption = #23567#21367#24179#26041 - DataBinding.FieldName = 'xjPF' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column13: TcxGridDBColumn - Caption = #20998#20999#21367#25968 - DataBinding.FieldName = 'fqJS' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column14: TcxGridDBColumn - Caption = #20998#20999#24067#25968#37327 - DataBinding.FieldName = 'fqqty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1fqPF: TcxGridDBColumn - Caption = #20998#20999#24179#26041 - DataBinding.FieldName = 'fqPF' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column17: TcxGridDBColumn - Caption = #27979#35797#21367#25968 - DataBinding.FieldName = 'csJS' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1Column18: TcxGridDBColumn - Caption = #27979#35797#25968#37327 - DataBinding.FieldName = 'csqty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1csPF: TcxGridDBColumn - Caption = #27979#35797#24179#26041 - DataBinding.FieldName = 'csPF' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 - end - object Tv1pf: TcxGridDBColumn - Caption = #24179#26041 - DataBinding.FieldName = 'pf' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 80 end end - object cxGrid1Level1: TcxGridLevel - GridView = Tv1 + object TabSheet2: TTabSheet + Caption = ' '#26126#32454' ' + ImageIndex = 1 + object cxGrid2: TcxGrid + Left = 0 + Top = 0 + Width = 1530 + Height = 457 + Align = alClient + BorderStyle = cxcbsNone + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + PopupMenu = PM_2 + TabOrder = 0 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_2 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Format = #26816#39564#31995#25968'=#.##' + Kind = skAverage + end + item + Format = #25442#31639#31995#25968'=#.##' + Kind = skAverage + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Kind = skSum + Column = cxGridDBColumn7 + end + item + Kind = skSum + Column = cxGridDBColumn9 + end + item + Kind = skSum + Column = cxGridDBColumn10 + end + item + Kind = skSum + Column = cxGridDBColumn12 + end + item + Kind = skSum + Column = cxGridDBColumn13 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn15 + end + item + Kind = skSum + Column = cxGridDBColumn16 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn18 + end + item + Kind = skSum + Column = cxGridDBColumn19 + end + item + Kind = skSum + Column = cxGridDBColumn21 + end + item + Kind = skSum + Column = cxGridDBColumn14 + end + item + Kind = skSum + Column = cxGridDBColumn11 + end + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skSum + Column = cxGridDBColumn17 + end + item + Kind = skSum + Column = cxGridDBColumn20 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.IndicatorWidth = 30 + Styles.IncSearch = DataLink_TatClothStk.SHuangSe + Styles.Footer = DataLink_TatClothStk.Default + Styles.Header = DataLink_TatClothStk.Default + Styles.Inactive = DataLink_TatClothStk.SHuangSe + Styles.Selection = DataLink_TatClothStk.SHuangSe + object cxGridDBColumn1: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #21452#21943 + DataBinding.FieldName = 'issp' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'C_width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #20248#31561#21367#25968 + DataBinding.FieldName = 'YDJs' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 74 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #20248#31561#31859#25968 + DataBinding.FieldName = 'Ydqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn8: TcxGridDBColumn + Caption = #20248#31561#24179#26041 + DataBinding.FieldName = 'YdPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #20108#31561#21367#25968 + DataBinding.FieldName = 'edJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #20108#31561#31859#25968 + DataBinding.FieldName = 'edqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #20108#31561#24179#26041 + DataBinding.FieldName = 'edPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #23567#21367#21367#25968 + DataBinding.FieldName = 'xjJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #23567#21367#25968#37327 + DataBinding.FieldName = 'xjqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #23567#21367#24179#26041 + DataBinding.FieldName = 'xjPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #20998#20999#21367#25968 + DataBinding.FieldName = 'fqJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #20998#20999#24067#25968#37327 + DataBinding.FieldName = 'fqqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #20998#20999#24179#26041 + DataBinding.FieldName = 'fqPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #27979#35797#21367#25968 + DataBinding.FieldName = 'csJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #27979#35797#25968#37327 + DataBinding.FieldName = 'csqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn20: TcxGridDBColumn + Caption = #27979#35797#24179#26041 + DataBinding.FieldName = 'csPF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn21: TcxGridDBColumn + Caption = #24179#26041 + DataBinding.FieldName = 'pf' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 71 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv2 + end + end end end end @@ -570,7 +947,6 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList Top = 156 end object GPM_1: TcxGridPopupMenu - Grid = cxGrid1 PopupMenus = <> Left = 608 Top = 136 @@ -602,4 +978,41 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList OnClick = N3Click end end + object CDS_2: TClientDataSet + Aggregates = <> + Params = <> + Left = 461 + Top = 322 + end + object DS_2: TDataSource + DataSet = CDS_2 + Left = 557 + Top = 330 + end + object PM_2: TPopupMenu + Left = 469 + Top = 386 + 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 + object N7: TMenuItem + Caption = #22797#21046#27880#33050 + OnClick = N7Click + end + end + object GPM_2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 565 + Top = 386 + end end diff --git a/E04梭织坯布仓库/U_TatClothStkHZList.pas b/E04梭织坯布仓库/U_TatClothStkHZList.pas index 3293d18..c6a3855 100644 --- a/E04梭织坯布仓库/U_TatClothStkHZList.pas +++ b/E04梭织坯布仓库/U_TatClothStkHZList.pas @@ -43,6 +43,12 @@ type C_GramWeight: TEdit; label11: TLabel; Panel2: TPanel; + N2: TMenuItem; + N3: TMenuItem; + ToolButton1: TToolButton; + PageControl1: TPageControl; + TabSheet1: TTabSheet; + TabSheet2: TTabSheet; cxGrid1: TcxGrid; Tv1: TcxGridDBTableView; v1Column22: TcxGridDBColumn; @@ -51,24 +57,55 @@ type Tv1Column4: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn; + Tv1YdPF: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn; + Tv1edPF: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn; Tv1Column10: TcxGridDBColumn; + Tv1xjPF: TcxGridDBColumn; Tv1Column13: TcxGridDBColumn; Tv1Column14: TcxGridDBColumn; + Tv1fqPF: TcxGridDBColumn; Tv1Column17: TcxGridDBColumn; Tv1Column18: TcxGridDBColumn; - cxGrid1Level1: TcxGridLevel; - N2: TMenuItem; - Tv1pf: TcxGridDBColumn; - Tv1YdPF: TcxGridDBColumn; - Tv1edPF: TcxGridDBColumn; - Tv1xjPF: TcxGridDBColumn; - Tv1fqPF: TcxGridDBColumn; Tv1csPF: TcxGridDBColumn; - N3: TMenuItem; - ToolButton1: TToolButton; + Tv1pf: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxGrid2: TcxGrid; + Tv2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: 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; + cxGridLevel1: TcxGridLevel; + CDS_2: TClientDataSet; + DS_2: TDataSource; + PM_2: TPopupMenu; + GPM_2: TcxGridPopupMenu; + N4: TMenuItem; + N5: TMenuItem; + N6: TMenuItem; + N7: TMenuItem; + label12: TLabel; + C_width: TEdit; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -96,12 +133,17 @@ type procedure N2Click(Sender: TObject); procedure Tv1DblClick(Sender: TObject); procedure N3Click(Sender: TObject); + procedure N4Click(Sender: TObject); + procedure N5Click(Sender: TObject); + procedure N6Click(Sender: TObject); + procedure N7Click(Sender: TObject); private CurrentPage, RecordsNumber: Integer; lstCust: TStringList; procedure InitGrid(); + procedure InitGrid2(); procedure SetStatus(); - procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); + procedure CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn); { Private declarations } public @@ -204,6 +246,75 @@ begin end; +procedure TfrmTatClothStkHZList.InitGrid2(); +var + WSql: string; +begin + + WSql := SGetFilters(Panel1, 1, 2); + if Trim(WSql) <> '' then + WSql := ' and ' + WSql; + if IsJYTime.Checked then + begin + WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); + WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)); + end; + + try + ADOQueryMain.DisableControls; + + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + + sql.Add('select A.C_NAME, A.C_width,A.C_GramWeight '); + SQL.Add(',pf=SUM(CASE WHEN (GRADE=''ŵƷ'' or GRADE=''Ʒ'' or GRADE=''С'' or GRADE='''' or GRADE='''') THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) else 0 end )'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN 1 ELSE 0 END )AS YDJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN A.meter ELSE 0 END )AS Ydqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS YdPF'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''Ʒ'' THEN 1 ELSE 0 END )AS edJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''Ʒ'' THEN A.meter ELSE 0 END )AS edqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''Ʒ'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS edPF'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''С'' THEN 1 ELSE 0 END )AS xjJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''С'' THEN A.meter ELSE 0 END )AS xjqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''С'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS xjPF'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ϲ'' THEN 1 ELSE 0 END )AS fbJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ϲ'' THEN A.meter ELSE 0 END )AS fbqty'); +// SQL.Add(',SUM(CASE WHEN GRADE=''ϲ'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS fbPF'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END )AS fqJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN A.meter ELSE 0 END )AS fqqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS fqPF'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ѭ'' THEN 1 ELSE 0 END )AS xhJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ѭ'' THEN A.meter ELSE 0 END )AS xhqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END )AS csJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN A.meter ELSE 0 END )AS csqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS csPF'); + sql.Add(', issp=isnull(A.issp,'''') '); + + SQL.Add('from V_Tat_Cloth_stk A where 1=1 '); + SQL.Add(' and Grade <> ''ϲ'' '); + SQL.Add(' and Grade <> ''ѭ'' '); + + + SQL.Add(WSql); + sql.Add(' group by A.C_NAME, A.C_width,A.C_GramWeight,isnull(A.issp,'''') '); + SQL.Add(' order by A.C_NAME, CAST(A.C_Width AS DECIMAL(10,2)),A.C_GramWeight'); + +// showmessage(sql.text); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_2); + SInitCDSData(ADOQueryMain, CDS_2); + + finally + ADOQueryMain.EnableControls; + TV2.DataController.Filter.Clear; + end; + +end; + procedure TfrmTatClothStkHZList.IsJYTimeClick(Sender: TObject); begin inherited; @@ -214,6 +325,7 @@ procedure TfrmTatClothStkHZList.TBRafreshClick(Sender: TObject); begin CurrentPage := 1; InitGrid(); + InitGrid2(); end; procedure TfrmTatClothStkHZList.CDS_1BeforeOpen(DataSet: TDataSet); @@ -243,6 +355,7 @@ begin if Key = #13 then begin InitGrid(); + InitGrid2(); end; end; @@ -264,6 +377,7 @@ begin SetStatus(); InitGrid(); + InitGrid2(); end; procedure TfrmTatClothStkHZList.TBExportClick(Sender: TObject); @@ -373,17 +487,38 @@ end; procedure TfrmTatClothStkHZList.N3Click(Sender: TObject); begin - CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn); + CopyColumnSummaryToClipboard(TV1,TV1.Controller.FocusedColumn); end; -procedure TfrmTatClothStkHZList.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn); +procedure TfrmTatClothStkHZList.N4Click(Sender: TObject); +begin + + SelOKNo(CDS_2, true); +end; + +procedure TfrmTatClothStkHZList.N5Click(Sender: TObject); +begin + + SelOKNo(CDS_2, false); +end; + +procedure TfrmTatClothStkHZList.N6Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_2.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); + +end; + +procedure TfrmTatClothStkHZList.N7Click(Sender: TObject); +begin + + CopyColumnSummaryToClipboard(TV2,TV2.Controller.FocusedColumn); +end; + +procedure TfrmTatClothStkHZList.CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn); var - AView: TcxGridDBTableView; SummaryIndex: Integer; SummaryText: string; begin - AView := Tv1; - // ָеĻ SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn); if SummaryIndex <> -1 then diff --git a/E04梭织坯布仓库/testDll.identcache b/E04梭织坯布仓库/testDll.identcache index 6c748c74242fbdddc4450dddc1caa958e7d6a32a..c1cb9ae75a990bea396bfdae0d9e86db54c85777 100644 GIT binary patch delta 460 zcmY+A%}N|W6or|t{&U8RyBKtlg%JXQkReeBBf`wIM!`g(Te4HiuA7-k>ZhrDXQIAF zJ%Hd7xXa_Xki18#XB9UW?uC2Kcg|z?vHS3`^D?ijRb%c3G2Jx4zz8;K8o$^1xmzoa zm>ycEkBfMYfW3kfA9I9~T#n=_D-E#)cfB+2xCR1;pM59V@Y~V8pGF^ErDYHV7tekh zkyNcz(hl_Z(eTBpfMDS`No&ymjb5+yN5$#H8UuBE8~B**t}h>s^59h2;F&c}E;xZN z+1vLk=a&RXLaD5c@m-q!7oam|>yZ!+5VJ{}0WdiblKda`X0=ywnkY-Nl79IocJb*e zm^mi3vItorxw2Et0|Pm$urGC^K!c$rWM1CjIZ1{7Hr`(ESI=m(LaA?|1b-I~52Ion zS59gse(3z*nkM8F#st^2a;*6jP9zc&$a@(2(E&8v(q?|8WZex3f>c|Rf0t}-{nzbI RTAlDKP=QY`71QN9_y?0|ojw2n delta 440 zcmY+A&2G~`5P%hX{gb%L5w*$zAyKJEq82VeMUI_9B)0^`h+C_TcSx45z1GeI+DG8L zFHrRfcon#D>Z8zgdg8W++4;Wt9tIDCU&p;ZquUmIXoQ{jzP+0XN#meW95Fo8rk>|) zi-1A*{*dIH_>?0o$;6p%$Y_Nzk}0)p$QQ`%-`?o(b+X`w*Fa$Kgn>ec1t(a!kNtVg z*HB0#>wBln7hh|edan|;`O%1=>?ro9H;JQCYxPAo_P6)k{`1}(_-Wh54pM4|OG-|e z(zIF9wJrRkw_(9opvL{rR|H5xDQ8z_WE2kH11*fMQXvc=GJ+c#ruj!_-#|rDH}>9t z8Aq*=-<_lV<6l0jltzeh$(3GX+?hE^&hj(g#% FJ_2l