Beiträge von Gurki

Guten Abend zusammen,

ich habe genau das oben beschriebene Problem.

Meine Frage dazu:
Wie kann ich denn die Dokumente auswählen über die der Agent drüber laufen soll, wenn ich in den Agenteneigenschaften als Ziel "Keines" eingestellt habe?
Dann hab ich im Agent nicht die Möglichkeit die Dokumente zu selektieren.

Vielen Dank!

VIELEN DANK!

Mit dem aktivieren der Maskeneingenschaft hat es wunderbar funktioniert!!

Gruß

Schönen Mittag allerseits,

ich stehe vor einem neuen Problem und werde versuchen es euch so gut wie möglich zu beschreiben.

Ausgangssitutation:
Eine HauptmaskeA, auf dem ein Meeting geplant werden soll. Der User kann nun ein Vortrag anmelden, indem er durch einen Button zu einer EingabemaskeB kommt. Die Daten die er dort eingetragen hat, sollen nur auf dem Hauptdokument eingetragen werden. Alles läuft natürlich in einer Datenbank.

Bisher wird das so geregelt:

Der Button wird mit mit JavaScript erzuegt und so konfiguriert, dass dieser beim Klick die DoumentID, des Hauptdokument als Parameter "weitergibt". Ein Agent, der im WebQueryOpen von B läuft, schreib diesn Parameter(wird von Notes ja automatisch in das Feld Query_String_Decoded geschrieben) in ein Feld. Mit Hilfe dieser ID soll nun das Hauptdokument in einer View gefunden werden und die betreffenden Felder beschrieben werden.

Mein Problem ist, dass das ganze nur funktioniert, wenn das Feld in B, in das die DocumentID des Hauptdokuments geschrieben wird, sichtbar ist.
Kann ein Agent nicht in unsichtbare Felder schreiben? Bzw werden in Ansichten unsichtbare Felder nicht berücksichtig?

Viele Grüße
Gurki

ich werde versuchen mich zu besser

Gruß

Entschuldigung für meine ungenau Ausdrucksweise. Bin nun mal ein Frischling was Lotus Domino angeht.

Ok Vielen Dank ich konnte mein Problem lösen mit folgenden Zeilen:

'Auslesen des Projekthintergrundes
testString = context.GetItemValue("projekthintergrund")(0)
testString = Replace(testString, Chr(10), "<br>")
replacers(11) = testString

Wie man sieht, suche ich nach Chr(10) und nicht nach Chr(13). Die Suche nach Chr(13) hat nicht funktioniert, will sagen, er hat nichts gefunden / nichts ersetzt.

Was ist denn genau der Unterschied zwischen Chr(13) und Chr(10)?

Nochmals vielen Dank für deine schnelle Hilfe Dirk!

Gruß

Gurki

Das RTF Feld wird ausgelesen mit:

replacers(11) = context.GetItemValue("projekthintergrund")(0)

Es werden eine ganze Reihe von RTF Feldern ausgelesen und die Inhalte in einem String Array gespeichert.

Die Werte aus dem StringArray werden in einen weiteren String gespeichert, welcher ein HTML Template für die Email darstellt.

Ich will also quasi den Text eines RTF auslesen und dann automatisch an den richtigen Stellen ein "br" tag einfügen, damit der Text in der HTML mail auch Zeilenumbrüche hat.

hmm.. ich habs jetzt anders geregelt.

und zwar hab ich mir in dem Dokument ein Feld erstellt, dass den Link berechnet. Dieser wird dann per Agent in das andere Dokument geschrieben.

Das Problem ist nur, dass mir das bei der Berchnung ein Fehler auftritt, wenn keine Attachments angefügt sind.
Die code im Feld "Feldname" lautet:

_Zahl = @Attachments;@If(_Zahl > 0; (@Implode("<a href=\"" + @Text(@DocumentUniqueID) + "/$file/" + @AttachmentNames + "\" target=\"_blank\">"+@AttachmentNames + " ("+ @Text(@Round(@AttachmentLengths/1024;0,01)) + " Kb)" + "</a>"; "<br>")); "")

im Agent sieht es so aus

rueckgabe = context.GetItemValue("Feldname")(0)
If rueckgabe = "" Then
				Call doc.ReplaceItemValue("Felda", "")

			Else
				Call doc.ReplaceItemValue("Felda",rueckgabe)	
			End If

Ich versteh nicht wieso es zu Laufzeitfehlern kommt..
Tipps und Anregungen?

DANKESCHÖN

Gruß

Neuer Tag, neues Problem!

Heute:

Ich habe eine Maske mit unter anderem einigen RichTextFeldern. Über einen Button starte ich auf dieser Maske einen Agenten.

