Discussion :

[david--vincent]

bonjour
petit souci de code

mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
monTableaudepdf est un tableau de Fichierimp chaînes
 
POUR i = 1 A Fichierimp
 
monTableaudepdf[i] = "C:\temp bl\"+i+".pdf"
 
FIN
 
 
PDFFusionne("C:\Doc\pdf_fusion.pdf", monTableaudepdf)

j'ai PDFFusionne qui reste en erreur

Erreur :Aucune syntaxe de PDFFusionne ne correspond.

je ni comprend plus rien

merci d'avance

[Atsibat]

Code :

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

monTableaudepdf est un tableau de Fichierimp chaînes

c'est là que ça se passe... "Fichierimp chaînes" ??

[mail.spam]

Bonjour.
Fichierimp est un entier.
Tu peux définir un entier puis utiliser cette variable pour définir la la dimension du tableau.

Sinon peux tu nous dire quelle version de windev tu utilise.
Et si tu fait un essai avec la deuxième syntaxe de la fonction ça donne quoi?

[david--vincent]

bonjour

la construction du tableau marche nikel
Fichierimp donne juste la dimension exacte du tableau car je connait le nombre exact de fichier pdf
je suis en version 17
et si je rentre le code

Code :

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

PDFFusionne("C:\Doc\pdf_fusion.pdf", "C:\temp bl\1.pdf",C:\temp bl\2.pdf"

l'erreur sur PDFFusionne disparait et cela marche
mais je voudrait regrouper en un seul fichier tout les pdf creer à partir de mon état


le code complet :

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
HExécuteRequête(REQ_clientchant)
 
HLitPremier(REQ_clientchant)
 
Conteur est un entier = 1
Fichierimp est un entier = 1
 
 
TANTQUE PAS HEnDehors ()
 
	HExécuteRequête(REQ_etatjour,hRequêteDéfaut,REQ_clientchant.NCLIENT,REQ_clientchant.CHANTIER)
	HExécuteRequête(REQ_tottransjour)
 
 
	  iDestination(iPDF,"C:\temp bl\"+Fichierimp+".pdf")                                                                                                                                                                                                                                                                            
	iNumPage(Conteur)
 
	iImprimeEtat(ETAT_bljourm)
 
 
	Conteur = testpage + 1
 
	Fichierimp = Fichierimp+1
 
	HLitSuivant (REQ_clientchant)
FIN
 
 
monTableaudepdf est un tableau de Fichierimp chaînes
 
 
POUR i = 1 A Fichierimp
 
monTableaudepdf[i] = "C:\temp bl\"+i+".pdf"
 
 
FIN  
 
 
PDFFusionne("C:\Doc\pdf_fusion.pdf", monTableaudepdf)

pour info la variable conteur permet de numéroter les pages de l'état en fonction du nombre de page de l'état précédant fournit par la variable globale testpage

merci de votre aide

[david--vincent]

j'ai fait la mise jour de windev

plus de problème de code mais mon fichier pdffusion reste a 0 Ko

@plus

[mail.spam]

Regarde si ce n'est pas un problème de version de pdf. Il y a une restriction dans l'aide Ensuite vérifie les chemins de tes fichiers pdf

[themayu]

Bonjour,

Au lieu d'imprimer puis fusionner chaque états, vous pouvez utiliser les instructions d’enchaînement, vous aurez directement le résultat final sans la création d'états intermédiaires.

Illustration avec votre code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
HExécuteRequête(REQ_clientchant)
 
HLitPremier(REQ_clientchant)
 
iDestination(iPDF,"C:\temp bl\"+Fichierimp+".pdf")          
TANTQUE PAS HEnDehors ()
 
	HExécuteRequête(REQ_etatjour,hRequêteDéfaut,REQ_clientchant.NCLIENT,REQ_clientchant.CHANTIER)
	HExécuteRequête(REQ_tottransjour)
	iEnchaînementAjoute(ETAT_bljourm)
	HLitSuivant (REQ_clientchant)
FIN
iEnchaînementImprime()

La numérotation des pages est gérée par la fonction en plus !

[david--vincent]

j'ai déjà essayer la fonction iEnchaînementAjoute
le problème est que je n'ai en résultat que mon dernier chantier
multiplier par le nombre de mes client / chantier
c'est pour cela que j'étais passer directement a la création de pdf

merci quand même pour l'aide; je continu a chercher .............

salutations

[david--vincent]

j'ai trouver je voulais fusionner un pdf de trop

Fichierimp en sortant de la boucle est incrémenter de 1 j'ai simplement ajouter -1

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
HExécuteRequête(REQ_clientchant)
 
HLitPremier(REQ_clientchant)
 
Conteur est un entier = 1
Fichierimp est un entier = 1
 
TANTQUE PAS HEnDehors ()
 
	HExécuteRequête(REQ_etatjour,hRequêteDéfaut,REQ_clientchant.NCLIENT,REQ_clientchant.CHANTIER)
	HExécuteRequête(REQ_tottransjour)
 
 
	  iDestination(iPDF,"C:\temp bl\"+Fichierimp+".pdf")                                                                                                                                                                                                                                                                            
	iNumPage(Conteur)
 
	iImprimeEtat(ETAT_bljourm)
 
			Conteur = testpage + 1
 
	Fichierimp = Fichierimp+1
 
	HLitSuivant (REQ_clientchant)
FIN
 
 
monTableaudepdf est un tableau de Fichierimp-1 chaînes
 
 
POUR i = 1 A Fichierimp-1
 
monTableaudepdf[i] = "C:\temp bl\"+i+".pdf"
 
 
FIN  
 
 
PDFFusionne("C:\temp bl\pdf_fusion.pdf",monTableaudepdf)

maintenant cela marche



je ne voit pas comment ajouter résolu sur le sujet merci au modo de la faire

salutations

[mail.spam]

Il suffit de cliquez sur en dessous du dernier message