1234
This commit is contained in:
parent
8f8faec5ae
commit
60bf657754
4555
A00通用窗体/U_LabelPrint2.dfm
Normal file
4555
A00通用窗体/U_LabelPrint2.dfm
Normal file
File diff suppressed because it is too large
Load Diff
452
A00通用窗体/U_LabelPrint2.pas
Normal file
452
A00通用窗体/U_LabelPrint2.pas
Normal file
|
@ -0,0 +1,452 @@
|
|||
unit U_LabelPrint2;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Vcl.Printers, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||||
cxDataStorage, cxEdit, DB, cxDBData, ToolWin, ComCtrls, U_BaseHelp,
|
||||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel,
|
||||
cxClasses, cxControls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList,
|
||||
StdCtrls, ExtCtrls, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
|
||||
dxBarBuiltInMenu, System.ImageList, U_BaseInput, RM_Common, RM_Class,
|
||||
RM_GridReport, RM_Dataset, Vcl.Buttons, RM_E_llPDF, RM_BarCode, RM_e_Graphic,
|
||||
RM_e_Jpeg, RM_e_Xls, cxContainer, cxMaskEdit, cxDropDownEdit, cxMRUEdit,
|
||||
System.Net.HttpClient, System.Net.HttpClientComponent, System.JSON,
|
||||
dxSkinsCore, dxSkinsDefaultPainters, dxSkinWXI;
|
||||
|
||||
type
|
||||
TfrmLabelPrint2 = class(TfrmBaseHelp)
|
||||
ADOQueryTemp: TADOQuery;
|
||||
ADOConnection1: TADOConnection;
|
||||
Panel1: TPanel;
|
||||
ImageList1: TImageList;
|
||||
RMDB_1: TRMDBDataSet;
|
||||
RM1: TRMGridReport;
|
||||
RMDB_2: TRMDBDataSet;
|
||||
CDS_Label: TClientDataSet;
|
||||
ADO_1: TADOQuery;
|
||||
btnShow: TSpeedButton;
|
||||
ADO_2: TADOQuery;
|
||||
RMDB_3: TRMDBDataSet;
|
||||
ADO_3: TADOQuery;
|
||||
RMXLSExport1: TRMXLSExport;
|
||||
RMJPEGExport1: TRMJPEGExport;
|
||||
RMBarCodeObject1: TRMBarCodeObject;
|
||||
RMllPDFExport1: TRMllPDFExport;
|
||||
CheckBox1: TCheckBox;
|
||||
Label1: TLabel;
|
||||
cbbLab: TcxMRUEdit;
|
||||
CheckBox2: TCheckBox;
|
||||
CheckBox3: TCheckBox;
|
||||
ADOQueryCmd: TADOQuery;
|
||||
ADO_While: TADOQuery;
|
||||
ComboBox1: TcxComboBox;
|
||||
ComboBox_Print: TcxComboBox;
|
||||
btnPrint: TSpeedButton;
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure TV1DblClick(Sender: TObject);
|
||||
procedure btnPrintClick(Sender: TObject);
|
||||
procedure btnShowClick(Sender: TObject);
|
||||
procedure cbbLabPropertiesButtonClick(Sender: TObject);
|
||||
private
|
||||
procedure InitGrid();
|
||||
procedure PrintLabel(MIsShow: Boolean);
|
||||
procedure PrintServerLabel(MIsShow: Boolean);
|
||||
function JsonGetChildValue(JsonStr, KeyName: string): string;
|
||||
{ Private declarations }
|
||||
public
|
||||
FPreviewPrint, IsSql1, IsSql2, IsSql3: Boolean;
|
||||
FLMType: string; //标签类型
|
||||
FFiltration1, FFiltration2, FFiltration3: string;
|
||||
FparamBlclid: string;
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmLabelPrint2: TfrmLabelPrint2;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_RTFun, U_LabelMapSet, U_printPdf, U_LabelPrint;
|
||||
|
||||
{$R *.dfm}
|
||||
function TfrmLabelPrint2.JsonGetChildValue(JsonStr, KeyName: string): string;
|
||||
var
|
||||
JSONObject: TJSONObject; // JSON类
|
||||
JSONPair: TJSONPair;
|
||||
i, Cloint: integer;
|
||||
Z, X: string;
|
||||
begin
|
||||
Result := '';
|
||||
JSONObject := TJSONObject.ParseJSONValue(JsonStr) as TJSONObject;
|
||||
Cloint := JSONObject.Count;
|
||||
for i := 0 to Cloint - 1 do
|
||||
begin
|
||||
JSONPair := JSONObject.Pairs[i];
|
||||
Z := JSONPair.JsonString.Value;
|
||||
X := JSONPair.JSONValue.Value;
|
||||
if JSONPair.JsonString.Value = KeyName then
|
||||
Result := JSONPair.JSONValue.Value;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmLabelPrint2.PrintServerLabel(MIsShow: Boolean);
|
||||
var
|
||||
MaxBLCLID, LBName: string;
|
||||
WBoolean: Boolean;
|
||||
HttpClient: THttpClient;
|
||||
Request: TStringStream;
|
||||
Response: IHTTPResponse;
|
||||
ResponseString: string;
|
||||
jsonArray: TJSONArray; // JSON数组变量
|
||||
JSONObject: TJSONObject; // JSON类
|
||||
JSONPair: TJSONPair;
|
||||
JSONStr: string;
|
||||
i: Integer;
|
||||
Mmessage, MpdfFileId, Mcode: string;
|
||||
mprintFlag, mprinter: Integer;
|
||||
begin
|
||||
if CDS_Label.IsEmpty then
|
||||
begin
|
||||
Application.MessageBox(PChar('类型' + FLMType + '没有设置标签!'), '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
LBName := cbbLab.text;
|
||||
|
||||
if CDS_Label.Locate('LMName', LBName, []) then
|
||||
begin
|
||||
if GetLSNo(ADOQueryCmd, MaxBLCLID, 'X', 'Bs_Report_Cloud_Log', 4, 1) = False then
|
||||
begin
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('取最大号失败!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add('select * from Bs_Report_Cloud_Log where 1=2');
|
||||
Open;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Append;
|
||||
FieldByName('BLCLID').Value := MaxBLCLID;
|
||||
FieldByName('Filler').Value := dname;
|
||||
FieldByName('LMName').Value := trim(CDS_Label.fieldbyname('LMName').AsString);
|
||||
FieldByName('LMSql1').Value := trim(CDS_Label.fieldbyname('LMSql1').AsString);
|
||||
FieldByName('LMSql2').Value := trim(CDS_Label.fieldbyname('LMSql2').AsString);
|
||||
FieldByName('LMSql3').Value := trim(CDS_Label.fieldbyname('LMSql3').AsString);
|
||||
FieldByName('Filtration1').Value := Trim(FFiltration1);
|
||||
FieldByName('Filtration2').Value := Trim(FFiltration2);
|
||||
FieldByName('Filtration3').Value := Trim(FFiltration3);
|
||||
FieldByName('IsSql1').Value := IsSql1;
|
||||
FieldByName('IsSql2').Value := IsSql2;
|
||||
FieldByName('IsSql3').Value := IsSql3;
|
||||
FieldByName('Sheets').Value := strtointdef(ComboBox1.Text, 1);
|
||||
FieldByName('paramBlclid').Value := StrToFloatDef(FparamBlclid, 0);
|
||||
Post;
|
||||
end;
|
||||
end;
|
||||
if MIsShow then
|
||||
mprintFlag := 1
|
||||
else
|
||||
mprintFlag := 0;
|
||||
|
||||
mprinter := ComboBox_Print.ItemIndex;
|
||||
printPdf(Application, 1, PChar('title'), PChar(dcode), PChar(dname), PChar(MaxBLCLID), StrToIntDef(ComboBox1.Text, 1), mprintFlag, mprinter, PChar(DConString))// HttpClient := THttpClient.Create;
|
||||
// JSONStr := '{"reportFileName":"","ciid":"' + MaxBLCLID + '"}';
|
||||
// Request := TStringStream.Create(JSONStr);
|
||||
//
|
||||
// try
|
||||
// HttpClient.ContentType := 'application/json';
|
||||
// Response := HttpClient.Post('http://101.132.143.144:8089/datasnap/rest/TServerMethods1/RmfToPdf/', Request);
|
||||
// ResponseString := Response.ContentAsString;
|
||||
// JSONObject := TJSONObject.ParseJSONValue(ResponseString) as TJSONObject;
|
||||
// jsonArray := TJSONArray(JSONObject.GetValue('result'));
|
||||
// for i := 0 to 2 do
|
||||
// begin
|
||||
// JSONPair := jsonArray.Items[0].GetValue<TJSONObject>.Pairs[i];
|
||||
// if JSONPair.JsonString.Value = 'code' then
|
||||
// Mcode := JSONPair.JSONValue.Value;
|
||||
// if JSONPair.JsonString.Value = 'pdfFileId' then
|
||||
// MpdfFileId := JSONPair.JSONValue.Value;
|
||||
// if JSONPair.JsonString.Value = 'message' then
|
||||
// Mmessage := JSONPair.JSONValue.Value;
|
||||
// end;
|
||||
// if Mmessage = 'success' then
|
||||
// begin
|
||||
// if MIsShow then
|
||||
// mprintFlag := 1
|
||||
// else
|
||||
// mprintFlag := 0;
|
||||
//
|
||||
// mprinter := ComboBox_Print.ItemIndex;
|
||||
//
|
||||
// printPdf(Application, 1, PChar('title'), PChar(dcode), PChar(dname), PChar(MpdfFileId), StrToIntDef(ComboBox1.Text, 1), mprintFlag, mprinter, PChar(DConString))
|
||||
// end;
|
||||
// finally
|
||||
// Request.Free;
|
||||
// HttpClient.Free;
|
||||
// end;
|
||||
end;
|
||||
|
||||
procedure TfrmLabelPrint2.PrintLabel(MIsShow: Boolean);
|
||||
var
|
||||
fPrintFile, fPrintFile10, FMainID, LBName: string;
|
||||
begin
|
||||
if CDS_Label.IsEmpty then
|
||||
begin
|
||||
Application.MessageBox(PChar('类型' + FLMType + '没有设置标签!'), '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
RMllPDFExport1.ShowDialog := CheckBox2.Checked;
|
||||
RMJPEGExport1.ShowDialog := CheckBox2.Checked;
|
||||
RMXLSExport1.ShowDialog := CheckBox2.Checked;
|
||||
RM1.ShowPrintDialog := CheckBox1.Checked;
|
||||
|
||||
LBName := cbbLab.text;
|
||||
ExportFtErpFile(LBName + '.rmf', ADOQueryTemp);
|
||||
|
||||
if CDS_Label.Locate('LMName', LBName, []) then
|
||||
begin
|
||||
|
||||
if trim(CDS_Label.fieldbyname('LMSql1').AsString) <> '' then
|
||||
begin
|
||||
with ADO_1 do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
if IsSql1 then
|
||||
begin
|
||||
sql.add('exec ' + trim(CDS_Label.fieldbyname('LMSql1').AsString));
|
||||
sql.add(FFiltration1);
|
||||
end
|
||||
else
|
||||
begin
|
||||
sql.add('exec ' + trim(CDS_Label.fieldbyname('LMSql1').AsString) + ' @Filtration=' + quotedstr(Trim(FFiltration1)));
|
||||
end;
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
|
||||
if trim(CDS_Label.fieldbyname('LMSql2').AsString) <> '' then
|
||||
begin
|
||||
with ADO_2 do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
if IsSql1 then
|
||||
begin
|
||||
sql.add('exec ' + trim(CDS_Label.fieldbyname('LMSql2').AsString));
|
||||
sql.add(FFiltration2);
|
||||
end
|
||||
else
|
||||
begin
|
||||
sql.add('exec ' + trim(CDS_Label.fieldbyname('LMSql2').AsString) + ' @Filtration=' + quotedstr(Trim(FFiltration2)));
|
||||
end;
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
|
||||
if trim(CDS_Label.fieldbyname('LMSql3').AsString) <> '' then
|
||||
begin
|
||||
with ADO_3 do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
if IsSql1 then
|
||||
begin
|
||||
sql.add('exec ' + trim(CDS_Label.fieldbyname('LMSql3').AsString));
|
||||
sql.add(FFiltration3);
|
||||
end
|
||||
else
|
||||
begin
|
||||
sql.add('exec ' + trim(CDS_Label.fieldbyname('LMSql3').AsString) + ' @Filtration=' + quotedstr(Trim(FFiltration3)));
|
||||
end;
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
|
||||
end;
|
||||
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + LBName + '.rmf';
|
||||
if FileExists(fPrintFile) then
|
||||
begin
|
||||
|
||||
RM1.LoadFromFile(fPrintFile);
|
||||
RM1.DefaultCopies := StrToIntDef(ComboBox1.Text, 1);
|
||||
RMVariables['LBPrtCode'] := dcode;
|
||||
RMVariables['LBPrtName'] := dname;
|
||||
if MIsShow then
|
||||
RM1.ShowReport
|
||||
else
|
||||
RM1.PrintReport;
|
||||
end
|
||||
else
|
||||
begin
|
||||
Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmLabelPrint2.FormCreate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
FPreviewPrint := True;
|
||||
try
|
||||
with ADOConnection1 do
|
||||
begin
|
||||
Connected := false;
|
||||
ConnectionString := DConString;
|
||||
Connected := true;
|
||||
end;
|
||||
ADOQueryBaseCmd.Connection := ADOConnection1;
|
||||
ADOQueryBaseTemp.Connection := ADOConnection1;
|
||||
except
|
||||
{if Application.MessageBox('网络连接失败,是否要再次连接?','提示',32+4)=IDYES then
|
||||
begin
|
||||
try
|
||||
with ADOConnection1 do
|
||||
begin
|
||||
Connected:=false;
|
||||
ConnectionString:=DConString;
|
||||
//ConnectionString:='23242';
|
||||
Connected:=true;
|
||||
end;
|
||||
except
|
||||
end;
|
||||
end; }
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmLabelPrint2.btnPrintClick(Sender: TObject);
|
||||
begin
|
||||
if not CheckBox3.Checked then
|
||||
begin
|
||||
PrintLabel(False);
|
||||
end
|
||||
else
|
||||
begin
|
||||
PrintServerLabel(False);
|
||||
end;
|
||||
ModalResult := 1;
|
||||
end;
|
||||
|
||||
procedure TfrmLabelPrint2.btnShowClick(Sender: TObject);
|
||||
begin
|
||||
if not CheckBox3.Checked then
|
||||
begin
|
||||
PrintLabel(true);
|
||||
end
|
||||
else
|
||||
begin
|
||||
PrintServerLabel(true);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmLabelPrint2.cbbLabPropertiesButtonClick(Sender: TObject);
|
||||
begin
|
||||
|
||||
try
|
||||
frmLabelMapSet := TfrmLabelMapSet.Create(Application);
|
||||
with frmLabelMapSet do
|
||||
begin
|
||||
IsSql1 := self.IsSql1;
|
||||
IsSql2 := self.IsSql2;
|
||||
IsSql3 := self.IsSql3;
|
||||
FFiltration1 := self.FFiltration1;
|
||||
FFiltration2 := self.FFiltration2;
|
||||
FFiltration3 := self.FFiltration3;
|
||||
FLMType := self.FLMType;
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
Self.InitGrid();
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmLabelMapSet.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmLabelPrint2.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
inherited;
|
||||
Action := cahide;
|
||||
end;
|
||||
|
||||
procedure TfrmLabelPrint2.InitGrid();
|
||||
begin
|
||||
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.Add('select LMName name from BS_Label_Map where LMType=' + QuotedStr(TRIM(FLMType)));
|
||||
sql.Add(' order by SerialNo ');
|
||||
Open;
|
||||
if isEmpty then
|
||||
begin
|
||||
exit;
|
||||
end;
|
||||
cbbLab.Properties.LookupItems.Clear;
|
||||
while not Eof do
|
||||
begin
|
||||
|
||||
cbbLab.Properties.LookupItems.Add(Trim(fieldByName('Name').AsString));
|
||||
Next;
|
||||
end;
|
||||
|
||||
cbbLab.ItemIndex := 0;
|
||||
end;
|
||||
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Filtered := False;
|
||||
Close;
|
||||
sql.Clear;
|
||||
Sql.Add('select * from BS_Label_Map where LMType=' + QuotedStr(TRIM(FLMType)));
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADOQueryTemp, CDS_Label);
|
||||
SInitCDSData(ADOQueryTemp, CDS_Label);
|
||||
if CDS_Label.IsEmpty then
|
||||
begin
|
||||
Application.MessageBox(PChar('类型' + FLMType + '没有设置标签!'), '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmLabelPrint2.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
if FPreviewPrint then
|
||||
RM1.PreviewButtons := [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbSaveToXLS, rmpbExport, rmpbNavigator]
|
||||
else
|
||||
RM1.PreviewButtons := [rmpbZoom, rmpbLoad, rmpbSave, rmpbFind, rmpbPageSetup, rmpbExit, rmpbSaveToXLS, rmpbExport, rmpbNavigator];
|
||||
|
||||
if Trim(FFiltration2) = '' then
|
||||
FFiltration2 := FFiltration1;
|
||||
if Trim(FFiltration3) = '' then
|
||||
FFiltration3 := FFiltration1;
|
||||
ComboBox_Print.Properties.Items.Assign(printer.Printers);
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmLabelPrint2.TV1DblClick(Sender: TObject);
|
||||
begin
|
||||
ModalResult := 1;
|
||||
end;
|
||||
|
||||
procedure TfrmLabelPrint2.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
frmLabelPrint2 := nil;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
26
A00通用窗体/U_printPdf.pas
Normal file
26
A00通用窗体/U_printPdf.pas
Normal file
|
@ -0,0 +1,26 @@
|
|||
unit U_printPdf;
|
||||
interface
|
||||
uses
|
||||
Windows,forms;
|
||||
// formId =1 功能id
|
||||
//mRecid='文件表记录号'
|
||||
//printNumber=1 打印份数
|
||||
//printFlag=1 '打印预览;0立即打印
|
||||
//DataBaseStr
|
||||
function printPdf(App:Tapplication; FormID:integer;Title:PChar; GCode: PChar; GName: PChar;mRecid:PChar;printNumber:Integer;printFlag:Integer;printer:integer;DataBaseStr:PChar):hwnd;stdcall;external 'pdfPrint.dll' Name 'GetDllForm' ;
|
||||
// formId =1 功能id
|
||||
//mRecid='文件表记录号'
|
||||
//printNumber=1 打印份数
|
||||
//printFlag=1 '打印预览;0立即打印
|
||||
//DataBaseStr
|
||||
function printReport(App:Tapplication; FormID:integer;Title:PChar; GCode: PChar; GName: PChar;mRecid:PChar;printNumber:Integer;printFlag:Integer;printer:integer;DataBaseStr:PChar):hwnd;stdcall;external 'pdfPrint.dll' Name 'GetDllForm' ;
|
||||
// formId =1 功能id
|
||||
//mRecid='文件表记录号'
|
||||
//exportFileType=1 导出文件类型 pdf ,bmp ,jpg
|
||||
//DataBaseStr
|
||||
//返回结果,保存文件的记录号 主键
|
||||
function exportFile(App:Tapplication; FormID:integer;Title:PChar; GCode: PChar; GName: PChar;mRecid:PChar;exportFileType:PChar;DataBaseStr:PChar):hwnd;stdcall;external 'pdfPrint.dll' Name 'ExportFile' ;
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
|
@ -25,7 +25,6 @@ uses
|
|||
U_EmployeeSel in '..\A00通用窗体\U_EmployeeSel.pas' {frmEmployeeSel},
|
||||
U_YarnInfoSel in '..\A00通用窗体\U_YarnInfoSel.pas' {frmYarnInfoSel},
|
||||
U_LabelMapSet in '..\A00通用窗体\U_LabelMapSet.pas' {frmLabelMapSet},
|
||||
U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
|
||||
U_TradeSalesContractSel in 'U_TradeSalesContractSel.pas' {frmTradeSalesContractSel},
|
||||
U_LabelList in '..\B01基础合同管理\U_LabelList.pas' {frmLabelList},
|
||||
U_LabelAdd in 'U_LabelAdd.pas' {frmLabelAdd},
|
||||
|
@ -35,7 +34,10 @@ uses
|
|||
U_LCKQuery in 'U_LCKQuery.pas' {frmLCKQuery},
|
||||
U_KnitPlanCardOFF in 'U_KnitPlanCardOFF.pas' {frmKnitPlanCardOFF},
|
||||
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
|
||||
U_TradeInspSet2 in 'U_TradeInspSet2.pas' {frmTradeInspSet2};
|
||||
U_TradeInspSet2 in 'U_TradeInspSet2.pas' {frmTradeInspSet2},
|
||||
U_LabelPrint2 in '..\A00通用窗体\U_LabelPrint2.pas' {frmLabelPrint2},
|
||||
U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
|
||||
U_printPdf in '..\A00通用窗体\U_printPdf.pas';
|
||||
|
||||
{$R *.res}
|
||||
|
||||
|
|
|
@ -181,10 +181,6 @@
|
|||
<Form>frmLabelMapSet</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\A00通用窗体\U_LabelPrint.pas">
|
||||
<Form>frmLabelPrint</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<DCCReference Include="U_TradeSalesContractSel.pas">
|
||||
<Form>frmTradeSalesContractSel</Form>
|
||||
<FormType>dfm</FormType>
|
||||
|
@ -223,6 +219,15 @@
|
|||
<Form>frmTradeInspSet2</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\A00通用窗体\U_LabelPrint2.pas">
|
||||
<Form>frmLabelPrint2</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\A00通用窗体\U_LabelPrint.pas">
|
||||
<Form>frmLabelPrint</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\A00通用窗体\U_printPdf.pas"/>
|
||||
<BuildConfiguration Include="Debug">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
|
|
|
@ -1,57 +1,60 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<Transactions>
|
||||
<Transaction>1899-12-30 00:00:00.000.938,=D:\Dp10Repo\项目代码\D10gmXinHua\D01针织生产计划\U_LCKInput.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\阔和\D01针织生产计划\U_TradeSalesContractSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.904,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelInput.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.904,D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCard.dfm=D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCardOFF.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.496,D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_LabelInput.pas=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_LabelInput.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.951,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.089,=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_TradeInspSet2.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.030,D:\Dp10Repo\项目代码\东亚\B01基础合同管理\U_LabelList.dfm=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelList.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.925,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\Unit1.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.238,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.756,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.830,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_PlanCardOFF.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.383,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.938,=D:\Dp10Repo\项目代码\D10gmXinHua\D01针织生产计划\U_LCKInput.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.726,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.811,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.898,=D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\D01针织生产计划\U_LCKQuery.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.128,D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_TradeInspSet.dfm=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_TradeInspSet.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\阔和\D01针织生产计划\U_TradeSalesContractSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.904,D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCardOFF.dfm=D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCard.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.726,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.925,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\Unit1.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.030,D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelList.pas=D:\Dp10Repo\项目代码\东亚\B01基础合同管理\U_LabelList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.756,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.227,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelAdd.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.128,D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_TradeInspSet.dfm=D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_TradeInspSet.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.914,=D:\Dp10Repo\项目代码\阔和\D01针织生产计划\U_testdll.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.904,D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCardOFF.pas=D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCard.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.175,=D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\D01针织生产计划\U_KnitPlanCard.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.830,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_PlanCardOFF.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.383,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.913,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_TradeInspSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.089,=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_TradeInspSet2.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.988,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\KnitPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\InformationBase.dproj</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.496,D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_LabelInput.dfm=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_LabelInput.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.238,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.496,D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_LabelInput.pas=D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_LabelInput.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.030,D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelList.dfm=D:\Dp10Repo\项目代码\东亚\B01基础合同管理\U_LabelList.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.881,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitCardInPut.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.904,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelInput.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.951,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.811,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.128,D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_TradeInspSet.pas=D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_TradeInspSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.988,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\KnitPlan.dproj</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.496,D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_LabelInput.dfm=D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_LabelInput.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.904,D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCard.pas=D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCardOFF.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.227,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelAdd.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.128,D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_TradeInspSet.pas=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_TradeInspSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.030,D:\Dp10Repo\项目代码\东亚\B01基础合同管理\U_LabelList.pas=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.881,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitCardInPut.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.914,=D:\Dp10Repo\项目代码\阔和\D01针织生产计划\U_testdll.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.175,=D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\D01针织生产计划\U_KnitPlanCard.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
|
||||
<Transaction>2025-05-24 13:35:58.170,=D:\Dp10Repo\项目代码\D10gmBitao\A00通用窗体\U_LabelPrint2.pas</Transaction>
|
||||
<Transaction>2025-05-24 13:38:16.814,=D:\Dp10Repo\public10\ThreeFun\Fun\U_printPdf.pas</Transaction>
|
||||
<Transaction>2025-05-24 13:43:17.868,D:\Dp10Repo\项目代码\D10gmBitao\A00通用窗体\U_printPdf.pas=D:\Dp10Repo\public10\ThreeFun\Fun\U_printPdf.pas</Transaction>
|
||||
</Transactions>
|
||||
<ProjectSortOrder AutoSort="0" SortType="0">
|
||||
<File Path="android-support-v4.dex.jar"/>
|
||||
|
@ -98,6 +101,9 @@
|
|||
<File Path="..\A00通用窗体\U_LabelPrint.dfm"/>
|
||||
<File Path="..\A00通用窗体\U_YarnInfoSel.pas"/>
|
||||
<File Path="..\A00通用窗体\U_YarnInfoSel.dfm"/>
|
||||
<File Path="..\A00通用窗体\U_LabelPrint2.pas"/>
|
||||
<File Path="..\A00通用窗体\U_LabelPrint2.dfm"/>
|
||||
<File Path="..\A00通用窗体\U_printPdf.pas"/>
|
||||
<File Path="..\B01基础合同管理"/>
|
||||
<File Path="..\B01基础合同管理\U_LabelList.pas"/>
|
||||
<File Path="..\B01基础合同管理\U_LabelList.dfm"/>
|
||||
|
|
Binary file not shown.
|
@ -234,8 +234,8 @@ type
|
|||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_KnitPlanInPut, U_RTFun, U_ZDYHelp, U_LabelPrint, U_KnitCardInPut,
|
||||
U_TradeInspSet, U_LCKInput, U_KnitPlanImport;
|
||||
U_DataLink, U_KnitPlanInPut, U_RTFun, U_ZDYHelp, U_LabelPrint2, U_KnitCardInPut,
|
||||
U_TradeInspSet, U_LCKInput, U_KnitPlanImport, U_LabelPrint;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
|
@ -1107,8 +1107,8 @@ end;
|
|||
procedure TfrmKnitPlanList.ToolButton8Click(Sender: TObject);
|
||||
begin
|
||||
try
|
||||
frmLabelPrint := TfrmLabelPrint.Create(Application);
|
||||
with frmLabelPrint do
|
||||
frmLabelPrint2 := TfrmLabelPrint2.Create(Application);
|
||||
with frmLabelPrint2 do
|
||||
begin
|
||||
|
||||
FLMType := 'ZZJHD';
|
||||
|
@ -1129,7 +1129,7 @@ begin
|
|||
end;
|
||||
end;
|
||||
finally
|
||||
frmLabelPrint.Free;
|
||||
frmLabelPrint2.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user