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

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

@ -6,7 +6,7 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls, cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit,
@ -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; label22.Caption := '匹数:' + floattostr(sumP);
label21.Caption := '长度:' + floattostr(sumLen);
label20.Caption := '毛重:' + floattostr(sumMZ);
label23.Caption := '净重:' + floattostr(sumJZ);
end; end;
finally
Order_Main.RecNo := mrecNo;
Order_Main.EnableControls;
tv1.EndUpdate;
end;
label22.Caption := '匹数:' + floattostr(sumP);
label21.Caption := '长度:' + floattostr(sumLen);
label20.Caption := '毛重:' + floattostr(sumMZ);
label23.Caption := '净重:' + floattostr(sumJZ);
Order_Main.Locate('mjid', fid, []);
except
application.MessageBox('操作失败！', '提示信息', 0);
end;
end; end;
procedure TfrmJYOrderCDOne.InitForm(); procedure TfrmJYOrderCDOne.InitForm();
@ -1636,12 +1642,11 @@ 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
Close; Close;
sql.Clear; sql.Clear;
sql.add('exec P_Print_CKMDYDL_PY '); sql.add('exec P_Print_CKMDYDL_PY ');
SQL.Add('@ZRow =25'); SQL.Add('@ZRow =25');