PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV 2024 → pdf fusion
pdf fusion
Débuté par Ronald HUIN, 01 mar. 2015 18:51 - Aucune réponse
#1
Membre enregistré
75 messages
Posté le 01 mars 2015 - 18:51
Bonjour,

J'ai un petit soucis en ce qui concerne pdffusion

voici mon code. je rassemble tout mes pdf dans un table puis je confectionne mon tableau pour fusionner mais celui ci me donne comme résultat Faux ... quelqu'un peut il m'aider ?

loc est entier = TableOccurrence(FEN_ODJ.Onglet1.Table1,toTotal)
POUR i = 1 TO loc

SI FEN_ODJ.Onglet1.Table1.pj1[i] <> "" ALORS
TableAjouteLigne(FEN_ODJ.Onglet1.Table7, FEN_ODJ.Onglet1.Table1.pj1[i])
FIN

SI FEN_ODJ.Onglet1.Table1.pj2[i] <> "" ALORS
TableAjouteLigne(FEN_ODJ.Onglet1.Table7, FEN_ODJ.Onglet1.Table1.pj2[i])
FIN
SI FEN_ODJ.Onglet1.Table1.pj3[i] <> "" ALORS
TableAjouteLigne(FEN_ODJ.Onglet1.Table7, FEN_ODJ.Onglet1.Table1.pj3[i])
FIN

SI FEN_ODJ.Onglet1.Table1.pj4[i] <> "" ALORS
TableAjouteLigne(FEN_ODJ.Onglet1.Table7, FEN_ODJ.Onglet1.Table1.pj4[i])
FIN

SI FEN_ODJ.Onglet1.Table1.pj5[i] <> "" ALORS
TableAjouteLigne(FEN_ODJ.Onglet1.Table7, FEN_ODJ.Onglet1.Table1.pj5[i])
FIN

SI FEN_ODJ.Onglet1.Table1.chemi_piece_jointe[i] <> "" ALORS
TableAjouteLigne(FEN_ODJ.Onglet1.Table7, FEN_ODJ.Onglet1.Table1.chemi_piece_jointe[i])
FIN


FIN

locurrence est entier = TableOccurrence(FEN_ODJ.Onglet1.Table7,toTotal)

MonTableauPDF est un tableau de locurrence chaînes

POUR i = 1 TO locurrence
MonTableauPDF[i] = FEN_ODJ.Onglet1.Table7.Colonne1[i]

FIN

lenom est chaîne = FEN_ODJ.organe+dateorgane+DateDuJour()+nom+".pdf"
reper est chaîne = fExtraitChemin(repertoire, fDisque + fRépertoire)
reper = reper + lenom
boule est un booléen
boule = PDFFusionne(reper, MonTableauPDF)
Info(boule)

MERCIIII
→ Revenir à WINDEV 2024