unit UVADGStockInOrderApprove;

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, UCloneDataModel, UPrimaryDataModel, Factory, cxCheckBox,
  cxDBLookupComboBox, MyTools, UView, UControllerView, UPagesView,
  UAdapterDataPagesView, UVMADGSIOMedicineDetailHistory, UQueryDataModel, RzTabs,
  cxCurrencyEdit, RzButton, StdCtrls, RzLabel;

type
  TVADGStockInOrderApprove = 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;
    RzPanel3: TRzPanel;
    RzBitBtn1: TRzBitBtn;
    RzPanel4: TRzPanel;
    procedure GridDBTableViewCellClick(Sender: TcxCustomGridTableView;
      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
      AShift: TShiftState; var AHandled: Boolean);
    procedure RzBitBtn1Click(Sender: TObject);
  private
    CreateByModel: TCloneDataModel;
    UpdateByModel: TCloneDataModel;
    ApproveByModel: TCloneDataModel;
    CheckInMethodModel: TCloneDataModel;
    SIOMedicineDetailView : TVMADGSIOMedicineDetailHistory;
  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, UMADEmployee, UMADCheckInMethod;

{$R *.dfm}

{ TVADGStockInOrderApprove }

procedure TVADGStockInOrderApprove.Append(Parameters: IParameters);
begin
end;

procedure TVADGStockInOrderApprove.Delete(Parameters: IParameters);
begin
end;

function TVADGStockInOrderApprove.GetCaption: string;
begin
  Result := '入庫單審核';
end;

procedure TVADGStockInOrderApprove.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 TVADGStockInOrderApprove.GridDBTableViewCellClick(
  Sender: TcxCustomGridTableView;
  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
  AShift: TShiftState; var AHandled: Boolean);
begin
  inherited;
  TQueryDataModel(SIOMedicineDetailView.GetDataModel).Query(GetKey);
end;

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



procedure TVADGStockInOrderApprove.Save(Parameters: IParameters);
begin
end;

procedure TVADGStockInOrderApprove.RzBitBtn1Click(Sender: TObject);
begin
  inherited;
  TMADStockInOrder(GetDataModel).CheckIn(nil);
  GetDataModel.GetDataSet.Refresh;
end;

end.