Measure/Frames/ProjectFme.pas

unit ProjectFme;

interface

uses
  BillsCompileFme, BillsMeasureFme, PhaseCompareFme, DealPaymentFme,
  BillsGatherFme, ZJJLFme, BGLFme, ReportsFrm, SearchFme, BookmarkFme,
  ProjectData, UtilMethods, Globals, mEncryptEditions, DealBillsFme,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, XPMenu, Buttons, ComCtrls, ToolWin, ExtCtrls, JimPages,
  StdCtrls, JimCombos, dxsbar, ActnList, dxBar, OrderCheckerFme, CheckerFme,
  CslButton, UpFileManageFrame, UpFileManageUnit;

type
  TProjectFrame = class(TFrame)
    xpm: TXPMenu;
    ilstExpend: TImageList;
    pnlViewControl: TPanel;
    pnlView: TPanel;
    pnlToolBar: TPanel;
    tbToolsButton: TToolBar;
    tobtnStandardBills: TToolButton;
    tobtnDealPayment: TToolButton;
    tobtnSearch: TToolButton;
    sbtnExpend: TSpeedButton;
    tbXmjBills: TToolBar;
    tbExpand: TToolButton;
    tbSeparator: TToolButton;
    sprAssistant: TSplitter;
    jpsAssistant: TJimPages;
    jpsAssistantDealPayment: TJimPage;
    jpsAssistantSearch: TJimPage;
    dxsbViewControl: TdxSideBar;
    dxsbsViewControl: TdxSideBarStore;
    xbiBillsCompile: TdxStoredSideItem;
    jpsAssistantStandardBills: TJimPage;
    jpsMain: TJimPages;
    jpsMainBillsMeasure: TJimPage;
    xbiBillsGather: TdxStoredSideItem;
    jpsMainBillsGather: TJimPage;
    ilstLarge: TImageList;
    ilstSmall: TImageList;
    xbiStageCompare: TdxStoredSideItem;
    xbiCompleteDegree: TdxStoredSideItem;
    xbiReport: TdxStoredSideItem;
    jpsMainStageCompare: TJimPage;
    tobtnZJJL: TToolButton;
    tobtnBGL: TToolButton;
    jpsAssistantZJJL: TJimPage;
    jpsAssistantBGL: TJimPage;
    dxpmExpandBills: TdxBarPopupMenu;
    alProject: TActionList;
    actnFirstLevel: TAction;
    actnSecondLevel: TAction;
    actnThirdLevel: TAction;
    actnFourthLevel: TAction;
    actnFifthLevel: TAction;
    actnAllLevel: TAction;
    actnAllXmj: TAction;
    xbiBillsMeasure: TdxStoredSideItem;
    jpsMainBillsCompile: TJimPage;
    pnlPhaseSelect: TPanel;
    jcbAudit: TJimComboBox;
    jcbPhase: TJimComboBox;
    tobtnShowChecker: TToolButton;
    jpsAssistantChecker: TJimPage;
    btnSubmit: TCslButton;
    btnPass: TCslButton;
    btnNotPass: TCslButton;
    pnlNewPhase: TPanel;
    btnNewPhase: TCslButton;
    pnlProjectCheckStatus: TPanel;
    actnCurPhase: TAction;
    tobtnBookmark: TToolButton;
    jpsAssistantBookmark: TJimPage;
    jpsAssistantUpFile: TJimPage;
    tobtnUpFile: TToolButton;
    jpsAssistantDealBills: TJimPage;
    tobtnDealBills: TToolButton;
    procedure tobtnStandardBillsClick(Sender: TObject);
    procedure jcbPhaseChanged(Sender: TObject);
    procedure sbtnExpendClick(Sender: TObject);
    procedure jcbAuditChanged(Sender: TObject);
    procedure dxsbViewControlItemClick(Sender: TObject;
      Item: TdxSideBarItem);
    procedure dxpmExpandBillsPopup(Sender: TObject);
    procedure actnFirstLevelExecute(Sender: TObject);
    procedure tbExpandClick(Sender: TObject);
    procedure actnAllXmjExecute(Sender: TObject);
    procedure btnSubmitClick(Sender: TObject);
    procedure btnPassClick(Sender: TObject);
    procedure btnNotPassClick(Sender: TObject);
    procedure btnNewPhaseClick(Sender: TObject);
    procedure actnCurPhaseExecute(Sender: TObject);
    procedure tobtnUpFileClick(Sender: TObject);
    procedure jpsAssistantActivePageChanged(Sender: TObject);
  private
    FProjectData: TProjectData;

    FBillsCompileFrame: TBillsCompileFrame;
    FBillsMeasureFrame: TBillsMeasureFrame;
    FPhaseCompareFrame: TPhaseCompareFrame;
    FBillsGatherFrame: TBillsGatherFrame;
    FCheckerFrame: TCheckerFrame;

    FDealPaymentFrame: TDealPaymentFrame;
    FZJJLFrame: TZJJLFrame;
    FBGLFrame: TBGLFrame;
    FSearchFrame: TSearchFrame;
    FBookmarkFrame: TBookmarkFrame;
    FUpFileManageView: TUpFileManageView;
    FDealBillsFrame: TDealBillsFrame;

    procedure CreateBillsFrame;
    procedure CreateDealPaymentFrame;
    procedure CreateBillsGatherFrame;
    procedure CreateCheckerFrame;
    procedure CreateUpFile;
    procedure CreateFrames;
    procedure InitialForVersions;

    procedure OpenCompare;
    procedure CloseCompare;

    // 刷新各界面只读、显示等
    procedure RefreshProjectState;

    procedure AdjustFramesDisplay;

    procedure SaveLog(AStr: string);

    procedure ExpandNodeTo(ALevel: Integer);
    procedure ExpandAllXmj;
    procedure ExpandCurPhase;

    procedure SetAssistantViewVisible(AVisible: Boolean);
    procedure SetImageOfsbtnExpend(AExpend: Boolean);
    procedure ControlAssistantButtonsDown(ATag: Integer);
    procedure ExpandBookmarkFrame(AExpandFrame: Boolean);

    procedure UpToWeb(ACheckPassed: Boolean);
    function CheckersHint: string;
    procedure SetUpFileManageView(const Value: TUpFileManageView);
    procedure CheckUpFile;
  public
    constructor Create(AProjectData: TProjectData);
    destructor Destroy; override;

    procedure ResetAssistantView;
    procedure GeneratePhaseChooseList;
    procedure GenerateStageChooseList;

    procedure CreateNewPhase;
    procedure CreateNewAudit;

    procedure RefreshColumnDisplay;

    procedure UnLockData;
    procedure ReLockData;

    function IsUped: Boolean;
    procedure ButtonControl_UpToWeb;
    procedure ButtonControl_NewPhase;
    procedure RepairAudits;
    function CheckFileAndCloudChekerList: Boolean;

    property ProjectData: TProjectData read FProjectData;

    property BillsCompileFrame: TBillsCompileFrame read FBillsCompileFrame;
    property BillsMeasureFrame: TBillsMeasureFrame read FBillsMeasureFrame;
    property BillsGatherFrame: TBillsGatherFrame read FBillsGatherFrame;

    property CheckerFrame: TCheckerFrame read FCheckerFrame;
    property UpFileManageView: TUpFileManageView read FUpFileManageView write SetUpFileManageView;

    property DealPaymentFrame: TDealPaymentFrame read FDealPaymentFrame;
    property ZJJLFrame: TZJJLFrame read FZJJLFrame;
    property BGLFrame: TBGLFrame read FBGLFrame;
    property SearchFrame: TSearchFrame read FSearchFrame;
    property BookmarkFrame: TBookmarkFrame read FBookmarkFrame;
    property DealBillsFrame: TDealBillsFrame read FDealBillsFrame;
  end;

