Das Notes Forum

Domino 9 und frühere Versionen => ND7: Entwicklung => Thema gestartet von: zyrak2003 am 11.01.08 - 14:49:00

Titel: Wo ist bloß der Fehler?
Beitrag von: zyrak2003 am 11.01.08 - 14:49:00
Ich habe folgendes Script. Funktioniert auch alles soweit, aber am Ende soll das Dokument (nach dem Speichern) geschlossen werden. Passiert aber nicht:

Sub Click(Source As Button)
   Dim s As New Notessession
   Dim db As NotesDatabase
   Dim dbAdr As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument
   Dim docAdr As NotesDocument
   
   Dim ws As New NotesUIWorkspace
   Set doc=ws.CurrentDocument.Document
   
   Dim ID As String
   Dim servername As String
   Dim dbname As String
   
   Servername="xxx"
   DBname="xxx.nsf"
      
   Set dbAdr=s.GetDatabase(Servername, DBname)
   
   If Not dbAdr.IsOpen Then
      Msgbox "Die Datenbank konnte nicht geöffnet werden." & Chr(13) & "Der Vorgang wird abgebrochen!"
      Exit Sub
   End If
   
   Set view=dbadr.GetView("LUDocID")
   id=doc.AdrDocID(0)
   Set docAdr=view.GetDocumentByKey(ID)
   docAdr.FirstName=doc.FirstName(0)
   docAdr.LastName=doc.LastName(0)
   docAdr.StreetAddress=doc.StreetAddress(0)
   docAdr.Anrede=doc.Anrede(0)
   docAdr.Zip=doc.Zip(0)
   docAdr.City=doc.City(0)
   docAdr.Country=doc.Country(0)
   docAdr.save True, False
   doc.Save True, False
   doc.close
   
End Sub

Danke für einen Tipp!
Titel: Re: Wo ist bloß der Fehler?
Beitrag von: ZaLudtske am 11.01.08 - 14:51:59
Hallo,

für die notesdocument-Klasse gibt es keine Methode close.

Du mußt entweder das Document mit
Code
set doc = nothing


oder

Code
delete doc


schliessen.


mfg

rainer
Titel: Re: Wo ist bloß der Fehler?
Beitrag von: m3 am 11.01.08 - 14:57:47
NotesDocument != NotesUIDocument

"Schließen" und damit die Methode "Close" gibts nur beim UIDocument (UserInterface...)!

Titel: Re: Wo ist bloß der Fehler?
Beitrag von: pete_bla am 11.01.08 - 15:22:05
Hi,

genau!

und ausserdem würde ich dir 2 dinge vorschlagen:
1. verwende noch in Opitons:
Code
Option Declare 
dann bekommst du bereits im Desinger eine Fehlermeldung wo es nicht passt.

2. ein Errorhandling:
gleich am Anfang:
Code
on error goto Hell
und am Ende, noch vor end sub
Code
Hell:
      if Not err() = 0 then
	Messagebox "Fehler #" & Cstr(err()) &  " " & Error() & " in Zeile: " & cstr(erl())
	Exit sub  ' oder: exit function ' oder resume
     End if

Gruss, Pete(r)
Titel: Re: Wo ist bloß der Fehler?
Beitrag von: koehlerbv am 11.01.08 - 15:27:59
Abgesehen davon ist LotusScript bzw. Notes sehr gnädig, was "garbage collection" angeht: Ein "Close" eines Backend-Dokuments ist vollkommen unnötig, da es mit der Terminierung des Moduls sowieso im Orkus verschwindet.

Bernhard
Titel: Re: Wo ist bloß der Fehler?
Beitrag von: flaite am 11.01.08 - 16:33:05
Zitat von: koehlerbv am 11.01.08 - 15:27:59
Abgesehen davon ist LotusScript bzw. Notes sehr gnädig, was "garbage collection" angeht
Meine profesorale Viertelstunde vergib mir heute.
Also das ist ziemlich binär:
entweder hat eine Programmiersprache einen automatischen Garbage Collector Mechanismus wie z.B. Lotus Script, Ruby, Basic oder Java oder eben nicht (wie C). Der Begriff der Gnade ist in diesem Zusammenhang irreführend. Wenn es close() geben würde, könnte man es als Objekt-Lebenszyklus Methode kategorisieren; in keinem Fall als ist es ein Destruktor zur Speicherfreigabe.

