unit uBizArticulosProveedor;

interface

uses
  uDAInterfaces, uDADataTable,
  uBizArticulos, uBizDatosProveedores;

const
  BIZ_CLIENT_ARTICULO_PROVEEDOR = 'Client.ArticuloProveedor';

type
  IBizArticuloProveedor = interface(IBizArticulo)
  ['{D4EAC020-40EC-4054-BC76-CBC2AF4153D1}']
    procedure SetDatosProveedores(AValue : IBizDatosProveedores);
    function GetDatosProveedores : IBizDatosProveedores;
    property DatosProveedores : IBizDatosProveedores read GetDatosProveedores write SetDatosProveedores;
  end;

  TBizArticuloProveedor = class(TBizArticulo, IBizArticuloProveedor)
  protected
    FDatosProveedores : IBizDatosProveedores;
    FDatosProveedoresLink : TDADataSource;
    procedure SetDatosProveedores(AValue : IBizDatosProveedores);
    function GetDatosProveedores : IBizDatosProveedores;

  public
    property DatosProveedor : IBizDatosProveedores read GetDatosProveedores write SetDatosProveedores;
    constructor Create(aDataTable: TDADataTable); override;
    destructor Destroy; override;

  end;

implementation

uses
  SysUtils, uDataTableUtils, uDataModuleUsuarios;

{ TBizArticuloProveedor }

constructor TBizArticuloProveedor.Create(aDataTable: TDADataTable);
begin
  inherited;
  FDatosProveedoresLink := TDADataSource.Create(NIL);
  FDatosProveedoresLink.DataTable := aDataTable;
end;

destructor TBizArticuloProveedor.Destroy;
begin
  FDatosProveedores := NIL;
  FDatosProveedoresLink.Free;
  inherited;
end;

function TBizArticuloProveedor.GetDatosProveedores: IBizDatosProveedores;
begin
  Result := FDatosProveedores;
end;

procedure TBizArticuloProveedor.SetDatosProveedores(AValue: IBizDatosProveedores);
begin
  FDatosProveedores := AValue;
  EnlazarMaestroDetalle(FDatosProveedoresLink, FDatosProveedores);
end;

initialization
  RegisterDataTableRules(BIZ_CLIENT_ARTICULO_PROVEEDOR, TBizArticuloProveedor);

finalization

end.