diff --git a/app/BrainpoolXmlParser/Main.vb b/app/BrainpoolXmlParser/Main.vb index fa8e9b3..ecc3644 100644 --- a/app/BrainpoolXmlParser/Main.vb +++ b/app/BrainpoolXmlParser/Main.vb @@ -65,7 +65,7 @@ Module Main Dim akz As String = mark.ApplicationNumber Dim file As String = String.Format("Importer-RegisterData-{0}.xml", akz) - logger.Info("Getting Register Info for {0}", akz) + logger.Debug("Getting Register Info for {0}", akz) markDoc = dpma.GetRegisterInfo(akz) markDoc.Save(file) @@ -75,7 +75,7 @@ Module Main Next logger.Info("{0} Marks imported", marks.Count) - logger.Info("=================== DPMA END ===================") + logger.Debug("=================== DPMA END ===================") ' ========================================================================================= @@ -100,7 +100,7 @@ Module Main logger.Info("New record created with GUID: " & recordId) ' Den Leit-Wert einfügen für mainControlId Dim valueId = db.InsertValue(mainControlId, recordId, m.ApplicationNumber) - logger.Info("Value inserted - Property: {0}, Value: {1}, ControlId: {2}", "ApplicationNumber", m.ApplicationNumber, mainControlId) + logger.Debug("Value inserted - Property: {0}, Value: {1}, ControlId: {2}", "ApplicationNumber", m.ApplicationNumber, mainControlId) ' alle anderen properties zu dieser marke einfügen einfügen For Each prop As String In props @@ -110,12 +110,14 @@ Module Main Dim value = db.GetProperty(m, prop) ' Wert einfügen db.InsertValue(controlId, recordId, value) - logger.Info("Value inserted - Property: {0}, Value: {1}, ControlId: {2}", prop, value, controlId) + logger.Debug("Value inserted - Property: {0}, Value: {1}, ControlId: {2}", prop, value, controlId) Next Else ' Marke aktualisieren Dim recordId As Integer = markExists + logger.Info("Existing Record updated with GUID: {0}", recordId) + For Each prop As String In props ' ControlID für die aktuelle property holen Dim controlId = db.GetControlId(formId, prop) @@ -128,16 +130,15 @@ Module Main If hasChanged Then db.UpdateValue(controlId, recordId, value) - logger.Info("Value updated - Property: {0}, NewValue: {1}, ControlId: {2}", prop, value, controlId) + logger.Debug("Value updated - Property: {0}, NewValue: {1}, ControlId: {2}", prop, value, controlId) End If Next End If - logger.Info("=================== DATABASE END ===================") + logger.Debug("=================== DATABASE END ===================") Next Catch ex As Exception - logger.Error("================================") logger.Error("An Error occurred: " & ex.Message) Environment.Exit(1) End Try diff --git a/app/BrainpoolXmlParser/NLog.config b/app/BrainpoolXmlParser/NLog.config index 5cfaf00..e03c33a 100644 --- a/app/BrainpoolXmlParser/NLog.config +++ b/app/BrainpoolXmlParser/NLog.config @@ -35,8 +35,8 @@ Write all events with minimal level of Debug (So Debug, Info, Warn, Error and Fatal, but not Trace) to "f" --> - - + + \ No newline at end of file