汇总

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;