Measure/Units/DealBillsExcelImport.pas

unit DealBillsExcelImport;
// 导入签约清单

interface

uses
  DetailExcelImport, ProjectData, Classes, sdDB, OExport;

type
  TDealBill = class
  private
    FB_Code: string;
    FName: string;
    FUnits: string;
    FPrice: Double;
    FQuantity: Double;
    FTotalPrice: Double;
  public
    property B_Code: string read FB_Code write FB_Code;
    property Name: string read FName write FName;
    property Units: string read FUnits write FUnits;
    property Price: Double read FPrice write FPrice;
    property Quantity: Double read FQuantity write FQuantity;
    property TotalPrice: Double read FTotalPrice write FTotalPrice;

    function IsParent(AChild: TDealBill): Boolean;
  end;

  TDealBillList = class
  private
    FList: TList;

    procedure ClearParent(ADealBill: TDealBill);

    function GetCount: Integer;
    function GetDealBills(AIndex: Integer): TDealBill;
  public
    constructor Create;
    destructor Destroy; override;

    procedure AddDealBill(ADealBill: TDealBill);

    property Count: Integer read GetCount;
    property DealBills[AIndex: Integer]: TDealBill read GetDealBills;
  end;

  TDealBillsExcelImport = class(TDetailExcelImport)
  private
    FDealBills: TDealBillList;

    FB_CodeCol: Integer;
    FNameCol: Integer;
    FUnitsCol: Integer;
    FPriceCol: Integer;
    FQuantityCol: Integer;
    FTotalPriceCol: Integer;

    FCurRow: Integer;

    function LoadColumnsFromHead(ASheet: TExportWorkSheet): Boolean;
    procedure LoadDealBills(ASheet: TExportWorkSheet);
    procedure WriteDealBills;
  protected
    procedure BeginImport; override;
    procedure EndImport; override;

    procedure Import; override;
  public
    constructor Create(AProjectData: TProjectData); override;
    destructor Destroy; override;
  end;

implementation

uses DateUtils, DealBillsDm, UtilMethods, SysUtils;

{ TDealBillsExcelImport }

procedure TDealBillsExcelImport.BeginImport;
begin
  ProjectData.DealBillsData.DisableEvent;
  ProjectData.DealBillsData.sddDealBills.BeginUpdate;
end;

constructor TDealBillsExcelImport.Create(AProjectData: TProjectData);
begin
  inherited;
  FDealBills := TDealBillList.Create;
end;

destructor TDealBillsExcelImport.Destroy;
begin
  FDealBills.Free;
  inherited;
end;

procedure TDealBillsExcelImport.EndImport;
begin
  ProjectData.DealBillsData.sddDealBills.EndUpdate;
  ProjectData.DealBillsData.EnableEvent;
end;

procedure TDealBillsExcelImport.Import;
begin
  FCurRow := 0;
  if LoadColumnsFromHead(OExport.OpenWorkSheet) then
  begin
    LoadDealBills(OExport.OpenWorkSheet);
    WriteDealBills;
  end
  else
    ErrorMessage('导入的Excel格式有误！');
end;

function TDealBillsExcelImport.LoadColumnsFromHead(ASheet: TExportWorkSheet): Boolean;
var
  vRow: TExportRow;
  iCol: Integer;
  sColName: string;
begin
  Result := False;

  FB_CodeCol := -1;
  FNameCol := -1;
  FUnitsCol := -1;
  FPriceCol := -1;
  FQuantityCol := -1;
  FTotalPriceCol := -1;

  while (not Result) and (FCurRow < ASheet.Rows.Count) do
  begin
    vRow := ASheet.Rows[FCurRow];
    for iCol := 0 to vRow.Cells.Count - 1 do
    begin
      sColName := GetCellTrimStr(vRow, iCol);
      sColName := StringReplace(sColName, ' ', '', [rfReplaceAll]);

      if SameText(sColName, '清单编号') or (Pos('子目号', sColName) > 0) then
        FB_CodeCol := iCol
      else if Pos('名称', sColName) > 0 then
        FNameCol := iCol
      else if SameText(sColName, '单位') then
        FUnitsCol := iCol
      else if Pos('单价', sColName) = 1 then
        FPriceCol := iCol
      else if Pos('数量', sColName) > 0 then
        FQuantityCol := iCol
      else if (Pos('金额', sColName) > 0) or (Pos('合价', sColName) > 0) then
        FTotalPriceCol := iCol;
    end;

    Result := (FB_CodeCol <> -1) and (FNameCol <> -1) and (FUnitsCol <> -1)
        and (FPriceCol <> -1) and (FQuantityCol <> -1) and (FTotalPriceCol <> -1);
    Inc(FCurRow);
  end;
