FTSearch en Lotus Notes

---------------------------------------------------
(Declarations)
---------------------------------------------------
Dim db As notesdatabase
---------------------------------------------------
Initialize
---------------------------------------------------
Dim doc As notesdocument
Dim col As NotesDocumentCollection
Dim session As New notessession
Set doc = session.DocumentContext
Set db = session.currentdatabase
Call buscaformula(doc)
''''Set col = db.Search(formulabusqueda, Nothing, 0)
Set col = db.FTSearch(formulabusqueda,0)
Print "<br>--FORMULA: " & formulabusqueda & "--"
Print "<br>--CRITERIO: " & criteriobusqueda & "--"
---------------------------------------------------
buscaformula
---------------------------------------------------
Sub buscaformula(doc As notesdocument)
''''formulabusqueda = {(Form = "F_nombre") }
formulabusqueda = {([Form] = "F_nombre") }
situacion=doc.situacion
todos=Evaluate({@ismember("Todas";situacion)},doc)
todosv=Evaluate({@ismember("";situacion)},doc)
If (todos(0)=1 Or todosv(0)=1) Then
criteriobusqueda = criteriobusqueda & {<br>Y (Situación = "Todas") }
Else
For xm=0 To Ubound(situacion)
If (xm=0) Then
''''formulabusqueda = formulabusqueda & { & (}
formulabusqueda = formulabusqueda & {AND (}
criteriobusqueda = criteriobusqueda & {<br>Y (Situación = }
End If
''''formulabusqueda = formulabusqueda & { estado="} & doc.situacion(xm) & {" | }
formulabusqueda = formulabusqueda & {[estado] = "} & doc.situacion(xm) & {" OR }
criteriobusqueda = criteriobusqueda & {"} & doc.situacion(xm) & {" O }
Next
pose%=Len(formulabusqueda)
''''formulabusqueda=Mid(formulabusqueda,1, pose%-2)
formulabusqueda=Mid(formulabusqueda,1, pose%-3)
formulabusqueda = formulabusqueda & ")"
posc%=Len(criteriobusqueda)
criteriobusqueda=Mid(criteriobusqueda,1, posc%-2)
criteriobusqueda = criteriobusqueda & ")"
End If
---------------------------------------------------
---------------------------------------------------