implementation

uses
  PhaseData, BGLDm, MainFrm, ZhAPI, SearchDm, PHPWebDm, ActiveX,
  ConstUnit, MD5Unit, sdIDTree, sdDB, mProgressFrm, ConditionalDefines,
  ProjectCommands, ProjectProperty, CheckerMemoFrm, BillsMeasureDm,
  ProgressHintFrm;

{$R *.dfm}

{ TProjectFrame }

procedure TProjectFrame.AdjustFramesDisplay;
begin
  jpsAssistant.Width := 395;
  SetAssistantViewVisible(False);
end;

procedure TProjectFrame.ControlAssistantButtonsDown(ATag: Integer);
begin
  tobtnStandardBills.Down := ATag = tobtnStandardBills.Tag;
  tobtnDealPayment.Down := ATag = tobtnDealPayment.Tag;
  tobtnSearch.Down := ATag = tobtnSearch.Tag;
  tobtnZJJL.Down := ATag = tobtnZJJL.Tag;
  tobtnBGL.Down := ATag = tobtnBGL.Tag;
  tobtnShowChecker.Down := ATag = tobtnShowChecker.Tag;
  tobtnUpFile.Down := ATag = tobtnUpFile.Tag;
  tobtnBookmark.Down := ATag = tobtnBookmark.Tag;
end;

constructor TProjectFrame.Create(AProjectData: TProjectData);
begin
  inherited Create(nil);
  FProjectData := AProjectData;
  ResetAssistantView;
  AdjustFramesDisplay;
  CreateFrames;
  RefreshProjectState;
  GeneratePhaseChooseList;
  GenerateStageChooseList;
  dxsbViewControl.SelectedItem := dxsbViewControl.ActiveGroup.Items.Items[0];
  InitialForVersions;

  CreateUpFile;

  if G_IsCloud then
  begin
    // 0号台帐无审核人，网络读取会出错。所以只有在有计量的情况下才创建审核人
    if (ProjectData.PhaseIndex > 0) then
    begin
      tobtnShowChecker.Visible := True;
      CreateCheckerFrame;
    end;
    ButtonControl_NewPhase;
    ButtonControl_UpToWeb;
    RepairAudits;
  end;
end;

destructor TProjectFrame.Destroy;
begin
  FBookmarkFrame.Free;
  FZJJLFrame.Free;
  FBillsGatherFrame.Free;
  FDealPaymentFrame.Free;
  FBillsCompileFrame.Free;
  FBillsMeasureFrame.Free;
  FUpFileManageView.Free;
  SupportManager.ClearAssistantViewParent;
  inherited;
end;

procedure TProjectFrame.ResetAssistantView;
begin
  AlignControl(SupportManager.StandardLibsFrame, jpsAssistantStandardBills, alClient);
end;

procedure TProjectFrame.SetAssistantViewVisible(AVisible: Boolean);
begin
  jpsAssistant.Visible := AVisible;
  sprAssistant.Visible := AVisible;
end;

procedure TProjectFrame.SetImageOfsbtnExpend(AExpend: Boolean);
begin
  sbtnExpend.Glyph := nil;
  ilstExpend.GetBitmap(Integer(AExpend), sbtnExpend.Glyph);
end;

procedure TProjectFrame.tobtnStandardBillsClick(Sender: TObject);
begin
  with TToolButton(Sender) do
  begin
    if Down then
    begin
      jpsAssistant.ActivePageIndex := Tag;
      sbtnExpend.Tag := Tag;
      ControlAssistantButtonsDown(Tag);
      jpsMain.ActivePage.Tag := Tag;
    end;
    SetAssistantViewVisible(Down);
    SetImageOfsbtnExpend(Down);
  end;
end;

procedure TProjectFrame.GeneratePhaseChooseList;
var
  iIndex: Integer;
begin
  jcbPhase.Items.Clear;
  for iIndex := 1 to FProjectData.ProjProperties.PhaseCount do
    jcbPhase.Items.Add(Format(' 第 %d 期数据', [iIndex]));
  jcbPhase.ItemIndex := jcbPhase.Items.Count - 1;
  jcbPhase.Enabled := jcbPhase.Items.Count > 0;
  tobtnZJJL.Enabled := jcbPhase.Enabled;
  tobtnBGL.Enabled := jcbPhase.Enabled;
end;

procedure TProjectFrame.jcbPhaseChanged(Sender: TObject);
begin
  if ProjectData.PhaseIndex = jcbPhase.ItemIndex + 1 then Exit;

  FProjectData.PhaseIndex := jcbPhase.ItemIndex + 1;
  GenerateStageChooseList;
  RefreshProjectState;
  if Assigned(FZJJLFrame) then
  begin
    FZJJLFrame.DataReadOnly := FProjectData.PhaseData.StageDataReadOnly;
    FZJJLFrame.ResetFrameLink(FProjectData.PhaseData.ZJJLData);
  end;

  if G_IsCloud then
  begin
    if Assigned(FCheckerFrame) then
    begin
      FCheckerFrame.Init;
      RepairAudits;
    end;
    ButtonControl_UpToWeb;
  end;
end;

procedure TProjectFrame.CreateNewPhase;
var
  iBef: Integer;
  vArr: array of string;
