{
===============================================================================
  Copyright (©) 2007. Rodax Software.
===============================================================================
  Los contenidos de este fichero son propiedad de Rodax Software titular del
  copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
  en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
  acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
  bajo el que se suministra.
  -----------------------------------------------------------------------------
  Web:  www.rodax-software.com
===============================================================================
  Fecha primera versión: 
  Versión actual: 1.0.0
  Fecha versión actual: 
===============================================================================
  Modificaciones:

    Fecha         Comentarios
    ---------------------------------------------------------------------------
===============================================================================
}

unit uBizTiendaWeb;

interface

uses
  uDAInterfaces, uDADataTable, uDBSelectionListUtils, schTiendaWebClient_Intf;

const
  BIZ_CLIENT_TIENDAWEB = 'Client.TiendaWeb';

  BIZ_CLIENT_OSC_CUSTOMER_INFO = 'Client.OSC.CustomerInfo';


type
  IBizTiendaWeb = interface(ITiendaWeb)
  	['{94701C2A-11C4-4F53-9E23-37077EB5EDA8}']    
    function EsNuevo : Boolean;
  end;

  IBizOSCCustomerInfo = interface(Iosc_Customers_info)
    ['{A3378AEB-5C8F-4FCD-B1D7-60BBFF8B1B17}']
  end;

  TBizTiendaWeb = class(TTiendaWebDataTableRules, IBizTiendaWeb)
  protected
    procedure OnNewRecord(Sender: TDADataTable); override;
  public
    procedure IniciarValoresTiendaWebNueva;
    function EsNuevo : Boolean;
  end;

  TBizOSCCustomerInfo = class(Tosc_Customers_infoDataTableRules, IBizOSCCustomerInfo)
  protected
    procedure OnNewRecord(Sender: TDADataTable); override;
  public
    procedure IniciarValoresNuevo;
    function EsNuevo : Boolean;
  end;

implementation

{ TBizTiendaWeb }

uses
  SysUtils, uDataTableUtils, uDataModuleUsuarios;

function TBizTiendaWeb.EsNuevo: Boolean;
begin
  Result := (ID < 0);
end;

procedure TBizTiendaWeb.IniciarValoresTiendaWebNueva;
begin
  ID_EMPRESA := dmUsuarios.IDEmpresaActual;
  TIENDA_ACTIVA := 0;
end;

procedure TBizTiendaWeb.OnNewRecord(Sender: TDADataTable);
begin
  inherited;
  ID := GetRecNo; // -1, -2, -3...
  IniciarValoresTiendaWebNueva;
end;

{ TBizOSCCustomerInfo }

function TBizOSCCustomerInfo.EsNuevo: Boolean;
begin
  Result := (customers_info_id < 0);
end;

procedure TBizOSCCustomerInfo.IniciarValoresNuevo;
begin
  date_account_created := Now;
end;

procedure TBizOSCCustomerInfo.OnNewRecord(Sender: TDADataTable);
begin
  inherited;
  customers_info_id := GetRecNo; // -1, -2, -3...
  IniciarValoresNuevo;
end;


initialization
  RegisterDataTableRules(BIZ_CLIENT_TIENDAWEB, TBizTiendaWeb);

  RegisterDataTableRules(BIZ_CLIENT_OSC_CUSTOMER_INFO, TBizOSCCustomerInfo);

finalization

end.