unit uBizInfMargenArticulo;

interface

uses
  Classes, DB, SysUtils, uROClasses, uDADataTable, uDAInterfaces,
  DataAbstract4_Intf, uROTypes, schInfMargenArticuloClient_Intf;

const
  BIZ_InfMargenArticulo = 'Client.InfMargenArticulo';

type
  IBizInfMargenArticulo = interface(IInfMargenPorCliente)
  ['{D6DE3A3A-1A81-40F3-8524-730C73E1DE9F}']
    function GetVisibleColumns: String;
    procedure SetVisibleColumns(const Value: String);
    property VisibleColumns : String read GetVisibleColumns write SetVisibleColumns;
  end;

  TBizInfMargenArticulo = class(TInfMargenPorClienteDataTableRules, IBizInfMargenArticulo)
  private
    FVisibleColumns : String;
  protected
    function GetVisibleColumns: String;
    procedure SetVisibleColumns(const Value: String);
  public
    property VisibleColumns : String read GetVisibleColumns write SetVisibleColumns;
  end;


implementation

{ TBizInfMargenArticulo }

uses
  Dialogs;

function TBizInfMargenArticulo.GetVisibleColumns: String;
begin
  Result := FVisibleColumns
end;

procedure TBizInfMargenArticulo.SetVisibleColumns(const Value: String);
begin
    FVisibleColumns := Value
end;

initialization
  RegisterDataTableRules(BIZ_InfMargenArticulo, TBizInfMargenArticulo);

finalization

end.