begin
  if QuestMessage('请检查合同支付的初始值，新增一期计量将锁定当前全部的清单数据，是否继续？') then
  begin
    // 网络版创建第二期、第三期等跟第一期有所不同：
    // 创建前，先发送信号给服务器，服务器自动根据第一期生成第二期的审核人列表。
    // 有了这个列表程序才能正常接下来的业务。
    if G_IsCloud then
    begin
      iBef := FProjectData.ProjProperties.PhaseCount;
      if iBef >= 1 then
      begin
        vArr := VarArrayOf(['msg']);
        if PHPWeb.Search(PHPWeb.MeasureURL + 'phaseno/userlist/create',
          ['tenderid', 'phaseno'], [IntToStr(FProjectData.WebID),
          IntToStr(iBef + 1)], vArr) <> 1 then
        begin
          Application.MessageBox(Pchar('云端自动创建本期审核人列表出错，请重新尝试！'), '警告', MB_OK + MB_ICONWARNING);
          Exit;
        end;
      end;
    end;

    FProjectData.CreateNewPhase;
    tobtnDealPayment.Enabled := True;
    tobtnZJJL.Enabled := True;
    tobtnBGL.Enabled := True;
    jcbPhase.Enabled := True;
    jcbAudit.Enabled := True;
    jcbPhase.Items.Add(Format(' 第 %d 期数据', [jcbPhase.Items.Count + 1]));
    jcbPhase.ItemIndex := jcbPhase.Items.Count - 1;
    FProjectData.PhaseData.CopyPreData;
    RefreshProjectState;

    if G_IsCloud then
    begin
      if Assigned(CheckerFrame) then
        CheckerFrame.Free;
      CreateCheckerFrame;
      tobtnShowChecker.Visible := True;
      tobtnShowChecker.Enabled := True;

      ButtonControl_NewPhase;
      ButtonControl_UpToWeb;
    end;
  end;
end;

procedure TProjectFrame.sbtnExpendClick(Sender: TObject);
var
  bExpend: Boolean;
begin
  bExpend := not jpsAssistant.Visible;
  jpsAssistant.ActivePageIndex := TSpeedButton(Sender).Tag;
  SetAssistantViewVisible(bExpend);
  SetImageOfsbtnExpend(bExpend);
  if bExpend then
  begin
    ControlAssistantButtonsDown(jpsAssistant.ActivePageIndex);
    jpsMain.ActivePage.Tag := jpsAssistant.ActivePageIndex;
  end
  else
  begin
    ControlAssistantButtonsDown(-1);
    jpsMain.ActivePage.Tag := -1;
  end;
  if G_IsCloud then
    CheckUpFile;
end;

procedure TProjectFrame.CreateNewAudit;
begin
  FProjectData.PhaseData.CreateNewAuditData;
  jcbAudit.Items.Add(Format(' %d 审', [FProjectData.PhaseData.StageCount - 1]));
  if jcbAudit.ItemIndex <> jcbAudit.Items.Count - 1 then
    jcbAudit.ItemIndex := jcbAudit.Items.Count - 1
  else
    FProjectData.ResetPhaseDataLink;
end;

procedure TProjectFrame.GenerateStageChooseList;
var
  iIndex: Integer;
begin
  jcbAudit.Items.Clear;
  if not FProjectData.PhaseData.Active then Exit;
  for iIndex := 0 to FProjectData.PhaseData.AuditCount do
  begin
    if iIndex = 0 then
      jcbAudit.Items.Add(' 原报')
    else
      jcbAudit.Items.Add(Format(' %d 审', [iIndex]));
  end;
  if jcbAudit.ItemIndex <> jcbAudit.Items.Count - 1 then
    jcbAudit.ItemIndex := jcbAudit.Items.Count - 1
  else
    FProjectData.ResetPhaseDataLink;
  jcbAudit.Enabled := jcbAudit.Items.Count > 0;
end;

procedure TProjectFrame.jcbAuditChanged(Sender: TObject);
begin
  if FProjectData.PhaseData.StageIndex = jcbAudit.ItemIndex then Exit;
  FProjectData.PhaseData.StageIndex := jcbAudit.ItemIndex;
  RefreshProjectState;
end;

procedure TProjectFrame.dxsbViewControlItemClick(Sender: TObject;
  Item: TdxSideBarItem);

  procedure BeforeChangeView;
  begin
    if G_IsCloud then
    begin
      tobtnShowChecker.Visible := ProjectData.PhaseIndex > 0;
      tobtnShowChecker.Enabled := (Item.Tag = xbiBillsMeasure.Tag);

      ButtonControl_NewPhase;

      if Item.Tag = xbiBillsCompile.Tag then
      begin
        if tobtnShowChecker.Down then
        begin
          tobtnShowChecker.Down := False;
          tobtnShowChecker.Click;
          tobtnStandardBills.Down := True;
          tobtnStandardBills.Click;
          tobtnStandardBills.Down := False;
          tobtnStandardBills.Click;
        end;
      end;
    end;
    // 记录台账分解、计量台账等的右侧展开情况
    if jpsAssistant.Visible then
      jpsMain.ActivePage.Tag := jpsAssistant.ActivePageIndex
    else
      jpsMain.ActivePage.Tag := -1;
  end;

  procedure AfterChangeView;
  begin
    // 仅计量台账界面可以选择计量期
    pnlPhaseSelect.Visible := Item.Tag = xbiBillsMeasure.Tag;
    // 台账分解、计量台账、审核比较 可使用"显示至"功能
    tbExpand.Visible := (Item.Tag = xbiBillsCompile.Tag)
                     or (Item.Tag = xbiBillsMeasure.Tag)
                     or (Item.Tag = xbiStageCompare.Tag);
    // 右侧按钮是否显示
    tbToolsButton.Visible := (Item.Tag = xbiBillsCompile.Tag)
                          or (Item.Tag = xbiBillsMeasure.Tag);
    tobtnBGL.Visible := Item.Tag = xbiBillsMeasure.Tag;
    tobtnZJJL.Visible := Item.Tag = xbiBillsMeasure.Tag;
    // 根据当前View控制右侧按钮是否按下，右侧工具窗是否弹开
    jpsAssistant.ActivePageIndex := jpsMain.ActivePage.Tag;
    sbtnExpend.Tag := jpsMain.ActivePage.Tag;
    ControlAssistantButtonsDown(jpsMain.ActivePage.Tag);
    SetAssistantViewVisible(jpsMain.ActivePage.Tag <> -1);
    SetImageOfsbtnExpend(jpsMain.ActivePage.Tag <> -1);
    // 0号台账与计量台账的书签不同
    if Item.Tag = xbiBillsCompile.Tag then
      FBookmarkFrame.BMType := bmtCompile
    else if Item.Tag = xbiBillsMeasure.Tag then
      FBookmarkFrame.BMType := bmtMeasure;
    // 0号台账与计量台账的查找定位不同
    if Item.Tag = xbiBillsCompile.Tag then
      FSearchFrame.LocateType := ltCompile
    else if Item.Tag = xbiBillsMeasure.Tag then
      FSearchFrame.LocateType := ltMeasure;
    // 切换至清单汇总，须重新汇总
    if Item.Tag = xbiBillsGather.Tag then
      BillsGatherFrame.RefreshBills;

    if G_IsCloud then
      if (Item.Tag = xbiBillsCompile.Tag) or (Item.Tag = xbiBillsMeasure.Tag) then
        CheckUpFile;

      tobtnUpFile.Enabled := Item.Tag = xbiBillsMeasure.Tag;
      if (tobtnUpFile.Enabled = False) and (jpsAssistant.ActivePage = jpsAssistantUpFile) then
        jpsAssistant.ActivePage := jpsAssistantStandardBills;
  end;

  procedure ChangeView;
  begin
    BeforeChangeView;
    case Item.Tag of
      0, 2: jpsMain.ActivePageIndex := Item.Tag;
      1: if CheckMeasureEdition then jpsMain.ActivePageIndex := Item.Tag;
      //2: if CheckPlanEdition then jpsMain.ActivePageIndex := Item.Tag;
    end;
    AfterChangeView;
  end;

  procedure DisplayReports;
  begin
    // 准备数据
    if Item.Tag = xbiReport.Tag then
      FProjectData.CopyPhaseData;
    // 显示报表界面
    DisplayReportsForm(FProjectData);
    dxsbViewControl.SelectedItem := dxsbViewControl.ActiveGroup.Items[jpsMain.ActivePageIndex];
  end;

  procedure DisplayCompare;
  begin
    if FProjectData.ProjProperties.PhaseCount = 0 then
    begin
      ShowErrorMessage('当前项目未开始计量，暂无审核比较数据！');
      dxsbViewControl.SelectedItem := dxsbViewControl.ActiveGroup.Items[jpsMain.ActivePageIndex];
      Abort;
    end;

    ShowProgressHint('正在准备审核比较数据，请稍候...');
    Screen.Cursor := crHourGlass;
    try
      BeforeChangeView;
      if CheckMeasureEdition then
      begin
        OpenCompare;
        jpsMain.ActivePageIndex := Item.Tag;
      end;
      AfterChangeView;
    finally             
      Screen.Cursor := crDefault;
      CloseProgressHint;
    end;
  end;

