7. Dezember 2011 15:00
7. Dezember 2011 15:17
7. Dezember 2011 17:16
7. Dezember 2011 17:21
Beaker hat geschrieben:Hallo Aydin,
Wie kann ich hier folgendes abfragen:
Artikel ABC - Sprachcode '' - Zeilennr. 10000 - Code "WARENGRUPPE1" - Kennung ''
Artikel ABC - Sprachcode '' - Zeilennr. 20000 - Code "WARENGRUPPE1" - Kennung ''
Artikel ABC - Sprachcode '' - Zeilennr. 30000 - Code "WARENGRUPPE1" - Kennung 'X' (letzter Code/Artikel)
Artikel ABC - Sprachcode '' - Zeilennr. 10000 - Code "WARENGRUPPE2" - Kennung ''
Artikel ABC - Sprachcode '' - Zeilennr. 20000 - Code "WARENGRUPPE2" - Kennung ''
Artikel ABC - Sprachcode '' - Zeilennr. 30000 - Code "WARENGRUPPE2" - Kennung ''
Artikel ABC - Sprachcode '' - Zeilennr. 40000 - Code "WARENGRUPPE2" - Kennung 'X' (letzter Code/Artikel)
Artikel DEF - Sprachcode '' - Zeilennr. 10000 - Code "WARENGRUPPE1" - Kennung 'X' (letzter Code/Artikel)
Artikel GHI - Sprachcode '' - Zeilennr. 10000 - Code "WARENGRUPPE1" - Kennung ''
Artikel GHI - Sprachcode '' - Zeilennr. 20000 - Code "WARENGRUPPE1" - Kennung 'X' (letzter Code/Artikel)
etc.
Artikel ABC - Sprachcode '' - Zeilennr. 10000 - Code "WARENGRUPPE2" - Kennung ''
Artikel ABC - Sprachcode '' - Zeilennr. 20000 - Code "WARENGRUPPE2" - Kennung ''
Artikel ABC - Sprachcode '' - Zeilennr. 30000 - Code "WARENGRUPPE2" - Kennung ''
7. Dezember 2011 17:47
REPEAT
SETRANGE("Artikelnr.","Artikelnr.");
SETRANGE(Sprachcode,Sprachcode);
SETRANGE("Zeilennr.","Zeilennr.");
FIND('+');
// Hier deine Änderung an dem Datensatz, bzw. den Datensatz für spätere Verarbeitung markieren oder ähnliches...
SETRANGE("Artikelnr.");
SETRANGE(Sprachcode);
SETRANGE("Zeilennr.");
UNTIL NEXT = 0;
7. Dezember 2011 17:50
7. Dezember 2011 17:56
7. Dezember 2011 18:01
7. Dezember 2011 18:13
7. Dezember 2011 18:26
if myTable.Findset then
Repeat
if hvArtikelnr. != myTable.Artikelnr. AND hvArtikelnr. != '' then //Wenn ein Wechsel stattfindet
Begin
myTable2.Get(hvArtikelnr.,hvSprachcode,hvZeilennr.)
myTable2.Code := myTable2.Code + 'X'
myTable2.modify(true);
End
hvArtikelnr. := myTable.Artikelnr.;
hvSprachcode := myTable.Sprachcode;
hvZeilennr. := myTable.Zeilennr.;
until myTable.Next = 0;
7. Dezember 2011 19:03
11. Dezember 2011 14:52