Rückgabewert einer Funktion

[7Stein]

Wenn ich eine Funktion habe, die mir ein Document als Rückgabewert geben soll, als

Code

Public Function ProcessPositions(Doc, detaildoc)As NotesDocument
.........
End Function

Wie kann ich dann das Rückgabedokument aufrufen?
Mit

Code

Dim ResultDoc As NotesDocument

   ProcessPositions = ResultDoc

funktioniert es nicht.
Aber wenn eine Funktion einen Integer oder einen Varianttyp zurückgeben soll, mche ich das immer so, und das funktioniert auch ohne Probleme.

habe ich da irgendwo einen Fehler oder kann Lotus kein Dokument zurückgeben?

[Onkel ToM]

Gehts denn mit ResultDoc = ProcessPositions(...)

Bye
Onkel ToM

[7Stein]

Nein, aber mit einem set davor macht er das zwar,
aber ich denke dann ist der Funktionsaufruf rekursiv und Lotus hängt sich weg.

[Onkel ToM]

Nö, das liegt dann an den Punkten zwischen den Klammern

uw

Onkel ToM

[7Stein]

ja uns was muss ich dahin schreiben?

Code

Public Function ProcessPositions(Doc, detaildoc)As NotesDocument
   Dim collection As NotesDocumentCollection
   Dim posDoc As NotesDocument
   Dim ResultDoc As NotesDocument
   Dim i As Integer
   
   If Doc.EditKst(0) = 1 Then
      Doc.EditKst = 0
      Doc.BestellNr = GetNextBestellNr( Doc )            Call Doc.save( True, True )
   End If
   Set collection = db.Search( |Form = "Bestellposition" & ParentUNID = "| + Doc.UniversalID + |"|, Nothing, 0 )
   
   ' zur Sicherheit neu abspeichern
   
   Doc.LastDetailPos = collection.Count
   
   For i = 1 To collection.Count
      Set detailDoc = collection.GetNthDocument(i)
      ' Zur Sicherheit neu durchnummerieren
      detailDoc.Pos = i
      detailDoc.BestellNr = Doc.BestellNr
      detailDoc.HB = Doc.HB
      detailDoc.Kst = Doc.Kst
      detailDoc.Status = Doc.Status
      Call detailDoc.Save( True, True )
      If detailDoc.SonderBestellung(0) = "1" Then
'         Call pingSonderBesteller( posDoc )         
      End If
   Next   
   Set   ResultDoc= ProcessPositions(?,?)
End Function

[koehlerbv]

Richtig wäre
Set ProcessPositions = DeinGefundenesNotesDocument

Nur ist mir völlig schleierhaft, WELCHES NotesDocument Du zurückgeben willst. Ausserdem hat Deine Function den Parameter "detaildoc", den Du aber überhaupt nicht benötigst, sondern in der function selbst ermittelst.

So ein Konstrukt funktioniert in keiner Programmiersprache.

Bernhard

[7Stein]

Das war der falsche Ansatz.
Ich habe den Fehler gefunden.

Er war an einer anderen Stelle im Code.
Danke trotzdem.

@koehlerbv
Nur weil du es nicht verstehst, musst du nicht gleich behaupten, dass es nicht funktioniert.

[Don Pasquale]

@7Stein,

für Nachfolgende, die vielleicht über denselben Fehler gestolpert sind, wäre es fein, drucktest Du die Lösung bzw. den funktionierenden Code ab.
So haben alle was von Deinem Problem.

Ciao
Don Pasquale

[klaussal]

@bernhard,
Vorsicht, bissiges Mitglied ...
klaus

[eknori]

hier noch weiterführende Informationen aus dem Spotlight forum
http://www.spotlight.de/zforen/lts/m/lts-1095163229-32444.html

[koehlerbv]

Wenn man sich an die unfreiwillige Komik dieser Postings hält, dann kann man der Sache sogar noch einigen Spass abgewinnen  

Bernhard

[klaussal]

Ich mag 7Stein inzwischen sogar ein bisschen.....  
klaus

[eknori]

*** hier fängt es aber jetzt langsam an zu rauschen ***

[koehlerbv]

Dieser ganze Thread ist von Anfang an ein einziges Rauschen, Ulrich.

[Glombi]

Ja, ist schon abenteuerlich.
Entweder eine Function mit Rückgabetyp NotesDocument oder ein Call By Reference (als Sub oder Function as Integer mit True/False).

Andreas

[klaussal]

... was ist "rauschen"..