Group_DJD/D10myBahong
9
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-10-25 17:25:44 +08:00
parent c677526d36
commit 0ce192a35a
3 changed files with 38 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
T03贸易布匹检验/DjdMachineInsp.identcache
View File

Binary file not shown.

43
T03贸易布匹检验/U_TradeClothInspList.dfm
View File

@ -12,7 +12,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
TextHeight = 21 TextHeight = 21
object Panel6: TPanel [0] object Panel6: TPanel [0]
Left = 0 Left = 0
Top = 146 Top = 100
Width = 1296 Width = 1296
Height = 37 Height = 37
Align = alTop Align = alTop
@ -20,6 +20,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
BevelInner = bvLowered BevelInner = bvLowered
BorderStyle = bsSingle BorderStyle = bsSingle
TabOrder = 3 TabOrder = 3
ExplicitTop = 146
DesignSize = ( DesignSize = (
1292 1292
33) 33)
@ -526,10 +527,10 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1296 Width = 1296
Height = 76 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 30
ButtonWidth = 121 ButtonWidth = 95
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clWhite Color = clWhite
Images = DataLink_TradeInsp.cxImageList_bar Images = DataLink_TradeInsp.cxImageList_bar
@ -546,7 +547,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
OnClick = TBRafreshClick OnClick = TBRafreshClick
end end
object btnJBQ: TToolButton object btnJBQ: TToolButton
Left = 71 Left = 63
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360#21367#26631#31614 Caption = #25171#21360#21367#26631#31614
@ -554,7 +555,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
OnClick = btnJBQClick OnClick = btnJBQClick
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 190 Left = 162
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360#21253#26631#31614 Caption = #25171#21360#21253#26631#31614
@ -562,7 +563,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object btnEdit: TToolButton object btnEdit: TToolButton
Left = 309 Left = 261
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #32534#36753 Caption = #32534#36753
@ -570,7 +571,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
OnClick = btnEditClick OnClick = btnEditClick
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 380 Left = 324
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25209#37327#20462#25913 Caption = #25209#37327#20462#25913
@ -579,7 +580,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
Style = tbsDropDown Style = tbsDropDown
end end
object Tout: TToolButton object Tout: TToolButton
Left = 506 Left = 428
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20837#24211 Caption = #20837#24211
@ -589,7 +590,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
OnClick = ToutClick OnClick = ToutClick
end end
object Tunout: TToolButton object Tunout: TToolButton
Left = 600 Left = 508
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25764#38144#20837#24211 Caption = #25764#38144#20837#24211
@ -598,7 +599,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
OnClick = TunoutClick OnClick = TunoutClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 703 Left = 595
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21253 Caption = #25171#21253
@ -606,7 +607,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object btnJYBG: TToolButton object btnJYBG: TToolButton
Left = 774 Left = 658
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26816#39564#25253#21578 Caption = #26816#39564#25253#21578
@ -614,7 +615,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
OnClick = btnJYBGClick OnClick = btnJYBGClick
end end
object Tprintmd: TToolButton object Tprintmd: TToolButton
Left = 877 Left = 745
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360#30721#21333 Caption = #25171#21360#30721#21333
@ -622,7 +623,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
OnClick = TprintmdClick OnClick = TprintmdClick
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 980 Left = 832
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -630,7 +631,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
OnClick = TBExportClick OnClick = TBExportClick
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 1051 Left = 895
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26085#24535 Caption = #26085#24535
@ -638,7 +639,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 1122 Left = 958
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -646,17 +647,16 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TBZF: TToolButton object TBZF: TToolButton
Left = 1225 Left = 1045
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
ImageIndex = 5 ImageIndex = 5
Wrap = True
OnClick = TBZFClick OnClick = TBZFClick
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 0 Left = 1108
Top = 38 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 7 ImageIndex = 7
@ -682,13 +682,14 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
end end
object dxLayoutControl_query: TdxLayoutControl [4] object dxLayoutControl_query: TdxLayoutControl [4]
Left = 0 Left = 0
Top = 76 Top = 30
Width = 1296 Width = 1296
Height = 70 Height = 70
Align = alTop Align = alTop
TabOrder = 4 TabOrder = 4
AutoSize = True AutoSize = True
LayoutLookAndFeel = DataLink_TradeInsp.dxLayoutSkinLookAndFeel1 LayoutLookAndFeel = DataLink_TradeInsp.dxLayoutSkinLookAndFeel1
ExplicitTop = 76
object OrderNo: TcxTextEdit object OrderNo: TcxTextEdit
Tag = 2 Tag = 2
Left = 296 Left = 296