Titel: Re: Wo ist bloß der Fehler?
Beitrag von: koehlerbv am 11.01.08 - 17:06:41
Natürlich ist Dir vergeben, Axel, und natürlich hast Du Recht. Ich wollte es nur nicht kompliziert machen für einen offensichtlich blutigen Anfänger  ;) Dass ein (nicht vorhandenes) Close oder Set to Nothing auch keinen Platz im Raum für Aufschnitt und Margarine (RAM) freigibt, habe ich mir schon verkniffen.

Bernhard
Titel: Re: Wo ist bloß der Fehler?
Beitrag von: ata am 11.01.08 - 18:04:11
... was soll denn passieren, du speicherst dein doc und nicht das docAdr
Zitat
doc.Save True, False

Toni
Titel: Re: Wo ist bloß der Fehler?
Beitrag von: pete_bla am 11.01.08 - 21:23:53
Hi,

@All: ich glaub es war wohl so gemeint, dass zyrak2003 das Dokument des Anwenders, also das NotesUIDocument schliessen wollte ....  ::)
Nicht irgendwelche NotesDocument recyclen oder Speicherbelegung freigeben....

@zyrak2003:
Ergänze mal die fetten Teile in Deinem Script:
und lösche die durchgestrichenen.

Zitat von: zyrak2003 am 11.01.08 - 14:49:00
Ich habe folgendes Script. Funktioniert auch alles soweit, aber am Ende soll das Dokument (nach dem Speichern) geschlossen werden.

'...
   Dim UIdoc As notesUIdocument
   Dim doc As NotesDocument
   Dim docAdr As NotesDocument
   
   Dim ws As New NotesUIWorkspace
   Set UIdoc=ws.CurrentDocument
   Set doc=ws.CurrentDocument.Document
   
'...   
   docAdr.save True, False
   ' doc.Save True, False
        call UIDoc.Save()
   ' doc.close
        call UIDoc.close()
   
End Sub


Gruss, Pete(r)
Titel: Re: Wo ist bloß der Fehler?
Beitrag von: koehlerbv am 11.01.08 - 21:45:59
Toni: Eine Zeile darüber steht docAdr.Save

Pete: Das ist jetzt Kaffeesatzleserei, und was er wirklich will, soll uns der namenlose "zyrak2003" schön selber erklären.

Bernhard
Titel: Re: Wo ist bloß der Fehler?
Beitrag von: ata am 12.01.08 - 10:09:23
*uuppps* - habe ich in meiner Eile übersehen...

Toni
Titel: Re: Wo ist bloß der Fehler?
Beitrag von: pete_bla am 14.01.08 - 09:08:23
Zitat von: koehlerbv am 11.01.08 - 21:45:59
Pete: Das ist jetzt Kaffeesatzleserei, und was er wirklich will, soll uns der namenlose "zyrak2003" schön selber erklären.

stimmt - aber so weit bin ich auch schon wieder...
.... wer hat meine Tasse schon wieder leergemacht?

Titel: Re: Wo ist bloß der Fehler?
Beitrag von: zyrak2003 am 14.02.08 - 18:47:39
Vielen Dank für die Ratschläge. Da ich wirklich blutiger Anfänger auf dem Gebiet Lotus Script bin (vielleicht sogar noch weniger als Anfänger) hab ich mich für ein Seminar angemeldet. Danach werd ich einen weiteren Anlaufversuch unternehmen oder vielleicht selbst die Lösung heraus arbeiten.   :)
Titel: Re: Wo ist bloß der Fehler?
Beitrag von: Axel am 15.02.08 - 09:11:37
Zitat von: zyrak2003 am 11.01.08 - 14:49:00
Ich habe folgendes Script. Funktioniert auch alles soweit, aber am Ende soll das Dokument (nach dem Speichern) geschlossen werden. Passiert aber nicht:

So ganz verstanden habe ich noch nicht was du überhaupt machen willst.

Welches Dokument soll den geschlossen werden? Erklär mal ein bisschen genauer.

Axel