Discussion :

[Ric500]

Bonjour à tous!

Je bloque depuis un moment sur le problème des CGV: Je souhaite que lorsqu'on clique l'option CGV,

ma facture s'affiche sur 3 pages (numérotées) avec les CGV sur les dernières pages,

ici sur trois pages

OU

lorsqu'on ne prend pas cette option, la facture s'imprime sur une page


Je dispose d'un état Facture et d'un autre, CGV que je cherche à intégrer comme un sous-état. Malgré des essais en pied de page, en pied d'état et même dans la section détail je n'obtiens pas le résultat escompté.

Avez-vous une solution?

Merci d'avance pour vos réponses.

[tee_grandbois]

Bonsoir,
je ferai comme cela :
- ajouter un pied d'état dans l'état et mettre les propriétés auto-réductible et auto-extensible à Oui.
- mettre le sous-état des CGV en pied d'état, mettre ses propriétés auto-réductible et auto-extensible à Oui et réduire la hauteur à la taille minimum.

Ensuite, voici le code pour imprimer les factures, on utilisera la valeur de la case à cocher CGV pour la passer en paramètre (OpenArgs) à l'état.

Code :

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

1
2
3
4
 
Private Sub btnImprimerFacture_Click()
	DoCmd.OpenReport "rptFactures", acViewPreview, , , , Me.CocherCGV
End Sub

Enfin, on mettra le code ci dessous à l'ouverture de l'état: si la case est cochée, on met un saut de page et on imprime les CGV, si elle ne l'est pas on enlève le saut de page et on rend invisible le sous-état :

Code :

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

1
2
3
4
5
6
7
 
Private Sub Report_Open(Cancel As Integer)
If Not IsNull(Me.OpenArgs) Then
     Me.PiedÉtat.ForceNewPage = Val(Abs(Me.OpenArgs)) ' 0: pas de saut page ; 1: saut de page avant section
     Me.CGV_se.Visible = Val(Me.OpenArgs)             ' 0: sous-état invisible ; -1: visible
End If
End Sub

[Ric500]

Merci tee_grandbois pour ta réponse,

Le souci, c'est que le total de la facture se situe déjà en pied de page (il est lui même dans un sous-état). et que les CGV étant de nature assez longues, il me génère un saut de page qui renvoie le total sur une nouvelle page puis ensuite les CGV.

[tee_grandbois]

J'ai fait mention du Pied d'état, pas du Pied de page, mais en fait, en mode création, c'est En-tête/pied de rapport :

[marot_r]

Bonjour.

c'est que le total de la facture se situe déjà en pied de page

Es-tu sur ? il semble plus en pied d'état sur ta 1ère copie d'écran.

Personnellement je ferai

EtatFactureCGV

