Agente
Hola, a ver si me puedes dar una pista... Tengo que hacer un agente que cree un campo en todos los documentos de una base de datos, este campo se tendrá que rellenar en funcuión del contenido de otro campo del mismo documento. Por ejemplo. El nuevo campo se llama idioma, y se tiene que rellenar con Español o Inglés según el País del documento. (Si es de USA o UK -> Inglés, Si es de Costa Rica o España -> Español. Por ejemplo).
¿Tú cómo lo harías? He intentado hacerlo con funciones simples y no hay manera...
Muchas gracias de antemano.
¿Tú cómo lo harías? He intentado hacerlo con funciones simples y no hay manera...
Muchas gracias de antemano.
1 respuesta
Respuesta de e6967712
1
Sub Initialize
Dim s As New NotesSession
Dim db As notesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Set db=s.currentdatabase
Set view = db.GetView("meu_personas")
Set doc = view.GetFirstDocument
While Not ( doc Is Nothing )
If Cstr(doc.OfficeCountry(0))="Spain" Then
doc.language="Spanish"
End If
Call doc.save(True,False)
Set doc = view.GetNextDocument(doc)
Wend
End Sub
Cuando recoges el valor de un campo debes coger EL PRIMER elemento, ya que siempre son de tipo Array. Normalmente se usan funciones de conversión de tipos como Cstr(), Cdbl(), Cdat(), CInt(),...
Para asignar valores a campos se puede poner normal, ejemplo
doc.campo = "hola"
doc.campo = doc.campo_aux(0)
doc.campo = doc.campo_aux
pero para comparar Strings puedes hacerlo como
doc.campo(0) = "Hola"
Dim s As New NotesSession
Dim db As notesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Set db=s.currentdatabase
Set view = db.GetView("meu_personas")
Set doc = view.GetFirstDocument
While Not ( doc Is Nothing )
If Cstr(doc.OfficeCountry(0))="Spain" Then
doc.language="Spanish"
End If
Call doc.save(True,False)
Set doc = view.GetNextDocument(doc)
Wend
End Sub
Cuando recoges el valor de un campo debes coger EL PRIMER elemento, ya que siempre son de tipo Array. Normalmente se usan funciones de conversión de tipos como Cstr(), Cdbl(), Cdat(), CInt(),...
Para asignar valores a campos se puede poner normal, ejemplo
doc.campo = "hola"
doc.campo = doc.campo_aux(0)
doc.campo = doc.campo_aux
pero para comparar Strings puedes hacerlo como
doc.campo(0) = "Hola"
