22. September 2008 16:01
22. September 2008 16:23
23. September 2008 08:31
Stückliste.SETRANGE("Stücklistennr.", Artikelnr);
EXIT(NOT Stückliste.ISEMPTY);Stückliste.SETRANGE("Stücklistennr.", Artikelnr);
IF Stückliste.FINDSET THEN
 REPEAT
 IF Artikelnr <> Stückliste."Nr." THEN //rekursive Stücklisten nicht berücksichtigen
 BEGIN
  IF StücklisteVorhanden(Stückliste."Nr.") THEN
   BuchBlattStücklisteFüllen(Stückliste."Nr.");
   zaehler += 1; //zeilenzähler
  //Buchungsblatt füllen o.ä.
 END;  
 UNTIL Stückliste.NEXT = 0;