Discussion :

[kerichen]

Bonjour à tous,

Je veux réaliser une liste d'attente pour mes patients en vue de réaliser la vaccination COVID

Sachant qu'un flacon ne permet de réaliser que 10 vaccinations je souhaiterais que lors de l'édition de l'état qui reprend la liste des patients en attente chaque page n'édite automatiquement que les enregistrement avec 10 patients par page afin de les prévenir ensuite

Est-ce que cela est possible avec un code dans l'état ou lors de l'impression ?

Merci d'avance

[frenchsting]

Bonjour,

oui, c'est possible.

Le principe : tu as une variable globale à l'état :

Code :

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

int_NbPatients est entier = 0

Après chaque ligne imprimée, tu incrémantes ta variable et si elle vaut 10, tu la mets à 0 et tu fais un saut de page.
Dans le bloc corps, dans le code "après impression...", tu ajoutes le code suivant :

Code :

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

1
2
3
4
5
int_NbPatients++
SI int_NbPatients = 10 ALORS
     int_NbPatients = 0
     iTerminePage()
FIN

[kerichen]

Merci beaucoup, je renseigne tout cela. Quelle réactivité !

[Voroltinquo]

Bonjour
Une autre solution est d'utiliser la clause LIMIT dans ta requête. Cela peut te permettre de passer le nombre de patients à afficher/imprimer en paramètre (e.g. passage de 10 patients à 15)

[kerichen]

Merci également pour cette autre solution

Il est vrai que mon projet est très simple et ma table est issue directement de mon fichier Patient sans passer par une requête, mais ta solution peut permettre des modifications sans devoir repasser par le code

Je testerai

[frenchsting]

Bonjour,

si tu veux que ça soit paramétrable (avec ma solution), tu utiliser un paramètre pour le max, dans le code de déclaration de l'état :

Code :

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

1
2
Procédure MonBelEtat(int_NbMaxParPage est entier)
int_NbPatients est entier = 0

Code :

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

1
2
3
4
5
int_NbPatients++
SI int_NbPatients = int_NbMaxParPage  ALORS
     int_NbPatients = 0
     iTerminePage()
FIN

Code d'appel de l'état :

Code :

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

iimprimeEtat(MonBelEtat, 10) // iimprimeEtat(MonBelEtat, 15)

La valeur peut être stockée dans un fichier ini par exemple (ou base de registre,...)

Code :

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

1
2
iimprimeEtat(MonBelEtat, inilit(....))
iimprimeEtat(MonBelEtat, RegistreLit(....))

[kerichen]

Je vais essayer

C'est drôle parce que c'est la première fois que je cherche à réaliser des impressions fractionnées et au final c'est très pratique et utilisable pour pas mal d'applications

Merci