INTERNE - Redimensionner une image pour l'exploiter dans Crystal Report
L’objectif est de redimensionner des images afin qu’elles soient exploitables dans les rapports Crystal Report.
Paramétrages réalisés
Le redimensionnement et la duplication de l’image sont effectués lorsque les images sont créées : en validation de la ligne de commande. Pour ce faire, on exécute la requête ProRedImg. Elle se base sur le chemin de l’image qu’on lui passe en entrée. On dénombre 2 cas où sont créées des images :
Depuis l’outil ELCIA ON LINE (GCL GCL-Image)
Du configurateur Diapason (REB CdeGenImG)
La requête ProRedImg est donc appelée pour chacun de ces cas.
Le paramétrage est disponible dans Diapason Standard DEV.
Les Variables
VDL :
GenRefFic_ARC
VBP :
CheImg
CheImgRed
Constante globale :
RepRed : répertoire contenant les scripts de redimensionnement
PreImg : préfixe de l’image
SufImg : suffixe de l’image
RepGedStkWin – Répertoire GED STOCK Windows
RepGedWrkWin – Répertoire GED WORK Windows
RepGedWrkUni – Répertoire GED WORK Unix
FicBatRed – Nom du fichier de Redimensionnement
RedImgCry – Constante logique pour activer, ou non, le redimensionnent des images
Les requêtes
REB :
ProRedImg (nouvelle requête)
Pour la duplication et le redimensionnement de l’image (ajout du suffixe ‘_RED’ (ou autre, voir constante global SufImg et PreImg) pour la nouvelle image DANS LA GED)
CdeGenImGR (requête déjà existante)
Pour la récupération du chemin de l’image créée sur une ligne de commande en article MEN (voir commentaire M2)
MEF_NomFic (nouvelle requête)
Procédure pour mettre en forme le nouveau nom de l’image
GCL :
GCL-ImageR (requête déjà existante)
Appel de la REB ProRedImg
Tables de valeur
Pour la récupération des informations des images dans la GED :
ADGEDEnt
ADGEDDoc
Les fichiers de commande système
Le paramétrage fait appel à 2 fichiers de commande système (.BAT) :
scale.BAT
Contient la fonction de redimensionnement et duplication d’une image
redimensionne.BAT
Appel la fonction scale
Ces fichiers doivent se trouver dans le dossier C:\Editions\scripts.
Remarque :
Pour que le fichier ‘redimensionne.bat’ fonctionne il faut qu’il soit dans le répertoire ‘C:\Editions\scripts’ avec le fichier ‘scale.bat’.
Ces fichiers sont accessibles sur \\v2k16cr16\C\Editions\scripts.
Récapitulatif
2 points d’entrées sur les images redimensionnées :
GCL GCL-imageR (CREATION)
REB CdeGenImGR (CREATION)
1 requête de mise en forme de nom de variable :
REB MEF_NomFic
1 requête d’exécution de la commande système :
REB ProRedImg
Paramétrage pour récupérer le nouveau nom de l’image :
Rechercher dans la GED le nom de l’image avec son Préfixe ou Suffixe créé lors du redimensionnement (Voir annexe)
Paramétrage complémentaire
Dans le diapason Standard, une variable (constante global RedImgCry) venant activer, ou non, le paramétrage de redimensionnement des images.
Il est possible de mettre en place un redimensionnement sur mesure, plus précis :
En récupérant le type d’article (Porte, volet, télécommande etc…)
En renseignant la taille de redimensionnement par rapport à l’article en question
Annexe
Paramétrage pour appeler l’image qui a été redimensionné :
DEBUT-MODIF M7 COMMENTAIRE : "Recherche du nom de l image REDIMENSIONNER" VLO.CdeNumCom = SDL.CdeNumCom VLO.CdeNumLig = SDL.CdeNumLig VLO.PreImg = CGL.PreImg VLO.SufImg = CGL.SufImg VLO.ImgRedi = CLO."NON" POUR CHAQUE TV ADGEDEnt AVEC INDEX (I1) ADGEDEnt.ADGEDTen = CLO."GCDL" ET ADGEDEnt.ADGEDCl1 = VLO.CdeNumCom ET ADGEDEnt.ADGEDCl2 = VLO.CdeNumLig : VLO.CleVersionning = ADGEDEnt.ADGEDCleV TRACE= CLO."VLO.CleVersionning=" + " " + VLO.CleVersionning SI VLO.CleVersionning CONTIENT CLO."*" + VLO.SufImg + CLO."*" POUR CHAQUE TV ADGEDDoc AVEC INDEX (I6) ADGEDDoc.ADGEDCleFct = VLO.CleVersionning : VLO.NomImg = ADGEDDoc.ADGEDFic VLO.CheminAsso = ADGEDDoc.ADGEDAdr VLO.CleTri1 = ADGEDDoc.ADGEDCleTri1 VLO.GenRefFic = CGL.RepGedStkWin + VLO.CheminAsso + CGL.ANTISLASH + VLO.NomImg TRACE= CLO."VLO.GenRefFic=" + " " + VLO.GenRefFic SI VLO.CleTri1 = CLO."REDIMENSIONCRYSTAL" VLO.ImgRedi = CLO."OUI" QUITTER FIN_BLOC FIN_BLOC QUITTER FIN_BLOC FIN_BLOC TRACE= CLO."VLO.CleVersionning=" + " " + VLO.CleVersionning FIN-MODIF M7 |
