Dans un masque, j'ai inséré une vue intégrée qui compte n enregistrements.
Je veux récupérer cette valeur n dans un champ Nombre de type calculé donc. Que j'appelle dans mon masque TOTAL_REPAS
J'ai programmé l'événement suivant
- Code : Tout sélectionner
Sub Queryrecalc(Source As Notesuidocument, Continue As Variant)
Dim session As New NotesSession
Dim vuecompt As NotesView
Dim basecompt As NotesDatabase
Dim compteur As Variant
Dim nomagent As Variant
Set basecompt = session.CurrentDatabase
Set vuecompt = basecompt.GetView("vrepasparagent")
compteur = 0
Set doc = vuecompt.getFirstdocument()
nomagent = doc.GetItemValue("nomagentrepas")
Do While (Not doc Is Nothing And nomagent(0) <> "")
compteur = compteur + 1
Set doc = vuecompt.GetNextDocument(doc)
nomagent = doc.GetItemValue("nomagentrepas")
Loop
'enregistrer la valeur compteur dans variable Total_Repas
Msgbox "compteur = " &compteur
End Sub
Dans le msgbox, j'ai bien la bonne valeur qui m'est remontée.
Je veux que cette valeur soit stockée dans le champ du masque TOTAL_REPAS.
chaine = Cstr(compteur)
Call source.FieldSetText( "TOTAL_REPAS", chaine)
Avec ces deux lignes intégrées à la fonction, je vois apparaître le nombre de lignes de ma vue intégrée.
Mais comment faire pour que la valeur de TOTAL_REPAS dans une formule du type, dans un champ calculé PRIX_TOTAL (PRIX_UNITAIRE est un champ calculé, dont j'ai la valeur) soit prise en compte ?
@If (@IsNumber(@TextToNumber(PRIX_UNITAIRE)); @TextToNumber(PRIX_UNITAIRE) * TOTAL_REPAS;0)
Par exemple, si l'événement Lotus Script me retourne 4 dans total_repas, et que le prix unitaire soit égal à 2.50 comment faire pour avoir dans PRIX_TOTAL la valeur de 10 ?
Dans le même ordre d'idée, j'aimerais pouvoir supprimer et/ou ajouter des enregistrements de la vue intégrée.
Pour la suppression d'enregistrements, pas de problèmes. Mais comment faire pour que ce soit répercuté dans TOTAL_REPAS ? Par les événements en Lotus Script Query recalc ou Post recalc ?
Comment faire pour ajouter des enregistrements ?
D'avance merci !
Je débute en Lotus Designer / Langage de Formules et Lotus Script et je bute sur ça
