~

复合检验管理/U_MJManageNewFDNew.pas

@@ -1745,8 +1745,8 @@ begin
   end
   else
   begin
-                                         
-    with ADOTmp do               
+
+    with ADOTmp do
     begin
       Close;
       sql.Clear;
@@ -2509,8 +2509,8 @@ var
   i: Integer;
 begin
   Panel3.Visible := True;
-  with Panel3 do                                
-  begin                                                          
+  with Panel3 do
+  begin
     for i := 0 to ControlCount - 1 do
     begin
       if Controls[i] is TSpeedButton then
@@ -2540,7 +2540,7 @@ begin
     sql.Add('from JYOrder_Sub C');
     SQL.Add('inner join JYOrder_Main B on B.MainId=C.MainId ');
     sql.Add('where C.SubID=''' + Trim(APID.Text) + '''');
- 
+
     Open;
   end;
   if ADOTmp.IsEmpty = False then
@@ -2617,7 +2617,7 @@ begin
     fxsws := Trim(ADOTmp.fieldbyname('xsws').AsString);
     fxsws1 := Trim(ADOTmp.fieldbyname('xsws1').AsString);
     baoNO.Text := Trim(ADOTmp.fieldbyname('maxBaoNO').AsString);
-    if GetLSNo(ADOCmd, FBaoID, 'BI', 'WFB_MJJY', 3, 1) = False then
+    if GetLSNo(ADOCmd, FBaoID, 'BI', 'WFB_MJJY', 3, 1) = False then        
     begin
       Application.MessageBox('取包条码最大号失败！', '提示', 0);
       Exit;
@@ -2625,7 +2625,7 @@ begin
     baoid.Text := FBaoID;
     Edit3.Text := '√';
     Edit4.Text := '';
-    MJStr4.Text := '';
+    MJStr4.Text := Trim(ADOTmp.fieldbyname('GangHao').AsString);
   end
   else
   begin