unit UVADIPURChaseOrder;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UAdapterDataItemView, dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg,
  dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
  dxPSEdgePatterns, DB, dxPSCore, RzCommon, RzButton, jpeg, RzBckgnd,
  ExtCtrls, RzPanel, StdCtrls, RzLabel, DBCtrls, RzDBCmbo, RzDBEdit,
  RzRadChk, RzDBChk, Mask, RzEdit, UCloneDataModel,
  UPrimaryDataModel, Factory, UView, UControllerView, UPagesView,
  UAdapterDataPagesView, MyTools, RzTabs, UVMADGPOMaterialDetail,
  UVMADGPOMedicineDetail;

type
  TVADIPURChaseOrder = class(TAdapterDataItemView)
    PurchaseMethod: TDataSource;
    RzLabel2: TRzLabel;
    RzLabel3: TRzLabel;
    RzLabel8: TRzLabel;
    RzLabel11: TRzLabel;
    RzLabel12: TRzLabel;
    RzLabel15: TRzLabel;
    RzDBEdit1: TRzDBEdit;
    RzDBEdit2: TRzDBEdit;
    RzDBEdit3: TRzDBEdit;
    RzDBEdit4: TRzDBEdit;
    RzDBLookupComboBox4: TRzDBLookupComboBox;
    RzDBDateTimeEdit5: TRzDBDateTimeEdit;
    PagesView: TAdapterDataPagesView;
  private
    PurchaseMethodModel: TCloneDataModel;
    POMaterialDetailView: TVMADGPOMaterialDetail;
    POMedicineDetailView: TVMADGPOMedicineDetail;
  public
    procedure InitModel; override;
    procedure InitView; override;
  public
    function GetCaption: string; override;
    procedure Save(Parameters: IParameters); override;
  end;

implementation

uses UMADPurchaseOrder, UMADPurchaseMethod, UQueryDataModel;

{$R *.dfm}

{ TVADIPURChaseOrder }

function TVADIPURChaseOrder.GetCaption: string;
begin
  Result := '采購單修改編輯';
end;

procedure TVADIPURChaseOrder.InitModel;
begin
  inherited;
  PurchaseMethodModel := TCloneDataModel.Create(Self);
  TPrimaryDataModel(PurchaseMethodFactory.GetModel).Clone(PurchaseMethodModel);
  PurchaseMethod.DataSet := PurchaseMethodModel.GetDataSet;
end;

procedure TVADIPURChaseOrder.InitView;
var
  Page: TRzTabSheet;
  Key: IKey;
begin
  inherited;
  Page := PagesView.NewPage;
  POMaterialDetailView := TVMADGPOMaterialDetail.Create(Page,POMaterialDetailFactory);
  PagesView.BandView(Page, POMaterialDetailView);
  Key := GetDataModel.GetKey;
  if not Assigned(Key) then ShowMessage('lkj')
  else ShowMessage('llll');
  TQueryDataModel(POMaterialDetailView.GetDataModel).Query(Key);

  Page := PagesView.NewPage;
  POMedicineDetailView := TVMADGPOMedicineDetail.Create(Page,POMedicineDetailFactory);
  PagesView.BandView(Page, POMedicineDetailView);
  Key := GetDataModel.GetKey;
  TQueryDataModel(POMedicineDetailView.GetDataModel).Query(Key);
end;

procedure TVADIPURChaseOrder.Save(Parameters: IParameters);
begin
  inherited;
  POMaterialDetailView.Save(nil);
  POMedicineDetailView.Save(nil);
end;

end.