Autor Thema: Text Feld umrechnen  (Gelesen 2820 mal)

Offline _Arne_

  • - Admin Section -
  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 992
  • Geschlecht: Männlich
  • Devops Because Even Developers Need Heroes
    • Das Lotus Notes Forum
Text Feld umrechnen
« 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?

Offline Axel

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
Re:Text Feld umrechnen
« Antwort #1 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
Ohne Computer wären wir noch lange nicht hinterm Mond!

Offline _Arne_

  • - Admin Section -
  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 992
  • Geschlecht: Männlich
  • Devops Because Even Developers Need Heroes
    • Das Lotus Notes Forum
Re:Text Feld umrechnen
« Antwort #2 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
« Letzte Änderung: 22.10.02 - 09:11:30 von Forum Admin »

Offline Axel

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
Re:Text Feld umrechnen
« Antwort #3 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

 
Ohne Computer wären wir noch lange nicht hinterm Mond!

Offline _Arne_

  • - Admin Section -
  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 992
  • Geschlecht: Männlich
  • Devops Because Even Developers Need Heroes
    • Das Lotus Notes Forum
Re:Text Feld umrechnen
« Antwort #4 am: 22.10.02 - 09:28:32 »
Illegal Function Call (-: schnief..

Offline Axel

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
Re:Text Feld umrechnen
« Antwort #5 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
Ohne Computer wären wir noch lange nicht hinterm Mond!

Offline _Arne_

  • - Admin Section -
  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 992
  • Geschlecht: Männlich
  • Devops Because Even Developers Need Heroes
    • Das Lotus Notes Forum
Re:Text Feld umrechnen
« Antwort #6 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!

Offline Axel

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
Re:Text Feld umrechnen
« Antwort #7 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  
Ohne Computer wären wir noch lange nicht hinterm Mond!

Offline _Arne_

  • - Admin Section -
  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 992
  • Geschlecht: Männlich
  • Devops Because Even Developers Need Heroes
    • Das Lotus Notes Forum
Re:Text Feld umrechnen
« Antwort #8 am: 22.10.02 - 10:44:54 »
Klasse! Gibt ne  1++  8)

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz