unit UVMADGPStockOutOrder;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UMasterAdapterDataGridView, 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,
  UView, UCloneDataModel, cxDBLookupComboBox, cxCheckBox;


type
  TVMADGPStockOutOrder = class(TMasterAdapterDataGridView)
    GridDBTableViewPSTOCKOUTORDERID: TcxGridDBColumn;
    GridDBTableViewTOTAL: TcxGridDBColumn;
    GridDBTableViewTAXRATE: TcxGridDBColumn;
    GridDBTableViewAMOUNT: TcxGridDBColumn;
    GridDBTableViewISACTIVE: TcxGridDBColumn;
    GridDBTableViewISVALID: TcxGridDBColumn;
    GridDBTableViewISAPPROVE: TcxGridDBColumn;
    GridDBTableViewAPPROVEDATE: TcxGridDBColumn;
    GridDBTableViewCREATED: TcxGridDBColumn;
    GridDBTableViewUPDATED: TcxGridDBColumn;
    GridDBTableViewCHECKOUTDATE: TcxGridDBColumn;
    GridDBTableViewPSTOCKMEDICINEID: TcxGridDBColumn;
    GridDBTableViewCREATEBY: TcxGridDBColumn;
    GridDBTableViewUPDATEBY: TcxGridDBColumn;
    GridDBTableViewAPPROVEBY: TcxGridDBColumn;
    CreateBy: TDataSource;
    UpdateBy: TDataSource;
    ApproveBY: TDataSource;
    PSTOCKMEDICINE: TDataSource;
  private
    CreateByModel: TCloneDataModel;
    UpdateByModel: TCloneDataModel;
    ApproveByModel: TCloneDataModel;
    PstockmedicineModel: TCloneDataModel;
  protected
    procedure InitModel; override;
  public
    function GetCaption: string; override;
    function GetDetailView: TView; override;
  end;

implementation

{$R *.dfm}

uses
  Factory, UModel, UMADPStockOutOrder, UPrimaryDataModel, UVADIPStockOutOrder,
  UMADEmployee, UMADPstockmedicine;

function TVMADGPStockOutOrder.GetCaption: string;
begin
  Result := '出庫單(藥房)';
end;

function TVMADGPStockOutOrder.GetDetailView: TView;
var
  View: TVADIPStockOutOrder;
begin
  View := TVADIPStockOutOrder.Create(Self, GetModelFactory);
  View.SetModel(GetModel);
  Result := View;
end;

procedure TVMADGPStockOutOrder.InitModel;
begin
  inherited;

  CreateByModel := GetCloneDataModel(TPrimaryDataModel(EmployeeFactory.GetModel));
  CreateBy.DataSet := CreateByModel.GetDataSet;

  UpdateByModel := GetCloneDataModel (TPrimaryDataModel(EmployeeFactory.GetModel));
  UpdateBy.DataSet := UpdateByModel.GetDataSet;

  ApproveBYModel := GetCloneDataModel(TPrimaryDataModel(EmployeeFactory.GetModel));
  ApproveBy.DataSet := ApproveByModel.GetDataSet;

  PstockmedicineModel := GetCloneDataModel(TPrimaryDataModel(PstockmedicineFactory.GetModel));
  Pstockmedicine.DataSet := PstockmedicineModel.GetDataSet;
end;

end.