From fe9957cd4f794aea7bc6dee4e3dfb62a11b034d5 Mon Sep 17 00:00:00 2001
From: funa <1559646174@qq.com>
Date: Mon, 13 Jul 2026 14:41:07 +0800
Subject: [PATCH] =?UTF-8?q?=E6=B1=87=E6=80=BB?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 T02贸易汇总仓库/U_TradeSampleClothOutEdit.pas | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/T02贸易汇总仓库/U_TradeSampleClothOutEdit.pas b/T02贸易汇总仓库/U_TradeSampleClothOutEdit.pas
index a77f3d5..ca4143e 100644
--- a/T02贸易汇总仓库/U_TradeSampleClothOutEdit.pas
+++ b/T02贸易汇总仓库/U_TradeSampleClothOutEdit.pas
@@ -262,6 +262,21 @@ begin
         if ADOQueryTemp.FieldByName('StkPiece').Value < 0 then
           raise Exception.Create('³ö¿âÆ¥Êý´óÓÚÈë¿âÆ¥Êý²»Äܱ£´æ£¡');
 
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails)       ');
+          sql.Add('values(''ÑùÆ·³ö¿â''    ');
+          sql.Add(',' + quotedstr(Maxno));
+          sql.Add(',''±£´æ''   ');
+          sql.Add(',' + quotedstr(DName));
+          sql.Add(',' + quotedstr(trim(self.Caption)));
+          sql.Add(',' + quotedstr(Maxno));
+          sql.Add(')  ');
+          ExecSQL;
+        end;
+
         with ADOQueryCmd do
         begin
           Close;