浙江电子招投标

Common/ScConsts.pas

@@ -658,6 +658,44 @@ const
   SGUID = 'GUID';
   //---------------------------------项目属性---------------------------------//
 
+  S_CN_ProjectInfo = '工程信息';
+  S_CN_ProjectName = '项目名称';
+  S_CN_ZhaoTouBiaoInfo = '招投标信息';
+  S_CN_ZhaoBiaoInfo = '招标信息';
+  S_CN_ProjectList = '公路工程数据';
+  S_CN_Tender = '公路标段工程';
+  S_CN_TendersSummary = '公路工程汇总';
+  S_CN_TenderName = '标段名称';
+  S_CN_ProjectNo = '项目编号';
+  S_CN_BuildUnit = '建设单位';
+  S_CN_StartCode = '起始桩号';
+  S_CN_EndCode = '终点桩号';
+  S_CN_ProjectLocation = '建设地址';
+  S_CN_ProjectSummary = '项目概况';
+  S_CN_DesignUnit = '设计单位';
+  S_CN_RoadLevel = '专业划分';
+  S_CN_RoadLength = '道路里程-公里';
+  S_CN_ZhaoBiaoRen = '招标人';
+  S_CN_ZhaoBiaoRenRepresentative = '招标法定代表人或其授权人';
+  S_CN_Author = '编制人';
+  S_CN_AuthorCertificate = '编制人资格证号';
+  S_CN_EditDate = '编制日期';
+  S_CN_ZhaoBiaoAgent = '招标代理机构';
+  S_CN_ZhaoBiaoRange = '招标范围';
+  S_CN_ZhaoBiaoCalendarDay = '总工期日历天';
+  S_CN_TouBiaoRen = '投标人';
+  S_CN_TouBiaoRenRepresentative = '投标法定代表人或其授权人';
+  S_CN_TouBiaoRenCertificate = '投标人资质证号';
+  S_CN_TouBiaoCalendarDay = '总工期日历天';
+  S_CN_TouBiaoDownRate = '投标下浮率';
+  S_CN_TouBiaoQuoteNote = '投标报价说明';
+  S_CN_TouBiaoQualityCommitment = '质量承诺';
+  S_CN_TouBiaoDeposit = '投标保证金';
+  S_CN_TouBiaoProjectManager = '项目经理或项目负责人';
+  S_CN_TouBiaoProjectManagerCertificate = '项目经理或项目负责人资格证号';
+  S_CN_StandardVersion = '标准版本号';
+  S_CN_UniqueGUID = '唯一标识-Guid';
+  
   // 勘误工料机文件名
   CorrectGLJFileName = 'CorrectGLJ';
   // 设备标准数据文件

DPRs/ZY/SmartCost.dof

@@ -115,7 +115,7 @@ AutoIncBuild=1
 MajorVer=10
 MinorVer=3
 Release=0
-Build=1321
+Build=1322
 Debug=0
 PreRelease=0
 Special=0
@@ -126,7 +126,7 @@ CodePage=936
 [Version Info Keys]
 CompanyName=珠海纵横创新软件有限公司
 FileDescription=SmartCost 2025专业版
-FileVersion=10.3.0.1321
+FileVersion=10.3.0.1322
 InternalName=SmartCost
 LegalCopyright=版权所有(C) 珠海纵横创新软件有限公司 2003-2024。保留所有权利。
 LegalTrademarks=SmartCost

MainModule/Model/ScXMLToBuildProject.pas

@@ -2,6 +2,9 @@ unit ScXMLToBuildProject;
 
 interface
 
+uses
+  ADODB, sdDB, Classes, PrintComXML, PrintComTypeDefUnit;
+
 type
   TScXMLToBuildProject = class(TObject)
   private
@@ -12,15 +15,35 @@ type
     procedure Import(AXMLFileName, AFolder: string);
   end;
 
+  TScExportPDF_ZheJiang = class(TObject)
+  private
+    ReportFiles: TStringList;
+    PrintCom: TPrintComXML;
+    procedure PreviewComXMLGetDataConnection(var ADOCon: TADOConnection);
+    procedure PreviewComXMLGetDataViewEvent(DatasetInfo : PDatasetInfoRec; var ADataview : TsdDataView);
+  public
+    constructor Create;
+    destructor Destroy; override;
+    procedure Prepare(ABuildProjectID: Integer; AIsZhaoBiao: Boolean);
+    procedure AddConnectionToPDF(AConnection: TADOConnection);
+    procedure AddDataViewToPDF(ADataView: TsdDataView);
+    procedure ExportPDF_ZheJiang(AFileName: string);
+  end;
+  
+// 导入
 procedure ImportXML_ZheJiang(AXMLFileName, AFolder: string);
+// 导出PDF
+procedure PrepareExportPDF_ZheJiang(ABuildProjectID: Integer; AIsZhaoBiao: Boolean);
+procedure AddConnectionToPDF(AConnection: TADOConnection);
+procedure AddDataViewToPDF(ADataView: TsdDataView);
+procedure ExportPDF_ZheJiang(AFileName: string);
 
