Domino 9 und frühere Versionen > Entwicklung

Text Feld umrechnen

(1/2) > >>

_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..

Navigation

[0] Themen-Index

[#] Nächste Seite