PV Add format

4D View v16

PV Add format


PV Add format ( zone ; chaîne ) -> Résultat

Paramètre	Type	Description
zone	Entier long	Zone 4D View
chaîne	Chaîne	Chaîne du format
Résultat	Entier long	Numé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_TEXT($FormatAncien) //Chaîne du format à enlever pour la Zone

 C_TEXT($FormatNouveau) //Chaîne du format à ajouter pour la Zone

 

 ARRAY LONGINT($TabNumFormats;0) //Tableau des numéros de formats

 ARRAY TEXT($TabChainesFormats;0) //Tableau des chaînes de formats

 C_LONGINT($Position) //Position du format à enlever dans les tableaux de numéros et de noms

 

 $FormatAncien:="$###,##0.00"

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

 

 PV GET FORMAT LIST(Zone;$TabNumFormats;$TabChainesFormats) //Liste des formats disponibles

 

 $Position:=Find in array($TabChainesFormats;$FormatAncien)

 If($Position#-1) //Format à enlever présent dans la zone?

    PV REMOVE FORMAT(Zone;$TabNumFormats{$Position}) //Supprimons-le

 End if

 

  //Format à ajouter indisponible pour la zone ?

 If(Find in array($TabChainesFormats;$FormatNouveau)=-1)

    $Position:=Size of array($TabChainesFormats)+1 //Nous allons l'ajouter

    INSERT IN ARRAY($TabChainesFormats;$Position) //Redimensionnement...

    INSERT IN ARRAY($TabNumFormats;$Position) //...des tableaux

    $TabChainesFormats{$Position}:=$FormatNouveau  //Affectation du nouveau format

    $TabNumFormats{$Position}:=PV Add format(Zone;$FormatNouveau) //Affectation du numéro

 End if

Voir aussi

PV GET FORMAT LIST
PV REMOVE FORMAT