Group_01/D7DJcaihong
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-07-10 16:30:03 +08:00
parent 4b93a995c5
commit 139b077ae5
2 changed files with 251 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

104
打卷检验管理/U_ProductOrderNewList.dfm
View File

@ -20,10 +20,11 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1366 Width = 1349
Height = 62
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 119
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clSkyBlue Color = clSkyBlue
Flat = True Flat = True
@ -117,58 +118,59 @@ object frmProductOrderNewList: TfrmProductOrderNewList
AutoSize = True AutoSize = True
Caption = #25764#38144#23436#25104 Caption = #25764#38144#23436#25104
ImageIndex = 86 ImageIndex = 86
Wrap = True
OnClick = TNoWCClick OnClick = TNoWCClick
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 678 Left = 0
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 75 ImageIndex = 75
OnClick = TBExportClick OnClick = TBExportClick
end end
object TFJ: TToolButton object TFJ: TToolButton
Left = 741 Left = 63
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25351#31034#21333#38468#20214 Caption = #25351#31034#21333#38468#20214
ImageIndex = 57 ImageIndex = 57
OnClick = TFJClick OnClick = TFJClick
end end
object TBPrint: TToolButton object TBPrint: TToolButton
Left = 840 Left = 162
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
ImageIndex = 12 ImageIndex = 12
OnClick = TBPrintClick OnClick = TBPrintClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 903 Left = 225
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #24322#24120#25968#25454 Caption = #24322#24120#25968#25454
ImageIndex = 2 ImageIndex = 2
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 990 Left = 312
Top = 0 Top = 30
Caption = #30133#28857#31649#29702 Caption = #30133#28857#31649#29702
ImageIndex = 132 ImageIndex = 132
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object ToolButton6: TToolButton object ToolButton6: TToolButton
Left = 1085 Left = 431
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #26085#24535 Caption = #26085#24535
ImageIndex = 72 ImageIndex = 72
OnClick = ToolButton6Click OnClick = ToolButton6Click
end end
object ToolButton7: TToolButton object ToolButton7: TToolButton
Left = 1148 Left = 494
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #37325#36830 Caption = #37325#36830
ImageIndex = 73 ImageIndex = 73
@ -176,18 +178,25 @@ object frmProductOrderNewList: TfrmProductOrderNewList
OnClick = ToolButton7Click OnClick = ToolButton7Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 1211 Left = 557
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 55 ImageIndex = 55
OnClick = TBCloseClick OnClick = TBCloseClick
end end
object ToolButton8: TToolButton
Left = 620
Top = 30
Caption = #25171#21360#23376#34920#25351#31034#21333
ImageIndex = 56
OnClick = ToolButton8Click
end
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 62
Width = 1366 Width = 1349
Height = 40 Height = 40
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -415,8 +424,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 95 Top = 125
Width = 1366 Width = 1349
Height = 333 Height = 333
Align = alTop Align = alTop
TabOrder = 3 TabOrder = 3
@ -764,8 +773,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
object cxSplitter1: TcxSplitter object cxSplitter1: TcxSplitter
Left = 0 Left = 0
Top = 451 Top = 458
Width = 1366 Width = 1349
Height = 8 Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom AlignSplitter = salBottom
@ -773,8 +782,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Top = 459 Top = 466
Width = 1366 Width = 1349
Height = 256 Height = 256
Align = alBottom Align = alBottom
Caption = 'Panel2' Caption = 'Panel2'
@ -782,7 +791,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 1 Left = 1
Top = 1 Top = 1
Width = 987 Width = 970
Height = 254 Height = 254
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
@ -855,7 +864,6 @@ object frmProductOrderNewList: TfrmProductOrderNewList
OptionsBehavior.FocusCellOnCycle = True OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False OptionsData.Deleting = False
OptionsData.Editing = False
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
Styles.Inactive = DataLink_TradeManage.SHuangSe Styles.Inactive = DataLink_TradeManage.SHuangSe
@ -866,6 +874,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
Caption = #23458#25143#35746#21333#21495 Caption = #23458#25143#35746#21333#21495
DataBinding.FieldName = 'KHorderNo' DataBinding.FieldName = 'KHorderNo'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70 Width = 70
end end
object V2Column3: TcxGridDBColumn object V2Column3: TcxGridDBColumn
@ -879,6 +888,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
Caption = #21697#21517#20013#25991 Caption = #21697#21517#20013#25991
DataBinding.FieldName = 'PRTCodeName' DataBinding.FieldName = 'PRTCodeName'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 75 Width = 75
end end
object V2Column1: TcxGridDBColumn object V2Column1: TcxGridDBColumn
@ -917,12 +927,14 @@ object frmProductOrderNewList: TfrmProductOrderNewList
DataBinding.FieldName = 'PRTCode' DataBinding.FieldName = 'PRTCode'
Visible = False Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70 Width = 70
end end
object TV2Column7: TcxGridDBColumn object TV2Column7: TcxGridDBColumn
Caption = #39068#33394'('#33521#25991')' Caption = #39068#33394'('#33521#25991')'
DataBinding.FieldName = 'SOrddefstr4' DataBinding.FieldName = 'SOrddefstr4'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object v1PRTOrderQty: TcxGridDBColumn object v1PRTOrderQty: TcxGridDBColumn
@ -1060,44 +1072,56 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object TV2Column1: TcxGridDBColumn object TV2Column1: TcxGridDBColumn
Caption = #26368#22823#21367#21495#21644 Caption = #26368#22823#21367#21495#21644
DataBinding.FieldName = 'maxroll' DataBinding.FieldName = 'maxroll'
Options.Editing = False
end end
object TV2Column2: TcxGridDBColumn object TV2Column2: TcxGridDBColumn
DataBinding.FieldName = 'djstatus' DataBinding.FieldName = 'djstatus'
Visible = False Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65 Width = 65
end end
object TV2Column3: TcxGridDBColumn object TV2Column3: TcxGridDBColumn
Caption = #20986#24211#21305#25968 Caption = #20986#24211#21305#25968
DataBinding.FieldName = 'CKRoll' DataBinding.FieldName = 'CKRoll'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65 Width = 65
end end
object TV2Column4: TcxGridDBColumn object TV2Column4: TcxGridDBColumn
Caption = #20986#24211#38271#24230 Caption = #20986#24211#38271#24230
DataBinding.FieldName = 'CKQty' DataBinding.FieldName = 'CKQty'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65 Width = 65
end end
object TV2Column5: TcxGridDBColumn object TV2Column5: TcxGridDBColumn
Caption = #20986#24211#20928#37325 Caption = #20986#24211#20928#37325
DataBinding.FieldName = 'CKJZ' DataBinding.FieldName = 'CKJZ'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65 Width = 65
end end
object TV2Column6: TcxGridDBColumn object TV2Column6: TcxGridDBColumn
Caption = #20986#24211#27611#37325 Caption = #20986#24211#27611#37325
DataBinding.FieldName = 'CKMZ' DataBinding.FieldName = 'CKMZ'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65 Width = 65
end end
object TV2Column8: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'ssel'
HeaderAlignmentHorz = taCenter
Width = 60
end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
GridView = TV2 GridView = TV2
end end
end end
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 988 Left = 971
Top = 1 Top = 1
Width = 377 Width = 377
Height = 254 Height = 254
@ -1126,8 +1150,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 72 Top = 102
Width = 1366 Width = 1349
Height = 23 Height = 23
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -1140,7 +1164,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 23 ClientRectBottom = 23
ClientRectRight = 1366 ClientRectRight = 1349
ClientRectTop = 19 ClientRectTop = 19
end end
object cxGridPopupMenu1: TcxGridPopupMenu object cxGridPopupMenu1: TcxGridPopupMenu
@ -1212,8 +1236,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object CDS_Print: TClientDataSet object CDS_Print: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 344 Left = 272
Top = 288 Top = 336
end end
object ADOQuerySub: TADOQuery object ADOQuerySub: TADOQuery
Connection = DataLink_TradeManage.ADOLink Connection = DataLink_TradeManage.ADOLink
@ -1222,9 +1246,9 @@ object frmProductOrderNewList: TfrmProductOrderNewList
Top = 351 Top = 351
end end
object DataSource2: TDataSource object DataSource2: TDataSource
DataSet = ADOQuerySub DataSet = CDS_sub
Left = 504 Left = 336
Top = 316 Top = 580
end end
object RMDBMain: TRMDBDataSet object RMDBMain: TRMDBDataSet
Visible = True Visible = True
@ -1282,4 +1306,10 @@ object frmProductOrderNewList: TfrmProductOrderNewList
Left = 92 Left = 92
Top = 349 Top = 349
end end
object CDS_sub: TClientDataSet
Aggregates = <>
Params = <>
Left = 268
Top = 572
end
end end

