unit UVMADGSCOMedicineHistory;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UAdapterDataGridView, cxStyles, cxCustomData, cxGraphics,
  cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl,
  dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider,
  dxPSFillPatterns, dxPSEdgePatterns, dxPSCore, RzCommon, cxGridLevel,
  cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxGrid, jpeg, RzBckgnd, ExtCtrls,
  RzPanel, cxCheckBox, cxDBLookupComboBox, UCloneDataModel, UPrimaryDataModel,
  Factory;

type
  TVMADGSCOMedicineHistory = class(TAdapterDataGridView)
    GridDBTableViewSCOMEDICINEID: TcxGridDBColumn;
    GridDBTableViewISAPPROVE: TcxGridDBColumn;
    GridDBTableViewOAMOUNT: TcxGridDBColumn;
    GridDBTableViewCQUANTITY: TcxGridDBColumn;
    GridDBTableViewCREATED: TcxGridDBColumn;
    GridDBTableViewUPDATED: TcxGridDBColumn;
    GridDBTableViewMEDICINESTOCKDETAILID: TcxGridDBColumn;
    GridDBTableViewCREATEBY: TcxGridDBColumn;
    GridDBTableViewUPDATEBY: TcxGridDBColumn;
    GridDBTableViewAPPROVEBY: TcxGridDBColumn;
    GridDBTableViewAPPROVEDATE: TcxGridDBColumn;
    GridDBTableViewMSD_AMOUNT: TcxGridDBColumn;
    GridDBTableViewMSD_CREATED: TcxGridDBColumn;
    GridDBTableViewM_MEDICINEID: TcxGridDBColumn;
    GridDBTableViewM_CODE: TcxGridDBColumn;
    GridDBTableViewM_TOPQTY: TcxGridDBColumn;
    GridDBTableViewM_DOWNQTY: TcxGridDBColumn;
    GridDBTableViewM_MEMO: TcxGridDBColumn;
    GridDBTableViewM_ALAIS: TcxGridDBColumn;
    GridDBTableViewM_MODEL: TcxGridDBColumn;
    GridDBTableViewM_PINYIN: TcxGridDBColumn;
    GridDBTableViewM_CAPTION: TcxGridDBColumn;
    GridDBTableViewM_DOSEID: TcxGridDBColumn;
    GridDBTableViewM_UNITSID: TcxGridDBColumn;
    GridDBTableViewM_USEMETHODID: TcxGridDBColumn;
    GridDBTableViewM_MEDICINECATALOGID: TcxGridDBColumn;
    GridDBTableViewM_MINUNITSID: TcxGridDBColumn;
    GridDBTableViewM_PACKAMOUNT: TcxGridDBColumn;
    GridDBTableViewSIOMD_PRICE: TcxGridDBColumn;
    GridDBTableViewSIOMD_SPRICE: TcxGridDBColumn;
    EmployeeID: TDataSource;
    UnitsID: TDataSource;
  private
    EmployeeIDModel: TCloneDataModel;
    UnitsIDModel: TCloneDataModel;
  public
    function GetCaption: string; override;
    procedure InitView; override;
  end;

implementation

uses UMADSCOMedicineHistory, UMADEmployee, UMADUnits;

{$R *.dfm}

{ TVMADGSCOMedicineHistory }

function TVMADGSCOMedicineHistory.GetCaption: string;
begin
  Result := '庫存變更單歷史';
end;

procedure TVMADGSCOMedicineHistory.InitView;
begin
  inherited;
  EmployeeIDModel := GetCloneDataModel(TPrimaryDataModel(EmployeeFactory.GetModel));
  EmployeeID.DataSet := EmployeeIDModel.GetDataSet;

  UnitsIDModel := GetCloneDataModel(TPrimaryDataModel(UnitsFactory.GetModel));
  UnitsID.DataSet := UnitsIDModel.GetDataSet;
end;

end.