Beiträge von schurke

Hallo Dirk,

ich habe die zwei Feldformate von Zahl in Text geändert, jetzt funzt es.

Vielen Dank für deine Hilfe.

Grüsse

Wilfried

Hallo,

der Tipp mit isnumeric hat funktioniert. Nur kann ich nicht speichern.
Meldung: Nicht erkannte Zeichen hinter Zahl!

Wo oder wie kann ich diesen Fehler einkreisen

Gruß

Wilfried

Die gleiche Meldung wie im ersten thread beschrieben: Type mismatch.
Es ist nur komisch, das es manchmal funzt. Nur kann ich es nicht nachvollziehen.
Wenn ich doc.kommt als Variable auslese, bekomme ich für Feld stunden: 14:00 und für Feld uestd: 420

wilfried

zu früh gefreut, jetzt funzt es nicht mehr. die suche geht weiter.
langsam weiss ich nicht mehr weiter.

wilfried

Hallo @all,

vielen Dank für Eure Hilfe. Nach langem Suchen habe ich den Fehler gefunden.

bei doc.uestd = war "" gesetzt und nicht der Vorgabewert 0

Jetzt funzt es.

Wilfried

Guten Morgen,

ich habe mal alle Felder überprüft.
RockWilder
"kommt" und "geht" sind Time/Date-Felder und alle anderen sind numerisch.
MIND1
Die messagebox Left(doc.kommt(0),2) gibt den Stundenwert zurück, so soll es auch sein.
Beim Minutenwert hängt es sich wieder auf.
kommt_ws = Right(doc.kommt(0),5)

Gruß

wilfried

Hallo,

ich habe die default values auf null gesetzt. Leider funzt das immer noch nicht.
Wenn ich das Ganze debugge, bleibe ich an der Zeile

kommt_std =Cint(Left(doc.kommt(0),2))

hängen.

wilfried

Arbeitszeitberechnung funzt leider nicht. Ich bekomme immer eine Type mismatch Meldung. Kann sich bitte jemand mal das Script anschauen und den Fehler aufspüren.

Danke und Gruß

Wilfried

Sub Click(Source As Button)
	Dim ws As New NotesuIWorkspace
	Dim uidoc As NotesUIDocument
	Dim doc As NotesDocument
	Dim s As New NotesSession
	Dim kommt_std As Integer
	Dim kommt_min As Integer
	Dim kommt_minuten As Integer
	Dim geht_minuten As Integer
	Dim zeit_ist_tag  As Integer
	Dim zeit_soll_tag As Integer
	Dim diff As Integer

	Dim kommt_ws As String
	Dim geht_std As Integer
	Dim geht_min As Integer
	Dim geht_ws As String
	Dim diff_std As Integer
	Dim diff_min As Integer
	Dim istzeit As Long
	Dim stunden As Integer
	Dim ws_feld1 As Integer

	Set uidoc = ws.CurrentDocument
	Set doc = uidoc.Document

	If doc.art(0) = "Krank"  Or doc.art(0) = "Urlaub" Or doc.art(0) = "Feiertag" Then
		diff_std = 7
		diff_min = 00
		doc.pause = 0
		doc.stunden = "7:00"		
		doc.uestd = ""
		Goto Ende
	End If


	kommt_std =Cint(Left(doc.kommt(0),2))
	kommt_ws = Right(doc.kommt(0),5)
	kommt_min = Cint(Left(kommt_ws,2))

	geht_std =Cint(Left(doc.geht(0),2))
	geht_ws = Right(doc.geht(0),5) 
	geht_min = Cint(Left(geht_ws,2))


	kommt_minuten = Cstr (kommt_std * 60) + kommt_min
	geht_minuten = Cstr (geht_std * 60) + geht_min
	zeit_ist_tag = geht_minuten - kommt_minuten - doc.pause(0)
	zeit_soll_tag = 420
	zeit_ist_tag = zeit_ist_tag + (doc.sonderstunden(0) * 60)
	diff = zeit_ist_tag - zeit_soll_tag
	doc.uestd = diff
	stunden = (zeit_ist_tag / 60)
	ws_feld1 = (stunden * 60) - zeit_ist_tag
	If ws_feld1 < 0 Then
		ws_feld1 = ws_feld1 * (-1)
	End If

	doc.stunden = Cstr(stunden) + ":" + Right("00" + Cstr(ws_feld1),2)	

