Hallo!
In einer Produiktion werden verschiedene Teile(WST)verarbeitet, die in Losen in Transportbehältern (LGK) transportiert werden. Nach Anlieferung landen alle erstmal im selben Lager und werden von dort aus an die verschiedenen Fertigungsstätten weiter transportiert.
Die Auslagerung erfolgt "First In, First Out".
Bei Lagereingang wird der LGK in einer Warteschlange (Lagereingang) gespeichert.
Meine Methode lautet:
is
i: boolean;
name: string;
gst,lgk: object;
do
WST.Lagereingang.einfuegen(@);
while GSTvorhanden=FALSE
loop
gst:=.BEs.GST.erzeugen(Wareneingangslager);
i:=true;
GSTvorhanden:=i;
if GSTvorhanden=TRUE
then
lgk:=WST.Lagereingang.lesen;
name:=lgk.name;
inspect name
when "LGK001" then
lgk.umlagern(gst);
gst.umlagern;
GST_ID.einfuegen(1,gst);
when "LGK040" then
lgk.umlagern(gst);
gst.umlagern;
GST_ID.einfuegen(1,gst);
end;
end;
end;
end;
Das Problem ist dabei, dass er aber keine BEs entnimmt sondern neue erzeugt und zwar immer vom Typ LGK001 mit entsprechendem Inhalt! Selbst wenn in der Warteschlange Einträge mit anderem Namen sich befinden.
Hilfe!
Danke schon einmal für euer Interesse und eure Hilfe. Auch für die Probleme, bei denen mir das Forum bereits beigestanden hat!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP