Hallo Meiky,
ok Danke.
Ich hätte einen kleinen Verbesserungsvorschlag für das ::Liste_Füllen. Bitte vorher ein Backup Machen.
1. Bei alle Eingabeelemente nach ::Liste_Füllen bis Beende Unterprogamm (Zurück) den Text Löschen.
2. den Befehl Setze vor Beende Unterprogamm (Zurück) einfügen.
3. im Befehl Setze bei Mehrfach Setzen folgendes eingeben.
cX.Anzeige.Element(Feld[Artikel_Feld_ArtikelID]).Text = [cX.Datensatz.Feld(ArtikelID)]
cX.Anzeige.Element(Artikel_Feld_EAN).Text = [cX.Datensatz.Feld(EAN)]
cX.Anzeige.Element(Artikel_Feld_Artikelnummer).Text = [cX.Datensatz.Feld(Artikelnummer)]
cX.Anzeige.Element(Artikel_Feld_Artikelname).Text = [cX.Datensatz.Feld(Artikelname)]
cX.Anzeige.Element(Artikel_Feld_Artikelart).Text = [cX.Datensatz.Feld(Artikelart)]
cX.Anzeige.Element(Artikel_Feld_Lagerplatz).Text = [cX.Datensatz.Feld(Lagerplatz)]
cX.Anzeige.Element(Artikel_Feld_Bestand).Text = [cX.Datensatz.Feld(Bestand)]
cX.Anzeige.Element(Artikel_Feld_Einkaufspreis).Text = [cX.Datensatz.Feld(Einkaufspreis)§0.00 €]
cX.Anzeige.Element(Artikel_Feld_Verkaufspreis).Text = [cX.Datensatz.Feld(Verkaufspreis)§0.00 €]
cX.Anzeige.Element(Artikel_Feld_Versandkosten).Text = [cX.Datensatz.Feld(Versandkosten)§0.00 €]
4. die Sprungmarke ::Liste_Füllen vor den Befehl Setze verschieben.
Sollte dann in etwa so aussehen
Eingabe-Element (ID='Feld[Artikel_Feld_ArtikelID]', X='60', Y='7,5', Breite='10', Zielfenster='Fenster_Artikel')
Eingabe-Element (ID='Artikel_Feld_EAN', X='22', Y='7,5', Breite='30', Zielfenster='Fenster_Artikel')
Eingabe-Element (ID='Artikel_Feld_Artikelnummer', X='22', Y='15,5', Breite='30', Zielfenster='Fenster_Artikel')
Eingabe-Element (ID='Artikel_Feld_Artikelname', X='22', Y='23,5', Breite='106', Zielfenster='Fenster_Artikel')
Eingabe-Element (ID='Artikel_Feld_Artikelart', X='107,65', Y='7,5', Breite='20', Zielfenster='Fenster_Artikel', deaktiviert 0)
Eingabe-Element (ID='Artikel_Feld_Lagerplatz', X='102,15', Y='35', Breite='20', Zielfenster='Fenster_Artikel', deaktiviert 0)
Eingabe-Element, Ausrichtung=3 (ID='Artikel_Feld_Bestand', X='107,65', Y='15,5', Breite='20', Zielfenster='Fenster_Artikel', deaktiviert 0)
Eingabe-Element, Ausrichtung=3 (ID='Artikel_Feld_Einkaufspreis', X='30,65', Y='35', Breite='25', Zielfenster='Fenster_Artikel', deaktiviert 0)
Eingabe-Element, Ausrichtung=3 (ID='Artikel_Feld_Verkaufspreis', X='30,65', Y='43', Breite='25', Zielfenster='Fenster_Artikel', deaktiviert 0)
Eingabe-Element, Ausrichtung=3 (ID='Artikel_Feld_Versandkosten', X='30,65', Y='51', Breite='25', Zielfenster='Fenster_Artikel', deaktiviert 0)
:: Liste_Füllen
Setze , MultiSet 'cX.Anzeige.Element(Feld[Artikel_Feld_ArtikelID]).Text = [cX.Datensatz.Feld(ArtikelID)]¶cX.Anzeige.Element(Artikel_Feld_E...'
Beende Unterprogramm (Zurück)
Es werden nur noch die Element Inhalte geändert, ohne das die Elemente neu aufgebaut werden.
Gruß
Martin