begin
  if Item.Tag = jpsMain.ActivePageIndex then Exit;

  if (Item.Tag in [0..2]) and (jpsMain.ActivePageIndex = 3) then
    CloseCompare;
    
  case Item.Tag of
    0..2: ChangeView;
    3: DisplayCompare;
    4: DisplayReports;
  end;
end;

procedure TProjectFrame.CreateBillsFrame;
begin
  FBillsCompileFrame := TBillsCompileFrame.Create(Self, FProjectData.BillsCompileData);
  FBillsCompileFrame.ShowDesignQuantity := FProjectData.ProjProperties.ShowDesignQuantity;
  FBillsCompileFrame.ShowAlias := FProjectData.ProjProperties.ShowAlias;
  FBillsCompileFrame.OnAfterSetBookmark := ExpandBookmarkFrame;
  AlignControl(FBillsCompileFrame, jpsMainBillsCompile, alClient);
  UpdateSysProgress(65, '正在解析数据');

  FBillsMeasureFrame := TBillsMeasureFrame.Create(Self, FProjectData.BillsMeasureData);
  FBillsMeasureFrame.OnAfterSetBookmark := ExpandBookmarkFrame;
  FBillsMeasureFrame.ShowPriceChange := FProjectData.ProjProperties.ShowPriceChange;
  FBillsMeasureFrame.ShowBGLCode := FProjectData.ProjProperties.ShowBGLCode;
  FBillsMeasureFrame.ShowDesignQuantity := FProjectData.ProjProperties.ShowDesignQuantity;
  FBillsMeasureFrame.ShowAlias := FProjectData.ProjProperties.ShowAlias;
  AlignControl(FBillsMeasureFrame, jpsMainBillsMeasure, alClient);
end;

procedure TProjectFrame.CreateDealPaymentFrame;
begin
  FDealPaymentFrame := TDealPaymentFrame.Create(Self, FProjectData.DealPaymentData);
  AlignControl(FDealPaymentFrame, jpsAssistantDealPayment, alClient);
end;

procedure TProjectFrame.CreateBillsGatherFrame;
begin
  FBillsGatherFrame := TBillsGatherFrame.Create(Self, FProjectData.BillsGatherData);
  AlignControl(FBillsGatherFrame, jpsMainBillsGather, alClient);
  FBillsGatherFrame.ShowPriceChange := FProjectData.ProjProperties.ShowPriceChange;
  FBillsGatherFrame.ShowPhaseData := FProjectData.ProjProperties.PhaseCount > 0;
end;

procedure TProjectFrame.dxpmExpandBillsPopup(Sender: TObject);
begin
  dxpmExpandBills.ItemLinks.Items[7].Visible := jpsMain.ActivePageIndex in [0, 1, 3];
  dxpmExpandBills.ItemLinks.Items[6].Visible := jpsMain.ActivePageIndex in [1, 3];
  SetDxBtnAction(actnFirstLevel, MainForm.dxbtnFirstLevel);
  SetDxBtnAction(actnSecondLevel, MainForm.dxbtnSecondLevel);
  SetDxBtnAction(actnThirdLevel, MainForm.dxbtnThirdLevel);
  SetDxBtnAction(actnFourthLevel, MainForm.dxbtnFourthLevel);
  SetDxBtnAction(actnFifthLevel, MainForm.dxbtnFifthLevel);
  SetDxBtnAction(actnAllLevel, MainForm.dxbtnAllLevel);
  SetDxBtnAction(actnCurPhase, MainForm.dxbtnCurPhase);
  SetDxBtnAction(actnAllXmj, MainForm.dxbtnAllXmj);
end;

procedure TProjectFrame.actnFirstLevelExecute(Sender: TObject);
begin
  ExpandNodeTo(TAction(Sender).Tag);
end;

procedure TProjectFrame.tbExpandClick(Sender: TObject);
var
  P: TPoint;
begin
  P := pnlToolBar.ClientToScreen(Point(tbExpand.Left, tbExpand.Top + tbExpand.Height));
  dxpmExpandBills.Popup(P.X, P.Y);
end;

procedure TProjectFrame.actnAllXmjExecute(Sender: TObject);
begin
  ExpandAllXmj;
end;

procedure TProjectFrame.ExpandNodeTo(ALevel: Integer);
begin
  Screen.Cursor := crHourGlass;
  case ALevel of
    0..4: UpdateSysProgress(0, Format('正在显示至第%d层', [ALevel + 1]));
    else UpdateSysProgress(0, '正在显示至最底层');
  end;
  try
    case jpsMain.ActivePageIndex of
      0: FBillsCompileFrame.ExpandNodeTo(ALevel);
      1: FBillsMeasureFrame.ExpandNodeTo(ALevel);
      3: FPhaseCompareFrame.ExpandNodeTo(ALevel);
    end;
  finally
    UpdateSysProgress(0, '就绪');
    Screen.Cursor := crDefault;
  end;
