db.search sur serveur

[LSong]

bonjour

j'esseye de faire un dbSearch avec une formule
form = "wReply":"Notice":"Memo" & @Created < [25/11/2010]

la formule est généré à la volé
ca marche quand on le fait a la main et ca fait une erreur quand on le lance en planifier sur le serveur

quelqu'un a une idée ?
j'ai deja monter le niveau de sécurité au max (3)

la je ne vois pas ce que c'est a moins que tout simplement le Serveur refuse les db.search ??

[Michael DELIQUE]

salut

quelle erreur ?

[LSong]

Formula Error (form = "wReply":"Notice":"Memo" & @Created < [25/11/2010]) at line 44

[LSong]

c'est bon j'ai trouvé c'est le serveur qui est en date anglaise et le poste en date francaise

chic encore un truc a gérer

[LSong]

il y a un moyen de savoir comment est configuré le post ou l'on est ?

[Michael DELIQUE]

Oui, regarde ça

Code : Tout sélectionner

Public Function DateSystemFormat() As String
   
   'renvois le format de la date
   
   Dim international As NotesInternational
   Dim Separator As String
   
   On Error Goto ErreurHandle
   
   DateSystemFormat = ""
   If Session Is Nothing Then
      Set Session = New NotesSession
   End If
   
   Set international = Session.International
   Separator = international.DateSep
   
   If international.IsDateDMY Then
      DateSystemFormat  = "DD"+Separator+"MM"+Separator+"YYYY"
   Elseif international.IsDateMDY Then
      DateSystemFormat  = "MM"+Separator+"DD"+Separator+"YYYY"
   Elseif international.IsDateYMD Then
      DateSystemFormat  = "YYYY"+Separator+"MM"+Separator+"DD"
   Else
      Error 9999,"Error Format date !"
      Exit Function
   End If   
   
   Set international = Nothing   
   
   Exit Function
ErreurHandle:
   Msgbox "("+Structure_Log+" : "+Cstr(Getthreadinfo (1))+" Call by "+Cstr(Getthreadinfo(10))+")"+Chr(10)+"Erreur " + Str(Err) + " : "+Chr(10) + Cstr(Error)+". "+Chr(10)+"Ligne N° "+Cstr(Erl),16," ERREUR !"
   DateSystemFormat = ""
   Exit Function
End Function

[LSong]

j'ai fais ca :

Dim dt as new NotesDateTime ("30 janvier 1960")

if dt.DateOnly = "30/01/1960" then
etc ...

vu que j'avais besoin du dt pour le db.search ...

[d.bugger]

form = "wReply":"Notice":"Memo" & @Created < @Date(2010;11;25)