Beiträge von maria

Danke für die Hilfe

Habe folgenden Code aus der Hilfe

Dim doc As NotesDocument
Dim rtitem As Variant
Dim object As NotesEmbeddedObject
'...set value of doc...
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
  Set object = rtitem.GetEmbeddedObject( "Jim" )
  If ( object Is Nothing ) Then
    Messagebox( "Unable to find an object named Jim" )
  Else
    Messagebox( "Found an object named Jim" )
  End If
End If

Frage: Wie bekomme ich den Namen des im Richtext Feld vorhandenen Anhang heraus
Set object = rtitem.GetEmbeddedObject( "Jim" )

Also "Jim" soll ermittelt werden

Das Beispiel aus der Designerhilfe habe ich mir angesehen. Verstehe nur nicht wieso mein Beispiel nicht funktioniert

Damit möchte ich erreichen dass ich in einer Maske bestimmte Berechnungen durchführe. Danach kann der Benutzer mitttels einer Schaltfläche einen Druck starten. Zusätzlich sollte auch ein PDF Dokument gedruckt werden. Dieses habe ich mir gedacht als Anhang einzufügen.

bofh
Werde aufpassen mir keinen Bruch zu heben

Hallo,

hebe in einer Maske ein Anhang (habe diesen im Designer direkt der Maske hinzugefügt mit Erstellen -> Anhang)
Nun habe ich versuchsweise folgendes Script geschrieben um auf den Anhang zuzugreifen. Der Anhang heisst Dokument.pdf
Leider bleibt Object immer leer

Sub Click(Source As Button)
	Dim ws As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Set uidoc = ws.CurrentDocument	
	Set doc = uidoc.Document
	Dim object As NotesEmbeddedObject
	Set object = doc.GetAttachment("Dokument.pdf")
	If ( object Is Nothing ) Then
		Msgbox("Kein Dokument")
	Else
		Msgbox("Gefunden")
	End If
End Sub

Die Variable ist als Currency deklariert.

Hallo,

habe folgendes Problem: Ich ermittle einen Wert aus einer Ansicht mittels LSentry.

Wert = ColumnValues(6)

Nun möchte ich überprüfen ob auch ein Wert in die Variable geschrieben wurde. Habe dies mit einer if Schleife versucht:

If Isempty(Wert) Then
Msgbox("KeinEintrag")
End If

Ich erhalte aber immer die Fehlermeldung "Object Variable Not Set"

Danke Maria

Funktioniert dies in der Formelsprache nicht?

Habe zwei Felder Feld 1 als Optionsschaltfläche und Feld 2 als Zahlenfeld. Wenn ich nun in der Optionschaltfläche was auswähle und das Feld zwei leer bleibt dann passt es. Nun möchte ich erreichen dass wenn im Feld2 ein Eintrag vorhanden ist, nichts mehr in der Optionsschaltfläche ausgewählt wird.

Habe in der Eingabeumsetzung des Feld 2 folgendes stehen:

@If(Feld2 != ""; Feld1 = "";Feld2)

Leider funktioniert dies nicht

Wenn ich kein Faktor angebe wird die Zahl auf die nächste ganze Zahll gerundet. Was gebe ich als Faktor an wenn ich aber auf zwei Kommastellen genau runden möchte?

Wie kann ich damit auf 2 Kommastellen genau runden?

Hallo,

habe eine Maske in der ich LS Berechnungen durchführe. Die Ergebnisse schreibe ich in Felder der Maske zurück. Da diese Ergebnisse Nachkommastellen haben, möchte ich diese runden, aber nicht mittels LS sondern mittels Formelsprache. Auch sollte bei bestimmten Feldern das Ergebnis als Währung angezeigt werden.
Habe versucht in den Feldeigenschaften die Option Währung und die Kommastellen einzugeben, diese werden aber nicht beachtet auch nicht wenn ich die Maske mit F9 aktualisiere.

Danke Maria

Hallo,

