Beiträge von gismosan

Ich benutze nicht das DBLookup sonder die Picklist. Ist in dem Fall der Lösungsansatz der gleiche?

Da ich nicht wirklich fit bin in Lotus Notes Datenbanken könntest du mir das evtl. leicht verdaulich erklären?

Hallo,

ich möchte gerne eine Datenbank lokal sowie im Netz am laufen lassen können. Habe in der DB einen Hotspot mit folgenden Code:

Server := "Server";
Datenbank:="Datenbank";
Ansicht:="Ansicht1";
Titel:="";
Eingabetext:="Wählen Sie";
Spalte:=1;

Wie schafe ich das erst geprüft wird ob ich eine Netzverbindung habe?

Gruß

Was soll ich denn stattdessen angeben? Komme damit nicht wirklich weiter!

Leider gibt er mir ein Type missmatch zurück!

Hallo,

ich bin es mal wieder. Ich habe da mal wieder ein Problem. Ich habe 2 Datenbanken. Will über eine Schaltfläche Personen suchen die in der 1. DB stehen um Dokmente in 2. DB zu erstellen. Zudem möchte ich gleichzeitig Felder von den Personenmasken filtern um damit weiter zu arbeiten. Folgender Code funktioniert bei einer Person. Ich will aber immer eine unterschiedliche Anzahl an Personen suchen.

Dim session As New NotesSession
Dim source_db As NotesDatabase
Dim source_doc As NotesDocument
Dim source_item As NotesItem
Dim source_eMail As NotesItem
Dim wrk As New NotesUIWorkspace
Dim uidoc As NotesUIDocument

Dim tmpUNID As Variant

Set uidoc=wrk.CurrentDocument
tmpUNID = wrk.PickListStrings(3,True,"Server","1. DB","Ansicht", "Personen suchen","Wählen Sie bitte die zu informierenden Personen aus",DocID-Spalte)
Call uidoc.FieldSetText("Daten",tmpUNID)

Set source_db= session.GetDatabase("Server","1. DB")
Set source_doc=source_db.GetDocumentByUNID(tmpUNID)
Set source_eMail = source_doc.GetFirstItem("gewünschtesFeld")
tmp_mail=source_eMail.Text
Call uidoc.FieldSetText("AblageFeld",tmp_mail)
Call uidoc.Refresh()

Das AblageFeld kann Mehrfachwerte anzeigen.

Danke schon mal im voraus.

Versteh nur Bahnhof! Man merkt ich brauche Urlaub!

Aus einer Ansicht.

Zitat

taurec schrieb:
Was heisst klappt nicht ?
Was führt er aus ? Was für eine Fehlermeldung kommt ?

Das Feld1 füllen klappt. Nur beim zweiten Feld macht er nichts und gibt auch keine Fehlermeldung!

Hallo Leute,

ich nerv euch mal wieder. *Fg*
Ich möchte durch eine Schaltfläche zwei Felder füllen lassen. Nur das klappt nicht. Hier der Code für die Schaltfläche. Wäre cool wen ihr mir mal wieder aus der Patsche helfen könntet!

REM "Parameter zuweisen";

Server:= "xyz";
Datenbank:="abc";
Ansicht:="Labber";
Titel:="Personen";
Eingabetext:="Such mal";
Spalte:=2;

REM "Personen zuweisen und auswählen";
FIELD Feld1:=@PickList([Custom];Server:Datenbank;Ansicht; Titel; Eingabetext;Spalte);
FIELD Feld2:= @DbLookup("":"NoCache";Server:Datenbank;Ansicht;Feldwert;3));""

Hallo,

in weit weit muss ich das Script ändern wenn das ParentDoc an mehrere Personen gesendet werden soll?

Danke schon mal im voraus!

Zitat

dnotes wrote:
Ich will mla nett sein:

Code

