~

打卷检验管理/U_JYOrderCDOne.pas

@@ -1787,6 +1787,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;
@@ -1813,7 +1838,7 @@ begin
         Next;
     end;
   end;
-  Order_Main.EnableControls;
+  Order_Main.EnableControls;    }
 
 end;
 
@@ -1827,6 +1852,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;
@@ -1853,7 +1903,7 @@ begin
         Next;
     end;
   end;
-  Order_Main.EnableControls;
+  Order_Main.EnableControls; }
 
 end;
 

打卷检验管理/U_OrderInPut.pas

@@ -1078,7 +1078,7 @@ begin
   end;
   if Trim(SLBName.Text) = '' then
   begin
-    SLBName.text := '²¼À³¿ËÒÁ±êÇ©.rmf';
+    SLBName.text := 'ｲｼﾀｳｿﾋﾒﾁｳ､ﾆｷﾃ﨣<EFBFBD>ｩ.rmf';
   end;                                        
   if SaveData() then
   begin