tausendertrennzeichen sofort anzeigen

[Roooky]

Moin moin!

Ich hab ein bearbeitbares Zahlenfeld und hätte gern, dass das eingestellte Tausendertrennzeichen sofort angezeigt wird, wenn der Benutzer eine Eingabe gemacht hat...
Wie geht das wohl? Irgendwie bei Exiting was zum Aktualisieren reinschreiben? Ich leider nix LotusScript...

Vielen Dank schon mal!
Lutz

[koehlerbv]

Gib bei den Maskeneigenschaften an, dass Felder automatisch aktualisiert werden sollen.
Hat die maske sehr viele Felder oder ungecachete @dbLookups, geht das aber performancemässig nach hinten los.

Bernhard

[Roooky]

Danke Bernhard!
Leider ist es nur so wie vermutet und die Performance leidet etwas, grooooße Maske. Kann ich nicht wie beschrieben nur das Feld aktualisieren?

[koehlerbv]

Doch - mit LotusScript im Exiting- oder OnChange-Event.

Bernhard

[Roooky]

Falls jemand ähnliches vorhat: Folgender Code tuts im Exiting Bereich des Feldes.´


Sub Exiting(Source As Field)
   
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim Wert As String, WertNeu As String
   
   Set uidoc = ws.CurrentDocument
   
   Wert = uidoc.FieldGetText("Feldname")
   WertNeu = Format(Wert, "#,###")
   Call uidoc.FieldSetText("Feldname",WertNeu)
   
End Sub


Gruß und Danke,
Lutz

[koehlerbv]

Das geht kürzer, Lutz:

   Dim ws As New NotesUIWorkspace
   Call ws.CurrentDocument.Refresh

Bernhard 

[DerAndre]

Aber dann wird doch das ganze doc refreshed, oder?
Und das wollte Lutz doch nciht.

[koehlerbv]

Der Refresh erfolgt aber nur einmal (i.d.R.), wohingegen der erste Vorschlag mit dem permanenten Aktualisieren das ja tatsächlich bei jeder Feldänderung tut.
Und Format nagelt Dich hier auch mit den digits fest ...

Bernhard

[Roooky]

Eigentlich möchte ich das nicht, stimmt. Aber so schlimm wärs nu auch wieder nicht, das Feld wird nur sehr selten geändert. Hautpsache ist, dass ich nicht den Effekt von "Felder automatisch aktualiseren" hab.
Lutz

@bernhard: du warst schneller....

[DerAndre]

Ah, Antwort#1 hat sich mir irgendwie entzogen...

[Roooky]

Hallo nochmal!

Jetzt hab ich leider ein anderes Problem, was vielleicht mit dem ersten zusammenhängt.

In die Eingabevalidierung des gleichen Feldes schreibe ich:

@If(StZahl_1 <= 150000; @Success; @Failure("Über 150.000 produzierte Teile in dieser Schicht? Herzlichen Glückwunsch, Sie sind der Mitarbeiter des Monats!"))

StZahl_1 ist ein bearbeitbares Zahlenfeld.
Die Validierung arbeitet korrekt, aber beim ersten öffnen der Maske bekomme ich eine Fehlermeldung: "Für Vergleichsoperatoren müssen zwei Werte desselben Datentyps angegeben werden."
Tja, seh ich ja auch so. Nur was mache ich falsch?
Hab das mit dem Tausendertrennzeichen schon wieder rausgenommen, keine Änderung.
Hab die 150000 in Anführungszeichen gesetzt, StZahl_1 in Text umgewandelt, und alle Änderungen untereinander fröhlich kombiniert - aber es geht einfach nicht...

please support 

[koehlerbv]

Das hat mit dem Exiting nichts zu tun.

@If(@IsNumber (StZahl_1) & StZahl_1 >= 150000; @Success; @Failure("Über 150.000 produzierte Teile in dieser Schicht? Herzlichen Glückwunsch, Sie sind der Mitarbeiter des Monats!"))

Beim Erstellen des Dokuments ist StZahl_1 ja noch "" ...

Bernhard

[Roooky]

Danke Bernhard!!!

Einen kleinen Fehler hattest du allerdings, tztztz   
Klar, aus "<" muss ">" werden (wurde mir zumindest irgendwann klar...), aber es müssen auch @success und @failure getauscht werden.

THX!!

[Roooky]

Ach so, das Problem könnte eventuell gewesen sein, dass du den @failure-Text ernst genommen hast... Ist allerdings ironisch gemeint, denn mehr als 150.000 Teil pro Schicht kann man nicht produzieren...

[koehlerbv]

Nein, nein, das war schon mein Fehler - ich habe nur auf das <= gestiert und nicht gesehen, dass die Reihenfolge @Success / @Failure ja zum gewünschten Ergebnis führt!

Bernhard

[cebolina]

Hallo Bernhard,

ich möchte mich mal zu dem ursprünglichen Problem einmischen:

Ich verwende sehr oft diese in der Hilfe beschriebe Möglichkeit, um den gewünschten Effekt zu erhalten:

Sub Exiting(Source As Field)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = workspace.CurrentDocument
  Call uidoc.Refresh
End Sub

Wo liegt der große Unterschiede zu deiner "kurzen" Lösung? Welche Lösung ist evtl. performanter?


Gruß
Stefan

[Glombi]

Das Exiting Event ist denkbar schlecht für sowas, denn es wird nicht immer ausgeführt. Wenn bspw. der User <Strg>-S und dann ESC druckt oder es eine Aktion in der Aktionsleiste gibt, die das macht, wird der Focus im Dokument nicht verändert und das Exiting Event wird nicht ausgeführt.

Andreas

[koehlerbv]

Der "grosse Unterschied" ist: Ich muss weniger tippen ...

In diesem Fall entspricht der NotesUIWorkspace bereits dem geöffneten NotesUIDocument. NotesUIDocument.Refresh und NotesUIWorkspace.ViewRefresh triggern dann beide das PostRecalc der Maske. Somit gibt es auch seitens der Performance keine (messbaren) Unterschiede.

Andreas: Das unter bestimmten Umständen (tatsächlich und natürlich) das Exiting gar nicht erst getriggert wird, ist im vorliegenden Fall aber vollkommen Banane 

Bernhard

[cebolina]

@Bernhard
Also ist es (bis auf meinen erhöhten Schreibaufwand) egal.
Danke

@Glombi
Dass das Exiting Event nicht immer ausgeführt wird ist (zumindest in meinem Fall) tatsächlich egal - wie Bernhard bereits geschrieben hat. Aber trotzdem Danke für den Hinweis.

Gruß
Stefan

[Roooky]

Nachtrag: Es ist doch nicht egal!

Der kurze Refresh-Code produziert einen Fehler, wenn die Zahl geändert wird.
Wenn z.B. tausend, also "1.000", im Feld steht und man merkt, dass man sich vertippt hat und eine Null wegnimmt, bleibt "1.00" stehen, nicht "100".

Nach Speichern und erneutem Öffnen heißt es dann: "FEHLER: Nicht erkannte Zeichen hinter Zahl"...