FUNCTION "FC_CARR_GLOB_CORRECTION" : Void
{ S7_Optimized_Access := 'TRUE' }
VERSION : 0.1
   VAR_INPUT 
      xInStart : Bool;   // Ausführen der Funktion
      nInBarcodeScan : DInt;   // Gescannter Barcode
      nInStation : Int;   // Scanner-Nummer für Unterscheidungen
   END_VAR

   VAR_OUTPUT 
      arOutEventLogInfo : Array[0..1] of "stEventCorrectionInfo";   // Informationen für Log-Baustein
   END_VAR

   VAR_IN_OUT 
      InOutCarrierExpect : "stCarrier";   // Erwarteter Carrier in ScannerStation
   END_VAR

   VAR_TEMP 
      tmpPartJam : "stCarrier";   // Zwischengespeicherter Carrier, gefunden in Jambereich
      tmpPartHyperJam : "stCarrier";   // Zwischengespeicherter Carrier, gefunden in JHyperjam
      tmpDummy : "stCarrier";   // Leerer Dummy mit speziellem Barcode
      tmpEmpty : "stCarrier";   // Leerer Carrier
      nCounter : DInt;
      nIdx1 : Int;   // Schleifenindex
      nIdx2 : Int;   // Schleifenindex
      tmpStatus : Int;
      xResult : Bool;
   END_VAR


