From 7d6fca36e00fd8a4e17fd6d4add3338f25a2d4af Mon Sep 17 00:00:00 2001
From: "DESKTOP-E401PHE\\Administrator" <rightsoft@163.com>
Date: Thu, 21 Aug 2025 14:57:32 +0800
Subject: [PATCH] 555

---
 A02基础产品管理/U_TatClothInfo.dfm      | 3 ---
 A02基础产品管理/U_TatClothInfoInput.dfm | 2 +-
 A02基础产品管理/U_TatClothInfoInput.pas | 2 +-
 3 files changed, 2 insertions(+), 5 deletions(-)

diff --git a/A02基础产品管理/U_TatClothInfo.dfm b/A02基础产品管理/U_TatClothInfo.dfm
index 994adde..414834d 100644
--- a/A02基础产品管理/U_TatClothInfo.dfm
+++ b/A02基础产品管理/U_TatClothInfo.dfm
@@ -1158,7 +1158,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
           Properties.ShowFocusRect = False
           Style.BorderStyle = ebsSingle
           TabOrder = 0
-          ExplicitLeft = -4
           Height = 339
           Width = 1259
         end
@@ -1182,7 +1181,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
           ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
           ParentFont = False
           TabOrder = 0
-          ExplicitLeft = 4
         end
         object cxDBImage1: TcxDBImage
           Left = 0
@@ -1197,7 +1195,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
           Properties.ShowFocusRect = False
           Style.BorderStyle = ebsSingle
           TabOrder = 1
-          ExplicitTop = 42
           Height = 339
           Width = 1259
         end
diff --git a/A02基础产品管理/U_TatClothInfoInput.dfm b/A02基础产品管理/U_TatClothInfoInput.dfm
index 7d3535c..adb999c 100644
--- a/A02基础产品管理/U_TatClothInfoInput.dfm
+++ b/A02基础产品管理/U_TatClothInfoInput.dfm
@@ -369,7 +369,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
       Top = 250
       Width = 64
       Height = 21
-      Caption = #33853#24067#31859#25968
+      Caption = #33853#24067#23450#38271
     end
     object Label31: TLabel
       Left = 1145
diff --git a/A02基础产品管理/U_TatClothInfoInput.pas b/A02基础产品管理/U_TatClothInfoInput.pas
index e1691c6..79875dd 100644
--- a/A02基础产品管理/U_TatClothInfoInput.pas
+++ b/A02基础产品管理/U_TatClothInfoInput.pas
@@ -878,7 +878,7 @@ begin
           FieldByName('YRType').Value := '��˿';
           FieldByName('BCIID').Value := Trim(maxId);
           FieldByName('YRId').Value := Trim(maxpbno);
-          RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_1, 'BS_Cloth_Yarn', 0);
+          RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'BS_Cloth_Yarn', 0);
           Post;
         end;
         CDS_1.Edit;