PV Ajouter format

4D - Documentation   Français   English   German   4D View, Commandes par thèmes   4D View, Liste des commandes   4D View, Constantes par thèmes   Retour   Précédent   Suivant

version 6.8


PV Ajouter format (zone; chaîne) Entier long

ParamètreTypeDescription
zoneEntier longZone 4D View
chaîneAlphaChaîne du format
RésultatEntier longNuméro du format

Description

La commande PV Ajouter format associe le format chaîne à la zone et retourne son identifiant unique.

Si chaîne existe déjà, la commande PV Ajouter format retourne son identifiant (ce numéro peut également être obtenu par la commande PV LIRE LISTE FORMATS).

Exemple

Nous souhaitons supprimer le format monétaire américain disponible pour notre zone, mais également nous assurer de la présence du format monétaire européen (Euros).

   C_ALPHA(255;$FormatAncien)  `Chaîne du format à enlever pour la Zone
   C_ALPHA(255;$FormatNouveau)  `Chaîne du format à ajouter pour la Zone

   TABLEAU ENTIER LONG($TabNumFormats;0)  `Tableau des numéros de formats
   TABLEAU ALPHA(255;$TabChainesFormats;0)  `Tableau des chaînes de formats
   C_ENTIER($Position)  `Position du format à enlever dans les tableaux de numéros et de noms

   $FormatAncien:="$###,##0.00"
   $FormatNouveau:="### ##0,00 EUR"

   PV LIRE LISTE FORMATS (Zone;$TabNumFormats;$TabChainesFormats)  `Liste des formats disponibles

   $Position:=Chercher dans tableau($TabChainesFormats;$FormatAncien)
   Si ($Position#-1)  `Format à enlever présent dans la zone?
      PV SUPPRIMER FORMAT (Zone;$TabNumFormats{$Position})  `Supprimons-le
   Fin de si 

      `Format à ajouter indisponible pour la zone ?
   Si (Chercher dans tableau($TabChainesFormats;$FormatNouveau)=-1)
      $Position:=Taille tableau($TabChainesFormats)+1  `Nous allons l'ajouter
      INSERER DANS TABLEAU($TabChainesFormats;$Position)  `Redimensionnement...
      INSERER DANS TABLEAU($TabNumFormats;$Position)  `...des tableaux
      $TabChainesFormats{$Position}:=$FormatNouveau  `Affectation du nouveau format
      $TabNumFormats{$Position}:=PV Ajouter format (Zone;$FormatNouveau)  `Affectation du numéro
   Fin de si 

Références

PV LIRE LISTE FORMATS, PV SUPPRIMER FORMAT.


4D - Documentation   Français   English   German   4D View, Commandes par thèmes   4D View, Liste des commandes   4D View, Constantes par thèmes   Retour   Précédent   Suivant