187
打卷检验管理/U_ProductOrderNewList.pas
View File

@ -12,7 +12,20 @@ uses
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxContainer, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxContainer,
cxImage, cxDBEdit, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, cxImage, cxDBEdit, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP, shellAPI, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, IdFTP, shellAPI, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxBarBuiltInMenu; dxBarBuiltInMenu, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
dxSkinscxPCPainter;
type type
TfrmProductOrderNewList = class(TForm) TfrmProductOrderNewList = class(TForm)
@ -149,6 +162,9 @@ type
TV2Column7: TcxGridDBColumn; TV2Column7: TcxGridDBColumn;
ToolButton7: TToolButton; ToolButton7: TToolButton;
QryCheckNet: TADOQuery; QryCheckNet: TADOQuery;
ToolButton8: TToolButton;
CDS_sub: TClientDataSet;
TV2Column8: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -190,6 +206,7 @@ type
procedure ToolButton5Click(Sender: TObject); procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject); procedure ToolButton6Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject); procedure ToolButton7Click(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
private private
DQdate: TDateTime; DQdate: TDateTime;
FMainId: string; FMainId: string;
@ -220,7 +237,7 @@ uses
function TfrmProductOrderNewList.SelfConnData(): Boolean; function TfrmProductOrderNewList.SelfConnData(): Boolean;
begin begin
try try
with QryCheckNet do with QryCheckNet do
begin begin
Close; Close;
sql.Clear; sql.Clear;
@ -316,6 +333,8 @@ begin
sql.Add(')AA'); sql.Add(')AA');
open; open;
end; end;
SCreateCDS20(ADOQuerySub, CDS_sub);
SInitCDSData20(ADOQuerySub, CDS_sub);
end; end;
procedure TfrmProductOrderNewList.FormDestroy(Sender: TObject); procedure TfrmProductOrderNewList.FormDestroy(Sender: TObject);
@ -1082,7 +1101,7 @@ procedure TfrmProductOrderNewList.ToolButton5Click(Sender: TObject);
begin begin
try try
frmZDYHelp := TfrmZDYHelp.Create(Application); frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do with frmZDYHelp do
begin begin
flag := 'WFBCD'; flag := 'WFBCD';
flagname := '´Ãµã'; flagname := '´Ãµã';
@ -1119,5 +1138,167 @@ begin
end; end;
end; end;
procedure TfrmProductOrderNewList.ToolButton8Click(Sender: TObject);
var
fPrintFile, sqlStr: string;
Txt, fImagePath: string;
Moudle: THandle;
Makebar: TMakebar;
Mixtext: TMixtext;
begin
if CDS_sub.IsEmpty then
Exit;
if CDS_sub.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
RMDBMain.DataSet := CDS_Print;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete TBZSDID where DName=''' + Trim(DCode) + '''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('SELECT * FROM TBZSDID where 1=2 ');
open;
end;
sqlStr := '';
CDS_sub.DisableControls;
try
ADOQueryCmd.Connection.BeginTrans;
with CDS_sub do
begin
First;
while not Eof do
begin
if Fieldbyname('Ssel').AsBoolean then
begin
sqlStr := sqlStr + 'insert into TBZSDID(SubId,Dname) ';
sqlStr := sqlStr + ' values( ';
sqlStr := sqlStr + ' ''' + Trim(CDS_sub.fieldbyname('subid').AsString) + ''', ';
sqlStr := sqlStr + ' ''' + Trim(DCode) + ''' ';
sqlStr := sqlStr + ' ) ';
end;
Next;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
end;
CDS_sub.EnableControls;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add(sqlStr);
// showmessage(sql.text);
ExecSQL;
end;
with ADOQueryPrint do
begin
Close;
sql.Clear;
sql.Add('select A.*,B.*,C.Filesother,ColorCount=(select isnull(Count(subID),0) from JYOrder_Sub where MainId=A.MainId), ');
sql.add('ZQty=(select sum(PRTOrderQty) from JYOrder_Sub where MainId=A.MainId),');
sql.add('FQty=(select sum(PRTOrderQty) from JYOrder_Sub X where X.MainId=B.MainId and X.PrtCodeName=B.PrtCodeName and X.KHorderNo=B.KHorderNo),');
sql.add('maxkhOrderNO=(select max(khOrderNO) from JYOrder_Sub X where X.MainId=A.MainId ),');
sql.Add('HXFileOther=(select top 1 Filesother from TP_File X where X.WBID=B.HXFile and X.TFType=''HX'' )');
sql.Add(' from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.MainId ');
sql.Add(' left join TP_File C on C.TFID=B.Subid and C.WBID=B.Mainid ');
sql.add(' WHERE EXISTS(select SubId from TBZSDID X where X.SubId=B.subid and X.DName='''+Trim(DCode)+''')');
// sql.Add(' Where B.subid=''' + Trim(CDS_sub.fieldbyname('subid').AsString) + '''');
sql.Add(' order by B.PRTCode,B.PRTCodeName,B.subID ');
Open;
end;
SCreateCDS20(ADOQueryPrint, CDS_Print);
SInitCDSData20(ADOQueryPrint, CDS_Print);
ExportFtErpFile('子表指示单.rmf', ADOQueryCmd);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\子表指示单.rmf';
if FileExists(fPrintFile) then
begin
RM1.LoadFromFile(fPrintFile);
// RM1.ShowReport;
RM1.PrintReport;
RMDBMain.DataSet := nil;
end
else
begin
CDS_sub.EnableControls;
Application.MessageBox(PChar('没有找' + trim(fPrintFile)), '提示信息', 0);
exit;
end;
// with CDS_sub do
// begin
// First;
// while not Eof do
// begin
// if CDS_sub.FieldByName('SSel').AsBoolean = True then
// begin
// RMDBMain.DataSet := CDS_Print;
// try
// Moudle := LoadLibrary('MakeQRBarcode.dll');
// @Makebar := GetProcAddress(Moudle, 'Make');
// @Mixtext := GetProcAddress(Moudle, 'MixText');
// Txt := Trim(CDS_sub.fieldbyname('subid').AsString);
// fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
// if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
// CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
// if FileExists(fImagePath) then
// DeleteFile(fImagePath);
// Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
// except
// application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
// Order_Main.EnableControls;
// exit;
// end;
// with ADOQueryPrint do
// begin
// Close;
// sql.Clear;
// sql.Add('select A.*,B.*,C.Filesother,ColorCount=(select isnull(Count(subID),0) from JYOrder_Sub where MainId=A.MainId), ');
// sql.add('ZQty=(select sum(PRTOrderQty) from JYOrder_Sub where MainId=A.MainId),');
// sql.add('FQty=(select sum(PRTOrderQty) from JYOrder_Sub X where X.MainId=B.MainId and X.PrtCodeName=B.PrtCodeName and X.KHorderNo=B.KHorderNo),');
// sql.add('maxkhOrderNO=(select max(khOrderNO) from JYOrder_Sub X where X.MainId=A.MainId ),');
// sql.Add('HXFileOther=(select top 1 Filesother from TP_File X where X.WBID=B.HXFile and X.TFType=''HX'' )');
// sql.Add(' from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.MainId ');
// sql.Add(' left join TP_File C on C.TFID=B.Subid and C.WBID=B.Mainid ');
// sql.Add(' Where B.subid=''' + Trim(CDS_sub.fieldbyname('subid').AsString) + '''');
// sql.Add(' order by B.PRTCode,B.PRTCodeName,B.subID ');
// Open;
// end;
// SCreateCDS20(ADOQueryPrint, CDS_Print);
// SInitCDSData20(ADOQueryPrint, CDS_Print);
// ExportFtErpFile('子表指示单.rmf', ADOQueryCmd);
// fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\子表指示单.rmf';
// if FileExists(fPrintFile) then
// begin
// RM1.LoadFromFile(fPrintFile);
//// RM1.ShowReport;
// RM1.PrintReport;
// RMDBMain.DataSet := nil;
// end
// else
// begin
// CDS_sub.EnableControls;
// Application.MessageBox(PChar('没有找' + trim(fPrintFile)), '提示信息', 0);
// exit;
// end;
// end;
// Next;
// end;
// end;
// CDS_sub.EnableControls;
end;
end. end.