unit uvars;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils;
const LunPassword = 10;
LunEmail = 40;
LunMachine = 20;
type TAutorizzazione = (
r_personale,
w_personale,
n_personale,
d_personale,
r_utente,
w_utente,
n_utente,
d_utente,
p_utente,
a_utente,
r_esterno,
w_esterno,
n_esterno,
d_esterno,
r_files,
r_backup,
r_restore,
r_report,
r_costieprezzi,
r_progetto,
w_progetto,
n_progetto,
d_progetto,
b_progetto,
r_scrittura,
w_scrittura,
d_scrittura,
r_statoprogetto,
r_archivio,
w_archivio,
r_accesso,
r_statisticautente,
w_accesso,
r_fondo,
w_fondo,
r_storicoprogetto,
r_storicoscrittura,
r_storicoaccesso,
r_pianodeiconti,
w_pianodeiconti,
d_pianodeiconti,
n_pianodeiconti,
r_regolamentocontabilescrittura,
w_regolamentocontabilescrittura,
d_regolamentocontabilescrittura,
r_contabileordinaria,
w_contabileordinaria,
d_contabileordinaria
);
TAbilitazione = (
nonabilitato,
abilitato,
bloccato
);
TStatoUtente = (connesso,nonconnesso);
TSetOfAutorizzazione = set of TAutorizzazione;
TSetOfChar = set of char;
TUtente = record
codice: integer;
login: string[LunEmail];
password: string[LunPassword];
passwordcambiata: boolean;
abilitazione: TAbilitazione;
dataultimologin: TDateTime;
dataultimologout: TDateTime;
autorizzazioni: TSetOfAutorizzazione;
stato: TStatoUtente;
device: string[LunMachine];
gruppi: TSetOfChar;
settori: TSetOfChar;
tag: byte;
end;
var so_utente: integer;
implementation
begin
so_utente:=sizeof(TUtente);
end.