From 204eed7743beeabfaa8c46d3b8dd3811d93008bd Mon Sep 17 00:00:00 2001
From: "DESKTOP-E401PHE\\Administrator" <rightsoft@163.com>
Date: Tue, 9 Sep 2025 17:29:24 +0800
Subject: [PATCH] =?UTF-8?q?=E4=BF=AE=E6=94=B9=E7=94=9F=E4=BA=A7=E8=AE=A1?=
 =?UTF-8?q?=E5=88=92=E5=8D=95?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 生产计划单(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dof | 2 +-
 生产计划单(DyeingFinishingPlan.dll)/U_OrderInPut_New.dfm    | 4 ++--
 生产计划单(DyeingFinishingPlan.dll)/U_OrderInPut_New.pas    | 3 ++-
 3 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/生产计划单(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dof b/生产计划单(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dof
index ae93de7..0d819fe 100644
--- a/生产计划单(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dof
+++ b/生产计划单(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dof
@@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=E:\��Ŀ����\00_�ص�ͻ�\����\D7myYunxiang\�����ƻ���(DyeingFinishingPlan.dll)\testDll.exe
+HostApplication=D:\Project\D7myYunxiang\�����ƻ���(DyeingFinishingPlan.dll)\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=
diff --git a/生产计划单(DyeingFinishingPlan.dll)/U_OrderInPut_New.dfm b/生产计划单(DyeingFinishingPlan.dll)/U_OrderInPut_New.dfm
index 4269e6b..758437f 100644
--- a/生产计划单(DyeingFinishingPlan.dll)/U_OrderInPut_New.dfm
+++ b/生产计划单(DyeingFinishingPlan.dll)/U_OrderInPut_New.dfm
@@ -768,9 +768,9 @@ object frmOrderInPut_New: TfrmOrderInPut_New
               HeaderAlignmentHorz = taCenter
               Width = 135
             end
-            object Tv1Column7: TcxGridDBColumn
+            object Tv1PatternDescription: TcxGridDBColumn
               Caption = #33457#22411#25551#36848
-              DataBinding.FieldName = 'defNote1'
+              DataBinding.FieldName = 'PatternDescription'
               HeaderAlignmentHorz = taCenter
               Width = 120
             end
diff --git a/生产计划单(DyeingFinishingPlan.dll)/U_OrderInPut_New.pas b/生产计划单(DyeingFinishingPlan.dll)/U_OrderInPut_New.pas
index 7a634c1..1b74a6d 100644
--- a/生产计划单(DyeingFinishingPlan.dll)/U_OrderInPut_New.pas
+++ b/生产计划单(DyeingFinishingPlan.dll)/U_OrderInPut_New.pas
@@ -222,7 +222,7 @@ type
     ADOQuery5: TADOQuery;
     Label35: TLabel;
     YIDZ: TEdit;
-    Tv1Column7: TcxGridDBColumn;
+    Tv1PatternDescription: TcxGridDBColumn;
     procedure TBCloseClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure TBSaveClick(Sender: TObject);
@@ -1215,6 +1215,7 @@ begin
         begin
           Edit;
           FieldByName('MLHX').Value := Trim(frmZdyAttachCP_HX_Sel.CDS_HZ.fieldbyname('zdyName').AsString);
+          FieldByName('PatternDescription').Value := Trim(frmZdyAttachCP_HX_Sel.CDS_HZ.fieldbyname('defNote1').AsString);
         end;
       end;
     end;