---

Hallo zusammen,
ich habe da ein Problem. Und zwar möchte ich mit Hilfe eine Abrufliste Aufträge an drei Spritzgussmaschinen weitergeben. Die Abrufliste enthält vier Spalten: Produkt/Stückzahl/Quelle/Ziel. Der Fertigungsaufträge soll jeweils an Maschine übergeben werden, welcher den geringsten Arbeitslast aufweist. Die Arbeitslast der Maschinen wird durch das Summieren der eingehenden Auftragsstückzahl erzeugt und nach Fertigung wieder dekrementiert.
Durch die Methode habe ich geschaft, dass die ersten beiden Maschinen Aufträge aufnehmen und produzieren. Aber ich weiß nicht wie ich in meine Methode die dritte Maschine einbeziehen kann. Kann mir da jemand weiterhelfen. Danke!

Die Methode:

-- Funktion: Abrufe erzeugen

(nAbruf : integer)

is
  Quelle, Ziel, Produkt: string;
  Last1,Last2,Last3: integer;
  SGM: object;
do
  -- nächstes Produkt und Teileanzahl aus der Abrufliste ablesen
  Produkt:= tblAbrufliste["Produkt",nAbruf];
  AnzTeile:= tblAbrufliste["Stückzahl",nAbruf];
  Quelle:= tblAbrufliste["Quelle",nAbruf];
  Ziel:= tblAbrufliste["Ziel",nAbruf];

-- die Auslastung der Maschinen zuweisen
  Last1:= root.SGM1.vArbeitslast;
  Last2:= root.SGM2.vArbeitslast;
  Last3:= root.SGM3.vArbeitslast;

  if Quelle="SGM" then   
  if Last1 <= Last2 then
  SGM := root.SGM1;
  else
  SGM:= root.SGM2;
  end;
end;

    if AnzTeile > 0 then

    inspect Quelle
    when "SGM" then
 
-- Beim SGM-Anlage abrufen
    SGM.mAuftrag(Produkt,AnzTeile,nAbruf);
    nAbruf := nAbruf + 1;

  end;
  end;
end;

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Sie müssten Ihre Bedingung erweitern:

Code:

---

if Last1 <= Last2 and Last1<= Last3 then
  SGM := root.SGM1;
elseif Last2 <= Last1 and Last2<= Last3 then
  SGM := root.SGM2;
else
  SGM:= root.SGM3;
end;

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielen Dank Bon Simul es hat funktioniert.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP