unit UVADGStockInOrderDetail;

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, UView, UDataView,
  UAdapterDataView, UAdapterDataItemsView, UMasterAdapterDataGridView,
  UVMADGSIOMedicineDetail, UControllerView, UPagesView,
  UAdapterDataPagesView, MyTools, UCloneDataModel, UQueryDataModel, RzTabs,
  cxCurrencyEdit;

type
  TVADGStockInOrderDetail = class(TAdapterDataGridView)
    CreateBy: TDataSource;
    UpdateBy: TDataSource;
    ApproveBy: TDataSource;
    CheckInMethodId: TDataSource;
    GridDBTableViewSTOCKINORDERID: TcxGridDBColumn;
    GridDBTableViewCHECKINDATE: TcxGridDBColumn;
    GridDBTableViewTOTAL: TcxGridDBColumn;
    GridDBTableViewMEMO: TcxGridDBColumn;
    GridDBTableViewISAPPROVE: TcxGridDBColumn;
    GridDBTableViewAPPROVEDATE: TcxGridDBColumn;
    GridDBTableViewCREATED: TcxGridDBColumn;
    GridDBTableViewUPDATED: TcxGridDBColumn;
    GridDBTableViewCHECKINMETHODID: TcxGridDBColumn;
    GridDBTableViewAPPROVEBY: TcxGridDBColumn;
    GridDBTableViewCREATEBY: TcxGridDBColumn;
    GridDBTableViewUPDATEBY: TcxGridDBColumn;
    PagesView: TAdapterDataPagesView;
    Splitter1: TSplitter;
    procedure GridDBTableViewCellClick(Sender: TcxCustomGridTableView;
      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
      AShift: TShiftState; var AHandled: Boolean);
  private
    CreateByModel: TCloneDataModel;
    UpdateByModel: TCloneDataModel;
    ApproveByModel: TCloneDataModel;
    CheckInMethodModel: TCloneDataModel;
    SIOMedicineDetailView : TVMADGSIOMedicineDetail;
  protected
    procedure InitModel; override;
     procedure InitView; override;
  public
    function GetCaption: string; override;
    procedure Append(Parameters: IParameters); override;
    procedure Delete(Parameters: IParameters); override;
    procedure Save(Parameters: IParameters); override;
  end;

implementation
uses
  UMADStockinorder, Factory, UMADEmployee,UPrimaryDataModel, UMADCheckInMethod;
{$R *.dfm}

{ TVADGStockInOrderDetail }

function TVADGStockInOrderDetail.GetCaption: string;
begin
  Result := '藥品入庫單明細';
end;

procedure TVADGStockInOrderDetail.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;

  CheckInMethodModel:= GetCloneDataModel(TPrimaryDataModel(CheckInMethodFactory.GetModel));
  CheckInMethodId.DataSet := CheckInMethodModel.GetDataSet;
end;



procedure TVADGStockInOrderDetail.InitView;
var
  Page: TRzTabSheet;
  Key: IKey;
begin
  inherited;
  Page := PagesView.NewPage;
  SIOMedicineDetailView := TVMADGSIOMedicineDetail.Create(Page,SIOMedicineDetailFactory);
  PagesView.BandView(Page,SIOMedicineDetailView);
  Key := GetDataModel.GetKey;
  TQueryDataModel(SIOMedicineDetailView.GetDataModel).Query(Key);

end;

procedure TVADGStockInOrderDetail.Append(Parameters: IParameters);
begin
  TAdapterDataView(PagesView.GetActiveView).Append(Parameters);
end;

procedure TVADGStockInOrderDetail.Delete(Parameters: IParameters);
begin
  TAdapterDataView(PagesView.GetActiveView).Delete(Parameters);
end;

procedure TVADGStockInOrderDetail.Save(Parameters: IParameters);
begin
  TAdapterDataView(PagesView.GetActiveView).Save(Parameters);
end;

procedure TVADGStockInOrderDetail.GridDBTableViewCellClick(
  Sender: TcxCustomGridTableView;
  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
  AShift: TShiftState; var AHandled: Boolean);
begin
  inherited;
  TQueryDataModel(SIOMedicineDetailView.GetDataModel).Query(GetKey);
end;

end.