From 8ef54087108df78579b31eccd75920e724053143 Mon Sep 17 00:00:00 2001
From: "DESKTOP-E401PHE\\Administrator" <rightsoft@163.com>
Date: Tue, 9 Dec 2025 13:33:53 +0800
Subject: [PATCH] 1234

---
 .../ClothWarehouse.dof                        |  2 +-
 .../U_PBRklist.dfm                            | 32 +++++++++++++++++--
 .../U_PBRklist.pas                            |  3 ++
 3 files changed, 34 insertions(+), 3 deletions(-)

diff --git a/坯布汇总仓库(ClothWarehouse.dll)/ClothWarehouse.dof b/坯布汇总仓库(ClothWarehouse.dll)/ClothWarehouse.dof
index a5f94f2..a48a2a8 100644
--- a/坯布汇总仓库(ClothWarehouse.dll)/ClothWarehouse.dof
+++ b/坯布汇总仓库(ClothWarehouse.dll)/ClothWarehouse.dof
@@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\Dp7Repo\��Ŀ����\����\�������ֿܲ�(ClothWarehouse.dll)\testDll.exe
+HostApplication=D:\Dp7Repo\��Ŀ����\D7fhkelong\�������ֿܲ�(ClothWarehouse.dll)\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=
diff --git a/坯布汇总仓库(ClothWarehouse.dll)/U_PBRklist.dfm b/坯布汇总仓库(ClothWarehouse.dll)/U_PBRklist.dfm
index 4df06d9..639a85d 100644
--- a/坯布汇总仓库(ClothWarehouse.dll)/U_PBRklist.dfm
+++ b/坯布汇总仓库(ClothWarehouse.dll)/U_PBRklist.dfm
@@ -208,7 +208,7 @@ object frmPBRklist: TfrmPBRklist
       ParentFont = False
     end
     object Label15: TLabel
-      Left = 841
+      Left = 1039
       Top = 24
       Width = 52
       Height = 12
@@ -286,6 +286,19 @@ object frmPBRklist: TfrmPBRklist
       Font.Style = [fsBold]
       ParentFont = False
     end
+    object Label12: TLabel
+      Left = 801
+      Top = 14
+      Width = 54
+      Height = 12
+      Caption = #25209'    '#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
     object BegDate: TDateTimePicker
       Left = 76
       Top = 11
@@ -369,7 +382,7 @@ object frmPBRklist: TfrmPBRklist
     end
     object Code: TEdit
       Tag = 2
-      Left = 897
+      Left = 1095
       Top = 20
       Width = 80
       Height = 20
@@ -428,6 +441,15 @@ object frmPBRklist: TfrmPBRklist
       TabOrder = 12
       OnChange = CodeNameChange
     end
+    object CRID: TEdit
+      Tag = 2
+      Left = 857
+      Top = 10
+      Width = 80
+      Height = 20
+      TabOrder = 13
+      OnChange = CodeNameChange
+    end
   end
   object cxGrid1: TcxGrid
     Left = 0
@@ -622,6 +644,12 @@ object frmPBRklist: TfrmPBRklist
         HeaderAlignmentHorz = taCenter
         Width = 67
       end
+      object Tv1Column8: TcxGridDBColumn
+        Caption = #25209#21495
+        DataBinding.FieldName = 'CRID'
+        HeaderAlignmentHorz = taCenter
+        Width = 78
+      end
       object Tv1Column1: TcxGridDBColumn
         Caption = #25240#31639#31859#25968
         DataBinding.FieldName = 'zsqty'
diff --git a/坯布汇总仓库(ClothWarehouse.dll)/U_PBRklist.pas b/坯布汇总仓库(ClothWarehouse.dll)/U_PBRklist.pas
index 18472ab..1e4f163 100644
--- a/坯布汇总仓库(ClothWarehouse.dll)/U_PBRklist.pas
+++ b/坯布汇总仓库(ClothWarehouse.dll)/U_PBRklist.pas
@@ -113,6 +113,9 @@ type
     ToolButton2: TToolButton;
     CDS_Print: TClientDataSet;
     DataSource2: TDataSource;
+    Label12: TLabel;
+    CRID: TEdit;
+    Tv1Column8: TcxGridDBColumn;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormDestroy(Sender: TObject);
     procedure TBAddClick(Sender: TObject);