Measure/Units/mDataRecord.pas

unit mDataRecord;

interface

uses
  Classes, sdDB;

type
  TMeasureBaseRecord = class(TsdDataRecord)
  public
    procedure SetFloatValue(AValue: TsdValue; AFloat: Double);
    procedure SetIntValue(AValue: TsdValue; AInt: Integer);
    procedure SetBoolValue(AValue: TsdValue; ABool: Boolean);

    procedure AddDifferValue(AValue: TsdValue; ADiffer: Double);
  end;

  TBillsRecord = class(TMeasureBaseRecord)
  private
    // 树结构
    FID: TsdValue;
    FParentID: TsdValue;
    FNextSiblingID: TsdValue;
    // 报表专用
    FSerialNo: TsdValue;
    FIsLeaf: TsdValue;
    FLeafXmjID: TsdValue;
    FXiangCode: TsdValue;
    FMuCode: TsdValue;
    FJieCode: TsdValue;
    FXimuCode: TsdValue;
    FIndexCode: TsdValue;
    // 基础数据
    FCode: TsdValue;
    FB_Code: TsdValue;
    FName: TsdValue;
    FUnits: TsdValue;
    FAlias: TsdValue;
    // 单价
    FPrice: TsdValue;
    FNewPrice: TsdValue;
    // 0号台账计算相关
    FOrgQuantity: TsdValue;
    FOrgTotalPrice: TsdValue;
    FMisQuantity: TsdValue;
    FMisTotalPrice: TsdValue;
    FOthQuantity: TsdValue;
    FOthTotalPrice: TsdValue;
    FQuantity: TsdValue;
    FTotalPrice: TsdValue;
    // 累计
    FAddDealQuantity: TsdValue;
    FAddDealTotalPrice: TsdValue;

    FAddQcQuantity: TsdValue;
    FAddQcTotalPrice: TsdValue;
    FAddQcBGLCode: TsdValue;
    FAddQcBGLNum: TsdValue;

    FAddPcQuantity: TsdValue;
    FAddPcTotalPrice: TsdValue;
    FAddPcBGLCode: TsdValue;
    FAddPcBGLNum: TsdValue;

    FAddGatherQuantity: TsdValue;
    FAddGatherTotalPrice: TsdValue;

    FLockLevel: TsdValue;
    FLockInfo: TsdValue;
    FLockNewPrice: TsdValue;
    FCreatePhaseID: TsdValue;
    FIsMeasureAdd: TsdValue;

    FPeg: TsdValue;
    FDrawingCode: TsdValue;
    FMemoStr: TsdValue;

    FDgnQuantity1: TsdValue;
    FDgnQuantity2: TsdValue;
    FDgnPrice: TsdValue;

    FDealDgnQuantity1: TsdValue;
    FDealDgnQuantity2: TsdValue;
    FCDgnQuantity1: TsdValue;
    FCDgnQuantity2: TsdValue;
    FAddDgnPrice: TsdValue;

    FHasBookMark: TsdValue;
    FMarkMemo: TsdValue;

    FDealCode: TsdValue;
    FDealCompany: TsdValue;
    FDealType: TsdValue;
    FAddCutTotalPrice: TsdValue;
    FAddPayTotalPrice: TsdValue;

    FAddCompleteRate: TsdValue;

    FPM_AddTotalPrice: TsdValue;
  protected
    procedure DoAfterAddFields; override;
  public
    property ID: TsdValue read FID;
    property ParentID: TsdValue read FParentID;
    property NextSiblingID: TsdValue read FNextSiblingID;

    property SerialNo: TsdValue read FSerialNo;
    property IsLeaf: TsdValue read FIsLeaf;
    property LeafXmjID: TsdValue read FLeafXmjID;
    property XiangCode: TsdValue read FXiangCode;
    property MuCode: TsdValue read FMuCode;
    property JieCode: TsdValue read FJieCode;
    property XimuCode: TsdValue read FXimuCode;
    property IndexCode: TsdValue read FIndexCode;

    property Code: TsdValue read FCode;
    property B_Code: TsdValue read FB_Code;
    property Name: TsdValue read FName;
    property Units: TsdValue read FUnits;
    property Alias: TsdValue read FAlias;

    property Price: TsdValue read FPrice;
    property NewPrice: TsdValue read FNewPrice;

    property OrgQuantity: TsdValue read FOrgQuantity;
    property OrgTotalPrice: TsdValue read FOrgTotalPrice;
    property MisQuantity: TsdValue read FMisQuantity;
    property MisTotalPrice: TsdValue read FMisTotalPrice;
    property OthQuantity: TsdValue read FOthQuantity;
    property OthTotalPrice: TsdValue read FOthTotalPrice;
    property Quantity: TsdValue read FQuantity;
    property TotalPrice: TsdValue read FTotalPrice;

    property AddDealQuantity: TsdValue read FAddDealQuantity;
    property AddDealTotalPrice: TsdValue read FAddDealTotalPrice;

    property AddQcQuantity: TsdValue read FAddQcQuantity;
    property AddQcTotalPrice: TsdValue read FAddQcTotalPrice;
    property AddQcBGLCode: TsdValue read FAddQcBGLCode;
    property AddQcBGLNum: TsdValue read FAddQcBGLNum;

    property AddPcQuantity: TsdValue read FAddPcQuantity;
    property AddPcTotalPrice: TsdValue read FAddPcTotalPrice;
    property AddPcBGLCode: TsdValue read FAddPcBGLCode;
    property AddPcBGLNum: TsdValue read FAddPcBGLNum;

    property AddGatherQuantity: TsdValue read FAddGatherQuantity;
    property AddGatherTotalPrice: TsdValue read FAddGatherTotalPrice;

    property LockLevel: TsdValue read FLockLevel;
    property LockInfo: TsdValue read FLockInfo;
    property LockNewPrice: TsdValue read FLockNewPrice;
    property CreatePhaseID: TsdValue read FCreatePhaseID;
    property IsMeasureAdd: TsdValue read FIsMeasureAdd;

    property Peg: TsdValue read FPeg;
    property DrawingCode: TsdValue read FDrawingCode;
    property MemoStr: TsdValue read FMemoStr;

    property DgnQuantity1: TsdValue read FDgnQuantity1;
    property DgnQuantity2: TsdValue read FDgnQuantity2;
    property DgnPrice: TsdValue read FDgnPrice;

    property DealDgnQuantity1: TsdValue read FDealDgnQuantity1;
    property DealDgnQuantity2: TsdValue read FDealDgnQuantity2;
    property CDgnQuantity1: TsdValue read FCDgnQuantity1;
    property CDgnQuantity2: TsdValue read FCDgnQuantity2;
    property AddDgnPrice: TsdValue read FAddDgnPrice;

    property HasBookMark: TsdValue read FHasBookMark;
    property MarkMemo: TsdValue read FMarkMemo;

    property DealCode: TsdValue read FDealCode;
    property DealCompany: TsdValue read FDealCompany;
    property DealType: TsdValue read FDealType;
    property AddCutTotalPrice: TsdValue read FAddCutTotalPrice;
    property AddPayTotalPrice: TsdValue read FAddPayTotalPrice;

    property AddCompleteRate: TsdValue read FAddCompleteRate;

    property PM_AddTotalPrice: TsdValue read FPM_AddTotalPrice;
  end;

  TStageRecord = class(TMeasureBaseRecord)
  private
    FBillsID: TsdValue;

    FDealQuantity: TsdValue;
    FDealTotalPrice: TsdValue;
    FDealFlag: TsdValue;
    FDealFormula: TsdValue;

    FQcQuantity: TsdValue;
    FQcTotalPrice: TsdValue;
    FQcFlag: TsdValue;
    FQcFormula: TsdValue;
    FQcBGLCode: TsdValue;
    FQcBGLNum: TsdValue;

    FPcQuantity: TsdValue;
    FPcTotalPrice: TsdValue;
    FPcFlag: TsdValue;
    FPcFormula: TsdValue;
    FPcBGLCode: TsdValue;
    FPcBGLNum: TsdValue;

    FGatherQuantity: TsdValue;
    FGatherTotalPrice: TsdValue;

    FEndDealQuantity: TsdValue;
    FEndDealTotalPrice: TsdValue;
    FEndQcQuantity: TsdValue;
    FEndQcTotalPrice: TsdValue;
    FEndQcBGLCode: TsdValue;
    FEndQcBGLNum: TsdValue;
    FEndPcQuantity: TsdValue;
    FEndPcTotalPrice: TsdValue;
    FEndPcBGLCode: TsdValue;
    FEndPcBGLNum: TsdValue;
    FEndGatherQuantity: TsdValue;
    FEndGatherTotalPrice: TsdValue;

    FPreDealQuantity: TsdValue;
    FPreDealTotalPrice: TsdValue;
    FPreQcQuantity: TsdValue;
    FPreQcTotalPrice: TsdValue;
    FPreQcBGLCode: TsdValue;
    FPreQcBGLNum: TsdValue;
    FPrePcQuantity: TsdValue;
    FPrePcTotalPrice: TsdValue;
    FPrePcBGLCode: TsdValue;
    FPrePcBGLNum: TsdValue;
    FPreGatherQuantity: TsdValue;
    FPreGatherTotalPrice: TsdValue;

    FHasBookMark: TsdValue;
    FMarkMemo: TsdValue;

    FPM_PreTotalPrice: TsdValue;
    FPM_TotalPrice: TsdValue;
  protected
    procedure DoAfterAddFields; override;
  public
    property BillsID: TsdValue read FBillsID;

    property DealQuantity: TsdValue read FDealQuantity;
    property DealTotalPrice: TsdValue read FDealTotalPrice;
    property DealFlag: TsdValue read FDealFlag;
    property DealFormula: TsdValue read FDealFormula;

    property QcQuantity: TsdValue read FQcQuantity;
    property QcTotalPrice: TsdValue read FQcTotalPrice;
    property QcFlag: TsdValue read FQcFlag;
    property QcFormula: TsdValue read FQcFormula;
    property QcBGLCode: TsdValue read FQcBGLCode;
    property QcBGLNum: TsdValue read FQcBGLNum;

    property PcQuantity: TsdValue read FPcQuantity;
    property PcTotalPrice: TsdValue read FPcTotalPrice;
    property PcFlag: TsdValue read FPcFlag;
    property PcFormula: TsdValue read FPcFormula;
    property PcBGLCode: TsdValue read FPcBGLCode;
    property PcBGLNum: TsdValue read FPcBGLNum;

    property GatherQuantity: TsdValue read FGatherQuantity;
    property GatherTotalPrice: TsdValue read FGatherTotalPrice;

    property EndDealQuantity: TsdValue read FEndDealQuantity;
    property EndDealTotalPrice: TsdValue read FEndDealTotalPrice;
    property EndQcQuantity: TsdValue read FEndQcQuantity;
    property EndQcTotalPrice: TsdValue read FEndQcTotalPrice;
    property EndQcBGLCode: TsdValue read FEndQcBGLCode;
    property EndQcBGLNum: TsdValue read FEndQcBGLNum;
    property EndPcQuantity: TsdValue read FEndPcQuantity;
    property EndPcTotalPrice: TsdValue read FEndPcTotalPrice;
    property EndPcBGLCode: TsdValue read FEndPcBGLCode;
    property EndPcBGLNum: TsdValue read FEndPcBGLNum;
    property EndGatherQuantity: TsdValue read FEndGatherQuantity;
    property EndGatherTotalPrice: TsdValue read FEndGatherTotalPrice;

    property PreDealQuantity: TsdValue read FPreDealQuantity;
    property PreDealTotalPrice: TsdValue read FPreDealTotalPrice;
    property PreQcQuantity: TsdValue read FPreQcQuantity;
    property PreQcTotalPrice: TsdValue read FPreQcTotalPrice;
    property PreQcBGLCode: TsdValue read FPreQcBGLCode;
    property PreQcBGLNum: TsdValue read FPreQcBGLNum;
    property PrePcQuantity: TsdValue read FPrePcQuantity;
    property PrePcTotalPrice: TsdValue read FPrePcTotalPrice;
    property PrePcBGLCode: TsdValue read FPrePcBGLCode;
    property PrePcBGLNum: TsdValue read FPrePcBGLNum;
    property PreGatherQuantity: TsdValue read FPreGatherQuantity;
    property PreGatherTotalPrice: TsdValue read FPreGatherTotalPrice;

    property HasBookMark: TsdValue read FHasBookMark;
    property MarkMemo: TsdValue read FMarkMemo;

    property PM_PreTotalPrice: TsdValue read FPM_PreTotalPrice;
    property PM_TotalPrice: TsdValue read FPM_TotalPrice;
  end;

  TProjectGLRecord = class(TMeasureBaseRecord)
  private
    FID: TsdValue;
    FCode: TsdValue;
    FName: TsdValue;
    FUnits: TsdValue;
    FSpecs: TsdValue;
    FBasePrice: TsdValue;
    FRiskRange: TsdValue;
    FLockedPhaseID: TsdValue;
    FCreatePhaseID: TsdValue;

    FInfoPrice: TsdValue;
    FInfoDate: TsdValue;
    FDeltaPrice: TsdValue;
    FValidDeltaPrice: TsdValue;

    FPM_PreQuantity: TsdValue;
    FPM_PreTotalPrice: TsdValue;
    FPM_Quantity: TsdValue;
    FPM_TotalPrice: TsdValue;
  protected
    procedure DoAfterAddFields; override;
  public
    property ID: TsdValue read FID;
    property Code: TsdValue read FCode;
    property Name: TsdValue read FName;
    property Units: TsdValue read FUnits;
    property Specs: TsdValue read FSpecs;
    property BasePrice: TsdValue read FBasePrice;
    property RiskRange: TsdValue read FRiskRange;
    property LockedPhaseID: TsdValue read FLockedPhaseID;
    property CreatePhaseID: TsdValue read FCreatePhaseID;

    property InfoPrice: TsdValue read FInfoPrice;
    property InfoDate: TsdValue read FInfoDate;
    property DeltaPrice: TsdValue read FDeltaPrice;
    property ValidDeltaPrice: TsdValue read FValidDeltaPrice;

    property PM_PreQuantity: TsdValue read FPM_PreQuantity;
    property PM_PreTotalPrice: TsdValue read FPM_PreTotalPrice;
    property PM_Quantity: TsdValue read FPM_Quantity;
    property PM_TotalPrice: TsdValue read FPM_TotalPrice;
  end;

  TDetailGLRecord = class(TMeasureBaseRecord)
  private
    FID: TsdValue;
    FBillsID: TsdValue;
    FGLID: TsdValue;

    FCode: TsdValue;
    FQuantity: TsdValue;

    FCreatePhaseID: TsdValue;

    FLastBillsQuantity: TsdValue;
    FLockedPhaseID: TsdValue;

    FRelaProjectGL: TProjectGLRecord;
  protected
    procedure DoAfterAddFields; override;
  public
    property ID: TsdValue read FID;
    property BillsID: TsdValue read FBillsID;
    property GLID: TsdValue read FGLID;

    property Code: TsdValue read FCode;
    property Quantity: TsdValue read FQuantity;

    property CreatePhaseID: TsdValue read FCreatePhaseID;

    property LastBillsQuantity: TsdValue read FLastBillsQuantity;
    property LockedPhaseID: TsdValue read FLockedPhaseID;

    property RelaProjectGL: TProjectGLRecord read FRelaProjectGL write FRelaProjectGL;
  end;

