From d39d9aac8f53c53bcc0d9f65a9df7cb96529fe52 Mon Sep 17 00:00:00 2001
From: "DESKTOP-E401PHE\\Administrator" <rightsoft@163.com>
Date: Wed, 20 Aug 2025 14:04:59 +0800
Subject: [PATCH] ~

---
 复合检验管理/TradeManage.dof           | 2 +-
 复合检验管理/U_OrderInPut.dfm          | 6 ++++++
 复合检验管理/U_OrderInPut.pas          | 3 ++-
 复合检验管理/U_ProductOrderNewList.dfm | 6 ++++++
 复合检验管理/U_ProductOrderNewList.pas | 1 +
 5 files changed, 16 insertions(+), 2 deletions(-)

diff --git a/复合检验管理/TradeManage.dof b/复合检验管理/TradeManage.dof
index b1e0d12..df1dd48 100644
--- a/复合检验管理/TradeManage.dof
+++ b/复合检验管理/TradeManage.dof
@@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\�������Ŀ����\��Ŀ����\ҫ��\���ϼ������\testDll.exe
+HostApplication=D:\Dp7Repo\��Ŀ����\D7DJyaofa\���ϼ������\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=
diff --git a/复合检验管理/U_OrderInPut.dfm b/复合检验管理/U_OrderInPut.dfm
index bfa41d7..f8eef5b 100644
--- a/复合检验管理/U_OrderInPut.dfm
+++ b/复合检验管理/U_OrderInPut.dfm
@@ -1865,6 +1865,12 @@ object frmOrderInPut: TfrmOrderInPut
         HeaderAlignmentHorz = taCenter
         Width = 60
       end
+      object Tv1Column5: TcxGridDBColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'PrtPs'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
     end
     object cxGrid1Level1: TcxGridLevel
       GridView = Tv1
diff --git a/复合检验管理/U_OrderInPut.pas b/复合检验管理/U_OrderInPut.pas
index dd84c53..23cd49e 100644
--- a/复合检验管理/U_OrderInPut.pas
+++ b/复合检验管理/U_OrderInPut.pas
@@ -1,5 +1,5 @@
 unit U_OrderInPut;
-
+                    
 interface
                                         
 uses
@@ -193,6 +193,7 @@ type
     Tv1Column2: TcxGridDBColumn;
     Tv1Column3: TcxGridDBColumn;
     Tv1Column4: TcxGridDBColumn;
+    Tv1Column5: TcxGridDBColumn;
     procedure TBCloseClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure TBSaveClick(Sender: TObject);
diff --git a/复合检验管理/U_ProductOrderNewList.dfm b/复合检验管理/U_ProductOrderNewList.dfm
index 419a50a..f2d714e 100644
--- a/复合检验管理/U_ProductOrderNewList.dfm
+++ b/复合检验管理/U_ProductOrderNewList.dfm
@@ -1114,6 +1114,12 @@ object frmProductOrderNewList: TfrmProductOrderNewList
           Options.Editing = False
           Width = 65
         end
+        object TV2Column10: TcxGridDBColumn
+          Caption = #21305#25968
+          DataBinding.FieldName = 'PrtPs'
+          HeaderAlignmentHorz = taCenter
+          Width = 60
+        end
       end
       object cxGridLevel1: TcxGridLevel
         GridView = TV2
diff --git a/复合检验管理/U_ProductOrderNewList.pas b/复合检验管理/U_ProductOrderNewList.pas
index 6bcbbd0..0d60dc8 100644
--- a/复合检验管理/U_ProductOrderNewList.pas
+++ b/复合检验管理/U_ProductOrderNewList.pas
@@ -164,6 +164,7 @@ type
     TV2Column9: TcxGridDBColumn;
     ToolButton7: TToolButton;
     CDS_sub: TClientDataSet;
+    TV2Column10: TcxGridDBColumn;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);