Telotec Importer, etc.

DAKOSY_Worker/cImporter_TelotecToVERAG.vb

@@ -167,19 +167,24 @@ Public Class cImporter_TelotecToVERAG
                 If p.DOC_CERTS IsNot Nothing Then
 
                     For Each doc In p.DOC_CERTS
-                    Try
 
+                        Dim ItemId = Nothing
+                        Dim Doc_Code As String = ToStringSafe(doc.DocCerts_DocCd)
+                        Dim Doc_Reference As String = ToStringSafe(doc.DocCerts_DRef)
+                        Dim Doc_Date As String = ToStringSafe(doc.DocCerts_IssD)
+
+                        Try
                             Dim dd As New cVERAG_CustomsDeclarations_Document With {
-                                .zaDoc_ItemId = Nothing,
-                                .zaDoc_Code = ToStringSafe(doc.DocCerts_DocCd),
-                                .zaDoc_Reference = ToStringSafe(doc.DocCerts_DRef),
-                                .zaDoc_Date = If(doc.DocCerts_IssD IsNot Nothing, ToNullableDate(doc.DocCerts_IssD), Nothing)'ToNullableDate(doc.DocCerts_IssD)
+                                .zaDoc_ItemId = ItemId,
+                                .zaDoc_Code = Doc_Code,
+                                .zaDoc_Reference = Doc_Reference,
+                                .zaDoc_Date = Doc_Date
                             }
                             it.Documents.Add(dd)
-                    Catch ex As Exception
-                        cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name)
-                    End Try
-                Next
+                        Catch ex As Exception
+                            cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name)
+                        End Try
+                    Next
 
                 End If