Group_01/D7DJsufeng
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-08-04 14:52:23 +08:00
parent 71942d866f
commit 69088ab87b
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -593,10 +593,10 @@ end;
procedure TfrmMJManageNewFDNewSF.InitJTXX(); procedure TfrmMJManageNewFDNewSF.InitJTXX();
begin begin
with ADOQueryMain do with ADOQueryMain do
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add('select count(mjid) JTjs,sum(mjlen) JTcd,sum(mjqty4) as JTzl from WFB_MJJY where filler=''' + Trim(DName) + ''' and filltime>getdate()-1 '); sql.Add('select count(mjid) JTjs,sum(mjlen) JTcd,sum(mjqty4) as JTzl from WFB_MJJY where filler=''' + Trim(DName) + ''' and filltime>convert(char(10),getdate(),120) ');
Open; Open;
end; end;
Label54.caption := '机台总卷数：' + Trim(ADOQueryMain.fieldbyname('JTjs').AsString); Label54.caption := '机台总卷数：' + Trim(ADOQueryMain.fieldbyname('JTjs').AsString);
@ -2821,10 +2821,10 @@ begin
sql.Add(',' + quotedstr(trim('卷条码:' + trim(CDS_MJID.FieldByName('MJID').AsString) + ' 指示单号:' + trim(fsubID) + '缸号:' + trim(CDS_MJID.FieldByName('MJstr4').AsString) + '卷号:' + trim(CDS_MJID.FieldByName('MJXH').AsString) + '长度:' + trim(CDS_MJID.FieldByName('MJLen').AsString) + '净重:' + trim(CDS_MJID.FieldByName('MJQty4').AsString)))); sql.Add(',' + quotedstr(trim('卷条码:' + trim(CDS_MJID.FieldByName('MJID').AsString) + ' 指示单号:' + trim(fsubID) + '缸号:' + trim(CDS_MJID.FieldByName('MJstr4').AsString) + '卷号:' + trim(CDS_MJID.FieldByName('MJXH').AsString) + '长度:' + trim(CDS_MJID.FieldByName('MJLen').AsString) + '净重:' + trim(CDS_MJID.FieldByName('MJQty4').AsString))));
sql.Add(',' + quotedstr(trim('成功'))); sql.Add(',' + quotedstr(trim('成功')));
sql.Add(',' + quotedstr(trim(FMainId))); sql.Add(',' + quotedstr(trim(FMainId)));
sql.Add(')'); sql.Add(')');
execsql; execsql;
end; end;
InitCDGridID(); InitCDGridID();
InitJTXX(); InitJTXX();
PlaySound('wav\删除成功.wav', 0, SND_FILENAME or SND_ASYNC); PlaySound('wav\删除成功.wav', 0, SND_FILENAME or SND_ASYNC);
end; end;