Ich möchte alle Aufträge eines Kunden zusammentragen. Der Kunde kann mehrfach angelegt sein, das wird vorab geklärt und alle seine Kundennummern in ein Array geschrieben. Das sieht dann in der Scope-Version so aus:
Code: Alles auswählen
auze->(OrdSetFocus("auzeadnr"))
FOR i := 1 TO Len(MEMVAR->gaAdressDubletten)
auze->(DbSetScope(SCOPE_BOTH, MEMVAR->gaAdressDubletten[i]))
auze->(DbGoTop())
DO WHILE .NOT. auze->(EoF())
auze->(OrdSetFocus("auzeadnr"))
Code: Alles auswählen
FOR i := 1 TO Len(MEMVAR->gaAdressDubletten)
auze->(DbSeek(MEMVAR->gaAdressDubletten[i], , "auzeadnr"))
DO WHILE auze->adressnr == MEMVAR->gaAdressDubletten[i] .AND. .NOT. auze->(EoF())
Jan