Forum du club des d�veloppeurs et IT Pro - Blogs - Le Blog de DSR57 - Programmation WinDev par dsr57

WinDev : les temps d'impression

dsr57 — Sun, 19 Jun 2016 16:57:28 GMT

WinDev : �volution ou r�gression du temps d'impression

Dans ce billet nous allons voir comment � �voluer le temps de traitements des impressions de la version 19 � 21 de WinDev. Ce billet permet uniquement d'avoir un constat et une comparaison chiffr�e de ces temps d'impressions (ou d'export PDF) dans les diff�rentes versions de WinDev, il n'apporte pas de solution. Mais, si apr�s la lecture de celui-ci vous avez des propositions, des axes de r�flexions ou voir des solutions... je suis preneur.

Contexte technique

Ce paragraphe liste les points de d�tails techniques.

Version : WinDev 19, 20, 21.
Traitements : impression d'un �tat de 8 pages avec fond PDF. Chaque page � un fond PDF diff�rent. la d�gradation des temps de traitements proviendrait des fonds d'�tats.
Type de traitement : impression directe sur imprimante, export PDF.
Valeurs : 10 tests par type d'impression, exprim�es en millisecondes.

R�sultats

Ce paragraphe liste les r�sultats obtenus lors des tests. Ceux-ci ont �t� effectu�s sur le m�me ordinateur avec une base de donn�es locale nettoy�e ne comportant uniquement les informations n�cessaires pour les tests. Les temps ont �t� calcul�s en faisant la diff�rence de l'heure syst�me avant et apr�s l'appel des fonctions iImprimeEtat.

version 19

Test 1 Test 2 Test 3 Test 4 Test 5 Test 6 Test 7 Test 8 Test 9 Test 10

Imprimante 878 809 808 805 815 830 819 812 828 819

PDF 857 601 580 582 582 577 577 576 579 572

Moyenne : 822
Moyenne : 608

version 20

Test 1 Test 2 Test 3 Test 4 Test 5 Test 6 Test 7 Test 8 Test 9 Test 10

Imprimante 1227 1217 1222 1270 1222 1246 1251 1238 1226 1223

PDF 1580 1560 1558 1561 1561 1559 1572 1575 1571 1598

Moyenne : 1234
Moyenne : 1569

version 21

Test 1 Test 2 Test 3 Test 4 Test 5 Test 6 Test 7 Test 8 Test 9 Test 10

Imprimante 1024 1009 1009 1012 1037 1022 1014 1021 1015 1019

PDF 883 866 865 869 903 865 871 865 892 867

Moyenne : 1019
Moyenne : 867

Repr�sentation graphique

Ce paragraphe permet d'avoir une repr�sentation visuelle des r�sultats du paragraphe "R�sultats".

Comparaison des valeurs

Dans ce paragraphe nous allons comparer les valeurs moyennes entre les versions de WinDev.

WinDev 19 - 20

Augmentation de 50 % du temps de traitement
Augmentation de 158 % du temps de traitement

WinDev 19 - 21

Augmentation de 24 % du temps de traitement
Augmentation de 42 % du temps de traitement

WinDev 20 - 21

Diminution de 17 % du temps de traitement
Diminution de 45 % du temps de traitement

Nous constatons une augmentation des temps de traitements qu'ils soient pour une impression ou pour un export PDF depuis la version 19. Avec la version 21, nous constatons des augmentations plus faibles par rapport � la version 19 et une am�lioration en les comparant avec la version 20.

Conclusion

Ces augmentations sont significatives et ne passent pas inaper�u pour les utilisateurs, effectivement ils se plaignent de cette r�gression et nous n'avons aucune solution de contournement � leurs proposer et aucune solution technique au niveau du d�veloppement. Ce probl�me a �t� �voqu� avec un des intervenants pr�sent au TDF et un ticket d'incident a �t� ouvert au support technique pour la version 20, malgr� plusieurs propositions de correctifs aucuns ne donnent satisfaction... dossier � suivre. Comme sugg�r� en introduction si vous avez des propositions, n'h�sitez pas, je me ferais une joie de les prendre en compte et de les tester.

Bon dev � tous :ccool:

WinDev : reproduire la derni�re action sur une champ ou un groupe de champ

dsr57 — Wed, 30 Mar 2016 15:14:36 GMT

WinDev : reproduire la derni�re action sur un champ ou un groupe de champs

Contexte technique et fonctionnel

Contexte technique : WinDev 15 et sup�rieures (WinDev Mobile, WebDev).

Dans ce billet je souhaite �voquer une fonctionnalit� peu connue (avis personnel car je l'ai apprise il y a peu de temps) et celle-ci permet de gagner du temps.
WinDev nous permet de r�p�ter la derni�re action sur un champ ou un groupe de champs, c'est � dire si vous effectuez des modifications sur un champ vous pouvez les r�percuter facilement et rapidement sur un autre champ (ou sur un ensemble de champ). Ci-dessous des exemples de contexte dans lesquels celle-ci pourrait �tre utilis�e :

erreur de conception d'IHM, erreur de masque de saisie
modification du cahier des charges, possibilit� de saisir des montant n�gatifs
ajout d'une am�lioration, changement du fond de champ selon la saisie
...

Exemple

Pour comprendre mieux l'int�r�t de cette fonctionnalit� nous allons la mettre en application � travers un exemple, nous avons une fen�tre permettant de saisir des montants pour chaque mois de l'ann�e.

Les champs ont le masque de saisie : 999 999, 99

Suite aux premiers tests nous devons effectuer des modifications :

laisser la possibilit� de saisir des montant n�gatifs ;
changer la couleur de fond si le montant est inf�rieur � 0.

Pour le premier point nous allons modifier le masque dans la description du champ et pour le deuxi�me nous allons utiliser les "eYe magnet".
Nous effectuons les modifications sur le premier champs.

Modification du masque de saisie

Ajout de la couleur de fond avec "eYe Magnet"

A ce stade nous avons r�percut� les demandes de modifications sur un champ, reste � faire les autres. Il est possible de le faire champs par champs, solution r�barbative avec des possibilit�s d'erreur ou utiliser la fonctionnalit� "reproduire la derni�re action sur une champ ou un groupe de champs".

Pour utiliser celle-ci s�lectionner tous les champs restant � modifier et s�lectionner l'option "reproduire la derni�re action sur une champ ou un groupe de champs" accessible � partir du menu "Edition" ou la touche de raccourci "F4".

WinDev applique les modifications sur les champs.

C'est termin� :) .

Conclusion

Voil� � travers ce billet nous venons de voir l'int�r�t et la mise en application de la fonctionnalit� "reproduire la derni�re action sur une champ ou un groupe de champs"

Bon dev � tous :ccool:

WinDev : Savoir si un champ Combo est ouvert ou ferm�

dsr57 — Wed, 28 Oct 2015 10:28:17 GMT

WinDev : Savoir si une combo est ouvert ou ferm�e

Contexte technique : WinDev 20 et ant�rieures.

WinDev met � notre disposition un ensemble de propri�t�s sur les champ de type Combo : Propri�t�s associ�es aux combo

Mais il n'existe pas de propri�t� pour d�terminer si un champ combo est ouvert ou ferm�. Vous trouverez ci-dessous le code d'une fonction savoir si un champ combo est ouvert ou ferm� :

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
// Résumé : Connaitre si une combo est ouverte ou fermée
// Syntaxe :
//[  = ] ComboOuverte ( est chaîne)
//
// Paramètres :
//	ps_champ (chaîne ANSI) : Nom du champ de type combo
// Valeur de retour :
// 	Type indéterminé : 0 si combo est fermée - 1 si combo est ouverte
//
// Exemple :
// Si ComboOuverte("Cbx_ListeCliebt") Alors
//
PROCEDURE ComboOuverte(ps_champ est un chaîne)
 
 
SI ChampExiste(ps_champ) ALORS
	SI {ps_champ,indChamp}..Type = typComboAVS OU  {ps_champ,indChamp}..Type = typComboSNS ALORS
		RENVOYER (SendMessage(Handle(ps_champ),343 ,0,0))
	SINON
		ExceptionDéclenche(2,"Le champ '"+ps_champ+"' n'est pas de type combo/liste déroulante")
	FIN
SINON
	ExceptionDéclenche(1,"Le champ '"+ps_champ+"' n'existe pas")
FIN
 
RENVOYER Faux

WinDev : D�velopper avec un ecran haute d�finition

dsr57 — Mon, 19 Oct 2015 09:42:39 GMT

Configurer WinDev pour un �cran � haute r�solution, 4K

Dans ce billet, j'explique comment configurer WinDev pour d�velopper avec des �crans � haute d�finition, 4K, ...
Contexte technique : WinDev 20 et ant�rieure.

Avec l'�volution des r�solutions d'�cran, la d�mocratisation de la haute d�finition et le renouvellement des ordinateurs ; vous avez surement un ordinateur portable (le probl�me se pose moins sur les desktop) avec une r�solution �lev�e voir un �cran 4k. Cette configuration est agr�able pour les photos, vid�os mais pose certains probl�mes pour d�velopper en WinDev. Effectivement vous avez votre environnement de d�veloppement petit :

Fig. 1 : WinDev sur un �cran 4K

C'est difficile pour ne pas dire impossible de travailler une journ�e compl�te comme ca. WinDev permet de laisser g�rer l'affichage de son EDI par WinDows et ainsi avoir des taille d'�cran "normal" pour d�velopper. Il faut activer l'option "Laisser Windows g�rer le DPI de l'�diteur" accessible au chemin suivant : Outils --> Options --> Options g�n�rales de WinDev --> Onglet G�n�ral.

Fig. 2 : Fen�tre de configuration des options de WinDev

Vous devez red�marrez WinDev pour prendre en compte ce changement et vous pouvez de nouveau continuer votre d�veloppement :).

Pc-Soft avec la version 21 propose la prise en charge en natif de ces r�solutions. Cf nouveaut� 042 : Support des �crans 4k en d�veloppement.

Bon dev � tous :ccool:

WinDev 21 et ses nouveaut�s

dsr57 — Fri, 16 Oct 2015 14:56:01 GMT

PC-Soft annonce la version 21 de ses EDI avec 921 nouveaut�s.

Comme chaque ann�e, Pc-Soft nous annonce en ce d�but d'automne la nouvelle version de ses EDI : WinDev, WebDev, WinDev mobile, cette version 21 est pr�sent�e avec 921 nouveaut�s. Et comme chaque ann�e, je livre mon avis sur ces nouveaut�s, celles que je trouve int�ressantes. Attention, cette liste est �tablie par rapport mes propres besoins, vous en trouverez surement d�autres.

027 : WDAnalytics

Un outil int�ressant qui permettra d'avoir une analyse de l'utilisation des logiciels par les utilisateurs. Cela devrait permettre d'avoir un retour d'exp�rience utilisateur et d'am�liorer les interfaces.
On peut reprocher le faite que cette nouveaut� prenne les point de 027 � 040.

055 : G�n�rateur de gabarit

Outil int�ressant car aujourd'hui la cr�ation d'un gabarit n'est pas une mince affaire.
Cela me permettra de reprendre un vieux projet ...

070 : PDF/A

la demande de ce format devient r�currente pour ne pas dire syst�matique dans certains projets professionnels

072 : Etat avec formulaire PDF en fond : meilleure quali�

Cela �vitera toutes les manipulations et calcul pour �viter la perte de qualit�.

089 -090 : Code cible conditionnel

Non n�gligeable quand l'in effectue des solutions cross plate forme avec certaines sp�cificit�s diff�rentes.

103 : ICalendar

Cette nouveaut� facilitera les automatismes avec les messageries.

Conclusion

Avant de donner mon ressenti sur cette version, il faut pr�ciser que les sorties des nouvelles versions des OS de WinDows et IOS ont du donner pas mal de travail � Pc-Soft, mais je trouve le contenu de cette version globalement d�cevante. Peut �tre que le chiffre de 921 est tr�s nettement sur estim�... Rendez vous l'ann�e prochaine

Bon dev :ccool:

WinDev : fonctions de recherche dans un champ Table

dsr57 — Tue, 06 Oct 2015 20:16:40 GMT

Nouvelles fonctions de recherche dans un champ Table

Contexte technique et fonctionnel

Je commence ce billet par une affirmation, lors de la programmation sur l'EDI WinDev, nous avons tous utiliser le champ Table (Si non un petit coup d'oeil sur l'aide en ligne est n�cessaire pour continuer ce billet : champ Table) et nous avons programm� celui-ci avec les fonctions :

Dans ce billet, nous allons voir les recherches dans un champ Table, WinDev nous met � disposition la fonction TableCherche, d'apr�s l'aide en ligne, cette fonction effectue une recherche un �l�ment dans une colonne. Mais celle-ci ne nous permet pas

la recherche d'un �l�ment dans toutes les colonnes de la table ;
la recherche d'un �l�ment dans un ensemble de colonne ;
la recherche d'un ensemble d'�l�ments dans une colonne ;
la recherche d'un ensemble d'�l�ments dans un ensemble de colonnes.

Afin de rendre moins abstrait ces possibilit�s manquantes, prenons un exemple. Une fen�tre de recherche client compos�e d'une table et diff�rents champs de recherche.

Fig. 1 : exemple de fen�tre servant de jeu d'essai

Nous voulons pouvoir rechercher tous les clients avec les crit�res suivants :

avoir une num�ro de t�l�phone portable (point 2) ;
habiter dans les d�partements 57 et 54 (point 3) ;
habiter dans les d�partements du 57, 54 et avoir un t�l�phone professionnel portable (point 4).

Pour illustrer le point 1, prenons l'exemple d'un tableau affichant le r�sultat d'un jeu de d�.

Fig. 2 : exemple de fen�tre servant de jeu d'essai

Nous voulons pouvoir rechercher les joueurs qui ont eu un 6.

Les fonctions utilisent le type de variable Champ, les fonctions suivantes sont disponible pour les versions de WinDev : 19 et sup�rieures.

Les fonctions

Rechercher un �l�ment dans toutes les colonnes

Cette fonction permet de rechercher un �l�ment dans toutes les colonnes d'une table.

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
// Résumé : Effectue une recherche dans toutes les colonnes d'un champ table.
// Syntaxe :
//[  = ] TableCherche ( est champ,  est variant [,  est booléen [,  est entier]])
//
// Paramètres :
//	pc_champ (champ) : Nom du champ table ou de la colonne.
//	pv_ValeurRecherche (variant) : valeur recherchée.
//	pb_rechercheIdentique (booléen - valeur par défaut=1) : Vrai recherche à l'identique. Faux recherche générique, dans ce cas, tous les éléments commençant par <Élément recherché> sont retournés
//	pi_indiceDepart (entier - valeur par défaut=1) : Numéro de la ligne de départ de la recherche dans la table.
// Valeur de retour :
// 	entier : Indice de l'élément trouvé, -1 si aucun élément ne correspond à la recherche.
//
// Exemple :
// TableCherche(Tab_listeInfoClient,"mail",faux,1).
//
PROCEDURE TableCherche(pc_champ est un Champ,pv_ValeurRecherche est un Variant,pb_rechercheIdentique est un booléen=Vrai,pi_indiceDepart est un entier=1)
 
//----->Declaration des variables
li_indiceDepart, li_nbColonne est un entier
 
//----->Initialisation des variables
li_nbColonne=1
 
SI ChampExiste(pc_champ..NomComplet) ALORS
	SI pc_champ..Type = typTable ALORS
 
		TANTQUE TableEnumèreColonne(pc_champ..Nom,li_nbColonne)<>""
			li_nbColonne++
		FIN
		li_nbColonne--
 
		SI pi_indiceDepart>0 ALORS
			li_indiceDepart=pi_indiceDepart
		SINON
			li_indiceDepart=1
		FIN
 
		POUR li_i=li_indiceDepart _A_ TableOccurrence(pc_champ)
			POUR li_j=1 _A_ li_nbColonne
				SI pb_rechercheIdentique ALORS
					SI pc_champ[li_i,li_j] = pv_ValeurRecherche ALORS
						RENVOYER li_i
					FIN
				SINON
					SI ChaîneCommencePar(pc_champ[li_i,li_j],pv_ValeurRecherche,ccNormal) ALORS
						RENVOYER li_i
					FIN
				FIN
			FIN
		FIN
	SINON
		ExceptionDéclenche(2,"Le champ '"+pc_champ..NomComplet+"' n'est pas de type table")
	FIN
SINON
	ExceptionDéclenche(1,"Le champ '"+pc_champ..NomComplet+"' n'existe pas")
FIN
 
RENVOYER -1

Exemple :

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
 
li_resRech est un entier
 
li_resRech=TableCherche(Tab_LstResultat,"6",vrai)
TANTQUE li_resRech<>-1
        Trace("Ligne : "+li_resRech)
        li_resRech=TableCherche(Tab_LstResultat,"6",vrai,li_resRech+1)
FIN

Rechecrher une valeur dans plusieurs colonnes

Cette fonction permet de rechercher un �l�ment dans plusieurs colonnes d'un champ de type table.

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 
// Résumé : Effectue une recherche dans plusieurs les colonnes d'un champ table.
// Syntaxe :
//[  = ] TableCherche ( est tableau,  est variant [,  est booléen [,  est entier]])
//
// Paramètres :
//	pt_LstColonne (tableau) : Liste des colonnes.
//	pv_ValeurRecherche (variant) : valeur recherchée.
//	pb_rechercheIdentique (booléen - valeur par défaut=1) :  Vrai recherche à l'identique. Faux recherche générique, dans ce cas, tous les éléments commençant par <Élément recherché> sont retournés.
//	pi_indiceDepart (entier - valeur par défaut=1) : Numéro de la ligne de départ de la recherche dans la table.
// Valeur de retour :
// 	entier : Indice de l'élément trouvé, -1 si aucun élément ne correspond à la recherche.
//
// Exemple :
// TableCherche([Col_info,col_mailperso,Col_mailPro],"@",faux,1).
//
PROCEDURE TableCherche(pt_LstColonne est un tableau de Champ,pv_ValeurRecherche est un Variant,pb_rechercheIdentique est un booléen=Vrai,pi_indiceDepart est un entier=1)
 
//----->Declaration des variables
li_indiceDepart, li_nbColonne est un entier
ls_nomTable est une chaîne
lo_ChampTemp est un Champ
 
//----->Initialisation des variables
li_nbColonne=1
 
//----->Test si le tableau en contient que des colonnes
POUR li_i=1 _A_ TableauOccurrence(pt_LstColonne)
 
	ls_nomTable=pt_LstColonne[li_i]..NomComplet
	ls_nomTable=ExtraitChaîne(ls_nomTable,2,".",DepuisDébut)
 
	SI {ls_nomTable,indChamp}..Type <> typTable ALORS
		ExceptionDéclenche(2,"Le champ '"+pt_LstColonne[li_i]..NomComplet+"' n'est pas de type table")
	FIN
FIN	
 
 
SI pi_indiceDepart>0 ALORS
	li_indiceDepart=pi_indiceDepart
SINON
	li_indiceDepart=1
FIN
 
POUR li_i=li_indiceDepart _A_ TableOccurrence(ls_nomTable)
 
	POUR li_j=1 _A_ TableauOccurrence(pt_LstColonne)
		lo_ChampTemp<-pt_LstColonne[li_j]
		SI pb_rechercheIdentique ALORS
			SI lo_ChampTemp[li_i] = pv_ValeurRecherche ALORS
				RENVOYER li_i
			FIN
		SINON
			SI ChaîneCommencePar(lo_ChampTemp[li_i],pv_ValeurRecherche,ccNormal) ALORS
				RENVOYER li_i
			FIN
		FIN
	FIN
FIN
 
 
RENVOYER -1

Exemple :

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
 
lt_lstColonnes est une tableau de 2 Champ
lt_lstColonnes[1]<-Col_TelPerso
lt_lstColonnes[2]<-Col_TelPro
 
li_resRech=TableCherche(lt_lstColonnes,"06",Faux)
TANTQUE li_resRech<>-1
	Trace("Ligne : "+li_resRech)
	li_resRech=TableCherche(lt_lstColonnes,"06",Faux,li_resRech+1)
FIN

Rechercher une liste de valeurs dans une table (ou une colonne)

Cette fonction permet de rechercher une liste de valeurs dans un champ de type table ou dans plusieurs colonnes.

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
 
// Résumé : Effectue une recherche dans un champ table ou colonne
// Syntaxe :
//[  = ] TableCherche ( est champ,  est tableau [,  est booléen [,  est entier]])
//
// Paramètres :
//	pc_champ (champ) : Nom du champ table ou de la colonne.
//	pt_LstValeurRecherche (tableau) : Liste des valeurs recherchées.
//	pb_rechercheIdentique (booléen - valeur par défaut=1) : Vrai recherche à l'identique. Faux recherche générique, dans ce cas, tous les éléments commençant par <Élément recherché> sont retournés
//	pi_indiceDepart (entier - valeur par défaut=1) : Numéro de la ligne de départ de la recherche dans la table.
// Valeur de retour :
// 	entier : Indice de l'élément trouvé, -1 si aucun élément ne correspond à la recherche.
//
// Exemple :
// TableCherche(Col_CodePostal,["57","55","54,"88"],faux,1).
//
PROCEDURE TableCherche(pc_champ est un Champ,pt_LstValeurRecherche est un tableau de Variant,pb_rechercheIdentique est un booléen=Vrai,pi_indiceDepart est un entier=1)
 
//----->Declaration des variables
li_indiceDepart est un entier
 
 
SI ChampExiste(pc_champ..NomComplet) ALORS
	SI pc_champ..Type = typTable ALORS
 
		SI pi_indiceDepart>0 ALORS
			li_indiceDepart=pi_indiceDepart
		SINON
			li_indiceDepart=1
		FIN
 
		POUR li_i=li_indiceDepart _A_ TableOccurrence(pc_champ)
			POUR li_j=1 _A_ pc_champ..NombreColonne
				POUR li_k=1 _A_ pt_LstValeurRecherche..Occurrence 
 
					SI pb_rechercheIdentique ALORS
						SI pc_champ[li_i,li_j] = pt_LstValeurRecherche[li_k] ALORS
							RENVOYER li_i
						FIN
					SINON
						SI ChaîneCommencePar(pc_champ[li_i,li_j],pt_LstValeurRecherche[li_k],ccNormal) ALORS
							RENVOYER li_i
						FIN
					FIN
				FIN
			FIN
		FIN
	SINON 
		//----->Déclaration de variables
		ls_nomTable est une chaîne
 
		ls_nomTable=pc_champ..NomComplet
		ls_nomTable=ExtraitChaîne(ls_nomTable,2,".",DepuisDébut)
 
		SI {ls_nomTable,indChamp}..Type = typTable ALORS
			SI pi_indiceDepart>0 ALORS
				li_indiceDepart=pi_indiceDepart
			SINON
				li_indiceDepart=1
			FIN
 
			POUR li_i=li_indiceDepart _A_ TableOccurrence(ls_nomTable)
				POUR li_j=1 _A_ pt_LstValeurRecherche..Occurrence 
					SI pb_rechercheIdentique ALORS
						SI pc_champ[li_i] = pt_LstValeurRecherche[li_j] ALORS
							RENVOYER li_i
						FIN
					SINON
						SI ChaîneCommencePar(pc_champ[li_i],pt_LstValeurRecherche[li_j],ccNormal) ALORS
							RENVOYER li_i
						FIN
					FIN
				FIN
			FIN
		SINON
			ExceptionDéclenche(2,"Le champ '"+pc_champ..NomComplet+"' n'est pas de type table ou colonne")
		FIN
	FIN
SINON
	ExceptionDéclenche(1,"Le champ '"+pc_champ..NomComplet+"' n'existe pas")
FIN
 
RENVOYER -1

Exemple :

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
 
li_resRech est un entier
li_resRech=TableCherche(Col_CodePostal,["54","57"],Faux)
TANTQUE li_resRech<>-1
	Trace("Ligne : "+li_resRech)
	li_resRech=TableCherche(Col_CodePostal,["54","57"],Faux,li_resRech+1)
FIN

Rechercher un couple de valeurs

Cette fonction permet de rechercher un couple de valeurs dans un couple de colonnes

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
 
// Résumé : Effectue une recherche d'un couple de valeurs dans des colonnes.
// Syntaxe :
//[  = ] TableCherche ( est champ,  est tableau [,  est booléen [,  est entier]])
//
// Paramètres :
//	pt_LstColonne (tableau) : Liste des colonnes.
//	pt_LstValeurRecherche (tableau) : Liste des couples de valeurs recherchées.
// 	pb_rechercheIdentique (booléen - valeur par défaut=1) : Vrai recherche à l'identique. Faux recherche générique, dans ce cas, tous les éléments commençant par <Élément recherché> sont retournés.
// 	pi_indiceDepart (entier - valeur par défaut=1) : Numéro de la ligne de départ de la recherche dans la table.
// Valeur de retour :
// 	entier : Indice de l'élément trouvé, -1 si aucun élément ne correspond à la recherche.
//
//
// Exemple :
//TableCherche([Col_codePostal,col_Ville],[]],faux,1).
//
 
PROCEDURE TableCherche(pt_LstColonne est un tableau de Champ,pt_LstValeurRecherche est un tableau dynamique,pb_rechercheIdentique est un booléen=Vrai,pi_indiceDepart est un entier=1)
 
//----->Declaration des variables
lb_ligneOK est un booléen
li_indiceDepart, li_nbColonne est un entier
ls_nomTable est une chaîne
//lo_ChampTemp est un champ
 
//----->Initialisation des variables
li_nbColonne=1
 
//----->Test si le tableau en contient que des colonnes
POUR li_i=1 _A_ TableauOccurrence(pt_LstColonne)
 
	ls_nomTable=pt_LstColonne[li_i]..NomComplet
	ls_nomTable=ExtraitChaîne(ls_nomTable,2,".",DepuisDébut)
 
	SI {ls_nomTable,indChamp}..Type <> typTable ALORS
		ExceptionDéclenche(2,"Le champ '"+pt_LstColonne[li_i]..NomComplet+"' n'est pas de type table")
	FIN
FIN	
 
 
SI TableauOccurrence(pt_LstColonne) = TableauInfo(pt_LstValeurRecherche,tiDimension) ALORS
 
	SI pi_indiceDepart>0 ALORS
		li_indiceDepart=pi_indiceDepart
	SINON
		li_indiceDepart=1
	FIN
 
	POUR li_i=li_indiceDepart _A_ TableOccurrence(ls_nomTable)
		POUR li_k=1 _A_ TableauInfo(pt_LstValeurRecherche,tiNombreLignes)
			lb_ligneOK=Vrai
			POUR li_j=1 _A_ TableauOccurrence(pt_LstColonne)
				lo_ChampTemp est un Champ<-pt_LstColonne[li_j]
 
				SI pb_rechercheIdentique ALORS
					SI lo_ChampTemp[li_i] <> pt_LstValeurRecherche[li_k,li_j] ALORS
						lb_ligneOK=Faux
						SORTIR
					FIN
				SINON
					SI ChaîneCommencePar(lo_ChampTemp[li_i],pt_LstValeurRecherche[li_k,li_j],ccNormal)=Faux ALORS
						lb_ligneOK=Faux
						SORTIR
					FIN
				FIN
			FIN
 
			SI lb_ligneOK ALORS
				SORTIR
			FIN
 
		FIN
		SI lb_ligneOK ALORS
			RENVOYER li_i
		FIN
	FIN
SINON
	ExceptionDéclenche(3,"La dimension du tableau passé en paramètre 1 est différente de la dimension du tableau passé en paramètre 2")
FIN
 
RENVOYER -1

Exemple :

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
lt_lstColonne est une tableau de 2 Champ
lt_lstColonne[1]<-Col_CodePostal
lt_lstColonne[2]<-Col_TelPro
 
lt_lstValeurs est une tableau de 0 par 2 Variant
lt_lstValeurs= [["57","06"],["54","06"]]
 
li_resRech=TableCherche(lt_lstColonne,lt_lstValeurs,Faux)
TANTQUE li_resRech<>-1
	Trace("Ligne : "+li_resRech)
	li_resRech=TableCherche(lt_lstColonne,lt_lstValeurs,Faux,li_resRech+1)
FIN

Les exceptions

Comme vous avez pu le constater en lisant le code source des fonctions, celles-ci d�clenchent des exceptions en cas de probl�me. Trois types d'exceptions sont g�r�es :

Code	Message
1	Le champ '%%Champ%%' n'existe pas
2	Le champ '%%Champ%%' n'est pas de type table ou colonne
3	Les dimensions des tableaux pass�s en param�tre sont diff�rentes.

Pour plus d'informations sur la gestion des exceptions, consulter l'aide en ligne : M�canisme des exceptions g�n�rales.

Conclusion

Ces fonctions augmentent la possibilti� de recherche dans un champ Table. A voir, si PC-Soft int�grera ces propositions dans une future version de son EDI.

Bon dev � tous :ccool:

WinDev : fonctions de s�lection/d�s�lection d'une colonne de type interrupteur V2

dsr57 — Mon, 28 Sep 2015 11:20:47 GMT

Nouvelles fonctions pour am�liorer la gestion de s�lection/d�s�lection d'une colonne de type interrupteur dans un champ Table V2

Contexte technique

Dans le premier billet WinDev : fonctions de s�lection/d�s�lection d'une colonne de type interrupteur, je mettais � disposition une collection de proc�dures facilitant la gestion d'une colonne de type interrupteur en proposant un ensemble de possibilit� pour g�rer la s�lection/d�s�lection. Ces fonctions :

TableSelectionne
TableSelectionneTout
TableDeSelectionne
TableDeSelectionneTout

prenaient en premier param�tre le nom du champ sous forme de chaine de caract�re. Depuis WinDev 19, un nouveau type de variable est disponible : Champ.
Je met � disposition une nouvelle version de ces fonctions avec ce type de variable.

Version de WinDev : 19 et sup�rieures

Les fonctions

TableSelectionne

Cette fonction permet de s�lectionner plusieurs cases d'une colonnes de type interrupteur en passant les indices en param�tres.

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
 
// Résumé : 
// Syntaxe :
//[  = ] TableDeSelectionne ( est champ,  est tableau)
//
// Paramètres :
//	pc_champ (champ) : Nom de la colonne ou nom de la table
//	pt_LstIndice (tableau) : Liste des indices des lignhe sà sélectionner
// Valeur de retour :
// 	booléen : Vrai si les indices ont été sélectionné
//
// Exemple :
// TableSelectionne(Col_select,[1,5,10])
//
PROCEDURE TableDeSelectionne(pc_champ est un Champ,pt_LstIndice est un tableau d'entiers)
 
//----->Declaration des variables
lb_retour est un booléen
ls_MessageErreur,ls_nomTable  est une chaîne
li_tableOccurrence est un entier
 
//----->Initialisation des variables
ls_MessageErreur="Vous avez appelé l'opérateur [] sur le champ %1."+RC+...
"L'indice spécifié [%2] est invalide. "+RC+...
"Les valeurs valides sont comprises entre 1 et %3 (inclus)."
 
//----->Initialisation des variables
lb_retour=Faux
 
SI ChampExiste(pc_champ..NomComplet) ALORS
	SI pc_champ..Type = typInterr ALORS
 
		ls_nomTable=pc_champ..NomComplet
		ls_nomTable=ExtraitChaîne(ls_nomTable,2,".",DepuisDébut)
 
		SI pc_champ..Type = typTable ALORS
			//----->Initialisation des variables
			li_tableOccurrence={ls_nomTable,indChamp}..Occurrence
 
			POUR li_i=1 _A_ pt_LstIndice..Occurrence
				SI pt_LstIndice[li_i] <= li_tableOccurrence ALORS
					pc_champ[pt_LstIndice[li_i]]=Faux
				SINON
					ExceptionDéclenche(3,ChaîneConstruit(ls_MessageErreur,pc_champ..NomComplet,pt_LstIndice[li_i],li_tableOccurrence))
				FIN
			FIN
		SINON
			ExceptionDéclenche(2,"Le champ '"+pc_champ..NomComplet+"' n'est pas de type table ou colonne")
		FIN
 
		lb_retour=Vrai
	SINON SI pc_champ..Type = typTable ALORS
 
		li_tableOccurrence=pc_champ..Occurrence
 
		POUR li_i=1 _A_ pc_champ..NombreColonne
			SI pc_champ[1,li_i]..Type = typInterr ALORS
				POUR li_j=1 _A_ pt_LstIndice..Occurrence
					SI pt_LstIndice[li_j] <= li_tableOccurrence ALORS
						pc_champ[pt_LstIndice[li_j],li_i]=Faux
					SINON
						ExceptionDéclenche(3,ChaîneConstruit(ls_MessageErreur,pc_champ..NomComplet,pt_LstIndice[li_i],li_tableOccurrence))
					FIN
				FIN
				lb_retour=Vrai
				SORTIR
			FIN
		FIN
	SINON
		ExceptionDéclenche(2,"Le champ '"+pc_champ..NomComplet+"' n'est pas de type table ou colonne")
	FIN
SINON
	ExceptionDéclenche(1,"Le champ '"+pc_champ..NomComplet+"' n'existe pas")
FIN
 
RENVOYER lb_retour

TableSelectionneTout

Cette fonction permet de s�lectionner toutes les cases d'une colonne de type interrupteur.

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
// Résumé : Selectionne toutes lignes de la colonne de type interrupteur
// Syntaxe :
//[  = ] TableSelectionneTout ( est champ)
//
// Paramètres :
//	pc_champ (champ) : Nom de la table ou nom de la colonne
// Valeur de retour :
// 	booléen : Vrai si toutes les lignes ont été sélectionnées
//
// Exemple :
// TableSelectionneTout(Col_Select)
//
PROCEDURE TableSelectionneTout(pc_champ est un Champ)
 
//----->Declaration des variables
lb_retour est un booléen
 
//----->Initialisation des variables
lb_retour=Faux
 
SI ChampExiste(pc_champ..NomComplet) ALORS
	SI pc_champ..Type = typColonne ALORS
		POUR li_i=1 _A_ TableOccurrence(pc_champ)
			pc_champ[li_i]=1
		FIN	
		lb_retour=Vrai
	SINON SI pc_champ..Type = typTable ALORS
		POUR li_i=1 _A_ pc_champ..NombreColonne
			SI pc_champ[1,li_i]..Type = typInterr ALORS
				POUR li_j=1  _A_ TableOccurrence(pc_champ)
					pc_champ[li_j,li_i]=Vrai
				FIN
				lb_retour=Vrai
				SORTIR
			FIN
		FIN
	SINON
		ExceptionDéclenche(2,"Le champ '"+pc_champ..NomComplet+"' n'est pas de type table ou colonne")
	FIN
SINON
	ExceptionDéclenche(1,"Le champ '"+pc_champ..NomComplet+"' n'existe pas")
FIN
 
RENVOYER lb_retour

TableDeselectionne

Cette fonction permet de d�s�lectionner toutes les cases d'une colonne de type interrupteur.

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
 
// Résumé : Désélectionne les options des lignes passées en patamètres
// Syntaxe :
//[  = ] TableDeSelectionne ( est champ,  est tableau)
//
// Paramètres :
//        pc_champ (champ) : nom de la colonne de type interrupteur ou de la table
//        pt_LstIndice (tableau) : Liste des indices des lignes à désélectionner
// Valeur de retour :
//         booléen :  vrai si toutes les indices passé en paramètres ont été traité avec succès
//
// Exemple :
// TableDeSelectionne(Col_Export,[1,5,10])
//
PROCEDURE TableDeSelectionne(pc_champ est un Champ,pt_LstIndice est un tableau d'entiers)
 
//----->Declaration des variables
lb_retour est un booléen
ls_MessageErreur,ls_nomTable  est une chaîne
li_tableOccurrence est un entier
 
//----->Initialisation des variables
ls_MessageErreur="Vous avez appelé l'opérateur [] sur le champ %1."+RC+...
"L'indice spécifié [%2] est invalide. "+RC+...
"Les valeurs valides sont comprises entre 1 et %3 (inclus)."
 
//----->Initialisation des variables
lb_retour=Faux
 
SI ChampExiste(pc_champ..NomComplet) ALORS
	SI pc_champ..Type = typInterr ALORS
 
		ls_nomTable=pc_champ..NomComplet
		ls_nomTable=ExtraitChaîne(ls_nomTable,2,".",DepuisDébut)
 
		SI pc_champ..Type = typTable ALORS
			//----->Initialisation des variables
			li_tableOccurrence={ls_nomTable,indChamp}..Occurrence
 
			POUR li_i=1 _A_ pt_LstIndice..Occurrence
				SI pt_LstIndice[li_i] <= li_tableOccurrence ALORS
					pc_champ[pt_LstIndice[li_i]]=Faux
				SINON
					ExceptionDéclenche(3,ChaîneConstruit(ls_MessageErreur,pc_champ..NomComplet,pt_LstIndice[li_i],li_tableOccurrence))
				FIN
			FIN
		SINON
			ExceptionDéclenche(2,"Le champ '"+pc_champ..NomComplet+"' n'est pas de type table ou colonne")
		FIN
 
		lb_retour=Vrai
	SINON SI pc_champ..Type = typTable ALORS
 
		li_tableOccurrence=pc_champ..Occurrence
 
		POUR li_i=1 _A_ pc_champ..NombreColonne
			SI pc_champ[1,li_i]..Type = typInterr ALORS
				POUR li_j=1 _A_ pt_LstIndice..Occurrence
					SI pt_LstIndice[li_j] <= li_tableOccurrence ALORS
						pc_champ[pt_LstIndice[li_j],li_i]=Faux
					SINON
						ExceptionDéclenche(3,ChaîneConstruit(ls_MessageErreur,pc_champ..NomComplet,pt_LstIndice[li_i],li_tableOccurrence))
					FIN
				FIN
				lb_retour=Vrai
				SORTIR
			FIN
		FIN
	SINON
		ExceptionDéclenche(2,"Le champ '"+pc_champ..NomComplet+"' n'est pas de type table ou colonne")
	FIN
SINON
	ExceptionDéclenche(1,"Le champ '"+pc_champ..NomComplet+"' n'existe pas")
FIN
 
RENVOYER lb_retour

TableDeselectionneTout

Cette fonction permet de d�s�lectionner toutes les cases d'une colonne de type interrupteur.

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
// Résumé : désélectionne toutes les options d'une colonne de type interrupteur
// Syntaxe :
//[  = ] TableDeselectionneTout ( est champ)
//
// Paramètres :
//        pc_champ (champ) : nom de la colonne ou nom de la table
// Valeur de retour :
//         booléen : vrai si toutes les options de la colonne interrupteur ont été désélectionnées
//
// Exemple :
// TableDeselectionneTout(Col_Export)
//       
PROCEDURE TableDeselectionneTout(pc_champ est un Champ)
 
//----->Declaration des variables
lb_retour est un booléen
 
//----->Initialisation des variables
lb_retour=Faux
 
SI ChampExiste(pc_champ..NomComplet) ALORS
	SI pc_champ..Type = typColonne ALORS
		POUR li_i=1 _A_ TableOccurrence(pc_champ)
			pc_champ[li_i]=0
		FIN	
		lb_retour=Vrai
	SINON SI pc_champ..Type = typTable ALORS
		POUR li_i=1 _A_ pc_champ..NombreColonne
			SI pc_champ[1,li_i]..Type = typInterr ALORS
				POUR li_j=1  _A_ TableOccurrence(pc_champ)
					pc_champ[li_j,li_i]=0
				FIN
				lb_retour=Vrai
				SORTIR
			FIN
		FIN
	SINON
		ExceptionDéclenche(2,"Le champ '"+pc_champ..NomComplet+"' n'est pas de type table ou colonne")
	FIN
SINON
	ExceptionDéclenche(1,"Le champ '"+pc_champ..NomComplet+"' n'existe pas")
FIN
 
RENVOYER lb_retour

Exceptions

Pour plus de renseignements sur la gestion des exceptions , voir le billet initial WinDev : fonctions de s�lection/d�s�lection d'une colonne de type interrupteur

Conclusion

Par ce billet, je viens de mettre � disposition les fonctions pour am�liorer la gestion par programmation du champ Interrupteur avec le type de variable Champ. N'h�sitez pas � me faire part de vos retours pour am�liorer, compl�ter la liste de ces fonctions.
A voir, si PC-Soft int�grera ces propositions dans une future version de son EDI. :ccool:

WinDev : fonctions de s�lection/d�s�lection des champs interrupteurs V2

dsr57 — Tue, 22 Sep 2015 11:44:23 GMT

Nouvelles fonctions pour am�liorer la gestion de s�lection/d�s�lection d'un champ Interrupteur par programmation V2

Contexte technique

Dans le premier billet WinDev : fonctions de s�lection/d�s�lection des champs interrupteurs, je mettais � disposition une collection de proc�dures facilitant la gestion d'un champ de type interrupteur en proposant un ensemble de possibilit� pour g�rer la s�lection/d�s�lection. Ces fonctions :

InterrupteurSelectionne
InterrupteurSelectionneTout
InterrupteurDeselectionne
InterrupteurDeselectionneTout

InterrupteurSelectionne

Cette fonction permet de s�lectionner plusieurs options d'un champ interrupteur en passant les indices en param�tres

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
/ Résumé : Selectionne les indices passés en paramètres
// Syntaxe :
//InterrupteurSelectionne ( est champ,  est tableau)
//
// Paramètres :
//	pc_champ (champ) : Nom du champ de type interrupteur
//	pt_LstIndice (tableau) : Liste des indices à sélectionner
// Valeur de retour :
// 	Aucune
//
// Exemple :
// InterrupteurSelectionne(Int_ListeEtat,[1,3,5])
//
PROCEDURE InterrupteurSelectionne(pc_champ est un Champ,pt_LstIndice est un tableau d'entiers)
 
//----->Declaration des variables
ls_MessageErreur est une chaîne
li_interrupteurOccurrence est un entier
 
//----->Initialisation des variables
ls_MessageErreur="Vous avez appelé l'opérateur [] sur le champ %1."+RC+...
"L'indice spécifié [%2] est invalide. "+RC+...
"Les valeurs valides sont comprises entre 1 et %3 (inclus)."
 
SI ChampExiste(pc_champ..Nom) ALORS
	SI pc_champ..Type = typInterr ALORS
		//----->Initialisation des variables
		li_interrupteurOccurrence=pc_champ..Occurrence
 
		POUR li_i=1 _A_ pt_LstIndice..Occurrence
			SI pt_LstIndice[li_i] <= li_interrupteurOccurrence ALORS
				pc_champ[pt_LstIndice[li_i]]=Vrai
			SINON
				ExceptionDéclenche(3,ChaîneConstruit(ls_MessageErreur,pc_champ..NomComplet,pt_LstIndice[li_i],li_interrupteurOccurrence))
			FIN
		FIN
	SINON
		ExceptionDéclenche(2,"Le champ '"+pc_champ..NomComplet+"' n'est pas de type interrupteur")
	FIN
SINON
	ExceptionDéclenche(1,"Le champ '"+pc_champ..NomComplet+"' n'existe pas")
FIN

Exemple d'utilisation :

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

InterrupteurSelectionne(Int_LstOptions,[1,3,5,7])

InterrupteurSelectionneTout

Cette fonction s�lectionne toutes les options du champ interrupteur pass� en param�tre

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
// Résumé : Sélectionne toutes les options d'un champ de type interrupteur
// Syntaxe :
//InterrupteurSelectionneTout ( est champ)
//
// Paramètres :
//	pc_champ (champ) : Nom du champ de type interrupteur
// Valeur de retour :
// 	Aucune
//
// Exemple :
// InterrupteurSelectionneTout(Int_LstOptions)
//
PROCEDURE InterrupteurSelectionneTout(pc_champ est un Champ)
 
SI ChampExiste(pc_champ..Nom) ALORS
	SI pc_champ..Type = typInterr ALORS
		POUR li_i=1 _A_ InterrupteurOccurrence(pc_champ)
			pc_champ[li_i]=1
		FIN	
	SINON
		ExceptionDéclenche(2,"Le champ '"+pc_champ..NomComplet+"' n'est pas de type interrupteur")
	FIN
SINON
	ExceptionDéclenche(1,"Le champ '"+pc_champ..NomComplet+"' n'existe pas")
FIN

Exemple d'utilisation :

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

InterrupteurSelectionneTout(Int_LstOPtions)

InterrupteurDeselectionne

Cette fonction permet de d�s�lectionner plusieurs options d'un champ interrupteur en passant les indices en param�tres

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
// Résumé : Déselectionne les interrupteurs des lignes passées en paramètres
// Syntaxe :
//InterrupteurDeselectionne ( est champ,  est tableau)
//
// Paramètres :
//	pc_champ (champ) : Nom du champ de type interrupteur
//	pt_LstIndice (tableau) : Liste des indices à sélectionner
// Valeur de retour :
// 	Aucune
//
// Exemple :
// InterrupteurSelectionneTout(Int_option)
//
PROCEDURE InterrupteurDeselectionne(pc_champ est un Champ,pt_LstIndice est un tableau d'entiers)
 
//----->Declaration des variables
ls_MessageErreur est une chaîne
li_interrupteurOccurrence est un entier
 
//----->Initialisation des variables
ls_MessageErreur="Vous avez appelé l'opérateur [] sur le champ %1."+RC+...
"L'indice spécifié [%2] est invalide. "+RC+...
"Les valeurs valides sont comprises entre 1 et %3 (inclus)."
 
SI ChampExiste(pc_champ..NomComplet) ALORS
	SI pc_champ..Type = typInterr ALORS
		//----->Initialisation des variables
		li_interrupteurOccurrence=pc_champ..Occurrence
 
		POUR li_i=1 _A_ pt_LstIndice..Occurrence
			SI pt_LstIndice[li_i] <= li_interrupteurOccurrence ALORS
				pc_champ[pt_LstIndice[li_i]]=Faux
			SINON
				ExceptionDéclenche(3,ChaîneConstruit(ls_MessageErreur,pc_champ..NomComplet,pt_LstIndice[li_i],li_interrupteurOccurrence))
			FIN
		FIN
	SINON
		ExceptionDéclenche(2,"Le champ '"+pc_champ..NomComplet+"' n'est pas de type interrupteur")
	FIN
SINON
	ExceptionDéclenche(1,"Le champ '"+pc_champ..NomComplet+"' n'existe pas")
FIN

Exemple d'utilisation :

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

InterrupteurDeselectionne(Int_LstOPtions,[1,3,7])

InterrupteurDeselectionneTout

Cette fonction d�s�lectionne toutes les options du champ interrupteur pass� en param�tre

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
// Résumé : Déselectionne toutes les option d'un interrupteur
// Syntaxe :
//InterrupteurDeselectionneTout ( est champ)
//
// Paramètres :
//	pc_champ (champ) : Nom du champ de type interrupteur
// Valeur de retour :
// 	Aucune
//
// Exemple :
// InterrupteurDeselectionneTout(Int_option)
//
PROCEDURE InterrupteurDeselectionneTout(pc_champ est un Champ)
 
SI ChampExiste(pc_champ..NomComplet) ALORS
	SI pc_champ..Type = typInterr ALORS
		POUR li_i=1 _A_ InterrupteurOccurrence(pc_champ)
			pc_champ[li_i]=0
		FIN
	SINON
		ExceptionDéclenche(2,"Le champ '"+pc_champ..NomComplet+"' n'est pas de type interrupteur")
	FIN
SINON
	ExceptionDéclenche(1,"Le champ '"+pc_champ..NomComplet+"' n'existe pas")
FIN

Exceptions

Pour plus de renseignements sur la gestion des exceptions , voir le billet initial WinDev : fonctions de s�lection/d�s�lection des champs interrupteurs

Conclusion

WinDev : Ligne survol�e sur un champ table

dsr57 — Wed, 09 Sep 2015 20:04:34 GMT

Une fonction pour r�cup�rer la ligne survol�e d'un champ Table

Dans ce billet je propose une petite fonction qui permet de r�cup�rer la ligne survol�e d'un champ Table.

Contexte technique

En effectuant une recherche sur Google, j'ai plus m'apercevoir qu'un certains nombre de d�veloppeurs cherchaient comment r�cup�rer l'indice de la ligne survol�e.
WinDev permet r�cup�rer cet indice mais le WLangage ne poss�de pas de fonction native et intuitive, c'est donc pour cette raison que j'ai cr�� une nouvelle fonction.

Version : 20 et ant�rieures

Nouvelle fonction

Nom de la fonction : TableLigneSurvol

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
// Résumé : retourne l'indice de la ligne survolée dans un champ table
// Syntaxe :
//[  = ] TableLigneSurvol ( est chaîne)
//
// Paramètres :
//        ps_Champ (chaîne ANSI) : Nom du champ table
// Valeur de retour :
//         entier : indice de la ligne survolée. -1 si pas de ligne survolée
//
// Exemple :
// TableLigneSurvol(Tab_ListeClient..nom)
//
PROCEDURE TableLigneSurvol(ps_Champ est une chaîne) : entier
 
SI ChampExiste(ps_Champ) ALORS
        SI {ps_Champ,indChamp}..Type = typTable ALORS
                RENVOYER TableInfoXY(ps_Champ, tiNumLigne, SourisPosX(), SourisPosY())
        SINON
                ExceptionDéclenche(2,"Le champ '"+ps_Champ+"' n'est pas de type table")
        FIN
SINON
        ExceptionDéclenche(1,"Le champ '"+ps_Champ+"' n'existe pas")
FIN
 
RENVOYER -1

Les exceptions

Comme vous avez pu le constater en lisant le code source de la fonction, celle-ci d�clenche des exceptions en cas de probl�me. Deux types d'exceptions sont g�r�es :

Code	Message
1	Le champ '%%Champ%%' n'existe pas
2	Le champ '%%Champ%%' n'est pas de type table

Exemple d'utilisation avec la gestion des exceptions :

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
QUAND EXCEPTION DANS 
	TableLigneSurvol(Tab_LstClient..nom)
FAIRE
	//Gestion des exceptions
FIN

Conclusion

Cette fonction permet de faciliter la programmation et rendre plus lisible le code de r�cup�ration la ligne survol�e d'un champ Table.

Bon dev � tous :ccool:

WinDev : fonctions de s�lection/d�s�lection d'une colonne de type interrupteur

dsr57 — Tue, 25 Aug 2015 10:37:26 GMT

Nouvelles fonctions pour am�liorer la programmation de la s�lection/d�s�lection d'une colonne de type interrupteur dans un champ Table

Contexte technique et fonctionnel

Lors de mes d�veloppements, j'ai du manipuler le champ table, celui-ci peut �tre manipuler par programmation avec les fonctions propos�s par WinDev :

L'ensemble de ces fonctions permettent un certains nombre d'actions mais ne couvraient pas l'ensemble de mes besoins. notamment dans les �tapes :

importation d'enregistrements ;
exportation d'enregistrements ;
impression de plusieurs enregistrements.

Dans ces �tapes., j'ai pris l'habitude d'afficher une fen�tre r�capitulative listant dans un champ table les informations qui vont �tre tait�es, cela permet � l'utilisateur :

effectuer une v�rification ;
effectuer une s�lection pour ne pas traiter l'ensemble.

L'utilisateur a les possibilt�s suivantes :

S�lectionner tout ;
D�s�lectionner tout ;
Effectuer une s�lection plus restritive.

Dans certain cas, je devais pr�-s�lectionner des lignes de la table avec des indices connues � l'ouverture de la fen�tre. L'ensemble de ces actions me demandait de mettre en place soit une boucle de parcours soit une liste d'affectation. J'ai donc cr�� de nouvelles fonctions et j'ai d�cid� de les partager pour permettre :

� la communaut� de les utiliser ;
une �volution de celles-ci avec les �ventuels retour.

Version de WinDev : 20 et ant�rieures

Les fonctions

Le nom des fonctions a �t� cr�� en conservant la m�me syntaxe que celles propos�es par PC-Soft

TableSelectionne

Cette fonction permet de s�lectionner plusieurs cases d'une colonnes de type interrupteur en passant les indices en param�tres

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
 
// Résumé : Active les options des lignes passées en paramètres
// Syntaxe :
//[  = ] TableSelectionne ( est chaîne,  est tableau)
//
// Paramètres :
//	ps_champ (chaîne ANSI) : Nom de la colonne de type interrupteur
//	pt_LstIndice (tableau) : Liste des indices à sélectionner
// Valeur de retour :
// 	booléen : vrai si toutes les indices passé en paramètres ont été traité avec succès
//
// Exemple :
// TableSelectionne(Colonne3..nom,[1,5,8,20])
//
PROCEDURE TableSelectionne(ps_champ est un chaîne,pt_LstIndice est un tableau d'entiers)
 
//----->Declaration des variables
lb_retour est un booléen
ls_MessageErreur,ls_nomTable  est une chaîne
li_tableOccurrence est un entier
 
//----->Initialisation des variables
ls_MessageErreur="Vous avez appelé l'opérateur [] sur le champ %1."+RC+...
"L'indice spécifié [%2] est invalide. "+RC+...
"Les valeurs valides sont comprises entre 1 et %3 (inclus)."
 
//----->Initialisation des variables
lb_retour=Faux
 
SI ChampExiste(ps_champ) ALORS
	SI {ps_champ,indChamp}..Type = typInterr ALORS
 
		ls_nomTable={ps_champ,indChamp}..NomComplet
		ls_nomTable=ExtraitChaîne(ls_nomTable,2,".",DepuisDébut)
 
		SI {ls_nomTable,indChamp}..Type = typTable ALORS
			//----->Initialisation des variables
			li_tableOccurrence={ls_nomTable,indChamp}..Occurrence
 
			POUR li_i=1 _A_ pt_LstIndice..Occurrence
				SI pt_LstIndice[li_i] <= li_tableOccurrence ALORS
					{ps_champ,indChamp}[pt_LstIndice[li_i]]=Vrai
				SINON
					ExceptionDéclenche(3,ChaîneConstruit(ls_MessageErreur,ps_champ,pt_LstIndice[li_i],li_tableOccurrence))
				FIN
			FIN
		SINON
			ExceptionDéclenche(2,"Le champ '"+ps_champ+"' n'est pas de type table ou colonne")
		FIN
 
		lb_retour=Vrai
	SINON SI {ps_champ,indChamp}..Type = typTable ALORS
 
		li_tableOccurrence={ps_champ,indChamp}..Occurrence
 
		POUR li_i=1 _A_ {ps_champ,indChamp}..NombreColonne
			SI {ps_champ,indChamp}[1,li_i]..Type = typInterr ALORS
				POUR li_j=1 _A_ pt_LstIndice..Occurrence
					SI pt_LstIndice[li_j] <= li_tableOccurrence ALORS
						{ps_champ,indChamp}[pt_LstIndice[li_j],li_i]=Vrai
					SINON
						ExceptionDéclenche(3,ChaîneConstruit(ls_MessageErreur,ps_champ,pt_LstIndice[li_i],li_tableOccurrence))
					FIN
				FIN
				lb_retour=Vrai
				SORTIR
			FIN
		FIN
	SINON
		ExceptionDéclenche(2,"Le champ '"+ps_champ+"' n'est pas de type table ou colonne")
	FIN
SINON
	ExceptionDéclenche(1,"Le champ '"+ps_champ+"' n'existe pas")
FIN
 
RENVOYER lb_retour

Exemple d'utilisation :

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
 
TableSelectionne(Col_Select..nom,[1,5,8,20])

TableSelectionneTout

Cette fonction permet de s�lectionner toutes les cases d'une colonne de type interrupteur.

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
// Résumé : Sélectionne toutes les cases d'une colonne interrupteur.
// Syntaxe :
//[  = ] TableSelectionneTout ( est chaîne)
//
// Paramètres :
//        ps_champ (chaîne ANSI) : Nom de la colonne ou nom de la table
// Valeur de retour :
//         booléen :  Vrai si toutes les lignes ont été sélectionnées
//
// Exemple :
// TableSelectionneTout(Col_activer..nom)
//
//        ps_nomColonne (chaîne ANSI - valeur par défaut="") : 
PROCEDURE TableSelectionneTout(ps_champ est un chaîne)
 
//----->Declaration des variables
lb_retour est un booléen
 
//----->Initialisation des variables
lb_retour=Faux
 
SI ChampExiste(ps_champ) ALORS
        SI {ps_champ,indChamp}..Type = typColonne ALORS
                POUR li_i=1 _A_ TableOccurrence(ps_champ)
                        {ps_champ,indChamp}[li_i]=1
                FIN        
                lb_retour=Vrai
        SINON SI {ps_champ,indChamp}..Type = typTable ALORS
                POUR li_i=1 _A_ {ps_champ,indChamp}..NombreColonne
                        SI {ps_champ,indChamp}[1,li_i]..Type = typInterr ALORS
                                POUR li_j=1  _A_ TableOccurrence(ps_champ)
                                        {ps_champ,indChamp}[li_j,li_i]=Vrai
                                FIN
                                lb_retour=Vrai
                                SORTIR
                        FIN
                FIN
        SINON
                ExceptionDéclenche(2,"Le champ '"+ps_champ+"' n'est pas de type table ou colonne")
        FIN
SINON
        ExceptionDéclenche(1,"Le champ '"+ps_champ+"' n'existe pas")
FIN
 
RENVOYER lb_retour

Exemple d'utilisation :

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

TableSelectionneTout(Col_Select..nom)

Cette fonction peut prendre en param�tre le nom d'un champ table, la fonction s�lectionnera toutes les cases de la premi�re colonne de type interrupteur

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

TableSelectionneTout(Tab_ListeClientAExporter..nom)

TableDeselectionne

Cette fonction permet de d�s�lectionner plusieurs cases d'une colonne de type interrupteur en passant les indices en param�tres.

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
 
 
// Résumé : Désélectionne les options des lignes passées en patamètres
// Syntaxe :
//[  = ] TableDeSelectionne ( est chaîne,  est tableau)
//
// Paramètres :
//        ps_champ (chaîne ANSI) : niom de la colonne de type interrupteur
//        pt_LstIndice (tableau) : Liste des indices des lignes à désélectionner
// Valeur de retour :
//         booléen :  vrai si toutes les indices passé en paramètres ont été traité avec succès
//
// Exemple :
// Indiquez ici un exemple d'utilisation.
//
PROCEDURE TableDeSelectionne(ps_champ est un chaîne,pt_LstIndice est un tableau d'entiers)
 
//----->Declaration des variables
lb_retour est un booléen
ls_MessageErreur,ls_nomTable  est une chaîne
li_tableOccurrence est un entier
 
//----->Initialisation des variables
ls_MessageErreur="Vous avez appelé l'opérateur [] sur le champ %1."+RC+...
"L'indice spécifié [%2] est invalide. "+RC+...
"Les valeurs valides sont comprises entre 1 et %3 (inclus)."
 
//----->Initialisation des variables
lb_retour=Faux
 
SI ChampExiste(ps_champ) ALORS
        SI {ps_champ,indChamp}..Type = typInterr ALORS
 
                ls_nomTable={ps_champ,indChamp}..NomComplet
                ls_nomTable=ExtraitChaîne(ls_nomTable,2,".",DepuisDébut)
 
                SI {ls_nomTable,indChamp}..Type = typTable ALORS
                        //----->Initialisation des variables
                        li_tableOccurrence={ls_nomTable,indChamp}..Occurrence
 
                        POUR li_i=1 _A_ pt_LstIndice..Occurrence
                                SI pt_LstIndice[li_i] <= li_tableOccurrence ALORS
                                        {ps_champ,indChamp}[pt_LstIndice[li_i]]=Faux
                                SINON
                                        ExceptionDéclenche(3,ChaîneConstruit(ls_MessageErreur,ps_champ,pt_LstIndice[li_i],li_tableOccurrence))
                                FIN
                        FIN
                SINON
                        ExceptionDéclenche(2,"Le champ '"+ps_champ+"' n'est pas de type table ou colonne")
                FIN
 
                lb_retour=Vrai
        SINON SI {ps_champ,indChamp}..Type = typTable ALORS
 
                li_tableOccurrence={ps_champ,indChamp}..Occurrence
 
                POUR li_i=1 _A_ {ps_champ,indChamp}..NombreColonne
                        SI {ps_champ,indChamp}[1,li_i]..Type = typInterr ALORS
                                POUR li_j=1 _A_ pt_LstIndice..Occurrence
                                        SI pt_LstIndice[li_j] <= li_tableOccurrence ALORS
                                                {ps_champ,indChamp}[pt_LstIndice[li_j],li_i]=Faux
                                        SINON
                                                ExceptionDéclenche(3,ChaîneConstruit(ls_MessageErreur,ps_champ,pt_LstIndice[li_i],li_tableOccurrence))
                                        FIN
                                FIN
                                lb_retour=Vrai
                                SORTIR
                        FIN
                FIN
        SINON
                ExceptionDéclenche(2,"Le champ '"+ps_champ+"' n'est pas de type table ou colonne")
        FIN
SINON
        ExceptionDéclenche(1,"Le champ '"+ps_champ+"' n'existe pas")
FIN
 
RENVOYER lb_retour

TableDeselectionneTout

Cette fonction permet de d�s�lectionner toutes les cases d'une colonne de type interrupteur.

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
// Résumé : désélectionne toutes les options d'une colonne de type interrupteur
// Syntaxe :
//[  = ] TableDeselectionneTout ( est chaîne)
//
// Paramètres :
//        ps_champ (chaîne ANSI) : nom de la colonne ou nom de la table
// Valeur de retour :
//         booléen : vrai si toutes les options de la colonne interrupteur ont été désélectionnées
//
// Exemple :
// Indiquez ici un exemple d'utilisation.
// TableDeselectionneTout(Col_Export..nom)
//       
PROCEDURE TableDeselectionneTout(ps_champ est un chaîne)
 
//----->Declaration des variables
lb_retour est un booléen
 
//----->Initialisation des variables
lb_retour=Faux
 
SI ChampExiste(ps_champ) ALORS
        SI {ps_champ,indChamp}..Type = typColonne ALORS
                POUR li_i=1 _A_ TableOccurrence(ps_champ)
                        {ps_champ,indChamp}[li_i]=0
                FIN        
                lb_retour=Vrai
        SINON SI {ps_champ,indChamp}..Type = typTable ALORS
                POUR li_i=1 _A_ {ps_champ,indChamp}..NombreColonne
                        SI {ps_champ,indChamp}[1,li_i]..Type = typInterr ALORS
                                POUR li_j=1  _A_ TableOccurrence(ps_champ)
                                        {ps_champ,indChamp}[li_j,li_i]=0
                                FIN
                                lb_retour=Vrai
                                SORTIR
                        FIN
                FIN
        SINON
                ExceptionDéclenche(2,"Le champ '"+ps_champ+"' n'est pas de type table ou colonne")
        FIN
SINON
        ExceptionDéclenche(1,"Le champ '"+ps_champ+"' n'existe pas")
FIN
 
RENVOYER lb_retour

Exemple d'utilisation :

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
 
TableDeselectionneTout(Col_Select..nom)

Cette fonction peut prendre en param�tre le nom d'un champ table, la fonction s�lectionnera toutes les cases de la premi�re colonne de type interrupteur

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

TableSelectionneTout(Tab_ListeClientAExporter..nom)

Les exceptions

Comme vous avez pu le constater en lisant le code source des fonctions, celles-ci d�clenchent des exceptions en cas de probl�me. Trois types d'exceptions sont g�r�es :

Code	Message
1	Le champ '%%Champ%%' n'existe pas
2	Le champ '%%Champ%%' n'est pas de type table ou colonne
3	Vous avez appel� l'op�rateur [] sur le champ %%Champ%%. L'indice sp�cifi� [%Indice%%] est invalide. Les valeurs valides sont comprises entre 1 et %%Occurrence%% (inclus).

Exemple d'utilisation avec la gestion des exceptions :

TableSelectionne

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
 
QUAND EXCEPTION DANS 
	TableSelectionne(Col_SelectClient..Nom,[1,3,4,20])
FAIRE
	//Gestion des exceptions
FIN

TableSelectionneTout

Code Windev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
 
QUAND EXCEPTION DANS 
	TableSelectionneTout(Col_SelectClient..Nom)
FAIRE
	//Gestion des exceptions
FIN

TableDeselectionne

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
 
QUAND EXCEPTION DANS 
	TableDeSelectionne(Col_SelectClient..Nom,[1,3,4,20])
FAIRE
	//Gestion des exceptions
FIN

TableDeselectionneTout

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
 
QUAND EXCEPTION DANS 
	TableDeSelectionneTout(Col_SelectClient..Nom)
FAIRE
	//Gestion des exceptions
FIN

Conclusion

Ces fonctions permettent de faciliter la gestion d'une colonne de type interrupteur dans un champ table en proposant un ensemble de possibilit� pour g�rer la s�lection/d�s�lection. N'h�sitez pas � me faire part de vos retours pour am�liorer, compl�ter la liste de ces fonctions.
A voir, si PC-Soft int�grera ces propositions dans une future version de son EDI.

Bon dev � tous :ccool:

WinDev : HsupprimeTout qui supprime tout

dsr57 — Wed, 05 Aug 2015 11:08:03 GMT

Surcharge de la fonction HSupprimeTout avec prise en charge des contraintes d'int�grit� r�f�rentielle

Contexte Technique

Dans un premier billet WinDev : HsupprimeTout et les contraintes d'int�grit� r�f�rentielle en cascade, nous constations avec la confirmation du support technique la non prise en charge les contraintes d'int�grit� r�f�rentielle d�finies dans l'analyse par la fonction HsupprimteTout .

Dans le but de palier � ce manque, ce bogue, cet oublie (chacun le qualifiera comme il le souhaite), j'ai d�velopp� une fonction qui prend en charge les contraintes d'int�grit�.

Version de WinDev : 20 et ant�rieures
Programmation : surcharge, exceptions.

Jeu d'essai

Avant de mettre le code de la fonction d�velopp�e, je met � disposition le jeu d'essai qui m'a permis de faire les tests.

Commande

Nom du fichier : commande.FIC

Cl�	Nom	Libell�	Type	Taille
X	ID	Identifiant de la commande	Id. automatique	4
	Date	Date de la commande	Date	8
	Client	Nom du client	Texte	50

DetailCommande

Nom du fichier : DetailCommande.FIC

Cl�	Nom	Libell�	Type	Taille
X	ID	Identifiant du d�tail de la commande	Id. automatique	4
	IDCommande	Identifiant de la commande	Num�rique	4
	IdArticle	Identifiant de l'article	Num�rique	4

Une relation entre les deux table est cr��e, cell-ci varie selon de vos contextes technique et focntionnel

Script d'initialisation

Ci-dessous le script d'initialisation des tables

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
HCréationSiInexistant(Commande)
HCréationSiInexistant(CommandeDetail)
 
WL.HSupprimeTout(Commande)
WL.HSupprimeTout(CommandeDetail)
 
POUR li_i=1 _A_  10 
	Commande.Date=DateDuJour()
	Commande.Numero=NumériqueVersChaîne(li_i,"010d")
	Commande.Client="ClientTest_"+li_i
 
	HAjoute(Commande)
 
	POUR li_j=li_i _A_ li_i+3 
		CommandeDetail.IDCommande=Commande.ID
		CommandeDetail.IdArticle=li_j
		HAjoute(CommandeDetail)
	FIN
 
FIN

Contenu de la table commande initialis�e avec le script

Contenu de la table d�tail commande initialis�e avec le script

La nouvelle fonction

Le nom de la fonctions a �t� cr�� en conservant la m�me syntaxe que celles propos�es par PC-Soft
Nom : HSupprimeTout
Cette nouvelle fonction surcharge l'existante, WinDev affichera des informations a chaque appel de celle-ci.

Exemple d'information affich�e :

Code Windev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
Info : La procédure 'HSupprimeTout' surcharge la fonction du WLangage de même nom.
Fen_TestPROCEDURE.HSupprimeTout, Procédure locale, ligne 13, colonne 11

La fonction g�re les contraintes d'int�grit� :

interdire la supression qui a au moins un enregistrement
supprimer l'enregistrement et tous ces d�tails
supprimer l'enregistrement et affecter une valeur par d�faut aux d�tails

et la gestion des cardinalit�s minimums

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
// Résumé : Supprime tout le contenu d'un fichier en prenant en compte les contraintes d'intégrité
// Syntaxe :
//HsupprimeTout(ps_nomFichier est une chaine)
//
// Paramètres :
//	ps_nomFichier : Nom du fichier de données
// Valeur de retour :
// 	booléen : vrai si le contenu du fichier a été supprimer.
//
// Exemple :
// HsupprimeTout(Commande..Nom)
//
 
PROCEDURE HsupprimeTout(ps_nomFichier est une chaîne)
 
//----->Declaration des variables
ls_LstLiaison,ls_nomLiaison,ls_FichierClePrimaire, ls_clePrimaire, ls_fichierCleEtrangere, ls_CleEtrangere, ls_regleSupression, ls_cardinaliteFichierPrimaire, ls_cardinaliteFichierSecondaire est une chaîne
ls_LstValeurLiees,ls_nomFichierParametre, ls_requete, ls_nomReq  est une chaîne
ls_MessageException1, ls_MessageException2, ls_MessageException3, ls_MessageException4 est une chaîne
lt_BufferRequete est un tableau de chaîne
 
//----->Initialisation des variables Message Exception
ls_MessageException1=[
La  source de données <%1> n'est pas initialisée.
     - S'il s'agit d'un fichier de données, le fichier n'a pas été trouvé dans l'analyse ou n'a pas été décrit avec les fonctions HDéclare / HDéclareExterne.
     - S'il s'agit d'une requête ou d'une vue, l'exécution a peut-être échoué. 
Pour récupérer l'erreur correspondante, testez le résultat des fonctions HExécuteRequête / HExécuteRequêteSQL / HCréeVue.
]
ls_MessageException2="Le champ '%1' n'est pas de type Fichier de données"
ls_MessageException3=[
	Erreur d'intégrité.
	L'application de la fonction aurait entraîné le non-respect de la contrainte d'intégrité référentielle 'restrict' entre les rubriques <%1.%2> (clé primaire) ET <%3.%4> (clé étrangère).
]
ls_MessageException4=[
Erreur d'intégrité.
Les cardinalités côté clé primaire (%1) entre les rubriques <%2.%3> et <%4.%5> ne sont pas respectées.
]
 
//----->Initialisation des variables
ls_nomFichierParametre=ps_nomFichier
 
//----->Test si la variable passé en paramètre existe en tantque fichier de données
QUAND EXCEPTION DANS
	HLitPremier(ls_nomFichierParametre)	
FAIRE
	ExceptionDéclenche(1,ChaîneConstruit(ls_MessageException1,ls_nomFichierParametre))
FIN
 
//----->Test du type du pamètre
SI PAS ({ls_nomFichierParametre}..Type _DANS_ (hFichierAS400, hFichierAutre, hFichierClientServeur, hFichierHF5, hFichierMySQL, hFichierNormal, hFichierOLEDB, hFichierOracle, hFichierOracleLite, hFichierPostgreSQL, hFichierProgress)) ALORS
	ExceptionDéclenche(2,ChaîneConstruit(ls_MessageException2,ls_nomFichierParametre))
FIN
 
//----->Rcp des liaisons liés au fichier passé en paramètre
ls_LstLiaison=HListeLiaison(ls_nomFichierParametre,hLstDétail) 
 
//----->Boucle sur toutes les liaisons
POUR TOUTE CHAÎNE ls_liaison DE ls_LstLiaison SEPAREE PAR RC
 
	//----->Récupération des caractéristiques de la liaison
	ls_nomLiaison=ExtraitChaîne(ls_liaison,1,TAB,DepuisDébut)
	ls_FichierClePrimaire=ExtraitChaîne(ls_liaison,2,TAB,DepuisDébut)
	ls_clePrimaire=ExtraitChaîne(ls_liaison,3,TAB,DepuisDébut)
	ls_cardinaliteFichierPrimaire=ExtraitChaîne(ls_liaison,4,TAB,DepuisDébut)
	ls_fichierCleEtrangere=ExtraitChaîne(ls_liaison,5,TAB,DepuisDébut)
	ls_CleEtrangere=ExtraitChaîne(ls_liaison,6,TAB,DepuisDébut)
	ls_cardinaliteFichierSecondaire=ExtraitChaîne(ls_liaison,7,TAB,DepuisDébut)
	ls_regleSupression=ExtraitChaîne(ls_liaison,9,TAB,DepuisDébut)
 
	SI ls_FichierClePrimaire = ls_nomFichierParametre ALORS
 
		SI Val(ExtraitChaîne(ls_cardinaliteFichierSecondaire,1,",",DepuisDébut)) > 0  ALORS
			ExceptionDéclenche(3,ChaîneConstruit(ls_MessageException4,ls_cardinaliteFichierSecondaire,ls_fichierCleEtrangere,ls_CleEtrangere,ls_FichierClePrimaire,ls_clePrimaire))
		FIN
 
		//----->Initialisation des variables
		ls_LstValeurLiees=""
 
		//----->Req : recherche des valeurs à supprimer dans le fichier source
		ls_requete="SELECT DISTINCT  "+ls_clePrimaire+" FROM "+ls_FichierClePrimaire			
		ls_nomReq="ReqSelectValeurASupprimer"
 
		//----->Req : Exécution et parcours de la requete
		SI PAS HExécuteRequêteSQL(ls_nomReq,ls_requete) ALORS
			HFerme(ls_nomReq)
			RENVOYER Faux
		SINON
			HLitPremier(ls_nomReq) 
			TANTQUE PAS HEnDehors(ls_nomReq) 
				ls_LstValeurLiees+=HRécupèreRubrique(ls_nomReq,1)+"','"
				HLitSuivant(ls_nomReq)
			FIN
			HLibèreRequête(ls_nomReq)
			SI ls_LstValeurLiees <> "" ALORS
				ls_LstValeurLiees="'"+Tronque(ls_LstValeurLiees,3,nombreDeCaractèresASupprimer)+"'"
			FIN
		FIN
 
		//----->Test si des valeurs sont à suppimer
		SI ls_LstValeurLiees<>"" ALORS
 
			//----->Test selon la regle de suppression
			SELON ls_regleSupression
 
				CAS hIntégritéInterdite
					//---->Req : Test si des enregistrements sont reliés au fichier source par le svaleurs à supprimer
					ls_requete="SELECT COUNT(*) FROM "+ls_fichierCleEtrangere+" WHERE "+ls_CleEtrangere+" IN ("+ls_LstValeurLiees+")"
					ls_nomReq="reqUpdateDetail"
 
					//----->Req : Exécution et parcours
					SI PAS HExécuteRequêteSQL(ls_nomReq,ls_requete) ALORS
						HFerme(ls_nomReq)
						RENVOYER Faux
					SINON
						HLitPremier(ls_nomReq) 
						//----->Test si des enregistrements sont reliés : on ne fait rien
						SI HRécupèreRubrique(ls_nomReq,1) <> 0 ALORS
							HLibèreRequête(ls_nomReq)
							ExceptionDéclenche(3,ChaîneConstruit(ls_MessageException3,ls_FichierClePrimaire,ls_clePrimaire,ls_fichierCleEtrangere,ls_CleEtrangere))
						FIN
						HLibèreRequête(ls_nomReq)
					FIN
 
				CAS hIntégritéCascade
					//----->Req : Ajout dans le buffer la requête de suppression des enregistrements reliés au fichier source par le svaleurs à supprimer
					TableauAjoute(lt_BufferRequete,"DELETE FROM  "+ls_fichierCleEtrangere+" WHERE "+ls_CleEtrangere+" IN ("+ls_LstValeurLiees+")")
 
				CAS hIntégritéValeurDéfaut
					//----->Req : Ajout dans le buffer la requête de maj des enregistrements par la valeur par défaut reliés au fichier source par le svaleurs à supprimer
					TableauAjoute(lt_BufferRequete,"UPDATE  "+ls_fichierCleEtrangere+" SET "+ls_CleEtrangere+"='"+{ls_fichierCleEtrangere+"."+ls_CleEtrangere,indRubrique}..ValeurParDéfaut+"' WHERE "+ls_CleEtrangere+" IN ("+ls_LstValeurLiees+")")
 
				AUTRE CAS
 
			FIN
		FIN
	FIN
FIN
 
//----->Exécution des requêtes pour mettre en place les contraintes d'intégrité
POUR li_i=1 _A_ TableauInfo(lt_BufferRequete,tiNombreTotal)
	SI HExécuteRequêteSQL("Req"+li_i,lt_BufferRequete[li_i]) = Faux ALORS
		ExceptionDéclenche(3,HErreurInfo(hErrComplet))
	FIN
FIN
 
SI WL.HSupprimeTout(ps_nomFichier) ALORS
	RENVOYER Vrai
SINON
	RENVOYER Faux	
FIN

j'ai effectu� diff�rents tests en variant les contraintes d'int�grit� avec le code suivant :

Suppression compl�te du contenu du fichier commande

Code Windev :

S�lectionner tout - Visualiser dans une fen�tre � part

HSupprimeTout(Commande..nom)

Suppression compl�te du contenu du fichier DetailCommande

Code Windev :

S�lectionner tout - Visualiser dans une fen�tre � part

HSupprimeTout(DetailCommande..nom)

Les exceptions

Comme vous avez pu le constater en lisant le code source des fonctions, celles-ci d�clenchent des exceptions en cas de probl�me. Trois types d'exceptions sont g�r�es :

Code	Message
1	La source de donn�es <%1> n'est pas initialis�e. - S'il s'agit d'un fichier de donn�es, le fichier n'a pas �t� trouv� dans l'analyse ou n'a pas �t� d�crit avec les fonctions HD�clare / HD�clareExterne. - S'il s'agit d'une requ�te ou d'une vue, l'ex�cution a peut-�tre �chou�. Pour r�cup�rer l'erreur correspondante, testez le r�sultat des fonctions HEx�cuteRequ�te / HEx�cuteRequ�teSQL / HCr�eVue.
2	Le champ '%1' n'est pas de type fichier de donn�es
3	Erreur d'int�grit�. Les cardinalit�s c�t� cl� primaire (%1) entre les rubriques <%2.%3> et <%4.%5> ne sont pas respect�es ou Erreur d'int�grit�. L'application de la fonction aurait entra�n� le non-respect de la contrainte d'int�grit� r�f�rentielle 'restrict' entre les rubriques <%1.%2> (cl� primaire) ET <%3.%4> (cl� �trang�re)

Exemple de code avec la gestion des exceptions :

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
QUAND EXCEPTION DANS 
	HSupprimeTout(Commande..nom)
FAIRE
	//Gestion des exceptions
FIN

Conclusion

Ce billet propose une surcharge de la fonction HSupprimeTout pour prendre en compte les contraintes d'int�grit�, celle-ci ne g�re qu'un seul niveau. Si le fichier de destination est li� lui aussi � des containtes, celles-ci ne sont pas prises en compte, cela pourrait faire office d'une verison 2 ...

Si vous avez des remarques, des suggestions, des remot�es de BUG, ... n'h�sitez pas

Bon dev :ccool:

WinDev : chaine vide

dsr57 — Tue, 21 Jul 2015 20:09:33 GMT

Une fonction pour tester les cha�nes vides...

Dans ce billet je propose une petite fonction qui permet de d�terminer si une cha�ne de caract�re est vide.

Contexte fonctionnel

Commen�ons par une d�finition.

une chaine vide est une cha�ne qui contient aucun caract�re.

Avec cette d�finition, WinDev nous permet de v�rifier avec la fonction Taille renvoyant 0 et le test d'�galit� avec "" renvoyant vrai.
Code Windev : S�lectionner tout - Visualiser dans une fen�tre � part
1
2
3
4
5
6
 
ls_TestEXPRESS est une chaîne 
 
ls_TestEXPRESS=""
 
Taille(ls_TestEXPRESS)    //----->Retourne 0
Nous pourrions en rester la-dessus, mais mettons en place ce test dans un contexte utilisateur et une v�rification des donn�es saisies. Prenons par exemple le cas d'un formulaire :

saisie d'un formulaire d'inscription ;
saisie d'une fiche client ;
saisie d'une fiche article.

A la validation nous v�rifions la saisie des informations obligatoires (Nom, pr�nom, adresse, r�f�rence, ....), en mettant en place le test vu plus haut, nous r�cup�rons la valeur des champs renseign�s ... Mais si l'utilisateur saisi une suite d'espace, que renvoie notre test ?
Code WinDev : S�lectionner tout - Visualiser dans une fen�tre � part
1
2
3
4
5
6
 
ls_TestEXPRESS est une chaîne 
 
ls_TestEXPRESS="   "
 
Taille(ls_TestEXPRESS)    //----->Retourne 3
Nous observons que la d�finition et le test ne nous permettents pas de d�tecter les chaines contenant uniquement des espaces, et nous avons en base de donn�es des valeurs inexploitables.

Nouvelle fonction

Dans un premier temps, nous allons d�finir ce que l'on entend par cha�ne vide dans un contexte de v�rification d'informations.

Une cha�ne vide est une cha�ne qui ne contient aucun caract�re ou uniquement des caract�res espace.

Pour cela je propose la fonction ChaineVide qui permettra de tester uen chaine selon cette d�finition.

Code de la fonction :
Code WinDev : S�lectionner tout - Visualiser dans une fen�tre � part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
// Résumé : Vérifie si une chaine contient uniquement des caractères espaces ou pas de caractère
// Syntaxe :
//ChaineVide ()
//
// Paramètres :
//	ps_chaine  : chaine à tester
// Valeur de retour :
// 	vrai : chaine contenant 0 caractère ou uniquement des espaces
//  faux : chaine contenant plusieurs caractères différents de espace
//
// Exemple :
// ChaineVide(ls_nomClient)
//
PROCEDURE ChaineVide(ps_chaine est une chaîne)
 
RENVOYER (SansEspace(ps_chaine)="")
Test

Un jeu de tests pour v�rifier la fonction
Code WinDev : S�lectionner tout - Visualiser dans une fen�tre � part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
ls_TestEXPRESS1, Ls_TestEXPRESS2, ls_TestEXPRESS3, ls_TestEXPRESS4,sLs_TestEXPRESS5 est une chaîne 
 
ls_TestEXPRESS1=""
Ls_TestEXPRESS2="  "
ls_TestEXPRESS3="  Nom"
ls_TestEXPRESS4="  Prenom"
ls_TestEXPRESS4="  Adresse       "
 
ChaineVide(ls_TestEXPRESS1) 
ChaineVide(Ls_TestEXPRESS2) 
ChaineVide(ls_TestEXPRESS3)
ChaineVide(ls_TestEXPRESS4)
ChaineVide(sLs_TestEXPRESS5)
R�sultats
Code : S�lectionner tout - Visualiser dans une fen�tre � part
1
2
3
4
5
6
Vrai
Vrai
Faux
Faux
Faux
Contexte technique

Version de WinDev : 20 et ant�rieures

Conclusion

Dans ce billet, nous avons une nouvelle d�finition d'une cha�ne vide plus proche d'un contexte utilisateur. Celle-ci peut �tre appliqu� pour tester les valeurs saisies d'un utilisateur, et aussi pour v�rifier les param�tres d'entr�e d'une fonction (fonctions internes � un programme, Web-services, API, ...). Cette fonction permet de v�rifier qu'une cha�ne contient des caract�res mais ne permet de v�rifier la validit� des informations, un client avec pour nom et pr�nom test passera le test...

Bon dev � tous :ccool:

WinDev : le d�veloppement par les tests

dsr57 — Thu, 16 Jul 2015 19:45:07 GMT

La mise en application du d�veloppement par les tests (Test driven development) dans l'EDI WinDev

Le d�veloppement de logiciels, la programmation peut s'analyser, s'orienter, se planifier de diff�rentes fa�on. Nous avons par exemple :

les pros programmation objet s'opposant � la programmation proc�durale, fonctionnelle ;
les diff�rentes m�thodes agiles ;
...

Chaque m�thode, type, courant, mode poss�de ses d�fenseurs et ses d�tracteurs. Dans une publication je montre la mise en pratique de la technique de d�veloppement pilot� par les tests.

WinDev : Le d�veloppement par les tests

Bonne lecture :ccool:

WinDev : fonctions de s�lection/d�s�lection des champs interrupteurs

dsr57 — Thu, 25 Jun 2015 11:31:23 GMT

Nouvelles fonctions pour am�liorer la gestion de s�lection/d�s�lection d'un champ Interrupteur par programmation

Contexte technique et fonctionnel

Lors de mes d�veloppements personnels, j'ai du manipuler le champ interrupteur, celui-ci peut �tre manipuler par programmation avec les fonctions propos�s par WinDev :

InterrupteurAjoute ;
InterrupteurIns�re ;
InterrupteurOccurrence (nouveaut� WinDev 20) ;
InterrupteurSupprime.

L'ensemble de ces fonctions permettent un certains nombre d'actions mais ne couvraient pas l'ensemble de mes besoins, j'ai donc cr�� de nouvelles fonctions et j'ai d�cid� de les partager pour permettre

� la communaut� de les utiliser ;
une �volution de celles-ci avec les �ventuelles retour.

Version de WinDev : 20 et ant�rieures

Modfication du 22/09/2015 : Une version des fonctions avec le type de variable Champ est disponible dans ce billet WinDev : fonctions de s�lection/d�s�lection des champs interrupteurs V2
Version de WinDev : 19 et sup�rieures

Les fonctions

Le nom des fonctions a �t� cr�� en conservant la m�me syntaxe que celles propos�es par PC-Soft

InterrupteurSelectionne

Cette fonction permet de s�lectionner plusieurs options d'un champ interrupteur en passant les indices en param�tres

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
// Résumé : 
// Syntaxe :
//InterrupteurSelectionne ( est chaîne,  est tableau)
//
// Paramètres :
//        ps_champ (chaîne ANSI) : nom du chqmpde type interrupteur
//        pt_LstIndice (tableau) : Liste des indices à sélectionner
// Valeur de retour :
//         Aucune
//
// Exemple :
// InterrupteurSelectionne(Int_options,[1,2,3])
//
PROCEDURE InterrupteurSelectionne(ps_champ est un chaîne,pt_LstIndice est un tableau d'entiers)
 
//----->Declaration des variables
ls_MessageErreur est une chaîne
li_interrupteurOccurrence est un entier
 
//----->Initialisation des variables
ls_MessageErreur="Vous avez appelé l'opérateur [] sur le champ %1."+RC+...
"L'indice spécifié [%2] est invalide. "+RC+...
"Les valeurs valides sont comprises entre 1 et %3 (inclus)."
 
SI ChampExiste(ps_champ) ALORS
        SI {ps_champ,indChamp}..Type = typInterr ALORS
                //----->Initialisation des variables
                li_interrupteurOccurrence={ps_champ,indChamp}..Occurrence
 
                POUR li_i=1 _A_ pt_LstIndice..Occurrence
                        SI pt_LstIndice[li_i] <= li_interrupteurOccurrence ALORS
                                {ps_champ,indChamp}[pt_LstIndice[li_i]]=Vrai
                        SINON
                                ExceptionDéclenche(3,ChaîneConstruit(ls_MessageErreur,ps_champ,pt_LstIndice[li_i],li_interrupteurOccurrence))
                        FIN
                FIN
        SINON
                ExceptionDéclenche(2,"Le champ '"+ps_champ+"' n'est pas de type interrupteur")
        FIN
SINON
        ExceptionDéclenche(1,"Le champ '"+ps_champ+"' n'existe pas")
FIN

Exemple d'utilisation :

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

InterrupteurSelectionne(Int_LstOptions..nom,[1,3,5,7])

InterrupteurSelectionneTout

Cette fonction s�lectionne toutes les options du champ interrupteur pass� en param�tre

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
// Résumé : Sélectionne toutes les options d'un champ de type interrupteur
// Syntaxe :
//InterrupteurSelectionneTout ( est chaîne)
//
// Paramètres :
//        ps_champ (chaîne ANSI) : Nom du champ de type interrupteur
// Valeur de retour :
//         Aucune
//
// Exemple :
// InterrupteurSelectionneTout(Int_LstOptions..Nom)
//
PROCEDURE InterrupteurSelectionneTout(ps_champ est un chaîne)
 
SI ChampExiste(ps_champ) ALORS
        SI {ps_champ,indChamp}..Type = typInterr ALORS
                POUR li_i=1 _A_ InterrupteurOccurrence(ps_champ)
                        {ps_champ,indChamp}[li_i]=1
                FIN        
        SINON
                ExceptionDéclenche(2,"Le champ '"+ps_champ+"' n'est pas de type interrupteur")
        FIN
SINON
        ExceptionDéclenche(1,"Le champ '"+ps_champ+"' n'existe pas")
FIN

Exemple d'utilisation :

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

InterrupteurSelectionneTout(Int_LstOPtions..nom)

InterrupteurDeselectionne

Cette fonction permet de d�s�lectionner plusieurs options d'un champ interrupteur en passant les indices en param�tres

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
// Résumé : Déselectionne les options du champ interrupteur passé en paramètre 1 avec les indices passé en paramètre 2 
// Syntaxe :
//InterrupteurDeselectionne ( est chaîne,  est tableau)
//
// Paramètres :
//        ps_champ (chaîne ANSI) : nom du champ interrupteur à manipuler
//        pt_LstIndice (tableau) : Liste des indices des options à désélectionner
// Valeur de retour :
//         Aucune
//
// Exemple :
// InterrupteurDeselectionne (Int_LstOptions..nom,[1,3,7])
//
PROCEDURE InterrupteurDeselectionne(ps_champ est un chaîne,pt_LstIndice est un tableau d'entiers)
 
//----->Declaration des variables
ls_MessageErreur est une chaîne
li_interrupteurOccurrence est un entier
 
//----->Initialisation des variables
ls_MessageErreur="Vous avez appelé l'opérateur [] sur le champ %1."+RC+...
"L'indice spécifié [%2] est invalide. "+RC+...
"Les valeurs valides sont comprises entre 1 et %3 (inclus)."
 
SI ChampExiste(ps_champ) ALORS
        SI {ps_champ,indChamp}..Type = typInterr ALORS
                //----->Initialisation des variables
                li_interrupteurOccurrence={ps_champ,indChamp}..Occurrence
 
                POUR li_i=1 _A_ pt_LstIndice..Occurrence
                        SI pt_LstIndice[li_i] <= li_interrupteurOccurrence ALORS
                                {ps_champ,indChamp}[pt_LstIndice[li_i]]=Faux
                        SINON
                                ExceptionDéclenche(3,ChaîneConstruit(ls_MessageErreur,ps_champ,pt_LstIndice[li_i],li_interrupteurOccurrence))
                        FIN
                FIN
        SINON
                ExceptionDéclenche(2,"Le champ '"+ps_champ+"' n'est pas de type interrupteur")
        FIN
SINON
        ExceptionDéclenche(1,"Le champ '"+ps_champ+"' n'existe pas")
FIN

Exemple d'utilisation :

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

InterrupteurDeselectionne(Int_LstOPtions..nom,[1,3,7])

InterrupteurDeselectionneTout

Cette fonction d�s�lectionne toutes les options du champ interrupteur pass� en param�tre

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
// Résumé : Déselectionne toutes les option d'un interrupteur
// Syntaxe :
//InterrupteurDeselectionneTout ( est chaîne)
//
// Paramètres :
//        ps_champ (chaîne ANSI) : Nom du champ de type interrupteur
// Valeur de retour :
//         Aucune
//
// Exemple :
// InterrupteurDeselectionneTout(Int_option..nom)
//
PROCEDURE InterrupteurDeselectionneTout(ps_champ est un chaîne)
 
SI ChampExiste(ps_champ) ALORS
        SI {ps_champ,indChamp}..Type = typInterr ALORS
                POUR li_i=1 _A_ InterrupteurOccurrence(ps_champ)
                        {ps_champ,indChamp}[li_i]=0
                FIN
        SINON
                ExceptionDéclenche(2,"Le champ '"+ps_champ+"' n'est pas de type interrupteur")
        FIN
SINON
        ExceptionDéclenche(1,"Le champ '"+ps_champ+"' n'existe pas")
FIN

Exemple d�utilisation :

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

InterrupteurDeselectionneTout(Int_LstOPtions..nom)

Les exceptions

Comme vous avez pu le constater en lisant le code source des fonctions, celles-ci d�clenchent des exceptions en cas de probl�me. Trois types d'exceptions sont g�r�es :

Code	Message
1	Le champ '%%Champ%%' n'existe pas
2	Le champ '%%Champ%%' n'est pas de type interrupteur
3	Vous avez appel� l'op�rateur [] sur le champ %%Champ%%. "L'indice sp�cifi� [%Indice%%] est invalide. "+RC+... "Les valeurs valides sont comprises entre 1 et %%Occurrence%% (inclus).

Exemple d'utilisation avec la gestion des exceptions :

InterrupteurSelectionne

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
QUAND EXCEPTION DANS 
	InterrupteurSelectionne(Int_LstOptions..Nom,[1,3,4,20])
FAIRE
	//Gestion des exceptions
FIN

InterrupteurSelectionneTout

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
QUAND EXCEPTION DANS 
	InterrupteurSelectionneTout(Int_LstOptions..Nom)
FAIRE
	//Gestion des exceptions
FIN

InterrupteurDeselectionne

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
QUAND EXCEPTION DANS 
	InterrupteurDeSelectionne(Int_LstOptions..Nom,[1,3,4,20])
FAIRE
	//Gestion des exceptions
FIN

InterrupteurDeselectionneTout

Code WinDev :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
QUAND EXCEPTION DANS 
	InterrupteurDeselectionneTout(Int_LstOptions..Nom,[1,3,4,20])
FAIRE
	//Gestion des exceptions
FIN

Conclusion

Par ce billet, je viens de mettre � disposition de la communaut� des fonctions pour am�liorer la gestion par programmation du champ Interrupteur. N'h�sitez pas � me faire part de vos retours pour am�liorer, compl�ter la liste de ces fonctions.
A voir, si PC-Soft int�grera ces propositions dans une future version de son EDI.

Bon dev � tous :ccool:

WinDev : HsupprimeTout et les contraintes d'int�grit� r�f�rentielle en cascade

dsr57 — Thu, 11 Jun 2015 19:42:20 GMT

Ce billet traite de la fonction HSupprimeTout et les contraintes d'int�grit� dans l'EDI WinDev

D�finition

Les contraintes d'int�grit� r�f�rentielle en cascade d�finissent les actions ex�cut�es par un SGBD lorsqu'un utilisateur tente de supprimer ou de mettre � jour une cl� vers laquelle pointent des cl�s �trang�res existantes.

Contexte technique

WinDev : 19, 20
BDD : HF classic et HF SQL

Une table commande avec les colonnes suivantes

Nom Description Type Taille

ID Identifiant Id. automatique 8

Date Date de la commande Date 8

Numero Num�ro interne de la commande Texte 10

Une table DetailCommande avec les colonnes suivantes :

Nom Description Type Taille

ID Identifiant Id. automatique 8

IDCommande Identifiant de la commande Numerique 8

Ligne Num�ro de la ligne de la commande Num�rique 4

Article Id de l'article Numerique 4

cardinalit�s : 0,n --- 1,1
contrainte d'int�grit� pour suppression : "Supprimer le commande et tous ses DetailCommande".

Suppression du contenu

Afin de tester le respect de la contrainte d'int�grite, nous allons supprimer l'ensemble du conte de la table Commande. WinDev met � notre disposition deux fonctions Hyperfile :

HSupprime
HSupprimeTout

Suppression via HSupprime

WinDev permet de supprimer un enregistrement avec la fonction HSupprime, pour supprimer l'ensemble des enregistrements nous mettons en place une boucle qui parcours le fichier.
Code : S�lectionner tout - Visualiser dans une fen�tre � part
1
2
3
4
POUR TOUT EXPRESS_Commande 
	HSupprime(EXPRESS_Commande)
FIN
Nous constatons que le fichier CommandeDetail est vide.

Suppression via HSupprimeTout

WinDev permet de supprimer l'ensemble du contenu d'un fichier avec la fonction HsupprimeTout, mettons en pratique cette fonction
Code : S�lectionner tout - Visualiser dans une fen�tre � part
HSupprimeTout(EXPRESS_Commande)
Compar� au code pr�c�dent, nous avons un code plus concis, plus clair et qui se comprend tr�s rapidement. Cette fonction � que des avantages ... mais nous n'avons pas v�rifi� le contenu du fichier CommandeDetail. Surprise, celui-ci contient tous les enregistrements, la fonction HSupprimeTout ne prend pas en compte la contrainte d'int�grit� d�finie. J'ai effectu� une requ�te au support technique qui m'a confirm� la non prise en charge, voici lleur r�ponse :

Bonjour Monsieur xxxxxx,

Merci pour ces �l�ments. En fait HSupprimeTout ne r�alise pas une suppression classique, � la mani�re de hSupprime. Cette commande est plut�t une version rapide de hCreation(), car notamment, elle r�initialise les identifiants automatiques.

Cette commande n'active pas le contr�le d'int�grit�.

Je suis sinc�rement d�sol� de la g�ne occasionn�e et je vous remercie de votre coop�ration.

L'�quipe du Support Technique Gratuit reste � votre disposition.

Conclusion

Avec cette exemple et la confirmation de PC-Soft, nous avons constat� la non prise charge les contraintes d'int�grit� par la fonction HSupprimeTout, cette constatation ne rend pas la fonction inutilisable. Il est possible de l'utiliser mais dans le cas d'utilisation de contraintes d'int�grit�, vous devrez g�rer celle-ci manuellement. A voir si Pc-Soft am�liorera cette fonction dans la version 21

Affaire � suivre

	Test 1	Test 2	Test 3	Test 4	Test 5	Test 6	Test 7	Test 8	Test 9	Test 10
Imprimante	878	809	808	805	815	830	819	812	828	819
PDF	857	601	580	582	582	577	577	576	579	572

Nom	Description	Type	Taille
ID	Identifiant	Id. automatique	8
Date	Date de la commande	Date	8
Numero	Num�ro interne de la commande	Texte	10