LuisLeon_FactuGES2/Source/Modulos/Informe ventas por articulo/Model/uBizInfVentasArticulo.pas

unit uBizInfVentasArticulo;

interface

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

const
  BIZ_InfVentasArticulo = 'Client.InfVentasArticulo';
  BIZ_InfVentasAlbArticulo = 'Client.InfVentasAlbArticulo';

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;

  IBizInfVentasAlbArticulo = interface(IInfVentasAlbArticulo)
  ['{85BA702E-85F5-4725-BF13-3E017E76C37A}']
    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;

  TBizInfVentasAlbArticulo = class(TInfVentasAlbArticuloDataTableRules, IBizInfVentasAlbArticulo)
  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;

{ TBizInfVentasAlbArticulo }

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

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

initialization
  RegisterDataTableRules(BIZ_InfVentasArticulo, TBizInfVentasArticulo);
  RegisterDataTableRules(BIZ_InfVentasAlbArticulo, TBizInfVentasAlbArticulo);

finalization

end.