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

17
检验管理/U_MJManageNewFDNew.pas
View File

@ -1885,6 +1885,11 @@ begin
application.MessageBox('长度或者重量不能都为零！', '提示信息', 0); application.MessageBox('长度或者重量不能都为零！', '提示信息', 0);
exit; exit;
end; 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 if trim(MJXH.text) = '' then
begin begin
@ -3751,11 +3756,11 @@ begin
PState := 33; PState := 33;
// if Edit9.text <> '' then // if Edit9.text <> '' then
// begin // begin
if (strtofloatdef(trim(MJMaoZ.Text), 0) <= 0) or (strtofloatdef(trim(MJQty4.Text), 0) <= 0) then if (strtofloatdef(trim(MJMaoZ.Text), 0) <= 0) or (strtofloatdef(trim(MJQty4.Text), 0) <= 0) then
begin begin
application.MessageBox('重量不能为零！', '提示信息', 0); application.MessageBox('重量不能为零！', '提示信息', 0);
exit; exit;
end; end;
// end; // end;
with ADOQuery1 do with ADOQuery1 do
@ -3822,7 +3827,7 @@ begin
end; end;
if Trim(FAPID) = '' then if Trim(FAPID) = '' then
Exit; 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 begin
application.MessageBox('长度或者重量不能都为零！', '提示信息', 0); application.MessageBox('长度或者重量不能都为零！', '提示信息', 0);
exit; exit;