unit rmHaBaiCustomizedDm; // 内蒙古 哈白项目/国道306定制汇总表 严禁任何其他项目或标表调用该单元 // 包括支表2/3/14/3-1/4-1 interface uses SysUtils, Classes, DB, rmSelectProjectFrm, ProjectData, mDataRecord, BillsTree, DBClient; type TDoubleArray = array of Double; TStringArray = array of string; TGclNode = class private FProjectCount: Integer; FB_Code: string; FIndexCode: string; FName: string; FUnits: string; FPrice: Double; FCalcType: Integer; FQuantity: Double; FTotalPrice: Double; FCurGatherQuantity: Double; FCurGatherTotalPrice: Double; FEndGatherQuantity: Double; FEndGatherTotalPrice: Double; FPreGatherQuantity: Double; FPreGatherTotalPrice: Double; FP_Quantity: TDoubleArray; FP_TotalPrice: TDoubleArray; FP_CurGatherQuantity: TDoubleArray; FP_CurGatherTotalPrice: TDoubleArray; FP_EndGatherQuantity: TDoubleArray; FP_EndGatherTotalPrice: TDoubleArray; procedure SetB_Code(const Value: string); function GetCurPercent: Double; function GetEndPercent: Double; public constructor Create(AProjectCount: Integer); procedure Calculate; property B_Code: string read FB_Code write SetB_Code; property IndexCode: string read FIndexCode; property Name: string read FName write FName; property Units: string read FUnits write FUnits; property Price: Double read FPrice write FPrice; property CalcType: Integer read FCalcType write FCalcType; property Quantity: Double read FQuantity write FQuantity; property TotalPrice: Double read FTotalPrice write FTotalPrice; property CurGatherQuantity: Double read FCurGatherQuantity write FCurGatherQuantity; property CurGatherTotalPrice: Double read FCurGatherTotalPrice write FCurGatherTotalPrice; property EndGatherQuantity: Double read FEndGatherQuantity write FEndGatherQuantity; property EndGatherTotalPrice: Double read FEndGatherTotalPrice write FEndGatherTotalPrice; property PreGatherQuantity: Double read FPreGatherQuantity write FPreGatherQuantity; property PreGatherTotalPrice: Double read FPreGatherTotalPrice write FPreGatherTotalPrice; property P_Quantity: TDoubleArray read FP_Quantity write FP_Quantity; property P_TotalPrice: TDoubleArray read FP_TotalPrice write FP_TotalPrice; property P_CurGatherQuantity: TDoubleArray read FP_CurGatherQuantity write FP_CurGatherQuantity; property P_CurGatherTotalPrice: TDoubleArray read FP_CurGatherTotalPrice write FP_CurGatherTotalPrice; property P_EndGatherQuantity: TDoubleArray read FP_EndGatherQuantity write FP_EndGatherQuantity; property P_EndGatherTotalPrice: TDoubleArray read FP_EndGatherTotalPrice write FP_EndGatherTotalPrice; property CurPercent: Double read GetCurPercent; property EndPercent: Double read GetEndPercent; end; TGclChapter = class private FProjectCount: Integer; FGclNodes: TList; FChapterID: Integer; FChapterBegin: Integer; FChapterEnd: Integer; FChapterName: string; FName: string; FTotalPrice: Double; FCurGatherTotalPrice: Double; FEndGatherTotalPrice: Double; FPreGatherTotalPrice: Double; FP_TotalPrice: TDoubleArray; FP_CurGatherTotalPrice: TDoubleArray; FP_EndGatherTotalPrice: TDoubleArray; function GetGclNode(AIndex: Integer): TGclNode; function GetGclNodeCount: Integer; function GetCurPercent: Double; function GetEndPercent: Double; public constructor Create(AChapterID: Integer; const AName: string; AProjectCount: Integer); destructor Destroy; override; procedure AddGclNode(AGclNode: TGclNode); procedure CalculateChapter; property ChapterID: Integer read FChapterID; property ChapterBegin: Integer read FChapterBegin; property ChapterEnd: Integer read FChapterEnd; property ChapterName: string read FChapterName; property Name: string read FName; property TotalPrice: Double read FTotalPrice write FTotalPrice; property CurGatherTotalPrice: Double read FCurGatherTotalPrice write FCurGatherTotalPrice; property EndGatherTotalPrice: Double read FEndGatherTotalPrice write FEndGatherTotalPrice; property PreGatherTotalPrice: Double read FPreGatherTotalPrice write FPreGatherTotalPrice; property P_TotalPrice: TDoubleArray read FP_TotalPrice write FP_TotalPrice; property P_CurGatherTotalPrice: TDoubleArray read FP_CurGatherTotalPrice write FP_CurGatherTotalPrice; property P_EndGatherTotalPrice: TDoubleArray read FP_EndGatherTotalPrice write FP_EndGatherTotalPrice; property CurPercent: Double read GetCurPercent; property EndPercent: Double read GetEndPercent; property GclNodeCount: Integer read GetGclNodeCount; property GclNode[AIndex: Integer]: TGclNode read GetGclNode; end; TGclControl = class private FProjectCount: Integer; FProjectName: TStringArray; FGclNodes: TList; FGclChapters: TList; FGclChapterGather: TGclChapter; FOtherGcl: TGclChapter; function FindGclNode(ARec: TBillsRecord): TGclNode; function NewGclNode(ARec: TBillsRecord): TGclNode; function B_CodeToChapter(const AB_Code: string): Integer; procedure LinkGclChapter(AGclNode: TGclNode); function FindGclChapter(AChapterID: Integer): TGclChapter; procedure CalculateChapterGather; function GetGclChapterCount: Integer; function GetGclChapter(AIndex: Integer): TGclChapter; public constructor Create(AProjectCount: Integer; AIsHaBai: Boolean); destructor Destroy; function AddGclNode(ANode: TMeasureBillsIDTreeNode; AProjectIndex: Integer): TGclNode; procedure ReCalculateTotalPrice; procedure Calculate; property GclChapterCount: Integer read GetGclChapterCount; property GclChapter[AIndex: Integer]: TGclChapter read GetGclChapter; property GclChapterGather: TGclChapter read FGclChapterGather; property ProjectName: TStringArray read FProjectName write FProjectName; property ProjectCount: Integer read FProjectCount; end; TPayNode = class private FName: string; FIsMinus: Boolean; FCurTotalPrice: Double; FEndTotalPrice: Double; FPreTotalPrice: Double; public property Name: string read FName write FName; property IsMinus: Boolean read FIsMinus write FisMinus; property CurTotalPrice: Double read FCurTotalPrice write FCurTotalPrice; property EndTotalPrice: Double read FEndTotalPrice write FEndTotalPrice; property PreTotalPrice: Double read FPreTotalPrice write FPreTotalPrice; end; TDealPayControl = class private FPlusPayNodes: TList; FMinusPayNodes: TList; FPlusGather: TPayNode; FMinusGather: TPayNode; FGatherPayNode: TPayNode; FCompletePayNode: TPayNode; function FindPlusPayNode(const AName: string): TPayNode; function NewPlusPayNode(const AName: string): TPayNode; function AddPlusPayNode(const AName: string): TPayNode; function FindMinusPayNode(const AName: string): TPayNode; function NewMinusPayNode(const AName: string): TPayNode; function AddMinusPayNode(const AName: string): TPayNode; procedure CalculateGather(AGather: TPayNode; ANodes: TList); function GetMinusPayCount: Integer; function GetMinusPayNode(AIndex: Integer): TPayNode; function GetPlusPayCount: Integer; function GetPlusPayNode(AIndex: Integer): TPayNode; public constructor Create; destructor Destroy; override; function AddPayNode(const AName: string; AIsMinus: Boolean): TPayNode; procedure CalculateAll; property PlusPayCount: Integer read GetPlusPayCount; property PlusPayNode[AIndex: Integer]: TPayNode read GetPlusPayNode; property PlusGather: TPayNode read FPlusGather; property MinusPayCount: Integer read GetMinusPayCount; property MinusPayNode[AIndex: Integer]:TPayNode read GetMinusPayNode; property MinusGather: TPayNode read FMinusGather; property GatherPayNode: TPayNode read FGatherPayNode; property CompletePayNode: TPayNode read FCompletePayNode; end; // 分别对应5张定制汇总表的编号，详见文档 THaBaiGatherType = (hbgt2, hbgt3, hbgt14, hbgt3_1, hbgt4_1, hbgt_CS); // CS: Counter Sign 会签 TrmHaBaiCustomizedData = class(TDataModule) cdsCustom2: TClientDataSet; cdsCustom2Chapter: TIntegerField; cdsCustom2Name: TWideStringField; cdsCustom2TotalPrice: TFloatField; cdsCustom2CTotalPrice: TFloatField; cdsCustom2GTotalPrice: TFloatField; cdsCustom2EndGatherTotalPrice: TFloatField; cdsCustom2PreGatherTotalPrice: TFloatField; cdsCustom2CurGatherTotalPrice: TFloatField; cdsCustom2Percent: TFloatField; cdsCustom3: TClientDataSet; cdsCustom3ChapterID: TIntegerField; cdsCustom3InnerPartID: TIntegerField; cdsCustom3IndexCode: TStringField; cdsCustom3B_Code: TWideStringField; cdsCustom3Name: TWideStringField; cdsCustom3Units: TWideStringField; cdsCustom3Price: TFloatField; cdsCustom3Quantity: TFloatField; cdsCustom3TotalPrice: TFloatField; cdsCustom3PreGatherQuantity: TFloatField; cdsCustom3PreGatherTotalPrice: TFloatField; cdsCustom3EndGatherQuantity: TFloatField; cdsCustom3EndGatherTotalPrice: TFloatField; cdsCustom3CurGatherQuantity: TFloatField; cdsCustom3CurGatherTotalPrice: TFloatField; cdsCustom3Percent: TFloatField; cdsCustom14: TClientDataSet; cdsCustom14IndexCode: TWideStringField; cdsCustom14B_Code: TWideStringField; cdsCustom14Name: TWideStringField; cdsCustom14Units: TWideStringField; cdsCustom14Price: TFloatField; cdsCustom14Quantity: TFloatField; cdsCustom14TotalPrice: TFloatField; cdsCustom14CertificateCode: TWideStringField; cdsCustomProj: TClientDataSet; cdsCustomProjProjectID: TIntegerField; cdsCustomProjProjectName: TWideStringField; cdsCustomProjChapterID: TIntegerField; cdsCustomProjInnerPartID: TIntegerField; cdsCustomProjIndexCode: TWideStringField; cdsCustomProjB_Code: TWideStringField; cdsCustomProjName: TWideStringField; cdsCustomProjUnits: TWideStringField; cdsCustomProjPrice: TFloatField; cdsCustomProjQuantity: TFloatField; cdsCustomProjTotalPrice: TFloatField; cdsCustomProjCurGatherQuantity: TFloatField; cdsCustomProjCurGatherTotalPrice: TFloatField; cdsCustomProjEndGatherQuantity: TFloatField; cdsCustomProjEndGatherTotalPrice: TFloatField; cdsCustomProjP_CurGatherQuantity: TFloatField; cdsCustomProjP_CurGatherTotalPrice: TFloatField; cdsCustomProjP_EndGatherQuantity: TFloatField; cdsCustomProjP_EndGatherTotalPrice: TFloatField; cdsCustomProjCurPercent: TFloatField; cdsCustomProjEndPercent: TFloatField; cdsCustomProjSerialNo: TIntegerField; // 会签表 // 流水 cdsCustomCS_1: TClientDataSet; cdsCustomCS_1PulsPayName: TWideStringField; cdsCustomCS_1PulsPayTotalPrice: TFloatField; cdsCustomCS_1MinusPayName: TWideStringField; cdsCustomCS_1MinusPayTotalPrice: TFloatField; // 账单 cdsCustomCS_2: TClientDataSet; cdsCustomCS_2DealTotalPrice: TFloatField; cdsCustomCS_2EndCompleteTotalPrice: TFloatField; cdsCustomCS_2PreCompleteTotalPrice: TFloatField; cdsCustomCS_2CurPayTotalPrice: TFloatField; private FhbGatherType: THaBaiGatherType; FProjectData: TProjectData; FProjectName: string; FGclControl: TGclControl; FDealPayControl: TDealPayControl; FDealTotalPrice: Double; procedure BeforeGather(AProjectCount: Integer; AIsHaBai: Boolean); procedure AfterGather; procedure OpenProjectData(AProject: TSelectProject); procedure FreeProjectData; procedure GatherProject(AProject: TSelectProject; AProjectIndex: Integer); procedure FilterGcl(AProjectIndex: Integer); procedure FilterDealPay; procedure WriteFlowData; procedure WriteReport2; procedure WriteReport3; procedure WriteReport3_1; procedure WriteReport4_1; procedure WriteReportCounterSign; procedure WriteData; public function AssignData(AProjects: TList; AhbGatherType: THaBaiGatherType; AReCalc: Boolean): TDataSet; function AssignAssistantData(AhbGatherType: THaBaiGatherType): TDataSet; property hbGatherType: THaBaiGatherType read FhbGatherType; end; implementation uses UtilMethods, ZhAPI, BillsCompileDm, sdDB, Globals, Math, BillsMeasureDm, ZJJLDm, BillsDm; {$R *.dfm} { TrmHaBaiCustomizedData } function TrmHaBaiCustomizedData.AssignData(AProjects: TList; AhbGatherType: THaBaiGatherType; AReCalc: Boolean): TDataSet; var iProject: Integer; begin FhbGatherType := AhbGatherType; BeforeGather(AProjects.Count, AReCalc); try for iProject := 0 to AProjects.Count - 1 do GatherProject(TSelectProject(AProjects.Items[iProject]), iProject); if AReCalc then FGclControl.ReCalculateTotalPrice; FGclControl.Calculate; WriteData; finally AfterGather; case FhbGatherType of hbgt2: Result := cdsCustom2; hbgt3: Result := cdsCustom3; hbgt14: Result := cdsCustom14; hbgt3_1, hbgt4_1: Result := cdsCustomProj; hbgt_CS: Result := cdsCustomCS_1; end; end; end; procedure TrmHaBaiCustomizedData.BeforeGather(AProjectCount: Integer; AIsHaBai: Boolean); begin cdsCustom2.DisableControls; cdsCustom2.Active := True; cdsCustom2.EmptyDataSet; cdsCustom3.DisableControls; cdsCustom3.Active := True; cdsCustom3.EmptyDataSet; cdsCustom14.DisableControls; cdsCustom14.Active := True; cdsCustom14.EmptyDataSet; cdsCustomProj.DisableControls; cdsCustomProj.Active := True; cdsCustomProj.EmptyDataSet; cdsCustomCS_1.DisableControls; cdsCustomCS_1.Active := True; cdsCustomCS_1.EmptyDataSet; cdsCustomCS_2.DisableControls; cdsCustomCS_2.Active := True; cdsCustomCS_2.EmptyDataSet; FGclControl := TGclControl.Create(AProjectCount, AIsHaBai); FDealPayControl := TDealPayControl.Create; FDealTotalPrice := 0; end; procedure TrmHaBaiCustomizedData.AfterGather; begin FDealPayControl.Free; FGclControl.Free; cdsCustomCS_2.EnableControls; cdsCustomCS_1.EnableControls; cdsCustomProj.EnableControls; cdsCustom14.EnableControls; cdsCustom3.EnableControls; cdsCustom2.EnableControls; end; procedure TrmHaBaiCustomizedData.FreeProjectData; begin if not Assigned(OpenProjectManager.FindProjectData(FProjectData.ProjectID)) then FProjectData.Free; end; procedure TrmHaBaiCustomizedData.OpenProjectData(AProject: TSelectProject); var Rec: TsdDataRecord; begin FProjectData := OpenProjectManager.FindProjectData(AProject.ProjectID); Rec := ProjectManager.sddProjectsInfo.FindKey('idxID', AProject.ProjectID); if not Assigned(FProjectData) then begin FProjectData := TProjectData.Create; FProjectData.OpenForReport3(GetMyProjectsFilePath + Rec.ValueByName('FileName').AsString); end; FProjectName := Rec.ValueByName('Name').AsString; end; procedure TrmHaBaiCustomizedData.GatherProject(AProject: TSelectProject; AProjectIndex: Integer); begin OpenProjectData(AProject); try FGclControl.ProjectName[AProjectIndex] := FProjectName; if FhbGatherType in [hbgt2, hbgt3, hbgt3_1, hbgt4_1] then FilterGcl(AProjectIndex); if FhbGatherType in [hbgt2, hbgt_CS] then FilterDealPay; if FhbGatherType = hbgt14 then WriteFlowData; if FhbGatherType = hbgt_CS then FDealTotalPrice := FDealTotalPrice + FProjectData.BillsData.Settlement[0]; finally FreeProjectData; end; end; procedure TrmHaBaiCustomizedData.FilterGcl(AProjectIndex: Integer); var i: Integer; vNode: TMeasureBillsIDTreeNode; GclNode: TGclNode; begin with FProjectData.BillsMeasureData do begin for i := 0 to BillsMeasureTree.Count - 1 do begin vNode := TMeasureBillsIDTreeNode(BillsMeasureTree.Items[i]); if not vNode.HasChildren and (vNode.Rec.B_Code.AsString <> '') then GclNode := FGclControl.AddGclNode(vNode, AProjectIndex); end; end; end; procedure TrmHaBaiCustomizedData.FilterDealPay; var sCurField, sPreField, sEndField: string; procedure GatherCommonDealPayData; var iRec: Integer; Rec, StageRec: TsdDataRecord; DealPay: TPayNode; begin with FProjectData.DealPaymentData do begin for iRec := 0 to sddDealPayment.RecordCount - 1 do begin Rec := sddDealPayment.Records[iRec]; if SameText(Rec.ValueByName('Name').AsString, '本期完成计量') or SameText(Rec.ValueByName('Name').AsString, '本期应付') or SameText(Rec.ValueByName('Name').AsString, '本期实付') then Continue; if FProjectData.PhaseData.Active then StageRec := FProjectData.PhaseData.PhasePayData.PayRecord(Rec.ValueByName('ID').AsInteger) else StageRec := nil; DealPay := FDealPayControl.AddPayNode(Rec.ValueByName('Name').AsString, Rec.ValueByName('IsMinus').AsBoolean); if Assigned(StageRec) then begin DealPay.CurTotalPrice := DealPay.CurTotalPrice + StageRec.ValueByName(sCurField).AsFloat; DealPay.PreTotalPrice := DealPay.PreTotalPrice + StageRec.ValueByName(sPreField).AsFloat; DealPay.EndTotalPrice := DealPay.EndTotalPrice + StageRec.ValueByName(sEndField).AsFloat; end; end; end; end; procedure GatherCompletePayData; var Rec, StageRec: TsdDataRecord; begin Rec := FProjectData.DealPaymentData.DealPayRecord('本期完成计量'); if FProjectData.PhaseData.Active then StageRec := FProjectData.PhaseData.PhasePayData.PayRecord(Rec.ValueByName('ID').AsInteger) else StageRec := nil; if not Assigned(StageRec) then Exit; with FDealPayControl.CompletePayNode do begin CurTotalPrice := CurTotalPrice + StageRec.ValueByName(sCurField).AsFloat; PreTotalPrice := PreTotalPrice + StageRec.ValueByName(sPreField).AsFloat; EndTotalPrice := EndTotalPrice + StageRec.ValueByName(sEndField).AsFloat; end; end; procedure GatherPayData; var Rec, StageRec: TsdDataRecord; begin Rec := FProjectData.DealPaymentData.DealPayRecord('本期应付'); if FProjectData.PhaseData.Active then StageRec := FProjectData.PhaseData.PhasePayData.PayRecord(Rec.ValueByName('ID').AsInteger) else StageRec := nil; if not Assigned(StageRec) then Exit; with FDealPayControl.GatherPayNode do begin CurTotalPrice := CurTotalPrice + StageRec.ValueByName(sCurField).AsFloat; PreTotalPrice := PreTotalPrice + StageRec.ValueByName(sPreField).AsFloat; EndTotalPrice := EndTotalPrice + StageRec.ValueByName(sEndField).AsFloat; end; end; begin sCurField := 'TotalPrice' + IntToStr(FProjectData.PhaseData.AuditCount); sPreField := 'PreTotalPrice' + IntToStr(FProjectData.PhaseData.AuditCount); sEndField := 'EndTotalPrice' + IntToStr(FProjectData.PhaseData.AuditCount); GatherCommonDealPayData; GatherCompletePayData; GatherPayData; FDealPayControl.CalculateAll; end; procedure TrmHaBaiCustomizedData.WriteData; begin case FhbGatherType of hbgt2: WriteReport2; hbgt3: WriteReport3; hbgt3_1: WriteReport3_1; hbgt4_1: WriteReport4_1; hbgt_CS: WriteReportCounterSign; end; end; procedure TrmHaBaiCustomizedData.WriteReport2; procedure WriteGclChapter(AGclChapter: TGclChapter; const AName: string = ''); begin cdsCustom2.Append; if AGclChapter.ChapterBegin > 0 then cdsCustom2Chapter.AsInteger := AGclChapter.ChapterBegin; if AName = '' then cdsCustom2Name.AsString := AGclChapter.Name else cdsCustom2Name.AsString := AName; cdsCustom2TotalPrice.AsFloat := AGclChapter.TotalPrice; cdsCustom2GTotalPrice.AsFloat := AGclChapter.TotalPrice; cdsCustom2EndGatherTotalPrice.AsFloat := AGclChapter.EndGatherTotalPrice; cdsCustom2PreGatherTotalPrice.AsFloat := AGclChapter.PreGatherTotalPrice; cdsCustom2CurGatherTotalPrice.AsFloat := AGclChapter.CurGatherTotalPrice; cdsCustom2Percent.AsFloat := AGclChapter.EndPercent; cdsCustom2.Post; end; procedure WriteBlankRecord(const AName: string); begin cdsCustom2.Append; cdsCustom2Name.AsString := AName; cdsCustom2.Post; end; procedure WritePayNode(APayNode: TPayNode; const AName: string = ''); begin cdsCustom2.Append; if AName = '' then cdsCustom2Name.AsString := APayNode.Name else cdsCustom2Name.AsString := AName; cdsCustom2EndGatherTotalPrice.AsFloat := APayNode.EndTotalPrice; cdsCustom2PreGatherTotalPrice.AsFloat := APayNode.PreTotalPrice; cdsCustom2CurGatherTotalPrice.AsFloat := APayNode.CurTotalPrice; cdsCustom2.Post; end; procedure WriteSpecialRecord; begin cdsCustom2.Append; cdsCustom2Name.AsString := '合 计'; cdsCustom2EndGatherTotalPrice.AsFloat := FGclControl.GclChapterGather.EndGatherTotalPrice + FDealPayControl.PlusGather.EndTotalPrice; cdsCustom2PreGatherTotalPrice.AsFloat := FGclControl.GclChapterGather.PreGatherTotalPrice + FDealPayControl.PlusGather.PreTotalPrice; cdsCustom2CurGatherTotalPrice.AsFloat := FGclControl.GclChapterGather.CurGatherTotalPrice + FDealPayControl.PlusGather.CurTotalPrice; cdsCustom2.Post; end; procedure WriteMentalNode; begin cdsCustom2.Append; cdsCustom2Name.AsString := '支 付'; cdsCustom2EndGatherTotalPrice.AsFloat := FGclControl.GclChapterGather.EndGatherTotalPrice + FDealPayControl.PlusGather.EndTotalPrice - FDealPayControl.MinusGather.EndTotalPrice; cdsCustom2PreGatherTotalPrice.AsFloat := FGclControl.GclChapterGather.PreGatherTotalPrice + FDealPayControl.PlusGather.PreTotalPrice - FDealPayControl.MinusGather.PreTotalPrice; cdsCustom2CurGatherTotalPrice.AsFloat := FGclControl.GclChapterGather.CurGatherTotalPrice + FDealPayControl.PlusGather.CurTotalPrice - FDealPayControl.MinusGather.CurTotalPrice; cdsCustom2.Post; end; var iIndex: Integer; begin for iIndex := 0 to FGclControl.GclChapterCount - 1 do WriteGclChapter(FGclControl.GclChapter[iIndex]); WriteGclChapter(FGclControl.GclChapterGather); WriteGclChapter(FGclControl.GclChapterGather, '小 计'); WriteBlankRecord('价格调整'); WriteBlankRecord('违约罚金'); WriteBlankRecord('迟付款利息'); for iIndex := 0 to FDealPayControl.PlusPayCount - 1 do WritePayNode(FDealPayControl.PlusPayNode[iIndex]); WriteSpecialRecord; for iIndex := 0 to FDealPayControl.MinusPayCount - 1 do WritePayNode(FDealPayControl.MinusPayNode[iIndex]); //WritePayNode(FDealPayControl.GatherPayNode, '支 付'); // 神经病有毛病 WriteMentalNode; end; procedure TrmHaBaiCustomizedData.WriteReport3; procedure WriteChapterName(AGclChapter: TGclChapter); begin cdsCustom3.Append; cdsCustom3ChapterID.AsInteger := AGclChapter.ChapterID; cdsCustom3InnerPartID.AsInteger := 1; cdsCustom3B_Code.AsString := AGclChapter.ChapterName; cdsCustom3Name.AsString := AGclChapter.Name; cdsCustom3.Post; end; procedure WriteGclNodeData(AGclNode: TGclNode; AChapterID: Integer); begin cdsCustom3.Append; cdsCustom3ChapterID.AsInteger := AChapterID; cdsCustom3InnerPartID.AsInteger := 2; cdsCustom3IndexCode.AsString := AGclNode.IndexCode; cdsCustom3B_Code.AsString := AGclNode.B_Code; cdsCustom3Name.AsString := AGclNode.Name; cdsCustom3Units.AsString := AGclNode.Units; cdsCustom3Price.AsFloat := AGclNode.Price; cdsCustom3Quantity.AsFloat := AGclNode.Quantity; cdsCustom3TotalPrice.AsFloat := AGclNode.TotalPrice; cdsCustom3CurGatherQuantity.AsFloat := AGclNode.CurGatherQuantity; cdsCustom3CurGatherTotalPrice.AsFloat := AGclNode.CurGatherTotalPrice; cdsCustom3EndGatherQuantity.AsFloat := AGclNode.EndGatherQuantity; cdsCustom3EndGatherTotalPrice.AsFloat := AGclNode.EndGatherTotalPrice; cdsCustom3PreGatherQuantity.AsFloat := AGclNode.PreGatherQuantity; cdsCustom3PreGatherTotalPrice.AsFloat := AGclNode.PreGatherTotalPrice; cdsCustom3Percent.AsFloat := AGclNode.EndPercent; cdsCustom3.Post; end; procedure WriteChapterGather(AGclChapter: TGclChapter; const AName: string = ''); begin cdsCustom3.Append; cdsCustom3ChapterID.AsInteger := AGclChapter.ChapterID; cdsCustom3InnerPartID.AsInteger := 3; if AName = '' then cdsCustom3Name.AsString := AGclChapter.Name else cdsCustom3Name.AsString := AName; cdsCustom3TotalPrice.AsFloat := AGclChapter.TotalPrice; cdsCustom3CurGatherTotalPrice.AsFloat := AGclChapter.CurGatherTotalPrice; cdsCustom3EndGatherTotalPrice.AsFloat := AGclChapter.EndGatherTotalPrice; cdsCustom3PreGatherTotalPrice.AsFloat := AGclChapter.PreGatherTotalPrice; cdsCustom3Percent.AsFloat := AGclChapter.EndPercent; cdsCustom3.Post; end; procedure WriteGclChapterData(AGclChapter: TGclChapter); var iGcl: Integer; begin if AGclChapter.GclNodeCount = 0 then Exit; WriteChapterName(AGclChapter); for iGcl := 0 to AGclChapter.GclNodeCount - 1 do WriteGclNodeData(AGclChapter.GclNode[iGcl], AGclChapter.ChapterID); WriteChapterGather(AGclChapter, Format('%s 小计', [AGclChapter.ChapterName])); end; var iIndex: Integer; begin for iIndex := 0 to FGclControl.GclChapterCount - 1 do WriteGclChapterData(FGclControl.GclChapter[iIndex]); WriteChapterGather(FGclControl.GclChapterGather, '第100章～第900章 合计'); end; procedure TrmHaBaiCustomizedData.WriteReport3_1; var iProject, iChapter: Integer; sProjectName: string; procedure WriteChapterName(AGclChapter: TGclChapter); begin cdsCustomProj.Append; cdsCustomProjProjectID.AsInteger := iProject; cdsCustomProjProjectName.AsString := sProjectName; cdsCustomProjChapterID.AsInteger := AGclChapter.ChapterID; cdsCustomProjInnerPartID.AsInteger := 1; cdsCustomProjB_Code.AsString := AGclChapter.ChapterName; cdsCustomProjName.AsString := AGclChapter.Name; cdsCustomProj.Post; end; procedure WriteGclNodeData(AGclNode: TGclNode; AChapterID: Integer); begin cdsCustomProj.Append; cdsCustomProjProjectID.AsInteger := iProject; cdsCustomProjProjectName.AsString := sProjectName; cdsCustomProjChapterID.AsInteger := AChapterID; cdsCustomProjInnerPartID.AsInteger := 2; cdsCustomProjIndexCode.AsString := AGclNode.IndexCode; cdsCustomProjB_Code.AsString := AGclNode.B_Code; cdsCustomProjName.AsString := AGclNode.Name; cdsCustomProjUnits.AsString := AGclNode.Units; cdsCustomProjPrice.AsFloat := AGclNode.Price; cdsCustomProjQuantity.AsFloat := AGclNode.Quantity; cdsCustomProjTotalPrice.AsFloat := AGclNode.TotalPrice; cdsCustomProjCurGatherQuantity.AsFloat := AGclNode.CurGatherQuantity; cdsCustomProjCurGatherTotalPrice.AsFloat := AGclNode.CurGatherTotalPrice; cdsCustomProjEndGatherQuantity.AsFloat := AGclNode.EndGatherQuantity; cdsCustomProjEndGatherTotalPrice.AsFloat := AGclNode.EndGatherTotalPrice; cdsCustomProjP_CurGatherQuantity.AsFloat := AGclNode.P_CurGatherQuantity[iProject]; cdsCustomProjP_CurGatherTotalPrice.AsFloat := AGclNode.P_CurGatherTotalPrice[iProject]; cdsCustomProjP_EndGatherQuantity.AsFloat := AGclNode.P_EndGatherQuantity[iProject]; cdsCustomProjP_EndGatherTotalPrice.AsFloat := AGclNode.P_EndGatherTotalPrice[iProject]; cdsCustomProjCurPercent.AsFloat := AGclNode.CurPercent; cdsCustomProjEndPercent.AsFloat := AGclNode.EndPercent; cdsCustomProj.Post; end; procedure WriteChapterGather(AGclChapter: TGclChapter; const AName: string = ''); begin cdsCustomProj.Append; cdsCustomProjProjectID.AsInteger := iProject; cdsCustomProjProjectName.AsString := sProjectName; cdsCustomProjChapterID.AsInteger := AGclChapter.ChapterID; cdsCustomProjInnerPartID.AsInteger := 3; if AName = '' then cdsCustomProjName.AsString := AGclChapter.Name else cdsCustomProjName.AsString := AName; cdsCustomProjTotalPrice.AsFloat := AGclChapter.TotalPrice; cdsCustomProjCurGatherTotalPrice.AsFloat := AGclChapter.CurGatherTotalPrice; cdsCustomProjEndGatherTotalPrice.AsFloat := AGclChapter.EndGatherTotalPrice; cdsCustomProjP_CurGatherTotalPrice.AsFloat := AGclChapter.P_CurGatherTotalPrice[iProject]; cdsCustomProjP_EndGatherTotalPrice.AsFloat := AGclChapter.P_EndGatherTotalPrice[iProject]; cdsCustomProjCurPercent.AsFloat := AGclChapter.CurPercent; cdsCustomProjEndPercent.AsFloat := AGclChapter.EndPercent; cdsCustomProj.Post; end; procedure WriteGclChapterData(AGclChapter: TGclChapter); var iGcl: Integer; begin if AGclChapter.GclNodeCount = 0 then Exit; WriteChapterName(AGclChapter); for iGcl := 0 to AGclChapter.GclNodeCount - 1 do WriteGclNodeData(AGclChapter.GclNode[iGcl], AGclChapter.ChapterID); WriteChapterGather(AGclChapter, Format('%s 小计', [AGclChapter.ChapterName])); end; begin for iProject := 0 to FGclControl.ProjectCount - 1 do begin sProjectName := FGclControl.ProjectName[iProject]; for iChapter := 0 to FGclControl.GclChapterCount - 1 do WriteGclChapterData(FGclControl.GclChapter[iChapter]); WriteChapterGather(FGclControl.GclChapterGather, '第100章至第900章 合计'); end; end; procedure TrmHaBaiCustomizedData.WriteReport4_1; var iProject, iChapter, iSerial: Integer; sProjectName: string; procedure WriteGclNodeData(AGclNode: TGclNode; AChapterID: Integer); begin cdsCustomProj.Append; cdsCustomProjProjectID.AsInteger := iProject; cdsCustomProjProjectName.AsString := sProjectName; cdsCustomProjChapterID.AsInteger := AChapterID; cdsCustomProjInnerPartID.AsInteger := 2; cdsCustomProjIndexCode.AsString := AGclNode.IndexCode; cdsCustomProjB_Code.AsString := AGclNode.B_Code; cdsCustomProjName.AsString := AGclNode.Name; cdsCustomProjUnits.AsString := AGclNode.Units; cdsCustomProjPrice.AsFloat := AGclNode.Price; cdsCustomProjQuantity.AsFloat := AGclNode.Quantity; cdsCustomProjTotalPrice.AsFloat := AGclNode.TotalPrice; cdsCustomProjCurGatherQuantity.AsFloat := AGclNode.CurGatherQuantity; cdsCustomProjCurGatherTotalPrice.AsFloat := AGclNode.CurGatherTotalPrice; cdsCustomProjEndGatherQuantity.AsFloat := AGclNode.EndGatherQuantity; cdsCustomProjEndGatherTotalPrice.AsFloat := AGclNode.EndGatherTotalPrice; cdsCustomProjP_CurGatherQuantity.AsFloat := AGclNode.P_CurGatherQuantity[iProject]; cdsCustomProjP_CurGatherTotalPrice.AsFloat := AGclNode.P_CurGatherTotalPrice[iProject]; cdsCustomProjP_EndGatherQuantity.AsFloat := AGclNode.P_EndGatherQuantity[iProject]; cdsCustomProjP_EndGatherTotalPrice.AsFloat := AGclNode.P_EndGatherTotalPrice[iProject]; cdsCustomProjCurPercent.AsFloat := AGclNode.CurPercent; cdsCustomProjEndPercent.AsFloat := AGclNode.EndPercent; cdsCustomProj.Post; end; procedure WriteGclChapterData(AGclChapter: TGclChapter); var iGcl: Integer; begin if AGclChapter.GclNodeCount = 0 then Exit; for iGcl := 0 to AGclChapter.GclNodeCount - 1 do WriteGclNodeData(AGclChapter.GclNode[iGcl], AGclChapter.ChapterID); end; procedure WriteChapterGather(AGclChapter: TGclChapter; const AName: string = ''); begin cdsCustomProj.Append; cdsCustomProjProjectID.AsInteger := iProject; cdsCustomProjProjectName.AsString := sProjectName; cdsCustomProjChapterID.AsInteger := AGclChapter.ChapterID; cdsCustomProjInnerPartID.AsInteger := 3; if AName = '' then cdsCustomProjName.AsString := AGclChapter.Name else cdsCustomProjName.AsString := AName; cdsCustomProjTotalPrice.AsFloat := AGclChapter.TotalPrice; cdsCustomProjCurGatherTotalPrice.AsFloat := AGclChapter.CurGatherTotalPrice; cdsCustomProjEndGatherTotalPrice.AsFloat := AGclChapter.EndGatherTotalPrice; cdsCustomProjP_CurGatherTotalPrice.AsFloat := AGclChapter.P_CurGatherTotalPrice[iProject]; cdsCustomProjP_EndGatherTotalPrice.AsFloat := AGclChapter.P_EndGatherTotalPrice[iProject]; cdsCustomProjCurPercent.AsFloat := AGclChapter.CurPercent; cdsCustomProjEndPercent.AsFloat := AGclChapter.EndPercent; cdsCustomProj.Post; end; procedure ResortSerialNo; var iSerialNo, iProject: Integer; begin iSerialNo := 1; cdsCustomProj.First; iProject := cdsCustomProjProjectID.AsInteger; while not cdsCustomProj.Eof do begin if iProject <> cdsCustomProjProjectID.AsInteger then begin iProject := cdsCustomProjProjectID.AsInteger; iSerialNo := 1; end; cdsCustomProj.Edit; cdsCustomProjSerialNo.AsInteger := iSerialNo; cdsCustomProj.Post; Inc(iSerialNo); cdsCustomProj.Next; end; end; begin for iProject := 0 to FGclControl.ProjectCount - 1 do begin sProjectName := FGclControl.ProjectName[iProject]; for iChapter := 0 to FGclControl.GclChapterCount - 1 do WriteGclChapterData(FGclControl.GclChapter[iChapter]); WriteChapterGather(FGclControl.GclChapterGather, '第100章至第900章 合计'); end; ResortSerialNo; end; procedure TrmHaBaiCustomizedData.WriteFlowData; procedure AddNodeData(ANode: TMeasureBillsIDTreeNode); begin cdsCustom14.Append; cdsCustom14IndexCode.AsString := ANode.Rec.IndexCode.AsString; cdsCustom14B_Code.AsString := ANode.Rec.B_Code.AsString; cdsCustom14Name.AsString := ANode.Rec.Name.AsString; cdsCustom14Units.AsString := ANode.Rec.Units.AsString; cdsCustom14Price.AsFloat := ANode.Rec.Price.AsFloat; cdsCustom14Quantity.AsFloat := ANode.StageRec.GatherQuantity.AsFloat; cdsCustom14TotalPrice.AsFloat := ANode.StageRec.GatherTotalPrice.AsFloat; with FProjectData.PhaseData.ZJJLData do if cdsZJJL.Locate('BillsID', ANode.ID, []) then cdsCustom14CertificateCode.AsString := cdsZJJLCertificateCode.AsString; cdsCustom14.Post; end; var iIndex: Integer; vNode: TMeasureBillsIDTreeNode; begin for iIndex := 0 to FProjectData.BillsMeasureData.BillsMeasureTree.Count - 1 do begin vNode := TMeasureBillsIDTreeNode(FProjectData.BillsMeasureData.BillsMeasureTree.Items[iIndex]); if (not vNode.HasChildren) and (vNode.Rec.B_Code.AsString <> '') and Assigned(vNode.StageRec) and (vNode.StageRec.GatherTotalPrice.AsFloat <> 0) then AddNodeData(vNode); end; end; function TrmHaBaiCustomizedData.AssignAssistantData( AhbGatherType: THaBaiGatherType): TDataSet; begin Result := nil; if (AhbGatherType = hbgt_CS) and (FhbGatherType = hbgt_CS) then Result := cdsCustomCS_2; end; procedure TrmHaBaiCustomizedData.WriteReportCounterSign; procedure WriteCounterSign1; var i: Integer; PayNode: TPayNode; begin cdsCustomCS_1.Append; cdsCustomCS_1PulsPayName.AsString := '本期完成金额'; cdsCustomCS_1PulsPayTotalPrice.AsFloat := FDealPayControl.CompletePayNode.CurTotalPrice; cdsCustomCS_1.Post; for i := 0 to FDealPayControl.PlusPayCount - 1 do begin PayNode := FDealPayControl.PlusPayNode[i]; cdsCustomCS_1.Append; cdsCustomCS_1PulsPayName.AsString := PayNode.Name; cdsCustomCS_1PulsPayTotalPrice.AsFloat := PayNode.CurTotalPrice; cdsCustomCS_1.Post; end; cdsCustomCS_1.Append; cdsCustomCS_1PulsPayName.AsString := '迟付款利息'; cdsCustomCS_1.Post; cdsCustomCS_1.First; for i := 0 to FDealPayControl.MinusPayCount - 1 do begin PayNode := FDealPayControl.MinusPayNode[i]; if cdsCustomCS_1.Eof then cdsCustomCS_1.Append else cdsCustomCS_1.Edit; cdsCustomCS_1MinusPayName.AsString := PayNode.Name; cdsCustomCS_1MinusPayTotalPrice.AsFloat := PayNode.CurTotalPrice; cdsCustomCS_1.Post; cdsCustomCS_1.Next; end; end; procedure WriteCounterSign2; begin cdsCustomCS_2.Append; cdsCustomCS_2DealTotalPrice.AsFloat := FDealTotalPrice; cdsCustomCS_2EndCompleteTotalPrice.AsFloat := FDealPayControl.CompletePayNode.EndTotalPrice; cdsCustomCS_2PreCompleteTotalPrice.AsFloat := FDealPayControl.CompletePayNode.PreTotalPrice; cdsCustomCS_2CurPayTotalPrice.AsFloat := FDealPayControl.GatherPayNode.CurTotalPrice; cdsCustomCS_2.Post; end; begin WriteCounterSign1; WriteCounterSign2; end; { TGclNode } procedure TGclNode.Calculate; var i: Integer; begin // 金额模式下不重算 if CalcType <> 0 then Exit; FTotalPrice := FPrice * FQuantity; FCurGatherTotalPrice := FPrice * FCurGatherQuantity; FEndGatherTotalPrice := FPrice * FEndGatherQuantity; FPreGatherTotalPrice := FPrice * FPreGatherQuantity; for i := 0 to FProjectCount - 1 do begin FP_TotalPrice[i] := FPrice * FP_Quantity[i]; FP_CurGatherTotalPrice[i] := FPrice * FP_CurGatherQuantity[i]; FP_EndGatherTotalPrice[i] := FPrice * FP_EndGatherQuantity[i]; end; end; constructor TGclNode.Create(AProjectCount: Integer); begin FProjectCount := AProjectCount; SetLength(FP_Quantity, FProjectCount); SetLength(FP_TotalPrice, FProjectCount); SetLength(FP_CurGatherQuantity, FProjectCount); SetLength(FP_CurGatherTotalPrice, FProjectCount); SetLength(FP_EndGatherQuantity, FProjectCount); SetLength(FP_EndGatherTotalPrice, FProjectCount); end; function TGclNode.GetCurPercent: Double; begin if TotalPrice <> 0 then Result := CurGatherTotalPrice/TotalPrice*100 else Result := 0; end; function TGclNode.GetEndPercent: Double; begin if TotalPrice <> 0 then Result := EndGatherTotalPrice/TotalPrice*100 else Result := 0; end; procedure TGclNode.SetB_Code(const Value: string); begin FB_Code := Value; FIndexCode := B_CodeToIndexCode(FB_Code); end; { TGclControl } function TGclControl.AddGclNode(ANode: TMeasureBillsIDTreeNode; AProjectIndex: Integer): TGclNode; begin Result := FindGclNode(ANode.Rec); if not Assigned(Result) then Result := NewGclNode(ANode.Rec); with ANode.Rec do begin Result.Quantity := Result.Quantity + Quantity.AsFloat; Result.TotalPrice := Result.TotalPrice + TotalPrice.AsFloat; Result.P_Quantity[AProjectIndex] := Result.P_Quantity[AProjectIndex] + Quantity.AsFloat; Result.P_TotalPrice[AProjectIndex] := Result.P_TotalPrice[AProjectIndex] + TotalPrice.AsFloat; end; if Assigned(ANode.StageRec) then with ANode.StageRec do begin Result.CurGatherQuantity := Result.CurGatherQuantity + GatherQuantity.AsFloat; Result.CurGatherTotalPrice := Result.CurGatherTotalPrice + GatherTotalPrice.AsFloat; Result.P_CurGatherQuantity[AProjectIndex] := Result.P_CurGatherQuantity[AProjectIndex] + GatherQuantity.AsFloat; Result.P_CurGatherTotalPrice[AProjectIndex] := Result.P_CurGatherTotalPrice[AProjectIndex] + GatherTotalPrice.AsFloat; Result.EndGatherQuantity := Result.EndGatherQuantity + EndGatherQuantity.AsFloat; Result.EndGatherTotalPrice := Result.EndGatherTotalPrice + EndGatherTotalPrice.AsFloat; Result.P_EndGatherQuantity[AProjectIndex] := Result.P_EndGatherQuantity[AProjectIndex] + EndGatherQuantity.AsFloat; Result.P_EndGatherTotalPrice[AProjectIndex] := Result.P_EndGatherTotalPrice[AProjectIndex] + EndGatherTotalPrice.AsFloat; Result.PreGatherQuantity := Result.PreGatherQuantity + PreGatherQuantity.AsFloat; Result.PreGatherTotalPrice := Result.PreGatherTotalPrice + PreGatherTotalPrice.AsFloat; end; end; function TGclControl.B_CodeToChapter(const AB_Code: string): Integer; var sgs: TStrings; iFirst, iSecond: Integer; begin Result := 0; sgs := TStringList.Create; try sgs.Delimiter := '-'; sgs.DelimitedText := AB_Code; iFirst := StrToIntDef(sgs.Strings[0], 0); Result := Trunc(iFirst/100); if (Result >= 90) and (Result < 100) then Result := 9; finally sgs.Free; end; end; procedure TGclControl.CalculateChapterGather; var iIndex, iProject: Integer; vGclChapter: TGclChapter; begin FGclChapterGather.TotalPrice := 0; FGclChapterGather.CurGatherTotalPrice := 0; FGclChapterGather.EndGatherTotalPrice := 0; FGclChapterGather.PreGatherTotalPrice := 0; for iProject := 0 to FProjectCount - 1 do begin FGclChapterGather.P_TotalPrice[iProject] := 0; FGclChapterGather.P_CurGatherTotalPrice[iProject] := 0; FGclChapterGather.P_EndGatherTotalPrice[iProject] := 0; end; for iIndex := 0 to FGclChapters.Count - 1 do begin vGclChapter := TGclChapter(FGclChapters.Items[iIndex]); with FGclChapterGather do begin TotalPrice := TotalPrice + vGclChapter.TotalPrice; CurGatherTotalPrice := CurGatherTotalPrice + vGclChapter.CurGatherTotalPrice; EndGatherTotalPrice := EndGatherTotalPrice + vGclChapter.EndGatherTotalPrice; PreGatherTotalPrice := PreGatherTotalPrice + vGclChapter.PreGatherTotalPrice; for iProject := 0 to FProjectCount - 1 do begin P_TotalPrice[iProject] := P_TotalPrice[iProject] + vGclChapter.P_TotalPrice[iProject]; P_CurGatherTotalPrice[iProject] := P_CurGatherTotalPrice[iProject] + vGclChapter.P_CurGatherTotalPrice[iProject]; P_EndGatherTotalPrice[iProject] := P_EndGatherTotalPrice[iProject] + vGclChapter.P_EndGatherTotalPrice[iProject]; end; end; end; end; constructor TGclControl.Create(AProjectCount: Integer; AIsHaBai: Boolean); function CreateGclChapter(AChapterID: Integer; const AName: string): TGclChapter; begin Result := TGclChapter.Create(AChapterID, AName, FProjectCount); FGclChapters.Add(Result); end; begin FProjectCount := AProjectCount; SetLength(FProjectName, AProjectCount); FGclNodes := TList.Create; FGclChapters := TList.Create; CreateGclChapter(1, '总 则'); CreateGclChapter(2, '路 基'); CreateGclChapter(3, '路 面'); CreateGclChapter(4, '桥梁、涵洞工程'); CreateGclChapter(5, '隧 道'); CreateGclChapter(6, '安全设计及预埋管线'); CreateGclChapter(7, '绿化及环境保护工程'); if AIsHaBai then begin CreateGclChapter(8, '房建工程'); CreateGclChapter(9, '机电工程'); end else begin CreateGclChapter(8, '机电工程'); CreateGclChapter(9, '房建工程'); end; FOtherGcl := TGclChapter.Create(19, '非标准清单', FProjectCount); FGclChapterGather := TGclChapter.Create(20, '第100章至900章合计', FProjectCount); end; destructor TGclControl.Destroy; begin FOtherGcl.Free; FGclChapterGather.Free; ClearObjects(FGclChapters); FGclChapters.Free; ClearObjects(FGclNodes); FGclNodes.Free; end; function TGclControl.FindGclNode(ARec: TBillsRecord): TGclNode; var iIndex: Integer; vGclNode: TGclNode; bSameCode, bSameName, bSameUnits, bSamePrice: Boolean; begin Result := nil; for iIndex := 0 to FGclNodes.Count - 1 do begin vGclNode := TGclNode(FGclNodes.Items[iIndex]); if (vGclNode.B_Code = ARec.B_Code.AsString) and (vGclNode.Name = ARec.Name.AsString) and (vGclNode.Units = ARec.Units.AsString) and (vGclNode.Price = ARec.Price.AsFloat) and (vGclNode.CalcType = ARec.CalcType.AsInteger)then begin Result := vGclNode; Break; end; end; end; function TGclControl.FindGclChapter(AChapterID: Integer): TGclChapter; var iIndex: Integer; vChapter: TGclChapter; begin Result := nil; for iIndex := 0 to FGclChapters.Count - 1 do begin vChapter := TGclChapter(FGclChapters.Items[iIndex]); if vChapter.ChapterID = AChapterID then begin Result := vChapter; Break; end; end; end; function TGclControl.GetGclChapter(AIndex: Integer): TGclChapter; begin Result := TGclChapter(FGclChapters.Items[AIndex]); end; function TGclControl.GetGclChapterCount: Integer; begin Result := FGclChapters.Count; end; procedure TGclControl.LinkGclChapter(AGclNode: TGclNode); var iChapterID: Integer; vChapter: TGclChapter; begin iChapterID := B_CodeToChapter(AGclNode.B_Code); vChapter := FindGclChapter(iChapterID); if Assigned(vChapter) then vChapter.AddGclNode(AGclNode) else FOtherGcl.AddGclNode(AGclNode); end; function TGclControl.NewGclNode(ARec: TBillsRecord): TGclNode; begin Result := TGclNode.Create(FProjectCount); FGclNodes.Add(Result); Result.B_Code := ARec.B_Code.AsString; Result.Name := ARec.Name.AsString; Result.Units := ARec.Units.AsString; Result.Price := ARec.Price.AsFloat; Result.CalcType := ARec.CalcType.AsInteger; LinkGclChapter(Result); end; procedure TGclControl.Calculate; var i: Integer; begin for i := 0 to GclChapterCount - 1 do GclChapter[i].CalculateChapter; CalculateChapterGather; end; procedure TGclControl.ReCalculateTotalPrice; var iGcl: Integer; begin for iGcl := 0 to FGclNodes.Count - 1 do TGclNode(FGclNodes[iGcl]).Calculate; end; { TGclChapter } procedure TGclChapter.AddGclNode(AGclNode: TGclNode); begin FGclNodes.Add(AGclNode); end; procedure TGclChapter.CalculateChapter; var iIndex, iProject: Integer; vGclNode: TGclNode; begin FTotalPrice := 0; FCurGatherTotalPrice := 0; FEndGatherTotalPrice := 0; FPreGatherTotalPrice := 0; for iProject := 0 to FProjectCount - 1 do begin FP_TotalPrice[iProject] := 0; FP_CurGatherTotalPrice[iProject] := 0; FP_EndGatherTotalPrice[iProject] := 0; end; for iIndex := 0 to FGclNodes.Count - 1 do begin vGclNode := TGclNode(FGclNodes.Items[iIndex]); FTotalPrice := FTotalPrice + vGclNode.TotalPrice; FCurGatherTotalPrice := FCurGatherTotalPrice + vGclNode.FCurGatherTotalPrice; FEndGatherTotalPrice := FEndGatherTotalPrice + vGclNode.FEndGatherTotalPrice; FPreGatherTotalPrice := FPreGatherTotalPrice + vGclNode.FPreGatherTotalPrice; for iProject := 0 to FProjectCount - 1 do begin FP_TotalPrice[iProject] := FP_TotalPrice[iProject] + vGclNode.P_TotalPrice[iProject]; FP_CurGatherTotalPrice[iProject] := FP_CurGatherTotalPrice[iProject] + vGclNode.P_CurGatherTotalPrice[iProject]; FP_EndGatherTotalPrice[iProject] := FP_EndGatherTotalPrice[iProject] + vGclNode.P_EndGatherTotalPrice[iProject]; end; end; end; constructor TGclChapter.Create(AChapterID: Integer; const AName: string; AProjectCount: Integer); begin FGclNodes := TList.Create; FChapterID := AChapterID; if FChapterID < 19 then begin FChapterBegin := FChapterID * 100; FChapterEnd := FChapterBegin + 99; FChapterName := Format('第%d章', [FChapterBegin]); end; FName := AName; FProjectCount := AProjectCount; SetLength(FP_TotalPrice, FProjectCount); SetLength(FP_CurGatherTotalPrice, FProjectCount); SetLength(FP_EndGatherTotalPrice, FProjectCount); end; destructor TGclChapter.Destroy; begin FGclNodes.Free; inherited; end; function TGclChapter.GetCurPercent: Double; begin if TotalPrice <> 0 then Result := CurGatherTotalPrice/TotalPrice*100 else Result := 0; end; function TGclChapter.GetEndPercent: Double; begin if TotalPrice <> 0 then Result := EndGatherTotalPrice/TotalPrice*100 else Result := 0; end; function TGclChapter.GetGclNode(AIndex: Integer): TGclNode; begin Result := TGclNode(FGclNodes.Items[AIndex]); end; function TGclChapter.GetGclNodeCount: Integer; begin Result := FGclNodes.Count; end; { TDealPayControl } function TDealPayControl.AddMinusPayNode(const AName: string): TPayNode; begin Result := FindMinusPayNode(AName); if not Assigned(Result) then Result := NewMinusPayNode(AName); end; function TDealPayControl.AddPayNode(const AName: string; AIsMinus: Boolean): TPayNode; begin if AIsMinus then Result := AddMinusPayNode(AName) else Result := AddPlusPayNode(AName); end; function TDealPayControl.AddPlusPayNode(const AName: string): TPayNode; begin Result := FindPlusPayNode(AName); if not Assigned(Result) then Result := NewPlusPayNode(AName); end; procedure TDealPayControl.CalculateAll; begin CalculateGather(FPlusGather, FPlusPayNodes); CalculateGather(FMinusGather, FMinusPayNodes); end; procedure TDealPayControl.CalculateGather(AGather: TPayNode; ANodes: TList); var i: Integer; vPayNode: TPayNode; begin AGather.CurTotalPrice := 0; AGather.EndTotalPrice := 0; AGather.PreTotalPrice := 0; for i := 0 to ANodes.Count - 1 do begin vPayNode := TPayNode(ANodes.Items[i]); AGather.CurTotalPrice := AGather.CurTotalPrice + vPayNode.CurTotalPrice; AGather.EndTotalPrice := AGather.EndTotalPrice + vPayNode.EndTotalPrice; AGather.PreTotalPrice := AGather.PreTotalPrice + vPayNode.PreTotalPrice; end; end; constructor TDealPayControl.Create; begin FPlusPayNodes := TList.Create; FMinusPayNodes := TList.Create; FPlusGather := TPayNode.Create; FMinusGather := TPayNode.Create; FGatherPayNode := TPayNode.Create; FGatherPayNode.Name := '本期应付'; FCompletePayNode :=TPayNode.Create; FCompletePayNode.Name := '本期完成计量'; end; destructor TDealPayControl.Destroy; begin FCompletePayNode.Free; FGatherPayNode.Free; FMinusGather.Free; FPlusGather.Free; ClearObjects(FMinusPayNodes); FMinusPayNodes.Free; ClearObjects(FPlusPayNodes); FPlusPayNodes.Free; inherited; end; function TDealPayControl.FindMinusPayNode(const AName: string): TPayNode; var iIndex: Integer; vPayNode: TPayNode; begin Result := nil; for iIndex := 0 to FMinusPayNodes.Count -1 do begin vPayNode := TPayNode(FMinusPayNodes.Items[iIndex]); if (vPayNode.Name = AName) then begin Result := vPayNode; Break; end; end; end; function TDealPayControl.FindPlusPayNode(const AName: string): TPayNode; var iIndex: Integer; vPayNode: TPayNode; begin Result := nil; for iIndex := 0 to FPlusPayNodes.Count -1 do begin vPayNode := TPayNode(FPlusPayNodes.Items[iIndex]); if (vPayNode.Name = AName) then begin Result := vPayNode; Break; end; end; end; function TDealPayControl.GetMinusPayCount: Integer; begin Result := FMinusPayNodes.Count; end; function TDealPayControl.GetMinusPayNode(AIndex: Integer): TPayNode; begin Result := TPayNode(FMinusPayNodes.Items[AIndex]); end; function TDealPayControl.GetPlusPayCount: Integer; begin Result := FPlusPayNodes.Count; end; function TDealPayControl.GetPlusPayNode(AIndex: Integer): TPayNode; begin Result := TPayNode(FPlusPayNodes.Items[AIndex]); end; function TDealPayControl.NewMinusPayNode(const AName: string): TPayNode; begin Result := TPayNode.Create; FMinusPayNodes.Add(Result); Result.Name := AName; Result.IsMinus := True; end; function TDealPayControl.NewPlusPayNode(const AName: string): TPayNode; begin Result := TPayNode.Create; FPlusPayNodes.Add(Result); Result.Name := AName; Result.IsMinus := False; end; end.