Index: TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb
===================================================================
diff -u -r1657 -r1703
--- TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb	(.../ArdisData.vb)	(revision 1657)
+++ TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb	(.../ArdisData.vb)	(revision 1703)
@@ -684,7 +684,7 @@
         PartExt08 = PartMat.Substring(0, PartMat.IndexOf("."))
     End Sub
 
-    Public Sub voorraadGenereerBarcodeEnStelEtiketlijnIn(linksOfRechts As LinksOfRechts, hoogteLetter As String, barcodeNummer As String)
+    Public Sub voorraadGenereerBarcodeEnStelEtiketlijnIn(linksOfRechts As LinksOfRechts, hoogteLetter As String, barcodeNummer As String, isSifonlade As Boolean)
         'barcodenummer opvullen met nullen (0076)
         Do Until barcodeNummer.Length = 4
             barcodeNummer = "0" & barcodeNummer
@@ -700,8 +700,14 @@
         barcode &= "V"
         'cijfer (lengte)
         barcode &= Configs.voorraadGeefCodeStemasB(Configs.voorraadGeefNettoLengte(PartL))
-        'letter voor rechts of links
-        barcode &= If(linksOfRechts = TA_OR_rework.LinksOfRechts.Links, "L", "R")
+        'letter voor rechts of links. Als het over een sifonlade gaat nemen we een andere letter.
+        If linksOfRechts = LinksOfRechts.Links Then
+            'Links
+            barcode &= If(Not isSifonlade, "L", "E")
+        Else
+            'Rechts
+            barcode &= If(Not isSifonlade, "R", "F")
+        End If
         'eerste deel barcodeNummer
         barcode &= barcodeNummer.Substring(0, 2)
         'tussenletter (vast)