Table : supprimer des lignes

Il est fréquent de vouloir supprimer toutes les lignes d’une table dont une colonne correspond à une valeur donnée.

Voici une petite procédure générique qui devrait pouvoir vous aider. 

Il vous suffit donc de passer en paramètre à la procédure le nombre de la table, le nom de la colonne et la valeur (indiquant que la ligne est à supprimer).
La procédure vous renverra en retour le nombre de lignes qui ont été supprimer à l’aide de cette fonction.

Procédure :

PROCEDURE fctTableColonneSupValeur_ent( LOCAL _chaTable,LOCAL _chaColonne,LOCAL _chaValeur)

chaTableColonne est une chaîne = _chaTable + « . » + _chaColonne
entNbLigneSup est un entier = 0

POUR entIndice = {_chaTable,indChamp}..Occurrence A 1 PAS -1
SI {chaTableColonne,indChamp}[entIndice] <> _chaValeur ALORS CONTINUER
TableSupprime({_chaTable,indChamp}..Nom,entIndice)
entNbLigneSup++
FIN

RENVOYER entNbLigneSup

Exemple d’appel à la procédure :

fctTableColonneSupValeur_ent(Table_Res..Nom ,Col_Int..Nom,Faux)

Source: WDLab

 

Tableau vers Table

 

 

Cette petite procédure générique vas vous permettre d’afficher rapidement un tableau mémoire dans un champ table

PROCEDURE pcdTableauVersTable(LOCAL _chaNomTable,LOCAL _TabTableau)

entIndice est un entier = 1

TableSupprimeTout({_chaNomTable,indChamp})

entNbEnr est un entier
entNbColonne est un entier
chaNomColonne est une chaîne

entNbColonne = TableauInfo(_TabTableau,tiNombreColonnes)
entNbEnr = TableauOccurrence(_TabTableau)

POUR entIndice = 1 A entNbEnr
TableAjouteLigne({_chaNomTable,indChamp})
chaNomColonne = «  »
POUR entIndiceColonne = 1 A entNbColonne
chaNomColonne = TableEnumèreColonne(_chaNomTable,entIndiceColonne)
{_chaNomTable + « . » + chaNomColonne,indChamp}[entIndice] = _TabTableau[entIndice,entIndiceColonne]
FIN
FIN

Source: WDLab

 

Interdire le Déplacement d’une fenêtre

 

 

Voici un petit bout de code qui pourrait vous servir pour interdire tout déplacement d’une fenêtre.

 

entBooge est un entier = 0×0216

strDimention est une structure
entX est un entier
entY est un entier
entLargeur est un entier
entHauteur est un entier
FIN

strMaDimention est une strDimention
chaNomFenetre est une chaîne = FenEnExécution()

strMaDimention:entX={chaNomFenetre,indFenêtre}..X
strMaDimention:entY={chaNomFenetre,indFenêtre}..Y
strMaDimention:entLargeur={chaNomFenetre,indFenêtre}..X+{chaNomFenetre,indFenêtre}..Largeur
strMaDimention:entHauteur={chaNomFenetre,indFenêtre}..Y+{chaNomFenetre,indFenêtre}..Hauteur

Evénement(pcdFixeFenetre,chaNomFenetre,entBooge)

PROCEDURE pcdFixeFenetre()

Transfert(_EVE.lParam,&strMaDimention,16)

 

Source: WDLab

 

Installation en réseau d’une application HyperFile SQL Serveur (3emePartie)

 

Paramétrage des historiques des versions

 

 

 

 

 

 

Repertoire de l’installation de l’application

 

 

 

 

 

 

 

 

 

 

 

 

Parametres des base de données

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Installation en réseau d’une application HyperFile SQL Serveur (2emePartie)

Ici le framework n’est pas installé dans l’exécutable pour ne pas alourdir l’exe.

Description du framework qui sera générer.

 

 

Installation en réseau d’une application HyperFile SQL Serveur (1er Partie)

Voici un petit tutoriel sur la mise en oeuvre d’une application en réseau. La première chose est de générer la procédure d’installation de l’exécutable.

 

 

 

 

 

 

