Group_01/D7DJalisi
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-07-14 14:15:23 +08:00
parent 1c2ac93a7e
commit eb438efb02
2 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
检验管理/TradeManage.dof
View File

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

11
检验管理/U_MJManageNewFDNew.pas
View File

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