unit uBizDatosProveedores;

interface

uses
  uDAInterfaces, uDADataTable, schArticulosClient_Intf;

const
  BIZ_CLIENT_ARTICULOS_DATOS_PROVEEDORES = 'Client.DatosProveedores';

type
  IBizDatosProveedores = interface(IDatosProveedor)
  ['{07C6C3D2-49F0-441C-A103-25A8D6991714}']
    function EsNuevo : Boolean;  
  end;

  TBizDatosProveedores = class(TDatosProveedorDataTableRules, IBizDatosProveedores)
  protected
  public
    procedure OnNewRecord(Sender: TDADataTable); override;
    function EsNuevo : Boolean;    
  end;

implementation

uses
  Dialogs, uDataTableUtils;

{ TBizDatosProveedor }

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

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

initialization
  RegisterDataTableRules(BIZ_CLIENT_ARTICULOS_DATOS_PROVEEDORES, TBizDatosProveedores);


end.