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,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit,
@ -436,42 +436,48 @@ end;
procedure TfrmJYOrderCDOne.InitSum();
var
sumP, sumLen, sumMZ, sumJZ: double;
sumP: integer;
sumLen, sumJZ, sumMZ: double;
mrecNo: integer;
begin
if Order_Main.IsEmpty then
exit;
mrecNo := Order_Main.RecNo;
try
tv1.BeginUpdate();
Order_Main.DisableControls;
sumP := 0;
sumLen := 0;
sumMZ := 0;
sumJZ := 0;
with Order_Main do
begin
DisableControls;
First;
Order_Main.first;
while not eof do
begin
if Fieldbyname('ssel').AsBoolean then
if Order_Main.FieldByName('ssel').AsBoolean then
begin
sumP := sumP + 1;
sumLen := RoundFloat(sumLen + Order_Main.fieldbyname('mjlen').AsFloat, 2);
sumMZ := sumMZ + Order_Main.fieldbyname('mjmaoz').AsFloat;
sumJZ := sumJZ + Order_Main.fieldbyname('mjqty4').AsFloat;
end;
next;
end;
EnableControls;
label22.Caption := '匹数:' + floattostr(sumP);
label21.Caption := '长度:' + floattostr(sumLen);
label20.Caption := '毛重:' + floattostr(sumMZ);
label23.Caption := '净重:' + floattostr(sumJZ);
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;
procedure TfrmJYOrderCDOne.InitForm();
@ -1636,12 +1642,11 @@ begin
Open;
end;
end;
if (trim(ComboBox1.Text) = '金超针纺发货码单') or (trim(ComboBox1.Text) = '金超针纺发货码单(净重)')
or (trim(ComboBox1.Text) = '金超针纺发货码单(重量)') or (trim(ComboBox1.Text) = '金超针纺发货码单(毛重)') then
if (trim(ComboBox1.Text) = '金超针纺发货码单') or (trim(ComboBox1.Text) = '金超针纺发货码单(净重)') or (trim(ComboBox1.Text) = '金超针纺发货码单(重量)') or (trim(ComboBox1.Text) = '金超针纺发货码单(毛重)') then
begin
with ADOQueryTemp do
begin
Close;
Close;
sql.Clear;
sql.add('exec P_Print_CKMDYDL_PY ');
SQL.Add('@ZRow =25');