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

重量不能小于0

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-02-05 17:22:58 +08:00
parent 112de07f06
commit 72c0f0ea85
1 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
检验管理/U_MJManageNewFDNew.pas
View File

@ -1885,6 +1885,11 @@ begin
application.MessageBox('长度或者重量不能都为零！', '提示信息', 0);
exit;
end;
if (strtofloatdef(trim(mjqty4.Text), 0) <= 0) then
begin
if Application.MessageBox('净重小于0，确认提交嘛', '提示', 32 + 4) <> IDYES then
Exit;
end;
if trim(MJXH.text) = '' then
begin
@ -3822,7 +3827,7 @@ begin
end;
if Trim(FAPID) = '' then
Exit;
if (strtofloatdef(trim(MJLen.Text), 0) = 0) and (strtofloatdef(trim(mjqty4.Text), 0) = 0) then
if (strtofloatdef(trim(MJLen.Text), 0) <= 0) and (strtofloatdef(trim(mjqty4.Text), 0) = 0) then
begin
application.MessageBox('长度或者重量不能都为零！', '提示信息', 0);
exit;