Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/engines/SpecialLadeEngine.vb
===================================================================
diff -u -r1636 -r1637
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/engines/SpecialLadeEngine.vb	(.../SpecialLadeEngine.vb)	(revision 1636)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/engines/SpecialLadeEngine.vb	(.../SpecialLadeEngine.vb)	(revision 1637)
@@ -43,7 +43,7 @@
             Return New List(Of TLadeType)
         End If
         'Resultaten converteren naar 'special laden onderdelen'.
-        Dim specialLadenOnderdelen = _onderdelenMapper.GeefAlle(ardisDatas)
+        Dim specialLadenOnderdelen = _onderdelenMapper.GeefEnkele(ardisDatas)
         ''Special laden onderdelen' converteren naar lijst van laden.
         Return _specialLadenMapper.GeefAlle(specialLadenOnderdelen)
     End Function
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/IMapper.vb
===================================================================
diff -u -r1635 -r1637
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/IMapper.vb	(.../IMapper.vb)	(revision 1635)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/IMapper.vb	(.../IMapper.vb)	(revision 1637)
@@ -5,4 +5,11 @@
     ''' <param name="waarde">De input</param>
     ''' <returns>Lijst van geconverteerde waarden</returns>
     Function GeefAlle(waarde As TWaarde) As List(Of TReturn)
+
+    ''' <summary>
+    ''' Opvragen van een geconverteerde waarde afkomstig van een input.
+    ''' </summary>
+    ''' <param name="waarde">De input</param>
+    ''' <returns>Geconverteerde waarden</returns>
+    Function GeefEnkele(waarde As TWaarde) As TReturn
 End Interface
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/SifonLadenMapper.vb
===================================================================
diff -u -r1635 -r1637
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/SifonLadenMapper.vb	(.../SifonLadenMapper.vb)	(revision 1635)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/SifonLadenMapper.vb	(.../SifonLadenMapper.vb)	(revision 1637)
@@ -7,4 +7,8 @@
         Return new List(Of ISifonLade)
     End Function
 
+    ''' <inheritdoc/>
+    Public Function GeefEnkele(waarde As ISpecialLadenOnderdelen) As ISifonLade Implements IMapper(Of ISpecialLadenOnderdelen,ISifonLade).GeefEnkele
+        Throw New NotImplementedException
+    End Function
 End Class
Index: TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisTextMapper.vb
===================================================================
diff -u -r1636 -r1637
--- TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisTextMapper.vb	(.../ArdisTextMapper.vb)	(revision 1636)
+++ TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisTextMapper.vb	(.../ArdisTextMapper.vb)	(revision 1637)
@@ -214,7 +214,7 @@
                 'kijken of de lade de dossiercode bevat
                 If isGeldig Then
                     'kijken wat voor rol de lijn heeft (aka onderdeel: zijkantplaat, rug,...)
-                    ardisData = maakArdisData(velden)
+                    ardisData = MaakArdisData(velden)
                     Select Case ardisData.PartRef
                         Case "ZijkantPlaat"
                             nieuweSpecialLaden.voegZijkantToe(ardisData)
@@ -260,48 +260,52 @@
     End Function
 
     Private Function OphalenArdisDatasMetCode(code As String, isLadeCode As Boolean) As List(Of ArdisData)
-        'Lijst initialiseren.
-        Dim ardisDatas As New List(Of ArdisData)
-        'Alle bestanden overlopen in de directory met bestanden.
-        For Each tekstBestandPath As String In Directory.GetFiles(Configs.geefPathArdisSpecialFolder)
-            'Alle tekst uit een bestand lezen en spaties vooraan en achteraan verwijderen.
-            Dim allText As String = My.Computer.FileSystem.ReadAllText(tekstBestandPath).Trim()
-            'De verschillende lijnen omzetten in een array.
-            Dim lijnen As String() = allText.Split(New String() {Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
-            'De lijnen overlopen.
-            For Each lijn As String In lijnen
-                'Controleren of een lijn de juiste code bevat. Dit gebeurt hier, omdat de conversie naar Ardis data teveel tijd zou kosten.
+        Try
+            'Lijst initialiseren.
+            Dim ardisDatas As New List(Of ArdisData)
+            'Alle bestanden overlopen in de directory met bestanden.
+            For Each tekstBestandPath As String In Directory.GetFiles(Configs.geefPathArdisSpecialFolder)
+                'Alle tekst uit een bestand lezen en spaties vooraan en achteraan verwijderen.
+                Dim allText As String = My.Computer.FileSystem.ReadAllText(tekstBestandPath).Trim()
+                'De verschillende lijnen omzetten in een array.
+                Dim lijnen As String() = allText.Split(New String() {Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
+                'De lijnen overlopen.
+                For Each lijn As String In lijnen
+                    'Controleren of een lijn de juiste code bevat. Dit gebeurt hier, omdat de conversie naar Ardis data teveel tijd zou kosten.
 
-                'Bijhouden of lijn de juiste code bevat.
-                Dim bevatCode As Boolean = False
+                    'Bijhouden of lijn de juiste code bevat.
+                    Dim bevatCode As Boolean = False
 
-                'Alle velden scheiden.
-                Dim velden = lijn.Split(New String() {vbTab}, StringSplitOptions.None)
+                    'Alle velden scheiden.
+                    Dim velden = lijn.Split(New String() {vbTab}, StringSplitOptions.None)
 
-                'Controleren of de lijn wel lang genoeg is.
-                If velden.Count > 19 Then
-                    'Genoeg lijnen, controleren welk type code is gebruikt, dossier (lade) code of batchnummer.
-                    If isLadeCode Then
-                        'Dossier (lade) code controleren.
-                        bevatCode = velden(5).Equals(code) 'PartRemark
-                    Else
-                        'Batch nummer controleren. De kar bevat dit nummer.
-                        bevatCode = velden(18).Contains(code) 'PartGroup
+                    'Controleren of de lijn wel lang genoeg is.
+                    If velden.Count > 19 Then
+                        'Genoeg lijnen, controleren welk type code is gebruikt, dossier (lade) code of batchnummer.
+                        If isLadeCode Then
+                            'Dossier (lade) code controleren.
+                            bevatCode = velden(5).Equals(code) 'PartRemark
+                        Else
+                            'Batch nummer controleren. De kar bevat dit nummer.
+                            bevatCode = velden(18).Contains(code) 'PartGroup
+                        End If
                     End If
-                End If
 
-                'Als de lijn de correcte code bevat wordt het geconverteerd naar Ardis data en toegevoegd aan de lijst.
-                If bevatCode Then
-                    'Aanmaken ardis data.
-                    Dim ardisData As ArdisData = maakArdisData(velden)
-                    'Toevoegen bestandsnaam.
-                    ardisData.Bestandsnaam = tekstBestandPath.Substring(tekstBestandPath.LastIndexOf("\", StringComparison.Ordinal) + 1)
-                    'Toevoegen aan lijst.
-                    ardisDatas.Add(ardisData)
-                End If
+                    'Als de lijn de correcte code bevat wordt het geconverteerd naar Ardis data en toegevoegd aan de lijst.
+                    If bevatCode Then
+                        'Aanmaken ardis data.
+                        Dim ardisData As ArdisData = MaakArdisData(velden)
+                        'Toevoegen bestandsnaam.
+                        ardisData.Bestandsnaam = tekstBestandPath.Substring(tekstBestandPath.LastIndexOf("\", StringComparison.Ordinal) + 1)
+                        'Toevoegen aan lijst.
+                        ardisDatas.Add(ardisData)
+                    End If
+                Next
             Next
-        Next
-        Return ardisDatas
+            Return ardisDatas
+        Catch ex As Exception
+            throw New Exception($"Kon Ardis data niet ophalen uit tekstbestand. {vbNewLine}{ex.Message}")
+        End Try
     End Function
 
     ''' <summary>
Index: TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.vb
===================================================================
diff -u -r1635 -r1637
--- TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.vb	(.../FormSifonLade.vb)	(revision 1635)
+++ TAOR-rework-bugfixing/TAOR rework/formulieren/Specials/FormSifonLade.vb	(.../FormSifonLade.vb)	(revision 1637)
@@ -12,7 +12,7 @@
             If Not Configs.geefVerwerkStatus Then
                 'Er wordt niet verwerkt.
                 'Default ladecode invullen en melding tonen.
-                LadeCodeTextBox.Text = "DNYA"
+                LadeCodeTextBox.Text = "EMXQ"
                 VerwerkingLabel.Visible = True
             End If
 
@@ -114,24 +114,16 @@
                 LadeCodeTextBox.SelectAll()
                 LadeCodeTextBox.Focus()
             End If
-
-            'Zoekbutton enablen.
-            ZoekButton.Enabled = True
-
         Catch ex As Exception
-            'Foutmelding tonen.
-            FoutmeldingOpzoekenLabel.Text = ex.Message
-
             'Tekst in input selecteren.
             LadeCodeTextBox.SelectAll()
             LadeCodeTextBox.Focus()
 
-            'Zoekbutton enablen.
-            ZoekButton.Enabled = True
-
-            'Functie verlaten.
-            Exit Sub
+            MessageBox.Show($"Kon de sifon lade niet opzoeken. {vbNewLine}{ex.Message}", "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error)
         End Try
+
+        'Zoekbutton enablen.
+        ZoekButton.Enabled = True
     End Sub
 
     ''' <summary>
Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/ArdisdataOnderdelenMapper.vb
===================================================================
diff -u -r1635 -r1637
--- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/ArdisdataOnderdelenMapper.vb	(.../ArdisdataOnderdelenMapper.vb)	(revision 1635)
+++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/mappers/ArdisdataOnderdelenMapper.vb	(.../ArdisdataOnderdelenMapper.vb)	(revision 1637)
@@ -5,7 +5,11 @@
 
     ''' <inheritdoc/>
     Public Function GeefAlle(waarde As List(Of ArdisData)) As List(Of ISpecialLadenOnderdelen) Implements IMapper(Of List(Of ArdisData), ISpecialLadenOnderdelen).GeefAlle
-        'todo implementeren
-        Return New List(Of ISpecialLadenOnderdelen) 
+        Throw New NotImplementedException
     End Function
+
+    ''' <inheritdoc/>
+    Public Function GeefEnkele(waarde As List(Of ArdisData)) As ISpecialLadenOnderdelen Implements IMapper(Of List(Of ArdisData), ISpecialLadenOnderdelen).GeefEnkele
+        Return New SpecialLadenOnderdelenNieuw()
+    End Function
 End Class