Mise à jour des datas automatique

Thanks very much....

 

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

L'installation de l'exe généré par windev permet de modifier automatiquement la structure des données en cas de modification de l'analyse.

La procédure ci-contre permet de se passer de l'installateur windev et d'inclure directement la modification des données dans votre executable.

Explications :
La fenêtre Accueildroitlect affiche une jauge et un libellé pour suivre l'avancée des modifications
La variable CSACTIF permet de savoir si les données son en mode Client/Serveur ou HyperFile car la syntaxe de HModifieStructure diffère un peu.

Code (Text):

fRepCrée(fRepExe()+"\Sauvegardes")
    HFerme("*")  
    OuvreFille(Accueildroitlect)
    //Réindexation automatique de tous les fichiers de l'analyse sauf VILLE
    sListeFichier = HListeFichier(hLstDétail+hLstTriée)
    i++
    sFichier=ExtraitChaîne(sListeFichier,i,RC)
    TANTQUE sFichier<>EOT
        SI Complète(ExtraitChaîne(sFichier,1),3)<>"GPW" ALORS
            Accueildroitlect.LIBMSG="Synchronisation de la Structure des Données... "+RC+ExtraitChaîne(sFichier,1)+" ("+SansEspace(ExtraitChaîne(sFichier,3))+")."+RC+"Patientez..."
            Multitâche(1)
            SI HFichierExiste(ExtraitChaîne(sFichier,1)) ALORS
                SI CSActif = 1 ALORS
                    HModifieStructure(ExtraitChaîne(sFichier,1),hmsSansContrôle,"","\Sauvegardes",Accueildroitlect.JAUGE1)
                SINON
                    HModifieStructure(ExtraitChaîne(sFichier,1),hmsSansContrôle,"",fRepExe()+"\Sauvegardes",Accueildroitlect.JAUGE1)
                FIN
            FIN
         
        FIN  
        // Fichier suivant...
        i++
        sFichier=ExtraitChaîne(sListeFichier,i,RC)
    FIN

 

Cliquez pour agrandir...