Text Feld umrechnen

[_Arne_]

Grüße,

denke diesmal ein simples problem_

Ich habe ein Feld: PREIS dieses ist im TEXT format formatiert und enthällt einen DM Preis,die bereits eingebeben Datensätze möchte ich nun in den Euro umrechnen..

jmnd ne idee?

[Axel]

Hi,

versuch's mal so. Erstelle einen Agenten der ausgewählte Dokumente bearbeitet und füge folgenden Code ein.

Ich habs nicht getestet, müsste aber funktionieren.

Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim preis As Single

Set db = session.CurrentDatabase

'Alle markierten Dokumente in Collection
Set collection = db.UnprocessedDocuments

Set doc = collection.GetFirstDocument
While Not (doc Is Nothing)
  preis = Val(doc.Preis(0)) 'Feldwert in Zahl umwandeln
  preis = preis / 1.95583
  doc.Preis = Format(preis, "#.##0,00")
  Call doc.Save(True, False)

  Set doc = collection.GetNextDocument(doc)
Wend

Axel

[_Arne_]

Hum klappt leider nicht (habe allerdings auch 0 Ahnung von Script) er läuft rüber macht aber nix

Der Preis steht im Feld: E_Preis_Anno

[Axel]

Hi,

wahrscheinlich liegt es nur am falschen Feldnamen.

Ändere mal die Zeile wie folgt:

preis = Val(doc.E_Preis_Anno(0)) 'Feldwert in Zahl umwandeln


Axel

 

[_Arne_]

Illegal Function Call (-: schnief..

[Axel]

Hi,

in dieser Zeile
 
doc.Preis = Format(preis, "#.##0,00")

hat sich noch der Fehlerteufel eingeschlichen.

Das muss so aussehen:

doc.Preis = Format(preis, "#,##0.00")  

Dann sollte es klappen.

Axel

[_Arne_]

Auch erfolglos (sorry hab selber so ziemlich kein plan wenn es um script geht)...

noch ne idee?

.. nun kommt kein Fehler mehr aber es passiert auch nichts!

[Axel]

Hi,

sorry, ich hab gepennt.  

Da steht noch der falsche Feldname drin.

So ist's richtig:

doc.E_Preis_Anno = Format(preis, "#,##0.00")


Axel  

[_Arne_]

Klasse! Gibt ne  1++