StartOpt, MDM

UID/usrctlProcedures.vb

@@ -1939,6 +1939,12 @@ Public Class usrctlProcedures
         Return s.trim
     End Function
 
+    Function isleernothingremoveLinkebreaks(s) As Object
+        If s Is DBNull.Value Then Return Nothing
+        If s.ToString.Trim = "" Then Return Nothing
+        Return s.trim.ToString.Replace(vbLf, "")
+    End Function
+
     Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click, Button22.Click
 
         Dim test = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
@@ -3599,6 +3605,7 @@ Public Class usrctlProcedures
 
                                                 DYIMPORT.Packstückart = isleernothing((currentRow(99)))
                                                 DYIMPORT.Packstückbezeichnung = isleernothing((currentRow(100)))
+
                                                 'DYIMPORT.Zusätzliche_angaben = isleernothing((currentRow(101))) 
 
                                                 DYIMPORT.SonderAbgabeZoll = IIf(isleernothing((currentRow(102))) <> "", CDbl(isleernothing(currentRow(102))), 0)