From ced7b9e04fad644f42e7f661545ba0064d6eb422 Mon Sep 17 00:00:00 2001
From: "DESKTOP-E401PHE\\Administrator" <rightsoft@163.com>
Date: Thu, 5 Feb 2026 17:19:04 +0800
Subject: [PATCH] =?UTF-8?q?=E7=A0=81=E5=8D=95?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../U_OrderInPut.dfm                          | 32 +++++++++++++++++--
 .../U_OrderInPut.pas                          |  4 ++-
 2 files changed, 33 insertions(+), 3 deletions(-)

diff --git a/染整计划(DyeingFinishingPlan.dll)/U_OrderInPut.dfm b/染整计划(DyeingFinishingPlan.dll)/U_OrderInPut.dfm
index 46245dc..8addc0b 100644
--- a/染整计划(DyeingFinishingPlan.dll)/U_OrderInPut.dfm
+++ b/染整计划(DyeingFinishingPlan.dll)/U_OrderInPut.dfm
@@ -1,6 +1,6 @@
 object frmOrderInPut: TfrmOrderInPut
-  Left = 336
-  Top = 47
+  Left = 350
+  Top = 197
   Width = 1117
   Height = 743
   Caption = #25351#31034#21333#24405#20837
@@ -354,6 +354,19 @@ object frmOrderInPut: TfrmOrderInPut
       Font.Style = [fsBold]
       ParentFont = False
     end
+    object Label20: TLabel
+      Left = 572
+      Top = 15
+      Width = 65
+      Height = 12
+      Caption = #25260#22836#26174#31034#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
     object OrderNo: TEdit
       Tag = 1
       Left = 97
@@ -573,6 +586,21 @@ object frmOrderInPut: TfrmOrderInPut
       Height = 18
       TabOrder = 21
     end
+    object ISTT: TComboBox
+      Tag = 1
+      Left = 634
+      Top = 10
+      Width = 100
+      Height = 22
+      Style = csOwnerDrawFixed
+      ItemHeight = 16
+      ItemIndex = 0
+      TabOrder = 22
+      Text = #26159
+      Items.Strings = (
+        #26159
+        #21542)
+    end
   end
   object cxPageControl1: TcxPageControl
     Left = 0
diff --git a/染整计划(DyeingFinishingPlan.dll)/U_OrderInPut.pas b/染整计划(DyeingFinishingPlan.dll)/U_OrderInPut.pas
index d79f789..dbb5b56 100644
--- a/染整计划(DyeingFinishingPlan.dll)/U_OrderInPut.pas
+++ b/染整计划(DyeingFinishingPlan.dll)/U_OrderInPut.pas
@@ -116,6 +116,8 @@ type
     V1Column2: TcxGridDBColumn;
     Label18: TLabel;
     RCBatchNo: TEdit;
+    Label20: TLabel;
+    ISTT: TComboBox;
     procedure TBCloseClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure TBSaveClick(Sender: TObject);
@@ -411,7 +413,7 @@ var
 begin
   try                                                           
     ADOCmd.Connection.BeginTrans;
-    //*************************±£´æÖ÷±í*************************
+    //*************************±£´æÖ÷±í*************************                   
     if Trim(FMainId) = '' then
     begin
       if GetLSNo(ADOCmd, maxno, 'JM', 'JYOrder_Main', 3, 1) = False then