implementation

{ TBillsRecord }

procedure TBillsRecord.DoAfterAddFields;
begin
  inherited;
  FID := ValueByName('ID');
  FParentID := ValueByName('ParentID');
  FNextSiblingID := ValueByName('NextSiblingID');

  FSerialNo := ValueByName('SerialNo');
  FIsLeaf := ValueByName('IsLeaf');
  FLeafXmjID := ValueByName('LeafXmjID');
  FXiangCode := ValueByName('XiangCode');
  FMuCode := ValueByName('MuCode');
  FJieCode := ValueByName('JieCode');
  FXimuCode := ValueByName('XimuCode');
  FIndexCode := ValueByName('IndexCode');

  FCode := ValueByName('Code');
  FB_Code := ValueByName('B_Code');
  FName := ValueByName('Name');
  FUnits := ValueByName('Units');
  FAlias := ValueByName('Alias');

  FPrice := ValueByName('Price');
  FNewPrice := ValueByName('NewPrice');

  FOrgQuantity := ValueByName('OrgQuantity');
  FOrgTotalPrice := ValueByName('OrgTotalPrice');
  FMisQuantity := ValueByName('MisQuantity');
  FMisTotalPrice := ValueByName('MisTotalPrice');
  FOthQuantity := ValueByName('OthQuantity');
  FOthTotalPrice := ValueByName('OthTotalPrice');
  FQuantity := ValueByName('Quantity');
  FTotalPrice := ValueByName('TotalPrice');

  FAddDealQuantity := ValueByName('AddDealQuantity');
  FAddDealTotalPrice := ValueByName('AddDealTotalPrice');

  FAddQcQuantity := ValueByName('AddQcQuantity');
  FAddQcTotalPrice := ValueByName('AddQcTotalPrice');
  FAddQcBGLCode := ValueByName('AddQcBGLCode');
  FAddQcBGLNum := ValueByName('AddQcBGLNum');

  FAddPcQuantity := ValueByName('AddPcQuantity');
  FAddPcTotalPrice := ValueByName('AddPcTotalPrice');
  FAddPcBGLCode := ValueByName('AddPcBGLCode');
  FAddPcBGLNum := ValueByName('AddPcBGLNum');

  FAddGatherQuantity := ValueByName('AddGatherQuantity');
  FAddGatherTotalPrice := ValueByName('AddGatherTotalPrice');

  FLockLevel := ValueByName('LockLevel');
  FLockInfo := ValueByName('LockInfo');
  FLockNewPrice := ValueByName('LockNewPrice');
  FCreatePhaseID := ValueByName('CreatePhaseID');
  FIsMeasureAdd := ValueByName('IsMeasureAdd');

  FPeg := ValueByName('Peg');
  FDrawingCode := ValueByName('DrawingCode');
  FMemoStr := ValueByName('MemoStr');

  FDgnQuantity1 := ValueByName('DgnQuantity1');
  FDgnQuantity2 := ValueByName('DgnQuantity2');
  FDgnPrice := ValueByName('DgnPrice');

  FDealDgnQuantity1 := ValueByName('DealDgnQuantity1');
  FDealDgnQuantity2 := ValueByName('DealDgnQuantity2');
  FCDgnQuantity1 := ValueByName('CDgnQuantity1');
  FCDgnQuantity2 := ValueByName('CDgnQuantity2');
  FAddDgnPrice := ValueByName('AddDgnPrice');

  FHasBookMark := ValueByName('HasBookMark');
  FMarkMemo := ValueByName('MarkMemo');

  FDealCode := ValueByName('DealCode');
  FDealCompany := ValueByName('DealCompany');
  FDealType := ValueByName('DealType');
  FAddCutTotalPrice := ValueByName('AddCutTotalPrice');
  FAddPayTotalPrice := ValueByName('AddPayTotalPrice');

  FAddCompleteRate := ValueByName('AddCompleteRate');
  
  FPM_AddTotalPrice := ValueByName('PM_AddTotalPrice');