• Sous-EtatFacture (suppose que le total est en pied d'état)
  
  • Facture
• Sous-EtatCGV
  
  • CGV

A+

[Ric500]

Oups!

Pardon, fin de journée , effectivement je voulais dire pied d'état.

Çà se présente comme çà:

[tee_grandbois]

Un astuce qui fonctionne :
- ajouter un En-tête / pied de rapport au sous-état CGV
- mettre une hauteur > 0 pour l'en-tête
- mettre la propriété Visible à Non
- mettre ce code dans le sous-état (évènement au formatage) :

Code :

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

1
2
3
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
Me.Détail.ForceNewPage = 1  ' Force un saut de page avant le sous-état
End Sub

[Ric500]

Bonjour tee_grandbois

Je reviens vers toi concernant mon saut de page conditionnel.
Comme tu le vois sur le schéma ci-dessus, le sous-état "Totaux" et le sous-état "CGV" figurent tous deux dans le pied d'état. Si je comprends bien ton code, l'état effectuera un saut de page en arrivant sur la section Détail (pourquoi un saut de page après chaque ligne ?). Mon souhait, en fait serait d'effectuer ce saut après les totaux (si la condition est satisfaite - sélection bouton radio dans le formulaire appelant).
De cette façon, je produirais un document insécable car, les pages sont numérotées (Page / Pages).

Merci encore de ta réponse

[tee_grandbois]

Si je comprends bien ton code, l'état effectuera un saut de page en arrivant sur la section Détail (pourquoi un saut de page après chaque ligne ?). Mon souhait, en fait serait d'effectuer ce saut après les totaux (si la condition est satisfaite - sélection bouton radio dans le formulaire appelant).

Bonjour Ric500,
difficile d'extrapoler la solution idéale, quand on n'a pas toutes les informations.
Pour la dernière solution j'ai considéré que les CGV étaient dans un seul champ texte de type long, si ce n'est pas le cas, merci de préciser de quoi est composé le détail (champ unique, image, multilignes ...).
Néanmoins, il serait bien que tu testes la solution proposée avant de poser des nouvelles questions :

Mon souhait, en fait serait d'effectuer ce saut après les totaux (si la condition est satisfaite - sélection bouton radio dans le formulaire appelant).

mettre ce code dans le sous-état (évènement au formatage) :

[Ric500]

OK tee_grandbois,

Je faisais une fixette sur le fait d'éjecter la page depuis l'état principal: en effet, je devrais pouvoir éjecter la page depuis le sous-état CGV et ne gérer depuis l'état facture que l'existence ou non (selon les conditions) du sous-état.

Merci je teste çà tout de suite.

PS: Effectivement les CGV sont dans un seul champ texte mémo de type enrichi.

[tee_grandbois]

Je faisais une fixette sur le fait d'éjecter la page depuis l'état principal: en effet, je devrais pouvoir éjecter la page depuis le sous-état CGV et ne gérer depuis l'état facture que l'existence ou non (selon les conditions) du sous-état.

Effectivement, il faut le faire dans le sous-état, l'inconvénient c'est qu'on ne peut pas utiliser ForceNewPage sur une autre section que le détail étant donné que En-tête de page et En-tête d'état sont inhibés dans un sous-état.
Ceci dit avec ce code, on ne l'exécute qu'une fois :

Code :

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

1
2
3
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
If FormatCount = 1 Then Me.Détail.ForceNewPage = 1
End Sub

[Ric500]

[Ric500]

Bonjour à tous!

re-Bonjour tee_grandbois

Il me semble avoir suivi tes indications, aurais-je loupé une étape?

L'état qui contient les sous-états:


le sous-état CGV:


Le formulaire appelant avec les CGV non sélectionnées:


Le résultat:


... Avec les CGV sélectionnées:


Comme tu le vois le total est passé en page 2

J'en ai profité pour essayer des variantes, genre insérer un saut de page forcé avec le contrôle Saut de Page juste avant le contrôle CGV dans le sous-état CGV mais... que pouic!

les totaux ne restent pas en page 1 si la facture ne comporte que quelques lignes.

[tee_grandbois]

Bonsoir,
il faudrait que je voie toutes les propriétés du sous-état des totaux. Est-ce possible d'avoir une copie de la base sans données confidentielles ?
Si ce n'est pas possible, pourrais-je avoir les tables vides (mais, si possible les CGV), les requêtes, l'état et les sous-états ?
Merci.

[micniv]

Bonsoir,
ma suggestion : dans le cas présent pourquoi ne pas imprimer les CGV dans un état à part. Et l'imprimer à la suite si souhaité ...

CDLT

[Ric500]

Bonjour à tous!

@tee_grandbois:

Effectivement, tee_grandbois, çà me sera difficile de te faire parvenir la base entière. Je vais cependant te préparer un dossier zippé avec tous les objets concernés.

@micniv:

Bonjour micniv, je pense que je vais temporairement me tourner vers cette solution même si elle ne me convient pas tout-à-fait. La difficulté que je prévois sera de reprendre la numérotation des pages à la suite de de la facturation.

D'autre part intégrer les CGV à la facture me permettait d'émettre un pdf unique automatiquement rangé dans la GED du client.

Je reste attentif aux solutions proposées pouvant compléter la réponse de tee_grandbois.

Merci de votre intérêt!

PS, je galère à joindre ma base même zippée (3 Mo : le gestionnaire de pièces jointes ne semble pas accepter de zip> 2 Mo)

[tee_grandbois]

Bonjour Ric500,
pour éviter de mettre des tables contenant beaucoup de données, tu peux faire une sélection d'enregistrements.
Peux-tu déjà me faire parvenir les états et sous-états ?

[Phil43]

Bonjour,

Si tu peux créer un champ cgvouinon en plus (case à cocher) par client qui détermine affichage ou non des cgv.
Alors dans ton état tu peux créer un nouveau groupe de niveau 1 cgvouinon.
Dans son pied de groupe tu fais saut de page avant section et tu y colle tes cgv.
En vba tu masques le total facture sur les 3 dernieres pages si cgvouinon est coché.

Peut etre comme cela ....

[Ric500]

@Phil43:

L'affichage ou non des CGV ne dépend pas (dans mon appli) du client mais du bon vouloir de l'émetteur => Case à cocher ds le formulaire appelant.

@tee_grandbois:

Je ne t'ai pas oublié tee_grandbois, mais traditionnellement, quand je zippais une base j'avais un super taux de compression: là quel que soit le zippeur (rar, zip...) je n'obtiens qu'un taux de 80% au mieux. Du coup l'outil des pièces jointes de DVP fait la gueule car même en n'incluant dans une base vide que les objets FC (avec sous-états), sans aucun logo ou autre fichier graphique, je suis sur une base de 5 ou 6 Mo.
Je pense que je vais scinder le zip en plusieurs volumes de 2 Mo (le max accepté par DVP). Pour l'instant je cherche encore une solution lus élégante qui me permettrait d'inclure plus d'objets pour toi.

Merci encore

[tee_grandbois]

As-tu pensé à compacter les bases ?