Information Technology Tips & Tricks
+32 475 23 19 91

Récupérer les messages sur un serveur Mail

Posté le Par Publié dans Windev 
SessionImap est une Email
SessionImap tabMessage est un tableau de Emails
SessionIMAP.AdresseServeur = Compte.IMAPServeur
SessionIMAP.Port = Compte.IMAPPort
SessionIMAP.Nom = Compte.IMAPUtilisateur
SessionIMAP.MotDePasse = gfDécrypte(Compte.IMAPPassword)
SessionIMAP.Option = Compte.IMAPConnexion = OPTION_SSL ? optionSSL SINON EmailOptionDéfaut
SI PAS EmailOuvreSession(SessionIMAP) ALORS 
   RENVOYER Faux 
FIN
// Récupération de tous les messages
tabMessage = EmailRécupèreTout(SessionIMAP,ertComplet)
// Parcours du tableau des messages avec une boucle POUR TOUT
POUR TOUT UnMessage DE tabMessage 
  Info(UnMessage..Message, UnMessage..Source) 
FIN
EmailFermeSession(SessionIMAP)

Convertir un fichier Csv Utf8 vers Ansi

Posté le Par Publié dans Webdev, Windev 
sFichier,sConteneur,sLigne,sTexte sont des chaînes
x est un entier
// Ouvre le sélecteur de fichiers
sFichier = fSélecteur("", "", "Sélectionnez un fichier...", "Csv" + TAB + "*.csv", "*.csv")
sConteneur=fChargeTexte(sFichier)
sConteneur =UTF8VersChaîne(sConteneur,alphabetAnsi)
POUR TOUTE CHAINE sLigne DE sConteneur SEPAREE PAR RC
  TableAjoute(Table1)
   TableSelectPlus(Table1,TableOccurrence(Table1))
  x = 0
  POUR TOUTE CHAINE sTexte DE sLigne SEPAREE PAR ";"
     x += 1
     SI x <= 4 // Prendre les 4 premières colonnes
        {"TABLE1.COL_Colonne"+x,indChamp}=sTexte
     FIN
  FIN
FIN

Rupture de table : couleur

Posté le Par Publié dans Windev

Changer la couleur des lignes de rupture dans une table :

Pour Toute Ligne nIndice de TABLE_Produit
  SI nIndice = TableIndiceRupture(RUPT_HautDeRupture,nIndice)
     TABLE_Produit[nIndice-1]..CouleurFond=Grisclair
  FIN
   SI nIndice = TableIndiceRupture(RUPT_BasDeRupture,nIndice)
     TABLE_Produit[nIndice+1]..CouleurFond=Grisclair
 FIN
FIN

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