This commit is contained in:
Jonathan Jenne 2017-06-26 10:47:00 +02:00
parent 7193c299ec
commit b56c2d0841
6 changed files with 55 additions and 30 deletions

3
.vs/ProjectSettings.json Normal file
View File

@ -0,0 +1,3 @@
{
"CurrentProjectSetting": null
}

View File

@ -0,0 +1,6 @@
{
"ExpandedNodes": [
""
],
"PreviewInSolutionExplorer": false
}

BIN
.vs/slnx.sqlite Normal file

Binary file not shown.

View File

@ -16,16 +16,32 @@
</client> </client>
</system.serviceModel> </system.serviceModel>
<appSettings> <appSettings>
<!-- Die Zugangangsdaten, die für den Zugriff auf die DPMA Datenbank benötigt werden --> <!--
<add key="dpma_username" value="BRAINPOOL"/> Die Zugangangsdaten, die für den Zugriff auf die DPMA Datenbank benötigt werden.
<add key="dpma_password" value="brainPOOL1"/> Mehr Informationen finden Sie unter https://register.dpma.de/DPMAregister/Uebersicht
<!-- 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_username" value="renolit1"/>
<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"/> <add key="dpma_password" value="Dandy+1996"/>
<add key="dpma_query_ignore" value="Moodboard GmbH Brainpool für creatives Markenmanagement und Werbung, 40237 Düsseldorf, DE;BACS GmbH, 86165 Augsburg, DE"/> <!--
<!-- Die Verbindung, in die das Ergebnis des Imports eingelesen wird, damit werden auch dpma_searchvalues ausgelesen! --> query erwartet entweder eine mit Semikolon getrennte Liste oder einen SQL Befehl, der ein einspaltiges Ergebnis liefert .
<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"/> Beispiel:
<!-- Die Datenbank, in die das Ergebnis eingelesen wird und die Datenbank, die Record-Organizer/ADDI benutzt --> <add key="dpma_query" value="SELECT [Unternehmen] FROM [MeineDatenbank].[dbo].[Unternehmen] WHERE ProdUnternehmen = 1 ORDER BY Unternehmen"/>
<add key="sql_database" value="DD_ECM" /> -->
<!--<add key="dpma_query" value="FirmaA;FirmaB;FirmaC"/>-->
<add key="dpma_query" value="RENOLIT"/>
<!--
queryIgnore erwartet eine mit Semikolon getrennte Liste, die EXPLIZIT NICHT im Ergebnis enthalten sein sollen
-->
<add key="dpma_query_ignore" value=""/>
<!--
Die Verbindung, in die das Ergebnis des Imports eingelesen wird, damit werden auch dpma_searchvalues ausgelesen!
Beispiel:
<add key="sql_connstring" value="Data Source=1.2.3.4\test;Initial Catalog=DB_TEST;Persist Security Info=True;User ID=testuser;Password=testpass"/>
-->
<add key="sql_connstring" value="Data Source=1.2.3.4\test;Initial Catalog=DB_TEST;Persist Security Info=True;User ID=testuser;Password=testpass"/>
<!--
Die Datenbank, in die das Ergebnis eingelesen wird und die Datenbank, die Record-Organizer/ADDI benutzt
-->
<add key="sql_database" value="DB_TEST" />
</appSettings> </appSettings>
</configuration> </configuration>

View File

@ -24,23 +24,23 @@ Module Main
Private version As String Private version As String
Private marks As New List(Of Mark) Private marks As New List(Of Mark)
Private props = New List(Of String) From { Private props = New List(Of String) From {
"RegistrationOfficeCode", "RegistrationOfficeCode",
"RegistrationDate", "RegistrationDate",
"RegistrationNumber", "RegistrationNumber",
"MarkCurrentStatusCode", "MarkCurrentStatusCode",
"MarkVerbalElementText", "MarkVerbalElementText",
"MarkFeature", "MarkFeature",
"ApplicationDate", "ApplicationDate",
"Applicant", "Applicant",
"Representative", "Representative",
"PublicationDate", "PublicationDate",
"ExpiryDate", "ExpiryDate",
"TerminationDate", "TerminationDate",
"OppositionPeriodStartDate", "OppositionPeriodStartDate",
"OppositionPeriodEndDate", "OppositionPeriodEndDate",
"Classification", "Classification",
"ClassificationLong" "ClassificationLong"
} }
Sub Main() Sub Main()
Try Try
@ -195,7 +195,7 @@ Module Main
logger.Error("=================== ERROR ========================") logger.Error("=================== ERROR ========================")
logger.Error("==================================================") logger.Error("==================================================")
logger.Error("An Error occurred: {0}", GetExceptionInfo(ex)) logger.Error("An Error occurred: {0}", GetExceptionInfo(ex))
Environment.Exit(1) 'Environment.Exit(1)
End Try End Try
End Sub End Sub

View File

@ -5,7 +5,7 @@
Dim companies As List(Of String) Dim companies As List(Of String)
Dim stringsToIgnore As New List(Of String) Dim stringsToIgnore As New List(Of String)
' searchvalues ist entweder eine SQL Abfrage oder eine Kommagetrennte Liste ' searchvalues ist entweder eine SQL Abfrage oder eine Semikolongetrennte Liste
If config.query.ToUpper.StartsWith("SELECT") Then If config.query.ToUpper.StartsWith("SELECT") Then
companies = GetLiveQueryResult(config.query, db) companies = GetLiveQueryResult(config.query, db)
Else Else