Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  TM - Plant Simulation
  Attribute BEs

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Attribute BEs (953 mal gelesen)
tajo
Mitglied


Sehen Sie sich das Profil von tajo an!   Senden Sie eine Private Message an tajo  Schreiben Sie einen Gästebucheintrag für tajo

Beiträge: 4
Registriert: 07.11.2013

erstellt am: 12. Nov. 2013 12:45    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Halli Hallo!

hab da mal ein Problem und hoffe ihr könnt mir da weiterhelfen. Wir möchten beim erzeugen der BEs diesen verschiedene Attribute mitgeben.

Pro Quelle haben wir ein BE zugeordnet welches erzeugt werden soll. Die Attribute stehen in einer Tabelle die wir aus Excel eingelesen haben.

Wir möchten Quelle für Quelle durchgehen und beim erzeugen des jeweiligen BEs die entsprechenden Attribute einlesen lassen.

In Zeile "28" haben wir definiert, dass das BE der derzeit angesprochenen Quelle in der Tabelle gefunden werden soll. Uns sucht er aber die Teile raus die keinen Pfad hinterlegt haben. Wie können wir das lösen, bzw. das "?" anders definieren?

Wären um jede Hilfe dankbar! 

Hier ist unser Code:

-- .Modelle.Einstiegsmaske.Sammlung_Methoden.init
is
  --deklariere Variablen
