~

打卷检验管理/TradeManage.dof

@@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\徐加艳项目代码\项目代码\澜山\打卷检验管理\testDll.exe
+HostApplication=D:\Dp7Repo\项目代码\D7DJlanshan\打卷检验管理\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=

打卷检验管理/U_JYOrderCDOne.pas

@@ -3,7 +3,7 @@ unit U_JYOrderCDOne;
 interface
 
 uses
-  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,                      
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
   cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
   cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
@@ -1921,6 +1921,31 @@ begin
   if Application.MessageBox('确定要出库吗？', '提示', 32 + 4) <> IDYES then
     Exit;
   Order_Main.DisableControls;
+  with Order_Main do
+  begin
+    First;
+    while not Eof do
+    begin
+      if Order_Main.FieldByName('SSel').AsBoolean = True then
+      begin
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('update WFB_MJJY set CKFlag=''已出库'' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
+          ExecSQL;
+        end;
+        Order_Main.Edit;
+        Order_Main.FieldByName('CKFlag').Value := '已出库';
+        Order_Main.FieldByName('SSel').AsBoolean := false;
+        Order_Main.Post;
+      end
+      else
+        Next;
+    end;
+  end;
+  Order_Main.EnableControls; 
+ { Order_Main.DisableControls;
   with Order_Main do
   begin
     First;
@@ -1936,18 +1961,16 @@ begin
           sql.Add('update WFB_MJJY set CKFlag=''已出库'',CKtime=Getdate(),CKer=''' + trim(DName) + '''  where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
           ExecSQL;
         end;
-
         Edit;
         FieldByName('CKFlag').Value := '已出库';
         Post;
-
         Next;
       end
       else
         Next;
     end;
   end;
-  Order_Main.EnableControls;
+  Order_Main.EnableControls; }
 
 end;
 
@@ -1963,12 +1986,36 @@ begin
   Order_Main.DisableControls;
   with Order_Main do
   begin
-    First;                    
+    First;
+    while not Eof do
+    begin
+      if Order_Main.FieldByName('SSel').AsBoolean = True then
+      begin
+        with ADOQueryCmd do
+        begin
+          Close;                        
+          sql.Clear;
+          sql.Add('update WFB_MJJY set CKFlag=''未出库'' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
+          ExecSQL;
+        end;
+        Order_Main.Edit;
+        Order_Main.FieldByName('CKFlag').Value := '未出库';
+        Order_Main.FieldByName('SSel').AsBoolean := false;
+        Order_Main.Post;
+      end
+      else
+        Next;
+    end;
+  end;
+  Order_Main.EnableControls;
+ { Order_Main.DisableControls;
+  with Order_Main do
+  begin
+    First;
     while not Eof do
     begin
       if Order_Main.FieldByName('SSel').AsBoolean = True then
       begin
-          //begin                         
         with ADOQueryCmd do
         begin
           Close;
@@ -1976,7 +2023,6 @@ begin
           sql.Add('update WFB_MJJY set CKFlag=''未出库'',CKtime=null,CKer=null where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
           ExecSQL;
         end;
-
         Edit;
         FieldByName('CKFlag').Value := '未出库';
         FieldByName('SSel').AsBoolean := False;
@@ -1987,7 +2033,7 @@ begin
         Next;
     end;
   end;
-  Order_Main.EnableControls;
+  Order_Main.EnableControls; }
 
 end;