-procedure ExportPDF_ZheJiang(ABuildProjectID: Integer);
-  
 implementation
 
 uses
   ProjectsDM, ScUtils, NativeXml, ScProjList, ScProjBaseDM, ScProject,
-  ScProjManagerTree, ScConfig, SysUtils, ScConsts, ScXMLPort, sdDB;
+  ScProjManagerTree, ScConfig, SysUtils, ScConsts, ScXMLPort, 
+  ScReportsFrm;
 
 procedure ImportXML_ZheJiang(AXMLFileName, AFolder: string);
 var
@@ -35,51 +58,30 @@ begin
 end;
 
 //------------------------- ------- 导出PDF ---------------- ----------------//
+var
+  Exporter: TScExportPDF_ZheJiang = nil;
 
-procedure ExportPDF_ZheJiang(ABuildProjectID: Integer);
+procedure PrepareExportPDF_ZheJiang(ABuildProjectID: Integer; AIsZhaoBiao: Boolean);
 begin
+  Exporter := TScExportPDF_ZheJiang.Create;
 
 end;
-//------------------------- ------- 导出PDF ---------------- ----------------//
 
-const
-  S_CN_ProjectInfo = '工程信息';
-  S_CN_ProjectName = '项目名称';
-  S_CN_ZhaoTouBiaoInfo = '招投标信息';
-  S_CN_ZhaoBiaoInfo = '招标信息';
-  S_CN_ProjectList = '公路工程数据';
-  S_CN_Tender = '公路标段工程';
-  S_CN_TendersSummary = '公路工程汇总';
-  S_CN_TenderName = '标段名称';
-  S_CN_ProjectNo = '项目编号';
-  S_CN_BuildUnit = '建设单位';
-  S_CN_StartCode = '起始桩号';
-  S_CN_EndCode = '终点桩号';
-  S_CN_ProjectLocation = '建设地址';
-  S_CN_ProjectSummary = '项目概况';
-  S_CN_DesignUnit = '设计单位';
-  S_CN_RoadLevel = '专业划分';
-  S_CN_RoadLength = '道路里程-公里';
-  S_CN_ZhaoBiaoRen = '招标人';
-  S_CN_ZhaoBiaoRenRepresentative = '招标法定代表人或其授权人';
-  S_CN_Author = '编制人';
-  S_CN_AuthorCertificate = '编制人资格证号';
-  S_CN_EditDate = '编制日期';
-  S_CN_ZhaoBiaoAgent = '招标代理机构';
-  S_CN_ZhaoBiaoRange = '招标范围';
-  S_CN_ZhaoBiaoCalendarDay = '总工期日历天';
-  S_CN_TouBiaoRen = '投标人';
-  S_CN_TouBiaoRenRepresentative = '投标法定代表人或其授权人';
-  S_CN_TouBiaoRenCertificate = '投标人资质证号';
-  S_CN_TouBiaoCalendarDay = '总工期日历天';
-  S_CN_TouBiaoDownRate = '投标下浮率';
-  S_CN_TouBiaoQuoteNote = '投标报价说明';
-  S_CN_TouBiaoQualityCommitment = '质量承诺';
-  S_CN_TouBiaoDeposit = '投标保证金';
-  S_CN_TouBiaoProjectManager = '项目经理或项目负责人';
-  S_CN_TouBiaoProjectManagerCertificate = '项目经理或项目负责人资格证号';
-  S_CN_StandardVersion = '标准版本号';
-  S_CN_UniqueGUID = '唯一标识-Guid';
+procedure AddConnectionToPDF(AConnection: TADOConnection);
+begin
+
+end;
+
+procedure AddDataViewToPDF(ADataView: TsdDataView);
+begin
+
+end;
+
+procedure ExportPDF_ZheJiang(AFileName: string);
+begin
+
+end;
+//------------------------- ------- 导出PDF ---------------- ----------------//
 
 { TScXMLToBuildProject }
 
@@ -227,4 +229,51 @@ begin
   end;
 end;
 
+{ TScExportPDF_ZheJiang }
+
+procedure TScExportPDF_ZheJiang.AddConnectionToPDF(
+  AConnection: TADOConnection);
+begin
+
+end;
+
+procedure TScExportPDF_ZheJiang.AddDataViewToPDF(ADataView: TsdDataView);
+begin
+
+end;
+
+constructor TScExportPDF_ZheJiang.Create;
+begin
+
+end;
+
+destructor TScExportPDF_ZheJiang.Destroy;
+begin
+
+  inherited;
+end;
+
+procedure TScExportPDF_ZheJiang.ExportPDF_ZheJiang(AFileName: string);
+begin
+
+end;
+
+procedure TScExportPDF_ZheJiang.Prepare(ABuildProjectID: Integer;
+  AIsZhaoBiao: Boolean);
+begin
+
+end;
+
+procedure TScExportPDF_ZheJiang.PreviewComXMLGetDataConnection(
+  var ADOCon: TADOConnection);
+begin
+
+end;
+
+procedure TScExportPDF_ZheJiang.PreviewComXMLGetDataViewEvent(
+  DatasetInfo: PDatasetInfoRec; var ADataview: TsdDataView);
+begin
+
+end;
+
 end.