Beiträge von HeikoE

Die Maske erstellst unter Masken -> Neue Maske anlegen

Dann:

Feld einfügen und dem den Wert RichtText geben. Dort kannste dann alles machen was du willst.

Grüße

Heiko

Zitat

hark schrieb:
Ein Fehler ist es schon, nicht auf R6 zu aktualisieren, aber da kannst du ja vermutlich nichts für.

Damit hast du Recht.

Tja dann kann ich das eben nicht so machen. Die Aktion sollte quasi eine "Lernhilfe" für unsere User sein, dass sie keine dummen Sachen mit der Datenbank machen.

Hoffentlich lernen sie es durch die Pop-Ups.

Grüße

Heiko

Close is not a Member

Ich entwickel unter R5, falls das der Fehler ist?

Hallo ich habe folgenden Code in einer Gemeinsamen Aktion:

Sobald der User mit Ja antwortet soll nciht nur die Methode beenden werden, sondern komplett die Datenbank geschlossen.

Sub Click(Source As Button)
	Dim session As New NotesSession
	Dim db As Notesdatabase
	Dim nuid As NotesUIDocument
	Dim PUIW As New PavoneUIWorkspace
	Dim msg As String
	Dim boxType As Long
	Dim answer As Integer

	Set db = session.currentDatabase

	boxtype& = 4 + MB_ICONEXCLAMATION
	msg = | Hat der neu anzulegende Benutzer bereits einen NT-User?
Is the new user owner of an NT-User?|

	answer = Messagebox (msg,boxtype&,"Wichtige Information")

	If answer="6" Then
		msg =|Bitte beantragen Sie die neuen User, per Mail über Herrn Erwin Völker
Der Vorgang wird abgebrochen
Please contact Mr. Erwin Voelker.
|
		boxtype&= MB_OK + MB_ICONSTOP
		Messagebox msg,boxtype&,"STOP"
		Call db.close
		'Exit Sub

	End If
	If answer <>"6" Then		
		Call PUIW.StartNewJob("UserManagement", "Antrag für neuen User erstellen" , "", True, False, False)
	End If
End Sub

Das geht aber nicht.
Fehlermeldung: Cannot close the context Database

Hat jemand eine Idee, wie das zu lösen ist?

Viele Grüße

Heiko

Danke dir.

Ich hatte irgendwie was falsch gemacht. jetzt geht es bei mir auch.

hallo,

ich muss in einer Gemeisamen Aktion die obige Bibliothek einfügen.

Das wird mir aber mit folgender Fehlermeldung untersagt:

"Public is not allowed in this module"

Was kann ich da machen? Ich brauche an der Stelle unbedingt eine Messagebox.

Danke euch

Grüße

Heiko

Danke euch.

manchmal stehe ich echt auf der Leitung.

Gruß
Heiko

Zitat

taurec schrieb:
Wenn du nur den letzten Änderer haben willst kannst du auch das feld $UpdatedBy auslesen und dir dort den entsprechenden Eintrag der Liste separieren

Jetzt hab ich ne ganz dumme Frage.
Wie kann ich mit ner Formel den letzten Eintrag rausholen?

Hallo,

ich würde in einer Ansicht auslesen von wem das Dokument zuletzt geändert wurde.

Mit @modified bekomme ich das Datum. Gibt es einen ähnlichen Befehl auch für den Bearbeiter?

Vielen Dank

Grüße
Heiko

Der Agent hatte einige doc.save und uidoc.refresh in sich, als ich die auskommentiert hatte ging es.

Obs wirklich funktioniert müssen die Tests bei den Anwendern zeigen.

Danke euch.

Danke dir für die Antwort.

Ich bin weitergekommen, aber beim Aufruf des Agenten kriege ich eine Fehlermeldung:
"Notes Error: Ein im Hintergrund ausgeführter oder eingebetteter Agent verwendet einen nicht unterstützten Auslöser oder Suchtyp"

Mein Script sieht so aus:

Sub Postrecalc(Source As Notesuidocument)

	Dim leiter As String
	Dim teil As String
	Dim session As New NotesSession	
	Dim db As NotesDatabase
	Dim agent As Notesagent

	Set db = session.currentDatabase
	Set agent = db.GetAgent("(Genehmiger)")

	leiter = source.FieldGetText("txtLeiter")
	teil= source.FieldGetText("txtTeil")

	Select Case leiter
	Case "Werk1"
		Call agent.run
		Print "Liste Werk 1 erstellt"

	Case "Werk4"
		Print "Werk4"
		If teil <>"" Then
			Call agent.run
			Print "Liste Werk 4 erstellt"
		End If
	End Select	
End Sub

Grüße
Heiko

Guten Morgen,

ich habe eine Frage.

Bisher habe ich eine Schaltfläche, die über einen @Command einen Agenten aufruft.

Ich möchte dem Bediener den Druck auf die Schaltfläche ersparen und das automatisch ablaufen lassen.

Wo müsste ich den Aufruf dazu setzen? In der Umsetzung oder der Validierung? Ich habe jetzt beides versucht, reagiert hat bisher nichts von beiden.

Wenn gar nciht dort, wo sollte ich es sonst machen? Querysave bin ich nicht so begeistert, da das bei mir, wieso auch immer doppelt durchlaufen wird und so zuviel Zeit verloren gehen würde.

Das ist die Formel ( das wird im Feld txtLeiter aufgerufen):

@Command([FileSave]);
@if(txtleiter ="Werk1"; 
@Command([ToolsRunMacro];"(Genehmiger)");"")

Vielen Dank

Grüße
Heiko

Danke euch.

Es lag tatsächlich an diesem Feld.

Fall gelöst!

Ich hatte ein $Reader in den Eigenschaften stehen. keine Ahnung wieso das da war. Ich hab das Dokument gelöscht und neu erzeugt. Mal sehen ob es jetzt geht.

Als öffentliches Dokument kann er es nicht sehen, nur ich.
Daher wurde aber die versteckte Ansicht gemacht aus der das alle lesen können.
Es gibt nur ein NAMENS-Feld in dem ich und Administrator drin stehen.

Hallo,

ich habe ein problem, wie im Titel zu lesen ist.

Folgender Sachverhalt:

Ich habe ein Dokument erstellt in dem Zentrale Daten gespeichert werden die in die Maske übernommen werden sollen, bzw. aus denen in einem Agenten Werte ausgelesen und verarbeitet werden.
Mein Problem ist nun, dass die Werte aus dieser Maske nur mit Administratorrechten gelesen werden können. Ich habe aber weder in der Maske noch in der Ansicht Lesebeschränkungen gesetzt.

Ich bin ratlos, wäre echt gut, wenn Ihr mir helfen könntet.

Grüße

Heiko

Ok!

Vielen Dank so hats funktioniert.

Danke euch!

Versteh ich jetzt was falsch?

Wenn ich das mache werden doch die Sachen entfernt, die eventuell drinstehen, oder?

Hallo,

ich habe ein Problem.

Ich habe ein Array files , von dem ich nicht weiß ob es gefüllt wird.

Wie kann ich überprüfen ob in einem Array wirklich etwas drin ist?

'Automatisches Einlesen aller Dateien im Ordner und Prüfung auf Teilenummer
	Dim FileName As String 
	Dim FilePath As String
	Dim files() As String
	Dim z As Integer

	FilePath = "T:\e\Edelmann Heiko, edelman2,  SE\public\"
	FileName$=Dir$(FilePath$, 0)

	row="1"	
	i="1"
	j="1"
	z="0"


	Do While FileName$ <>""
		tNum = Trim(Left$(fileName$, 10))

		If Tnum =teilNummer Then
			Redim Preserve files(z) As String
			Files(z) = FileName$
			z=z+1
		End If
		FileName$=Dir$()

	Loop

	Forall file In Files

Vielen Dank

Gruß Heiko

taurec

Ich habe das Problem gelöst, insofern, dass ich die Nummer über Source.SetFieldText direkt ins Frontend schreibe und refreshe.
Der doppelte Durchlauf erfolgt immernoch.

Danke schonmal für die Hilfe.

grüße
Heiko