Comment faire un tableau en LotusScript Version 0.1
Bonjour,
Dans la suite du tableau en JavaScript voici une version en LotusScript sous le client Lotus Notes.
Synopsis de la base.
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.
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.