v1.3.1.0 - Correct ADDED_WHO

app/DpmaXmlParser/Main.vb

@@ -19,22 +19,22 @@ Module Main
 
     Private patents As New List(Of Patent)
     Private propsMarks = New List(Of String) From {
-        "RegistrationOfficeCode",
-        "RegistrationDate",
-        "RegistrationNumber",
-        "MarkCurrentStatusCode",
-        "MarkVerbalElementText",
-        "MarkFeature",
-        "ApplicationDate",
-        "Applicant",
-        "Representative",
-        "PublicationDate",
-        "ExpiryDate",
-        "TerminationDate",
-        "OppositionPeriodStartDate",
-        "OppositionPeriodEndDate",
-        "Classification",
-        "ClassificationLong"
+        "RegistrationOfficeCode", ' Aktenzeichen
+        "RegistrationDate", ' Anmeldetag
+        "RegistrationNumber", ' Registernummer
+        "MarkCurrentStatusCode", ' Aktenzustand
+        "MarkVerbalElementText", ' Wiedergabe der Marke
+        "MarkFeature", ' Markenform
+        "ApplicationDate", ' Anmeldetag
+        "Applicant", ' Inhaber
+        "Representative", ' Vertreter
+        "PublicationDate", 'Tag der Veröffentlichung
+        "ExpiryDate", 'Schutzendedatum
+        "TerminationDate", 'Wirkungsdatum Löschung
+        "OppositionPeriodStartDate", 'Wiederspruchsfrist Anfang
+        "OppositionPeriodEndDate", 'Wiederspruchsfrist Ende
+        "Classification", 'Klasse(n) Nizza
+        "ClassificationLong" 'Klasse(n) Nizza vollständig
     }
 
     Private propsPatents = New List(Of String) From {
@@ -43,11 +43,11 @@ Module Main
         "Status", ' Status
         "Title", ' Titel
         "ICM", 'IPC-Klasse
-        "ApplicationDate",
-        "PublicationDate",
-        "Inventors",
-        "Applicants",
-        "Abstract"
+        "ApplicationDate", ' Anmeldetag
+        "PublicationDate", ' Offenlegungstag
+        "Inventors", ' Erfinder
+        "Applicants", ' Inhaber
+        "Abstract" ' Zusammenfassung
     }
 
     Public DataDir As String = "Data"
@@ -207,7 +207,7 @@ Module Main
                     End If
                 Next
 
-                logger.Info($"{addedMarks} Marks added, {updatedMarks} updated, {failedMarks} failed.")
+                logger.Info($"{addedMarks} Marks added, {updatedMarks} updated, {failedMarks} failed." & vbCrLf)
             End If
 
             If config.searchType.Contains("P") Then
@@ -298,11 +298,10 @@ Module Main
                     End If
                 Next
 
-                logger.Info($"{addedPatents} Marks added, {updatedPatents} updated, {failedPatents} failed.")
+                logger.Info($"{addedPatents} Marks added, {updatedPatents} updated, {failedPatents} failed." & vbCrLf)
             End If
 
             logger.Debug("=================== IMPORT END ===================")
-            ReadLine()
         Catch ex As Exception
             logger.Error("==================================================")
             logger.Error("=================== ERROR ========================")