Discussion :

[TheCurse]

Bonjour à toutes et à tous,

J'ai un problème d'ordre logique... Je filtre des tables avec des setRangeStart, setRangeEnd etc.. sur des dates. Exemple: va chercher seulement les employés qui ont travaillé entre telle et telle date. Ça ça marche. Le problème c'est quand arriver à la fin de l’évènement, il ya une fonction "check_exception", qui prend une date en paramètre et qui retourne un vrai ou faux. Si c'est vrai, le rapport affichera les infos de l'employé pour la date mise en paramètre, et faux rien ne sera afficher pour cette date.
J'avais pensé faire une boucle de type For i := dateDebut à dateFin do
begin tableauDeBoolean[indice] = check_exception(i) end;
Je récupère le résultat pour chaque date... mais ensuite comment travailler avec ça... Etant donné que Accept ne prend qu'une seule valeur.

Merci d'avance pour votre aide

le code: http://pastebin.com/YrT6k9La

[seabs]

Bonjour,

Je n'ai pas tout compris, mais à l'examen de ton événement

Code :

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

1
2
procedure TfmActExRpt.tbEMFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);

Je pense qu'il faudrait commencer par sortir toutes les affectations de cet évènement et les transférer vers une procédure dédiée. Ta procédure ci-dessus aurait simplement pour mission de mettre en œuvre ou pas les options souhaitées.

Sans une vision de l'ensemble, il est difficile de répondre. Mais, il serait peut être suffisant d'ajouter une colonne boolean à ta table. Lors du test, du marque cette colonne pour afficher ou ne pas afficher.

Il s'agit d'une piste, après il faudrait mieux comprendre ton projet pour répondre efficacement.

Bon courage

@+

[SergioMaster]

Mais pourquoi utiliser la table entière et le OnFilterRecord alors qu'un SQL pourrait très bien gérer ça , et mieux

Code SQL :

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

1
2
 
SELECT * FROM UNETABLE WHERE UNEDATE BETWEEN :D1 AND :D2

Vous noterez , l'utilsation de paramètres pour passer les dates !

PS. je déteste les filtres

[seabs]

Bonjour,

@SergioMaster a écrit

Mais pourquoi utiliser la table entière et le OnFilterRecord alors qu'un SQL pourrait très bien gérer ça , et mieux
Code SQL :
Sélectionner tout - Visualiser dans une fenêtre à part

SELECT * FROM UNETABLE WHERE UNEDATE BETWEEN 1 AND 2

Vous noterez, l’utilisation de paramètres pour passer les dates !

Je suis bien d'accord avec toi, mais à l'examen de l'évènement, je ne suis pas certain que notre ami tienne à utiliser SQL. Il serait intéressant de connaître le MCD ou le MPD de l'application. L'analyse permettrait certainement d'apporter des modifications afin de simplifier la programmation.

Pour les filtres, j'ai comme toi supprimé ceux-ci de mes lignes de programmation.

@+

[TheCurse]

Bonjour,

Je n'ai pas tout compris, mais à l'examen de ton événement

Code :

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

1
2
procedure TfmActExRpt.tbEMFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);

Je pense qu'il faudrait commencer par sortir toutes les affectations de cet évènement et les transférer vers une procédure dédiée. Ta procédure ci-dessus aurait simplement pour mission de mettre en œuvre ou pas les options souhaitées.

Sans une vision de l'ensemble, il est difficile de répondre. Mais, il serait peut être suffisant d'ajouter une colonne boolean à ta table. Lors du test, du marque cette colonne pour afficher ou ne pas afficher.

Il s'agit d'une piste, après il faudrait mieux comprendre ton projet pour répondre efficacement.

Bon courage

@+

Pour la procédure je vais y réfléchir. Malheureusement je ne suis pas habilité à modifier les tables... Je dois faire avec ce qu'il ya là.
Mon projet consiste à créer un nouveau rapport Crystal pour afficher des informations sur des employés. Je dois modifier le code existant pour que le rapport affiche les informations entre deux dates. À la base le code ne gère qu'une seule date à la fois... Mais l'idée de la procédure me parait très prometteur!

Mais pourquoi utiliser la table entière et le OnFilterRecord alors qu'un SQL pourrait très bien gérer ça , et mieux

Code :

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

SELECT * FROM UNETABLE WHERE UNEDATE BETWEEN :D1 AND :D2

Vous noterez , l'utilsation de paramètres pour passer les dates !
PS. je déteste les filtres

Je travail en Delphi 5 et je suis novice dans ce langage. J'ai déjà essayé d' utiliser du sql mais je ne suis pas arriver à de bons résultats.

[SergioMaster]

Je travaille en Delphi 5 , J'ai déjà essayé d'utiliser du sql mais je ne suis pas arrivé à de bons résultats.

le SQL n'est pas Delphi , c'est un standard d'interrogation de Base de Données.

Je n'ai fait qu'entre-apercevoir le code du filtre (aujourd'hui je n'y ai pas accès) mais cela avait tellement l'air compliqué que je suis sur qu'il y a plus simple

une Query sera certainement beaucoup plus simple et plus rapide . Il y a de bons cours SQL pour débutant http://sgbd.developpez.com/cours/ . Une description de la table serait une bonne idée si tu veux une solution