end;

procedure TProjectFrame.ExpandAllXmj;
begin
  Screen.Cursor := crHourGlass;
  UpdateSysProgress(0, '正在显示至项目节');
  try
    case jpsMain.ActivePageIndex of
      0: FBillsCompileFrame.ExpandXmjNode;
      1: FBillsMeasureFrame.ExpandXmjNode;
      3: FPhaseCompareFrame.ExpandXmjNode;
    end;
  finally
    UpdateSysProgress(0, '就绪');
    Screen.Cursor := crDefault;
  end;
end;

procedure TProjectFrame.UnLockData;

  procedure DoUnLockData;
  begin
    FProjectData.CanUnlockInfo := True;
    FBillsCompileFrame.stdBillsCompile.Column('LockedInfo').ReadOnly := False;
    //FProjectData.BillsData.UnLockedBaseData;
  end;

begin
  if FProjectData.CheckPassword then
    DoUnLockData;
end;

procedure TProjectFrame.CreateCheckerFrame;
begin
  FCheckerFrame :=  TCheckerFrame.Create(Self);
  FCheckerFrame.Owner := Self;
  FCheckerFrame.ProjectData := FProjectData;
  AlignControl(FCheckerFrame, jpsAssistantChecker, alClient);
  FCheckerFrame.Init;
end;

procedure TProjectFrame.btnSubmitClick(Sender: TObject);
begin
  Screen.Cursor := crHourGlass;
  try
    UpToWeb(True);
  finally
    Screen.Cursor := crDefault;
  end;
end;

procedure TProjectFrame.btnPassClick(Sender: TObject);
begin
  btnSubmitClick(Sender);
end;

function TProjectFrame.IsUped: Boolean;  // 是否上传过
begin
  Result := False;

  // 只有０号台帐那肯定没上传过
  if ProjectData.PhaseIndex = 0 then Exit;

  // 当前显示的期小于最新期(当前期是旧期)，则当前期肯定已经上传过了
  if ProjectData.PhaseIndex < ProjectData.ProjProperties.PhaseCount then
  begin
    Result := True;
  end
  // 当前显示的期是最新期，分两种情况判断，如果第一审核人已有状态，则上传过了
  else if ProjectData.PhaseIndex = ProjectData.ProjProperties.PhaseCount then
  begin
    if not CheckerFrame.HasChecker then
      Result := False
    else if CheckerFrame.FirstChecker.CheckStatus = csNotBegin then
      Result := False
    else
      Result := True;
  end;
end;

procedure TProjectFrame.ButtonControl_UpToWeb;
begin
  if ProjectData.CurUserIsAuthor then
  begin
    btnSubmit.Visible := True;
    // 有计量（非0号台账状态），且当前计量期尚未上报过
    btnSubmit.Enabled := (ProjectData.PhaseIndex > 0) and (not IsUped);
    btnPass.Visible := False;
    btnNotPass.Visible := btnPass.Visible;
    btnSubmit.Left := jcbAudit.Left + jcbAudit.Width + 5;
  end
  else if ProjectData.CurUserIsOwner or ProjectData.CurUserIsChecker then
  begin
    btnSubmit.Visible := False;
    btnPass.Visible := True;
    btnNotPass.Visible := btnPass.Visible;
    // 在本期我是审核人，切换到历史期有可能我没参与。 所以当CheckerFrame.Me为空时，有可能我是编制人，有可能历史期我没参与。
    // 历史期，管你那么多，直接按钮不见。
    if ProjectData.PhaseIndex < ProjectData.ProjProperties.PhaseCount then
      btnPass.Enabled := False
    else
      btnPass.Enabled := CheckerFrame.Me.IsChecking;    

    btnNotPass.Enabled := btnPass.Enabled;
    btnPass.Left := jcbAudit.Left + jcbAudit.Width + 5;
    btnNotPass.Left := btnPass.Left + btnPass.Width + 1;
  end;
  if Assigned(CheckerFrame) then
    pnlProjectCheckStatus.Visible := CheckerFrame.OwnerFrame.CheckStatus = csFinished
  else
    pnlProjectCheckStatus.Visible := False;

  if Assigned(FCheckerFrame) then
    FCheckerFrame.RepairDelete(btnSubmit.Visible and btnSubmit.Enabled);
end;

procedure TProjectFrame.UpToWeb(ACheckPassed: Boolean);
var sURL, sAppFile, sJsonFile_Bills, sJsonFile_Common, sAppFile_UnLock,
  sZipFile, sResult, sMD5_JL, sPassedHint1, sPassedHint2,
  sNoPassedHint1, sNoPassedHint2, sCheckerMemo: string;
  vA, vArr: array of string;
  vRec: TsdDataRecord;
  bSubmit: Boolean;
  vExportor: TTenderExport;
  vCF: TCheckerMemoForm;
