Discussion :

[lerorodu51]

Bonjour, j'ai un état dans lequel je voudrai afficher certains éléments d'une requête programmée dans la la fenêtre d'édition. Les éléments sont affichés dans le corps.
Ma requête a été passée en paramètre à l'état, je voudrai savoir où lancer cette requête (initialisation du bloc corps ou Avant Impression du bloc corps) et savoir comment l'état fait pour avoir autant de bloc corps que de ligne dans la requête.

[ErwanA]

Tu reçoit donc à l'ouverture de ton état une chaine contenant le code SQL de ta requête.

Dans cette même zone de code, tu exécutes la requêtes en mettant en variable globale à l'état la source de données qui va recevoir le résultat.
Tu fais aussi à ce niveau là le hlitpremier (ou SQLPremier selon ce que tu utilises)
Tu as donc un code qui ressemble à ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Procedure OuvreEtat(ge_p_s_TxtRequeteSQL est une chaine)
 
Global
    ge_sd_Data est une source de donnees
 
 
SI PAS HExecuteRequeteSQL(ge_sd_Data, HRequeteDefaut, ge_p_s_TxtRequeteSQL)
  Erreur(Erreurinfo())
SINON
    HLitPremier(ge_sd_Data)
FIN

Puisque tu as dit que tu géré toi même la source de données de ton état, tu dois avoir une zone de code "Lecture des données".
On passe dans cette zone à chaque ligne du corps.
Si cette zone renvoie Vrai, il continue l'impression de l'état, si ça renvoi faux, il arrête.
Tu as donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Si hendehors(ge_sd_Data) alors
     renvoyer faux
sinon
     zoneCorps1 = ValeurDeMaRequeteAAficher
     ...
 
    HLitSuivant(ge_sd_Data)
 
     renvoyer vrai
fin

Tu as aussi le droit à une zone Filtre
On passe dedans à chaque ligne de corps (même il peut ne pas y avoir de code). Si ça renvoi Vrai, la ligne est affichée, si c'est faux la ligne n'est pas affiché.

En espérant avoir été claire.

[lerorodu51]

Je croyais que votre solution avait marché or je me rend compte qu'il n'y passe qu'une seule fois. Voici le code de l'ETAT :

Code :

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
//Ouverture de ETAT_RibsClient
 
PROCEDURE ETAT_RibsClient(requete est une chaîne)
 
i,IdFichier est un entier
client est une chaîne
requete1 est une Source de Données
 
fCrée("C:\TEST\Test.txt")
IdFichier=fOuvre("C:\TEST\Test.txt",foLectureEcriture)
fEcrit(IdFichier,requete)
 
SI PAS HExécuteRequêteSQL(requete1,hAvecTransaction,requete) ALORS
	Erreur("Erreur d'initialisation de la requête"+RC+HErreurInfo())
	RETOUR
SINON
	//Lecture du premier enregistrement de la requête
 
	HLitPremier(requete1)
FIN
 
//Lecture des données de ETAT_RibsClient
 
SI HEnDehors(requete1) ALORS
	RENVOYER Faux
SINON
	RUB_CLI_CP1=requete1.CLI_CP
	RUB_CLI_NOM1=requete1.CLI_NOM
	RUB_CLI_NUM1=requete1.CLI_NUM
	RUB_CLI_RIB1=requete1.CLI_RIB
	RUB_CLI_VILLE1=requete1.CLI_VILLE
	RUB_RIB_BIC1=requete1.RIB_BIC
	RUB_RIB_CD_BK1=requete1.RIB_CD_BK
	RUB_RIB_CLE1=requete1.RIB_CLE
	RUB_RIB_GUICHET1=requete1.RIB_GUICHET	
	RUB_RIB_IBAN1=requete1.RIB_IBAN
	RUB_RIB_REFTIR1=requete1.RIB_REFTIR
	RUB_RIB_DOMI1=requete1.RIB_DOMI
 
 
	HLitSuivant(requete1)
 
	RENVOYER Vrai
FIN

J'ai tester la requête, elle renvoie bien plusieurs lignes. Je me demandais si le fait qu'il y ait aussi du code dans la partie "Avant Impression du Corps" pouvait poser problème ?

[Raptor92]

Bonjour,

Cette partie du code ne devrait elle pas se trouver dans l'initialisation de l'état

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
SI PAS HExécuteRequêteSQL(requete1,hAvecTransaction,requete) ALORS
	Erreur("Erreur d'initialisation de la requête"+RC+HErreurInfo())
	RETOUR
