4D View v16PV SET FORMAT |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
4D View v16
PV SET FORMAT
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| PV SET FORMAT ( zone ; format ; chaîne ) | ||||||||
| Paramètre | Type | Description | ||||||
| zone | Entier long |
|
Zone 4D View | |||||
| format | Entier long |
|
Numéro du format | |||||
| chaîne | Chaîne |
|
Chaîne du format | |||||
Voici une variante de l’exemple de la commande PV Ajouter format : le format est, dans ce cas, froidement remplacé. Le nouveau format n'est pas créé si l'ancien n'est pas présent.
ARRAY LONGINT($TabNumFormats;0) `Tableau des numéros de format(s)
ARRAY TEXT($TabChainesFormats;0) `Tableau des chaînes de format(s)
C_LONGINT($Position) `Position du format à modifier dans les tableaux de numéros et de noms
PV GET FORMAT LIST(Zone;$TabNumFormats;$TabChainesFormats) `Liste des formats disponibles
$Position:=Find in array($TabChainesFormats;"$###,##0.00")
If($Position#-1) `Format disponible pour la zone ?
PV SET FORMAT(Zone;$TabNumFormats{$Position};"### ##0,00 EUR") `Modification du format
End if
Produit : 4D View
Thème : PV Style
Numéro :
15881
Créé : 4D View 6.8
4D View - Langage ( 4D View v16)
Ajouter un commentaire