Information Technology Tips & Tricks
+32 475 23 19 91

Archives par mot-clé: Windev

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)

Envoyer un SMS via VoipBuster

Posté le Par Publié dans Windev 
// Url
sUrlRequete = "https://www.voipbuster.com/myaccount/sendsms.php?"
// Paramètres Post
sParametrePost = ChaîneConstruit("username=%1&password=%2&from=%3&to=%4&text=%5", sSMS_Login, sSMS_Password, sExpéditeur, sDestinataire, sMessage )
// Requête
sToSend=sUrlRequete+sParametrePost
SI HTTPRequête(sToSend) = Faux ALORS
  gsResultatSMS =ErreurInfo()
SINON
  gsResultatSMS = HTMLVersTexte(HTTPDonneRésultat(httpRésultat))
  gsResultatSMS = Remplace(gsResultatSMS, Caract(34), "")
  SI ChaîneOccurrence(gsResultatSMS, "success 1") ALORS
    gsResultatSMS=""
  SINON
    gsResultatSMS="Echec"
  FIN
FIN

Plantage Aperçu avant impression

Posté le Par Publié dans Windev

Windev Webdev Astuces

Ce problème n’est pas nouveau, je l’ai rencontré dans toutes les versions de Windev depuis la version 12.
On peut s’affranchir du programme de prévisualisation en recourant à la solution suivante (5 lignes de code).

J’ai contourné l’aperçu avant impression en utilisant Acrobat Reader comme outil de prévisualisation. Depuis lors je n’ai plus aucun souci.

Voici un exemple de code :

// iPDFGénérique sert à éviter d'utiliser le driver de l'imprimante par défaut
// qui constitue peut être la cause du plantage
// lanceappliassociée() ouvre le fichier ainsi généré avec Acrobat
// Le document est alors parfaitement visualisable en Acrobat
LOCAL
  sFichierPdf est une chaîne =fRepExe()+"\Etats\"+DateHeureSys()+".pdf"
iDestination(iPDFGénérique,sFichierPdf)
iImprimeEtat(gsFactureNormale)
LanceAppliAssociée(sFichierPdf)
// that's all

Pour être tout à fait propre, on peut ajouter une procédure automatique pour purger de temps en temps les fichiers pdf générés dans le dossier fRepxe()+ »\Etats »