Sviluppo4d.it
Sito indipendente di informazioni tecniche per sviluppatori 4th Dimension italiani  

Sviluppatori 4D

Utility 4D

Risorse 4D



4d logo
Naviga: Prev Next

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 case

GET 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.


Accesso

User:
Pass: Accedi

Cerca

Se non trovi le informazioni che cerchi scrivi a aiuto@sviluppo4d.it

4D Principali

4D Discussioni

Faq random


Crediti

Dominio registrato da ZetaNet
Sito realizzato da Nexus srl
4D SQL 11.9.0 offerto da 4D & Italsoftware
Icone di FAMFAMFAM
Moderato da Umberto Migliore
318 utenti registrati

Pagina servita il 09/10/24 alle 15:02:31 Valid HTML 4.01! Valid CSS!

Mutuo Facile, iDigitalScout, iDigitalTags e altre app di Nexid srl per iPhone e iPad

Cidroid, distributore italiano lettori barcode per IOS Apple iPhone, iPod, iPad