begin
  bSubmit := False;
  sAppFile := PHPWeb.UserPath + 'ProjectFile.rmf';
  // 只有编制人才真正需要该文件存在
  sAppFile_UnLock := PHPWeb.UserPath + 'ProjectFile_UnLock';

  sPassedHint1 :=
    '【审批通过】后，计量数据将自动交付给下一审批人进行审批，操作后将不可更改，是否通过审批？';
  sPassedHint2 :=
    '(终审)审批通过后本期计量审批将标记为审批完成，操作后将不可更改，是否通过审批？';
  sNoPassedHint1 :=
    '【审批不通过】后，本次审批将结束，后续的审批人也将不会审批本次计量，' +
    '本期数据也将直接打回给上报人进行重新计量报审。' + #10#13 +
    '点击【确定】进入操作确认。';
  sNoPassedHint2 := PHPWeb.RealName +
    '，请确认本期计量审批不通过。' + #10#13 + '点击【确定】本期计量审批' +
    '不通过，计量将不可再更改。';

  vCF := TCheckerMemoForm.Create(nil);
  try
    if ProjectData.CurUserIsAuthor then
    begin
      bSubmit := True;
      if not CheckerFrame.HasNormalChecker then
      begin
        Application.MessageBox('上报审批前请先配置审核人！', '提示', MB_OK + MB_ICONWARNING);
        tobtnShowChecker.Down := True;
        tobtnShowChecker.Click;
        Exit;
      end;

      // 保存一次缓存数据，以保证提示信息能读取正确的值
      ProjectData.SaveLastestPhaseMainData;
      if Application.MessageBox(PChar(CheckersHint), '询问', MB_YESNO + MB_ICONQUESTION) = ID_No then
        Exit;

      CreateProgress('正在保存项目');
      ProjectData.Save;

      // 生成无锁文件
      vRec := MainForm.ProjectManagerFrame.Rec(ProjectData.ProjectID);
      vExportor := TTenderExport.Create(vRec, sAppFile_UnLock);
      try
        vExportor.Execute;
      finally
        vExportor.Free;
      end;

      ProjectData.SubmitProject(sAppFile);
    end
    else if ProjectData.CurUserIsChecker then
    begin
      if ACheckPassed then
      begin
        vCF.Init(sPassedHint1, 1);
        if vCF.ShowModal = mrCancel then
          Exit
        else
          sCheckerMemo := vCF.Memo;
      end
      else
      begin
        vCF.Init(sNoPassedHint1, 0);
        if vCF.ShowModal = mrCancel then
          Exit
        else
          sCheckerMemo := vCF.Memo;

        if Application.MessageBox(PChar(sNoPassedHint2), '询问', MB_OKCANCEL + MB_ICONQUESTION) = ID_CANCEL then
          Exit;
      end;

      CreateProgress('正在保存项目');
      ProjectData.Save;
      ProjectData.SubmitProject(sAppFile);
    end
    else if ProjectData.CurUserIsOwner then
    begin
      if ACheckPassed then
      begin
        vCF.Init(sPassedHint2, 1);
        if vCF.ShowModal = mrCancel then
          Exit
        else
          sCheckerMemo := vCF.Memo;
      end
      else
      begin
        vCF.Init(sNoPassedHint1, 0);
        if vCF.ShowModal = mrCancel then
          Exit
        else
          sCheckerMemo := vCF.Memo;

        if Application.MessageBox(PChar(sNoPassedHint2), '询问', MB_OKCANCEL + MB_ICONQUESTION) = ID_CANCEL then
          Exit;
      end;

      CreateProgress('正在保存项目');
      ProjectData.Save;
      ProjectData.ReplyProject(sAppFile);
    end;
  finally
    vCF.Free;
  end;

  try
    RefreshProgress('创建文件包');
    sJsonFile_Bills := ExtractFilePath(sAppFile) + 'JsonFile_Bills.json';
    sJsonFile_Common := ExtractFilePath(sAppFile) + 'JsonFile_Common.json';
    sMD5_JL := MD5_File(sAppFile);

    // 上传清单，每期都传，可覆盖旧的。
    ProjectData.ExportJson_Bills(sJsonFile_Bills);
    ProjectData.ExportJson_Common(sJsonFile_Common);
    sZipFile := PHPWeb.zip([sAppFile, sJsonFile_Bills, sJsonFile_Common, sAppFile_UnLock]);
    try
      // 上传标段文件
      RefreshProgress('上传到云端');
      if PHPWeb.UpDataFile(PHPWeb.UserID, ProjectData.WebID, ProjectData.PhaseIndex,
        sZipFile, sMD5_JL, bSubmit, sResult, ACheckPassed, sCheckerMemo) then
      begin
        if ProjectData.CurUserIsChecker then
          ProjectData.Checkers.FindByID(PHPWeb.UserID).Memo := sCheckerMemo;
        RefreshProgress('本地刷新显示');
        if ProjectData.PhaseIndex = 0 then   // 0号台账，现已废弃
        begin
          MainForm.ProjectManagerFrame.ShowProjWebInfoTop(0);
        end
        else
        Begin
          vRec := MainForm.ProjectManagerFrame.Rec(ProjectData.ProjectID);
          vRec.BeginUpdate;
          vRec.ValueByName('WebMD5').AsString := sMD5_JL;
          vRec.EndUpdate;
          MainForm.ProjectManagerFrame.ShowProjWebInfoTop;

          if ProjectData.CurUserIsAuthor then
          begin
            CheckerFrame.FirstChecker.CheckStatus := csChecking;
            CheckerFrame.AddFrame.Visible := False;
          end
          else if ProjectData.CurUserIsChecker then
          begin
            if ACheckPassed then
            begin
              CheckerFrame.Me.CheckStatus := csFinished;
              CheckerFrame.NextChecker.CheckStatus := csChecking;
            end
            else
              CheckerFrame.Me.CheckStatus := csNotPass;

            CheckerFrame.Me.CheckerMemo := sCheckerMemo;
          end
          else if ProjectData.CurUserIsOwner then
          begin
            if ACheckPassed then
              CheckerFrame.Me.CheckStatus := csFinished
            else
              CheckerFrame.Me.CheckStatus := csNotPass;
          end;
        end;

        btnSubmit.Enabled := False;
        FCheckerFrame.RepairDelete(False);
        btnPass.Enabled := False;
        btnNotPass.Enabled := btnPass.Enabled;
        pnlProjectCheckStatus.Visible := CheckerFrame.OwnerFrame.CheckStatus = csFinished;

        Application.MessageBox('^_^ 恭喜！数据已成功上传到云端服务器。', '提示', MB_OK + MB_ICONINFORMATION);
      end
      else
        Application.MessageBox(PChar('数据上传失败请重试！服务器故障：' + sResult), '警告', MB_OK + MB_ICONWARNING);
    except
      Application.MessageBox(PChar('数据上传失败请重试！网络较差，数据文件无法送达云端：' +
        sResult), '警告', MB_OK + MB_ICONWARNING);
    end;
  finally
    CloseProgress;
  end;
end;

procedure TProjectFrame.btnNotPassClick(Sender: TObject);
begin
  Screen.Cursor := crHourGlass;
  try
    UpToWeb(False);
  finally
    Screen.Cursor := crDefault;
  end;
end;

function TProjectFrame.CheckersHint: string;
var vSL: TStringList;
  i: Integer;
  sChecker, sChar: string;
  Rec: TsdDataRecord;