Stufennummer: string;
Komponentennummer: string;
Objektkurztext: string;
MArt: string;
Menge: string;
ME: string;
Takt: string;
JIT_Teile: string;
Halbzeuge: string;
Quellen_Baugruppen: object;
Quelle_Erzeugungsintervall: time;
Baugruppe: string;
Bearbeitungszeit_Montage: time;
Ziel_Teileprüfung_Puffer: object;
BE: object;

 
do  -- Suche alle Variablen raus und lasse diese auf den Quellen erzeugen
.Modelle.Einstiegsmaske.Grundlagen_Daten.setzeZei​ger("Quellen_Baugruppen",1);
--Setze den Zeiger in Tabelle "Grundlagen_Daten" auf Spalte "Quellen_Baugruppen" und Zeile 1
 
 
  for local i:=1 to .Modelle.Einstiegsmaske.Grundlagen_Daten.maxYDim loop  --durchlaufe die Tabelle von Anfang an bis zur letzten Zeile der Tabelle
 
    if .Modelle.Einstiegsmaske.Grundlagen_Daten.finden({"​Quellen_Baugruppen",*}..{"Quellen_Baugruppen",*},?​ ;
  then                             
    Stufennummer:=.Modelle.Einstiegsmaske.Grundlag​en_Daten["Stufennummer",.Modelle.Einstiegsmaske.Gr​undlagen_Daten.ZeigerY];
    Komponentennummer:=.Modelle.Einstiegsmaske.Gru​ndlagen_Daten["Komponentennummer",.Modelle.Einstie​gsmaske.Grundlagen_Daten.ZeigerY];
            Objektkurztext:=.Modelle.Einstiegsmaske.Grundlagen​_Daten["Objektkurztext",.Modelle.Einstiegsmaske.Gr​undlagen_Daten.ZeigerY];           
    MArt:=.Modelle.Einstiegsmaske.Grundlagen_Daten​["MArt",.Modelle.Einstiegsmaske.Grundlagen_Daten.Z​eigerY];
            Menge:=.Modelle.Einstiegsmaske.Grundlagen_Daten["M​enge",.Modelle.Einstiegsmaske.Grundlagen_Daten.Zei​gerY];
            ME:=.Modelle.Einstiegsmaske.Grundlagen_Daten["ME",​.Modelle.Einstiegsmaske.Grundlagen_Daten.ZeigerY];
            Takt:=.Modelle.Einstiegsmaske.Grundlagen_Daten["Ta​kt",.Modelle.Einstiegsmaske.Grundlagen_Daten.Zeige​rY];
              JIT_Teile:=.Modelle.Einstiegsmaske.Grundlagen_Date​n["JIT_Teile",.Modelle.Einstiegsmaske.Grundlagen_D​aten.ZeigerY];
              Halbzeuge:=.Modelle.Einstiegsmaske.Grundlagen_Date​n["Halbzeuge",.Modelle.Einstiegsmaske.Grundlagen_D​aten.ZeigerY];
            Quellen_Baugruppen:=.Modelle.Einstiegsmaske.Grundl​agen_Daten["Quellen_Baugruppen",.Modelle.Einstiegs​maske.Grundlagen_Daten.ZeigerY];
            Quelle_Erzeugungsintervall:=.Modelle.Einstiegsmask​e.Grundlagen_Daten["Quelle_Erzeugungsintervall",.M​odelle.Einstiegsmaske.Grundlagen_Daten.ZeigerY];
            Baugruppe:=.Modelle.Einstiegsmaske.Grundlagen_Date​n["Baugruppe",.Modelle.Einstiegsmaske.Grundlagen_D​aten.ZeigerY];
            Bearbeitungszeit_Montage:=.Modelle.Einstiegsmaske.​Grundlagen_Daten["Bearbeitungszeit_Montage",.Model​le.Einstiegsmaske.Grundlagen_Daten.ZeigerY];
            Ziel_Teileprüfung_Puffer:=.Modelle.Einstiegsmaske.​Grundlagen_Daten["Ziel_Teileprüfung_Puffer",.Model​le.Einstiegsmaske.Grundlagen_Daten.ZeigerY];
                BE:=.Modelle.Einstiegsmaske.Grundlagen_Daten["BE",​.Modelle.Einstiegsmaske.Grundlagen_Daten.ZeigerY];

    BE.Stufennummer:=Stufennummer;   
    BE.Komponentennummer:=Komponentennummer;
    BE.Objektkurztext:=Objektkurztext;
    BE.MArt:=MArt;
    BE.Menge:=Menge;
    BE.ME:=ME;
    BE.Takt:=Takt;
    BE.JIT_Teile:=JIT_Teile;
    BE.Halbzeuge:=Halbzeuge;
    BE.Quellen_Baugruppen:=Quellen_Baugruppen;
    BE.Quelle_Erzeugungsintervall:=Quelle_Erzeugun​gsintervall;
    BE.Baugruppe:=Baugruppe;
    BE.Bearbeitungszeit_Montage:=Bearbeitungszeit_​Montage;
    BE.Ziel_Teileprüfung_Puffer:=Ziel_Teileprüfung​_Puffer;
   
    .Modelle.Einstiegsmaske.Grundlagen_Daten.setze​Zeiger("Quellen_Baugruppen",.Modelle.Einstiegsmask​e.Grundlagen_Daten.ZeigerY+1); --setze Zeiger wieder in Spalte"Quellen_Baugruppen" und nächste Zeile
  else
    debug;  --wenn kein X mehr gefunden wird, beende die Schleife
  end
  next
end;

..

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

Bon Simul
Mitglied
Simulant


Sehen Sie sich das Profil von Bon Simul an!   Senden Sie eine Private Message an Bon Simul  Schreiben Sie einen Gästebucheintrag für Bon Simul

Beiträge: 1250
Registriert: 08.08.2011

Plant Simulation 10.1, 11 ff Professional

erstellt am: 12. Nov. 2013 18:31    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für tajo 10 Unities + Antwort hilfreich

Wenn sie folgende Zeile erweitern, würde es vielleicht gehen:

Code:

BE:=.Modelle.Einstiegsmaske.Grundlagen_Daten["BE",​.Modelle.Einstiegsmaske.Grundlagen_Daten.ZeigerY].erzeugen(Zielbaustein);


Sonst ändern Sie nur die Werte in der Klasse, die dann alle abgeleiteten Objekte erben!!

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz