Multivalue -> Tabelle

[Gerardo50]

Hallo Forum!

Euch allen nachträglich alles Gute im Neuen Jahr! 

Ich habe folgende Frage.

Ein Kunde hat in einer R5 Datenbank Produktdaten in der Form:

Artikelbezeichnung, Preis, Menge, Farbe(n).

Der Artikel wurde aber jeweils nur in einem einzelnen Dokument definiert (nicht für jede Farbe ein extra Dokument) mit den Farben als multivalue Wert.

In einem Auftragsformular (Tabelle?) sollen jetzt die einzelnen Farben des Artikels untereinander in separaten Zeilen aufscheinen, um gleich bei jeder Farbe die Anzahl der verkauften Position angeben zu können.

Also z.B.:

Hemd Traveller, 75€, 2Stk, beige
Hemd Traveller, 75€, 10Stk, weiss
usw.


Danach sollte jeder Eintrag pro Zeile (Farbe) wieder als eigener Datensatz gespeichert werden, um eine Auswertung wie z.B.: wie viele weisse Hemden vom Typ Traveller haben wir verkauft?


Mein Frage wäre also, wie gehe ich am besten vor um diese  Aufgabenstellung zu lösen? 

Herzlichen Dank im voraus,

Geri

[Axel]

Du erstellst dir eine Maske für die Artikel. Dann gehst du die Multivalue-Felder mit einer Schleife durch und legst für jeden Eintrag ein neues Dokument an.


Die Schleife könnte ganz grob so aussehen:
...
For i = 0 to Ubound(doc.Artikelliste)
  Set newdoc = New NotesDocument
  newdoc.Form = "Artikel"
  'Feldwert des Listenfeldes auf die einzelnen Maskenfelder verteilen
  newdoc.Bezeichnung = StrToken(doc.Artikelliste(i), ", ", 1)
  newdoc.Preis = StrToken(doc.Artikelliste(i), ", ", 2)
  newdoc.Menge = StrToken(doc.Artikelliste(i), ", ", 3)
  newdoc.Farbe = StrToken(doc.Artikelliste(i), ", ", 4)
  Call newdoc.Save(True, False)
Next
...

In Abhängigkeit der gewählten Feldtypen müssen die Werte natürlich noch in den richtigen Datentyp konvertiert werden.

Axel

[Gerardo50]

  Herzlichen Dank für die Anregung Axel! Ich werd mich gleich an die Arbeit machen und ein wenig probieren....

Lieben Gruß,

Geri