Information Technology Tips & Tricks
+32 475 23 19 91

Archives par mot-clé: Astuces

Etat externe

Posté le Par Publié dans Windev

Vous souhaitez disposer d’un état modifiable externe au programme
(Pas encapsulé dans l’exe)

Voici la procédure

1. Description de l’état / Détail  cocher : Intégrer le code compilé
2. Le sauver dans le folder Exe
3. L’ajouter au projet
4. Le supprimer du projet. (PAS du disque)

Ouverture d’une connexion Hyperfile

Posté le Par Publié dans Windev

Tous les paramètres sont dans un fichier Config.ini

sConfig=frepexe("Config.ini")
gsTypeConnexion = INILit("CONNECTION","TypeConnexion","HF",sConfig)
gsCompressionTrames=INILit("CONNECTION","CompressionTrames","O",sConfig) // Oui si Réseau lent (Internet)
SI gsTypeConnexion="CS" ALORS
  MaConnexion est une Connexion
  MaConnexion..Utilisateur = INILit("CONNECTION","User","",sConfig)
  MaConnexion..MotDePasse = Décrypte(INILit("CONNECTION","Password","",sConfig),"Clé d'encrypage")
  //info(Décrypte(INILit("CONNECTION","Password","",sConfig),"igc"))
  MaConnexion..BaseDeDonnées = INILit("CONNECTION","Database","",sConfig)
  MaConnexion..Source = INILit("CONNECTION","Server","",sConfig)+":"+INILit("CONNECTION","Port","",sConfig)
  MaConnexion..Provider = hAccèsHFClientServeur
  MaConnexion..Accès = hOLectureEcriture
  MaConnexion..Cryptage = hCryptageNon
  MaConnexion..OptionsCurseur = hCurseurClient
  gsCompressionTrames=Majuscule(INILit("CONNECTION","Compression","O",sConfig))
  SI gsCompressionTrames="O"
    MaConnexion..Compression = Vrai
  SINON
    MaConnexion..Compression = Faux
  FIN
  SI HOuvreConnexion(MaConnexion) ALORS
    Info("Connecté au Serveur de données")
     HChangeConnexion("*",MaConnexion)
     gnConnexion = 1 //connexion CS établie
  SINON
     SI gEnModeTest() ALORS
        Info("Serveur introuvable","Utilisation Hyperfile Classique")
        gsEntêteConnexion="Mode Hyperfile - Fichiers locaux"
        gnConnexion = 2 //connexion HF établie
    SINON
        Info("Serveur introuvable","Programme terminé")
      FinProgramme()
     FIN
  FIN
SINON
  Info("Utilisation HyperfileClassique (Fichiers locaux)")
  gsEntêteConnexion="Hyperfile - Fichiers locaux"
FIN

Prendre l’heure sur un serveur Hyperfile SQL

Posté le Par Publié dans Windev

Récupérer la date et l’heure du serveur

2 fonctions servant à remplacer DateSys() et HeureSys().

PROCEDURE Serveur_DateSys()
  RENVOYER gauche(DateHeureUTCVersLocale(HInfoServeur("Maconnexion",hInfoDate)),8)
PROCEDURE Serveur_HeureSys()
  RENVOYER Gauche(Droite(DateHeureUTCVersLocale(HInfoServeur("Maconnexion",hInfoDate)),9),6)

Il faut qu’une connexion nommée « Maconnexion » soit établie vers un Serveur HyperFile.

Vous  pouvez remplacer vos fonctions DateSys et HeureSys par Serveur_DateSys() et Serveur_HeureSys.

Garnir un arbre

Posté le Par Publié dans Windev

Windev Webdev Astuces

Procédure récursive

PROCEDURE ChargeGroup(LOCAL nIDCatégorie = 0, LOCAL sNoeudParent = "Famille")
nPosition est un entier
POUR TOUT Group AVEC IDGroupParent = nIDCatégorie 
  // Ajoute dans l'arbre 
  ArbreAjoute(ARBRE_Group, sNoeudParent + TAB +Group.Name1,aDéfaut,aDéfaut,Group.IDGroup,aTriAlpha,Group.Name1) 
  // Sauvegarde de la position en cours dans le parcours 
  nPosition = HSauvePosition(Group) 
  // On rempli les enfants de cette catégorie 
  ChargeGroup(Group.IDGroup, sNoeudParent + TAB + Group.Name1) 
  // Une fois, qu'on a rempli les enfants, on revient au parcours initial 
  HRetourPosition(nPosition) 
FIN
ArbreDérouleTout(ARBRE_Group)