~

打卷检验管理/U_JYOrderCDOne.pas

@@ -1134,6 +1134,14 @@ begin
     application.MessageBox('未打包不能打印', '提示');
     exit;
   end;
+  Order_Main.DisableControls;
+  with Order_Main do
+  begin
+    First;
+    while not Eof do
+    begin
+      if Order_Main.FieldByName('SSel').AsBoolean = True then
+      begin
         try
           Moudle := LoadLibrary('MakeQRBarcode.dll');
           @Makebar := GetProcAddress(Moudle, 'Make');
@@ -1158,6 +1166,7 @@ begin
           sql.Add('PRTColor=DBO.F_Get_Order_SubStr(BaoID,''BNColor''),SOrddefstr1=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr1''),');
           sql.Add('SOrddefstr4=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr4''),PRtHX=DBO.F_Get_Order_SubStr(BaoID,''BNPRtHX''), ');
           sql.Add('Mjstr4=DBO.F_Get_Order_SubStr(BaoID,''BNGangNo''), ');
+          sql.Add('MJxh=DBO.F_Get_Order_SubStr(BaoID,''BNMJXH''), ');
           sql.Add('BNMJLENLIST=DBO.F_Get_Order_SubStr(BaoID,''BNMJLENLIST''), ');
           sql.Add('PRTkuanNo=DBO.F_Get_Order_SubStr(BaoID,''BNPrtkuanno''),');
           sql.Add('khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=D.conNO), ');
@@ -1194,6 +1203,13 @@ begin
           Application.MessageBox(PChar('没有找' + trim(fPrintFile)), '提示', 0);
           Exit;
         end;
+      end;
+
+      Next;
+    end;
+  end;
+  Order_Main.EnableControls;
+
 end;
 
 procedure TfrmJYOrderCDOne.Button6Click(Sender: TObject);
@@ -2196,8 +2212,9 @@ begin
             sql.Clear;
             sql.Add('Update JYOrder_Sub Set kmxs=''' + trim(Edit5.Text) + ''' ');
             sql.Add('where subid=''' + Trim(Order_Main.fieldbyname('subid').AsString) + '''');
-            sql.Add('Update WFB_MJJY A,JYOrder_Sub B Set A.MJLen=A.MJQty4*B.kmxs   ');
+            sql.Add('UPDATE A SET A.MJLen = A.MJQty4 * B.kmxs   ');
-            sql.Add('where A.subid=B.subid and MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
+            sql.Add('FROM WFB_MJJY A JOIN JYOrder_Sub B ON A.subid = B.subid');
+            sql.Add('where  MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
 //            ShowMessage(SQL.Text);
             ExecSQL;
           end;