---

MontageMO01.JPG

Hallo,

folgendes Problem.

ich habe mehrere Montagenetzwerke in einer Fabrik. In diesen Montagenetzwerken werden Einzelteile aus einer mechanischen Fertigung angeliefert.
Sobald die Einzelteile ankommen werden sie in einer Tabelle registriert und anschließend vernichtet.
Die Baugruppen erzeuge ich als BE, mit Benutzerdefinierten Attributen (Baugruppen teil 1 & Anzahl ,Teil 2 & Anzahl usw.)
Die Baugruppen bestehen aus bis zu 50 teilen. Sobald die Baugruppe die Montage erreicht wird in der Tabelle geschaut ob die teile da sind und anschließend umgelagert.

Mein Problem ist meine Methode zum teile in der Tabelle suchen und löschen ist viel zu langsam.
Gibt es da vielleicht eine andere Möglichkeit?

Methode:

is
k:integer;
i:integer;
j:integer;
m:integer;
Folge_Arbeitsstation:Object;
do
i:=1;
j:=1;
--Einlesen: Anzahl der Bauteile, Bauteilauftragsnummer--
--Solange die gesamt Bauteilanzahl größer 0 ist läuft die schleife--
--Bei jeder entnahme eines Bauteiles wird das Attribut "Bauteile_Anzahl" der BG erniedrigt--
for j:=@.Bauteile_Anzahl downto 0 loop
--Wenn die benötigte Teileanzahl größer 0 ist wird die Anweisung ausgeführt--
if @.Bauteil_Nummer_1_Anzahl > 0 then
Bestand_MO03_Eingangspuffer_ET.setzeZeiger(0,1);
--Suchen des Bauteiles in der Tabelle, zur Ermittlung des Lagerstandortes--
if Bestand_MO03_Eingangspuffer_ET.finden({0,1}..{0,Bestand_MO03_Eingangspuffer_ET.Ydim},@.Bauteil_Nummer_1) then
i:=Bestand_MO03_Eingangspuffer_ET.ZeigerY;
--Löschen des Bauteils aus der Tabelle--
--Registrierung in Baugruppe das der Bauteil aufgeladen ist--
Bestand_MO03_Eingangspuffer_ET.loeschen({0,i}..{2,i});

  
@.Bauteil_Nummer_1_Anzahl:=@.Bauteil_Nummer_1_Anzahl-1;
@.Bauteile_Anzahl:=@.Bauteile_Anzahl-1;
else
--Wenn ein Einzelteil noch nicht da ist, kommt die Baugruppe bis zum nächsten Tag in den Zwischenpuffer--
@.umlagern(MO03_Eingangspuffer_BG);
exitloop;
end;
end;

Bestand_MO03_Eingangspuffer_ET.setzeZeiger(0,1);
if @.Bauteil_Nummer_2_Anzahl > 0 then
if Bestand_MO03_Eingangspuffer_ET.finden({0,1}..{0,Bestand_MO03_Eingangspuffer_ET.Ydim},@.Bauteil_Nummer_2) then
i:=Bestand_MO03_Eingangspuffer_ET.ZeigerY;

Bestand_MO03_Eingangspuffer_ET.loeschen({0,i}..{2,i});

@.Bauteil_Nummer_2_Anzahl:=@.Bauteil_Nummer_2_Anzahl-1;
@.Bauteile_Anzahl:=@.Bauteile_Anzahl-1;
else
@.umlagern(MO03_Eingangspuffer_BG);
exitloop;
end;
end;
Bestand_MO03_Eingangspuffer_ET.setzeZeiger(0,1);
if @.Bauteil_Nummer_3_Anzahl > 0 then
if Bestand_MO03_Eingangspuffer_ET.finden({0,1}..{0,Bestand_MO03_Eingangspuffer_ET.Ydim},@.Bauteil_Nummer_3)then
i:=Bestand_MO03_Eingangspuffer_ET.ZeigerY;
  
Bestand_MO03_Eingangspuffer_ET.loeschen({0,i}..{2,i});
  
@.Bauteil_Nummer_3_Anzahl:=@.Bauteil_Nummer_3_Anzahl-1;
@.Bauteile_Anzahl:=@.Bauteile_Anzahl-1;
else
@.umlagern(MO03_Eingangspuffer_BG);
exitloop;
end;
end;
Bestand_MO03_Eingangspuffer_ET.setzeZeiger(0,1);
if @.Bauteil_Nummer_4_Anzahl > 0 then
if Bestand_MO03_Eingangspuffer_ET.finden({0,1}..{0,Bestand_MO03_Eingangspuffer_ET.Ydim},@.Bauteil_Nummer_4)then
i:=Bestand_MO03_Eingangspuffer_ET.ZeigerY;

Bestand_MO03_Eingangspuffer_ET.loeschen({0,i}..{2,i});
  
@.Bauteil_Nummer_4_Anzahl:=@.Bauteil_Nummer_4_Anzahl-1;
@.Bauteile_Anzahl:=@.Bauteile_Anzahl-1;
else
@.umlagern(MO03_Eingangspuffer_BG);
exitloop;
end;
end;
Bestand_MO03_Eingangspuffer_ET.setzeZeiger(0,1);
if @.Bauteil_Nummer_5_Anzahl > 0 then
if Bestand_MO03_Eingangspuffer_ET.finden({0,1}..{0,Bestand_MO03_Eingangspuffer_ET.Ydim},@.Bauteil_Nummer_5)then
i:=Bestand_MO03_Eingangspuffer_ET.ZeigerY;
  
Bestand_MO03_Eingangspuffer_ET.loeschen({0,i}..{2,i});

@.Bauteil_Nummer_5_Anzahl:=@.Bauteil_Nummer_5_Anzahl-1;
@.Bauteile_Anzahl:=@.Bauteile_Anzahl-1;
else
@.umlagern(MO03_Eingangspuffer_BG);
exitloop;
end;
end;
Bestand_MO03_Eingangspuffer_ET.setzeZeiger(0,1);
if @.Bauteil_Nummer_6_Anzahl > 0 then
if Bestand_MO03_Eingangspuffer_ET.finden({0,1}..{0,Bestand_MO03_Eingangspuffer_ET.Ydim},@.Bauteil_Nummer_6)then
i:=Bestand_MO03_Eingangspuffer_ET.ZeigerY;

Bestand_MO03_Eingangspuffer_ET.loeschen({0,i}..{2,i});

@.Bauteil_Nummer_6_Anzahl:=@.Bauteil_Nummer_6_Anzahl-1;
@.Bauteile_Anzahl:=@.Bauteile_Anzahl-1;
else
@.umlagern(MO03_Eingangspuffer_BG);
exitloop;
end;
end;
Bestand_MO03_Eingangspuffer_ET.setzeZeiger(0,1);
if @.Bauteil_Nummer_7_Anzahl > 0 then
if Bestand_MO03_Eingangspuffer_ET.finden({0,1}..{0,Bestand_MO03_Eingangspuffer_ET.Ydim},@.Bauteil_Nummer_7)then
i:=Bestand_MO03_Eingangspuffer_ET.ZeigerY;

Bestand_MO03_Eingangspuffer_ET.loeschen({0,i}..{2,i});
  
@.Bauteil_Nummer_7_Anzahl:=@.Bauteil_Nummer_7_Anzahl-1;
@.Bauteile_Anzahl:=@.Bauteile_Anzahl-1;
else
@.umlagern(MO03_Eingangspuffer_BG);
exitloop;
end;
end;
Bestand_MO03_Eingangspuffer_ET.setzeZeiger(0,1);
if @.Bauteil_Nummer_8_Anzahl > 0 then
if Bestand_MO03_Eingangspuffer_ET.finden({0,1}..{0,Bestand_MO03_Eingangspuffer_ET.Ydim},@.Bauteil_Nummer_8)then
i:=Bestand_MO03_Eingangspuffer_ET.ZeigerY;

Bestand_MO03_Eingangspuffer_ET.loeschen({0,i}..{2,i});
  
@.Bauteil_Nummer_8_Anzahl:=@.Bauteil_Nummer_8_Anzahl-1;
@.Bauteile_Anzahl:=@.Bauteile_Anzahl-1;
else
@.umlagern(MO03_Eingangspuffer_BG);
exitloop;
end;
end;
Bestand_MO03_Eingangspuffer_ET.setzeZeiger(0,1);
if @.Bauteil_Nummer_9_Anzahl > 0 then
if Bestand_MO03_Eingangspuffer_ET.finden({0,1}..{0,Bestand_MO03_Eingangspuffer_ET.Ydim},@.Bauteil_Nummer_9)then
i:=Bestand_MO03_Eingangspuffer_ET.ZeigerY;
  
Bestand_MO03_Eingangspuffer_ET.loeschen({0,i}..{2,i});

@.Bauteil_Nummer_9_Anzahl:=@.Bauteil_Nummer_9_Anzahl-1;
@.Bauteile_Anzahl:=@.Bauteile_Anzahl-1;
else
@.umlagern(MO03_Eingangspuffer_BG);
exitloop;
end;
end;
Bestand_MO03_Eingangspuffer_ET.setzeZeiger(0,1);
if @.Bauteil_Nummer_10_Anzahl > 0 then
if Bestand_MO03_Eingangspuffer_ET.finden({0,1}..{0,Bestand_MO03_Eingangspuffer_ET.Ydim},@.Bauteil_Nummer_10)then
i:=Bestand_MO03_Eingangspuffer_ET.ZeigerY;
  
Bestand_MO03_Eingangspuffer_ET.loeschen({0,i}..{2,i});

@.Bauteil_Nummer_10_Anzahl:=@.Bauteil_Nummer_10_Anzahl-1;
@.Bauteile_Anzahl:=@.Bauteile_Anzahl-1;
else
@.umlagern(MO03_Eingangspuffer_BG);
exitloop;
end;
end;
--Wenn alle Teile da sind (vernichtet wurden) wird die Baugruppe an die Folge_Arbeitsstation weitergegeben--
if @.Bauteile_Anzahl=0 then
Folge_Arbeitsstation:=Str_To_Obj(@.Folge_Arbeitsstation);
@.umlagern(Folge_Arbeitsstation);
exitloop;
end;                      
next;
end;

[Diese Nachricht wurde von Erti10 am 18. Jan. 2014 editiert.]

[Diese Nachricht wurde von Erti10 am 18. Jan. 2014 editiert.]

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

---

Beim Löschen der Bauteileaus der Tabelle sollten Sie die Zeile löschen, sonst wird die Tabelle immer größer:

anstatt:
Bestand_MO03_Eingangspuffer_ET.loeschen({0,i}..{2,i});

besser:
Bestand_MO03_Eingangspuffer_ET.entferneZeile(i);

weiter könnten Sie darüber nachdenken, anstatt die Teile in der Tabelle zu speichern, nur noch den Bestand der Teile in der Tabelle zu speichern (Zugang: +1, Abgang: -1). Sie könnten dazu den Teilenamen als Zeilenindex verwenden. Damit sparen Sie sich das Suchen komplett.

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

---

Vielen dank 

Dieser Tipp, mit den Zeilen löschen, hat meine Simulationzeit von 12 Stunden auf 66 Minuten reduziert 

zur Index Steuerung:

Da ich in meiner Simulation sehr viel Teile habe wäre es wahrscheinlich die bessere Möglichkeit.

Gibt es dazu einen Beispielcode wie man sowas lösen könnte.

Beim eintragen in die Liste:

Suche im index Chargennummer (=kalenderwoche+materialnummer)

wenn er die Nummer findet erhöht er den wert,in der tabelle, um eins, wenn nicht erzeugt er die chargennummer in der tabelle.

Beim entnehmen:
sucht die Methode im index nach dem benötigten teil und anzahl

wenn sie den wert findet, erniedrigt die methode den wert um die benötigte Anzahl

Danke schonmal

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

---

Sie können die Teile-Namen aller ET in die Tabelle Bestand_MO03_Eingangspuffer_ET als Zeilenindex eintragen (einmaliger Aufwand).

Beim Einlagern reicht dann:

Bestand_MO03_Eingangspuffer_ET[1,@.name]:=
Bestand_MO03_Eingangspuffer_ET[1,@.name]+1;

Auslagerung entsprechend -1.

Wenn Sie wissen wollen, ob das Teil vorhanden ist:

if Bestand_MO03_Eingangspuffer_ET[1,@.Bauteil_Nummer_3] > 0 then
...
end;

Zitat:

---

Suche im index Chargennummer (=kalenderwoche+materialnummer)

---

wozu ?? normalerweise FiFo

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

---

Danke nochmal für die Infos  

"wozu ?? normalerweise FiFo"

In meiner digitalen Fabrik werden 9 verschiedene Motoren gefertigt. Dabei werden jede Woche 3 unterschiedliche typen gebaut, über das jahr ändern sich die Aufträge. jetzt baue ich die Bauteile chargennummer abhängig zusammenbauen. Motor 401 wird dann nur mit 401er bauteilen zusammengebaut. deshalb die chargennummer.

Motoren gibt es materialnummer: 401xxx,402xxx,403xxx,601xxx,602xxx usw.

z.b. Materilanummer: 401343
Kalenderwoche: 1
Ergibt chargennummer: 1401343

somit kann ich die Teile eindeutig den Motoren zuordnen.

auf jeden fall danke für die Index nachhilfe   ich werde das mal testen und berichten  

es kann auch passieren, dass einzelteile, aus der vorfertigung, für die montage, noch nicht verfügbar sind.

Gruß

[Diese Nachricht wurde von Erti10 am 20. Jan. 2014 editiert.]

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