Dans mes développements je souhaite afficher une vue appelée vrepasdumois.
Cette vue est catégorisée avec un filtre sur le nom de la personne + l'année + le mois
Il y a ensuite les colonnes nom de la personne et la date du repas
Je souhaite afficher une autre vue, basée sur les mêmes informations, mais avec des filtres différents. J'appelle cette vue vrepasparjour.
Je catégorise en fonction de l'année, puis du mois. puis de la date.
Ensuite j'ai les colonnes nombre de repas par jour et nom de l'agent.
Je fais appel à ces deux vues distinctes dans deux masques différents.
Je voudrais avoir la vue vrepasdumois dans le masque 1, et la vue vrepasparjour dans le masque 2.
Mais concrètement, j'ai la même vue quelque soit le masque.
Première partie du code : le calcul des filtres de date (date complète, année, mois, jour)
- Code : Tout sélectionner
filtre_year = Cstr(Year(Cvdate(wDate) + i))
If Month(Cvdate(wDate) + i) <= 9 Then
filtre_month = "0" + Cstr(Month(Cvdate(wDate) + i))
Else
filtre_month = Cstr(Month(Cvdate(wDate) + i))
End If
If Day(Cvdate(wDate) + i) <= 9 Then
filtre_day = "0" + Cstr(Day(Cvdate(wDate) + i))
Else
filtre_day = Cstr(Day(Cvdate(wDate) + i))
End If
chaine_filtre = str_agent + "@" + filtre_year + "-" + filtre_month
filtre_date = filtre_day + "-" + filtre_month + "-" + filtre_year
L'affectation des champs dans la vue vrepasdumois
- Code : Tout sélectionner
'sur vrepasdumois
Set ndoc = New NotesDocument(mBase)
Call ndoc.AppendItemValue("Form", "vrepasdumois")
Call ndoc.AppendItemValue("filtre", chaine_filtre)
Call ndoc.AppendItemValue("selec_date", filtre_date)
Call ndoc.AppendItemValue("selec_year", filtre_year)
Call ndoc.AppendItemValue("selec_month", filtre_month)
Call ndoc.AppendItemValue("nomagentrepas", doc.GetItemValue("NOM_AGENT"))
Call ndoc.AppendItemValue("daterepas", Cvdate(wDate) + i)
Call ndoc.Save(True,False)
Faudrait il que je procède autrement ?
Comme ceci ou il y aurait un autre moyen ?
- Code : Tout sélectionner
'sur vrepasdumois
Set ndoc = New NotesDocument(mBase)
Call ndoc.AppendItemValue("Form", "vrepasdumois")
Call ndoc.AppendItemValue("filtre", chaine_filtre)
Call ndoc.AppendItemValue("nomagentrepas", doc.GetItemValue("NOM_AGENT"))
Call ndoc.AppendItemValue("daterepas", Cvdate(wDate) + i)
Call ndoc.Save(True,False)
'sur vrepasjour
[code]
'sur vrepasdumois
Set ndoc = New NotesDocument(mBase)
Call ndoc.AppendItemValue("Form", "vrepasjour")
Call ndoc.AppendItemValue("selec_date", filtre_date)
Call ndoc.AppendItemValue("selec_year", filtre_year)
Call ndoc.AppendItemValue("selec_month", filtre_month)
Call ndoc.AppendItemValue("nomagentrepas", doc.GetItemValue("NOM_AGENT"))
Call ndoc.AppendItemValue("daterepas", Cvdate(wDate) + i)
Call ndoc.Save(True,False)
D'avance, merci !
Question subsidiaire,
J'ai ma vue intégrée avec tous les repas du mois dans le masque.
Est-ce que c'est possible d'avoir une page par jour (c'est à dire après les repas du 5 novembre, avoir les repas du 6 novembre sur la page suivante et non sur la même page)