Der Agent liest die ganzen Textfelder der Maske aus mit z.b.

replacers(11) = context.GetItemValue("projekthintergrund")(0)

die ganzen werte aus dem array replacers werden in ein mail template geschrieben mit der zeile:

mailText = convert(Replace(mailTemplate, placeholders, replacers))

Der MailText ist im HTML Format.

Ich würde gerne die Zeilenumbrüche aus den Richtextfeldern auch in der Mail behalten. Bisher wird der Text aus einem Richtextfeld in der Mail immer komplett ohne Zeilenumbrüche dargestellt.

Ich danke für eure Geduld mit mir und bedanke mich jetzt schon für Antworten

hmm..
Die If Bedinungen werden nicht erfüllt. Wenn ich diese raunsnehme werden Laufzeit fehler (Variable not set,etc..) gemeldet.

Ich hab leider nur keine Ahnung wieso?!?

Kann es an der ColumnValues-Methode liegen? In der Notes-Hilfe steht:

A column value is not returned if it is determined by:

*A formula containing a UI-only function such as @IsExpandable or @DocNumber.
*A constant.

Was ist bitte mit constant gemeint?!
-.-

Gute Nacht an Alle!

Ne, also das ist auf jeden Fall nicht die Lösung des Problems

ja, schon

aber das macht domino doch automatisch ?!?!

Ne es kommt keine Fehlermeldung mehr. Aber er führt nicht mehr das aus, was er eigentlich soll. Und Compiliert werden kann auch er.

Im großen und ganzen soll er auf Dokumenten verlinken, die in einer anderen Datenbank liegen.
Ich wollt nur wissen ob, durch die %Include-Anweisung etwas an der Funktionsweise (bzw irgendwelche Mehtoden nicht verwendet werden können) ändert.

Option Public
Option Explicit




Dim session As notessession
Dim db As notesdatabase
Dim context As notesdocument
Dim AttachmentView As notesview
Dim item As notesitem




