FUNCTION "Arbeitsplatz_Leser_FC" : Void
TITLE = Leser-FC: AMR Arbeitsplätze
{ S7_Optimized_Access := 'FALSE' }
AUTHOR : AE
FAMILY : Module
NAME : Leser
VERSION : 0.1
//SCL-Portierung des AWL-Bausteins FC1180 "Arbeitsplatz_Leser_FC" (verhaltensgleich).
//
//Der Baustein hatte im AWL-Original die Bausteineigenschaft "Parameterversorgung
//ueber Register" (ParameterPassing) aktiv und konnte daher nur per UC/CC aus AWL
//aufgerufen werden. Da der Baustein ausschliesslich die globalen Merker MW190
//(Schleusen-Nr) und M180.0/M180.1 (Lese-Status) liest und die Zielbausteine voll
//qualifiziert aufruft, gibt es keine echte Registerabhaengigkeit -> die Option
//entfaellt bei der SCL-Fassung, der Baustein ist direkt aus SCL aufrufbar
//(CASE 1180 in MHMOmniSchleuse).
//
//Der indirekte Dispatch (AWL: je Netzwerk "L MW190 / L <Schleuse> / NE_I / JC")
//ist als CASE ueber die Schleusen-Nr ausgefuehrt. Case-Labels sind die dezimalen
//Int-Konstanten aus dem XML. Die Merker-Schnittstelle bleibt erhalten.
//
//Zweig-Muster je Schleuse (in JEDEM der 33 Netzwerke identisch geprueft):
//  AN M180.0 / JC Y / BEU     -> bei Lesefehler (M180.0=1): nichts tun
//  Y: AN M180.1 / BEC         -> nur weiter wenn unbekannt in TrolleysDL (M180.1=1)
//  L TrolleyID / L DINT#0 / EQ_D / BEC -> nur weiter wenn TrolleyID <> 0
//  CALL Trolleydaten_neu_anlegen(...)
//  => Aufruf nur wenn:  NOT M180.0  AND  M180.1  AND  TrolleyID <> DINT#0
//
//ABWEICHUNGEN ZUM AWL-ORIGINAL (bei Inbetriebnahme pruefen!):
//  - NW1 "Rueckmeldung" setzt den Scratch-Merker MW196 (evtl. Zwischenziel) auf 0
//    (AWL: L 0 / T MW196). Hier als "MW196" := W#16#0000; uebernommen. Falls das
//    Symbol "MW196" in der Symboltabelle als Int deklariert ist, statt dessen
//    "MW196" := 0; verwenden.
//  - Endziel-Parameter war im Original die Wort-Literalkonstante 16#0000 -> hier W#16#0000.
//  - ShopGroup-Parameter war die getypte Konstante DINT#0 -> 1:1 uebernommen.
//  - Alle 33 Zweige nutzen das identische Muster; nur der Schleusen-DB-Pfad variiert.
   VAR_TEMP 
      Zielebene : Word;
   END_VAR


BEGIN
	
	   // NW1 "Rueckmeldung": Zwischenziel-Scratch (MW196) zuruecksetzen (AWL: L 0 / T MW196)
	   "MW196" := W#16#0000;
	
	   // AWL: UC FC1180 dispatcht ueber MW190 (Schleusen-Nr, vom Aufrufer gesetzt)
	   CASE WORD_TO_INT("MW190") OF
	
	      3481:   // Schleuse 3481: (Vor 180 Grad-ByPass)
	         // Daten in Datenbank neu anlegen:
	         IF NOT "M180.0" AND "M180.1" AND ("DZuführung_OmniFahren".Schleuse_3481.Dyn.TrolleyID_Schleuse <> DINT#0) THEN
	            "Trolleydaten_neu_anlegen"(
	               Gesamt_Trolley_DL := "DZuführung_OmniFahren".Schleuse_3481.Schleuse.Gesamt_Trolley_DL,
	               TrolleyID         := "DZuführung_OmniFahren".Schleuse_3481.Dyn.TrolleyID_Schleuse,
	               Endziel           := W#16#0000,
	               ShopGroup         := DINT#0);
	         END_IF;
	
	      3241:   // Schleuse 3241: (Vor Einfahrt PS5)
	         IF NOT "M180.0" AND "M180.1" AND ("DPS5_OmniFahren".Schleuse_vor_Einfahrt.Dyn.TrolleyID_Schleuse <> DINT#0) THEN
	            "Trolleydaten_neu_anlegen"(
	               Gesamt_Trolley_DL := "DPS5_OmniFahren".Schleuse_vor_Einfahrt.Schleuse.Gesamt_Trolley_DL,
	               TrolleyID         := "DPS5_OmniFahren".Schleuse_vor_Einfahrt.Dyn.TrolleyID_Schleuse,
	               Endziel           := W#16#0000,
	               ShopGroup         := DINT#0);
	         END_IF;
	
	      3245:   // Schleuse 3245: (ABP1/PS5)
	         IF NOT "M180.0" AND "M180.1" AND ("DPS5_OmniFahren".Schleuse_Platz_1.Dyn.TrolleyID_Schleuse <> DINT#0) THEN
	            "Trolleydaten_neu_anlegen"(
	               Gesamt_Trolley_DL := "DPS5_OmniFahren".Schleuse_Platz_1.Schleuse.Gesamt_Trolley_DL,
	               TrolleyID         := "DPS5_OmniFahren".Schleuse_Platz_1.Dyn.TrolleyID_Schleuse,
	               Endziel           := W#16#0000,
	               ShopGroup         := DINT#0);
	         END_IF;
	
	      3251:   // Schleuse 3251: (ABP2/PS5)
	         IF NOT "M180.0" AND "M180.1" AND ("DPS5_OmniFahren".Schleuse_Platz_2.Dyn.TrolleyID_Schleuse <> DINT#0) THEN
	            "Trolleydaten_neu_anlegen"(
	               Gesamt_Trolley_DL := "DPS5_OmniFahren".Schleuse_Platz_2.Schleuse.Gesamt_Trolley_DL,
	               TrolleyID         := "DPS5_OmniFahren".Schleuse_Platz_2.Dyn.TrolleyID_Schleuse,
	               Endziel           := W#16#0000,
	               ShopGroup         := DINT#0);
	         END_IF;
	
	      3255:   // Schleuse 3255: (ABP3/PS5)
	         IF NOT "M180.0" AND "M180.1" AND ("DPS5_OmniFahren".Schleuse_Platz_3.Dyn.TrolleyID_Schleuse <> DINT#0) THEN
	            "Trolleydaten_neu_anlegen"(
	               Gesamt_Trolley_DL := "DPS5_OmniFahren".Schleuse_Platz_3.Schleuse.Gesamt_Trolley_DL,
	               TrolleyID         := "DPS5_OmniFahren".Schleuse_Platz_3.Dyn.TrolleyID_Schleuse,
	               Endziel           := W#16#0000,
	               ShopGroup         := DINT#0);
	         END_IF;
	
	      3271:   // Schleuse 3271: (Vor Einfahrt PS4)
	         IF NOT "M180.0" AND "M180.1" AND ("DPS4_OmniFahren".Schleuse_vor_Einfahrt.Dyn.TrolleyID_Schleuse <> DINT#0) THEN
	            "Trolleydaten_neu_anlegen"(
	               Gesamt_Trolley_DL := "DPS4_OmniFahren".Schleuse_vor_Einfahrt.Schleuse.Gesamt_Trolley_DL,
	               TrolleyID         := "DPS4_OmniFahren".Schleuse_vor_Einfahrt.Dyn.TrolleyID_Schleuse,
	               Endziel           := W#16#0000,
	               ShopGroup         := DINT#0);
	         END_IF;
	
	      3275:   // Schleuse 3275: (ABP1/PS4)
	         IF NOT "M180.0" AND "M180.1" AND ("DPS4_OmniFahren".Schleuse_Platz_1.Dyn.TrolleyID_Schleuse <> DINT#0) THEN
	            "Trolleydaten_neu_anlegen"(
	               Gesamt_Trolley_DL := "DPS4_OmniFahren".Schleuse_Platz_1.Schleuse.Gesamt_Trolley_DL,
	               TrolleyID         := "DPS4_OmniFahren".Schleuse_Platz_1.Dyn.TrolleyID_Schleuse,
	               Endziel           := W#16#0000,
	               ShopGroup         := DINT#0);
	         END_IF;
	
	      3281:   // Schleuse 3281: (ABP2/PS4)
	         IF NOT "M180.0" AND "M180.1" AND ("DPS4_OmniFahren".Schleuse_Platz_2.Dyn.TrolleyID_Schleuse <> DINT#0) THEN
	            "Trolleydaten_neu_anlegen"(
	               Gesamt_Trolley_DL := "DPS4_OmniFahren".Schleuse_Platz_2.Schleuse.Gesamt_Trolley_DL,
	               TrolleyID         := "DPS4_OmniFahren".Schleuse_Platz_2.Dyn.TrolleyID_Schleuse,
	               Endziel           := W#16#0000,
	               ShopGroup         := DINT#0);
	         END_IF;
	
	      3285:   // Schleuse 3285: (ABP3/PS4)
	         IF NOT "M180.0" AND "M180.1" AND ("DPS4_OmniFahren".Schleuse_Platz_3.Dyn.TrolleyID_Schleuse <> DINT#0) THEN
	            "Trolleydaten_neu_anlegen"(
	               Gesamt_Trolley_DL := "DPS4_OmniFahren".Schleuse_Platz_3.Schleuse.Gesamt_Trolley_DL,
	               TrolleyID         := "DPS4_OmniFahren".Schleuse_Platz_3.Dyn.TrolleyID_Schleuse,
	               Endziel           := W#16#0000,
	               ShopGroup         := DINT#0);
	         END_IF;
	
	      3293:   // Schleuse 3293: (Vor Einfahrt PS3)
	         IF NOT "M180.0" AND "M180.1" AND ("DPS3_OmniFahren".Schleuse_vor_Einfahrt.Dyn.TrolleyID_Schleuse <> DINT#0) THEN
	            "Trolleydaten_neu_anlegen"(
	               Gesamt_Trolley_DL := "DPS3_OmniFahren".Schleuse_vor_Einfahrt.Schleuse.Gesamt_Trolley_DL,
	               TrolleyID         := "DPS3_OmniFahren".Schleuse_vor_Einfahrt.Dyn.TrolleyID_Schleuse,
	               Endziel           := W#16#0000,
	               ShopGroup         := DINT#0);
	         END_IF;
	
	      3305:   // Schleuse 3305: (ABP1/PS3)
	         IF NOT "M180.0" AND "M180.1" AND ("DPS3_OmniFahren".Schleuse_Platz_1.Dyn.TrolleyID_Schleuse <> DINT#0) THEN
	            "Trolleydaten_neu_anlegen"(
	               Gesamt_Trolley_DL := "DPS3_OmniFahren".Schleuse_Platz_1.Schleuse.Gesamt_Trolley_DL,
	               TrolleyID         := "DPS3_OmniFahren".Schleuse_Platz_1.Dyn.TrolleyID_Schleuse,
	               Endziel           := W#16#0000,
	               ShopGroup         := DINT#0);
	         END_IF;
	
	      3311:   // Schleuse 3311: (ABP2/PS3)
	         IF NOT "M180.0" AND "M180.1" AND ("DPS3_OmniFahren".Schleuse_Platz_2.Dyn.TrolleyID_Schleuse <> DINT#0) THEN
	            "Trolleydaten_neu_anlegen"(
	               Gesamt_Trolley_DL := "DPS3_OmniFahren".Schleuse_Platz_2.Schleuse.Gesamt_Trolley_DL,
	               TrolleyID         := "DPS3_OmniFahren".Schleuse_Platz_2.Dyn.TrolleyID_Schleuse,
	               Endziel           := W#16#0000,
	               ShopGroup         := DINT#0);
	         END_IF;
	
	      3315:   // Schleuse 3315: (ABP3/PS3)
	         IF NOT "M180.0" AND "M180.1" AND ("DPS3_OmniFahren".Schleuse_Platz_3.Dyn.TrolleyID_Schleuse <> DINT#0) THEN
	            "Trolleydaten_neu_anlegen"(
	               Gesamt_Trolley_DL := "DPS3_OmniFahren".Schleuse_Platz_3.Schleuse.Gesamt_Trolley_DL,
	               TrolleyID         := "DPS3_OmniFahren".Schleuse_Platz_3.Dyn.TrolleyID_Schleuse,
	               Endziel           := W#16#0000,
	               ShopGroup         := DINT#0);
	         END_IF;
	
	      3331:   // Schleuse 3331: (Vor Einfahrt PS2)
	         IF NOT "M180.0" AND "M180.1" AND ("DPS2_OmniFahren".Schleuse_vor_Einfahrt.Dyn.TrolleyID_Schleuse <> DINT#0) THEN
	            "Trolleydaten_neu_anlegen"(
	               Gesamt_Trolley_DL := "DPS2_OmniFahren".Schleuse_vor_Einfahrt.Schleuse.Gesamt_Trolley_DL,
	               TrolleyID         := "DPS2_OmniFahren".Schleuse_vor_Einfahrt.Dyn.TrolleyID_Schleuse,
	               Endziel           := W#16#0000,
	               ShopGroup         := DINT#0);
	         END_IF;
	
	      3335:   // Schleuse 3335: (ABP1/PS2)
	         IF NOT "M180.0" AND "M180.1" AND ("DPS2_OmniFahren".Schleuse_Platz_1.Dyn.TrolleyID_Schleuse <> DINT#0) THEN
	            "Trolleydaten_neu_anlegen"(
	               Gesamt_Trolley_DL := "DPS2_OmniFahren".Schleuse_Platz_1.Schleuse.Gesamt_Trolley_DL,
	               TrolleyID         := "DPS2_OmniFahren".Schleuse_Platz_1.Dyn.TrolleyID_Schleuse,
	               Endziel           := W#16#0000,
	               ShopGroup         := DINT#0);
	         END_IF;
	
	      3341:   // Schleuse 3341: (ABP2/PS2)
	         IF NOT "M180.0" AND "M180.1" AND ("DPS2_OmniFahren".Schleuse_Platz_2.Dyn.TrolleyID_Schleuse <> DINT#0) THEN
	            "Trolleydaten_neu_anlegen"(
	               Gesamt_Trolley_DL := "DPS2_OmniFahren".Schleuse_Platz_2.Schleuse.Gesamt_Trolley_DL,
	               TrolleyID         := "DPS2_OmniFahren".Schleuse_Platz_2.Dyn.TrolleyID_Schleuse,
	               Endziel           := W#16#0000,
	               ShopGroup         := DINT#0);
	         END_IF;
	
	      3345:   // Schleuse 3345: (ABP3/PS2)
	         IF NOT "M180.0" AND "M180.1" AND ("DPS2_OmniFahren".Schleuse_Platz_3.Dyn.TrolleyID_Schleuse <> DINT#0) THEN
	            "Trolleydaten_neu_anlegen"(
	               Gesamt_Trolley_DL := "DPS2_OmniFahren".Schleuse_Platz_3.Schleuse.Gesamt_Trolley_DL,
	               TrolleyID         := "DPS2_OmniFahren".Schleuse_Platz_3.Dyn.TrolleyID_Schleuse,
	               Endziel           := W#16#0000,
	               ShopGroup         := DINT#0);
	         END_IF;
	
	      3353:   // Schleuse 3353: (Vor Einfahrt PS1)
	         IF NOT "M180.0" AND "M180.1" AND ("DPS1_OmniFahren".Schleuse_vor_Einfahrt.Dyn.TrolleyID_Schleuse <> DINT#0) THEN
	            "Trolleydaten_neu_anlegen"(
	               Gesamt_Trolley_DL := "DPS1_OmniFahren".Schleuse_vor_Einfahrt.Schleuse.Gesamt_Trolley_DL,
	               TrolleyID         := "DPS1_OmniFahren".Schleuse_vor_Einfahrt.Dyn.TrolleyID_Schleuse,
	               Endziel           := W#16#0000,
	               ShopGroup         := DINT#0);
	         END_IF;
	
	      3365:   // Schleuse 3365: (ABP1/PS1)
	         IF NOT "M180.0" AND "M180.1" AND ("DPS1_OmniFahren".Schleuse_Platz_1.Dyn.TrolleyID_Schleuse <> DINT#0) THEN
	            "Trolleydaten_neu_anlegen"(
	               Gesamt_Trolley_DL := "DPS1_OmniFahren".Schleuse_Platz_1.Schleuse.Gesamt_Trolley_DL,
	               TrolleyID         := "DPS1_OmniFahren".Schleuse_Platz_1.Dyn.TrolleyID_Schleuse,
	               Endziel           := W#16#0000,
	               ShopGroup         := DINT#0);
	         END_IF;
	
	      3371:   // Schleuse 3371: (ABP2/PS1)
	         IF NOT "M180.0" AND "M180.1" AND ("DPS1_OmniFahren".Schleuse_Platz_2.Dyn.TrolleyID_Schleuse <> DINT#0) THEN
	            "Trolleydaten_neu_anlegen"(
	               Gesamt_Trolley_DL := "DPS1_OmniFahren".Schleuse_Platz_2.Schleuse.Gesamt_Trolley_DL,
	               TrolleyID         := "DPS1_OmniFahren".Schleuse_Platz_2.Dyn.TrolleyID_Schleuse,
	               Endziel           := W#16#0000,
	               ShopGroup         := DINT#0);
	         END_IF;
	
	      3375:   // Schleuse 3375: (ABP3/PS1)
	         IF NOT "M180.0" AND "M180.1" AND ("DPS1_OmniFahren".Schleuse_Platz_3.Dyn.TrolleyID_Schleuse <> DINT#0) THEN
	            "Trolleydaten_neu_anlegen"(
	               Gesamt_Trolley_DL := "DPS1_OmniFahren".Schleuse_Platz_3.Schleuse.Gesamt_Trolley_DL,
	               TrolleyID         := "DPS1_OmniFahren".Schleuse_Platz_3.Dyn.TrolleyID_Schleuse,
	               Endziel           := W#16#0000,
	               ShopGroup         := DINT#0);
	         END_IF;
	
	      3390:   // Schleuse 3390: (Vor Einfahrt MPS3)
	         IF NOT "M180.0" AND "M180.1" AND ("DMPS3_OmniFahren".Schleuse_vor_Einfahrt.Dyn.TrolleyID_Schleuse <> DINT#0) THEN
	            "Trolleydaten_neu_anlegen"(
	               Gesamt_Trolley_DL := "DMPS3_OmniFahren".Schleuse_vor_Einfahrt.Schleuse.Gesamt_Trolley_DL,
	               TrolleyID         := "DMPS3_OmniFahren".Schleuse_vor_Einfahrt.Dyn.TrolleyID_Schleuse,
	               Endziel           := W#16#0000,
	               ShopGroup         := DINT#0);
	         END_IF;
	
	      3395:   // Schleuse 3395: (ABP1/MPS3)
	         IF NOT "M180.0" AND "M180.1" AND ("DMPS3_OmniFahren".Schleuse_Platz_1.Dyn.TrolleyID_Schleuse <> DINT#0) THEN
	            "Trolleydaten_neu_anlegen"(
	               Gesamt_Trolley_DL := "DMPS3_OmniFahren".Schleuse_Platz_1.Schleuse.Gesamt_Trolley_DL,
	               TrolleyID         := "DMPS3_OmniFahren".Schleuse_Platz_1.Dyn.TrolleyID_Schleuse,
	               Endziel           := W#16#0000,
	               ShopGroup         := DINT#0);
	         END_IF;
	
	      3401:   // Schleuse 3401: (ABP2/MPS3)
	         IF NOT "M180.0" AND "M180.1" AND ("DMPS3_OmniFahren".Schleuse_Platz_2.Dyn.TrolleyID_Schleuse <> DINT#0) THEN
	            "Trolleydaten_neu_anlegen"(
	               Gesamt_Trolley_DL := "DMPS3_OmniFahren".Schleuse_Platz_2.Schleuse.Gesamt_Trolley_DL,
	               TrolleyID         := "DMPS3_OmniFahren".Schleuse_Platz_2.Dyn.TrolleyID_Schleuse,
	               Endziel           := W#16#0000,
	               ShopGroup         := DINT#0);
	         END_IF;
	
	      3405:   // Schleuse 3405: (ABP3/MPS3)
	         IF NOT "M180.0" AND "M180.1" AND ("DMPS3_OmniFahren".Schleuse_Platz_3.Dyn.TrolleyID_Schleuse <> DINT#0) THEN
	            "Trolleydaten_neu_anlegen"(
	               Gesamt_Trolley_DL := "DMPS3_OmniFahren".Schleuse_Platz_3.Schleuse.Gesamt_Trolley_DL,
	               TrolleyID         := "DMPS3_OmniFahren".Schleuse_Platz_3.Dyn.TrolleyID_Schleuse,
	               Endziel           := W#16#0000,
	               ShopGroup         := DINT#0);
	         END_IF;
	
	      3421:   // Schleuse 3421: (Vor Einfahrt MPS2)
	         IF NOT "M180.0" AND "M180.1" AND ("DMPS2_OmniFahren".Schleuse_vor_Einfahrt.Dyn.TrolleyID_Schleuse <> DINT#0) THEN
	            "Trolleydaten_neu_anlegen"(
	               Gesamt_Trolley_DL := "DMPS2_OmniFahren".Schleuse_vor_Einfahrt.Schleuse.Gesamt_Trolley_DL,
	               TrolleyID         := "DMPS2_OmniFahren".Schleuse_vor_Einfahrt.Dyn.TrolleyID_Schleuse,
	               Endziel           := W#16#0000,
	               ShopGroup         := DINT#0);
	         END_IF;
	
	      3425:   // Schleuse 3425: (ABP1/MPS2)
	         IF NOT "M180.0" AND "M180.1" AND ("DMPS2_OmniFahren".Schleuse_Platz_1.Dyn.TrolleyID_Schleuse <> DINT#0) THEN
	            "Trolleydaten_neu_anlegen"(
	               Gesamt_Trolley_DL := "DMPS2_OmniFahren".Schleuse_Platz_1.Schleuse.Gesamt_Trolley_DL,
	               TrolleyID         := "DMPS2_OmniFahren".Schleuse_Platz_1.Dyn.TrolleyID_Schleuse,
	               Endziel           := W#16#0000,
	               ShopGroup         := DINT#0);
	         END_IF;
	
	      3431:   // Schleuse 3431: (ABP2/MPS2)
	         IF NOT "M180.0" AND "M180.1" AND ("DMPS2_OmniFahren".Schleuse_Platz_2.Dyn.TrolleyID_Schleuse <> DINT#0) THEN
	            "Trolleydaten_neu_anlegen"(
	               Gesamt_Trolley_DL := "DMPS2_OmniFahren".Schleuse_Platz_2.Schleuse.Gesamt_Trolley_DL,
	               TrolleyID         := "DMPS2_OmniFahren".Schleuse_Platz_2.Dyn.TrolleyID_Schleuse,
	               Endziel           := W#16#0000,
	               ShopGroup         := DINT#0);
	         END_IF;
	
	      3435:   // Schleuse 3435: (ABP3/MPS2)
	         IF NOT "M180.0" AND "M180.1" AND ("DMPS2_OmniFahren".Schleuse_Platz_3.Dyn.TrolleyID_Schleuse <> DINT#0) THEN
	            "Trolleydaten_neu_anlegen"(
	               Gesamt_Trolley_DL := "DMPS2_OmniFahren".Schleuse_Platz_3.Schleuse.Gesamt_Trolley_DL,
	               TrolleyID         := "DMPS2_OmniFahren".Schleuse_Platz_3.Dyn.TrolleyID_Schleuse,
	               Endziel           := W#16#0000,
	               ShopGroup         := DINT#0);
	         END_IF;
	
	      3450:   // Schleuse 3450: (Vor Einfahrt MPS1)
	         IF NOT "M180.0" AND "M180.1" AND ("DMPS1_OmniFahren".Schleuse_vor_Einfahrt.Dyn.TrolleyID_Schleuse <> DINT#0) THEN
	            "Trolleydaten_neu_anlegen"(
	               Gesamt_Trolley_DL := "DMPS1_OmniFahren".Schleuse_vor_Einfahrt.Schleuse.Gesamt_Trolley_DL,
	               TrolleyID         := "DMPS1_OmniFahren".Schleuse_vor_Einfahrt.Dyn.TrolleyID_Schleuse,
	               Endziel           := W#16#0000,
	               ShopGroup         := DINT#0);
	         END_IF;
	
	      3455:   // Schleuse 3455: (ABP1/MPS1)
	         IF NOT "M180.0" AND "M180.1" AND ("DMPS1_OmniFahren".Schleuse_Platz_1.Dyn.TrolleyID_Schleuse <> DINT#0) THEN
	            "Trolleydaten_neu_anlegen"(
	               Gesamt_Trolley_DL := "DMPS1_OmniFahren".Schleuse_Platz_1.Schleuse.Gesamt_Trolley_DL,
	               TrolleyID         := "DMPS1_OmniFahren".Schleuse_Platz_1.Dyn.TrolleyID_Schleuse,
	               Endziel           := W#16#0000,
	               ShopGroup         := DINT#0);
	         END_IF;
	
	      3461:   // Schleuse 3461: (ABP2/MPS1)
	         IF NOT "M180.0" AND "M180.1" AND ("DMPS1_OmniFahren".Schleuse_Platz_2.Dyn.TrolleyID_Schleuse <> DINT#0) THEN
	            "Trolleydaten_neu_anlegen"(
	               Gesamt_Trolley_DL := "DMPS1_OmniFahren".Schleuse_Platz_2.Schleuse.Gesamt_Trolley_DL,
	               TrolleyID         := "DMPS1_OmniFahren".Schleuse_Platz_2.Dyn.TrolleyID_Schleuse,
	               Endziel           := W#16#0000,
	               ShopGroup         := DINT#0);
	         END_IF;
	
	      3465:   // Schleuse 3465: (ABP3/MPS1)
	         IF NOT "M180.0" AND "M180.1" AND ("DMPS1_OmniFahren".Schleuse_Platz_3.Dyn.TrolleyID_Schleuse <> DINT#0) THEN
	            "Trolleydaten_neu_anlegen"(
	               Gesamt_Trolley_DL := "DMPS1_OmniFahren".Schleuse_Platz_3.Schleuse.Gesamt_Trolley_DL,
	               TrolleyID         := "DMPS1_OmniFahren".Schleuse_Platz_3.Dyn.TrolleyID_Schleuse,
	               Endziel           := W#16#0000,
	               ShopGroup         := DINT#0);
	         END_IF;
	
	      ELSE
	         ;   // unbekannte Schleusen-Nr -> nichts tun
	   END_CASE;
	
END_FUNCTION

