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 41 42 43 44 45 46 47 48 49 50
|
setLevelPath 1
initialisePlugins
'// Récupération des champs
URGENT = lcase(trim(split(request("URGENT"),"-")(0)))
Type_doc = request("Type_doc")
'// Récupération de l'id du document ouvert
docId = clng(request("docid"))
'// Cré un tableau de String
dim tabFields
tabfields = GetFields(2)
'// Récupération du chemin du fichier
pdfFilePath = getFilePath(docId + 1)
'// Réinitialise les champs à ne pas modifier (Stocké en session)s
session(myzedocbasename & "_noEdit") = ""
session(myzedocbasename & "_addExisting") = ""
'// Modification du champ URGENT
if request("Type_doc") <> vbnullstring and request("Accord client") = vbnullstring then
Set objDoc = PdfInit
Set myPdf = ObjDoc.Initialize
'// Modification du champ URGENT
ret = myPdf.loadFromFile(pdfFilePath)
if ret <> 0 then
select case lcase(URGENT)
'// Si le Type_doc est "Avis d'échéance", on le passe la case URGENT à "Urgent"
case "Urgent"
session(myzedocbasename & "_noEdit") = session(myzedocbasename & "_noEdit") & " URGENT "
myPdf.SetCustomInformation "URGENT", "Urgent"
ret = myPdf.saveToFile(pdfFilePath)
end select
end if
'// Fermeture de l'objet PDF
set myPdf = nothing
set objDoc = nothing
end if |
Partager