(nextSequence : table) -- Die Tabelle enthält das nächste zu produzierende -- Los [object, integer, string, table] is i, k : integer; MU,LsBuffer : object; sequence: table; do sequence := nextSequence; LsBuffer := predBufferTbl[1,sequence[3,1]]; -- Anhand von BE.Name (in Spalte 3 von sequence) wird -- abgefragt in welchem Puffer das Material liegt. AchtungTbl.delete; FOR i := 1 to sequence[2,1] LOOP AchtungTbl[2,i] := LsBuffer.numMU; AchtungTbl[1,i] := LsBuffer.MU(i); NEXT; --Tabelle, nur zum debuggen -- Die BEs aus dem entsprechenden Buffer werden in -- die Tabelle AchtungTbl geschrieben zusammen mit dem momentanen Pufferstand. -- Dabei kommt es zu keinem Problem. Die Bes werden korrekt in die Tabelle geschrieben. for i := 1 to sequence[2,1] loop IF LsBuffer.MU(i) /= VOID -- Ungleich VOID bedeutet es existieren genug BEs im Puffer THEN LsBuffer.MU(i).move(LotBuffer); -- Bewege BE i vom LsPuffer in den LosPuffer der BS Linie ELSE --debug; -- Gleich VOID print "Problem after : ", i, " of : ",sequence[2,1]; print "numMUs : ",LsBuffer.numMU; EXITLOOP; END; -- of IF next; end; -- predBufferTbl sieht zum Beispiel so aus: -- Part_A .Models.Werkbank.Factory.MotherFrameLS.ExitBuffer1