end;

{ TStageRecord }

procedure TStageRecord.DoAfterAddFields;
begin
  inherited;
  FBillsID := ValueByName('BillsID');

  FDealQuantity := ValueByName('DealQuantity');
  FDealTotalPrice := ValueByName('DealTotalPrice');
  FDealFlag := ValueByName('DealFlag');
  FDealFormula := ValueByName('DealFormula');

  FQcQuantity := ValueByName('QcQuantity');
  FQcTotalPrice := ValueByName('QcTotalPrice');
  FQcFlag := ValueByName('QcFlag');
  FQcFormula := ValueByName('QcFormula');
  FQcBGLCode := ValueByName('QcBGLCode');
  FQcBGLNum := ValueByName('QcBGLNum');

  FPcQuantity := ValueByName('PcQuantity');
  FPcTotalPrice := ValueByName('PcTotalPrice');
  FPcFlag := ValueByName('PcFlag');
  FPcFormula := ValueByName('PcFormula');
  FPcBGLCode := ValueByName('PcBGLCode');
  FPcBGLNum := ValueByName('PcBGLNum');

  FGatherQuantity := ValueByName('GatherQuantity');
  FGatherTotalPrice := ValueByName('GatherTotalPrice');

  FEndDealQuantity := ValueByName('EndDealQuantity');
  FEndDealTotalPrice := ValueByName('EndDealTotalPrice');
  FEndQcQuantity := ValueByName('EndQcQuantity');
  FEndQcTotalPrice := ValueByName('EndQcTotalPrice');
  FEndQcBGLCode := ValueByName('EndQcBGLCode');
  FEndQcBGLNum := ValueByName('EndQcBGLNum');
  FEndPcQuantity := ValueByName('EndPcQuantity');
  FEndPcTotalPrice := ValueByName('EndPcTotalPrice');
  FEndPcBGLCode := ValueByName('EndPcBGLCode');
  FEndPcBGLNum := ValueByName('EndPcBGLNum');
  FEndGatherQuantity := ValueByName('EndGatherQuantity');
  FEndGatherTotalPrice := ValueByName('EndGatherTotalPrice');

  FPreDealQuantity := ValueByName('PreDealQuantity');
  FPreDealTotalPrice := ValueByName('PreDealTotalPrice');
  FPreQcQuantity := ValueByName('PreQcQuantity');
  FPreQcTotalPrice := ValueByName('PreQcTotalPrice');
  FPreQcBGLCode := ValueByName('PreQcBGLCode');
  FPreQcBGLNum := ValueByName('PreQcBGLNum');
  FPrePcQuantity := ValueByName('PrePcQuantity');
  FPrePcTotalPrice := ValueByName('PrePcTotalPrice');
  FPrePcBGLCode := ValueByName('PrePcBGLCode');
  FPrePcBGLNum := ValueByName('PrePcBGLNum');
  FPreGatherQuantity := ValueByName('PreGatherQuantity');
  FPreGatherTotalPrice := ValueByName('PreGatherTotalPrice');

  FHasBookMark := ValueByName('HasBookMark');
  FMarkMemo := ValueByName('MarkMemo');

  FPM_PreTotalPrice := ValueByName('PM_PreTotalPrice');
  FPM_TotalPrice := ValueByName('PM_TotalPrice');
