diff --git a/检验管理/U_ClothHCList.dfm b/检验管理/U_ClothHCList.dfm
index 6fed059..89cb251 100644
--- a/检验管理/U_ClothHCList.dfm
+++ b/检验管理/U_ClothHCList.dfm
@@ -1,6 +1,6 @@
 object frmClothHCList: TfrmClothHCList
-  Left = 266
-  Top = 564
+  Left = 623
+  Top = 453
   Width = 1179
   Height = 705
   Caption = #26816#39564#25351#31034#21333#26597#35810
diff --git a/检验管理/U_MJManageNewFDNew.dfm b/检验管理/U_MJManageNewFDNew.dfm
index c8b2b82..a9ded42 100644
--- a/检验管理/U_MJManageNewFDNew.dfm
+++ b/检验管理/U_MJManageNewFDNew.dfm
@@ -1,6 +1,6 @@
 object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
-  Left = 237
-  Top = 384
+  Left = 301
+  Top = 406
   Width = 1545
   Height = 738
   Caption = #25104#21697#26816#39564
diff --git a/检验管理/U_MJManageNewFDNew.pas b/检验管理/U_MJManageNewFDNew.pas
index 8859f8b..184689e 100644
--- a/检验管理/U_MJManageNewFDNew.pas
+++ b/检验管理/U_MJManageNewFDNew.pas
@@ -389,10 +389,10 @@ begin
         MJLen.Text := format('%.0f', [i1 / 100000 - 0.5])
       else
         MJLen.Text := format('%.' + trim(fxsws) + 'f', [i1 / 100000]);
-      if i2 = 0 then
-        Label9.Caption := 'M'
-      else
-        Label9.Caption := 'Y';
+//      if i2 = 0 then
+//        Label9.Caption := 'M'
+//      else
+//        Label9.Caption := 'Y';
       if trim(fxsws) = '-1' then
         edit1.Text := format('%.0f', [i1 / 100000 - 0.5])
       else
@@ -2402,20 +2402,20 @@ end;
 
 procedure TfrmMJManageNewFDNewSF.Label9Click(Sender: TObject);
 begin
-//  if trim(Label9.Caption) = 'M' then
-//  begin
-//    Label9.Caption := 'Y';
-//    Label19.Caption := 'Y';
-//    Label20.Caption := 'Y';
-//    Label7.Caption := 'Y';
-//  end
-//  else
-//  begin
-//    Label9.Caption := 'M';
-//    Label19.Caption := 'M';
-//    Label20.Caption := 'M';
-//    Label7.Caption := 'M';
-//  end;
+  if trim(Label9.Caption) = 'M' then
+  begin
+    Label9.Caption := 'Y';
+    Label19.Caption := 'Y';
+    Label20.Caption := 'Y';
+    Label7.Caption := 'Y';
+  end
+  else
+  begin
+    Label9.Caption := 'M';
+    Label19.Caption := 'M';
+    Label20.Caption := 'M';
+    Label7.Caption := 'M';
+  end;
 end;
 
 procedure TfrmMJManageNewFDNewSF.Button2Click(Sender: TObject);
@@ -2544,15 +2544,15 @@ begin
     fOrderUnit := uppercase(Trim(ADOTmp.fieldbyname('OrderUnit').AsString));
 
 
-//    if fOrderUnit = 'Y' then
-//    begin
-//      Label9.Caption := 'Y';
-//    end
-//    else
-//    begin
-//      Label9.Caption := 'M'
-//    end;
-    Label9.Caption := fOrderUnit;
+    if fOrderUnit = 'Y' then
+    begin
+      Label9.Caption := 'Y';
+    end
+    else
+    begin
+      Label9.Caption := 'M'
+    end;
+    //Label9.Caption := fOrderUnit;
     
     if FDC <> 0 then
     begin