Titolo: Ottenere le date di 4DTools con un metodo
Categoria: Codice |
|
Ultimo Aggiornamento: 30/05/04 |
4DTools aggiorna automaticamente una risorsa all'interno della struttura ogni volta che viene eseguita una operazione di controllo o una riparazione. Il seguente metodo restituisce queste informazioni:
` I parametri:
` $1 - Tipo di informazione da ottenere, i valori accettati sono:
` 1 = Data dell'ultimo controllo del file dati;
` 2 = Data dell'ultima riparazione del file dati;
` 3 = Data dell'ultimo controllo della struttura;
` 4 = Data dell'ultima riparazione della struttura.
` $0 - La data richiesta
C_LONGINT($1;$dateType_l) `la variabile locale per $1
C_DATE($ultimadata_d;$0) `la variabile locale per $0
C_BLOB($resData_x) `conterrĂ la risorsa
C_LONGINT($anno_l;$mese_l;$giorno_l) `giorno mese e anno della data
C_LONGINT($resID_l) `conterrĂ l'ID della risorsa
C_TIME($resourceDoc_ref) `conterrĂ il reference number della risorsa aperta.
$dateType_l:=$1
Case of : ($dateType_l=1) `ultimo controllo del file dati
$resID_l:=3
$resourceDoc_ref:=Open resource file(Data file)
: ($dateType_l=2) `ultima riparazione del file dati
$resID_l:=4
$resourceDoc_ref:=Open resource file(Data file)
: ($dateType_l=3) `ultimo controllo della struttura
$resID_l:=1
$resourceDoc_ref:=Open resource file(Structure file)
: ($dateType_l=4) `ultima riparazione della struttura
$resID_l:=2
$resourceDoc_ref:=
Open resource file(
Structure file)
Else ` Errore
End caseGET RESOURCE("RegA";$resID_l;$resData_x;$resourceDoc_ref)
If (
BLOB size($resData_x)>0)
$anno_l:=($resData_x{0}*256)+$resData_x{1}
$mese_l:=($resData_x{2}*256)+$resData_x{3}
$giorno_l:=($resData_x{4}*256)+$resData_x{5}
$ultimadata_d:=
Add to date(!00/00/00!;$anno_l;$mese_l;$giorno_l)-1
End if$0:=$ultimadata_d `restituisce la deta cercata
Fonte: Phillip Hall, 4DToday
Inviato da: PierPaolo Sichera |
|
Visite: 13129 |
Se accedi con utente e password, puoi aggiungere dei commenti.