Voila ce qui apparaît lors de la création de l’exécutable et que vous n’avait pas fait auparavant de tests automatique.

 

 

 

 

 

 

Supprimer les signes cabalistiques dans le sujet des emails envoyés avec WINDEV.

Suivant la messagerie utilisée pour la lecture d’un email envoyé avec WINDEV, Outlook notamment, le sujet des emails peut ne pas avoir les bons caractères (accents remplacés…).

C’est le cas lorsque le message est envoyé avec l’appel suivant :

EmailEnvoieMessage(« SessionSMTP »)

Pour que le mail envoyé soit correctement lu dans ce cas, il faut modifier le code d’envoi, en donnant l’option EmailOptionEncodeEntête :

EmailEnvoieMessage(« SessionSMTP », EmailOptionEncodeEntête)

Sans cette option, si le sujet du message est « c’est l’été », le message envoyé contient :

From:…

Subject: c’est l’été

To:…

Alors qu’avec l’option, il est codé différemment, et est mieux interprété par certaines messageries :

From:…

Subject: =?ISO-8859-1?Q?c’est_l’=E9t=E9=00?=

To:…

Source: Elian Lacroix

 

WinDev – Forum des professionnels en informatique

Lister tous les ordinateurs d’un réseau ou domaine:

//Créer une fentre avec une table memoire composée de 2 colonne
//Nom Ordinateur et Adresse IP

//A l’initialisation de la fenetre executer celà :

Sablier()
NumFic,i sont des entiers
NomFic est une chaîne = SysRep()+ »\LisNet.TXT »
NomOrd est une chaîne
ch est une chaîne

SI PAS fFichierExiste(NomFic)
fCrée(NomFic)
SINON
fSupprime(NomFic)
fCrée(NomFic)
FIN

DDELance(« command.com /C net view > « +SansEspace(NomFic),DDEIconise,Vrai)

NumFic=fOuvre(NomFic,foLectureEcriture)

ch = fLitLigne(NumFic)
TANTQUE ch <> EOT
SI ch[[1 A 2]] = »\\ »
NomOrd = ExtraitChaîne(ch,1, » « )+ « \ »
NomOrd = ExtraitChaîne(NomOrd,3, »\ »)
TableAjouteLigne(TABLEORD,NomOrd,NetAdresseIP(sansespace(NomOrd)))
FIN
ch = fLitLigne(NumFic)
FIN
sablier(faux)

Source: Ali Hindi

 

Comment générer aléatoirement un mot de passe ?

//Génération aléatoire d’un mot de passe.

//Pour chaque caractére (ici 10), il faut piocher 1 caractéres

//dans chaque série 0-9 A-Z et a-z

//Et repiocher dans ces trois 1 caractére

sMotPasse        est une chaîne

nSerieNum        est un entier

nSerieMaj        est un entier

nSerieMin        est un entier

nChoix           est un entier

i est un entier

POUR i = 1 A 10

        //Série 0-9

        InitHasard()

        nSerieNum = Hasard(48,57)

        //Série A-Z

        InitHasard()

        nSerieMaj = Hasard(65,90)

        //Série a-z

        InitHasard()

        nSerieMin = Hasard(97,122)

                //Choix entre les 3 séries

        InitHasard()

        nChoix = Hasard(1,3)

                SELON nChoix

                CAS 1 : sMotPasse +=Caract(nSerieNum)

                CAS 2 : sMotPasse +=Caract(nSerieMaj)

                CAS 3 : sMotPasse+=Caract(nSerieMin)

                AUTRE CAS : //Pas d’autre cas possible

        FIN

FIN

Info(« Nouveau mot de passe : » sMotPasse)

Source: Codewindev

 

Comment récupérer le serveur SMTP paramétré sur un poste windows

PROCEDURE GetServeurSMPT()

LOCAL
        sMailCompte est une chaîne

        sMailCompte = RegistreLit(« HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager »,« Default Mail Account »)

RENVOYER RegistreLit(« HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager\Accounts\ »+sMailCompte,« SMTP Server »)

Source: Codewindev