Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: _Arne_ am 16.10.02 - 16:01:38

Titel: Text Feld umrechnen
Beitrag von: _Arne_ am 16.10.02 - 16:01:38

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?

Titel: Re:Text Feld umrechnen
Beitrag von: Axel am 16.10.02 - 16:27:41

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

Titel: Re:Text Feld umrechnen
Beitrag von: _Arne_ am 22.10.02 - 09:11:07

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

Titel: Re:Text Feld umrechnen
Beitrag von: Axel am 22.10.02 - 09:19:26

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

 

Titel: Re:Text Feld umrechnen
Beitrag von: _Arne_ am 22.10.02 - 09:28:32

Illegal Function Call (-: schnief..

Titel: Re:Text Feld umrechnen
Beitrag von: Axel am 22.10.02 - 09:46:21

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

Titel: Re:Text Feld umrechnen
Beitrag von: _Arne_ am 22.10.02 - 09:53:40

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!

Titel: Re:Text Feld umrechnen
Beitrag von: Axel am 22.10.02 - 10:05:59

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  

Titel: Re:Text Feld umrechnen
Beitrag von: _Arne_ am 22.10.02 - 10:44:54

Klasse! Gibt ne  1++  8)