~

检验管理/TradeManage.dof

@@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\徐加艳项目代码\项目代码\艾逦丝\检验管理\testDll.exe
+HostApplication=D:\Dp7Repo\项目代码\D7DJalisi\检验管理\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=

检验管理/U_MJManageNewFDNew.pas

@@ -1016,7 +1016,7 @@ begin
       else
       begin
         if trim(fOrderUnit) <> 'KG' then
-         MFMJLen:= StrToFloatdef(trim(MJLen.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc
+          MFMJLen := StrToFloatdef(trim(MJLen.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc
         else
           MFMJLen := StrToFloatdef(trim(MJLen.Text), 0) + fjc;
 
@@ -2548,7 +2548,14 @@ begin
     fbaotype := Trim(ADOTmp.fieldbyname('baotype').AsString);
     fbaosx := Trim(ADOTmp.fieldbyname('baosx').AsString);
     fOrderUnit := uppercase(Trim(ADOTmp.fieldbyname('OrderUnit').AsString));
-
+    if fOrderUnit = 'Y' then
+    begin
+      Label9.Caption := 'Y';
+    end
+    else
+    begin                                     
+      Label9.Caption := 'M'
+    end;                                   
     if FDC <> 0 then
     begin
       Edit12.Visible := True;