Ende:
End Sub

Hallo,

welche Einstellungen muss ich vornehmen um die letzte Mail in der Ansicht Eingang markiert zu bekommen und nicht irgend eine, die ich nicht zuletzt besucht habe?

Notes 6.5.5

Edit: Nachdem ich weiter gestöbert habe, habe ich es einmal mit dem Umbennen der bookmark.nsf versucht. So wie es aussieht, scheint der Fehler behoben zu sein. Falls nicht werde ich mich wieder melden.

Gruß und Dank für Hilfe

Wilfried

Herzlichen Dank.
So funzt es. :strike:

Gruß

Wilfried

Danke werde ich versuchen.

Gruß

Wilfried

Sorry habe noch keine Ahnung von Scipt.

Hier:
Sub Postsave(Source As Notesuidocument)
Dim session As New NotesSession
Dim doc As NotesDocument
Set doc = Source.Document
doc.PreResponsable = Arrayappend(doc.Responsable, doc.PreResponsable)
If (doc.PreResponsable(Ubound(PreResponsable) - 1) <> doc.Responsable(0)) Then 'Eintrageb
End If
Source.Refresh

End Sub

D uhast das richtig erkannt.

Gruß
Wilfried

Leider funzt das noch nicht.
Ich bekomme die Meldung Type mismatch

Noch einmal zu diesem Thema.
Es wird jetzt bei jedem speichern der Name aus dem Feld Responsable in das Feld PreResponsable geschrieben.
Kann man es so hinbekommen, das das Feld PreResponsable vorher gecheckt wird. Damit der gleiche Name an letzter Position nicht noch einmal dort hinterlegt wird. Sondern nur wenn ein anderer Name dazwischen ist.
Bisheriger Code
Sub Postsave(Source As Notesuidocument)
Dim session As New NotesSession
Dim doc As NotesDocument
Set doc = Source.Document
doc.PreResponsable = Arrayappend(doc.Responsable, doc.PreResponsable)
Source.Refresh
End Sub

Gruß

Wilfried

Vielen Dank, da hätte ich auch drauf kommen können.
Noch ne Frage.
Wie unterbinde ich es, das die Person im Feld Responsable nicht die erste Meldung erhält.
Der Teilnehmerkreis ist identisch.

Gruß

Wilfried

Hallo @all,
ich habe eine Vorgabe, die ich z.Zt. nicht lösen kann.
Ein Dokument wird versendet mit Formel:
@MailSend (SendTo ;"";"";"Ein 8D-Report erfordert Ihre Beachtung" ;"";"Bitte folgen Sie dem Dokumentenlink ";[IncludeDoclink])

Ist es möglich mit der gleichen Aktion ein Feld "Responsable" auszulesen und die Meldung mit einem anderen Thema zu verschicken?
Beispiel:@MailSend (Responsable ;"";"";"Sind als Verantwortlicher Eingetragen worden" ;"";"Bitte folgen Sie dem Dokumentenlink ";[IncludeDoclink])

Oder kann dies nur über einen extra Button geschehen?

Gruß

Wilfried

Danke, ich bin nach Tagen der Fehlersuche schon verblödet.

Wilfried

Wie kan ich Werte aus Optionsschaltfäche deaktivieren, so dass alle Optionen wieder leer sind?

Wilfried

Es funzt.
Herzlichen Dank für eure freundliche Hilfe.

Wilfried