Sign Online, without interface for Cloud, generate report only export zip file

Forms/MainFrm.dfm

@@ -1071,6 +1071,12 @@ object MainForm: TMainForm
       Hint = #19981#21442#19982#26412#26399#24212#20184#35745#31639
       Visible = ivAlways
     end
+    object dxbtnSignOnline: TdxBarButton
+      Caption = #29983#25104#22312#32447#31614#32626
+      Category = 0
+      Hint = #29983#25104#22312#32447#31614#32626
+      Visible = ivAlways
+    end
   end
   object Images: TImageList
     DrawingStyle = dsTransparent

Forms/MainFrm.pas

@@ -160,6 +160,7 @@ type
     actnImportDmf: TAction;
     dxbtnCanCalc: TdxBarButton;
     dxbtnWithoutCalcCurPay: TdxBarButton;
+    dxbtnSignOnline: TdxBarButton;
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure jtsProjectsChange(Sender: TObject; NewTab: Integer;

Forms/ReportsFrm.pas

@@ -327,9 +327,9 @@ end;
 procedure TReportsForm.PreviewReportCurPage;
 begin
   if FbNormal then
-    PreviewComXML.PrintPreviewCanvas(-1, PrecededCount, PreviewBox.Canvas)
+    PreviewComXML.PrintPreviewCanvas(-1, PrecededCount, PreviewBox.Canvas, True)
   else //Ç¿ÖÆ1:1ÏÔʾ
-    PreviewComXML.PrintPreviewCanvas(CurPage, 0, PreviewBox.Canvas);
+    PreviewComXML.PrintPreviewCanvas(CurPage, 0, PreviewBox.Canvas, True);
 end;
 
 procedure TReportsForm.ResizePreviewBox;

Forms/SelectOnlineSignPhaseFrm.dfm

@@ -0,0 +1,58 @@
+object SelectOnlineSignPhaseForm: TSelectOnlineSignPhaseForm
+  Left = 636
+  Top = 352
+  Width = 419
+  Height = 173
+  Color = clBtnFace
+  Font.Charset = ANSI_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  PixelsPerInch = 96
+  TextHeight = 12
+  object lblHint: TLabel
+    Left = 50
+    Top = 86
+    Width = 228
+    Height = 12
+    Caption = #21482#33021#23545#24050#23457#25209#23436#25104#30340#26631#27573#36827#34892#31614#32626#25253#34920#29983#25104
+  end
+  object pnlPhase: TPanel
+    Left = 48
+    Top = 48
+    Width = 145
+    Height = 25
+    BevelOuter = bvNone
+    BorderStyle = bsSingle
+    Ctl3D = False
+    ParentCtl3D = False
+    TabOrder = 0
+    object jcbPhase: TJimComboBox
+      Left = 0
+      Top = 0
+      Width = 145
+      Height = 25
+      AutoSize = False
+      ButtonWidth = 17
+      BorderStyle = bsNone
+      DropDownBox.Width = 145
+      DropDownBox.Height = 150
+      DropDownBox.ShowToolBar = False
+      Ctl3D = False
+      Style = cbsOfficeXP
+      ItemIndex = -1
+      ItemHeight = 14
+    end
+  end
+  object btnOk: TButton
+    Left = 208
+    Top = 48
+    Width = 121
+    Height = 25
+    Caption = #24320#22987#29983#25104#25253#34920
+    TabOrder = 1
+    OnClick = btnOkClick
+  end
+end

Forms/SelectOnlineSignPhaseFrm.pas

@@ -0,0 +1,73 @@
+unit SelectOnlineSignPhaseFrm;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, JimCombos, StdCtrls, ExtCtrls, sdDB;
+
+type
+  TSelectOnlineSignPhaseForm = class(TForm)
+    pnlPhase: TPanel;
+    jcbPhase: TJimComboBox;
+    btnOk: TButton;
+    lblHint: TLabel;
+    procedure btnOkClick(Sender: TObject);
+  private
+    function GetPhaseIndex: Integer;
+    { Private declarations }
+  public
+    procedure Init(AProjectRec: TsdDataRecord);
+
+    property PhaseIndex: Integer read GetPhaseIndex;
+  end;
+
+function SelectOnlineSignPhase(var APhase: Integer; AProjectRec: TsdDataRecord): Boolean;
+
+implementation
+
+{$R *.dfm}
+
+function SelectOnlineSignPhase(var APhase: Integer; AProjectRec: TsdDataRecord): Boolean;
+var
+  vSelectFrm: TSelectOnlineSignPhaseForm;
+begin
+  Result := False;
+  vSelectFrm := TSelectOnlineSignPhaseForm.Create(nil);
+  try
+    vSelectFrm.Init(AProjectRec);
+    Result := vSelectFrm.ShowModal = mrOk;
+    if Result then
+      APhase := vSelectFrm.PhaseIndex;
+  finally
+    vSelectFrm.Free;
+  end;
+end;
+
+{ TSelectOnlineSignPhaseForm }
+
+function TSelectOnlineSignPhaseForm.GetPhaseIndex: Integer;
+begin
+  Result := jcbPhase.ItemIndex + 1;
+end;
+
+procedure TSelectOnlineSignPhaseForm.Init(AProjectRec: TsdDataRecord);
+var
+  iPhase: Integer;
+  iPhaseCount: Integer;
+begin
+  iPhaseCount := AProjectRec.ValueByName('PhaseCount').AsInteger;
+  if AProjectRec.ValueByName('AuditStatus').AsInteger <> -1 then
+    iPhaseCount := iPhaseCount - 1;
+  for iPhase := 1 to iPhaseCount do
+    jcbPhase.Items.Add(Format(' µÚ %d ÆÚÊý¾Ý', [iPhase]));
+  jcbPhase.ItemIndex := jcbPhase.Items.Count - 1;
+end;
+
+procedure TSelectOnlineSignPhaseForm.btnOkClick(Sender: TObject);
+begin
+  if jcbPhase.ItemIndex > 0 then
+    ModalResult := mrOk;
+end;
+
+end.

Forms/SignOnlineReportsFrm.dfm

@@ -0,0 +1,83 @@
+object SignOnlineReportsForm: TSignOnlineReportsForm
+  Left = 319
+  Top = 308
+  AutoScroll = False
+  ClientHeight = 644
+  ClientWidth = 1295
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  OldCreateOrder = False
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object previewBox: TImage
+    Left = 116
+    Top = 60
+    Width = 105
+    Height = 105
+    Visible = False
+  end
+  object tvReports: TTreeView
+    Left = 0
+    Top = 0
+    Width = 225
+    Height = 603
+    Align = alLeft
+    Indent = 19
+    ReadOnly = True
+    TabOrder = 0
+    OnClick = tvReportsClick
+    Items.Data = {
+      020000001C0000000000000000000000FFFFFFFFFFFFFFFF0000000000000000
+      036161611C0000000000000000000000FFFFFFFFFFFFFFFF0000000000000000
+      03626262}
+  end
+  object pnlBottom: TPanel
+    Left = 0
+    Top = 603
+    Width = 1295
+    Height = 41
+    Align = alBottom
+    BevelOuter = bvNone
+    TabOrder = 1
+    object btnGenerateSignOnline: TButton
+      Left = 1167
+      Top = 4
+      Width = 123
+      Height = 35
+      Caption = #29983#25104#25253#34920
+      TabOrder = 0
+      OnClick = btnGenerateSignOnlineClick
+    end
+  end
+  object msbReportsPreview: TMScrollBox
+    Left = 225
+    Top = 0
+    Width = 1070
+    Height = 603
+    Align = alClient
+    AutoScroll = False
+    BevelInner = bvNone
+    BevelOuter = bvRaised
+    Ctl3D = True
+    ParentCtl3D = False
+    TabOrder = 2
+    OnMouseWheelDown = msbReportsPreviewMouseWheelDown
+    OnMouseWheelUp = msbReportsPreviewMouseWheelUp
+  end
+  object PreviewComXML: TPrintComXML
+    PreviewRows = 1
+    PreviewCols = 1
+    Scaling = 1.000000000000000000
+    OnGetDatasetEvent = PreviewComXMLGetDatasetEvent
+    OnGetDataConnection = PreviewComXMLGetDataConnection
+    OnCrossTabLabelShow = PreviewComXMLCrossTabLabelShow
+    OnContentDisplay = PreviewComXMLContentDisplay
+    Left = 296
+    Top = 32
+  end
+end

Forms/SignOnlineReportsFrm.pas

@@ -0,0 +1,941 @@
+unit SignOnlineReportsFrm;
+
+interface
+
+uses
+  ProjectData, ReportManager, ReportConnection, ReportPrepare,
+  PrintComTypeDefUnit, ADODB, DB,
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, sdIDTree, sdDB, ComCtrls, ExtCtrls, VirtualTrees, PrintCom,
+  PrintComXML, MScrollBox, StdCtrls, Buttons;
+
+type
+  TSignOnlineReportsForm = class(TForm)
+    tvReports: TTreeView;
+    pnlBottom: TPanel;
+    PreviewComXML: TPrintComXML;
+    previewBox: TImage;
+    msbReportsPreview: TMScrollBox;
+    btnGenerateSignOnline: TButton;
+    procedure FormShow(Sender: TObject);
+    procedure tvReportsClick(Sender: TObject);
+    procedure PreviewComXMLContentDisplay(var contentFontRec: TFontRec;
+      dataType: Integer; isReading: Boolean; DrawType: Integer;
+      isPrinting: Boolean);
+    procedure PreviewComXMLCrossTabLabelShow(valIDX: Integer; var ExLeft,
+      ExRight: Double; var isShow: Boolean; CrsTabShowType: Integer);
+    procedure PreviewComXMLGetDataConnection(var ADOCon: TADOConnection);
+    procedure PreviewComXMLGetDatasetEvent(DatasetInfo: PDatasetInfoRec;
+      var ADataset: TDataSet);
+    procedure msbReportsPreviewMouseWheelDown(Sender: TObject;
+      Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
+    procedure msbReportsPreviewMouseWheelUp(Sender: TObject;
+      Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
+    procedure ScrollBox1MouseWheelDown(Sender: TObject; Shift: TShiftState;
+      MousePos: TPoint; var Handled: Boolean);
+    procedure ScrollBox1MouseWheelUp(Sender: TObject; Shift: TShiftState;
+      MousePos: TPoint; var Handled: Boolean);
+    procedure btnGenerateSignOnlineClick(Sender: TObject);
+  private
+    FProjectData: TProjectData;
+    // 数据库管理
+    FReportCon: TReportConnection;
+    // 报表数据准备
+    FReportDataPrepare: TReportPrepare;
+
+    FPreviewList: TList;
+
+    procedure ExportReports(const AFileName: string);
+
+    procedure LoadReportTemplates;
+
+    procedure PreviewPage(AImage: TImage; APageIndex: Integer);
+
+    procedure InitPageSettings(APrintCom: TPrintComXML);
+    procedure InitFont(APrintCom: TPrintComXML);
+    procedure InitPaperSettings(ATemplate: TTemplateNode; APrintCom: TPrintComXML);
+    procedure InitReportSettings(APrintCom: TPrintComXML; ATemplate: TTemplateNode = nil);
+
+    procedure SaveAuditOpinion(ATemplate: TTemplateNode);
+    procedure SaveReportInteractData(ATemplate: TTemplateNode);
+
+    procedure LoadTemplet(ATemplate: TTemplateNode; APrintCom: TPrintComXML);
+    procedure LoadTemplateAndDisplay(ATemplate: TTemplateNode);
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+
+    procedure Init(AProjNode: TsdIDTreeNode; ASignPhase: Integer);
+
+    property ProjectData: TProjectData read FProjectData;
+  end;
+
+procedure SignOnline(AProjectNode: TsdIDTreeNode; ASignPhase: Integer);
+
+implementation
+
+uses
+  UtilMethods, TemplateManagerHelper, Globals, AuditSelectFrm,
+  ScFileArchiver, ZhAPI;
+
+{$R *.dfm}
+
+procedure SignOnline(AProjectNode: TsdIDTreeNode; ASignPhase: Integer);
+var
+  vSignForm: TSignOnlineReportsForm;
+begin
+  vSignForm := TSignOnlineReportsForm.Create(nil);
+  try
+    vSignForm.Init(AProjectNode, ASignPhase);
+    vSignForm.ShowModal;
+  finally
+    vSignForm.Free;
+  end;
+end;
+
+{ TSignOnlineReportsForm }
+
+destructor TSignOnlineReportsForm.Destroy;
+begin
+  ClearObjects(FPreviewList);
+  FPreviewList.Free;                 
+  FReportCon.Free;
+  FReportDataPrepare.Free;
+  if Assigned(FProjectData) then
+    FProjectData.Free;
+  inherited;
+end;
+
+procedure TSignOnlineReportsForm.Init(AProjNode: TsdIDTreeNode; ASignPhase: Integer);
+
+  function getTopParent(ANode: TsdIDTreeNode): TsdIDTreeNode;
+  begin
+    if Assigned(ANode.Parent) then
+      Result := getTopParent(ANode.Parent)
+    else
+      Result := ANode;
+  end;
+
+  function getName(ANode: TsdIDTreeNode): string;
+  begin
+    Result := ANode.Rec.ValueByName('Name').AsString;
+  end;
+
+begin
+  FProjectData := TProjectData.Create;
+  FProjectData.OpenForSignOnline(GetMyProjectsFilePath + AProjNode.Rec.ValueByName('FileName').AsString, ASignPhase);
+  FReportDataPrepare := TReportPrepare.Create(FProjectData);
+  FReportCon := TReportConnection.Create(FProjectData);
+
+  //Caption := Format('生成签署报表  %s-%s-第 %d 期', [getName(getTopParent(AProjectNode)), getName(AProjectNode), ASignPhase]);
+  Caption := Format('生成签署报表  %s-第 %d 期', [getName(AProjNode), ASignPhase]);
+
+  LoadReportTemplates;
+end;
+
+procedure TSignOnlineReportsForm.LoadReportTemplates;
+var
+  vHelper: TTemplateManagerHelper;
+begin
+  vHelper := TTemplateManagerHelper.Create;
+  try
+    vHelper.ExportToTreeView(tvReports, ReportTemplateManager);
+  finally
+    vHelper.Free;
+  end;
+end;
+
+procedure TSignOnlineReportsForm.FormShow(Sender: TObject);
+var
+  vNode: TTreeNode;
+begin
+  tvReports.Selected := tvReports.Items.GetFirstNode;
+  vNode := tvReports.Items.GetFirstNode;
+  while Assigned(vNode) do
+  begin
+    vNode.Expand(True);
+    vNode := vNode.getNextSibling;
+  end;
+end;
+
+procedure TSignOnlineReportsForm.tvReportsClick(Sender: TObject);
+var
+  vTemplate: TTemplateNode;
+begin
+  if Assigned(tvReports.Selected) then
+  begin
+    vTemplate := TTemplateNode(tvReports.Selected.Data);
+    ReportTemplateManager.Current := vTemplate;
+    LoadTemplateAndDisplay(vTemplate);
+  end;
+end;
+
+procedure TSignOnlineReportsForm.LoadTemplateAndDisplay(ATemplate: TTemplateNode);
+
+  procedure WaringAndEmptyPreview(AStr: string);
+  var
+    OldBrushColor, OldPenColor: TColor;
+  begin
+    TipMessage(AStr, Handle);
+    ClearObjects(FPreviewList);
+  end;
+
+  procedure PreviewTemplet;
+  const
+    Indent = 5;
+  var
+    iPage: Integer;
+    vPreviewImage: TImage;
+  begin
+    try
+      ClearObjects(FPreviewList);
+      msbReportsPreview.HorzScrollBar.Range := 0;
+      msbReportsPreview.HorzScrollBar.Position := 0;
+      msbReportsPreview.VertScrollBar.Range := 0;
+      msbReportsPreview.VertScrollBar.Position := 0;
+      for iPage := 1 to PreviewComXML.TotalPages do
+      begin
+        vPreviewImage := TImage.Create(msbReportsPreview);
+        vPreviewImage.Parent := msbReportsPreview;
+        vPreviewImage.Top := (PreviewComXML.PrintHeight + Indent) * (iPage - 1);
+        vPreviewImage.Left := 0;
+        PreviewPage(vPreviewImage, iPage);
+        FPreviewList.Add(vPreviewImage);
+      end;
+      msbReportsPreview.HorzScrollBar.Range := PreviewComXML.PrintWidth;
+      msbReportsPreview.VertScrollBar.Range := PreviewComXML.PrintHeight * PreviewComXML.TotalPages + 10 * (PreviewComXML.TotalPages - 1);
+      msbReportsPreview.SetFocus;
+    except
+      WaringAndEmptyPreview('当前报表显示可能存在问题,请与纵横客服中心联系：(0756)3850888。');
+    end;
+  end;
+
+  procedure LoadEmptyTempletAndDisplay;
+  begin
+    WaringAndEmptyPreview('报表无数据,请选择其他报表。');
+  end;
+
+begin
+  // 交互表
+  if ATemplate.InteractFlag <> 0 then
+    SaveReportInteractData(ATemplate);
+  // 准备额外数据
+  if ATemplate.DataPrepareFlag <> 0 then
+    FReportDataPrepare.PrepareData(ATemplate.DataPrepareFlag);
+  FReportCon.RefreshConnection(ATemplate);
+
+  Screen.Cursor := crHourGlass;
+  try
+    LoadTemplet(ATemplate, PreviewComXML);
+    if PreviewComXML.TotalPages > 0 then
+      PreviewTemplet
+    else
+      LoadEmptyTempletAndDisplay;
+  finally
+    Screen.Cursor := crDefault;
+  end;
+end;
+
+procedure TSignOnlineReportsForm.LoadTemplet(ATemplate: TTemplateNode;
+  APrintCom: TPrintComXML);
+var
+  RptArchiverObj: TReportArchiver;
+  Mem: TMemoryStream;
+begin
+  RptArchiverObj := TReportArchiver.Create;
+  if ATemplate.IsMulti then
+    RptArchiverObj.FileName := ATemplate.MultiFileNames[FProjectData.PhaseIndex]
+  else
+    RptArchiverObj.FileName := ATemplate.FileName;
+  Mem := RptArchiverObj.Extract;
+  try
+    // 以下代码有顺序限制，不可修改，主要保证在不修改报表模板文件的基础上可以用户定制报表格式
+    // 私以为，原因在于这些设置修改后，并不能生效，需要保存再读取方可生效
+    // 读取报表模板
+    if not APrintCom.ReadReportStream(Mem) then Exit;
+    // 将报表设置中的数据覆盖掉原模板的数据
+    InitReportSettings(APrintCom, ATemplate);
+    // 保存
+    APrintCom.SaveToStream(Mem);
+    // 再次读取，使报表设置中的设置生效
+    APrintCom.ReadReportStream(Mem);
+    // ReadReportStream之后会将PreviewComXML的FillZero值赋为True，故再赋值一次
+    // To Do
+    //APrintCom.FillZero := chkFillZero.Checked;
+    InitPageSettings(APrintCom);
+    APrintCom.ReadDBData;
+    APrintCom.AnalyseData(PreviewBox.Canvas);
+  finally
+    if Mem <> nil then
+      Mem.Free;
+    RptArchiverObj.Free;
+  end;
+end;
+
+procedure TSignOnlineReportsForm.InitFont(APrintCom: TPrintComXML);
+
+  procedure AssignFontRec(AFontRec: TFontRec; AFont: TFont);
+  begin
+    AFontRec.FontName := AFont.Name;
+    AFontRec.FontHeight := Round(AFont.Size*4/3) ;
+    AFontRec.FontBold := 400 + Integer(fsBold in AFont.Style)*200;
+    AFontRec.FontItalic := Integer(fsItalic in AFont.Style);
+    AFontRec.FontUnderLine := Integer(fsUnderLine in AFont.Style);
+  end;
+
+  procedure InitTitleFont;
+  var
+    TitleRec : PTitleRec;
+  begin
+    TitleRec := PreviewComXML.getTitleByID(1);
+    if TitleRec <> nil then
+    begin
+      AssignFontRec(TitleRec.FontRec, ReportConfig.TitleFont);
+      APrintCom.setTitleObj(TitleRec);
+    end;
+  end;
+
+  procedure InitColumnFont;
+
+    procedure InitColumnThick(AColumnRec: PColumnRec);
+    begin
+      if (ReportConfig.ReportCellLine > 0.2) then
+      begin
+        if (AColumnRec.LineInfo.LeftThick > 0.2) then
+            AColumnRec.LineInfo.LeftThick := ReportConfig.ReportCellLine;
+        if (AColumnRec.LineInfo.RightThick > 0.2) then
+            AColumnRec.LineInfo.RightThick := ReportConfig.ReportCellLine;
+        if (AColumnRec.LineInfo.TopThick > 0.2) then
+            AColumnRec.LineInfo.TopThick := ReportConfig.ReportCellLine;
+        if (AColumnRec.LineInfo.BottomThick > 0.2) then
+            AColumnRec.LineInfo.BottomThick := ReportConfig.ReportCellLine;
+      end;
+    end;
+
+  var
+    i, j: Integer;
+    ObjList: TList;
+    ColumnRec : PColumnRec;
+    AAR : PActiveAreaRec;
+    SER : PShowElementRec;
+  begin
+    ObjList := TList.Create;
+    try
+      APrintCom.getAllColumnHeadObjs(ObjList);
+      for i := 0 to ObjList.Count - 1 do
+      begin
+        ColumnRec := ObjList[i];
+        AssignFontRec(ColumnRec.FontRec, ReportConfig.ColumnFont);
+        InitColumnThick(ColumnRec);
+        APrintCom.setColumnHeadTailObj(0, ColumnRec);
+      end;
+      APrintCom.getAllColumnTailObjs(ObjList);
+      for i := 0 to ObjList.Count - 1 do
+      begin
+        ColumnRec := ObjList[i];
+        AssignFontRec(ColumnRec.FontRec, ReportConfig.ColumnFont);
+        InitColumnThick(ColumnRec);
+        APrintCom.setColumnHeadTailObj(1,ColumnRec);
+      end;
+      APrintCom.getAllActAreaObjs(ObjList);
+      for i := 0 to ObjList.Count - 1 do
+      begin
+        AAR := ObjList[i];
+        for j := 0 to AAR.ElementList.Count - 1 do
+        begin
+          SER := AAR.ElementList[j];
+          if (SER.ElementType = 7) then
+          begin
+            ColumnRec := SER.Data;
+            AssignFontRec(ColumnRec.FontRec, ReportConfig.ColumnFont);
+            InitColumnThick(ColumnRec);
+            APrintCom.setActShowElementObj(SER);
+          end;
+        end;
+      end;
+    finally
+      ObjList.Free;
+    end;
+  end;
+
+  procedure InitContentAndGatherFont;
+  var
+    i, j: Integer;
+    ObjList: TList;
+    FlowContentRec : PContentRec;
+    CrossContentRec : PCrossContentRec;
+    SumRec : PSumRec;
+  begin
+    ObjList := TList.Create;
+    try
+      // 设置表正文
+      APrintCom.getAllFlowShowContentObjs(ObjList);
+      for i := 0 to ObjList.Count - 1 do
+      begin
+        FlowContentRec := ObjList[i];
+        if not (FlowContentRec.Fixed) then
+        begin
+          AssignFontRec(FlowContentRec.FontRec, ReportConfig.ContentFont);
+          APrintCom.setFlowContentObj(FlowContentRec);
+        end;
+      end;
+      APrintCom.getAllBillShowContentObjs(ObjList);
+      for i := 0 to ObjList.Count - 1 do
+      begin
+        FlowContentRec := ObjList[i];
+        if not(FlowContentRec.Fixed) then
+        begin
+          AssignFontRec(FlowContentRec.FontRec, ReportConfig.ContentFont);
+          APrintCom.setBillContentObj(FlowContentRec);
+        end;
+      end;
+      APrintCom.getAllCrossContentObjs(ObjList);
+      for i := 0 to ObjList.Count - 1 do
+      begin
+        CrossContentRec := ObjList[i];
+        if not(CrossContentRec.CrossContent.Fixed) then
+        begin
+          AssignFontRec(CrossContentRec.CrossContent.FontRec, ReportConfig.ContentFont);
+          APrintCom.setCrossContentObj(CrossContentRec);
+        end;
+      end;
+      // 设置表合计
+      for i := 0 to 2 do
+      begin
+        APrintCom.getAllSumObjs(i,ObjList);
+        for j := 0 to ObjList.Count - 1 do
+        begin
+          SumRec := ObjList[j];
+          AssignFontRec(SumRec.FontRec, ReportConfig.GatherFont);
+          APrintCom.setSumObj(SumRec);
+        end;
+      end;
+    finally
+      ObjList.Free;
+    end;
+  end;
+
+  procedure InitGridHeaderFont;
+  var
+    i: Integer;
+    ObjList: TList;
+    HeadTailRec : PHeadRec;
+  begin
+    ObjList := TList.Create;
+    try
+      APrintCom.getAllHeadObjs(ObjList);
+      for i := 0 to ObjList.Count - 1 do
+      begin
+        HeadTailRec := ObjList[i];
+        AssignFontRec(HeadTailRec.FontRec, ReportConfig.GridHeaderFont);
+        APrintCom.setHeadTailObj(0, HeadTailRec);
+      end;
+      APrintCom.getAllTailObjs(ObjList);
+      for i := 0 to ObjList.Count - 1 do
+      begin
+        HeadTailRec := ObjList[i];
+        AssignFontRec(HeadTailRec.FontRec, ReportConfig.GridHeaderFont);
+        APrintCom.setHeadTailObj(1, HeadTailRec);
+      end;
+    finally
+      ObjList.Free;
+    end;
+  end;
+
+begin
+  InitTitleFont;
+  InitColumnFont;
+  InitContentAndGatherFont;
+  InitGridHeaderFont;
+end;
+
+procedure TSignOnlineReportsForm.InitPageSettings(APrintCom: TPrintComXML);
+begin
+  // 设置页面大小
+  APrintCom.setPageSize(ReportConfig.PageSize);
+  // 统一纸张大小
+  APrintCom.PrintPageSizeIdx := DMPAPER_A4;
+  {
+  if ReportConfig.PageSize = 'A3' then
+    APrintCom.PrintPageSizeIdx := DMPAPER_A3
+  else if ReportConfig.PageSize = 'A4' then
+    APrintCom.PrintPageSizeIdx := DMPAPER_A4;
+  }
+  // 设置边距
+  APrintCom.setEdge(0, '', ReportConfig.LeftEdge/10);
+  APrintCom.setEdge(1, '', ReportConfig.RightEdge/10);
+  APrintCom.setEdge(2, '', ReportConfig.UpEdge/10);
+  APrintCom.setEdge(3, '', ReportConfig.DownEdge/10);
+end;
+
+procedure TSignOnlineReportsForm.InitPaperSettings(
+  ATemplate: TTemplateNode; APrintCom: TPrintComXML);
+
+  procedure InitRepBorderLine;
+  var
+    i: Integer;
+    ObjList : TList;
+    ShapeRec : PPicRec;
+  begin
+    ObjList := TList.Create;
+    try
+      APrintCom.getAllShapeObjs(1, ObjList);
+      for i := 0 to ObjList.Count - 1 do
+      begin
+        ShapeRec := ObjList[i];
+        // 设置报表边框线粗
+        ShapeRec.PenWidth := ReportConfig.BorderLine;
+        // 设置是否绘制报表边框横线
+        if (ShapeRec.ExArea.ExLeft <> ShapeRec.ExArea.ExRight) then
+        begin
+          if not ReportConfig.RepBorderUnderLine then
+            ShapeRec.PenStyle := integer(psClear)
+          else
+            ShapeRec.PenStyle := integer(psSolid);
+        end;
+        // 设置是否绘制报表边框竖线
+        if (ShapeRec.ExArea.ExTop <> ShapeRec.ExArea.ExBottom) and
+           ((ShapeRec.ExArea.ExLeft = 0) or (ShapeRec.ExArea.ExLeft = 100)) then
+        begin //这里的判断条件是约定好的
+          if not ReportConfig.RepBorderVerLine then
+             ShapeRec.PenStyle := integer(psClear)
+          else
+             ShapeRec.PenStyle := integer(psSolid)
+        end;
+        APrintCom.setShapeObj(ShapeRec);
+      end;
+    finally
+      ObjList.Free;
+    end;
+  end;
+
+  procedure InitRepCellLine;
+  var
+    i: Integer;
+    ObjList : TList;
+    ColumnRec : PColumnRec;
+    FlowContentRec : PContentRec;
+    CrossContentRec : PCrossContentRec;
+  begin
+    ObjList := TList.Create;
+    try
+      APrintCom.getAllFlowShowContentObjs(ObjList);
+      // 设置报表表格横线
+      for i := 0 to ObjList.Count - 1 do
+      begin
+        FlowContentRec := ObjList[i];
+        FlowContentRec.LineInfo.TopThick := ReportConfig.CellHorLineWidth;
+        FlowContentRec.LineInfo.BottomThick := ReportConfig.CellHorLineWidth;
+        APrintCom.setFlowContentObj(FlowContentRec);
+      end;
+      APrintCom.getAllCrossContentObjs(ObjList);
+      for i := 0 to ObjList.Count - 1 do
+      begin
+        CrossContentRec := ObjList[i];
+        CrossContentRec.CrossContent.LineInfo.TopThick := ReportConfig.CellHorLineWidth;
+        CrossContentRec.CrossContent.LineInfo.BottomThick := ReportConfig.CellHorLineWidth;
+        APrintCom.setCrossContentObj(CrossContentRec);
+      end;
+      // 设置报表表格竖线
+      APrintCom.getAllFlowShowContentObjs(ObjList);
+      for i := 0 to ObjList.Count - 1 do
+      begin
+        FlowContentRec := ObjList[i];
+        FlowContentRec.LineInfo.LeftThick := ReportConfig.CellVerLineWidth;
+        FlowContentRec.LineInfo.RightThick := ReportConfig.CellVerLineWidth;
+        // 如果设置无表格边框线，则两端的表格竖线线粗为0
+        if (not ReportConfig.RepBorderVerLine) then
+          if (i = 0) then
+            FlowContentRec.LineInfo.LeftThick := 0
+          else if (i = ObjList.Count - 1) then
+            FlowContentRec.LineInfo.RightThick := 0;
+        APrintCom.setFlowContentObj(FlowContentRec);
+      end;
+
+      APrintCom.getAllCrossContentObjs(ObjList);
+      for i := 0 to ObjList.Count - 1 do
+      begin
+        CrossContentRec := ObjList[i];
+        CrossContentRec.CrossContent.LineInfo.LeftThick := ReportConfig.CellVerLineWidth;
+        CrossContentRec.CrossContent.LineInfo.RightThick := ReportConfig.CellVerLineWidth;
+        ColumnRec := CrossContentRec.CrossContent.Column;
+        //这里还要判断如果没有边框竖线的情况下,表格竖线边缘的线粗也为0
+        //前提是所属表栏最右位置位于边缘
+        if (not ReportConfig.RepBorderVerLine) and (ColumnRec<>nil) and
+            ((ColumnRec.ExArea.ExRight = 100.0) or (ColumnRec.ExArea.ExLeft = 0.0)) then
+        begin
+          case CrossContentRec.CrossType of
+            0 : //交叉行
+            begin
+              if (CrossContentRec.CrossContent.ExArea.ExLeft = ColumnRec.ExArea.ExLeft ) then
+                  CrossContentRec.CrossContent.LineInfo.LeftThick := 0;
+              if (CrossContentRec.CrossContent.ExArea.ExRight = ColumnRec.ExArea.ExRight ) then
+                  CrossContentRec.CrossContent.LineInfo.RightThick := 0;
+            end;
+            1 : //交叉列
+            begin
+              if (CrossContentRec.CrossContent.ExArea.ExLeft = ColumnRec.ExArea.ExLeft ) then
+                  CrossContentRec.CrossContent.LineInfo.LeftThick := 0;
+              if (CrossContentRec.CrossContent.ExArea.ExRight = ColumnRec.ExArea.ExRight ) then
+                  CrossContentRec.CrossContent.LineInfo.RightThick := 0;
+              //(*
+              if (CrossContentRec.CrossContent.isSpecialBorder) then
+              begin
+                if (CrossContentRec.CrossContent.ExArea.ExRight = ColumnRec.ExArea.ExRight ) then
+                    CrossContentRec.CrossContent.SpecialLineInfo.RightThick := 0;
+              end;
+              //*)
+            end;
+            2 : //显示数据
+            begin
+              if (CrossContentRec.CrossContent.ExArea.ExLeft = ColumnRec.ExArea.ExLeft ) then
+                  CrossContentRec.CrossContent.LineInfo.LeftThick := 0;
+              if (CrossContentRec.CrossContent.ExArea.ExRight = ColumnRec.ExArea.ExRight ) then
+                  CrossContentRec.CrossContent.LineInfo.RightThick := 0;
+            end;
+            3 : //固定LABEL
+            begin
+              if (CrossContentRec.CrossContent.ExArea.ExLeft = ColumnRec.ExArea.ExLeft ) then
+                  CrossContentRec.CrossContent.LineInfo.LeftThick := 0;
+              if (CrossContentRec.CrossContent.ExArea.ExRight = ColumnRec.ExArea.ExRight ) then
+                  CrossContentRec.CrossContent.LineInfo.RightThick := 0;
+            end;
+            4 : //序号
+            begin
+              if (CrossContentRec.CrossContent.ExArea.ExLeft = ColumnRec.ExArea.ExLeft ) then
+                  CrossContentRec.CrossContent.LineInfo.LeftThick := 0;
+              if (CrossContentRec.CrossContent.ExArea.ExRight = ColumnRec.ExArea.ExRight ) then
+                  CrossContentRec.CrossContent.LineInfo.RightThick := 0;
+            end;
+            5 : //横向统计
+            begin
+              if (CrossContentRec.CrossContent.ExArea.ExLeft = ColumnRec.ExArea.ExLeft ) then
+                  CrossContentRec.CrossContent.LineInfo.LeftThick := 0;
+              if (CrossContentRec.CrossContent.ExArea.ExRight = ColumnRec.ExArea.ExRight ) then
+                  CrossContentRec.CrossContent.LineInfo.RightThick := 0;
+            end;
+          end;
+        end;
+        APrintCom.setCrossContentObj(CrossContentRec);
+      end;
+    finally
+      ObjList.Free;
+    end;
+  end;
+
+  procedure InitOtherArea;
+
+    procedure SetPTRBorder(PTR : PTextRec);
+
+      procedure SetLeftRightBorder;
+      begin
+        if PTR.ExArea.ExLeft = 0.0 then
+        begin
+          if BorderWidth = 0.0 then
+            PTR.LineInfo.LeftThick := ReportConfig.BorderUnderLineWidth;
+        end;
+        if PTR.ExArea.ExRight = 100.0 then
+        begin
+          if BorderWidth = 0.0 then
+            PTR.LineInfo.RightThick := ReportConfig.BorderUnderLineWidth
+        end;
+      end;
+
+      procedure SetHorLine;
+      begin
+        if (PTR.LineInfo.TopThick >= 0.2) and (BorderWidth <= 0.2) then
+          PTR.LineInfo.TopThick := ReportConfig.CellHorLineWidth;
+        if (PTR.LineInfo.BottomThick >= 0.2) and (BorderWidth <= 0.2) then
+          PTR.LineInfo.BottomThick := ReportConfig.CellHorLineWidth;
+      end;
+
+    begin
+      SetLeftRightBorder;
+      SetHorLine;
+    end;
+
+    procedure SetPCRBorder(PCR : PColumnRec);
+
+      procedure SetLeftRightBorder;
+      begin
+        if PCR.ExArea.ExLeft = 0.0 then
+        begin
+          if BorderWidth = 0.0 then
+            PCR.LineInfo.LeftThick := ReportConfig.BorderUnderLineWidth
+        end;
+        if PCR.ExArea.ExRight = 100.0 then
+        begin
+          if BorderWidth = 0.0 then
+            PCR.LineInfo.RightThick := ReportConfig.BorderUnderLineWidth;
+        end;
+      end;
+
+      procedure SetVerLine;
+      begin
+        if PCR.ExArea.ExLeft = 0.0 then
+           PCR.LineInfo.LeftThick := ReportConfig.CellVerLineWidth;
+        if PCR.ExArea.ExRight = 100.0 then
+           PCR.LineInfo.RightThick := ReportConfig.CellVerLineWidth;
+      end;
+
+      procedure SetHorLine;
+      begin
+        if (PCR.LineInfo.TopThick >= 0.2) and (BorderWidth <= 0.2) then
+          PCR.LineInfo.TopThick := ReportConfig.CellHorLineWidth;
+        if (PCR.LineInfo.BottomThick >= 0.2) and (BorderWidth <= 0.2) then
+          PCR.LineInfo.BottomThick := ReportConfig.CellHorLineWidth;
+      end;
+
+    begin
+      SetLeftRightBorder;
+      SetVerLine;
+      SetHorLine;
+    end;
+
+  var i,k : integer;
+      ObjList : TList;
+      ActAreaRec : PActiveAreaRec;
+      PSR : PShowElementRec;
+  begin
+    ObjList := TList.Create;
+    try
+      ActAreaRec := nil;
+      PreviewComXML.getAllActAreaObjs(ObjList);
+      for i := 0 to ObjList.Count - 1 do
+      begin
+        ActAreaRec := ObjList[i];
+        if (ActAreaRec.ShowType < 0) or (ActAreaRec.ShowType > 2) then Continue;
+        if not Assigned(ActAreaRec.ElementList) then Continue;
+
+        for k := 0 to ActAreaRec.ElementList.Count - 1 do
+        begin
+          PSR := PShowElementRec(ActAreaRec.ElementList[k]);
+          case PSR.ElementType of
+            0..2 : SetPTRBorder(PSR.Data); //文本,参数,字段,表栏
+            7 : SetPCRBorder(PSR.Data) //Column
+          end;
+          APrintCom.setActShowElementObj(PSR);
+        end;
+      end;
+    finally
+      ObjList.Free;
+    end;
+  end;
+
+begin
+  if not Assigned(ATemplate) or (ATemplate.SelfFormat = 0) then
+  begin
+    InitFont(APrintCom);           // 各类字体
+    InitRepBorderLine;  // 报表边框
+    InitRepCellLine;    // 报表表格
+    InitOtherArea;      // 活动区域
+  end;
+end;
+
+procedure TSignOnlineReportsForm.SaveAuditOpinion(
+  ATemplate: TTemplateNode);
+var
+  SelectForm: TAuditSelctForm;
+begin
+  SelectForm := TAuditSelctForm.Create(FProjectData, ATemplate);
+  try
+    if SelectForm.ShowModal = mrOk then
+      SelectForm.SaveAuditData;
+  finally
+    SelectForm.Free;
+  end;
+end;
+
+procedure TSignOnlineReportsForm.SaveReportInteractData(
+  ATemplate: TTemplateNode);
+begin
+  case ATemplate.InteractFlag of
+    1: SaveAuditOpinion(ATemplate);
+  end;
+end;
+
+procedure TSignOnlineReportsForm.InitReportSettings(
+  APrintCom: TPrintComXML; ATemplate: TTemplateNode);
+begin
+  InitPageSettings(APrintCom);
+  InitPaperSettings(ATemplate, APrintCom);
+
+  {APrintCom.ShowBackgroundMark := FProjectData.ProjProperties.ShowReportShading;
+  APrintCom.BackgroundMarkStr := FProjectData.ProjProperties.ReportShading;}
+  if FProjectData.ProjProperties.ReportShowState then
+  begin
+    if FProjectData.ProjProperties.ReportShowStateWithoutReply and (FProjectData.ProjProperties.AuditStatus = -1) then
+      APrintCom.ShowBackgroundMark := False
+    else
+      APrintCom.ShowBackgroundMark := True;
+  end
+  else
+    APrintCom.ShowBackgroundMark := False;
+  APrintCom.BackgroundMarkStr := FProjectData.ProjProperties.ReportShowStateText;
+end;
+
+procedure TSignOnlineReportsForm.PreviewComXMLContentDisplay(
+  var contentFontRec: TFontRec; dataType: Integer; isReading: Boolean;
+  DrawType: Integer; isPrinting: Boolean);
+begin
+  if ReportConfig.ContentIsNarrow then
+  begin
+    if (isReading) then
+    begin
+      begin
+        contentFontRec.FontName := 'Arial Narrow';
+        contentFontRec.FontHeight := Round(ReportConfig.ContentFont.Size*4/3) * 4 div 3;
+      end;
+    end else
+    begin
+      if (DrawType = 3) or (DrawType = 5) then
+      begin
+        contentFontRec.FontHeight := Round(ReportConfig.ContentFont.Size*4/3);
+      end else if (isPrinting) then
+      begin
+        contentFontRec.FontName := 'Arial Narrow';
+        contentFontRec.FontHeight := Round(ReportConfig.ContentFont.Size*4/3) * 7 div 6;
+      end else
+      begin
+        contentFontRec.FontHeight := Round(ReportConfig.ContentFont.Size*4/3) * 4 div 3;
+      end;
+    end;
+  end;
+end;
+
+procedure TSignOnlineReportsForm.PreviewComXMLCrossTabLabelShow(
+  valIDX: Integer; var ExLeft, ExRight: Double; var isShow: Boolean;
+  CrsTabShowType: Integer);
+var
+  field : PFieldRec;
+begin
+  if (CrsTabShowType = -1) then exit;
+  field := PreviewComXML.getFieldByID(6);
+  if (field <> nil) then
+  begin
+    if (field.DataLen > valIDX) and (valIDX >= 0) then
+    begin
+      if (field.Value[valIDX] = 1.5) then
+      begin
+        case CrsTabShowType of
+          1 : begin
+                isShow := false;
+              end;
+          2 : begin
+                ExLeft := 0;
+                ExRight := 100;
+              end;
+          3 : begin
+                //
+              end
+          else
+              begin
+                //
+              end;
+        end;
+      end;
+    end;
+  end;
+end;
+
+procedure TSignOnlineReportsForm.PreviewComXMLGetDataConnection(
+  var ADOCon: TADOConnection);
+begin
+  ADOCon := FReportCon.Connection;
+end;
+
+procedure TSignOnlineReportsForm.PreviewComXMLGetDatasetEvent(
+  DatasetInfo: PDatasetInfoRec; var ADataset: TDataSet);
+begin
+  if DatasetInfo.ID = 0 then
+    ADataSet := MemoryReportManager.GetSqlResultDataSet(ReportTemplateManager.Current.InteractInfo.Sql, FProjectData)
+  else
+    ADataset := MemoryReportManager.GetMemoryDataSet(DatasetInfo.ID, FProjectData);
+end;
+
+procedure TSignOnlineReportsForm.PreviewPage(AImage: TImage;
+  APageIndex: Integer);
+begin
+  AImage.Height := PreviewComXML.PrintHeight ;
+  AImage.Picture.Bitmap.Height := PreviewComXML.PrintHeight;
+  AImage.Width := PreviewComXML.PrintWidth;
+  AImage.Picture.Bitmap.Width := PreviewComXML.PrintWidth;
+  PreviewComXML.PrintPreviewCanvas(APageIndex, 0, AImage.Canvas, False);
+end;
+
+constructor TSignOnlineReportsForm.Create(AOwner: TComponent);
+begin
+  inherited;
+  FPreviewList := TList.Create;
+
+  msbReportsPreview.OnMouseWheelDown := msbReportsPreviewMouseWheelDown;
+  msbReportsPreview.OnMouseWheelUp := msbReportsPreviewMouseWheelUp;
+end;
+
+procedure TSignOnlineReportsForm.msbReportsPreviewMouseWheelDown(
+  Sender: TObject; Shift: TShiftState; MousePos: TPoint;
+  var Handled: Boolean);
+begin
+  SendMessage(TMScrollBox(Sender).Handle, WM_VSCROLL, SB_LINEDOWN, 0);
+end;
+
+procedure TSignOnlineReportsForm.msbReportsPreviewMouseWheelUp(
+  Sender: TObject; Shift: TShiftState; MousePos: TPoint;
+  var Handled: Boolean);
+begin
+  SendMessage(TMScrollBox(Sender).Handle, WM_VSCROLL, SB_LINEUP, 0);
+end;
+
+procedure TSignOnlineReportsForm.ScrollBox1MouseWheelDown(Sender: TObject;
+  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
+begin
+  SendMessage(TScrollBox(Sender).Handle, WM_VSCROLL, SB_LINEDOWN, 0);
+end;
+
+procedure TSignOnlineReportsForm.ScrollBox1MouseWheelUp(Sender: TObject;
+  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
+begin
+  SendMessage(TScrollBox(Sender).Handle, WM_VSCROLL, SB_LINEUP, 0);
+end;
+
+procedure TSignOnlineReportsForm.ExportReports(const AFileName: string);
+
+  procedure ExportReportPage(APage: Integer; const APageFileName: string);
+  var
+    img: TImage;
+  begin
+    img := TImage.Create(nil);
+    try
+      img.Height := PreviewComXML.PrintHeight;
+      img.Width := PreviewComXML.PrintWidth;
+      PreviewComXML.PrintPreviewCanvas(APage, 0, img.Canvas, False);
+      img.Picture.SaveToFile(APageFileName);
+    finally
+      img.Free;
+    end;
+  end;
+
+var
+  ATempFolder: String;
+  i: Integer;
+begin
+  ATempFolder := GenerateTempFolder(GetTempFilePath);
+  for i := 1 to PreviewComXML.TotalPages do
+  begin
+    ExportReportPage(i, Format('%s\%d.jpg', [ATempFolder, i]));
+  end;
+  ZipFolder(ATempFolder, AFileName);
+end;
+
+procedure TSignOnlineReportsForm.btnGenerateSignOnlineClick(
+  Sender: TObject);
+var
+  sFileName: string;
+begin
+  if SaveFile(sFileName, '.zip') then
+  begin
+    ExportReports(sFileName);
+  end;
+end;
+
+end.

Frames/ProjectManagerFme.dfm

@@ -484,6 +484,11 @@ object ProjectManagerFrame: TProjectManagerFrame
       OnExecute = actnOpenBackupFolderExecute
       OnUpdate = actnOpenBackupFolderUpdate
     end
+    object actnSignOnline: TAction
+      Caption = #29983#25104#22312#32447#31614#32626
+      OnExecute = actnSignOnlineExecute
+      OnUpdate = actnSignOnlineUpdate
+    end
   end
   object dxpmProjectManager: TdxBarPopupMenu
     BarManager = MainForm.dxBarManager
@@ -517,6 +522,10 @@ object ProjectManagerFrame: TProjectManagerFrame
         Visible = True
       end
       item
+        Item = MainForm.dxbtnSignOnline
+        Visible = True
+      end
+      item
         Item = MainForm.dxbtnOpenBackupFolder
         Visible = True
       end>

Frames/ProjectManagerFme.pas

@@ -63,6 +63,7 @@ type
     zgTenderProperty: TZJGrid;
     actnOpenBackupFolder: TAction;
     sbChecker: TScrollBox;
+    actnSignOnline: TAction;
     procedure actnOpenExecute(Sender: TObject);
     procedure actnDeleteExecute(Sender: TObject);
     procedure zgProjectsMouseDown(Sender: TObject; Button: TMouseButton;
@@ -91,6 +92,8 @@ type
     procedure actnExportUpdate(Sender: TObject);
     procedure actnOpenBackupFolderUpdate(Sender: TObject);
     procedure pnlProgressClick(Sender: TObject);
+    procedure actnSignOnlineExecute(Sender: TObject);
+    procedure actnSignOnlineUpdate(Sender: TObject);
   private
     FProjectManagerData: TProjectManagerData;
 
@@ -173,7 +176,7 @@ implementation
 uses
   MainFrm, UtilMethods, ProjectCommands, Globals, ConfigDoc, ConstUnit,
   WebNewTenderFrm, PHPWebDm, Math, mProgressFrm, ProgressHintFrm,
-  ShellAPI, ProjectFme;
+  ShellAPI, ProjectFme, SelectOnlineSignPhaseFrm, SignOnlineReportsFrm;
 
 {$R *.dfm}
 
@@ -187,6 +190,7 @@ begin
   SetDxBtnAction(actnReceiveProject, MainForm.dxbtnReceiveProject);
   SetDxBtnAction(actnOpenBackupFolder, MainForm.dxbtnOpenBackupFolder);
   SetDxBtnAction(actnRename, MainForm.dxbtnRename);
+  SetDxBtnAction(actnSignOnline, MainForm.dxbtnSignOnline);
 end;
 
 constructor TProjectManagerFrame.Create(AOwner: TComponent);
@@ -1858,4 +1862,30 @@ begin
 
 end;
 
+procedure TProjectManagerFrame.actnSignOnlineExecute(Sender: TObject);
+var
+  iPhase: Integer;
+begin
+  if SelectOnlineSignPhase(iPhase, stdProjects.IDTree.Selected.Rec) then
+    SignOnline(stdProjects.IDTree.Selected, iPhase);
+end;
+
+procedure TProjectManagerFrame.actnSignOnlineUpdate(Sender: TObject);
+
+  function HasCompletePhase(ARec: TsdDataRecord): Boolean;
+  begin
+    if (ARec.ValueByName('PhaseCount').AsInteger > 1) then
+      Result := True
+    else if (ARec.ValueByName('PhaseCount').AsInteger < 1) then
+      Result := False
+    else
+      Result := ARec.ValueByName('AuditStatus').AsInteger = -1;
+  end;
+
+begin
+  TAction(Sender).Enabled := Assigned(stdProjects.IDTree.Selected) and
+      (stdProjects.IDTree.Selected.Rec.ValueByName('Type').AsInteger = 1) and
+      HasCompletePhase(stdProjects.IDTree.Selected.Rec);
+end;
+
 end.

Units/ProjectData.pas

@@ -176,7 +176,7 @@ type
     procedure ReConnectTree;
 
     {For Reports: 复制当期的全部数据到项目数据中}
-    procedure CopyPhaseData;
+    procedure CopyPhaseData(ASaveBeforeCopy: Boolean = true);
     procedure ClearReportCacheData;
     procedure ClearReportPrepareData;
     procedure ExecuteSql(const ASql: string);
@@ -1152,7 +1152,8 @@ procedure TProjectData.CopyPhaseData;
   end;
 
 begin
-  Save;
+  if ASaveBeforeCopy then
+    Save;
   ClearReportCacheData;
   CopyCacheReportsData;
   if FPhaseIndex > 0 then
@@ -2076,7 +2077,7 @@ begin
   FProjProperties.Open(FConnection.Connection);
   UpdateOldData;
   FBillsData.Open(FConnection.Connection);
-  FBillsCompileData.Open;
+  FBillsMeasureData.Open;
   FDealPaymentData.Open(FConnection.Connection);
   FBGLData.Open(FConnection.Connection);
   if ProjProperties.PhaseCount > 0 then
@@ -2088,6 +2089,8 @@ begin
     FPhaseData.SimpleOpen2(Format('%sPhase%d.dat', [TempPath, FPhaseIndex]));
   end;
   FBillsMeasureData.ResetTreeNodeStageRec;
+
+  CopyPhaseData(False);
 end;
 
 function TProjectData.GetStartMeasure: Boolean;

Units/TemplateManagerHelper.pas

@@ -0,0 +1,89 @@
+unit TemplateManagerHelper;
+// Export Templates To View
+
+interface
+
+uses
+  ReportManager, ComCtrls, SysUtils;
+
+type
+  TTemplateManagerHelper = class
+  private
+    function FindClassTreeNode(ATreeView: TTreeView; AParent: TTreeNode; const AName: string): TTreeNode;
+    function AddClassTreeNode(ATreeView: TTreeView; AParent: TTreeNode; const AName: string): TTreeNode;
+    function GetClassTreeNode(ATreeView: TTreeView; AParent: TTreeNode; const AName: string): TTreeNode;
+
+    procedure AddTemplateToTreeView(ATreeView: TTreeView; ATemplate: TTemplateNode);
+  public
+    procedure ExportToTreeView(ATreeView: TTreeView; ATemplates: TTemplateManager);
+  end;
+
+implementation
+
+{ TTemplateManagerHelper }
+
+function TTemplateManagerHelper.AddClassTreeNode(ATreeView: TTreeView;
+  AParent: TTreeNode; const AName: string): TTreeNode;
+begin
+  Result := ATreeView.Items.AddChildObject(AParent, AName, Pointer(nil));
+  Result.ImageIndex := -1;
+  Result.SelectedIndex := -1;
+end;
+
+procedure TTemplateManagerHelper.AddTemplateToTreeView(
+  ATreeView: TTreeView; ATemplate: TTemplateNode);
+var
+  vClassNode, vNode: TTreeNode;
+begin
+  vClassNode := GetClassTreeNode(ATreeView, nil, ATemplate.ClassNum + '.' + ATemplate.ClassName);
+  if ATemplate.SubClassNum <> '' then
+    vClassNode := GetClassTreeNode(ATreeView, vClassNode, ATemplate.SubClassNum + '.' + ATemplate.SubClassName);
+  vNode := ATreeView.Items.AddChildObject(vClassNode, ATemplate.TemplateName, Pointer(ATemplate));
+  vNode.ImageIndex := -1;
+  vNode.SelectedIndex := -1;
+end;
+
+procedure TTemplateManagerHelper.ExportToTreeView(
+  ATreeView: TTreeView; ATemplates: TTemplateManager);
+var
+  iTemplate: Integer;
+  TemplateNode: TTemplateNode; 
+  ClassNode: TTreeNode;
+begin
+  ATreeView.Items.Clear;
+  for iTemplate := 0 to ATemplates.Count - 1 do
+  begin
+    TemplateNode := ATemplates.Template[iTemplate];
+    AddTemplateToTreeView(ATreeView, TemplateNode);
+  end;
+  ATreeView.Items.AlphaSort(True);
+end;
+
+function TTemplateManagerHelper.FindClassTreeNode(ATreeView: TTreeView;
+  AParent: TTreeNode; const AName: string): TTreeNode;
+var
+  I: Integer;
+  vNode: TTreeNode;
+begin
+  Result := nil;
+  if Assigned(AParent) then
+    vNode := AParent.getFirstChild
+  else
+    vNode := ATreeView.Items.GetFirstNode;
+  while not Assigned(Result) and Assigned(vNode) do
+  begin
+    if SameText(vNode.Text, AName) then
+      Result := vNode;
+    vNode := vNode.getNextSibling;
+  end;
+end;
+
+function TTemplateManagerHelper.GetClassTreeNode(ATreeView: TTreeView;
+  AParent: TTreeNode; const AName: string): TTreeNode;
+begin
+  Result := FindClassTreeNode(ATreeView, AParent, AName);
+  if not Assigned(Result) then
+    Result := AddClassTreeNode(ATreeView, AParent, AName);
+end;
+
+end.