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;