Information Technology Tips & Tricks
+32 475 23 19 91

Archives par mois : septembre 2012

Sous-total d’une rupture dans une table

Posté le Par Publié dans Webdev, Windev 
// Variables pour calculer les totaux moTotalValeur est un monétaire
// Parcours toutes les lignes de la table
POUR TOUTE LIGNE nIndice DE TABLE_Produit
  // Ajoute le CA de ce client au total Département
  moTotalValeur += TABLE_Produit.COL_Valeur[nIndice]
  // Si cette ligne correspond à la dernière ligne de la rupture
  SI nIndice = TableIndiceRupture(RUPT_BasRupture2, nIndice) ALORS
    // Affecte le total Département au champ total
    TABLE_Produit[nIndice].LIB_Sous_Total_Valeur = moTotalValeur
    // RAZ le montant total Département
    moTotalValeur = 0
  FIN
FIN

Sous-requêtes SQL

Posté le Par Publié dans Webdev, Windev

Windev Webdev Astuces

Sélectionner un ensemble d’enregistrements si une autre requête contient certaines informations

SELECT <nomrubrique1>
 FROM <fichier1>
 WHERE <nomrubrique2>  [Opérateur de comparaison]
 (SELECT <nomrubrique3>
 FROM <fichier2>
 WHERE <Condition>)

Exemple

Select Clients.IDclients, Clients.nom From Clients Where Clients.IDclients in ...
  (select Commandes.IDclients from Commandes where Commandes.total > 1000)

Decode SQL

Posté le Par Publié dans Divers

Windev Webdev Astuces

Renvoie le décodage d’une valeur (Exemple classique d’ un combo qui stocke 1,2,3 dans la rubrique personne.politesse)

Select personne.nom, Decode(personne.politesse,'1','Monsieur','2','Madame','3','Mademoiselle','') as Titre, Decode(personne.statut, '1', 'Marié', '2', 'Célibataire', '3', 'Veuf', 'Autre') as Statut, Rue, Zipcode, Ville From personne

Case dans une requête SQL

Posté le Par Publié dans Windev

Un case dans une requête SQL

CASE
WHEN when-condition THEN result-expression
WHEN when-condition THEN result-expression
ELSE result-expression
END

Exemple :

select Name,
  case
  when Continent = 'North America' then 'Continental U.S.'
  when Continent = 'Oceania' then 'Pacific Islands'
  else 'None'
  end as Region
  from states

Autre syntaxe

select Name,
  case Continent
  when 'North America' then 'Continental U.S.'
  when 'Oceania' then 'Pacific Islands'
  else 'None'
  end as Region
  from states

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

Adresser une commande CPL

Posté le Par Publié dans Windev, Windows 7

Les Fichiers CPL sont des fichiers qui lancent les Applications du Panneau de Configuration.

Vous pouvez donc en passant par Démarrer ensuite Exécuter et en tapant la commande associe ouvrir une application sans passer par le panneau de Configuration.

Exemple:
control.exe timedate.cpl,,0

Vous permet d’atteindre directement la fenêtre Date et Heure qui vous permettra entre autres de changer la Date et l’Heure de votre PC

le 0 à la fin de la commande vous permet d’arriver directement sur l’Onglet Date et Heure, si vous tapez cette commande control.exe timedate.cpl,,1 vous arriverez directement sur l’Onglet Horloges supplémentaires. Voyons ci dessous la liste des fichiers *.CPL disponibles

Liste des commandes CPL

Pour démarrer une application CPL depuis windev :

Lanceappli(« control.exe /name Microsoft.SpeechRecognitionOptions »)
ou (alternative)

SI SysVersionWindows() = "7" ET SysVersionWindows(sysProcesseur) = 64 ALORS
  LanceAppli("control.exe /name Microsoft.TextToSpeech")
FIN
SI SysVersionWindows() = "7" ET SysVersionWindows(sysProcesseur) = 32 ALORS
  LanceAppli("control.exe /name Microsoft.TextToSpeech")
FIN