Sub Initialize

	Dim rueckgabe As String
	Dim AttachmentPath As String
	Dim AttachmentPathTMP As Variant
	Dim Link As notesviewentry
	Dim Names As Variant
	Dim groesse As Variant
	Dim Ansicht As String
	Dim JN As String
	Dim Feld As String
	Dim FeldJN As String
	Dim n,m As Integer

	Set session = New notessession
	Set context = session.documentcontext
	On Error Goto Fehler		

	AttachmentPathTMP = Evaluate("@GetProfileField(""DBProfile"";""DB_Name"")")	
	AttachmentPath = AttachmentPathTMP(0)

	Set db = New notesdatabase("",AttachmentPath )

	For m = 0 To 5

		JN="0"		
		rueckgabe=""		
		Select Case m
		Case 0: Ansicht="Angebot"
			Feld="Feldname"
		Case 1- 5: 'um den Code kürzer zu halten, lass ich das Weg'


		End Select

		Set AttachmentView = db.getview("(Attachmentview"+Ansicht+")")
		Set Link = AttachmentView.Getentrybykey(context.UniversalID)

		If Not (Link Is Nothing) then
		 if (Link.isvalid) Then
			JN="1"			
			Names = Link.columnvalues(2)
			groesse = Link.columnvalues(3)

			For n = 0 To Ubound(Link.columnvalues(2))-1
				rueckgabe = rueckgabe + "<a href="""
				rueckgabe = rueckgabe + "/"+AttachmentPath+"/($all)/"+Link.columnvalues(1)+"/$FILE/"+ Names(n) +"""target=""_blank"">"
				rueckgabe = rueckgabe + Names(n) + " ("+FormatLength(groesse(n))+")</a><br>"
				If (Names(n)="") Then 
					rueckgabe=""
					JN="0"
				End If			
			Next
			Call context.replaceitemvalue(Feld, rueckgabe)
		 end if
		Else
			JN="0"
			Call context.replaceitemvalue(Feld,"")			
		End If
		Call context.replaceitemvalue(FeldJN, JN)
	Next

	Exit Sub

Fehler:
	Call context.replaceitemvalue("Feldname", "Fehler:"+Error()+" in Zeile "+Cstr( Erl() )	)
	Exit Sub	
End Sub




Function FormatLength (laenge As String) As String
'Die Funktion formatiert eine Anzahl an Bytes. Je nach Größe der übergebenen Zahl werden
' "GB", "MB", "KB" oder "Bytes" angezeigt und unterschiedlich viele Nachkommastellen
'abgeschnitten'
	Dim intLaenge As Long

	intLaenge = Val(laenge)

	If (intLaenge >1073741824) Then
		FormatLength = CutSize(Cstr(intLaenge/1073741824),3) + " GB"
	Elseif (intLaenge >1048576) Then
		FormatLength = CutSize(Cstr(intLaenge/1048576),2) + " MB"
	Elseif (intLaenge > 1024) Then
		FormatLength = CutSize(Cstr(intLaenge/1024),1) + " KB"
	Else
		FormatLength = Cstr(intLaenge) + " Bytes"
	End If
End Function




Function CutSize (Laenge As String,Stellen As Integer) As String
	'Schneidet den String nach n Kommastellen ab'
	Dim pPos As Integer

	pPos = Instr(laenge,",")

	If (pPos = 0) Then
		pPos = Instr(laenge,".")
	End If

	If (pPos > 0) Then
		CutSize = Left(Laenge,pPos+Stellen)
	Else
		CutSize = Laenge
	End If
End Function

Das ist der Quelltext aus der ausgelagerten Datei. Wenn ich den nun in den Designer kopieren scheitert er an den If-Bedingungen.. Oo

@Dirk: Danke für den Hinweis. Das wurde vor Jahren so gemacht und ich muss damit jetzt leben. Ich weiß, dass es nicht das sinnvollste ist..

Servus miteinander,

ich bins mal wieder

neues Problem:
- Quelltext des Agenten ist ausgelagert und wir mit Hilfe von "%INCLUDE "Pfad der Datei mit dem Quelltext" in den Agenten integriert. Soweit so gut. Da es jedoch sehr umständlich ist, den Agenten extern zu bearbeiten, wollte ich den Quelltext des Agenten einfach direkt in den Designer reinkopieren. Dürfte meiner Meinung nach auch keine Probleme machen.. Jedoch tut der Agent jetzt nicht mehr. Ich bin Zeile pro Zeile durchgegangen und hab beide Quelltexte verglichen. Ich konnte keinen Fehler finden
Woran kann das liegen? Werden Quelltexte die per %Include integriert werden von Domino anderst behandelt? Gibts da irgendwas was zu beachten ist?

Vielen Danke für Antworten!

Gurki

Vielen Dank!

Es funktioniert

Viele Grüße

Hallo zusammen,

ich stehe mal wieder vor einem Problem und bitte um euer Hilfe.

Also ich will, dass ein Agent Daten, die in einem Dokument gespeichert werden automatisch in ein anderes Dokument hinzugefügt werden.
Nennen wir das zu beschreibende Dokument A das andere B

Also in B stehen nun die Daten und die DocumentID von A. Damit sollt das eigentlich kein Problem sein.
Hier nun der Quelltext der Agent, der im WebQuerySave gestartet wird:
- context ist das Objekt für Dokument B und doc für Dokument A

Option Public
Option Explicit


Dim session As notessession
Dim db As notesdatabase
Dim context As notesdocument
Dim AttachmentView As notesview
Dim item As notesitem


Sub Initialize

	Dim doc As NotesDocument	
	Set session = New notessession
	Set context = session.documentcontext



	Set db = session.CurrentDatabase
	Set AttachmentView = db.getview("ViewName")



	Set doc = AttachmentView.GetDocumentByKey(context.GetItemValue("DocId"), True)


	If Not (doc Is Nothing) Then
		If(doc.istValid) Then
			Call doc.replaceitemvalue("Feldname" , context.GetItemValue("Feldname"))


                End If
       End If


End Sub

Vielen Dank für Anregnungen

Gruß Gurki

oh man..
Oo

Vielen Dank..

Hallo zusammen,

ich will, dass ein Agent automatisch ein Dokument mit vorgegebenener Maske erstellt. Ist ja eigentlich auch nicht schwer und hier im Forum gibts ja auch genügend Anschauungsmaterial. Leider funktioniert mein Code nicht.

Hier mein Quelltext:

Option Public
Option Explicit

Dim session As NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument

Sub Initialize
Set db = session.CurrentDatabase

Set doc = New NotesDocument(db)
doc.Form = "Maskenname"
doc.Feld = "hallo"
doc.Save True, True, True



End Sub

Eigentlich kann bei den paar Zeilen Codes doch nichts falsch sein ?!?!
Ich bin total verwirrt und bitte um Hilfe!

Wenn ich grad dabei bin - hier noch ein zweites Problem:

Beim Öffnen eines Doukments (bzw erstellen eines neues Dokuemnts) per Buttonclick mit dem Befehl @Commad([Compose];"Maskenname") kommt der Fehler:
"HTTP Web Server: Lotus Notes Exception - Invalid UNID; UNID must be a 32-digit hex string."

Bisher hat das mit dem Befehl immer einwandfrei funktioniert..

Irgendwelche Ideen?

Vielen Dank!

Gurki