SINON
	//Lecture du premier enregistrement de la requête
 
	HLitPremier(requete1)
FIN

Et la deuxième partie comme vous l'avez très justement positionnée dans la lecture des données

Bonne journée

[lerorodu51]

La première partie du code se trouve dans la partie "Ouverture de l'ETAT" , il n'y a pas de Partie "Initialisation de l'ETAT" dans la partie Code de l'état.

[ErwanA]

requete1 est-elle bien une variable globale ? (A priori oui)

Quel est le code dans "Avant Impression corps ?"

Lorsqu'on passe dans la "lecture des données", quel est l'état de HEndehors() ?

Quel est l'intérêt d'exécuter la requête avec "hAvecTransaction" ?

Si on place le code suivant juste après le HLitPremier, les enregistrements s'affichent-ils bien ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
TANTQUE PAS HEnDehors(requete1) 
   Trace(RUB_CLI_CP1=requete1.CLI_CP)
 
   HLitSuivant(requete1)
FIN

Dans la description de l'état, Dans l'onglet "Données", est-il bien précisé que les données imprimées viennent de la programmation ?


PS : Penser à bien nommer les variables ça facilite le travail de tout le monde (requete et requete1 sont pour moi toute deux très mal nommée).

[vmolines]

Bonjour,

Lisez l'aide index "État, Programmer entièrement un état" puis le chapitre "Programmer la lecture des enregistrements".

Ce n'est pas compliqué (3 notions) et c'est la seule bonne manière de programmer le parcours des données d'un état.

Repartez de zéro en suivant cette logique et ça devrait rouler. Si vous ne comprenez pas quelque chose, vous pouvez toujours revenir demander.

[lerorodu51]

Alors "Avant Impression Corps", il y a :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
depart:
SI i = 0 ALORS 
	client=ETAT_RibsClient.CORPS.RUB_CLI_NUM1
	activeVisibilité(Vrai)
FIN
 
SI i > 0 ET  ETAT_RibsClient.CORPS.RUB_CLI_NUM1=client ALORS
	activeVisibilité(Faux)
SINON SI ETAT_RibsClient.CORPS.RUB_CLI_NUM1<>client
	i=0
	GOTO depart
FIN
 
i++

C'est juste pour activer ou désactiver les rubriques selon leurs contenus.
- HEndehors()=false (donc les rubriques sont bien initialisés)
-Si j'insère ton code après HlitPremier(), il me donne comme info qu'il n'y a pas de données à imprimer.

Vmolines je vais y regarder attentivement et je te redirai si j'ai un problème

[ErwanA]

Pour ne pas qu'il affiche qu'il n'y a pas de données à imprimer, il faut refaire un hlitpremier. mais ce qui m'intéressait, c'était le contenu de la fenêtre Trace (la fenêtre jaune) et notamment le nombre de ligne qui s'y trouvait.

Essayes ton etat en mettant en commentaire le code 'Avant impression Corps'

OMG !!! Tu n'as que 20 ans et tu programmes avec des GOTO...
J'ai un colègue qui part à la retraite qui en mis dans son code et je l'ai copieusement critiqué pour ça.
On peux utiliser des procédures pour rendre le code plus lisible.
Ou dans ton cas, d'abord faire ton test avec i>0 puis celui avec i=0.
Ou regarder la notion de bloc de rupture (ça semble être ce que tu essayes de faire).

Ou alors c'est moi qui devient vieux et le GOTO est quelque chose d'absolument géniale.

[lerorodu51]

Mettre en commentaire la partie "Avant impression du Corps" , cela ne change rien. Sinon dans le trace il y a une 20aine de lignes (un "0" par ligne) ce qui correspond au nombre d'enregistrements prévu de la requête ^^

[ErwanA]

Là, je vois pas où se trouve le soucis. Désolé.

Si dans la zone 'Lecture des données', on renvoit Vrai, il doit obligatoire repasser dans cette zone ne serais-ce que pour renvoyer Faux par a suite (D'ailleurs, dans cette zone, parès le HLitSuivant, Hendehors() est-il bien toujours à faux ?)

Bon courage, pour trouver la solution que j'espère lire rapidement.

[lerorodu51]

Merci Windev...j'ai relancé Windev et là ça marche . Merci à vous