Group_99/D7DJjinchao
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

上一个问题

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-10-16 15:18:01 +08:00
parent 00f54c2e8c
commit 8baa4ca5cf
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
复合检验管理/U_MJManageNewFDNew.pas
View File

@ -1787,11 +1787,7 @@ begin
// application.MessageBox('重量不能小于10！', '提示信息', 0); // application.MessageBox('重量不能小于10！', '提示信息', 0);
// exit; // exit;
// end; // end;
if (strtofloatdef(trim(MJMaoZ.Text), 0) < 10) then
begin
application.MessageBox('毛重不能小于10！', '提示信息', 0);
exit;
end;
if (Trim(Edit9.Text) = '√') then if (Trim(Edit9.Text) = '√') then
begin begin
if (strtofloatdef(trim(mjqty4.Text), 0) < 10) then if (strtofloatdef(trim(mjqty4.Text), 0) < 10) then
@ -1799,6 +1795,11 @@ begin
application.MessageBox('净重不能小于10！', '提示信息', 0); application.MessageBox('净重不能小于10！', '提示信息', 0);
exit; exit;
end; end;
if (strtofloatdef(trim(MJMaoZ.Text), 0) < 10) then
begin
application.MessageBox('毛重不能小于10！', '提示信息', 0);
exit;
end;
end; end;
if Trim(FAPID) = '' then if Trim(FAPID) = '' then