habe eine Maske mit einer Aktionsschaltfläche. Hinter dieser steckt eine Berechnung mittels LS. Nun gibt es verschiedene Validierungen bei den einzelnen Feldern mitells Formelsprache. Diese sollen ausgelöst werden bevor der Benutzer die Berechnungsschaltfläche drückt.

Danke Maria

Danke, funktioniert mit beiden Vorschlägen, Haken war gesetzt

Hallo,

habe ein Feld als Optionsschaltfläche mit zwei Einträgen:

ja|j
nein|n

Mittels folgenden Script überprüfe ich ob ja oder nein angeklickt wurde. Wie kann ich das Synonym ansprechen? Wenn ich nur "j" im Script angebe funktioniert das Skript nicht richtig

Sub Click(Source As Button)
	Dim ws As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Set uidoc = ws.CurrentDocument
	Dim Ausg As String	
	Ausg = uidoc.fieldgettext("Feld1")
	If Ausg = "ja" Then
		Msgbox("Der Benutzer hat auf ja geklickt")
	Else
		Msgbox("Der Benutzer hat auf nein geklickt")
	End If		
End Sub

Danke Maria

So scheints zu funktionieren:

@If(@ToNumber(ZaFeld) > @ToNumber(10);"Zahl grösser 10";"Zahl kleiner Zehn")

Die Fehlermeldung taucht bereits beim öffnen der Maske auf.
Im Zahlenfeld gebe ich eine Zahl ein.
Im Textfeld soll grösser oder kleiner 10 als Text stehen.

Habe ein ZahlenFeld ZaFeld und ein berechnetes Textfeld Feld1.
Nun möchte ich einen Vergelich machen und zwar soll wenn im Zahlenfeld eine Zahl grösser 10 eingegeben wird im Textfeld "Zahl grösser 10" ansonsten "Zahl kleiner Zehn" stehen.

Dazu Folgende Formel im berechneten Textfeld Feld1:

@If(ZaFeld > 10;"Zahl grösser 10";"Zahl kleiner Zehn")

Erhalte die Fehlermeldung: "Für Vergelichsoperatoren müssen zwei Werte desselben Datentyps angegeben werden"

Brauche ich hier die Funktion @TextToNumber? Aber wie? Kriegs nicht hin.

Danke für jede Hilfe

Danke für die rasche Lösung

Hallo,

habe eine Ansicht mit 3 Spalten.

Die Spalte eins enthält den Fahrzeugtyp z.B. Auto,Bus, Motorrad die zweite Spalte enthält eine Kategorie z.B. 1, 2, 3, 4, 5 und die dritte Spalte einen Betrag.

Fahrzeugtyp Kategorie Betrag in Euro
Auto 1 10
Auto 2 20
Bus 1 5
Bus 2 10

Der Benutzer gibt in einer Inputbox den Fahrzeugtyp und die Kategorie ein und ich möchte den Betrag ausgeben lassen.

Dazu habe ich folgenden Code geschrieben

Sub Click(Source As Button)
	Dim s As New NotesSession
	Dim db As NotesDatabase
	Dim view As NotesView
	Dim viewc As NotesViewEntryCollection	
	Dim entry As NotesViewEntry


	Set db = s.CurrentDatabase	
	Set view = db.GetView("MeineAnsicht")

	Dim FahrTyp As String	
	Dim Kat As Integer
	FahrTyp = Inputbox("Geben Sie den Fahrzeugtyp ein:")	
	Kat = Inputbox("Geben Sie die Kategorie ein:")
	Set viewc = view.GetAllEntriesByKey(FahrTyp) 
	Set entry = viewc.GetFirstEntry	

	Do Until entry Is Nothing
		Msgbox (entry.ColumnValues(2))
		Set entry = viewc.GetNextentry (entry)
	Loop	


End Sub

Wenn ich nun Auto als Fahrzeugtyp eingebe erhalte ich den jeweiligen Betrag aller Autos. Nun möchte ich aber als weiteres Kriterium die Kategorie mit einbeziehen, d.h wenn ich Fahrzeugtyp Auto eingebe und als Kategorie 2 dann sool 20 ausgegeben werden.
Bin erst beim lernen von LS also bitte um Verständnis

Danke Maria