4D v20.1
Current form name
- 4D - Langage
-
- Formulaires
-
- Current form name
- Form
- FORM Convert to dynamic
- FORM FIRST PAGE
- FORM Get color scheme
- FORM Get current page
- FORM GET ENTRY ORDER
- FORM GET HORIZONTAL RESIZING
- FORM GET OBJECTS
- FORM GET PROPERTIES
- FORM GET VERTICAL RESIZING
- FORM GOTO PAGE
- FORM LAST PAGE
- FORM LOADMod
- FORM NEXT PAGE
- FORM PREVIOUS PAGE
- FORM SCREENSHOT
- FORM SET ENTRY ORDER
- FORM SET HORIZONTAL RESIZING
- FORM SET INPUT
- FORM SET OUTPUT
- FORM SET SIZE
- FORM SET VERTICAL RESIZING
- FORM UNLOAD
Current form name
| Current form name -> Résultat | ||||||||
| Paramètre | Type | Description | ||||||
| Résultat | Texte |
|
Nom du formulaire projet courant ou du formulaire table courant dans le process | |||||
La commande Current form name retourne le nom du formulaire courant défini pour le process. Le formulaire courant peut être un formulaire projet ou un formulaire table.
Par défaut, si vous n’avez pas appelé la commande FORM LOAD dans le process courant, le formulaire courant est le formulaire en cours d’affichage ou d’impression. Si vous avez appelé la commande FORM LOAD dans le process, le formulaire courant reste celui défini par cette commande jusqu’à l’appel de FORM UNLOAD (ou CLOSE PRINTING JOB).
La commande retourne :
- le nom du formulaire s'il a été défini dans l'éditeur de formulaires de 4D, ou
- le nom du fichier sans extension si le formulaire a été créé à partir d'un fichier .json, ou
- la valeur de l'attribut "name" si le formulaire a été créé à partir d'un objet 4D, ou
- une chaîne vide s’il n’y a pas de formulaire courant défini pour le process.
Dans un formulaire de saisie, vous placez le code suivant dans un bouton :
C_TEXT($FormName)
$fen:=Open form window([Adhérents];"Entrée";Plain form window)
DIALOG([Adhérents];"Entrée")
$FormName:=Current form name
// $FormName = "Entrée"
FORM LOAD([Adhérents];"Drag")
$FormName:=Current form name
// $FormName = "Drag"
//...Vous souhaitez obtenir le formulaire courant si c’est un formulaire projet :
$PointerTable:=Current form table
If(Nil($PointerTable)) //il s’agit d’un formulaire projet
$FormName:=Current form name
... // traitement
End if
Produit : 4D
Thème : Formulaires
Numéro :
1298
Créé : 4D v14
4D - Langage ( 4D v20)
4D - Langage ( 4D v20.1)
