unit uBizInfVentasArticulo;

interface

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

const
  BIZ_InfVentasArticulo = 'Client.InfVentasArticulo';

type
  IBizInfVentasArticulo = interface(IInfVentasArticulo)
  ['{8E265668-0B6D-4475-9965-15B3EE251B24}']
    function GetVisibleColumns: String;
    procedure SetVisibleColumns(const Value: String);
    property VisibleColumns : String read GetVisibleColumns write SetVisibleColumns;
  end;

  TBizInfVentasArticulo = class(TInfVentasArticuloDataTableRules, IBizInfVentasArticulo)
  private
    FVisibleColumns : String;
  protected
    function GetVisibleColumns: String;
    procedure SetVisibleColumns(const Value: String);
  public
    property VisibleColumns : String read GetVisibleColumns write SetVisibleColumns;
  end;


implementation

{ TBizInfVentasArticulo }

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

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

initialization
  RegisterDataTableRules(BIZ_InfVentasArticulo, TBizInfVentasArticulo);

finalization

end.