A partir de la version Aruba, voir cette page.
Le module repris ici permet de créer de façon automatique des sous-répertoires dans l'onglet "explorateur de fichiers" de la fiche client. Le processus se déclenche à la validation de la fiche client via le module CLI_VALID.
Ce code tient compte des situations suivantes :
- Le répertoire de l'onglet explorateur de fichiers n'est créé que si on passe effectivement dans cet onglet. Ceci afin d'éviter la création d'une multitude de répertoires vides. Il faut donc d'abord en forcer la création. (C'est le rôle du premier createDirectory)
- De plus, C_id peut contenir des espaces ou des caractères non autorisés. Ils sont retirés par la fonction clean_rep()
- Autre cas de figure à envisager, l'utilisateur peut changer le root de ces répertoires dans "Outils / Options / Autres" (Variable REP_FILES)
Le code repris ci-dessous doit être placé dans un fichier CLI_VALID.PRG et compilé en FXP. Ce FXP doit se trouver dans le répertoire principal de Mercator.
le_dir=iif(!empty(m.REP_FILES),m.REP_FILES,m.rep_data)+'\Files\CLI\'+clean_rep(alltrim(m.C_ID))
=createDirectory(m.le_dir,0)
le_dir=m.le_dir+'\monrépertoire'
=createDirectory(m.le_dir,0)
return .T.
Veuillez noter que si la commande createDirectory est appelée sur un répertoire déjà existant, ceci ne provoque pas de message d'erreur.