AppStd/XmlParser
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

improve logging

Browse Source
This commit is contained in:
JenneJ 2015-10-12 12:05:02 +02:00
parent d65eeafdd0
commit 2a25617572
2 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
app/BrainpoolXmlParser/Main.vb
View File

@ -65,7 +65,7 @@ Module Main
Dim akz As String = mark.ApplicationNumber Dim akz As String = mark.ApplicationNumber
Dim file As String = String.Format("Importer-RegisterData-{0}.xml", akz) 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 = dpma.GetRegisterInfo(akz)
markDoc.Save(file) markDoc.Save(file)
@ -75,7 +75,7 @@ Module Main
Next Next
logger.Info("{0} Marks imported", marks.Count) 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) logger.Info("New record created with GUID: " & recordId)
' Den Leit-Wert einfügen für mainControlId ' Den Leit-Wert einfügen für mainControlId
Dim valueId = db.InsertValue(mainControlId, recordId, m.ApplicationNumber) 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 ' alle anderen properties zu dieser marke einfügen einfügen
For Each prop As String In props For Each prop As String In props
@ -110,12 +110,14 @@ Module Main
Dim value = db.GetProperty(m, prop) Dim value = db.GetProperty(m, prop)
' Wert einfügen ' Wert einfügen
db.InsertValue(controlId, recordId, value) 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 Next
Else Else
' Marke aktualisieren ' Marke aktualisieren
Dim recordId As Integer = markExists Dim recordId As Integer = markExists
logger.Info("Existing Record updated with GUID: {0}", recordId)
For Each prop As String In props For Each prop As String In props
' ControlID für die aktuelle property holen ' ControlID für die aktuelle property holen
Dim controlId = db.GetControlId(formId, prop) Dim controlId = db.GetControlId(formId, prop)
@ -128,16 +130,15 @@ Module Main
If hasChanged Then If hasChanged Then
db.UpdateValue(controlId, recordId, value) 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 End If
Next Next
End If End If
logger.Info("=================== DATABASE END ===================") logger.Debug("=================== DATABASE END ===================")
Next Next
Catch ex As Exception Catch ex As Exception
logger.Error("================================")
logger.Error("An Error occurred: " & ex.Message) logger.Error("An Error occurred: " & ex.Message)
Environment.Exit(1) Environment.Exit(1)
End Try End Try

4
app/BrainpoolXmlParser/NLog.config
View File

@ -35,8 +35,8 @@
Write all events with minimal level of Debug (So Debug, Info, Warn, Error and Fatal, but not Trace) to "f" Write all events with minimal level of Debug (So Debug, Info, Warn, Error and Fatal, but not Trace) to "f"
<logger name="*" minlevel="Debug" writeTo="f" /> <logger name="*" minlevel="Debug" writeTo="f" />
--> -->
<logger name="*" minlevel="Info" writeTo="logfile" /> <logger name="*" levels="Info,Debug,Error" writeTo="logfile" />
<logger name="*" minlevel="Info" writeTo="console" /> <logger name="*" levels="Info,Error" writeTo="console" />
</rules> </rules>
</nlog> </nlog>