Index: TAOR rework/TAOR rework/controllers/Domeincontroller.vb
===================================================================
diff -u -r2032 -r2034
--- TAOR rework/TAOR rework/controllers/Domeincontroller.vb	(.../Domeincontroller.vb)	(revision 2032)
+++ TAOR rework/TAOR rework/controllers/Domeincontroller.vb	(.../Domeincontroller.vb)	(revision 2034)
@@ -648,6 +648,8 @@
 
     'verwerken van alle mogelijke special laden
     Public Sub verwerkSpecialLaden()
+        ArdisTextMapper.stopArdisTextOpslag() ' Stop vorige opslag (normaal zou dit niet moeten, maar mogelijks door herproberen na een error)
+
         Dim typeLade As ItemType = specialLadenRep.typeLade
         If Not specialLadenRep.zijnErSpecialLaden Then
             If zijkantVoorraadRepository.zijnErVoorraadItems Then
Index: TAOR rework/TAOR rework/databases/Ardis/ArdisTextMapper.vb
===================================================================
diff -u -r2032 -r2034
--- TAOR rework/TAOR rework/databases/Ardis/ArdisTextMapper.vb	(.../ArdisTextMapper.vb)	(revision 2032)
+++ TAOR rework/TAOR rework/databases/Ardis/ArdisTextMapper.vb	(.../ArdisTextMapper.vb)	(revision 2034)
@@ -6,11 +6,11 @@
 
     Public Sub stopArdisTextOpslag()
         If writer IsNot Nothing Then
+            writer.Flush()
             writer.Close()
-        Else
-            writer = Nothing
-            bestandsNaam = Nothing
         End If
+        writer = Nothing
+        bestandsNaam = Nothing
     End Sub
 
     Private Sub startNieuweArdisDataOpslag(pathNaarMap As String)
@@ -41,11 +41,11 @@
         Dim typeNaam As String = EnumMapper.GeefArdisTextBijItemType(type)
         LogBestandTextMapper.WriteToFile("ArdisText", "Starten opslag " & typeNaam & " met ardisData")
 
-        bestandsNaam = "ImportFile_" & typeNaam & "_"
+        If writer Is Nothing Then
+            bestandsNaam = "ImportFile_" & typeNaam & "_"
+            startNieuweArdisDataOpslag(Configs.ardisPathTextFile())
+        End If
 
-        stopArdisTextOpslag() ' Stop vorige opslag (normaal zou dit niet moeten, maar mogelijks door herproberen na een error)
-        startNieuweArdisDataOpslag(Configs.ardisPathTextFile())
-
         opslaan(ardisdata, trayNummer, slotNummer)
 
         LogBestandTextMapper.WriteToFile("ArdisText", "Starten opslag " & typeNaam & " met ardisData", True)