Group_DJD/D7DJbulaikeyi
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-09-19 13:48:12 +08:00
parent 6f5022ffa1
commit aa81285e79
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
打卷检验管理/U_MJManageNewFDNew.pas
View File

@ -1593,6 +1593,11 @@ begin
application.MessageBox('长度或者重量不能都为零！', '提示信息', 0); application.MessageBox('长度或者重量不能都为零！', '提示信息', 0);
exit; exit;
end; end;
if (strtofloatdef(trim(MJMaoZ.Text), 0) < 5) then
begin
application.MessageBox('重量不能小于5，请检查下称的数据！', '提示信息', 0);
exit;
end;
if Trim(FAPID) = '' then if Trim(FAPID) = '' then
Exit; Exit;
@ -1663,7 +1668,7 @@ begin
sql.Add('select * from JYorder_Sub where Subid=''' + Trim(FSubId) + ''' and isnull(Slbname,'''')<>'''' '); sql.Add('select * from JYorder_Sub where Subid=''' + Trim(FSubId) + ''' and isnull(Slbname,'''')<>'''' ');
Open; Open;
end; end;
if ADOTmp.IsEmpty then if ADOTmp.IsEmpty then
begin begin
PlaySound('wav\没有设置标签.wav', 0, SND_FILENAME or SND_ASYNC); PlaySound('wav\没有设置标签.wav', 0, SND_FILENAME or SND_ASYNC);
Application.MessageBox('没有设置标签', '提示', 0); Application.MessageBox('没有设置标签', '提示', 0);