`Méthode base : Sur démarrage sauvegarde

`Conditions pour exécuter la sauvegarde :
```seul l'administrateur peut lancer la sauvegarde
```La sauvegarde ne sera pas exécutée si un backup a déjà été fait le même jour
```La destination de la sauvegarde est vérifiée. Si elle se fait sur le même volume que celui de la base,
````l'utilisateur est averti.
```Il peut alors choisir d'effectuer ou d'annuler la sauvegarde.

C_ENTIER(selector;$0)
C_TEXTE(Vol_Structure;Vol_BackupDestination;dest_path)

selector:=0
$0:=0

Si (Utilisateur courant="Administrateur") `la sauvegarde n'est autorisée que faite par l'Administrateur
   LIRE INFORMATION SAUVEGARDE(0;last_backupDate;last_backupTime)
   Si (last_BackupDate=Date du jour) `on ne lance la sauvegarde qu'un jour différent de la précédente
      $0:=3 `la sauvegarde a déjà été faite le même jour
   Sinon
      Vol_Structure:=ExtractVolume (Fichier structure) `on récupère le volume de la structure
      Vol_BackupDestination:=ExtractVolume (CheckDestination ) `on récupère le volume de la sauvegarde.
      Si (Vol_Structure=Vol_BackupDestination) ` si le volume de la sauvegarde est le même que
            `celui de la sauvegarde
         CONFIRMER("Etes-vous sûr de vouloir lancer la sauvegarde sur le même volume ?";"Oui";"Non")
            ` on demande confirmation à l'utilisateur pour lancer ou pas la sauvegarde
         Si (OK#1) `si l'utilisateur ne veut pas lancer la sauvegarde
            $0:=2
         Fin de si
      Fin de si
   Fin de si
Sinon
   $0:=1 ` l'utilisateur n'est pas Administrateur
Fin de si

`Méthode base : Sur arrêt sauvegarde

C_ENTIER(error_num;$1)
C_TEXTE(error_desc)

Au cas ou
   : ($1=1)
      ALERTE("La sauvegarde n'a pas été effectuée car l'Utilisateur courant n'est pas"+
                              " Administrateur.")
   : ($1=2)
      ALERTE("La sauvegarde n'a pas été effectuée car vous avez choisi de ne pas la faire sur"+
                              " le même volume que votre base de données.")
   : ($1=3)
      ALERTE("La sauvegarde n'a pas été effectuée car une précédente sauvegarde a été faite"+
                              " aujourd'hui.")
   : ($1=0)
      ALERTE("La sauvegarde s'est déroulée avec succès !")

   Sinon
      LIRE INFORMATION SAUVEGARDE(2;error_num;error_desc)
      ALERTE("Erreur : "+Chaine(error_num)+" - "+error_desc)

Fin de cas

   `Methode projet : CheckDestination

   `Description: renvoie le nom du dossier de destination de la sauvegarde (stocké dans le fichier Backup.xml).

C_TEXTE(Path_Structure;$0)
C_TEXTE(Path_Prefs;Path_Structure;Path_BackupXML)
C_TEXTE($elementRef1;$elementRef2)
C_ENTIER($separator;$StrPtr)
C_ENTIER($myPlatform;$mySystem;$myMachine)

PROPRIETES PLATE FORME($myPlatform;$mySystem;$myMachine)

Si ($myPlatform=Windows ) ` on vérifie la plateforme
   $separator:=Code ascii("\\")
Sinon
   $separator:=Code ascii(":")
Fin de si

Path_Structure:=Fichier structure ` chemin d'accès de la structure.
$StrPtr:=Longueur(Path_Structure) ` longueur du chemin d'accès

Tant que (Path_Structure[[$StrPtr]]#Caractere($separator))
      ` on part de la fin de la chaîne jusqu'à trouver le séparateur
   $StrPtr:=$StrPtr-1
Fin tant que

   ` on contruit le chemin d'accès au dossier "Preferences" qui contient le fichier "Backup.xml"
$var1:=Sous chaine(Path_Structure;1;$StrPtr) 
Path_Prefs:=$var1+"Preferences"
Path_BackupXML:=Path_Prefs+Caractere($separator)+"Backup"+Caractere($separator)+"Backup.xml"

   `Dans ce fichier, nous récupérons le volume de destination de la sauvegarde
$ref1:=DOM Analyser source XML(Path_BackupXML) 
$elementRef1:=DOM Chercher element XML($ref1;"/Preferences4D/Backup/Settings/General")

   ` on cherche l'élément Destination folder
$elementRef2:=DOM Chercher element XML($elementRef1;"/General/DestinationFolder")

DOM LIRE VALEUR ELEMENT XML($elementRef2;value) ` on récupère la valeur

DOM FERMER XML($ref1)

$0:=value ` on renvoie dans $0 le nom du dossier de destination.