Hey Leute
erstmal hallo an alle, bin der neue
Habe folgendes Problem und hoffe einer von euch kann mir weiterhelfen.
Wir müssen das Szenario einer Notfallambulanz nachbilden, Patienten (Kinder + Erwachsene) mit Krankheiten (allergie, knochenbruch,...) die von Ärzten behandelt werden.
Ich leide unter folgendem Problem:
Wir lagern die Kinder und Erwachsenen mit einer Methode ins Lager ein:
-- Kinder und Erwachsene trennen
-- Durch eine If-Schleife werden K und E getrennt im nächsten Wartezimmer (Lager) eingelagert
-- um eine spätere Selektierung zu vermeiden
if @.Name = "Kind"
then if wartezimmer_Diagnose[1,1].belegt = false
then rezeption.inhalt.umlagern(wartezimmer_Diagnose.pe(1,1));
else if wartezimmer_Diagnose[2,1].belegt = false
then @.umlagern(wartezimmer_Diagnose.pe(2,1));
else if wartezimmer_Diagnose[3,1].belegt = false
then @.umlagern(wartezimmer_Diagnose.pe(3,1));
else if wartezimmer_Diagnose[4,1].belegt = false
then @.umlagern(wartezimmer_Diagnose.pe(4,1));
else @.umlagern(Puffer1);
end;
end;
end;
end;
else
if wartezimmer_Diagnose[1,2].belegt = false
then @.umlagern(wartezimmer_Diagnose.pe(1,2));
else if wartezimmer_Diagnose[2,2].belegt = false
then @.umlagern(wartezimmer_Diagnose.pe(2,2));
else if wartezimmer_Diagnose[3,2].belegt = false
then @.umlagern(wartezimmer_Diagnose.pe(3,2));
else if wartezimmer_Diagnose[4,2].belegt = false
then @.umlagern(wartezimmer_Diagnose.pe(4,2));
else @.umlagern(Puffer1);
end;
end;
end;
end;
end;
---------------------------------------------------------------------
Passt soweit alles, aber i-wie liest es mir jedesmal nen void raus, bzw lager nichts um wenn ich abfrage ob eine der obrigen Stellen belegt ist:
if wartezimmer_Diagnose.AnzahlBEs > 0
then
if wartezimmer_Diagnose[1,1].inhalt.Krankheit = "Allergie"
then Ärztezimmer.Be(1).umlagern(Diagnose)
else if wartezimmer_Diagnose[2,1].inhalt.Krankheit = "Allergie"
then Ärztezimmer.Be(1).umlagern(Diagnose)
else if wartezimmer_Diagnose[3,1].inhalt.Krankheit = "Allergie"
then Ärztezimmer.Be(1).umlagern(Diagnose)
else if wartezimmer_Diagnose[4,1].inhalt.Krankheit = "Allergie"
then Ärztezimmer.Be(1).umlagern(Diagnose)
else if wartezimmer_Diagnose.pe(1,2).inhalt.Krankheit = "Allergie"
then Ärztezimmer.Be(1).umlagern(Diagnose)
else if wartezimmer_Diagnose.pe(2,2).inhalt.Krankheit = "Allergie"
then Ärztezimmer.Be(1).umlagern(Diagnose)
else if wartezimmer_Diagnose.pe(3,2).inhalt.Krankheit = "Allergie"
then Ärztezimmer.Be(1).umlagern(Diagnose)
else if wartezimmer_Diagnose.pe(4,2).inhalt.Krankheit = "Allergie"
then Ärztezimmer.Be(1).umlagern(Diagnose)
else Ärztezimmer.Be(1).umlagern(Diagnose)
end;
end;
end;
end;
end;
end;
end;
end;
end;
---------------------------------------------------------------------
Sogar bei der .voll = true then ...inhalt.umlagern(Diagnose) Geschichte passiert nix. Als ob an den Stellen nichts wäre!
Wenn ich z.B. Wartezimmer_Diagnose[1,1].belegt = true then Ärztezimmer.inhalt.umlagern(Diagnose) abfrage passiert nichts.
Zur Übersicht hab ich ne Zip.Datei im Anhang gstellt in der das Modell liegt.
Hoffe jemand blickt bei meiner Beschreibung durch und kann mir weiterhelfen
danke schonmal im Vorraus
Grüße Martin
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP