Radiobutton Feld mit numerischem Wert per LS abfragen

[immanuel]

Hallo Zusammen

Ich habe ein Radiobutton Feld, dass die Werte 1|super 2|weniger gut usw. enthält. Ich versuchte den num. Wert per "ratingValue= doc.FieldGetText("iq_RateIT")" abzufragen, jedoch Wurde immer ein Tex zurpckgegeben, also "gut" usw...
Wie kann ich per LS auf den Wert und nicht auf den Text zugreifen?

Grüsse
Manuel

[MadMetzger]

Du musst das Ganze umgekehrt machen. So wie du es jetzt hast steht in dem Feld bei 1 dann super drin. Also so sollte es aussehen: super|1, dann sieht man den Wert super bei der Darstellung, aber beim Zugriff hat man die 1 zur Verfügung.

[Axel]

Also so sollte es aussehen: super|1, dann sieht man den Wert super bei der Darstellung, aber beim Zugriff hat man die 1 zur Verfügung.

Hi,

richtig, aber die 1 ist Text und keine Zahl.


Axel

[MadMetzger]

Stimmt, habe ich nicht ganz daran gedacht...

[immanuel]

Hallo!
Sorry, ich meinte natürlich zuerst Text | Zahl. So siehts aus: ausgezeichnet | 100, sehr gut | 85, gut | 70, genügend | 50, suboptimal | 20

Wie kann ich mer Lotus Script nun auf die Zahl zugreifen? Wenn das Feld den Wert ausgezeichnet, also 100 hat, wird diese Zahl auch so in den Ansichten aufgeführt. Jedoch, wenn ich den Wert des Feldes Abfrage, erhalte ich "ausgezeichnet" und keine Zahl... Ich möchte jedoch mit Integers arbeiten 

Habt ihr Tipps, wie ich mir LS die Bezeichnung des Wertes und Zahl abfragen kann? Eigentlich interessiert mich nur der Wert (Zahl)..., aber wie handelt das Notes?

Greez
Manuel

[MadMetzger]

Kann es vielleicht an den Leerzeichen neben dem Pipe-Symbol liegen? Ich habe das eben noch mal ausprobiert, und es funktioniert genauso. Egal ob mit oder ohne Leerzeichen.

Auf jeden Fall speichert er von der Zahl auch nur einen String ab, den du mit Cint () aber umwandeln kannst.

[Axel]

Hi,

ich glaube da fehlt das Verständnis für Frontend und Backend und Aliase.

Wenn du mit Frontend-Methoden (NotesUIDocument.FieldGetText usw.) auf das Feld zugreifst bekommst du immer den Wert, der der User in der Maske sieht, also den, links vom | - Zeichen. Mit Backend-Methoden (NotesDocument.GetItemValue usw.) bekommst du immer den Alias-Wert, also den Wert rechts vom |. In der Ansicht siehst du immer den eigentlichen Feldinhalt und das ist der Aliaswert.

Wenn du die Wert als Zahl brauchst, musst du den Feldwert mit Val() in eine Zahl umwandeln.

Bsp.:
Zahl = Val(doc.Feld(0))

Um in der Ansicht den Text darzustellen, wende ich bei solchen Feldern folgenden Trick an:
Im QuerySave-Event lese ich mit der Frontend-Methode GetFieldText den Wert aus und schreibe ihn in ein verstecktes Textfeld. Das nehme ich dann für die Ansicht.

Axel

  

[immanuel]

Hi!

Danke!

Ich habe folgendes versucht, komme aber nicht weiter:
   Dim ws As New NotesUIWorkspace
   Dim NotesDoc As NotesDocument
   Set NotesDoc = ws.CurrentDocument.Document
   
   ratingValue= Cint(NotesDoc.GetItemValue("iq_RateIT"))

Fehler: Type mismatch

Ich bin in den LS Objekten nicht sehr versiert und habe nicht den Durchblick. Wie muss ich das oben schreiben, damit es funktioniert? Ich möchte nur den Wert (ein Integer) des Feldes iq_RateIT in der Maske haben...

Grüsse und Danke!
Manuel

[koehlerbv]

Dann ist es besonders angebracht, sich die DesignerHelp vor Verwendung einer Klasse oder Methode gründlichst 'reinzuziehen.

