Dans la suite du tableau en JavaScript voici une version en LotusScript sous le client Lotus Notes.
Synopsis de la base.
Synopsis de base de documents Lotus Notes - créé à 22:22:38 le 22/08/2006
Informations de masque
Nom : ContactAC
Dernière modification : 22/08/2006 22:10:51
Commentaire : [Sans]
Type : Document
Inclure dans le menu Création : Oui
Inclure dans Recherche par masque : Oui
Masque par défaut : Oui
Actualiser automatiquement les champs : Non
Envoi de documents à l'enregistrement : Non
Enregistrement du masque dans documents : Non
Récupérer contenus de champ existants : Non
Enregistrer mises à jour comme réponses : Non
Convertir versions antérieures en réponses : Non
Activer les objets pendant la création : Non
Activer les objets pendant l'édition : Non
Activer les objets pendant la lecture : Non
Clés de chiffrement de document : [Sans]
Liste d'accès aux docs créés avec ce masque : Tous les utilisateurs
Liste d'accès à ce masque pour création : Tous les utilisateurs
Sous-composants :
Champ : fld_Temp
Type de données : Texte
Message d'aide : [Sans]
Type de champ : Modifiable
Signature des sections et messages : Non
Chiffrement : Désactivé(e)
Accès Editeur nécessaire pour mise à jour : Non
Formule de valeur par défaut : " "
En script : Non
Champ : fld_Nom
Type de données : Texte
Séparateurs de liste en entrée : Virgule, Point-virgule, Retour ligne
Séparateur de liste à l'affichage : Point-virgule
Message d'aide : [Sans]
Type de champ : Modifiable
Signature des sections et messages : Non
Chiffrement : Désactivé(e)
Accès Editeur nécessaire pour mise à jour : Non
Formule de valeur par défaut : "Maillard Stéphane" : "La voisine d'en face";
En script : Non
Champ : fld_Ville
Type de données : Texte
Séparateurs de liste en entrée : Virgule, Point-virgule, Retour ligne
Séparateur de liste à l'affichage : Point-virgule
Message d'aide : [Sans]
Type de champ : Modifiable
Signature des sections et messages : Non
Chiffrement : Désactivé(e)
Accès Editeur nécessaire pour mise à jour : Non
Formule de valeur par défaut : "Saint Guinoux" : "Saint Malo";
En script : Non
Champ : fld_Pays
Type de données : Texte
Séparateurs de liste en entrée : Virgule, Point-virgule, Retour ligne
Séparateur de liste à l'affichage : Point-virgule
Message d'aide : [Sans]
Type de champ : Modifiable
Signature des sections et messages : Non
Chiffrement : Désactivé(e)
Accès Editeur nécessaire pour mise à jour : Non
Formule de valeur par défaut : "Bretagne" : "France";
En script : Non
Champ : fld_Seul
Type de données : Texte
Séparateurs de liste en entrée : Virgule, Point-virgule, Retour ligne
Séparateur de liste à l'affichage : Point-virgule
Message d'aide : [Sans]
Type de champ : Modifiable
Signature des sections et messages : Non
Chiffrement : Désactivé(e)
Accès Editeur nécessaire pour mise à jour : Non
Formule de valeur par défaut : @Unique : @Unique;
En script : Non
Champ : fld_Liste
Type de données : Texte
Séparateurs de liste en entrée : Virgule, Point-virgule, Retour ligne
Séparateur de liste à l'affichage : Retour ligne
Message d'aide : [Sans]
Type de champ : Calculé
Signature des sections et messages : Non
Chiffrement : Désactivé(e)
Accès Editeur nécessaire pour mise à jour : Non
Formule : @If(@Trim(fld_Nom : fld_Ville : fld_Pays : fld_Seul) = ""; @Return(""); "");@Left(fld_Nom + @Explode(@Repeat(" ."; @Elements(fld_Nom)); "."); 30) + " " + @Left(fld_Ville + @Explode(@Repeat(" ."; @Elements(fld_Ville)); "."); 15) + " " + @Left(fld_Pays + @Explode(@Repeat(" ."; @Elements(fld_Ville)); "."); 10) + " " + @RightBack(@Explode(@Repeat(". "; @Elements(fld_Seul)); ".") + fld_Seul; 20);
En script : Non
Zone de présentation :
Afficher bordure : Oui
Style tridimensionnel : Non
Afficher grille : Non
Grille magnétique : Oui
Taille de la grille : 72
Zone sensible
Type : Bouton
Légende : Ajouter
Formule : Res1 := @Trim(@ProperCase(fld_EntreeNom));Res2 := @Trim(@ProperCase(fld_EntreeVille));Res3 := @Trim(@UpperCase(fld_EntreePays));@If(Res1 = "" | Res2 = "" | Res3 = ""; @Return(""); "");FIELD fld_Nom := @Trim(fld_Nom : Res1);FIELD fld_Ville := @Trim(fld_Ville : Res2);FIELD fld_Pays := @Trim(fld_Pays : Res3);FIELD fld_Seul := @Trim(fld_Seul : @Unique);@Command([ViewRefreshFields]);"";
Champ : fld_EntreeNom
Type de données : Texte
Message d'aide : [Sans]
Type de champ : Modifiable
Signature des sections et messages : Non
Chiffrement : Désactivé(e)
Accès Editeur nécessaire pour mise à jour : Non
Formule de conversion d'entrée : @Trim(@Left(fld_ListeSelection; 30));
En script : Non
Champ : fld_EntreePays
Type de données : Texte
Message d'aide : [Sans]
Type de champ : Modifiable
Signature des sections et messages : Non
Chiffrement : Désactivé(e)
Accès Editeur nécessaire pour mise à jour : Non
Formule de conversion d'entrée : @Trim(@Middle(fld_ListeSelection; 46; 10));
En script : Non
Champ : fld_EntreeVille
Type de données : Texte
Message d'aide : [Sans]
Type de champ : Modifiable
Signature des sections et messages : Non
Chiffrement : Désactivé(e)
Accès Editeur nécessaire pour mise à jour : Non
Formule de conversion d'entrée : @Trim(@Middle(fld_ListeSelection; 31; 15));
En script : Non
Zone sensible
Type : Bouton
Légende : Mise à jour
Formule : Cle := @RightBack(fld_ListeSelection; " ");@If(Cle = ""; @Return(""); "");Res1 := @Trim(@ProperCase(fld_EntreeNom));Res2 := @Trim(@ProperCase(fld_EntreeVille));Res3 := @Trim(@UpperCase(fld_EntreePays));@If(Res1 = "" | Res2 = "" | Res3 = ""; @Return(""); "");Champs := @Member(Cle; fld_Seul);Element := @Elements(fld_Seul);NouvelleListe1 := @If(Champs = 1 & Element = 1; Res1; Champs = 1; @Subset(fld_Nom; -(Element - 1)); @Subset(fld_Nom; Champs - 1));NouvelleListe2 := @If(Champs = 1 & Element = 1; NouvelleListe1; Champs = 1; Res1 : NouvelleListe1; Champs = Element; @Subset(fld_Nom; Element - 1) : Res1; NouvelleListe1 : Res1 : @Subset(fld_Nom; Champs - Element));FIELD fld_Nom := NouvelleListe2;NouvelleListe3 := @If(Champs = 1 & Element = 1; Res2; Champs = 1; @Subset(fld_Ville; -(Element - 1)); @Subset(fld_Ville; Champs - 1));NouvelleListe4 := @If(Champs = 1 & Element = 1; NouvelleListe3; Champs = 1; Res2 : NouvelleListe3; Champs = Element; @Subset(fld_Ville; Element - 1) : Res2; NouvelleListe3 : Res2 : @Subset(fld_Ville; Champs - Element));FIELD fld_Ville := NouvelleListe4;NouvelleListe5 := @If(Champs = 1 & Element = 1; Res3; Champs = 1; @Subset(fld_Pays; -(Element - 1)); @Subset(fld_Pays; Champs - 1));NouvelleListe6 := @If(Champs = 1 & Element = 1; NouvelleListe5; Champs = 1; Res3 : NouvelleListe5; Champs = Element; @Subset(fld_Pays; Element - 1) : Res3; NouvelleListe5 : Res3 : @Subset(fld_Pays; Champs - Element));FIELD fld_Pays := NouvelleListe6;FIELD fld_ListeSelection := "";@Command([ViewRefreshFields]);"";
Zone sensible
Type : Bouton
Légende : Supprimer
Formule : Cle := @RightBack(fld_ListeSelection; " ");@If(Cle = ""; @Return(""); "");Champs := @Member(Cle; fld_Seul);Element := @Elements(fld_Seul);FIELD fld_Seul := @Trim(@Replace(fld_Seul; Cle; ""));NouvelleListe1 := @If(Champs = 1 & Element = 1; ""; Champs = 1; @Subset(fld_Nom; -(Element - 1)); @Subset(fld_Nom; Champs - 1));NouvelleListe2 := @If(Champs = 1; NouvelleListe1; Champs = Element; @Subset(fld_Nom; Element - 1); NouvelleListe1 : @Subset(fld_Nom; Champs - Element));FIELD fld_Nom := NouvelleListe2;NouvelleListe3 := @If(Champs = 1 & Element = 1; ""; Champs = 1; @Subset(fld_Ville; -(Element - 1)); @Subset(fld_Ville; Champs - 1));NouvelleListe4 := @If(Champs = 1; NouvelleListe3; Champs = Element; @Subset(fld_Ville; Element - 1); NouvelleListe3 : @Subset(fld_Ville; Champs - Element));FIELD fld_Ville := NouvelleListe4;NouvelleListe5 := @If(Champs = 1 & Element = 1; ""; Champs = 1; @Subset(fld_Pays; -(Element - 1)); @Subset(fld_Pays; Champs - 1));NouvelleListe6 := @If(Champs = 1; NouvelleListe5; Champs = Element; @Subset(fld_Pays; Element - 1); NouvelleListe5 : @Subset(fld_Pays; Champs - Element));FIELD fld_Pays := NouvelleListe6;FIELD fld_ListeSelection := "";@Command([ViewRefreshFields]);"";
Champ : fld_ListeSelection
Type de données : Mots-clés
Message d'aide : [Sans]
Type de champ : Modifiable
Interface utilisateur mot-clé : Standard
Autoriser valeurs non répertoriées : Non
Formule de mots-clés : fld_Liste
Signature des sections et messages : Non
Chiffrement : Désactivé(e)
Accès Editeur nécessaire pour mise à jour : Non
En script : Oui
Champ : fld_Selection
Type de données : Nombre
Format de nombre : Libre
Pourcentage (valeur * 100)% : Non
Parenthèses pour nombres négatifs : Non
Ponctué au millier : Non
Séparateurs de liste en entrée : Virgule, Point-virgule
Séparateur de liste à l'affichage : Point-virgule
Message d'aide : [Sans]
Type de champ : Calculé à l'affichage
Signature des sections et messages : Non
Chiffrement : Désactivé(e)
Accès Editeur nécessaire pour mise à jour : Non
Formule : fld_Selection
En script : Non
Code JavaScript et HTML :
[Aucun]
Code LotusScript :
(Champ) fld_ListeSelection
Sub Exiting(Source As Field)
Dim Ws As New NotesUIWorkspace
Dim UiDoc As NotesUiDocument
Set UiDoc = Ws.CurrentDocument
NombreElement = Ubound(UiDoc.Document.fld_ListeSelection)
Redim iSelection(NombreElement) As Integer
End Sub
[Aucun]
Informations de vue
Nom : All
Dernière modification : 22/08/2006 20:00:17
Commentaire : [Sans]
Vue par défaut : Oui
Réponses non hiérarchisées : Désactivé(e)
Etat à l'ouverture de la vue : Détaillées
Marqueurs de documents non lus : Aucun
Fréquence d'actualisation : Automatique
Suppression de l'index : Jamais
Liste d'accès à la vue : Tous les utilisateurs
Formules relatives à l'heure : Non
Formule de sélection : SELECT @All
Sous-composants :
Numéro de la colonne : 1
Titre de la colonne : Numéro de formulaire
Formule de la colonne : @DocNumber
Largeur de colonne : 15 caractères
Séparateur de liste :
Masqué : Non
Réponses seulement : Non
Icône : Non
Format de nombre : Libre
Pourcentage (valeur * 100)% : Non
Parenthèses pour nombres négatifs : Non
Ponctué au millier : Non
Format horaire : 22/08/2006 22:22:38
Tri : Non
Justification : Gauche
Total : Aucun
Masquer valeurs détaillées : Non
Code JavaScript et HTML :
[Aucun]
Code LotusScript :
[Aucun]
Le code est dans le synopsis et dans la base, presque tout le code est en @Formula. J'ai trouvé ça dans une vieille base, cela date d'environ 2002/2003.