Sub Click(Source As Button)
	Dim ws As New notesuiworkspace 
	Dim uidoc As notesuidocument
	Dim this_doc As notesdocument
	Set uidoc = ws.currentdocument
	If Not ( uidoc.isnewdoc) Then
		Set this_doc = uidoc.document
		Dim session As New NotesSession
		Dim db As NotesDatabase
		Dim mail_doc As NotesDocument
		Dim rtitem As NotesRichTextItem

		Set db = session.CurrentDatabase
		Set mail_doc = New NotesDocument( db )
		Set rtitem = New NotesRichTextItem( mail_doc, "Body" )
		Dim parent_doc As notesdocument
		Set parent_doc = db.getDocumentbyUNID(this_doc.parentdocumentUNID)
		Call rtitem.appenddoclink(parent_doc,"Drück mich")
		mail_doc.Form = "Memo"
		mail_doc.Subject = "Hier kommt die Maus!"
		Empfaenger = this_doc.feldname(0) ' wenn es nur einen Empfaenger gibt
		Call mail_doc.send(False,Empfaenger)
	End If
End Sub

Alles anzeigen

musst nur bedenken....
1.eine Aenderung beim Empfaenger..ich weiss nicht, wie das Feld im Antwortdok heisst.
2. Das Antwortdok muss schon gespeichert sein, ansonsten funktioniert es nicht - ich habe das ueber die Abfrage is not/uidoc.isnewdoc) abgefragt
und 3.
es muss fuer einen Doclink eine default-view in der DB existieren

Viel Spass

Alles anzeigen

Ich guck jetzt schon ne ganze Zeit die Hilfe durch! Wäre es möglich das mir einer einen Ansatz gibt wie ich mein Problem lösen könnte?

Zitat

taurec wrote:
Du musst die Mail mit LotusScript generieren, dann kannst du dir über das Feld $REF das ParentDocument holen und als DocLink an das RT Feld anhängen

Bin zwar ein wenig bewandert mit Lotus Script aber was ist das RT Feld. Vielleicht habe ich auch nur ein Knoten im Hirn. Könntet ihr mir eine kleine Hilfestellung geben? :-?

Hallo,

ich habe da ein Problem. Ich möchte gerne eine Schaltfläche haben wo ich das Parent Dokument einer Antwort per Mail an eine vorher auszuwählende Personengruppe schicken kann. Die Personen stehen schon in einem Feld. Wie mach ich das nur?

Wäre wirklich nett wenn ihr mir dabei helfen könntet!

Gruß gismosan

So nun habe ich getestet und es läuft alles so wie es sich der Auftraggeber vorgestellt hat.

Vielen Dank nochmal!

Beim Testen hat sich jetzt das Problem ergeben das ja alle Antwortdokumente die Zahl der Antworten haben. Nur das wollte ich nicht. Ich wollte das die alten Antworten ihre Nummer behalten. Nochmals mein Code:

Dim session As New notessession
Dim db As notesdatabase
Dim col As notesdocumentcollection
Dim p_doc, doc As notesdocument
Dim item As notesitem
Dim REFUNID As String

Set doc=source.document
Set item=doc.getfirstitem("$REF")
REFUNID=item.values(0)

Set db = session.currentdatabase
Set p_doc=db.Getdocumentbyunid(REFUNID)
Set col = p_doc.responses
Call col.StampAll("berechnetesFeld", col.Count)

Danke! Hat Funktioniert!

Ist das dann egal ob das Feld ein Textfeld oder ein Zahlenfeld ist, das berechnet wird?

Also das ist mein Code im Postsave:

Dim session As New notessession
Dim db As notesdatabase
Dim col As notesdocumentcollection
Dim p_doc, doc As notesdocument
Dim item As notesitem
Dim REFUNID As String

Set doc=source.document
Set item=doc.getfirstitem("$REF")
REFUNID=item.values(0)

Set db = session.currentdatabase
Set p_doc=db.Getdocumentbyunid(REFUNID)
Set col = p_doc.responses
count = col.count
doc.berechnetesFeld=count + 1
Call doc.save(True,False,False)
Wo soll ich da nun die if_Anweisung reinsetzen?

Es soll in ein Feld abgespeichert werden!