NotesDocument.GetItemValue liefert ein Array zurück. Ergo muss Deine Zeile heissen:
ratingValue= Cint(NotesDoc.GetItemValue("iq_RateIT") (0))
oder einfacher
ratingValue = Cint (NotesDoc.iq_RateIT (0)

Ausserdem ist ratingValue offensichtlich nicht deklariert.

Bevor Du ein neues LS-Modul beginnst, tippe als erstes immer in die Options-Section: Option Declare. Spart 'ne Menge Ärger !

HTH,
Bernhard

[immanuel]

Hi Bernhard!

Vielen Dank, jetzt klappts!
Hab einiges dazugelernt...

Grüsse aus Zürich
Manuel

[immanuel]

Hallo!

Ich hab noch ne andere Frage. Und zwar funktioniert bei diesem Code die IF Bedingung nicht so wie ich möchte:

Code

Sub Exiting(Source As Field)
	Dim workspace As New NotesUIWorkspace
	Set doc = workspace.CurrentDocument
	Set doc = workspace.EditDocument( True )
	
	Dim ws As New NotesUIWorkspace
	Dim NotesDoc As NotesDocument
	Set NotesDoc = ws.CurrentDocument.Document 
	Dim twoLiner  As String
	Dim ratingValue As Integer
	Dim ratingComent  As String
	Dim commentLength As Integer
	
	ratingValue = Cint (NotesDoc.iq_RateIT (0))
	ratingComment = Cstr(NotesDoc.iq_RateITComment(0))
	commentLength = Len(ratingComment)
	
	' Klammern sind für Array Wert 0
	Messagebox commentLength , MB_OK ,"Variabeltest"
	
	If (ratingValue <= 50 & commentLength < 5) Then	
		twoLiner = |Bitte begründen Sie unten Ihre Bewertung.
Sie helfen so unsere Dienstleistung zu verbessern. Vielen Dank!|	
		Messagebox twoLiner , MB_OK ,"Hinweis"
		doc.GotoField ("iq_RateITComment")	
	Else 
		
	End If
	Call doc.RefreshHideFormulas
	Call doc.Refresh
End Sub

Vorallen If (ratingValue <= 50 & commentLength < 5) funktioniert nicht. commentLength gibt einen CInt zurück, siehe auch "Messagebox commentLength , MB_OK ,"Variabeltest""

Auch wenn der Text der Variable ratingComent mehr als 5 Zeichen hat und  commentLength mehr als 5 sein sollte, klappts mit der Bedingung nicht.

Vielen Dank für eure Hilfe!

Gruss
Manuel

[koehlerbv]

Ich gehe mal davon aus, dass Du mit "&" das LS-"AND" meinst.
"&" verknüpft in LS Strings und hat dort mit dem boolschen Operator "AND" nichts zu tun.

HTH,
Bernhard

[immanuel]

Autsch!!!

Naja, LS ist schon etwas speziell 

Gruss
Manuel

[Axel]

Autsch!!!

Naja, LS ist schon etwas speziell 

Gruss
Manuel

Was ist daran speziell?   
Ist ein Basic-Dialekt.


Axel

[immanuel]

Hi!

Ich bin mir gewohnt, dass IF (i=1) eine Variabelinitialisierung ist und keine Bedingung. In den meisten Programmiersprachen verwendet man doch IF (i==1) und verwendet | also logisches Oder und z.T. && als UND :-)

Greez
Manuel

[Semeaphoros]

Also, wenn Du C und seine Abkömmlinge anschaust, dann stimmt die Aussage, dass ein Vergleich mit == geschrieben wird. Wenn ich aber die rund 20 Programmiersprachen nehme, die ich bisher hab kennengelernt, muss ich sagen, dass die Mehrheit der Programmiersprachen das = sowohl für die Zuweisung eines Wertes wie auch für den Vergleich nehmen. Aus dem Kontext ist immer klar, ob es eine Zuweisung oder eine Bedingung ist. Also bitte die Scheuklappen ablegen und mal die Operatoren-Liste studieren (was sicher ein MUSS sein sollte, wenn man sich in eine neue Programmiersprache begibt, und man darf auch nie davon ausgehen "man macht das einfach so", das gibts nicht)

[Glombi]

Und das schöne an Notes ist, dass Formelsprache und Script grundverschieden sind 
= :=
<> !=
and &
or |

Andreas

[koehlerbv]

Die Ansätze sind aber auch vollkommen verschieden und durchaus historisch begründet.
Das ist einfach ein Fakt und keinerlei Diskussion würdig.

@Manuel: Viel Programmiersprachen kennst Du offensichtlich nicht, sonst würdest Du gar nicht erst ins Jammern kommen ...

Bernhard

[Glombi]

Klar, aber manchmal fällt man eben darauf herein.
Insbesondere dann wenn man viel mit beiden Sprachen programmiert. Und dann kann es schon mal im Eifer des Gefechts vorkommen, dass man in Script
  if bed1 & bed2 then...
schreibt und sich dann wundert, dass was anderes als erwartet passiert 
(Anmerkung: bed1 könnte String und bed2 sogar integer sein  )

Andreas

[TMC]

Tja, ich unterstelle mal, dass vielen schon eine Verwechslung der oder ein Fehler bei den Sprachelementen passiert ist.

Einer meiner häufigsten Fehler:
In @Formula eine Zuordnung mit "=" anstatt "=:" (also Doppelpunkt vergessen).
Die Formel wird ohne Fehlermeldung gespeichert/kompiliert.
Diesen Fehler zu finden ist aber zäh. Ich könnte mir vorstellen, dass die undokumentierte Formel-Debugger-Engine das kann, verwende ich aber nicht (mehr) aufgrund der Instabilität dieser.

Aber LS ist stark an VisualBasic geknüpft, und afaik sind die Sprachelemente da alle identisch - außer dass LS in manchen Dingen noch etwas großzügiger ist. Somit gilt imho die Ausrede nicht "aber in anderen Programmiersprachen ist doch........".