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 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

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"
<logger name="*" minlevel="Debug" writeTo="f" />
-->
<logger name="*" minlevel="Info" writeTo="logfile" />
<logger name="*" minlevel="Info" writeTo="console" />
<logger name="*" levels="Info,Debug,Error" writeTo="logfile" />
<logger name="*" levels="Info,Error" writeTo="console" />
</rules>
</nlog>