Group_01/D7DJjinchao
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-01 14:42:57 +08:00
parent 0347dae504
commit 2793786a07
1 changed files with 23 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
复合检验管理/U_JYOrderCDOne.pas
View File

@ -436,42 +436,48 @@ end;
procedure TfrmJYOrderCDOne.InitSum(); procedure TfrmJYOrderCDOne.InitSum();
var var
sumP, sumLen, sumMZ, sumJZ: double; sumP: integer;
sumLen, sumJZ, sumMZ: double;
mrecNo: integer;
begin begin
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
exit; exit;
mrecNo := Order_Main.RecNo;
try try
tv1.BeginUpdate();
Order_Main.DisableControls;
sumP := 0; sumP := 0;
sumLen := 0; sumLen := 0;
sumMZ := 0; sumMZ := 0;
sumJZ := 0; sumJZ := 0;
with Order_Main do with Order_Main do
begin begin
DisableControls; Order_Main.first;
First;
while not eof do while not eof do
begin begin
if Fieldbyname('ssel').AsBoolean then if Order_Main.FieldByName('ssel').AsBoolean then
begin begin
sumP := sumP + 1; sumP := sumP + 1;
sumLen := RoundFloat(sumLen + Order_Main.fieldbyname('mjlen').AsFloat, 2); sumLen := RoundFloat(sumLen + Order_Main.fieldbyname('mjlen').AsFloat, 2);
sumMZ := sumMZ + Order_Main.fieldbyname('mjmaoz').AsFloat; sumMZ := sumMZ + Order_Main.fieldbyname('mjmaoz').AsFloat;
sumJZ := sumJZ + Order_Main.fieldbyname('mjqty4').AsFloat; sumJZ := sumJZ + Order_Main.fieldbyname('mjqty4').AsFloat;
end; end;
next; next;
end; end;
EnableControls;
end;
label22.Caption := 'Æ¥Êý:' + floattostr(sumP); label22.Caption := 'Æ¥Êý:' + floattostr(sumP);
label21.Caption := '³¤¶È:' + floattostr(sumLen); label21.Caption := '³¤¶È:' + floattostr(sumLen);
label20.Caption := 'ëÖØ:' + floattostr(sumMZ); label20.Caption := 'ëÖØ:' + floattostr(sumMZ);
label23.Caption := '¾»ÖØ:' + floattostr(sumJZ); label23.Caption := '¾»ÖØ:' + floattostr(sumJZ);
Order_Main.Locate('mjid', fid, []);
except
application.MessageBox('操作失败！', '提示信息', 0);
end; end;
finally
Order_Main.RecNo := mrecNo;
Order_Main.EnableControls;
tv1.EndUpdate;
end;
end; end;
procedure TfrmJYOrderCDOne.InitForm(); procedure TfrmJYOrderCDOne.InitForm();
@ -1636,8 +1642,7 @@ begin
Open; Open;
end; end;
end; end;
if (trim(ComboBox1.Text) = '金超针纺发货码单') or (trim(ComboBox1.Text) = '金超针纺发货码单(净重)') if (trim(ComboBox1.Text) = '金超针纺发货码单') or (trim(ComboBox1.Text) = '金超针纺发货码单(净重)') or (trim(ComboBox1.Text) = '金超针纺发货码单(重量)') or (trim(ComboBox1.Text) = '金超针纺发货码单(毛重)') then
or (trim(ComboBox1.Text) = '金超针纺发货码单(重量)') or (trim(ComboBox1.Text) = '金超针纺发货码单(毛重)') then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin