Beiträge von Patri

Moin zusammen.. ich habe einen Agenten geschrieben, der eine Berechnung von Essen vornehmen soll und regelmäßig laufen soll.. wenn ich ihn von hand starte, so geht es, aber nicht wenn er alleine laufen soll oO

im LOG steht folgendes:

Zitat

Error creating product object

Hier der Code (KEINE UI-Befehle)

Sub Initialize
	Dim s 		As New NotesSession
	Dim view 		As NotesView
	Dim db 		As NotesDatabase
	Dim doc 		As NotesDocument
	Dim a 		As Integer
	Dim b 		As Integer
	Dim doc2 		As NotesDocument
	Dim formula 	As String
	Dim dc 		As NotesDocumentCollection
	Dim z 		As Integer
	Dim x		As Integer
	Dim cutOff 	As New notesDateTime("1.1.2004")

	Set db 		= s.CurrentDatabase
	Set view 		= db.GetView("stonieren")
	formula 		= |1=1|
	x			= 2000
	Set dc 		= db.search(formula, cutOff, x%)

	For z = 1 To dc.count
		Set doc2 = dc.getNthDocument(z)
		Set doc 		= view.GetFirstDocument
		a = 0
		b = 0
		While Not(doc Is Nothing)
			If doc.t_datum(0) = doc2.sp_datum(0) Then
				If Trim(doc.t_essen(0)) = Trim(doc2.sp_essen_a(0)) Then
					a = a + doc.t_anzahl(0)
				Elseif Trim(doc.t_essen(0)) = Trim(doc2.sp_essen_b(0)) Then
					b = b + doc.t_anzahl(0)
				End If
			End If
			Set doc = view.GetNextDocument(doc)
		Wend
		doc2.menge_gebucht_a = Format(a)
		doc2.menge_gebucht_b = Format(b)	
		Call doc2.Save(True, False)
	Next

End Sub

mittlerweile hat sich das Thema auch erledigt.
Habe einfach eine Anzeige innerhalb des Dokumentes generiert.
Damit der Benutzer auch merkt, dass sich was tut, zähl ich immer fünf Punkte hoch und setze diese dann zurück.

Aber deine Idee ist soweit ziemlich gut...
danke

Moin Leute,

ich öffne über ein einen Button in Maske A mittels NotesUiWorkspace.DialogBox die Maske B
sooo... nun setze ich ein Feld und berechne etwas.. dann schließe ich dieses Fenster wieder mit NotesUiDocument.Close
aber nun übernimmt er die werte nicht, weil man nicht auf [OK] geklickt hat und somit die DialogBox kein True zurückgibt.

Warum will ich, dass das so funktioniert?
Da die Berechnung ziemlich zeitaufwendig ist, soll während der Berechnung ein Text stehen, dass der Anwender warten soll..

Warum soll sich das Fenster selber schließen?
Wenn es irgendwas gibt, was unsere Mitarbeiter falsch machen können, dann machen Sie das auch! und wenn es nur rechts Oben das X ist, um die Box zu schließen.

von daher soll es (sofern es möglich ist) keine Userinteraktion benötigen

Weiß jemand von euch wie man dieses Problem lösen kann?

versuch es doch mal mit call uiDoc.fieldsettext...

nebenbei: option explicit is auch immer gut, damit sowas nicht passiert

Zitat

Error 404
HTTP Web Server: Lotus Notes Exception - File does not exist

der vollständigkeithalber, poste ich noch den gesamten, fertigen code..

Option Public
Option Explicit


Sub Initialize
	Dim db As NotesDatabase
	Dim s As New NotesSession
	Dim doc As NotesDocument
	Dim ws As New NotesUIWorkspace
	Dim y As Integer
	Dim z As Integer
	Dim st As String
	Dim Feld As Variant

	Set db = s.CurrentDatabase
	Set doc = db.GetProfileDocument("(config)")

	y = 0
	z = 0	
	Forall x In doc.newsletter
		If x = s.UserName Then
			y = 1			
			Exit Forall
		End If
		z = z + 1
	End Forall

	If y = 0 Then
		Feld = doc.newsletter
		Redim Preserve Feld(0 To (Ubound(Feld) + 1))
		Feld(Ubound(Feld)) = s.UserName
		doc.newsletter = Feld
	Else
		Feld = doc.newsletter
		Feld(z) = ""
		doc.newsletter = Feld
	End If

	Call doc.ComputeWithForm(True, False)
	Call doc.Save(True, False)

	If y = 0 Then Msgbox "Sie wurden erfolgreich dem Newsletter hinzugefügt!"
	If y = 1 Then Msgbox "Sie wurden erfolgreich aus dem Newsletter entfernt!"	
End Sub

ah, die Sonne scheint mir ins Hirn..
danke... liegt wohl daran, dass der Kaffee alle ist und ich noch neuen kaufen muss

du meinst

doc.computewithform(true, false)

?
das hatte ich da mit eingebaut.. warte ich poste mal den code..

Sub Click(Source As Navigator)
	Dim db As NotesDatabase
	Dim s As New NotesSession
	Dim doc As NotesDocument
	Dim ws As New NotesUIWorkspace
	Dim y As Integer
	Dim z As Integer
	Dim st As String

	Set db = s.CurrentDatabase
	Set doc = db.GetProfileDocument("(config)")

	y = 0
	z = 0	
	Forall x In doc.newsletter
		If x = s.UserName Then
			y = 1			
			Exit Forall
		End If
		z = z + 1
	End Forall

	If y = 0 Then
		For i = 0 To z - 1
			st = st & doc.newsletter(i) & ", "
		Next
		st = st & s.UserName
		doc.newsletter = st
	Else
		doc.newsletter = Replace(doc.newsletter, s.UserName, "")
	End If

	Call doc.ComputeWithForm(True, False)
	Call doc.Save(True, False)

	If y = 0 Then Msgbox "Sie wurden erfolgreich dem Newsletter hinzugefügt!"
	If y = 1 Then Msgbox "Sie wurden erfolgreich aus dem Newsletter entfernt!"	
End Sub

gute frage, ich bekomme jeden Morgen einen Statusreport von einem längst gelöschten Agenten

Dominohilfe:

[b]@Text mit Zahlen[/b]
Setzen Sie für Zahlen eine Formatzeichenfolge zusammen, 
indem Sie die folgenden Komponenten zu einer 
Zeichenfolge kombinieren.


[b]Symbol		Bedeutung[/b]
G		Allgemeines Format (nur signifikante Ziffern)
F		Festes Format (feste Anzahl von Dezimalstellen)
S		Wissenschaftliches Format (E-Notation)
C		Währungsformat (zwei Dezimalstellen)
,		Punkt für Tausenderstellen
%		Prozentformat
()		Klammern um negative Zahlen
Zahl		Zahl der Genauigkeitsstellen

also @Text(feld;"F2")

Moin zusammen,

ich trete gerade irgendwie auf der Stelle und sehe scheinbar den Wald das Postfach vor lauter Mails (schöne ableitung von wald vor lauter bäumen ) nicht mehr.
Ich möchte gerne, dass der Anwender durch den Klick auf einen Button in einem Navigator sich für ein Newsletter an- bzw. abmeldet.
Hierfür hatte ich mir überlegt, kann man doch in ein Configdokument die notesnamen speichern... am besten wäre da ein mehrfachfeld, so dachte ich.. da mein altes Skript

Dim db As NotesDatabase
	Dim s As New NotesSession
	Dim doc As NotesDocument	
	Dim var As Integer
	Dim nam(0) As Variant
	Dim neu As Variant
	Dim rep(0) As Variant

	Set db = s.CurrentDatabase
	Set doc = db.GetProfileDocument("(config)")
	nam(0) = s.UserName
	rep(0) = ""	
	var = 0

	Forall dd In doc.newsletter
		If dd = s.UserName Then
			var = 1
			neu = Arrayreplace(doc.newsletter, nam, rep)
			doc.newsletter = Fulltrim(neu)
			Call doc.Save(True, False)
			Msgbox "Sie wurden erfolgreich aus dem Newsletter entfernt!"
		End If
	End Forall

	If var = 0 Then
		neu = Arrayappend(doc.newsletter, nam)
		doc.newsletter = Fulltrim(neu)
		Call doc.Save(True, False)
		Msgbox "Sie wurden erfolgreich für das Newsletter angemeldet!"
	End If

unter R4.6 ja leider nicht funktiert hat, weil R4.6 keine Arrayfunktionen kennt.

Also wollte ich es umschreiben, bekomme das grad aber nicht ganz so hin.. hatte mir schon überlegt, einfach in das Feld mit Komma getrennt, den Namen hinzuzufügen oder mit replace den namen zu entfernen und das Dokument zu aktualisieren. Durch die feldvalidation würden dann Leere Werte entfernt und neue als Array interpretiert werden.. nur hat das nicht ganz funktioniert.. hat wer von euch noch eine gute Idee?

Zitat

Hallo Tom, schon mal in die Admin-hilfe geschaut? Dort werden Sie geholfen.

Das doch mal eine nette art [size=x-large][color=CC0033]RTFM[/color][/size] auszudrücken

PC Suite release 3.1.1 German
The Sony Ericsson PC Suite is free software that will enhance the 
functionality of your Sony Ericsson P910 mobile phone. The Sony 
Ericsson PC Suite [b]supports the P800, P900 and P910 mobile 
phones[/b]. Release 3.1.1 of the PC Suite is primarily intended as 
an upgrade from the Sony Ericsson PC Suite, release 3.0.0.

Hmm ich glaub das wird nicht ganz mit meinem K700i funktionieren...

*nickt* is mir im nachhinein auch eingefallen

und dazu im PostOpen der Maske Editmode = False dann klappt alles.

Das wird so nicht klappen.. wenn ich ein Dokument erstelle, gibt es eine Fehlermeldung

hättest ja nun für nicht in jedem feld das eintragen müssen sondern einfach nur im Postopen continue = false eintragen und den Code in das erste feld.. dann geht es nicht mehr..
Für deinen Aktionsbutton: du hättest das Feld auch im Backend ändern können

Mit dem Designer bist du aber vertraut?

Du kannst die Maske bzw. die Ansicht von dem Kalender doch dementsprechend ändern (weiß nciht ob das bei euch so liecht geht... mit Citrix wäre es z.B. recht leicht)

Wäre eher was in Richtugn Lotus Notes Programmierung

yo... super.. :o)

wir sind doch beim upgraden, aber so schnell geht das einfach nicht.. wir haben hunderte Clients...
Teilweise über Citrix, teilweise als Workstation.
Ich hoffe ja auch, dass es endlich mal allses auf R6.5 umgestellt ist

Es gibt lieder immer wieder Leute, die scheinabr am Bildschirm nicht lesen können oder Arbeitsanweisungen mit nach Hause nehmen wollen

Kennt einer von euch ein kostenloses Programm (am besten OpenSource), mit dem ich Lotus Notes mit meinem Handy (Sony Ericsson K700i) syncronisieren kann?

Mal wieder ein neues Problem:
Ich habe ein Dokument , das ein Rich Text-Feld enthält. Wenn ich unter R4.6 das drucken wills, so will er es unbedingt auf eine Seite haben, aber der Inhaltist insgesamt vier Seiten lang nun meint R4.6 nur eine Seite drucken zu wollen und eine leere hinterher..... weiß jemand rat??