~

打卷检验管理/U_JYOrderCDOne.pas

@@ -408,7 +408,7 @@ begin
       sql.Add('and  A.FillTime<''' + FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1) + ''' ');
       if Trim(DParameters2) = '次品' then
       begin
-        sql.add('and mjtype=''´ÎÆ·'' ');                    
+        sql.add('and mjtype=''次品'' ');
       end;
       sql.add('order by A.mainid,B.prtcolor,gangno,A.mjxh');
 //      showmessage(sql.text);
@@ -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;
 
@@ -1944,10 +1994,10 @@ begin
 //    Order_Main.FieldByName('ssel').AsBoolean := True;
 //  end
 //  else
-//    Order_Main.FieldByName('ssel').AsBoolean := False;          
+//    Order_Main.FieldByName('ssel').AsBoolean := False;
 
   InitSum();
-end;                                                             
+end;
 
 procedure TfrmJYOrderCDOne.Image1Click(Sender: TObject);
 begin
@@ -2392,10 +2442,10 @@ begin
 //    showmessage(sql.text);
     ExecSQL;
   end;
-                                               
+
   with ADOQueryTemp do
   begin
-    Close;                           
+    Close;
     sql.Clear;
     sql.add('exec P_Print_CKMDYDL_BQ ');
     sql.add('@DName=' + quotedstr(Trim(DCode)));

打卷检验管理/U_OrderInPut.pas

@@ -223,9 +223,9 @@ type
     procedure YCLFactoryBtnUpClick(Sender: TObject);
     procedure MPRTSCTeBieNoteBtnUpClick(Sender: TObject);
     procedure Label36DblClick(Sender: TObject);
-    procedure Label37DblClick(Sender: TObject);
+    procedure Label37DblClick(Sender: TObject);                   
     procedure SYRNameBtnUpClick(Sender: TObject);
-    procedure MPRTBZNoteDblClick(Sender: TObject);
+    procedure MPRTBZNoteDblClick(Sender: TObject);              
     procedure MPRTSCTeBieNoteDblClick(Sender: TObject);
     procedure v1PRTCodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
     procedure FileNameClick(Sender: TObject);
@@ -1078,7 +1078,7 @@ begin
   end;
   if Trim(SLBName.Text) = '' then
   begin
-    SLBName.text := '²¼À³¿ËÒÁ±êÇ©.rmf';
+    SLBName.text := '²¼À³¿ËÒÁ³¤Æ·Ãû±êÇ©.rmf';
   end;                                        
   if SaveData() then
   begin