end;

{ TProjectGLRecord }

procedure TProjectGLRecord.DoAfterAddFields;
begin
  inherited;
  FID := ValueByName('ID');
  FCode := ValueByName('Code');
  FName := ValueByName('Name');
  FUnits := ValueByName('Units');
  FSpecs := ValueByName('Specs');
  FBasePrice := ValueByName('BasePrice');
  FRiskRange := ValueByName('RiskRange');
  FLockedPhaseID := ValueByName('LockedPhaseID');
  FCreatePhaseID := ValueByName('CreatePhaseID');

  FInfoPrice := ValueByName('InfoPrice');
  FInfoDate := ValueByName('InfoDate');
  FDeltaPrice := ValueByName('DeltaPrice');
  FValidDeltaPrice := ValueByName('ValidDeltaPrice');

  FPM_PreQuantity := ValueByName('PM_PreQuantity');
  FPM_PreTotalPrice := ValueByName('PM_PreTotalPrice');
  FPM_Quantity := ValueByName('PM_Quantity');
  FPM_TotalPrice := ValueByName('PM_TotalPrice');
end;

{ TDetailGLRecord }

procedure TDetailGLRecord.DoAfterAddFields;
begin
  inherited;
  FID := ValueByName('ID');
  FBillsID := ValueByName('BillsID');
  FGLID := ValueByName('GLID');

  FCode := ValueByName('Code');
  FQuantity := ValueByName('Quantity');

  FCreatePhaseID := ValueByName('CreatePhaseID');

  FLastBillsQuantity := ValueByName('LastBillsQuantity');
  FLockedPhaseID := ValueByName('LockedPhaseID');
end;

{ TMeasureBaseRecord }

procedure TMeasureBaseRecord.AddDifferValue(AValue: TsdValue;
  ADiffer: Double);
begin
  if ADiffer <> 0 then
    AValue.AsFloat := AValue.AsFloat + ADiffer;
end;

procedure TMeasureBaseRecord.SetBoolValue(AValue: TsdValue;
  ABool: Boolean);
begin
  if AValue.AsBoolean <> ABool then
    AValue.AsBoolean := ABool;
end;

procedure TMeasureBaseRecord.SetFloatValue(AValue: TsdValue;
  AFloat: Double);
begin
  if AValue.AsFloat <> AFloat then
    AValue.AsFloat := AFloat;
end;

procedure TMeasureBaseRecord.SetIntValue(AValue: TsdValue; AInt: Integer);
begin
  if AValue.AsInteger <> AInt then
    AValue.AsInteger := AInt;
end;

end.