end;

procedure TDealBillsExcelImport.LoadDealBills(ASheet: TExportWorkSheet);

  function CheckIsBillsCode(ACode: string): Boolean;
  const
    FBillsCodeSet: set of char = ['0'..'9', '-', 'a'..'z', 'A'..'Z'];
  var
    I: Integer;
  begin
    Result := True;
    I := 1;
    while I < Length(ACode) do
      if ACode[I] in FBillsCodeSet then
        Inc(I)
      else
      begin
        Result := False;
        Break;
      end;
  end;

  function FilterBillsCode(ACode: string): string;
  var
    I: Integer;
  begin
    Result := StringReplace(ACode, ' ', '', [rfReplaceAll]);
    Result := StringReplace(Result, '　', '', [rfReplaceAll]);
    Result := StringReplace(Result, '补', '', [rfReplaceAll]);
  end;

var
  vRow: TExportRow;
  sB_Code, sFilterB_Code: string;
  vDealBill: TDealBill;
begin
  while (FCurRow < ASheet.Rows.Count) do
  begin
    vRow := ASheet.Rows[FCurRow];
    sB_Code := GetCellTrimStr(vRow, FB_CodeCol);
    sFilterB_Code := FilterBillsCode(sB_Code);
    if (sFilterB_Code <> '')then
    begin
      if CheckIsBillsCode(sFilterB_Code) then
      begin
        vDealBill := TDealBill.Create;
        vDealBill.B_Code := sB_Code;
        vDealBill.Name := GetCellTrimStr(vRow, FNameCol);
        vDealBill.Units := GetCellTrimStr(vRow, FUnitsCol);
        vDealBill.Price := GetCellFloat(vRow, FPriceCol);
        vDealBill.Quantity := GetCellFloat(vRow, FQuantityCol);
        vDealBill.TotalPrice := GetCellFloat(vRow, FTotalPriceCol);
        FDealBills.AddDealBill(vDealBill);
      end;
    end;
    Inc(FCurRow);
  end;
end;

procedure TDealBillsExcelImport.WriteDealBills;
var
  i: Integer;
  vDealBill: TDealBill;
  Rec: TsdDataRecord;
begin
  with ProjectData.DealBillsData do
  begin
    Clear;
    for i := 0 to FDealBills.Count - 1 do
    begin
      vDealBill := FDealBills.DealBills[i];
      Rec := sddDealBills.Add;
      Rec.ValueByName('ID').AsInteger := i;
      Rec.ValueByName('B_Code').AsString := vDealBill.B_Code;
      Rec.ValueByName('IndexCode').AsString := B_CodeToIndexCode(vDealBill.B_Code);
      Rec.ValueByName('Name').AsString := vDealBill.Name;
      Rec.ValueByName('Units').AsString := vDealBill.Units;
      Rec.ValueByName('Price').AsFloat := PriceRoundTo(vDealBill.Price);
      Rec.ValueByName('Quantity').AsFloat := QuantityRoundTo(vDealBill.Quantity);
      Rec.ValueByName('TotalPrice').AsFloat := TotalPriceRoundTo(vDealBill.TotalPrice);
    end;
  end;
end;

{ TDealBill }

function TDealBill.IsParent(AChild: TDealBill): Boolean;
begin
  Result := Pos(B_Code+'-', AChild.B_Code) = 1;
end;

{ TDealBillList }

procedure TDealBillList.AddDealBill(ADealBill: TDealBill);
begin
  ClearParent(ADealBill);
  FList.Add(ADealBill);
end;

procedure TDealBillList.ClearParent(ADealBill: TDealBill);
var
  i: Integer;
  vDealBill: TDealBill;
begin
  for i := 0 to FList.Count - 1 do
  begin
    vDealBill := DealBills[i];
    if vDealBill.IsParent(ADealBill) then
    begin
      FList.Delete(i);
      vDealBill.Free;
      Break;
    end;
  end;
end;

constructor TDealBillList.Create;
begin
  FList := TList.Create;
end;

destructor TDealBillList.Destroy;
begin
  FList.Free;
  inherited;
end;

function TDealBillList.GetCount: Integer;
begin
  Result := FList.Count;
end;

function TDealBillList.GetDealBills(AIndex: Integer): TDealBill;
begin
  Result := TDealBill(FList.Items[AIndex]);
end;

end.