From 579ea3cb8c93dad8fb08cfd0b2febc6100e2b918 Mon Sep 17 00:00:00 2001
From: JenneJ <j.jenne@didalog.de>
Date: Tue, 8 Dec 2015 10:54:31 +0100
Subject: [PATCH] dont crash on missing controls

---
 app/BrainpoolXmlParser/BrainpoolXmlParser.exe.config |  6 +++---
 app/BrainpoolXmlParser/Config.vb                     |  7 +++++++
 app/BrainpoolXmlParser/Main.vb                       | 10 +++++++++-
 app/BrainpoolXmlParser/My Project/AssemblyInfo.vb    |  4 ++--
 4 files changed, 21 insertions(+), 6 deletions(-)

diff --git a/app/BrainpoolXmlParser/BrainpoolXmlParser.exe.config b/app/BrainpoolXmlParser/BrainpoolXmlParser.exe.config
index e9edec4..1c5d5b0 100644
--- a/app/BrainpoolXmlParser/BrainpoolXmlParser.exe.config
+++ b/app/BrainpoolXmlParser/BrainpoolXmlParser.exe.config
@@ -17,10 +17,10 @@
     </system.serviceModel>
   <appSettings>
     <!-- Die Zugangangsdaten, die für den Zugriff auf die DPMA Datenbank benötigt werden -->
-    <add key="dpma_username" value="TestBrainpool"/>
-    <add key="dpma_password" value="09Test2015"/>
+    <add key="dpma_username" value="BRAINPOOL"/>
+    <add key="dpma_password" value="brainPOOL1"/>
     <!-- query erwartet entweder eine mit Kommagetrennte List oder einen SQL Befehl, der ein einspaltiges Ergebnis liefert -->
-    <!-- <add key="dpma_query" value="SELECT [Unternehmen] FROM [DD_ECM].[dbo].[VWTEMP_PMO_FORM19] WHERE ProdUnternehmen = 1 ORDER BY Unternehmen"/> -->
+    <!--<add key="dpma_query" value="SELECT [Unternehmen] FROM [DD_ECM].[dbo].[VWTEMP_PMO_FORM19] WHERE ProdUnternehmen = 1 ORDER BY Unternehmen"/>-->
     <add key="dpma_query" value="BRAINPOOL Artist und Content Services GmbH,BRAINPOOL TV GmbH,BRAINPOOL TV GmbH / Stein TV,Elton TV Produktions GmbH,Köln Comedy Festival GmbH,Kuttner TV GmbH,Ladykracher TV GmbH,MARIO BARTH TV Produktionsgesellschaft mbH  ,mea culpa TV Production GmbH,Millionärswahl Formatentwicklungs- und -verwertungsgesellschaft mbH,Minestrone TV Produktions GbR ,Pocher TV GmbH,Princess TV GmbH ,Punani Enterprises GmbH,Raab TV-Produktion GmbH,Stein TV-Produktion GmbH,Ulmen Television GmbH"/>
     <!-- Die Verbindung, in die das Ergebnis des Imports eingelesen wird, damit werden auch dpma_searchvalues ausgelesen! -->
     <add key="sql_connstring" value="Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd"/>
diff --git a/app/BrainpoolXmlParser/Config.vb b/app/BrainpoolXmlParser/Config.vb
index ccd53eb..4cf8006 100644
--- a/app/BrainpoolXmlParser/Config.vb
+++ b/app/BrainpoolXmlParser/Config.vb
@@ -19,6 +19,13 @@ Public Class AppConfig
         Return New ConfigValues(username, password, query, connstring, database)
     End Function
 
+    Public Shared Function GetVersion()
+        Dim assembly As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
+        Dim fvi As FileVersionInfo = FileVersionInfo.GetVersionInfo(assembly.Location)
+        Dim version As String = fvi.FileVersion
+        Return version
+    End Function
+
 End Class
 
 Public Class ConfigValues
diff --git a/app/BrainpoolXmlParser/Main.vb b/app/BrainpoolXmlParser/Main.vb
index e50cdce..346fbd3 100644
--- a/app/BrainpoolXmlParser/Main.vb
+++ b/app/BrainpoolXmlParser/Main.vb
@@ -21,6 +21,7 @@ Module Main
 
     Private query As String
     Private config As ConfigValues
+    Private version As String
     Private marks As New List(Of Mark)
     Private props = New List(Of String) From {
             "RegistrationOfficeCode",
@@ -46,8 +47,9 @@ Module Main
             logger = LogManager.GetLogger("Main")
             config = AppConfig.GetConfiguration()
             db = New DB(config.connstring, "DD_ECM")
+            version = AppConfig.GetVersion()
 
-            logger.Info("{0} started", My.Application.Info.Title)
+            logger.Info("{0} (Version {1}) started", My.Application.Info.Title, version)
 
             If Not Directory.Exists(DataDir) Then
                 Directory.CreateDirectory(DataDir)
@@ -118,6 +120,12 @@ Module Main
                         Dim controlId = db.GetControlId(formId, prop)
                         ' Wert für die aktuelle property holen
                         Dim value = db.GetProperty(m, prop)
+
+                        If controlId = 0 Then
+                            logger.Warn("Value NOT inserted - ControlId for Property {0} could not be found.")
+                            Continue For
+                        End If
+
                         ' Wert einfügen
                         db.InsertValue(controlId, recordId, value)
 
diff --git a/app/BrainpoolXmlParser/My Project/AssemblyInfo.vb b/app/BrainpoolXmlParser/My Project/AssemblyInfo.vb
index 9b8883a..3981740 100644
--- a/app/BrainpoolXmlParser/My Project/AssemblyInfo.vb	
+++ b/app/BrainpoolXmlParser/My Project/AssemblyInfo.vb	
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.0.0.0")> 
-<Assembly: AssemblyFileVersion("1.0.0.0")> 
+<Assembly: AssemblyVersion("1.0.1.0")> 
+<Assembly: AssemblyFileVersion("1.0.1.0")>