Domino 9 und frühere Versionen > Entwicklung

Hilfe bei Lotus Script

<< < (3/5) > >>

Performance:
@tuelb

verstehe dein Problem nicht ganz...
was willst du eigentlich erreichen ?
ein Feld im backend mit einem Feld aus dem Frontend überscheriben ?
wo baust du deinen code ein ?


cu

tuelb:
@performance
im postopen bereich,

führe eine Funktion ping aus und je nach Rückgabewert soll in das feld on_offline der wert "online" oder offline" geschrieben werden. Oder geht das gar nicht?
Also im Frontend hat es geklappt aber das sah so blöd aus, da man sehen konnte, wie sich die Ansicht auf "bearbeiten" änderte,
dann der Feldwert eingetragen wurde und wieder auf Ansicht gewechselt wurde. Dachte, dass kann man im Hintergrund laufen lassen.....

Performance:
das geht schon - nur wann machst du den Ping ? auch im Postopen ?
warum willst du dann
"" doc.on_offline = uidoc.FieldGetText( "ONLINE" )  ""
machen ?

wenn im Feld online das ganze schon gespeichert ist, warum soll es dann nach on_offline geschrieben werden ?


cu

tuelb:
Vielleicht habe ich da die Syntax falsch verstanden:

doc.Feld = uidoc.FieldGetText( "ipaddr1" )

Ich dachte doc.FELD-> da muss ich meinen Feldnamen ersetzen also doc.on_offline
und
uidoc.FieldGetText( "ONLINE" ) und da, dachte ich, kommt der Wert rein, den ich dort eintragen will

Sub Postopen(Source As Notesuidocument)
   
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim item As  NotesItem
   
   Dim IP As String
   Dim Ping As New Ping
   
   Set uidoc = workspace.CurrentDocument
'   Set doc=uidoc 'funktioniert nicht
   Set doc = uidoc.Document
   
   doc.on_offline = uidoc.FieldGetText( "ONLINE" )
   
   Msgbox 1
   
   IP = Cstr(doc.ipaddr1(0))
   If (Ping.Ping ( IP )=True) Then  doc.on_offline = uidoc.FieldGetText( "ONLINE" )  Else  doc.on_offline = uidoc.FieldGetText( "OFFLINE" )
   
   Call doc.save(True,False)
   
   
End Sub


Wie definiere ich denn den Wert, der in das Feld soll????

Performance:
im uidoc kannst du die Felder im edit mode setzen

uidoc.editmode = true
If (Ping.Ping ( IP )=True) Then  
uidoc.FieldSetText("on_offline","ONLINE" )
Else  
uidoc.FieldSetText("on_offline","OFFLINE" )
end if

uidoc.refresh
 - oder ein save machen
uidoc.save



cu

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete