Deserialize EXG

initATLASAufschubkonten/cWorker_AES_EXG.vb

@@ -11,7 +11,14 @@ Public Class cWorker_AES_EXG
     Shared Function readEZA_DatenZumAusgang_DataEXITDE_005(FORM As frmDYNachrichtenVerarbeitung, d As String, saveVerwahrung As Boolean) As String
         Try
 
-            Dim VWI As DAKOSY_Worker.DataEXITDE.DatenZumAusgangXDTyp = DAKOSY_Worker.DataEXITDE.DatenZumAusgangXDTyp.LoadFromFile(d)
+
+            Dim VWI As DAKOSY_Worker.DataEXITDE.DatenZumAusgangXDTyp
+
+            Using fs As New System.IO.FileStream(d, System.IO.FileMode.Open, System.IO.FileAccess.Read, System.IO.FileShare.Read)
+                VWI = DAKOSY_Worker.DataEXITDE.DatenZumAusgangXDTyp.Deserialize(fs)
+            End Using
+
+
             Dim MRN = ""
             Dim RegistriernummerATLAS = ""
             Dim ankungsdatum As Object = Nothing