BEGIN
	(*************************************************************************************
	Durchsucht alle Jam- und Lagerberieche nach den Daten die mit dem gescannten Barcode verbunden sind falls am Scanner ein anderes Teil erwartet wird.
	    -Suche beginnt immer im Hyperjam.
	    -Wenn fündig im Hyperjam, dann wird erwartetes Teil durch das Teil vom Hyperjam ersetzt, dafür kommt erwartetes Teil in Hyperjam.
	    -Ansonsten wenn fündig in Jambereichen, dann werden Daten aus dem Jambereich übernommen und diese durch Dummy ersetzt
	*************************************************************************************)
	
	#tmpDummy.nBarcode := 1;
	#tmpDummy.bStatus.%X0 := TRUE;
	
	
	IF #xInStart AND #nInBarcodeScan > 0 THEN //Barcode muss einen Wert haben
	    REGION Hyperjam
	        FOR #nIdx1 := 1 TO "cHyperJam" DO
	            IF "DB_HyperJam".stHyperJam.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und lösche ursprüngliches
	                #tmpPartHyperJam := "DB_HyperJam".stHyperJam.arCarrier[#nIdx1];
	                "DB_HyperJam".stHyperJam.arCarrier[#nIdx1] := #tmpEmpty;
	                
	                REGION Event Log
	                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                    #arOutEventLogInfo[0].nCorrectionType := 0;
	                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                    #arOutEventLogInfo[0].sLoc := 'HyperJ';
	                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartHyperJam.nDestination);
	                END_REGION
	                
	                GOTO END;
	            END_IF;
	        END_FOR;
	    END_REGION
	    CASE #nInStation OF
	        1:
	            REGION Oberes Drittel
	                REGION Lager 1.1.1
	                    FOR #nIdx1 := 1 TO "cNoLines1.1.1" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock1" DO
	                            IF "DB_Storage1.1.1".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.1.1".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.1.1".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock1" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.1.1".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.1.1".arLine[#nIdx1].arCarrier["cNoPositionsBlock1"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.1.1 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	                REGION Lager 1.1.2
	                    FOR #nIdx1 := 1 TO "cNoLines1.1.2" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock1" DO
	                            IF "DB_Storage1.1.2".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.1.2".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.1.2".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock1" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.1.2".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.1.2".arLine[#nIdx1].arCarrier["cNoPositionsBlock1"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.1.2 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	                REGION Lager 1.1.3
	                    FOR #nIdx1 := 1 TO "cNoLines1.1.3" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock1" DO
	                            IF "DB_Storage1.1.3".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.1.3".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.1.3".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock1" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.1.3".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.1.3".arLine[#nIdx1].arCarrier["cNoPositionsBlock1"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.1.3 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	                REGION Lager 1.1.4
	                    FOR #nIdx1 := 1 TO "cNoLines1.1.4" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock1" DO
	                            IF "DB_Storage1.1.4".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.1.4".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.1.4".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock1" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.1.4".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.1.4".arLine[#nIdx1].arCarrier["cNoPositionsBlock1"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.1.4 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1101_1
	                    FOR #nIdx1 := 1 TO "cJam1101_1" DO
	                        IF "DB_JamArea1101".stJam1101_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1101".stJam1101_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1101".stJam1101_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1101_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1101".stJam1101_1.arCarrier);
	                            "DB_JamArea1101".stJam1101_1.arCarrier["cJam1101_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1101_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1101_2
	                    FOR #nIdx1 := 1 TO "cJam1101_2" DO
	                        IF "DB_JamArea1101".stJam1101_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1101".stJam1101_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1101".stJam1101_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1101_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1101".stJam1101_2.arCarrier);
	                            "DB_JamArea1101".stJam1101_2.arCarrier["cJam1101_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1101_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1102_1
	                    FOR #nIdx1 := 1 TO "cJam1102_1" DO
	                        IF "DB_JamArea1102".stJam1102_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1102".stJam1102_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1102".stJam1102_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1102_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1102".stJam1102_1.arCarrier);
	                            "DB_JamArea1102".stJam1102_1.arCarrier["cJam1102_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1102_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1102_2
	                    FOR #nIdx1 := 1 TO "cJam1102_2" DO
	                        IF "DB_JamArea1102".stJam1102_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1102".stJam1102_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1102".stJam1102_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1102_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1102".stJam1102_2.arCarrier);
	                            "DB_JamArea1102".stJam1102_2.arCarrier["cJam1102_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1102_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1102_3
	                    FOR #nIdx1 := 1 TO "cJam1102_3" DO
	                        IF "DB_JamArea1102".stJam1102_3.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1102".stJam1102_3.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1102".stJam1102_3.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1102_3" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1102".stJam1102_3.arCarrier);
	                            "DB_JamArea1102".stJam1102_3.arCarrier["cJam1102_3"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1102_3';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1103_1
	                    FOR #nIdx1 := 1 TO "cJam1103_1" DO
	                        IF "DB_JamArea1103".stJam1103_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1103".stJam1103_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1103".stJam1103_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1103_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1103".stJam1103_1.arCarrier);
	                            "DB_JamArea1103".stJam1103_1.arCarrier["cJam1103_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1103_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1103_2
	                    FOR #nIdx1 := 1 TO "cJam1103_2" DO
	                        IF "DB_JamArea1103".stJam1103_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1103".stJam1103_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1103".stJam1103_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1103_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1103".stJam1103_2.arCarrier);
	                            "DB_JamArea1103".stJam1103_2.arCarrier["cJam1103_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1103_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1104_1
	                    FOR #nIdx1 := 1 TO "cJam1104_1" DO
	                        IF "DB_JamArea1104".stJam1104_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1104".stJam1104_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1104".stJam1104_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1104_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1104".stJam1104_1.arCarrier);
	                            "DB_JamArea1104".stJam1104_1.arCarrier["cJam1104_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1104_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1104_2
	                    FOR #nIdx1 := 1 TO "cJam1104_2" DO
	                        IF "DB_JamArea1104".stJam1104_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1104".stJam1104_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1104".stJam1104_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1104_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1104".stJam1104_2.arCarrier);
	                            "DB_JamArea1104".stJam1104_2.arCarrier["cJam1104_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1104_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1104_3
	                    FOR #nIdx1 := 1 TO "cJam1104_3" DO
	                        IF "DB_JamArea1104".stJam1104_3.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1104".stJam1104_3.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1104".stJam1104_3.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1104_3" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1104".stJam1104_3.arCarrier);
	                            "DB_JamArea1104".stJam1104_3.arCarrier["cJam1104_3"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1104_3';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1105_1
	                    FOR #nIdx1 := 1 TO "cJam1105_1" DO
	                        IF "DB_JamArea1105".stJam1105_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1105".stJam1105_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1105".stJam1105_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1105_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1105".stJam1105_1.arCarrier);
	                            "DB_JamArea1105".stJam1105_1.arCarrier["cJam1105_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1105_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1105_2
	                    FOR #nIdx1 := 1 TO "cJam1105_2" DO
	                        IF "DB_JamArea1105".stJam1105_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1105".stJam1105_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1105".stJam1105_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1105_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1105".stJam1105_2.arCarrier);
	                            "DB_JamArea1105".stJam1105_2.arCarrier["cJam1105_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1105_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1106_1
	                    FOR #nIdx1 := 1 TO "cJam1106_1" DO
	                        IF "DB_JamArea1106".stJam1106_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1106".stJam1106_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1106".stJam1106_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1106_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1106".stJam1106_1.arCarrier);
	                            "DB_JamArea1106".stJam1106_1.arCarrier["cJam1106_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1106_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1106_2
	                    FOR #nIdx1 := 1 TO "cJam1106_2" DO
	                        IF "DB_JamArea1106".stJam1106_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1106".stJam1106_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1106".stJam1106_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1106_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1106".stJam1106_2.arCarrier);
	                            "DB_JamArea1106".stJam1106_2.arCarrier["cJam1106_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1106_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1107_1
	                    FOR #nIdx1 := 1 TO "cJam1107_1" DO
	                        IF "DB_JamArea1107".stJam1107_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1107".stJam1107_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1107".stJam1107_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1107_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1107".stJam1107_1.arCarrier);
	                            "DB_JamArea1107".stJam1107_1.arCarrier["cJam1107_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1107_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1107_2
	                    FOR #nIdx1 := 1 TO "cJam1107_2" DO
	                        IF "DB_JamArea1107".stJam1107_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1107".stJam1107_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1107".stJam1107_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1107_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1107".stJam1107_2.arCarrier);
	                            "DB_JamArea1107".stJam1107_2.arCarrier["cJam1107_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1107_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1108_1
	                    FOR #nIdx1 := 1 TO "cJam1108_1" DO
	                        IF "DB_JamArea1108".stJam1108_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1108".stJam1108_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1108".stJam1108_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1108_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1108".stJam1108_1.arCarrier);
	                            "DB_JamArea1108".stJam1108_1.arCarrier["cJam1108_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1108_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1108_2
	                    FOR #nIdx1 := 1 TO "cJam1108_2" DO
	                        IF "DB_JamArea1108".stJam1108_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1108".stJam1108_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1108".stJam1108_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1108_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1108".stJam1108_2.arCarrier);
	                            "DB_JamArea1108".stJam1108_2.arCarrier["cJam1108_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1108_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                
	                REGION Jam Area 1109_1
	                    FOR #nIdx1 := 1 TO "cJam1109_1" DO
	                        IF "DB_JamArea1109".stJam1109_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1109".stJam1109_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1109".stJam1109_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1109_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1109".stJam1109_1.arCarrier);
	                            "DB_JamArea1109".stJam1109_1.arCarrier["cJam1109_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1109_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                
	                REGION Jam Area 1109_2
	                    FOR #nIdx1 := 1 TO "cJam1109_2" DO
	                        IF "DB_JamArea1109".stJam1109_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1109".stJam1109_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1109".stJam1109_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1109_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1109".stJam1109_2.arCarrier);
	                            "DB_JamArea1109".stJam1109_2.arCarrier["cJam1109_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1109_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                
	            END_REGION
	            REGION Mittleres Drittel
	                REGION Lager 1.2.1
	                    FOR #nIdx1 := 1 TO "cNoLines1.2.1" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock2" DO
	                            IF "DB_Storage1.2.1".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.2.1".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.2.1".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock2" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.2.1".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.2.1".arLine[#nIdx1].arCarrier["cNoPositionsBlock2"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.2.1 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	                REGION Lager 1.2.2
	                    FOR #nIdx1 := 1 TO "cNoLines1.2.2" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock2" DO
	                            IF "DB_Storage1.2.2".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.2.2".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.2.2".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock2" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.2.2".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.2.2".arLine[#nIdx1].arCarrier["cNoPositionsBlock2"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.2.2 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	                REGION Lager 1.2.3
	                    FOR #nIdx1 := 1 TO "cNoLines1.2.3" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock2" DO
	                            IF "DB_Storage1.2.3".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.2.3".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.2.3".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock2" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.2.3".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.2.3".arLine[#nIdx1].arCarrier["cNoPositionsBlock2"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.2.3 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	                REGION Lager 1.2.4
	                    FOR #nIdx1 := 1 TO "cNoLines1.2.4" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock2" DO
	                            IF "DB_Storage1.2.4".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.2.4".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.2.4".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock2" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.2.4".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.2.4".arLine[#nIdx1].arCarrier["cNoPositionsBlock2"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.2.4 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1201_1
	                    FOR #nIdx1 := 1 TO "cJam1201_1" DO
	                        IF "DB_JamArea1201".stJam1201_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1201".stJam1201_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1201".stJam1201_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1201_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1201".stJam1201_1.arCarrier);
	                            "DB_JamArea1201".stJam1201_1.arCarrier["cJam1201_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1201_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1201_2
	                    FOR #nIdx1 := 1 TO "cJam1201_2" DO
	                        IF "DB_JamArea1201".stJam1201_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1201".stJam1201_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1201".stJam1201_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1201_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1201".stJam1201_2.arCarrier);
	                            "DB_JamArea1201".stJam1201_2.arCarrier["cJam1201_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1201_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1202_1
	                    FOR #nIdx1 := 1 TO "cJam1202_1" DO
	                        IF "DB_JamArea1202".stJam1202_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1202".stJam1202_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1202".stJam1202_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1202_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1202".stJam1202_1.arCarrier);
	                            "DB_JamArea1202".stJam1202_1.arCarrier["cJam1202_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1202_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1202_2
	                    FOR #nIdx1 := 1 TO "cJam1202_2" DO
	                        IF "DB_JamArea1202".stJam1202_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1202".stJam1202_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1202".stJam1202_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1202_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1202".stJam1202_2.arCarrier);
	                            "DB_JamArea1202".stJam1202_2.arCarrier["cJam1202_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1202_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1202_3
	                    FOR #nIdx1 := 1 TO "cJam1202_3" DO
	                        IF "DB_JamArea1202".stJam1202_3.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1202".stJam1202_3.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1202".stJam1202_3.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1202_3" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1202".stJam1202_3.arCarrier);
	                            "DB_JamArea1202".stJam1202_3.arCarrier["cJam1202_3"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1202_3';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1203_1
	                    FOR #nIdx1 := 1 TO "cJam1203_1" DO
	                        IF "DB_JamArea1203".stJam1203_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1203".stJam1203_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1203".stJam1203_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1203_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1203".stJam1203_1.arCarrier);
	                            "DB_JamArea1203".stJam1203_1.arCarrier["cJam1203_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1203_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1203_2
	                    FOR #nIdx1 := 1 TO "cJam1203_2" DO
	                        IF "DB_JamArea1203".stJam1203_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1203".stJam1203_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1203".stJam1203_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1203_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1203".stJam1203_2.arCarrier);
	                            "DB_JamArea1203".stJam1203_2.arCarrier["cJam1203_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1203_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1204_1
	                    FOR #nIdx1 := 1 TO "cJam1204_1" DO
	                        IF "DB_JamArea1204".stJam1204_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1204".stJam1204_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1204".stJam1204_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1204_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1204".stJam1204_1.arCarrier);
	                            "DB_JamArea1204".stJam1204_1.arCarrier["cJam1204_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1204_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1204_2
	                    FOR #nIdx1 := 1 TO "cJam1204_2" DO
	                        IF "DB_JamArea1204".stJam1204_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1204".stJam1204_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1204".stJam1204_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1204_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1204".stJam1204_2.arCarrier);
	                            "DB_JamArea1204".stJam1204_2.arCarrier["cJam1204_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1204_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1204_3
	                    FOR #nIdx1 := 1 TO "cJam1204_3" DO
	                        IF "DB_JamArea1204".stJam1204_3.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1204".stJam1204_3.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1204".stJam1204_3.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1204_3" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1204".stJam1204_3.arCarrier);
	                            "DB_JamArea1204".stJam1204_3.arCarrier["cJam1204_3"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1204_3';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1205_1
	                    FOR #nIdx1 := 1 TO "cJam1205_1" DO
	                        IF "DB_JamArea1205".stJam1205_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1205".stJam1205_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1205".stJam1205_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1205_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1205".stJam1205_1.arCarrier);
	                            "DB_JamArea1205".stJam1205_1.arCarrier["cJam1205_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1205_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1205_2
	                    FOR #nIdx1 := 1 TO "cJam1205_2" DO
	                        IF "DB_JamArea1205".stJam1205_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1205".stJam1205_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1205".stJam1205_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1205_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1205".stJam1205_2.arCarrier);
	                            "DB_JamArea1205".stJam1205_2.arCarrier["cJam1205_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1205_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1206_1
	                    FOR #nIdx1 := 1 TO "cJam1206_1" DO
	                        IF "DB_JamArea1206".stJam1206_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1206".stJam1206_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1206".stJam1206_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1206_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1206".stJam1206_1.arCarrier);
	                            "DB_JamArea1206".stJam1206_1.arCarrier["cJam1206_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1206_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1206_2
	                    FOR #nIdx1 := 1 TO "cJam1206_2" DO
	                        IF "DB_JamArea1206".stJam1206_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1206".stJam1206_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1206".stJam1206_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1206_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1206".stJam1206_2.arCarrier);
	                            "DB_JamArea1206".stJam1206_2.arCarrier["cJam1206_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1206_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1207_1
	                    FOR #nIdx1 := 1 TO "cJam1207_1" DO
	                        IF "DB_JamArea1207".stJam1207_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1207".stJam1207_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1207".stJam1207_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1207_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1207".stJam1207_1.arCarrier);
	                            "DB_JamArea1207".stJam1207_1.arCarrier["cJam1207_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1207_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1207_2
	                    FOR #nIdx1 := 1 TO "cJam1207_2" DO
	                        IF "DB_JamArea1207".stJam1207_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1207".stJam1207_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1207".stJam1207_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1207_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1207".stJam1207_2.arCarrier);
	                            "DB_JamArea1207".stJam1207_2.arCarrier["cJam1207_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1207_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1208_1
	                    FOR #nIdx1 := 1 TO "cJam1208_1" DO
	                        IF "DB_JamArea1208".stJam1208_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1208".stJam1208_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1208".stJam1208_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1208_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1208".stJam1208_1.arCarrier);
	                            "DB_JamArea1208".stJam1208_1.arCarrier["cJam1208_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1208_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1208_2
	                    FOR #nIdx1 := 1 TO "cJam1208_2" DO
	                        IF "DB_JamArea1208".stJam1208_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1208".stJam1208_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1208".stJam1208_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1208_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1208".stJam1208_2.arCarrier);
	                            "DB_JamArea1208".stJam1208_2.arCarrier["cJam1208_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1208_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	            END_REGION
	            REGION Unteres Drittel
	                REGION Lager 1.3.1
	                    FOR #nIdx1 := 1 TO "cNoLines1.3.1" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock3" DO
	                            IF "DB_Storage1.3.1".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.3.1".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.3.1".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock3" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.3.1".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.3.1".arLine[#nIdx1].arCarrier["cNoPositionsBlock3"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.3.1 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	                REGION Lager 1.3.2
	                    FOR #nIdx1 := 1 TO "cNoLines1.3.2" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock3" DO
	                            IF "DB_Storage1.3.2".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.3.2".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.3.2".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock3" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.3.2".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.3.2".arLine[#nIdx1].arCarrier["cNoPositionsBlock3"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.3.2 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	                REGION Lager 1.3.3
	                    FOR #nIdx1 := 1 TO "cNoLines1.3.3" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock3" DO
	                            IF "DB_Storage1.3.3".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.3.3".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.3.3".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock3" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.3.3".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.3.3".arLine[#nIdx1].arCarrier["cNoPositionsBlock3"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.3.3 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	                REGION Lager 1.3.4
	                    FOR #nIdx1 := 1 TO "cNoLines1.3.4" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock3" DO
	                            IF "DB_Storage1.3.4".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.3.4".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.3.4".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock3" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.3.4".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.3.4".arLine[#nIdx1].arCarrier["cNoPositionsBlock3"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.3.4 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1301_1
	                    FOR #nIdx1 := 1 TO "cJam1301_1" DO
	                        IF "DB_JamArea1301".stJam1301_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1301".stJam1301_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1301".stJam1301_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1301_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1301".stJam1301_1.arCarrier);
	                            "DB_JamArea1301".stJam1301_1.arCarrier["cJam1301_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1301_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1301_2
	                    FOR #nIdx1 := 1 TO "cJam1301_2" DO
	                        IF "DB_JamArea1301".stJam1301_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1301".stJam1301_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1301".stJam1301_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1301_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1301".stJam1301_2.arCarrier);
	                            "DB_JamArea1301".stJam1301_2.arCarrier["cJam1301_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1301_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1302_1
	                    FOR #nIdx1 := 1 TO "cJam1302_1" DO
	                        IF "DB_JamArea1302".stJam1302_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1302".stJam1302_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1302".stJam1302_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1302_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1302".stJam1302_1.arCarrier);
	                            "DB_JamArea1302".stJam1302_1.arCarrier["cJam1302_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1302_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1302_2
	                    FOR #nIdx1 := 1 TO "cJam1302_2" DO
	                        IF "DB_JamArea1302".stJam1302_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1302".stJam1302_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1302".stJam1302_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1302_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1302".stJam1302_2.arCarrier);
	                            "DB_JamArea1302".stJam1302_2.arCarrier["cJam1302_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1302_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1302_3
	                    FOR #nIdx1 := 1 TO "cJam1302_3" DO
	                        IF "DB_JamArea1302".stJam1302_3.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1302".stJam1302_3.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1302".stJam1302_3.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1302_3" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1302".stJam1302_3.arCarrier);
	                            "DB_JamArea1302".stJam1302_3.arCarrier["cJam1302_3"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1302_3';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1303_1
	                    FOR #nIdx1 := 1 TO "cJam1303_1" DO
	                        IF "DB_JamArea1303".stJam1303_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1303".stJam1303_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1303".stJam1303_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1303_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1303".stJam1303_1.arCarrier);
	                            "DB_JamArea1303".stJam1303_1.arCarrier["cJam1303_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1303_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1303_2
	                    FOR #nIdx1 := 1 TO "cJam1303_2" DO
	                        IF "DB_JamArea1303".stJam1303_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1303".stJam1303_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1303".stJam1303_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1303_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1303".stJam1303_2.arCarrier);
	                            "DB_JamArea1303".stJam1303_2.arCarrier["cJam1303_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1303_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1304_1
	                    FOR #nIdx1 := 1 TO "cJam1304_1" DO
	                        IF "DB_JamArea1304".stJam1304_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1304".stJam1304_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1304".stJam1304_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1304_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1304".stJam1304_1.arCarrier);
	                            "DB_JamArea1304".stJam1304_1.arCarrier["cJam1304_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1304_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1304_2
	                    FOR #nIdx1 := 1 TO "cJam1304_2" DO
	                        IF "DB_JamArea1304".stJam1304_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1304".stJam1304_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1304".stJam1304_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1304_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1304".stJam1304_2.arCarrier);
	                            "DB_JamArea1304".stJam1304_2.arCarrier["cJam1304_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1304_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1304_3
	                    FOR #nIdx1 := 1 TO "cJam1304_3" DO
	                        IF "DB_JamArea1304".stJam1304_3.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1304".stJam1304_3.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1304".stJam1304_3.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1304_3" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1304".stJam1304_3.arCarrier);
	                            "DB_JamArea1304".stJam1304_3.arCarrier["cJam1304_3"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1304_3';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1305_1
	                    FOR #nIdx1 := 1 TO "cJam1305_1" DO
	                        IF "DB_JamArea1305".stJam1305_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1305".stJam1305_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1305".stJam1305_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1305_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1305".stJam1305_1.arCarrier);
	                            "DB_JamArea1305".stJam1305_1.arCarrier["cJam1305_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1305_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1305_2
	                    FOR #nIdx1 := 1 TO "cJam1305_2" DO
	                        IF "DB_JamArea1305".stJam1305_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1305".stJam1305_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1305".stJam1305_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1305_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1305".stJam1305_2.arCarrier);
	                            "DB_JamArea1305".stJam1305_2.arCarrier["cJam1305_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1305_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1306_1
	                    FOR #nIdx1 := 1 TO "cJam1306_1" DO
	                        IF "DB_JamArea1306".stJam1306_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1306".stJam1306_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1306".stJam1306_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1306_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1306".stJam1306_1.arCarrier);
	                            "DB_JamArea1306".stJam1306_1.arCarrier["cJam1306_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1306_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1306_2
	                    FOR #nIdx1 := 1 TO "cJam1306_2" DO
	                        IF "DB_JamArea1306".stJam1306_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1306".stJam1306_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1306".stJam1306_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1306_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1306".stJam1306_2.arCarrier);
	                            "DB_JamArea1306".stJam1306_2.arCarrier["cJam1306_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1306_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1307_1
	                    FOR #nIdx1 := 1 TO "cJam1307_1" DO
	                        IF "DB_JamArea1307".stJam1307_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1307".stJam1307_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1307".stJam1307_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1307_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1307".stJam1307_1.arCarrier);
	                            "DB_JamArea1307".stJam1307_1.arCarrier["cJam1307_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1307_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1307_2
	                    FOR #nIdx1 := 1 TO "cJam1307_2" DO
	                        IF "DB_JamArea1307".stJam1307_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1307".stJam1307_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1307".stJam1307_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1307_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1307".stJam1307_2.arCarrier);
	                            "DB_JamArea1307".stJam1307_2.arCarrier["cJam1307_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1307_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1308_1
	                    FOR #nIdx1 := 1 TO "cJam1308_1" DO
	                        IF "DB_JamArea1308".stJam1308_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1308".stJam1308_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1308".stJam1308_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1308_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1308".stJam1308_1.arCarrier);
	                            "DB_JamArea1308".stJam1308_1.arCarrier["cJam1308_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1308_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1308_2
	                    FOR #nIdx1 := 1 TO "cJam1308_2" DO
	                        IF "DB_JamArea1308".stJam1308_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1308".stJam1308_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1308".stJam1308_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1308_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1308".stJam1308_2.arCarrier);
	                            "DB_JamArea1308".stJam1308_2.arCarrier["cJam1308_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1308_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	            END_REGION
	            REGION Seitlicher Kreisel
	                REGION Jam Area 1110_1
	                    FOR #nIdx1 := 1 TO "cJam1110_1" DO
	                        IF "DB_JamArea1110".stJam1110_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1110".stJam1110_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1110".stJam1110_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1110_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1110".stJam1110_1.arCarrier);
	                            "DB_JamArea1110".stJam1110_1.arCarrier["cJam1110_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1110_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1110_2
	                    FOR #nIdx1 := 1 TO "cJam1110_2" DO
	                        IF "DB_JamArea1110".stJam1110_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1110".stJam1110_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1110".stJam1110_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1110_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1110".stJam1110_2.arCarrier);
	                            "DB_JamArea1110".stJam1110_2.arCarrier["cJam1110_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1110_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1110_3
	                    FOR #nIdx1 := 1 TO "cJam1110_3" DO
	                        IF "DB_JamArea1110".stJam1110_3.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1110".stJam1110_3.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1110".stJam1110_3.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1110_3" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1110".stJam1110_3.arCarrier);
	                            "DB_JamArea1110".stJam1110_3.arCarrier["cJam1110_3"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1110_3';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1110_4
	                    FOR #nIdx1 := 1 TO "cJam1110_4" DO
	                        IF "DB_JamArea1110".stJam1110_4.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1110".stJam1110_4.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1110".stJam1110_4.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1110_4" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1110".stJam1110_4.arCarrier);
	                            "DB_JamArea1110".stJam1110_4.arCarrier["cJam1110_4"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1110_4';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1110_5
	                    FOR #nIdx1 := 1 TO "cJam1110_5" DO
	                        IF "DB_JamArea1110".stJam1110_5.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1110".stJam1110_5.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1110".stJam1110_5.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1110_5" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1110".stJam1110_5.arCarrier);
	                            "DB_JamArea1110".stJam1110_5.arCarrier["cJam1110_5"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1110_5';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1110_6
	                    FOR #nIdx1 := 1 TO "cJam1110_6" DO
	                        IF "DB_JamArea1110".stJam1110_6.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1110".stJam1110_6.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1110".stJam1110_6.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1110_6" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1110".stJam1110_6.arCarrier);
	                            "DB_JamArea1110".stJam1110_6.arCarrier["cJam1110_6"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1110_6';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1401_1
	                    FOR #nIdx1 := 1 TO "cJam1401_1" DO
	                        IF "DB_JamArea1401".stJam1401_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1401".stJam1401_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1401".stJam1401_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1401_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1401".stJam1401_1.arCarrier);
	                            "DB_JamArea1401".stJam1401_1.arCarrier["cJam1401_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1401_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1401_2
	                    FOR #nIdx1 := 1 TO "cJam1401_2" DO
	                        IF "DB_JamArea1401".stJam1401_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1401".stJam1401_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1401".stJam1401_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1401_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1401".stJam1401_2.arCarrier);
	                            "DB_JamArea1401".stJam1401_2.arCarrier["cJam1401_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1401_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1501_1
	                    FOR #nIdx1 := 1 TO "cJam1501_1" DO
	                        IF "DB_JamArea1501".stJam1501_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1501".stJam1501_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1501".stJam1501_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1501_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1501".stJam1501_1.arCarrier);
	                            "DB_JamArea1501".stJam1501_1.arCarrier["cJam1501_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1501_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1501_2
	                    FOR #nIdx1 := 1 TO "cJam1501_2" DO
	                        IF "DB_JamArea1501".stJam1501_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1501".stJam1501_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1501".stJam1501_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1501_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1501".stJam1501_2.arCarrier);
	                            "DB_JamArea1501".stJam1501_2.arCarrier["cJam1501_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1501_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1601_1
	                    FOR #nIdx1 := 1 TO "cJam1601_1" DO
	                        IF "DB_JamArea1601".stJam1601_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1601".stJam1601_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1601".stJam1601_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1601_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1601".stJam1601_1.arCarrier);
	                            "DB_JamArea1601".stJam1601_1.arCarrier["cJam1601_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1601_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1601_2
	                    FOR #nIdx1 := 1 TO "cJam1601_2" DO
	                        IF "DB_JamArea1601".stJam1601_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1601".stJam1601_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1601".stJam1601_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1601_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1601".stJam1601_2.arCarrier);
	                            "DB_JamArea1601".stJam1601_2.arCarrier["cJam1601_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1601_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1801_1
	                    FOR #nIdx1 := 1 TO "cJam1801_1" DO
	                        IF "DB_JamArea1801".stJam1801_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1801".stJam1801_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1801".stJam1801_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1801_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1801".stJam1801_1.arCarrier);
	                            "DB_JamArea1801".stJam1801_1.arCarrier["cJam1801_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1801_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1801_2
	                    FOR #nIdx1 := 1 TO "cJam1801_2" DO
	                        IF "DB_JamArea1801".stJam1801_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1801".stJam1801_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1801".stJam1801_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1801_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1801".stJam1801_2.arCarrier);
	                            "DB_JamArea1801".stJam1801_2.arCarrier["cJam1801_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1801_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 4701_1
	                    FOR #nIdx1 := 1 TO "cJam4701_1" DO
	                        IF "DB_JamArea4701".stJam4701_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea4701".stJam4701_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea4701".stJam4701_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam4701_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea4701".stJam4701_1.arCarrier);
	                            "DB_JamArea4701".stJam4701_1.arCarrier["cJam4701_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J4701_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 4701_2
	                    FOR #nIdx1 := 1 TO "cJam4701_2" DO
	                        IF "DB_JamArea4701".stJam4701_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea4701".stJam4701_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea4701".stJam4701_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam4701_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea4701".stJam4701_2.arCarrier);
	                            "DB_JamArea4701".stJam4701_2.arCarrier["cJam4701_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J4701_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	            END_REGION
	            
	        2:
	            REGION Mittleres Drittel
	                REGION Lager 1.2.1
	                    FOR #nIdx1 := 1 TO "cNoLines1.2.1" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock2" DO
	                            IF "DB_Storage1.2.1".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.2.1".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.2.1".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock2" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.2.1".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.2.1".arLine[#nIdx1].arCarrier["cNoPositionsBlock2"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.2.1 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	                REGION Lager 1.2.2
	                    FOR #nIdx1 := 1 TO "cNoLines1.2.2" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock2" DO
	                            IF "DB_Storage1.2.2".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.2.2".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.2.2".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock2" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.2.2".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.2.2".arLine[#nIdx1].arCarrier["cNoPositionsBlock2"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.2.2 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	                REGION Lager 1.2.3
	                    FOR #nIdx1 := 1 TO "cNoLines1.2.3" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock2" DO
	                            IF "DB_Storage1.2.3".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.2.3".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.2.3".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock2" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.2.3".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.2.3".arLine[#nIdx1].arCarrier["cNoPositionsBlock2"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.2.3 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	                REGION Lager 1.2.4
	                    FOR #nIdx1 := 1 TO "cNoLines1.2.4" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock2" DO
	                            IF "DB_Storage1.2.4".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.2.4".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.2.4".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock2" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.2.4".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.2.4".arLine[#nIdx1].arCarrier["cNoPositionsBlock2"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.2.4 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1201_1
	                    FOR #nIdx1 := 1 TO "cJam1201_1" DO
	                        IF "DB_JamArea1201".stJam1201_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1201".stJam1201_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1201".stJam1201_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1201_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1201".stJam1201_1.arCarrier);
	                            "DB_JamArea1201".stJam1201_1.arCarrier["cJam1201_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1201_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1201_2
	                    FOR #nIdx1 := 1 TO "cJam1201_2" DO
	                        IF "DB_JamArea1201".stJam1201_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1201".stJam1201_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1201".stJam1201_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1201_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1201".stJam1201_2.arCarrier);
	                            "DB_JamArea1201".stJam1201_2.arCarrier["cJam1201_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1201_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1202_1
	                    FOR #nIdx1 := 1 TO "cJam1202_1" DO
	                        IF "DB_JamArea1202".stJam1202_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1202".stJam1202_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1202".stJam1202_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1202_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1202".stJam1202_1.arCarrier);
	                            "DB_JamArea1202".stJam1202_1.arCarrier["cJam1202_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1202_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1202_2
	                    FOR #nIdx1 := 1 TO "cJam1202_2" DO
	                        IF "DB_JamArea1202".stJam1202_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1202".stJam1202_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1202".stJam1202_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1202_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1202".stJam1202_2.arCarrier);
	                            "DB_JamArea1202".stJam1202_2.arCarrier["cJam1202_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1202_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1202_3
	                    FOR #nIdx1 := 1 TO "cJam1202_3" DO
	                        IF "DB_JamArea1202".stJam1202_3.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1202".stJam1202_3.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1202".stJam1202_3.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1202_3" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1202".stJam1202_3.arCarrier);
	                            "DB_JamArea1202".stJam1202_3.arCarrier["cJam1202_3"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1202_3';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	               
	                REGION Jam Area 1203_1
	                    FOR #nIdx1 := 1 TO "cJam1203_1" DO
	                        IF "DB_JamArea1203".stJam1203_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1203".stJam1203_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1203".stJam1203_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1203_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1203".stJam1203_1.arCarrier);
	                            "DB_JamArea1203".stJam1203_1.arCarrier["cJam1203_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1203_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1203_2
	                    FOR #nIdx1 := 1 TO "cJam1203_2" DO
	                        IF "DB_JamArea1203".stJam1203_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1203".stJam1203_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1203".stJam1203_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1203_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1203".stJam1203_2.arCarrier);
	                            "DB_JamArea1203".stJam1203_2.arCarrier["cJam1203_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1203_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1204_1
	                    FOR #nIdx1 := 1 TO "cJam1204_1" DO
	                        IF "DB_JamArea1204".stJam1204_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1204".stJam1204_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1204".stJam1204_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1204_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1204".stJam1204_1.arCarrier);
	                            "DB_JamArea1204".stJam1204_1.arCarrier["cJam1204_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1204_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1204_2
	                    FOR #nIdx1 := 1 TO "cJam1204_2" DO
	                        IF "DB_JamArea1204".stJam1204_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1204".stJam1204_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1204".stJam1204_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1204_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1204".stJam1204_2.arCarrier);
	                            "DB_JamArea1204".stJam1204_2.arCarrier["cJam1204_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1204_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1204_3
	                    FOR #nIdx1 := 1 TO "cJam1204_3" DO
	                        IF "DB_JamArea1204".stJam1204_3.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1204".stJam1204_3.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1204".stJam1204_3.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1204_3" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1204".stJam1204_3.arCarrier);
	                            "DB_JamArea1204".stJam1204_3.arCarrier["cJam1204_3"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1204_3';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	               
	                REGION Jam Area 1205_1
	                    FOR #nIdx1 := 1 TO "cJam1205_1" DO
	                        IF "DB_JamArea1205".stJam1205_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1205".stJam1205_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1205".stJam1205_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1205_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1205".stJam1205_1.arCarrier);
	                            "DB_JamArea1205".stJam1205_1.arCarrier["cJam1205_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1205_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1205_2
	                    FOR #nIdx1 := 1 TO "cJam1205_2" DO
	                        IF "DB_JamArea1205".stJam1205_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1205".stJam1205_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1205".stJam1205_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1205_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1205".stJam1205_2.arCarrier);
	                            "DB_JamArea1205".stJam1205_2.arCarrier["cJam1205_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1205_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1206_1
	                    FOR #nIdx1 := 1 TO "cJam1206_1" DO
	                        IF "DB_JamArea1206".stJam1206_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1206".stJam1206_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1206".stJam1206_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1206_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1206".stJam1206_1.arCarrier);
	                            "DB_JamArea1206".stJam1206_1.arCarrier["cJam1206_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1206_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1206_2
	                    FOR #nIdx1 := 1 TO "cJam1206_2" DO
	                        IF "DB_JamArea1206".stJam1206_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1206".stJam1206_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1206".stJam1206_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1206_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1206".stJam1206_2.arCarrier);
	                            "DB_JamArea1206".stJam1206_2.arCarrier["cJam1206_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1206_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1207_1
	                    FOR #nIdx1 := 1 TO "cJam1207_1" DO
	                        IF "DB_JamArea1207".stJam1207_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1207".stJam1207_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1207".stJam1207_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1207_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1207".stJam1207_1.arCarrier);
	                            "DB_JamArea1207".stJam1207_1.arCarrier["cJam1207_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1207_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1207_2
	                    FOR #nIdx1 := 1 TO "cJam1207_2" DO
	                        IF "DB_JamArea1207".stJam1207_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1207".stJam1207_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1207".stJam1207_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1207_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1207".stJam1207_2.arCarrier);
	                            "DB_JamArea1207".stJam1207_2.arCarrier["cJam1207_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1207_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1208_1
	                    FOR #nIdx1 := 1 TO "cJam1208_1" DO
	                        IF "DB_JamArea1208".stJam1208_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1208".stJam1208_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1208".stJam1208_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1208_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1208".stJam1208_1.arCarrier);
	                            "DB_JamArea1208".stJam1208_1.arCarrier["cJam1208_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1208_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1208_2
	                    FOR #nIdx1 := 1 TO "cJam1208_2" DO
	                        IF "DB_JamArea1208".stJam1208_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1208".stJam1208_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1208".stJam1208_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1208_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1208".stJam1208_2.arCarrier);
	                            "DB_JamArea1208".stJam1208_2.arCarrier["cJam1208_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1208_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	            END_REGION
	            REGION Oberes Drittel
	                REGION Lager 1.1.1
	                    FOR #nIdx1 := 1 TO "cNoLines1.1.1" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock1" DO
	                            IF "DB_Storage1.1.1".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.1.1".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.1.1".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock1" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.1.1".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.1.1".arLine[#nIdx1].arCarrier["cNoPositionsBlock1"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.1.1 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	                REGION Lager 1.1.2
	                    FOR #nIdx1 := 1 TO "cNoLines1.1.2" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock1" DO
	                            IF "DB_Storage1.1.2".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.1.2".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.1.2".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock1" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.1.2".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.1.2".arLine[#nIdx1].arCarrier["cNoPositionsBlock1"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.1.2 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	                REGION Lager 1.1.3
	                    FOR #nIdx1 := 1 TO "cNoLines1.1.3" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock1" DO
	                            IF "DB_Storage1.1.3".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.1.3".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.1.3".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock1" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.1.3".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.1.3".arLine[#nIdx1].arCarrier["cNoPositionsBlock1"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.1.3 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	                REGION Lager 1.1.4
	                    FOR #nIdx1 := 1 TO "cNoLines1.1.4" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock1" DO
	                            IF "DB_Storage1.1.4".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.1.4".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.1.4".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock1" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.1.4".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.1.4".arLine[#nIdx1].arCarrier["cNoPositionsBlock1"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.1.4 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	             
	                REGION Jam Area 1101_1
	                    FOR #nIdx1 := 1 TO "cJam1101_1" DO
	                        IF "DB_JamArea1101".stJam1101_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1101".stJam1101_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1101".stJam1101_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1101_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1101".stJam1101_1.arCarrier);
	                            "DB_JamArea1101".stJam1101_1.arCarrier["cJam1101_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1101_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1101_2
	                    FOR #nIdx1 := 1 TO "cJam1101_2" DO
	                        IF "DB_JamArea1101".stJam1101_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1101".stJam1101_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1101".stJam1101_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1101_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1101".stJam1101_2.arCarrier);
	                            "DB_JamArea1101".stJam1101_2.arCarrier["cJam1101_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1101_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1102_1
	                    FOR #nIdx1 := 1 TO "cJam1102_1" DO
	                        IF "DB_JamArea1102".stJam1102_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1102".stJam1102_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1102".stJam1102_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1102_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1102".stJam1102_1.arCarrier);
	                            "DB_JamArea1102".stJam1102_1.arCarrier["cJam1102_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1102_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1102_2
	                    FOR #nIdx1 := 1 TO "cJam1102_2" DO
	                        IF "DB_JamArea1102".stJam1102_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1102".stJam1102_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1102".stJam1102_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1102_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1102".stJam1102_2.arCarrier);
	                            "DB_JamArea1102".stJam1102_2.arCarrier["cJam1102_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1102_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1102_3
	                    FOR #nIdx1 := 1 TO "cJam1102_3" DO
	                        IF "DB_JamArea1102".stJam1102_3.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1102".stJam1102_3.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1102".stJam1102_3.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1102_3" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1102".stJam1102_3.arCarrier);
	                            "DB_JamArea1102".stJam1102_3.arCarrier["cJam1102_3"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1102_3';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	               
	                REGION Jam Area 1103_1
	                    FOR #nIdx1 := 1 TO "cJam1103_1" DO
	                        IF "DB_JamArea1103".stJam1103_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1103".stJam1103_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1103".stJam1103_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1103_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1103".stJam1103_1.arCarrier);
	                            "DB_JamArea1103".stJam1103_1.arCarrier["cJam1103_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1103_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1103_2
	                    FOR #nIdx1 := 1 TO "cJam1103_2" DO
	                        IF "DB_JamArea1103".stJam1103_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1103".stJam1103_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1103".stJam1103_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1103_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1103".stJam1103_2.arCarrier);
	                            "DB_JamArea1103".stJam1103_2.arCarrier["cJam1103_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1103_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1104_1
	                    FOR #nIdx1 := 1 TO "cJam1104_1" DO
	                        IF "DB_JamArea1104".stJam1104_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1104".stJam1104_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1104".stJam1104_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1104_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1104".stJam1104_1.arCarrier);
	                            "DB_JamArea1104".stJam1104_1.arCarrier["cJam1104_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1104_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1104_2
	                    FOR #nIdx1 := 1 TO "cJam1104_2" DO
	                        IF "DB_JamArea1104".stJam1104_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1104".stJam1104_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1104".stJam1104_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1104_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1104".stJam1104_2.arCarrier);
	                            "DB_JamArea1104".stJam1104_2.arCarrier["cJam1104_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1104_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1104_3
	                    FOR #nIdx1 := 1 TO "cJam1104_3" DO
	                        IF "DB_JamArea1104".stJam1104_3.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1104".stJam1104_3.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1104".stJam1104_3.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1104_3" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1104".stJam1104_3.arCarrier);
	                            "DB_JamArea1104".stJam1104_3.arCarrier["cJam1104_3"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1104_3';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	               
	                REGION Jam Area 1105_1
	                    FOR #nIdx1 := 1 TO "cJam1105_1" DO
	                        IF "DB_JamArea1105".stJam1105_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1105".stJam1105_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1105".stJam1105_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1105_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1105".stJam1105_1.arCarrier);
	                            "DB_JamArea1105".stJam1105_1.arCarrier["cJam1105_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1105_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1105_2
	                    FOR #nIdx1 := 1 TO "cJam1105_2" DO
	                        IF "DB_JamArea1105".stJam1105_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1105".stJam1105_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1105".stJam1105_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1105_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1105".stJam1105_2.arCarrier);
	                            "DB_JamArea1105".stJam1105_2.arCarrier["cJam1105_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1105_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1106_1
	                    FOR #nIdx1 := 1 TO "cJam1106_1" DO
	                        IF "DB_JamArea1106".stJam1106_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1106".stJam1106_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1106".stJam1106_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1106_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1106".stJam1106_1.arCarrier);
	                            "DB_JamArea1106".stJam1106_1.arCarrier["cJam1106_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1106_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1106_2
	                    FOR #nIdx1 := 1 TO "cJam1106_2" DO
	                        IF "DB_JamArea1106".stJam1106_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1106".stJam1106_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1106".stJam1106_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1106_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1106".stJam1106_2.arCarrier);
	                            "DB_JamArea1106".stJam1106_2.arCarrier["cJam1106_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1106_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1107_1
	                    FOR #nIdx1 := 1 TO "cJam1107_1" DO
	                        IF "DB_JamArea1107".stJam1107_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1107".stJam1107_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1107".stJam1107_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1107_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1107".stJam1107_1.arCarrier);
	                            "DB_JamArea1107".stJam1107_1.arCarrier["cJam1107_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1107_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1107_2
	                    FOR #nIdx1 := 1 TO "cJam1107_2" DO
	                        IF "DB_JamArea1107".stJam1107_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1107".stJam1107_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1107".stJam1107_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1107_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1107".stJam1107_2.arCarrier);
	                            "DB_JamArea1107".stJam1107_2.arCarrier["cJam1107_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1107_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1108_1
	                    FOR #nIdx1 := 1 TO "cJam1108_1" DO
	                        IF "DB_JamArea1108".stJam1108_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1108".stJam1108_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1108".stJam1108_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1108_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1108".stJam1108_1.arCarrier);
	                            "DB_JamArea1108".stJam1108_1.arCarrier["cJam1108_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1108_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1108_2
	                    FOR #nIdx1 := 1 TO "cJam1108_2" DO
	                        IF "DB_JamArea1108".stJam1108_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1108".stJam1108_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1108".stJam1108_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1108_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1108".stJam1108_2.arCarrier);
	                            "DB_JamArea1108".stJam1108_2.arCarrier["cJam1108_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1108_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                
	                REGION Jam Area 1109_1
	                    FOR #nIdx1 := 1 TO "cJam1109_1" DO
	                        IF "DB_JamArea1109".stJam1109_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1109".stJam1109_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1109".stJam1109_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1109_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1109".stJam1109_1.arCarrier);
	                            "DB_JamArea1109".stJam1109_1.arCarrier["cJam1109_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1109_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                
	                REGION Jam Area 1109_2
	                    FOR #nIdx1 := 1 TO "cJam1109_2" DO
	                        IF "DB_JamArea1109".stJam1109_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1109".stJam1109_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1109".stJam1109_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1109_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1109".stJam1109_2.arCarrier);
	                            "DB_JamArea1109".stJam1109_2.arCarrier["cJam1109_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1109_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	            END_REGION
	            REGION Unteres Drittel
	                REGION Lager 1.3.1
	                    FOR #nIdx1 := 1 TO "cNoLines1.3.1" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock3" DO
	                            IF "DB_Storage1.3.1".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.3.1".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.3.1".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock3" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.3.1".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.3.1".arLine[#nIdx1].arCarrier["cNoPositionsBlock3"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.3.1 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	                REGION Lager 1.3.2
	                    FOR #nIdx1 := 1 TO "cNoLines1.3.2" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock3" DO
	                            IF "DB_Storage1.3.2".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.3.2".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.3.2".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock3" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.3.2".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.3.2".arLine[#nIdx1].arCarrier["cNoPositionsBlock3"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.3.2 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	                REGION Lager 1.3.3
	                    FOR #nIdx1 := 1 TO "cNoLines1.3.3" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock3" DO
	                            IF "DB_Storage1.3.3".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.3.3".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.3.3".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock3" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.3.3".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.3.3".arLine[#nIdx1].arCarrier["cNoPositionsBlock3"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.3.3 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	                REGION Lager 1.3.4
	                    FOR #nIdx1 := 1 TO "cNoLines1.3.4" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock3" DO
	                            IF "DB_Storage1.3.4".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.3.4".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.3.4".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock3" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.3.4".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.3.4".arLine[#nIdx1].arCarrier["cNoPositionsBlock3"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.3.4 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	               
	                REGION Jam Area 1301_1
	                    FOR #nIdx1 := 1 TO "cJam1301_1" DO
	                        IF "DB_JamArea1301".stJam1301_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1301".stJam1301_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1301".stJam1301_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1301_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1301".stJam1301_1.arCarrier);
	                            "DB_JamArea1301".stJam1301_1.arCarrier["cJam1301_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1301_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1301_2
	                    FOR #nIdx1 := 1 TO "cJam1301_2" DO
	                        IF "DB_JamArea1301".stJam1301_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1301".stJam1301_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1301".stJam1301_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1301_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1301".stJam1301_2.arCarrier);
	                            "DB_JamArea1301".stJam1301_2.arCarrier["cJam1301_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1301_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1302_1
	                    FOR #nIdx1 := 1 TO "cJam1302_1" DO
	                        IF "DB_JamArea1302".stJam1302_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1302".stJam1302_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1302".stJam1302_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1302_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1302".stJam1302_1.arCarrier);
	                            "DB_JamArea1302".stJam1302_1.arCarrier["cJam1302_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1302_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1302_2
	                    FOR #nIdx1 := 1 TO "cJam1302_2" DO
	                        IF "DB_JamArea1302".stJam1302_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1302".stJam1302_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1302".stJam1302_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1302_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1302".stJam1302_2.arCarrier);
	                            "DB_JamArea1302".stJam1302_2.arCarrier["cJam1302_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1302_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1302_3
	                    FOR #nIdx1 := 1 TO "cJam1302_3" DO
	                        IF "DB_JamArea1302".stJam1302_3.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1302".stJam1302_3.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1302".stJam1302_3.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1302_3" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1302".stJam1302_3.arCarrier);
	                            "DB_JamArea1302".stJam1302_3.arCarrier["cJam1302_3"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1302_3';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	               
	                REGION Jam Area 1303_1
	                    FOR #nIdx1 := 1 TO "cJam1303_1" DO
	                        IF "DB_JamArea1303".stJam1303_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1303".stJam1303_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1303".stJam1303_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1303_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1303".stJam1303_1.arCarrier);
	                            "DB_JamArea1303".stJam1303_1.arCarrier["cJam1303_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1303_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1303_2
	                    FOR #nIdx1 := 1 TO "cJam1303_2" DO
	                        IF "DB_JamArea1303".stJam1303_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1303".stJam1303_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1303".stJam1303_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1303_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1303".stJam1303_2.arCarrier);
	                            "DB_JamArea1303".stJam1303_2.arCarrier["cJam1303_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1303_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1304_1
	                    FOR #nIdx1 := 1 TO "cJam1304_1" DO
	                        IF "DB_JamArea1304".stJam1304_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1304".stJam1304_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1304".stJam1304_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1304_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1304".stJam1304_1.arCarrier);
	                            "DB_JamArea1304".stJam1304_1.arCarrier["cJam1304_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1304_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1304_2
	                    FOR #nIdx1 := 1 TO "cJam1304_2" DO
	                        IF "DB_JamArea1304".stJam1304_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1304".stJam1304_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1304".stJam1304_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1304_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1304".stJam1304_2.arCarrier);
	                            "DB_JamArea1304".stJam1304_2.arCarrier["cJam1304_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1304_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1304_3
	                    FOR #nIdx1 := 1 TO "cJam1304_3" DO
	                        IF "DB_JamArea1304".stJam1304_3.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1304".stJam1304_3.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1304".stJam1304_3.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1304_3" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1304".stJam1304_3.arCarrier);
	                            "DB_JamArea1304".stJam1304_3.arCarrier["cJam1304_3"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1304_3';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	               
	                REGION Jam Area 1305_1
	                    FOR #nIdx1 := 1 TO "cJam1305_1" DO
	                        IF "DB_JamArea1305".stJam1305_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1305".stJam1305_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1305".stJam1305_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1305_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1305".stJam1305_1.arCarrier);
	                            "DB_JamArea1305".stJam1305_1.arCarrier["cJam1305_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1305_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1305_2
	                    FOR #nIdx1 := 1 TO "cJam1305_2" DO
	                        IF "DB_JamArea1305".stJam1305_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1305".stJam1305_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1305".stJam1305_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1305_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1305".stJam1305_2.arCarrier);
	                            "DB_JamArea1305".stJam1305_2.arCarrier["cJam1305_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1305_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1306_1
	                    FOR #nIdx1 := 1 TO "cJam1306_1" DO
	                        IF "DB_JamArea1306".stJam1306_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1306".stJam1306_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1306".stJam1306_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1306_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1306".stJam1306_1.arCarrier);
	                            "DB_JamArea1306".stJam1306_1.arCarrier["cJam1306_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1306_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1306_2
	                    FOR #nIdx1 := 1 TO "cJam1306_2" DO
	                        IF "DB_JamArea1306".stJam1306_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1306".stJam1306_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1306".stJam1306_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1306_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1306".stJam1306_2.arCarrier);
	                            "DB_JamArea1306".stJam1306_2.arCarrier["cJam1306_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1306_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1307_1
	                    FOR #nIdx1 := 1 TO "cJam1307_1" DO
	                        IF "DB_JamArea1307".stJam1307_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1307".stJam1307_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1307".stJam1307_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1307_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1307".stJam1307_1.arCarrier);
	                            "DB_JamArea1307".stJam1307_1.arCarrier["cJam1307_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1307_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1307_2
	                    FOR #nIdx1 := 1 TO "cJam1307_2" DO
	                        IF "DB_JamArea1307".stJam1307_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1307".stJam1307_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1307".stJam1307_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1307_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1307".stJam1307_2.arCarrier);
	                            "DB_JamArea1307".stJam1307_2.arCarrier["cJam1307_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1307_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1308_1
	                    FOR #nIdx1 := 1 TO "cJam1308_1" DO
	                        IF "DB_JamArea1308".stJam1308_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1308".stJam1308_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1308".stJam1308_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1308_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1308".stJam1308_1.arCarrier);
	                            "DB_JamArea1308".stJam1308_1.arCarrier["cJam1308_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1308_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1308_2
	                    FOR #nIdx1 := 1 TO "cJam1308_2" DO
	                        IF "DB_JamArea1308".stJam1308_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1308".stJam1308_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1308".stJam1308_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1308_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1308".stJam1308_2.arCarrier);
	                            "DB_JamArea1308".stJam1308_2.arCarrier["cJam1308_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1308_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	            END_REGION
	            REGION Seitlicher Kreisel
	                REGION Jam Area 1110_1
	                    FOR #nIdx1 := 1 TO "cJam1110_1" DO
	                        IF "DB_JamArea1110".stJam1110_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1110".stJam1110_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1110".stJam1110_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1110_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1110".stJam1110_1.arCarrier);
	                            "DB_JamArea1110".stJam1110_1.arCarrier["cJam1110_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1110_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1110_2
	                    FOR #nIdx1 := 1 TO "cJam1110_2" DO
	                        IF "DB_JamArea1110".stJam1110_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1110".stJam1110_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1110".stJam1110_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1110_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1110".stJam1110_2.arCarrier);
	                            "DB_JamArea1110".stJam1110_2.arCarrier["cJam1110_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1110_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1110_3
	                    FOR #nIdx1 := 1 TO "cJam1110_3" DO
	                        IF "DB_JamArea1110".stJam1110_3.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1110".stJam1110_3.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1110".stJam1110_3.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1110_3" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1110".stJam1110_3.arCarrier);
	                            "DB_JamArea1110".stJam1110_3.arCarrier["cJam1110_3"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1110_3';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1110_4
	                    FOR #nIdx1 := 1 TO "cJam1110_4" DO
	                        IF "DB_JamArea1110".stJam1110_4.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1110".stJam1110_4.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1110".stJam1110_4.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1110_4" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1110".stJam1110_4.arCarrier);
	                            "DB_JamArea1110".stJam1110_4.arCarrier["cJam1110_4"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1110_4';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1110_5
	                    FOR #nIdx1 := 1 TO "cJam1110_5" DO
	                        IF "DB_JamArea1110".stJam1110_5.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1110".stJam1110_5.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1110".stJam1110_5.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1110_5" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1110".stJam1110_5.arCarrier);
	                            "DB_JamArea1110".stJam1110_5.arCarrier["cJam1110_5"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1110_5';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1110_6
	                    FOR #nIdx1 := 1 TO "cJam1110_6" DO
	                        IF "DB_JamArea1110".stJam1110_6.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1110".stJam1110_6.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1110".stJam1110_6.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1110_6" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1110".stJam1110_6.arCarrier);
	                            "DB_JamArea1110".stJam1110_6.arCarrier["cJam1110_6"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1110_6';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1401_1
	                    FOR #nIdx1 := 1 TO "cJam1401_1" DO
	                        IF "DB_JamArea1401".stJam1401_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1401".stJam1401_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1401".stJam1401_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1401_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1401".stJam1401_1.arCarrier);
	                            "DB_JamArea1401".stJam1401_1.arCarrier["cJam1401_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1401_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1401_2
	                    FOR #nIdx1 := 1 TO "cJam1401_2" DO
	                        IF "DB_JamArea1401".stJam1401_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1401".stJam1401_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1401".stJam1401_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1401_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1401".stJam1401_2.arCarrier);
	                            "DB_JamArea1401".stJam1401_2.arCarrier["cJam1401_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1401_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1501_1
	                    FOR #nIdx1 := 1 TO "cJam1501_1" DO
	                        IF "DB_JamArea1501".stJam1501_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1501".stJam1501_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1501".stJam1501_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1501_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1501".stJam1501_1.arCarrier);
	                            "DB_JamArea1501".stJam1501_1.arCarrier["cJam1501_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1501_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1501_2
	                    FOR #nIdx1 := 1 TO "cJam1501_2" DO
	                        IF "DB_JamArea1501".stJam1501_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1501".stJam1501_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1501".stJam1501_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1501_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1501".stJam1501_2.arCarrier);
	                            "DB_JamArea1501".stJam1501_2.arCarrier["cJam1501_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1501_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1601_1
	                    FOR #nIdx1 := 1 TO "cJam1601_1" DO
	                        IF "DB_JamArea1601".stJam1601_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1601".stJam1601_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1601".stJam1601_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1601_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1601".stJam1601_1.arCarrier);
	                            "DB_JamArea1601".stJam1601_1.arCarrier["cJam1601_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1601_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1601_2
	                    FOR #nIdx1 := 1 TO "cJam1601_2" DO
	                        IF "DB_JamArea1601".stJam1601_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1601".stJam1601_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1601".stJam1601_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1601_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1601".stJam1601_2.arCarrier);
	                            "DB_JamArea1601".stJam1601_2.arCarrier["cJam1601_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1601_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1801_1
	                    FOR #nIdx1 := 1 TO "cJam1801_1" DO
	                        IF "DB_JamArea1801".stJam1801_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1801".stJam1801_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1801".stJam1801_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1801_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1801".stJam1801_1.arCarrier);
	                            "DB_JamArea1801".stJam1801_1.arCarrier["cJam1801_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1801_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1801_2
	                    FOR #nIdx1 := 1 TO "cJam1801_2" DO
	                        IF "DB_JamArea1801".stJam1801_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1801".stJam1801_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1801".stJam1801_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1801_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1801".stJam1801_2.arCarrier);
	                            "DB_JamArea1801".stJam1801_2.arCarrier["cJam1801_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1801_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 4701_1
	                    FOR #nIdx1 := 1 TO "cJam4701_1" DO
	                        IF "DB_JamArea4701".stJam4701_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea4701".stJam4701_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea4701".stJam4701_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam4701_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea4701".stJam4701_1.arCarrier);
	                            "DB_JamArea4701".stJam4701_1.arCarrier["cJam4701_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J4701_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 4701_2
	                    FOR #nIdx1 := 1 TO "cJam4701_2" DO
	                        IF "DB_JamArea4701".stJam4701_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea4701".stJam4701_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea4701".stJam4701_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam4701_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea4701".stJam4701_2.arCarrier);
	                            "DB_JamArea4701".stJam4701_2.arCarrier["cJam4701_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J4701_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	            END_REGION
	        3:
	            REGION Unteres Drittel
	                REGION Lager 1.3.1
	                    FOR #nIdx1 := 1 TO "cNoLines1.3.1" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock3" DO
	                            IF "DB_Storage1.3.1".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.3.1".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.3.1".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock3" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.3.1".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.3.1".arLine[#nIdx1].arCarrier["cNoPositionsBlock3"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.3.1 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	                REGION Lager 1.3.2
	                    FOR #nIdx1 := 1 TO "cNoLines1.3.2" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock3" DO
	                            IF "DB_Storage1.3.2".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.3.2".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.3.2".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock3" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.3.2".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.3.2".arLine[#nIdx1].arCarrier["cNoPositionsBlock3"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.3.2 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	                REGION Lager 1.3.3
	                    FOR #nIdx1 := 1 TO "cNoLines1.3.3" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock3" DO
	                            IF "DB_Storage1.3.3".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.3.3".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.3.3".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock3" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.3.3".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.3.3".arLine[#nIdx1].arCarrier["cNoPositionsBlock3"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.3.3 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	                REGION Lager 1.3.4
	                    FOR #nIdx1 := 1 TO "cNoLines1.3.4" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock3" DO
	                            IF "DB_Storage1.3.4".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.3.4".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.3.4".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock3" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.3.4".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.3.4".arLine[#nIdx1].arCarrier["cNoPositionsBlock3"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.3.4 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	               
	                REGION Jam Area 1301_1
	                    FOR #nIdx1 := 1 TO "cJam1301_1" DO
	                        IF "DB_JamArea1301".stJam1301_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1301".stJam1301_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1301".stJam1301_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1301_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1301".stJam1301_1.arCarrier);
	                            "DB_JamArea1301".stJam1301_1.arCarrier["cJam1301_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1301_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1301_2
	                    FOR #nIdx1 := 1 TO "cJam1301_2" DO
	                        IF "DB_JamArea1301".stJam1301_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1301".stJam1301_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1301".stJam1301_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1301_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1301".stJam1301_2.arCarrier);
	                            "DB_JamArea1301".stJam1301_2.arCarrier["cJam1301_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1301_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1302_1
	                    FOR #nIdx1 := 1 TO "cJam1302_1" DO
	                        IF "DB_JamArea1302".stJam1302_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1302".stJam1302_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1302".stJam1302_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1302_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1302".stJam1302_1.arCarrier);
	                            "DB_JamArea1302".stJam1302_1.arCarrier["cJam1302_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1302_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1302_2
	                    FOR #nIdx1 := 1 TO "cJam1302_2" DO
	                        IF "DB_JamArea1302".stJam1302_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1302".stJam1302_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1302".stJam1302_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1302_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1302".stJam1302_2.arCarrier);
	                            "DB_JamArea1302".stJam1302_2.arCarrier["cJam1302_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1302_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1302_3
	                    FOR #nIdx1 := 1 TO "cJam1302_3" DO
	                        IF "DB_JamArea1302".stJam1302_3.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1302".stJam1302_3.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1302".stJam1302_3.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1302_3" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1302".stJam1302_3.arCarrier);
	                            "DB_JamArea1302".stJam1302_3.arCarrier["cJam1302_3"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1302_3';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	               
	                REGION Jam Area 1303_1
	                    FOR #nIdx1 := 1 TO "cJam1303_1" DO
	                        IF "DB_JamArea1303".stJam1303_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1303".stJam1303_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1303".stJam1303_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1303_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1303".stJam1303_1.arCarrier);
	                            "DB_JamArea1303".stJam1303_1.arCarrier["cJam1303_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1303_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1303_2
	                    FOR #nIdx1 := 1 TO "cJam1303_2" DO
	                        IF "DB_JamArea1303".stJam1303_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1303".stJam1303_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1303".stJam1303_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1303_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1303".stJam1303_2.arCarrier);
	                            "DB_JamArea1303".stJam1303_2.arCarrier["cJam1303_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1303_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1304_1
	                    FOR #nIdx1 := 1 TO "cJam1304_1" DO
	                        IF "DB_JamArea1304".stJam1304_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1304".stJam1304_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1304".stJam1304_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1304_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1304".stJam1304_1.arCarrier);
	                            "DB_JamArea1304".stJam1304_1.arCarrier["cJam1304_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1304_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1304_2
	                    FOR #nIdx1 := 1 TO "cJam1304_2" DO
	                        IF "DB_JamArea1304".stJam1304_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1304".stJam1304_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1304".stJam1304_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1304_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1304".stJam1304_2.arCarrier);
	                            "DB_JamArea1304".stJam1304_2.arCarrier["cJam1304_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1304_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1304_3
	                    FOR #nIdx1 := 1 TO "cJam1304_3" DO
	                        IF "DB_JamArea1304".stJam1304_3.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1304".stJam1304_3.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1304".stJam1304_3.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1304_3" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1304".stJam1304_3.arCarrier);
	                            "DB_JamArea1304".stJam1304_3.arCarrier["cJam1304_3"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1304_3';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	               
	                REGION Jam Area 1305_1
	                    FOR #nIdx1 := 1 TO "cJam1305_1" DO
	                        IF "DB_JamArea1305".stJam1305_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1305".stJam1305_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1305".stJam1305_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1305_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1305".stJam1305_1.arCarrier);
	                            "DB_JamArea1305".stJam1305_1.arCarrier["cJam1305_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1305_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1305_2
	                    FOR #nIdx1 := 1 TO "cJam1305_2" DO
	                        IF "DB_JamArea1305".stJam1305_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1305".stJam1305_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1305".stJam1305_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1305_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1305".stJam1305_2.arCarrier);
	                            "DB_JamArea1305".stJam1305_2.arCarrier["cJam1305_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1305_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1306_1
	                    FOR #nIdx1 := 1 TO "cJam1306_1" DO
	                        IF "DB_JamArea1306".stJam1306_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1306".stJam1306_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1306".stJam1306_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1306_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1306".stJam1306_1.arCarrier);
	                            "DB_JamArea1306".stJam1306_1.arCarrier["cJam1306_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1306_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1306_2
	                    FOR #nIdx1 := 1 TO "cJam1306_2" DO
	                        IF "DB_JamArea1306".stJam1306_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1306".stJam1306_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1306".stJam1306_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1306_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1306".stJam1306_2.arCarrier);
	                            "DB_JamArea1306".stJam1306_2.arCarrier["cJam1306_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1306_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1307_1
	                    FOR #nIdx1 := 1 TO "cJam1307_1" DO
	                        IF "DB_JamArea1307".stJam1307_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1307".stJam1307_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1307".stJam1307_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1307_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1307".stJam1307_1.arCarrier);
	                            "DB_JamArea1307".stJam1307_1.arCarrier["cJam1307_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1307_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1307_2
	                    FOR #nIdx1 := 1 TO "cJam1307_2" DO
	                        IF "DB_JamArea1307".stJam1307_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1307".stJam1307_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1307".stJam1307_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1307_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1307".stJam1307_2.arCarrier);
	                            "DB_JamArea1307".stJam1307_2.arCarrier["cJam1307_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1307_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1308_1
	                    FOR #nIdx1 := 1 TO "cJam1308_1" DO
	                        IF "DB_JamArea1308".stJam1308_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1308".stJam1308_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1308".stJam1308_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1308_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1308".stJam1308_1.arCarrier);
	                            "DB_JamArea1308".stJam1308_1.arCarrier["cJam1308_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1308_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1308_2
	                    FOR #nIdx1 := 1 TO "cJam1308_2" DO
	                        IF "DB_JamArea1308".stJam1308_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1308".stJam1308_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1308".stJam1308_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1308_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1308".stJam1308_2.arCarrier);
	                            "DB_JamArea1308".stJam1308_2.arCarrier["cJam1308_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1308_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	            END_REGION
	            REGION Oberes Drittel
	                REGION Lager 1.1.1
	                    FOR #nIdx1 := 1 TO "cNoLines1.1.1" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock1" DO
	                            IF "DB_Storage1.1.1".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.1.1".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.1.1".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock1" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.1.1".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.1.1".arLine[#nIdx1].arCarrier["cNoPositionsBlock1"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.1.1 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	                REGION Lager 1.1.2
	                    FOR #nIdx1 := 1 TO "cNoLines1.1.2" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock1" DO
	                            IF "DB_Storage1.1.2".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.1.2".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.1.2".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock1" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.1.2".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.1.2".arLine[#nIdx1].arCarrier["cNoPositionsBlock1"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.1.2 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	                REGION Lager 1.1.3
	                    FOR #nIdx1 := 1 TO "cNoLines1.1.3" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock1" DO
	                            IF "DB_Storage1.1.3".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.1.3".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.1.3".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock1" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.1.3".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.1.3".arLine[#nIdx1].arCarrier["cNoPositionsBlock1"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.1.3 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	                REGION Lager 1.1.4
	                    FOR #nIdx1 := 1 TO "cNoLines1.1.4" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock1" DO
	                            IF "DB_Storage1.1.4".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.1.4".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.1.4".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock1" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.1.4".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.1.4".arLine[#nIdx1].arCarrier["cNoPositionsBlock1"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.1.4 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	               
	                REGION Jam Area 1101_1
	                    FOR #nIdx1 := 1 TO "cJam1101_1" DO
	                        IF "DB_JamArea1101".stJam1101_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1101".stJam1101_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1101".stJam1101_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1101_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1101".stJam1101_1.arCarrier);
	                            "DB_JamArea1101".stJam1101_1.arCarrier["cJam1101_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1101_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1101_2
	                    FOR #nIdx1 := 1 TO "cJam1101_2" DO
	                        IF "DB_JamArea1101".stJam1101_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1101".stJam1101_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1101".stJam1101_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1101_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1101".stJam1101_2.arCarrier);
	                            "DB_JamArea1101".stJam1101_2.arCarrier["cJam1101_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1101_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1102_1
	                    FOR #nIdx1 := 1 TO "cJam1102_1" DO
	                        IF "DB_JamArea1102".stJam1102_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1102".stJam1102_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1102".stJam1102_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1102_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1102".stJam1102_1.arCarrier);
	                            "DB_JamArea1102".stJam1102_1.arCarrier["cJam1102_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1102_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1102_2
	                    FOR #nIdx1 := 1 TO "cJam1102_2" DO
	                        IF "DB_JamArea1102".stJam1102_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1102".stJam1102_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1102".stJam1102_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1102_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1102".stJam1102_2.arCarrier);
	                            "DB_JamArea1102".stJam1102_2.arCarrier["cJam1102_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1102_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1102_3
	                    FOR #nIdx1 := 1 TO "cJam1102_3" DO
	                        IF "DB_JamArea1102".stJam1102_3.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1102".stJam1102_3.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1102".stJam1102_3.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1102_3" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1102".stJam1102_3.arCarrier);
	                            "DB_JamArea1102".stJam1102_3.arCarrier["cJam1102_3"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1102_3';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	               
	                REGION Jam Area 1103_1
	                    FOR #nIdx1 := 1 TO "cJam1103_1" DO
	                        IF "DB_JamArea1103".stJam1103_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1103".stJam1103_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1103".stJam1103_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1103_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1103".stJam1103_1.arCarrier);
	                            "DB_JamArea1103".stJam1103_1.arCarrier["cJam1103_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1103_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1103_2
	                    FOR #nIdx1 := 1 TO "cJam1103_2" DO
	                        IF "DB_JamArea1103".stJam1103_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1103".stJam1103_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1103".stJam1103_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1103_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1103".stJam1103_2.arCarrier);
	                            "DB_JamArea1103".stJam1103_2.arCarrier["cJam1103_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1103_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1104_1
	                    FOR #nIdx1 := 1 TO "cJam1104_1" DO
	                        IF "DB_JamArea1104".stJam1104_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1104".stJam1104_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1104".stJam1104_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1104_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1104".stJam1104_1.arCarrier);
	                            "DB_JamArea1104".stJam1104_1.arCarrier["cJam1104_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1104_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1104_2
	                    FOR #nIdx1 := 1 TO "cJam1104_2" DO
	                        IF "DB_JamArea1104".stJam1104_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1104".stJam1104_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1104".stJam1104_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1104_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1104".stJam1104_2.arCarrier);
	                            "DB_JamArea1104".stJam1104_2.arCarrier["cJam1104_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1104_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1104_3
	                    FOR #nIdx1 := 1 TO "cJam1104_3" DO
	                        IF "DB_JamArea1104".stJam1104_3.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1104".stJam1104_3.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1104".stJam1104_3.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1104_3" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1104".stJam1104_3.arCarrier);
	                            "DB_JamArea1104".stJam1104_3.arCarrier["cJam1104_3"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1104_3';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	              
	                REGION Jam Area 1105_1
	                    FOR #nIdx1 := 1 TO "cJam1105_1" DO
	                        IF "DB_JamArea1105".stJam1105_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1105".stJam1105_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1105".stJam1105_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1105_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1105".stJam1105_1.arCarrier);
	                            "DB_JamArea1105".stJam1105_1.arCarrier["cJam1105_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1105_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1105_2
	                    FOR #nIdx1 := 1 TO "cJam1105_2" DO
	                        IF "DB_JamArea1105".stJam1105_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1105".stJam1105_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1105".stJam1105_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1105_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1105".stJam1105_2.arCarrier);
	                            "DB_JamArea1105".stJam1105_2.arCarrier["cJam1105_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1105_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1106_1
	                    FOR #nIdx1 := 1 TO "cJam1106_1" DO
	                        IF "DB_JamArea1106".stJam1106_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1106".stJam1106_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1106".stJam1106_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1106_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1106".stJam1106_1.arCarrier);
	                            "DB_JamArea1106".stJam1106_1.arCarrier["cJam1106_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1106_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1106_2
	                    FOR #nIdx1 := 1 TO "cJam1106_2" DO
	                        IF "DB_JamArea1106".stJam1106_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1106".stJam1106_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1106".stJam1106_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1106_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1106".stJam1106_2.arCarrier);
	                            "DB_JamArea1106".stJam1106_2.arCarrier["cJam1106_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1106_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1107_1
	                    FOR #nIdx1 := 1 TO "cJam1107_1" DO
	                        IF "DB_JamArea1107".stJam1107_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1107".stJam1107_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1107".stJam1107_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1107_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1107".stJam1107_1.arCarrier);
	                            "DB_JamArea1107".stJam1107_1.arCarrier["cJam1107_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1107_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1107_2
	                    FOR #nIdx1 := 1 TO "cJam1107_2" DO
	                        IF "DB_JamArea1107".stJam1107_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1107".stJam1107_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1107".stJam1107_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1107_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1107".stJam1107_2.arCarrier);
	                            "DB_JamArea1107".stJam1107_2.arCarrier["cJam1107_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1107_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1108_1
	                    FOR #nIdx1 := 1 TO "cJam1108_1" DO
	                        IF "DB_JamArea1108".stJam1108_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1108".stJam1108_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1108".stJam1108_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1108_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1108".stJam1108_1.arCarrier);
	                            "DB_JamArea1108".stJam1108_1.arCarrier["cJam1108_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1108_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1108_2
	                    FOR #nIdx1 := 1 TO "cJam1108_2" DO
	                        IF "DB_JamArea1108".stJam1108_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1108".stJam1108_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1108".stJam1108_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1108_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1108".stJam1108_2.arCarrier);
	                            "DB_JamArea1108".stJam1108_2.arCarrier["cJam1108_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1108_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                
	                REGION Jam Area 1109_1
	                    FOR #nIdx1 := 1 TO "cJam1109_1" DO
	                        IF "DB_JamArea1109".stJam1109_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1109".stJam1109_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1109".stJam1109_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1109_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1109".stJam1109_1.arCarrier);
	                            "DB_JamArea1109".stJam1109_1.arCarrier["cJam1109_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1109_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                
	                REGION Jam Area 1109_2
	                    FOR #nIdx1 := 1 TO "cJam1109_2" DO
	                        IF "DB_JamArea1109".stJam1109_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1109".stJam1109_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1109".stJam1109_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1109_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1109".stJam1109_2.arCarrier);
	                            "DB_JamArea1109".stJam1109_2.arCarrier["cJam1109_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1109_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	            END_REGION
	            REGION Mittleres Drittel
	                REGION Lager 1.2.1
	                    FOR #nIdx1 := 1 TO "cNoLines1.2.1" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock2" DO
	                            IF "DB_Storage1.2.1".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.2.1".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.2.1".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock2" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.2.1".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.2.1".arLine[#nIdx1].arCarrier["cNoPositionsBlock2"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.2.1 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	                REGION Lager 1.2.2
	                    FOR #nIdx1 := 1 TO "cNoLines1.2.2" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock2" DO
	                            IF "DB_Storage1.2.2".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.2.2".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.2.2".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock2" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.2.2".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.2.2".arLine[#nIdx1].arCarrier["cNoPositionsBlock2"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.2.2 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	                REGION Lager 1.2.3
	                    FOR #nIdx1 := 1 TO "cNoLines1.2.3" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock2" DO
	                            IF "DB_Storage1.2.3".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.2.3".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.2.3".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock2" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.2.3".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.2.3".arLine[#nIdx1].arCarrier["cNoPositionsBlock2"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.2.3 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	                REGION Lager 1.2.4
	                    FOR #nIdx1 := 1 TO "cNoLines1.2.4" DO
	                        FOR #nIdx2 := 1 TO "cNoPositionsBlock2" DO
	                            IF "DB_Storage1.2.4".arLine[#nIdx1].arCarrier[#nIdx2].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                                #tmpPartJam := "DB_Storage1.2.4".arLine[#nIdx1].arCarrier[#nIdx2];
	                                #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_Storage1.2.4".arLine[#nIdx1].arCarrier,
	                                                               COUNT := INT_TO_UDINT("cNoPositionsBlock2" - #nIdx2), //lösche Teil und rücke Rest nach
	                                                               SRC_INDEX := #nIdx2,
	                                                               DEST_INDEX := #nIdx2 - 1,
	                                                               DEST => "DB_Storage1.2.4".arLine[#nIdx1].arCarrier);
	                                "DB_Storage1.2.4".arLine[#nIdx1].arCarrier["cNoPositionsBlock2"] := #tmpEmpty; //lösche letzte Position
	                                REGION Event Log                           
	                                    #arOutEventLogInfo[0].xTrigger := TRUE;
	                                    #arOutEventLogInfo[0].nCorrectionType := 1;
	                                    #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                    #arOutEventLogInfo[0].sLoc := CONCAT(IN1 := 'B2.2.4 L', IN2 := DELETE_STRING(IN := INT_TO_STRING(#nIdx1), L := 1, P := 1));
	                                    #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx2);
	                                    #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                                END_REGION
	                                GOTO END;
	                            END_IF;
	                        END_FOR;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1201_1
	                    FOR #nIdx1 := 1 TO "cJam1201_1" DO
	                        IF "DB_JamArea1201".stJam1201_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1201".stJam1201_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1201".stJam1201_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1201_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1201".stJam1201_1.arCarrier);
	                            "DB_JamArea1201".stJam1201_1.arCarrier["cJam1201_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1201_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1201_2
	                    FOR #nIdx1 := 1 TO "cJam1201_2" DO
	                        IF "DB_JamArea1201".stJam1201_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1201".stJam1201_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1201".stJam1201_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1201_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1201".stJam1201_2.arCarrier);
	                            "DB_JamArea1201".stJam1201_2.arCarrier["cJam1201_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1201_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1202_1
	                    FOR #nIdx1 := 1 TO "cJam1202_1" DO
	                        IF "DB_JamArea1202".stJam1202_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1202".stJam1202_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1202".stJam1202_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1202_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1202".stJam1202_1.arCarrier);
	                            "DB_JamArea1202".stJam1202_1.arCarrier["cJam1202_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1202_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1202_2
	                    FOR #nIdx1 := 1 TO "cJam1202_2" DO
	                        IF "DB_JamArea1202".stJam1202_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1202".stJam1202_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1202".stJam1202_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1202_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1202".stJam1202_2.arCarrier);
	                            "DB_JamArea1202".stJam1202_2.arCarrier["cJam1202_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1202_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1202_3
	                    FOR #nIdx1 := 1 TO "cJam1202_3" DO
	                        IF "DB_JamArea1202".stJam1202_3.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1202".stJam1202_3.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1202".stJam1202_3.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1202_3" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1202".stJam1202_3.arCarrier);
	                            "DB_JamArea1202".stJam1202_3.arCarrier["cJam1202_3"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1202_3';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	               
	                REGION Jam Area 1203_1
	                    FOR #nIdx1 := 1 TO "cJam1203_1" DO
	                        IF "DB_JamArea1203".stJam1203_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1203".stJam1203_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1203".stJam1203_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1203_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1203".stJam1203_1.arCarrier);
	                            "DB_JamArea1203".stJam1203_1.arCarrier["cJam1203_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1203_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1203_2
	                    FOR #nIdx1 := 1 TO "cJam1203_2" DO
	                        IF "DB_JamArea1203".stJam1203_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1203".stJam1203_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1203".stJam1203_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1203_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1203".stJam1203_2.arCarrier);
	                            "DB_JamArea1203".stJam1203_2.arCarrier["cJam1203_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1203_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1204_1
	                    FOR #nIdx1 := 1 TO "cJam1204_1" DO
	                        IF "DB_JamArea1204".stJam1204_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1204".stJam1204_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1204".stJam1204_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1204_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1204".stJam1204_1.arCarrier);
	                            "DB_JamArea1204".stJam1204_1.arCarrier["cJam1204_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1204_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1204_2
	                    FOR #nIdx1 := 1 TO "cJam1204_2" DO
	                        IF "DB_JamArea1204".stJam1204_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1204".stJam1204_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1204".stJam1204_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1204_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1204".stJam1204_2.arCarrier);
	                            "DB_JamArea1204".stJam1204_2.arCarrier["cJam1204_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1204_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1204_3
	                    FOR #nIdx1 := 1 TO "cJam1204_3" DO
	                        IF "DB_JamArea1204".stJam1204_3.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1204".stJam1204_3.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1204".stJam1204_3.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1204_3" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1204".stJam1204_3.arCarrier);
	                            "DB_JamArea1204".stJam1204_3.arCarrier["cJam1204_3"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1204_3';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	               
	                REGION Jam Area 1205_1
	                    FOR #nIdx1 := 1 TO "cJam1205_1" DO
	                        IF "DB_JamArea1205".stJam1205_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1205".stJam1205_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1205".stJam1205_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1205_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1205".stJam1205_1.arCarrier);
	                            "DB_JamArea1205".stJam1205_1.arCarrier["cJam1205_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1205_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1205_2
	                    FOR #nIdx1 := 1 TO "cJam1205_2" DO
	                        IF "DB_JamArea1205".stJam1205_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1205".stJam1205_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1205".stJam1205_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1205_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1205".stJam1205_2.arCarrier);
	                            "DB_JamArea1205".stJam1205_2.arCarrier["cJam1205_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1205_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1206_1
	                    FOR #nIdx1 := 1 TO "cJam1206_1" DO
	                        IF "DB_JamArea1206".stJam1206_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1206".stJam1206_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1206".stJam1206_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1206_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1206".stJam1206_1.arCarrier);
	                            "DB_JamArea1206".stJam1206_1.arCarrier["cJam1206_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1206_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1206_2
	                    FOR #nIdx1 := 1 TO "cJam1206_2" DO
	                        IF "DB_JamArea1206".stJam1206_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1206".stJam1206_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1206".stJam1206_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1206_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1206".stJam1206_2.arCarrier);
	                            "DB_JamArea1206".stJam1206_2.arCarrier["cJam1206_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1206_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1207_1
	                    FOR #nIdx1 := 1 TO "cJam1207_1" DO
	                        IF "DB_JamArea1207".stJam1207_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1207".stJam1207_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1207".stJam1207_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1207_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1207".stJam1207_1.arCarrier);
	                            "DB_JamArea1207".stJam1207_1.arCarrier["cJam1207_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1207_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1207_2
	                    FOR #nIdx1 := 1 TO "cJam1207_2" DO
	                        IF "DB_JamArea1207".stJam1207_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1207".stJam1207_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1207".stJam1207_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1207_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1207".stJam1207_2.arCarrier);
	                            "DB_JamArea1207".stJam1207_2.arCarrier["cJam1207_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1207_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1208_1
	                    FOR #nIdx1 := 1 TO "cJam1208_1" DO
	                        IF "DB_JamArea1208".stJam1208_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1208".stJam1208_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1208".stJam1208_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1208_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1208".stJam1208_1.arCarrier);
	                            "DB_JamArea1208".stJam1208_1.arCarrier["cJam1208_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1208_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1208_2
	                    FOR #nIdx1 := 1 TO "cJam1208_2" DO
	                        IF "DB_JamArea1208".stJam1208_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1208".stJam1208_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1208".stJam1208_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1208_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1208".stJam1208_2.arCarrier);
	                            "DB_JamArea1208".stJam1208_2.arCarrier["cJam1208_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1208_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	            END_REGION
	            REGION Seitlicher Kreisel
	                REGION Jam Area 1110_1
	                    FOR #nIdx1 := 1 TO "cJam1110_1" DO
	                        IF "DB_JamArea1110".stJam1110_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1110".stJam1110_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1110".stJam1110_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1110_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1110".stJam1110_1.arCarrier);
	                            "DB_JamArea1110".stJam1110_1.arCarrier["cJam1110_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1110_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1110_2
	                    FOR #nIdx1 := 1 TO "cJam1110_2" DO
	                        IF "DB_JamArea1110".stJam1110_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1110".stJam1110_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1110".stJam1110_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1110_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1110".stJam1110_2.arCarrier);
	                            "DB_JamArea1110".stJam1110_2.arCarrier["cJam1110_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1110_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1110_3
	                    FOR #nIdx1 := 1 TO "cJam1110_3" DO
	                        IF "DB_JamArea1110".stJam1110_3.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1110".stJam1110_3.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1110".stJam1110_3.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1110_3" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1110".stJam1110_3.arCarrier);
	                            "DB_JamArea1110".stJam1110_3.arCarrier["cJam1110_3"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1110_3';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1110_4
	                    FOR #nIdx1 := 1 TO "cJam1110_4" DO
	                        IF "DB_JamArea1110".stJam1110_4.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1110".stJam1110_4.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1110".stJam1110_4.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1110_4" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1110".stJam1110_4.arCarrier);
	                            "DB_JamArea1110".stJam1110_4.arCarrier["cJam1110_4"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1110_4';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1110_5
	                    FOR #nIdx1 := 1 TO "cJam1110_5" DO
	                        IF "DB_JamArea1110".stJam1110_5.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1110".stJam1110_5.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1110".stJam1110_5.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1110_5" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1110".stJam1110_5.arCarrier);
	                            "DB_JamArea1110".stJam1110_5.arCarrier["cJam1110_5"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1110_5';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1110_6
	                    FOR #nIdx1 := 1 TO "cJam1110_6" DO
	                        IF "DB_JamArea1110".stJam1110_6.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1110".stJam1110_6.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1110".stJam1110_6.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1110_6" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1110".stJam1110_6.arCarrier);
	                            "DB_JamArea1110".stJam1110_6.arCarrier["cJam1110_6"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1110_6';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1401_1
	                    FOR #nIdx1 := 1 TO "cJam1401_1" DO
	                        IF "DB_JamArea1401".stJam1401_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1401".stJam1401_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1401".stJam1401_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1401_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1401".stJam1401_1.arCarrier);
	                            "DB_JamArea1401".stJam1401_1.arCarrier["cJam1401_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1401_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1401_2
	                    FOR #nIdx1 := 1 TO "cJam1401_2" DO
	                        IF "DB_JamArea1401".stJam1401_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1401".stJam1401_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1401".stJam1401_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1401_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1401".stJam1401_2.arCarrier);
	                            "DB_JamArea1401".stJam1401_2.arCarrier["cJam1401_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1401_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1501_1
	                    FOR #nIdx1 := 1 TO "cJam1501_1" DO
	                        IF "DB_JamArea1501".stJam1501_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1501".stJam1501_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1501".stJam1501_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1501_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1501".stJam1501_1.arCarrier);
	                            "DB_JamArea1501".stJam1501_1.arCarrier["cJam1501_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1501_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1501_2
	                    FOR #nIdx1 := 1 TO "cJam1501_2" DO
	                        IF "DB_JamArea1501".stJam1501_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1501".stJam1501_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1501".stJam1501_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1501_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1501".stJam1501_2.arCarrier);
	                            "DB_JamArea1501".stJam1501_2.arCarrier["cJam1501_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1501_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1601_1
	                    FOR #nIdx1 := 1 TO "cJam1601_1" DO
	                        IF "DB_JamArea1601".stJam1601_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1601".stJam1601_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1601".stJam1601_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1601_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1601".stJam1601_1.arCarrier);
	                            "DB_JamArea1601".stJam1601_1.arCarrier["cJam1601_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1601_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1601_2
	                    FOR #nIdx1 := 1 TO "cJam1601_2" DO
	                        IF "DB_JamArea1601".stJam1601_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1601".stJam1601_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1601".stJam1601_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1601_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1601".stJam1601_2.arCarrier);
	                            "DB_JamArea1601".stJam1601_2.arCarrier["cJam1601_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1601_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1801_1
	                    FOR #nIdx1 := 1 TO "cJam1801_1" DO
	                        IF "DB_JamArea1801".stJam1801_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1801".stJam1801_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1801".stJam1801_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1801_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1801".stJam1801_1.arCarrier);
	                            "DB_JamArea1801".stJam1801_1.arCarrier["cJam1801_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1801_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 1801_2
	                    FOR #nIdx1 := 1 TO "cJam1801_2" DO
	                        IF "DB_JamArea1801".stJam1801_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea1801".stJam1801_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea1801".stJam1801_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam1801_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea1801".stJam1801_2.arCarrier);
	                            "DB_JamArea1801".stJam1801_2.arCarrier["cJam1801_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J1801_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 4701_1
	                    FOR #nIdx1 := 1 TO "cJam4701_1" DO
	                        IF "DB_JamArea4701".stJam4701_1.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea4701".stJam4701_1.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea4701".stJam4701_1.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam4701_1" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea4701".stJam4701_1.arCarrier);
	                            "DB_JamArea4701".stJam4701_1.arCarrier["cJam4701_1"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J4701_1';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	                REGION Jam Area 4701_2
	                    FOR #nIdx1 := 1 TO "cJam4701_2" DO
	                        IF "DB_JamArea4701".stJam4701_2.arCarrier[#nIdx1].nBarcode = #nInBarcodeScan THEN //Merke gefundenes Teil und ersetze ursprüngliches durch Dummy
	                            #tmpPartJam := "DB_JamArea4701".stJam4701_2.arCarrier[#nIdx1];
	                            #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_JamArea4701".stJam4701_2.arCarrier,
	                                                           COUNT := INT_TO_UDINT("cJam4701_2" - #nIdx1), //lösche Teil und rücke Rest nach
	                                                           SRC_INDEX := #nIdx1,
	                                                           DEST_INDEX := #nIdx1 - 1,
	                                                           DEST => "DB_JamArea4701".stJam4701_2.arCarrier);
	                            "DB_JamArea4701".stJam4701_2.arCarrier["cJam4701_2"] := #tmpEmpty; //lösche letzte Position
	                            REGION Event Log
	                                #arOutEventLogInfo[0].xTrigger := TRUE;
	                                #arOutEventLogInfo[0].nCorrectionType := 1;
	                                #arOutEventLogInfo[0].sBarcode := DINT_TO_STRING(#nInBarcodeScan);
	                                #arOutEventLogInfo[0].sLoc := 'J4701_2';
	                                #arOutEventLogInfo[0].sPos := INT_TO_STRING(#nIdx1);
	                                #arOutEventLogInfo[0].sDest := INT_TO_STRING(#tmpPartJam.nDestination);
	                            END_REGION
	                            GOTO END;
	                        END_IF;
	                    END_FOR;
	                END_REGION
	            END_REGION
	    END_CASE;
	END:
	    ;
	    REGION Handling
	        IF #tmpPartHyperJam.nBarcode <> 0 THEN //Gefundenes Teil aus Hyperjam
	            REGION Teil aus Hyperjam
	                IF #InOutCarrierExpect.nBarcode > 10000 THEN //Wenn erwarteter Carrier einen gültigen Barcode hat, füge ihn am Ende des Hyperjams ein
	                    "FC_TSHR_AddAtEnd"(stInTrolley := #InOutCarrierExpect,
	                                       nOutCounter => #nCounter,
	                                       xOutResult => #xResult,
	                                       arTSHR := "DB_HyperJam".stHyperJam.arCarrier);
	                    REGION Event log
	                        #arOutEventLogInfo[1].xTrigger := TRUE;
	                        #arOutEventLogInfo[1].nCorrectionType := 3;
	                        #arOutEventLogInfo[1].sBarcode := DINT_TO_STRING(#InOutCarrierExpect.nBarcode);
	                        #arOutEventLogInfo[1].sLoc := 'HyperJ';
	                        #arOutEventLogInfo[1].sPos := INT_TO_STRING(#nIdx2);
	                        #arOutEventLogInfo[1].sDest := INT_TO_STRING(#InOutCarrierExpect.nDestination);
	                    END_REGION
	                END_IF;
	                FOR #nIdx1 := 1 TO "cHyperJam" DO //Durchsuche Hyperjam nach Lücke
	                    IF NOT "DB_HyperJam".stHyperJam.arCarrier[#nIdx1].bStatus.%X0 THEN
	                        #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_HyperJam".stHyperJam.arCarrier,
	                                                       COUNT := INT_TO_UDINT("cHyperJam" - #nIdx1), //Wo die Lücke im Hyperjam entstanden ist, rücke Rest nach
	                                                       SRC_INDEX := #nIdx1,
	                                                       DEST_INDEX := #nIdx1 - 1,
	                                                       DEST => "DB_HyperJam".stHyperJam.arCarrier);
	                        "DB_HyperJam".stHyperJam.arCarrier["cHyperJam"] := #tmpEmpty; //lösche letzte Position
	                        EXIT;
	                    END_IF;
	                END_FOR;
	                #InOutCarrierExpect := #tmpPartHyperJam; //Gib gefundenes Teil aus    
	            END_REGION
	        ELSIF #tmpPartJam.nBarcode <> 0 THEN //Gefundenes Teil aus Jambereich
	            REGION Teil aus Jam
	                IF #InOutCarrierExpect.nBarcode > 10000 THEN //Wenn erwarteter Carrier einen gültigen Barcode hat, füge ihn am Ende des Hyperjams ein
	                    "FC_TSHR_AddAtEnd"(stInTrolley := #InOutCarrierExpect,
	                                       nOutCounter => #nCounter,
	                                       xOutResult => #xResult,
	                                       arTSHR := "DB_HyperJam".stHyperJam.arCarrier);
	                    REGION Event log
	                        #arOutEventLogInfo[1].xTrigger := TRUE;
	                        #arOutEventLogInfo[1].nCorrectionType := 3;
	                        #arOutEventLogInfo[1].sBarcode := DINT_TO_STRING(#InOutCarrierExpect.nBarcode);
	                        #arOutEventLogInfo[1].sLoc := 'HyperJ';
	                        #arOutEventLogInfo[1].sPos := INT_TO_STRING(#nIdx2);
	                        #arOutEventLogInfo[1].sDest := INT_TO_STRING(#InOutCarrierExpect.nDestination);
	                    END_REGION
	                END_IF;
	                FOR #nIdx1 := 1 TO "cHyperJam" DO //Durchsuche Hyperjam nach Lücke
	                    IF NOT "DB_HyperJam".stHyperJam.arCarrier[#nIdx1].bStatus.%X0 THEN
	                        #tmpStatus := MOVE_BLK_VARIANT(SRC := "DB_HyperJam".stHyperJam.arCarrier,
	                                                       COUNT := INT_TO_UDINT("cHyperJam" - #nIdx1), //Wo die Lücke im Hyperjam entstanden ist, rücke Rest nach
	                                                       SRC_INDEX := #nIdx1,
	                                                       DEST_INDEX := #nIdx1 - 1,
	                                                       DEST => "DB_HyperJam".stHyperJam.arCarrier);
	                        "DB_HyperJam".stHyperJam.arCarrier["cHyperJam"] := #tmpEmpty; //lösche letzte Position
	                        EXIT;
	                    END_IF;
	                END_FOR;
	                #InOutCarrierExpect := #tmpPartJam; //Gib gefundenes Teil aus  
	            END_REGION
	        ELSE
	            //Teil bei Suche nicht gefunden, aber das erwartete soll trotzdem in den Hyperjam kommen und außerhalb des FC dann durch den gescannten ersetzt werden
	            IF #InOutCarrierExpect.nBarcode > 10000 THEN //Wenn erwarteter Carrier einen gültigen Barcode hat, füge ihn am Ende des Hyperjams ein
	                //Um im EmptyBuffer mit erfundenen Barcodes fahren zu können, werden hier einfach irgendwelche viestelligen Codes benutzt. Die sollen dann am
	                //Scanner nicht in den Hyperjam sondern einfach durch den echten ersetzt werden. Deswegen wird hier alles < 10.000 ignoriert
	                "FC_TSHR_AddAtEnd"(stInTrolley := #InOutCarrierExpect,
	                                   nOutCounter => #nCounter,
	                                   xOutResult => #xResult,
	                                   arTSHR := "DB_HyperJam".stHyperJam.arCarrier);
	                //Es gibt keine Lücke in der Liste die man schließen muss
	                REGION Event log
	                    
	                    #arOutEventLogInfo[1].xTrigger := TRUE;
	                    #arOutEventLogInfo[1].nCorrectionType := 3;
	                    #arOutEventLogInfo[1].sBarcode := DINT_TO_STRING(#InOutCarrierExpect.nBarcode);
	                    #arOutEventLogInfo[1].sLoc := 'HyperJ';
	                    #arOutEventLogInfo[1].sPos := INT_TO_STRING(#nIdx1);
	                    #arOutEventLogInfo[1].sDest := INT_TO_STRING(#InOutCarrierExpect.nDestination);
	                    
	                END_REGION
	                
	            END_IF;
	            
	            // #xOutNotFound := TRUE;
	            #InOutCarrierExpect.nDestination := 0;
	            #InOutCarrierExpect.nBarcode := #nInBarcodeScan; //Hier werden neue Carrier im System angelegt
	            #InOutCarrierExpect.bStatus := 0; //NEU, erstmal status komplett löschen, falls schon etwas drinsteht
	            #InOutCarrierExpect.bStatus.%X0 := TRUE;
	        END_IF;
	    END_REGION
	END_IF;
	
END_FUNCTION

