Discussion :

[SergioMaster]

c'est pas une simple facture

on n'a certainement pas la même conception d'une facture , je n'ose te présenter l'édition des miennes (sachant qu'en plus , je fais non pas facture par facture mais bien l'edition d'un ensemble de factures)

les deux requêtes sont liées à deux QRDBTEXT1 (code_article) et QRDBTEXT(code_s_a) ;

je ne vois pas la liaison code_s_a dans les requêtes indiquées

donc je ne travaille pas sur des tableau (ADOTABle) je travaille sur des requêtes

je ne travaille pratiquement plus qu'avec des requêtes maintenant
après tout une table n'est qu'un SELECT .. FROM TABLE sans WHERE

Deux solutions sont possibles :

un Quickreport Détail avec un QRGroup

Code SQL :

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

1
2
3
4
5
6
 SELECT B.dateBP,B.code_chapitre,B.code_article,B.code_s_a,
B.BA_SACHAP,B.BS_SACHAP ,C.nom_chap,C.nom_article,C.BA,C.BS,C.code_cpt
FROM budgetSAChap B JOIN ON B.Code_Chapitre=C.Code_chapitre  And b.Code_Article=c.CodeArticle AND B.DateBP=C.DateBP 
WHERE code_article <>'850' 
AND B.Code_chapitre=:C AND B.DateBP:=D  // repris de Query Maitre
order by B.code_chapitre,B.code_article,B.dateBP

QRGROUP sur CODE_CHAPITRE

ou la solution (beaucoup moins élégante) Maitre/Détail

QMaitre

Code SQL :

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

1
2
3
4
 
select * from budgetChapitre 
where code_chapitre = :c and dateBP = :d and code_article <>'850'
order by code_article , code_cpt

QDetail (avec datasource=QMaitre)

Code SQL :

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

1
2
3
 
SELECT * FROM from budgetSAChap where code_chapitre = :codechapitre and dateBP = :datebp and
code_article = :code_article

et dans le BeforePrint de la Bande Détail (précaution car je ne suis pas sur que cela soit nécessaire)

Code :

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

1
2
3
4
begin
QDetail.Active:=False;
QDetail.Active:=True;
end;

et voilà

[menoulette]

Code :

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

1
2
3
4
5
6
7
 
 
select  budgetSAchap.dateBP, budgetSAchap.code_article, budgetSAchap.code_s_a ,budgetSAchap.nom_s_a ,  budgetSAchap.BA_sa_cha ,
budgetSAchap.BS_sa_chap, budgetChapitre.dateBP, budgetChapitre.code_chapitre ,  budgetChapitre.code_article from budgetSAchap , budgetChapitre 
JOIN ON  budgetSAchap.dateBP = budgetChapitre.dateBP AND budgetSAchap.code_article = budgetChapitre.code_article
and budgetSAchap.code_chapitre = budgetChapitre.code_chapitre where code_article <> '850' and budgetSAchap.code_chapitre = :c
AND budgetSAchap.dateBP= :D order by budgetSAchap.code_article

J'ai essayé cette requête erreur dans la clause FROM j'ai cru que les Alias me causent le problème mais je ne le pense pas pourtant me semble tout est juste

[SergioMaster]

from budgetSAchap , budgetChapitre

faut réviser la syntaxe des jointures

Code SQL :

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

FROM budgetSAchap JOIN budgetChapitre ON

méa culpa , la faute au copier-coller , et la faim , tout à l'heure il y avait une petite omission

Code SQL :

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

1
2
FROM budgetSAChap B JOIN budgetChapitre C ON B.Code_Chapitre=C.Code_chapitre  AND b.Code_Article=c.CodeArticle AND B.DateBP=C.DateBP

[coolirc]

moi je pense qu'une aide par team viewer réglera le problème .

après vous posté la solution et le problème pour aider les autres .

Merci

[SergioMaster]

moi je pense qu'une aide par team viewer réglera le problème .

mes interventions par teamviewer restent professionnelles et donc monnayables ! mettre une remarque comme celle-ci , ne fait certainement pas avancer le 'débat' .
Comprenez bien qu'il y a aussi une vie en dehors du forum (c'est entre autre pour cette raison que je vais rarement dans la chatroom)

[coolirc]

mes interventions par teamviewer restent professionnelles et donc monnayables ! mettre une remarque comme celle-ci , ne fait certainement pas avancer le 'débat' .
Comprenez bien qu'il y a aussi une vie en dehors du forum (c'est entre autre pour cette raison que je vais rarement dans la chatroom)

moi je dit pas le contraire . nous avons tous une vie en dehors le forum . c'est pour ça j'ai pas encore fait ma table consommable lol .

restant dans le sujet .

Merci

[chekkal]

@menoulette Je me permet de persister , j'utilise le Aftercroll depuis toujours et ça marche à merveille et ça répond réellement à ta question initiale

Code :

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

1
2
3
4
5
6
7
 
procedure datasetafterscroll(dataset Tdataset);
begin
ssa.Close;
ssa.Parameters[0].Value:=  QRDBText4.dataset.Fields[0].AsString  ;
ssa.Open();
end;

je jure devant dieu, si cette methode ne marche pas je devient pompier

@sergio qu'est-ce qui peut remplacer le Afterscroll à ma connaissance rien.
je l'utilise surtout dans la recherche imbriqué exple:
Table Client
Tabe Vente
et à chaque changement de client une recherche se fait sur la table vente corréspondant au client selectionné.
tu m'a aussi fait la remarque sur la non utilisation des parameters et je te remercie et je vai te répondre tout simplement parce-que la requette change à chaque fois.

[SergioMaster]

Bonjour,

@Checkal J'explique ma position :
tout d'abord à propos de la solution en utilisant une jointure et donc un état détail avec un QRGroup : Avantage moins d'accès disque puisque l'on utilise qu'un seul fichier et donc pas de Close+Parametre+Open , donc gain de temps

Pour ce qui est du BeforePrint ou AfterPrint au lieu d'un AfterScroll . D'une part le Beforeprint et le AfterPrint sont déclenchés un peu de la même manière (en fait avant le Scroll pour le Before et après pour le After , ce qui parait évident).
A mon avis,d'un point de vue Maintenance , il est donc plus aisé de lire ce qui se passe au niveau du report sans s'occuper de ce qui pourrait se passer sur le Dataset.

Enfin le AfterScroll en lui même , quand on affiche des Grilles (ce qui est souvent ton cas si j'ai bien compris) il est trop fréquemment appelé (ne serait-ce déjà qu'a l'ouverture du fichier !) . Bien sur on peut désactiver l'event puis le réactiver après l'ouverture , mais lors de la navigation dans une grille , c'est galère . Donc encore une fois pour des gains non négligeables de temps, d'accès disque etc... je ne recommande pas

[chekkal]

@sergio, merçi pour ton explication, mais je vai peut être ajouter quelque chose sur le Beforeprint et Afterprint.ayant testé le afterpint son utilisation bloque souvent la construction du report sur tout sur une table volumineuse.

@menoulette, il y a une chose que j'ai appris dans ce forum, c'est de partager le savoir, c'est pour ça que je vai te répondre ici. tu peut utiliser Tadotable, il contient un événement "onafterscroll".

[menoulette]

Bonjour @Sergio j'ai essayé la requête suivante est tjrs fausse

Code sql :

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

1
2
3
4
5
select  b.dateBP, b.code_article, b.code_s_a ,b.nom_s_a ,  b.BA_sa_cha ,
b.BS_sa_chap, c.dateBP, c.code_chapitre ,  c.code_article from budgetSAchap  b
JOIN  budgetChapitre c  ON  b.dateBP =c.dateBP AND b.code_article =c.code_article
and b.code_chapitre =c.code_chapitre where code_article <> '850' and b.code_chapitre = :c
AND b.dateBP= :D order by b.code_article

@Chekkal votre proposition ne marche pas peut être j'ai mal placé le code , de plus pouvez vous m'expliquer encore (QRDBText4.dataset.Fields[0].AsString) fields[0]=> c'est le champs sélectionné ou celui qui est paramétré !!!!

Code :

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

1
2
3
4
5
6
procedure ADOquery1afterscroll(dataset Tdataset);
begin
  ssa.Close;
  ssa.Parameters[2].Value:= QRDBText4.dataset.Fields[0].AsString  ;
  ssa.Open();
end;

[SergioMaster]

Bonjour @Sergio j'ai essayé la requête suivante est tjrs fausse

quelle erreur ? et d'abord je ne crois pas l'avoir lu quelle BDD ?

est-il possible d'avoir un script de création des tables et jeu d'essai ?

[menoulette]

quelle erreur ? et d'abord je ne crois pas l'avoir lu quelle BDD ?

est-il possible d'avoir un script de création des tables et jeu d'essai ?

erreur dans la clause FROM j'ai le cerveau ramollis j'utilise le SGBD ACCESS

[SergioMaster]

Bon , je n'ai pas Access sur mon poste (d'ailleurs j'en suis pas un fan) , peut être que ce dernier n'accepte pas les alias de table , ou faut-il explicitement indiquer LEFT JOIN ?

syntaxe JOIN ACCESS

[menoulette]

j'ai réessayé avec cette requête et un message s'affiche expression join non supporté je crois que je dois éviter de travailler avec les requête tous ce que je souhaite c'est juste récupérer les données de ce QRDBtext et les faire passer à une requête paramétrées

Code sql :

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

1
2
SELECT *
FROM budgetSACHap INNER JOIN budgetChapitre ON (budgetSACHap.code_article = budgetChapitre.code_article) AND (budgetSACHap.code_chapitre = budgetChapitre.code_chapitre) AND (budgetSACHap.dateBP = budgetChapitre.dateBP) and budgetChapitre.dateBP = :d and budgetChapitre.code_chapitre=:c

[SergioMaster]

J'ai toujours dit que acces était

Code sql :

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

1
2
3
4
SELECT *
FROM budgetSACHap,budgetChapitre
WHERE (budgetSACHap.code_article = budgetChapitre.code_article) AND (budgetSACHap.code_chapitre = budgetChapitre.code_chapitre) AND (budgetSACHap.dateBP = budgetChapitre.dateBP) 
AND budgetChapitre.dateBP = :d AND budgetChapitre.code_chapitre=:c

au pire celle-ci devrait passer , mais c'est plutôt le * qu'il faut travailler à cause des noms de colonnes identiques

tous ce que je souhaite c'est juste récupérer les données de ce QRDBtext et les faire passer à une requête paramétrées

c'est sur , pourquoi faire quelque chose d'efficace quand on peut faire une bidouille en plus vous persistez dans votre erreur de vouloir obtenir le QRDBText au lieu de récupérer , plus simplement BudgetChapitre.code_article .
(vous seriez un de mes stagiaires ou de mes élèves lorsque j'en avais la moitié de la note aurait déjà disparu )

avez vous seulement testé "la solution (beaucoup moins élégante) Maitre/Détail " ? et compris le pourquoi du moins élégant ?

comment faites vous pour tester les SQL (via DELPHI ou via Access) perso je peaufine toujours mon SQL via un GUI de la SGBD plutôt que de modifier sans cesse mon programme