53
T03贸易布匹检验/U_TradeClothInspList.pas
View File

@ -163,15 +163,6 @@ type
RMXLSExport2: TRMXLSExport; RMXLSExport2: TRMXLSExport;
Tv1unitPieces: TcxGridDBColumn; Tv1unitPieces: TcxGridDBColumn;
Tv1operators: TcxGridDBColumn; Tv1operators: TcxGridDBColumn;
RMDB_1: TfrxDBDataset;
frxReport1: TfrxReport;
frxPPTXExport1: TfrxPPTXExport;
frxXLSXExport1: TfrxXLSXExport;
frxXLSExport1: TfrxXLSExport;
frxReportTableObject1: TfrxReportTableObject;
frxBarCodeObject1: TfrxBarCodeObject;
frxRichObject1: TfrxRichObject;
frxOLEObject1: TfrxOLEObject;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -526,28 +517,18 @@ begin
else else
FLabVolume := Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString); FLabVolume := Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString);
ExportFtErpFile(FLabVolume + '.FR3', ADOQueryTemp); ExportFtErpFile(FLabVolume + '.rmf', ADOQueryBaseTemp);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + FLabVolume + '.FR3'; fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + FLabVolume + '.rmf';
if FileExists(fPrintFile) then if FileExists(fPrintFile) then
begin begin
RM1.LoadFromFile(fPrintFile);
frxReport1.LoadFromFile(fPrintFile); RM1.DefaultCopies := mCopys;
frxReport1.PrintOptions.Copies := mCopys; RM1.PrintReport;
frxReport1.PrintOptions.ShowDialog := false;
frxReport1.PrepareReport(True);
frxReport1.Print();
// RM1.LoadFromFile(fPrintFile);
//
// Rm1.DefaultCopies := mCopys;
//
//
// RM1.ShowReport;
end end
else else
begin begin
Application.MessageBox(PChar('ûÓÐÕÒ' + fPrintFile), 'Ìáʾ', 0); Application.MessageBox(pchar('ûÓÐÕÒ' + fPrintFile), 'Ìáʾ', 0);
end; end;
end; end;
Next; Next;
@ -693,9 +674,12 @@ begin
MLabPackage := trim(ADOQueryPrint.FieldByName('SLabPackage').AsString) MLabPackage := trim(ADOQueryPrint.FieldByName('SLabPackage').AsString)
else else
MLabPackage := trim(ADOQueryPrint.FieldByName('LabPackage').AsString); MLabPackage := trim(ADOQueryPrint.FieldByName('LabPackage').AsString);
ExportFtErpFile(Trim(MLabPackage) + '.FR3', ADOQueryTemp); // ExportFtErpFile(Trim(MLabPackage) + '.FR3', ADOQueryTemp);
// FPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(MLabPackage) + '.FR3';
ExportFtErpFile(MLabPackage + '.rmf', ADOQueryBaseTemp);
FPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + MLabPackage + '.rmf';
FPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(MLabPackage) + '.FR3';
if not FileExists(FPrintFile) then if not FileExists(FPrintFile) then
begin begin
Application.MessageBox(PChar('ûÓÐÕÒ' + FPrintFile), 'Ìáʾ', 0); Application.MessageBox(PChar('ûÓÐÕÒ' + FPrintFile), 'Ìáʾ', 0);
@ -703,20 +687,15 @@ begin
end; end;
if FileExists(FPrintFile) then if FileExists(FPrintFile) then
begin begin
frxReport1.LoadFromFile(FPrintFile); RM1.LoadFromFile(FPrintFile);
frxReport1.PrintOptions.Copies := 1; RM1.DefaultCopies := 1;
frxReport1.PrintOptions.ShowDialog := false; RM1.PrintReport;
frxReport1.PrepareReport(True);
frxReport1.Print();
// RM1.LoadFromFile(FPrintFile);
// Rm1.DefaultCopies := 1;
// RM1.PrintReport;
end end
else else
begin begin
Application.MessageBox(PChar('ûÓÐÕÒ' + FPrintFile), 'Ìáʾ', 0); Application.MessageBox(pchar('ûÓÐÕÒ' + FPrintFile), 'Ìáʾ', 0);
end; end;
while Order_Main.Locate('SSel;PacketId', VarArrayOf([True, MPacketId]), []) do while Order_Main.Locate('SSel;PacketId', VarArrayOf([True, MPacketId]), []) do
begin begin
with Order_Main do with Order_Main do