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;