Skip to main content
Skip table of contents

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)

  1. 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)

  1. 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)

  1. 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

  1. Contient la fonction de redimensionnement et duplication d’une image

  • redimensionne.BAT

  1. 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 :

  1. En récupérant le type d’article (Porte, volet, télécommande etc…)

  1. 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

image-20260428-085206.png

JavaScript errors detected

Please note, these errors can depend on your browser setup.

If this problem persists, please contact our support.