begin
  vSL := TStringList.Create;
  try
    CheckerFrame.CheckerNameList(vSL);
    for i := 0 to vSL.Count - 1 do
    begin
      if i = 0 then
        sChar := ''
      else
        sChar := ' > ';
      sChecker := sChecker + sChar + vSL[i];
    end;

    while Length(sChecker) < 38 do     // 保证提示框的大小达到最佳效果
      sChecker := sChecker + ' ';

    Rec := ProjectData.MainListData.GetPhaseMainRecord(FProjectData.PhaseIndex);
    Result := Format('本期计量：%m元。%s审批流程：%s%s上报后将不可更改，确定要上报吗？',
      [Rec.ValueByName('GatherTotalPrice').AsFloat, #10#13#10#13, sChecker, #10#13#10#13]);
  finally
    vSL.Free;
  end;
end;

procedure TProjectFrame.btnNewPhaseClick(Sender: TObject);
begin
  dxsbViewControl.SelectedItem := dxsbViewControl.Groups[0].Items[1];
  dxsbViewControl.OnItemClick(Sender, dxsbViewControl.Groups[0].Items[1]);
  CreateNewPhase;
end;

procedure TProjectFrame.ButtonControl_NewPhase;
var b1, b2, b3: Boolean;
begin
  // “新建一期计量”按钮的显示隐藏
  // 计量界面，且是原报才显示
  b1 := (dxsbViewControl.SelectedItem.Index = 0) and ProjectData.CurUserIsAuthor;
  // ①尚无审核人列表  ②当前期已审核完成
  b2 := (not Assigned(CheckerFrame)) or (Assigned(CheckerFrame) and CheckerFrame.OwnerFrame.IsFinished);
  // 当前查看的是最新期。查看历史期不显示。
  b3 := (FProjectData.ProjProperties.PhaseCount = FProjectData.PhaseIndex);

  pnlNewPhase.Visible := b1 and b2 and b3;
end;

procedure TProjectFrame.actnCurPhaseExecute(Sender: TObject);
begin
  ExpandCurPhase;
end;

procedure TProjectFrame.RepairAudits;
var i, iSel: Integer;
  UserArr: array of string;
  sURL: string;
begin
  jcbAudit.ItemHeight := 20;
  jcbAudit.Font.Name := '微软雅黑';
  jcbAudit.Font.Size := 10;
  jcbAudit.DropDownBox.Height := jcbAudit.Items.Count * jcbAudit.ItemHeight + 35;

  iSel := jcbAudit.ItemIndex;
  for i := 0 to jcbAudit.Items.Count - 1 do
  begin
    if i = 0 then
    begin
      // 原报：编制人。没有跟审核人一个表，另外查询。个人觉得这里设计得不好。
      // 打开软件时自动扫描，杰哥那头返回不了编制人的项目，也是这个原因。
      // 说服不了特工，先这样吧。
      sURL := Format('%suser/get/%d/info', [PHPWeb.MeasureURL, FProjectData.WebAuthorID]);
      UserArr := VarArrayOf(['avatar', 'name', 'jobs', 'company']);
      if PHPWeb.Search(sURL, [], [], UserArr) = 1 then
        jcbAudit.Items[i] := jcbAudit.Items[i] + ' ' + UserArr[1] + '－' + UserArr[2];
    end
    else
    begin
      // 某种漏洞的操作下，文件中记载的审核人数和审核人列表中的审核人数不一致，
      // 匹配时会溢出。这里要加判断。
      if i > CheckerFrame.List.Count then Break;
      if TOrderCheckerFrame(CheckerFrame.List[i - 1]) = FCheckerFrame.OwnerFrame then
      begin
        jcbAudit.Items[i] := ' 终审 ' +
          TOrderCheckerFrame(CheckerFrame.List[i - 1]).UserName + '－' +
          TOrderCheckerFrame(CheckerFrame.List[i - 1]).UserRole
      end
      else
      begin
        jcbAudit.Items[i] := jcbAudit.Items[i] + ' ' +
          TOrderCheckerFrame(CheckerFrame.List[i - 1]).UserName + '－' +
          TOrderCheckerFrame(CheckerFrame.List[i - 1]).UserRole;
      end;
    end;
  end;
  jcbAudit.ItemIndex := iSel;
end;

procedure TProjectFrame.CreateFrames;
begin
  UpdateSysProgress(10, '正在解析数据');
  CreateBillsFrame;
  UpdateSysProgress(130, '正在解析数据');
  CreateDealPaymentFrame;
  UpdateSysProgress(140, '正在解析数据');
  CreateBillsGatherFrame;
  UpdateSysProgress(150, '正在解析数据');

  FZJJLFrame := TZJJLFrame.Create(Self, FProjectData.PhaseData.ZJJLData);
  FZJJLFrame.DataReadOnly := FProjectData.PhaseData.StageDataReadOnly;
  AlignControl(FZJJLFrame, jpsAssistantZJJL, alClient);
  UpdateSysProgress(160, '正在解析数据');

  FBGLFrame := TBGLFrame.Create(Self, FProjectData.BGLData);
  AlignControl(FBGLFrame, jpsAssistantBGL, alClient);
  UpdateSysProgress(170, '正在解析数据');

  FSearchFrame := TSearchFrame.Create(Self, FProjectData.SearchData);
  AlignControl(FSearchFrame, jpsAssistantSearch, alClient);
  UpdateSysProgress(180, '正在解析数据');

  FBookmarkFrame := TBookmarkFrame.Create(Self, FProjectData);
  AlignControl(FBookmarkFrame, jpsAssistantBookmark, alClient);
  UpdateSysProgress(190, '正在解析数据');

  FDealBillsFrame := TDealBillsFrame.Create(Self, FProjectData.DealBillsData);
  AlignControl(FDealBillsFrame, jpsAssistantDealBills, alClient);
  UpdateSysProgress(200, '就绪');
end;

procedure TProjectFrame.InitialForVersions;
begin
  if _ModuleType = mtCompile then
  begin
    // 去掉审核比较
    dxsbViewControl.Groups.Items[0].Items.Delete(3);
    // 去掉计量台账
    dxsbViewControl.Groups.Items[0].Items.Delete(1);
  end;
end;

procedure TProjectFrame.ExpandBookmarkFrame(AExpandFrame: Boolean);
begin
  // 展开书签
  if AExpandFrame then
  begin
    jpsAssistant.ActivePageIndex := tobtnBookmark.Tag;
    sbtnExpend.Tag := tobtnBookmark.Tag;
    ControlAssistantButtonsDown(tobtnBookmark.Tag);
    jpsMain.ActivePage.Tag := tobtnBookmark.Tag;
    SetAssistantViewVisible(True);
    SetImageOfsbtnExpend(True);
  end;
  // 刷新书签批注
  FBookmarkFrame.RefreshMarkMemo;
end;



{
    在意外情况下，文件中记录的审核人与云端记录的审核人不一致，文件中的审核表有时
    被多创建，有时少创建。这时不允许继续操作，需强制关闭：

    1、如果第x个人为审核中，则：
       ①当前登录用户，如果非工作中，无论编制人、审核人还是业主，审核表个数应为x。
       ②当前登录用户，如果工作中，必是审核人或业主，审核表个数应为x + 1。

    2、如果找不到审核中，找到了第x个人为审核不通过，则：
       ①当前登录用户为编制人：
         a.重新开始：审核表个数应为1。
         b.仅查看不通过项目：审核表个数应为x + 1。
       ②当前登录用户为审核人或业主：一定是非工作中（编制人工作中），审核表个数应为x + 1。

    3、如果找不到审核中，也找不到审核不通过，如果最后一个人是审核完成，则：
       ①当前登录用户为编制人，此时编制人尚末开始新的一期，下拉还是上一期的，审核表个数亦为x+1。
       ②当前登录用户为审核人或业主，审核表个数为x+1。

    4、如果找不到审核中，也找不到审核不通过，如果第一个人是末审核，则：
       ①当前登录用户为编制人，审核表个数应为1。                               }
function TProjectFrame.CheckFileAndCloudChekerList: Boolean;
var iNo, iC: Integer;
begin
  Result := False;
  iC := jcbAudit.Items.Count;

  if not Assigned(FCheckerFrame) then  // 0号台帐阶段还没有审核人业务
  begin
    Result := True;
    Exit;
  end;

  iNo := FCheckerFrame.CheckNo(csChecking);
  if iNo <> -1 then    // 审核中
  begin
    // FCheckerFrame.Me = nil :编制 （这里体现出编制人不在审核人列表中极不合理！）
    if (FCheckerFrame.Me <> nil) and FCheckerFrame.Me.IsChecking then
      Result := (iC = iNo + 1)
    else
      Result := (iC = iNo);
  end
  else
  begin
    iNo := FCheckerFrame.CheckNo(csNotPass);
    if iNo <> -1 then      // 审核不通过
    begin
      if ProjectData.CurUserIsAuthor then
        Result := ((iC = 1) or (iC = iNo + 1))
      else if FCheckerFrame.InCheckerList(PHPWeb.UserID) then
        Result := (iC = iNo + 1);
    end
    else
    begin
      if FCheckerFrame.LastChecker.CheckStatus = csFinished then    // 最后一个人是审核完成
        Result := (iC = FCheckerFrame.List.Count + 1)
      else    // 第一个人是末审核
        Result := (iC = 1);
    end;
  end;
end;

procedure TProjectFrame.tobtnUpFileClick(Sender: TObject);
begin
  with TToolButton(Sender) do
  begin
    if Down then
    begin
      jpsAssistant.ActivePageIndex := Tag;
      sbtnExpend.Tag := Tag;
      ControlAssistantButtonsDown(Tag);
      jpsMain.ActivePage.Tag := Tag;
    end;
    SetAssistantViewVisible(Down);
    SetImageOfsbtnExpend(Down);
  end;
  CheckUpFile;
end;

procedure TProjectFrame.CreateUpFile;
begin
  FUpFileManageView := TUpFileManageView.Create(nil);
  FUpFileManageView.Owner := Self;
  
  FUpFileManageView.ProjectData := FProjectData;
  FUpFileManageView.Datas := FProjectData.AttachmentData;
  FUpFileManageView.Parent := jpsAssistantUpFile;
  FUpFileManageView.Align := alClient;
end;

procedure TProjectFrame.SetUpFileManageView(
  const Value: TUpFileManageView);
begin
  FUpFileManageView := Value;
end;

procedure TProjectFrame.jpsAssistantActivePageChanged(Sender: TObject);
begin
  if G_IsCloud then
    CheckUpFile;
end;

procedure TProjectFrame.CheckUpFile;
var vRec: TsdDataRecord;
begin  
  if jpsAssistant.Visible and (jpsAssistant.ActivePage = jpsAssistantUpFile) then
  begin
    if jpsMain.ActivePage = jpsMainBillsCompile then
    begin
      vRec := FBillsCompileFrame.BillsCompileData.sdvBillsCompile.Current;
      if vRec = nil then
        vRec := FBillsCompileFrame.stdBillsCompile.IDTree.Items[0].Rec;
    end
    else if jpsMain.ActivePage = jpsMainBillsMeasure then
    begin
      vRec := FBillsMeasureFrame.BillsMeasureData.sdvBillsMeasure.Current;
      if vRec = nil then
        vRec := FBillsMeasureFrame.stdBillsMeasure.IDTree.Items[0].Rec;
    end;
    FUpFileManageView.DoOnBillChange(vRec);
  end;
end;

procedure TProjectFrame.SaveLog(AStr: string);
var
  sFileName: string;
  F: TextFile;
begin
  sFileName := GetAppFilePath + 'TimeLog.txt';
  AssignFile(F, sFileName);
  if FileExists(sFileName) then
    Append(F)
  else
    Rewrite(F);
  Writeln(F, AStr);
  CloseFile(F);
end;

procedure TProjectFrame.ReLockData;
begin
  FProjectData.CanUnlockInfo := False;
  FBillsCompileFrame.stdBillsCompile.Column('LockedInfo').ReadOnly := True;
end;

procedure TProjectFrame.CloseCompare;
begin  
  FPhaseCompareFrame.Free;
  FProjectData.PhaseCompareData.Close;
  FProjectData.PhaseData.StageCompareData.Close;
end;

procedure TProjectFrame.OpenCompare;
begin
  FProjectData.PhaseData.Save;
  FProjectData.PhaseData.StageCompareData.Open;
  FProjectData.PhaseCompareData.Open;
  FPhaseCompareFrame := TPhaseCompareFrame.Create(Self, FProjectData.PhaseCompareData);
  AlignControl(FPhaseCompareFrame, jpsMainStageCompare, alClient);
end;

procedure TProjectFrame.RefreshColumnDisplay;
begin
  BillsCompileFrame.ShowDesignQuantity := FProjectData.ProjProperties.ShowDesignQuantity;
  BillsCompileFrame.ShowAlias := FProjectData.ProjProperties.ShowAlias;
  BillsMeasureFrame.ShowPriceChange := FProjectData.ProjProperties.ShowPriceChange;
  BillsMeasureFrame.ShowBGLCode := FProjectData.ProjProperties.ShowBGLCode;
  BillsMeasureFrame.ShowDesignQuantity := FProjectData.ProjProperties.ShowDesignQuantity;
  BillsMeasureFrame.ShowAlias := FProjectData.ProjProperties.ShowAlias;
  BillsGatherFrame.ShowPriceChange := FProjectData.ProjProperties.ShowPriceChange;
end;

procedure TProjectFrame.RefreshProjectState;
begin
  FBillsCompileFrame.RefreshPhase_Stage;
  FBillsMeasureFrame.RefreshPhase_Stage;
  FDealPaymentFrame.RefreshPhase_Stage;
end;

procedure TProjectFrame.ExpandCurPhase;
begin
  Screen.Cursor := crHourGlass;
  UpdateSysProgress(0, '正在显示至项目节');
  try
    case jpsMain.ActivePageIndex of
      1: FBillsMeasureFrame.ExpandCurPhase;
      3: FPhaseCompareFrame.ExpandCurPhase;
    end;
  finally
    UpdateSysProgress(0, '就绪');
    Screen.Cursor := crDefault;
  end;
end;

end.