This commit is contained in:
Jonathan Jenne 2017-07-28 11:05:39 +02:00
parent 13fe3d8cff
commit bbc0fb6bd4
7 changed files with 14 additions and 8 deletions

View File

@ -9,7 +9,7 @@ Public Class DB
Public FormId Public FormId
Public ControlId Public ControlId
Public RecordId Public RecordId
Public Username As String = "BrainpoolImporter" Public Username As String = "DPMA Importer"
Public Sub New(connectionString As String, dbname As String) Public Sub New(connectionString As String, dbname As String)

View File

@ -26,7 +26,6 @@
P = Patente (setzt eine Entität mit dem Namen "Patente" vorraus) P = Patente (setzt eine Entität mit dem Namen "Patente" vorraus)
--> -->
<add key="search_type" value="P" /> <add key="search_type" value="P" />
<!-- <!--
Die Zugangangsdaten, die für den Zugriff auf die DPMA Datenbank benötigt werden. Die Zugangangsdaten, die für den Zugriff auf die DPMA Datenbank benötigt werden.
Mehr Informationen finden Sie unter https://register.dpma.de/DPMAregister/Uebersicht Mehr Informationen finden Sie unter https://register.dpma.de/DPMAregister/Uebersicht

View File

@ -16,6 +16,15 @@
</client> </client>
</system.serviceModel> </system.serviceModel>
<appSettings> <appSettings>
<!--
Was soll gesucht werden?
M = Marken (setzt eine Entität mit dem Namen "Marken" vorraus)
P = Patente (setzt eine Entität mit dem Namen "Patente" vorraus)
Beispiel:
Wenn Patente und Marken importiert werden sollen
<add key="search_type" value="PM" />
-->
<add key="search_type" value="P" />
<!-- <!--
Die Zugangangsdaten, die für den Zugriff auf die DPMA Datenbank benötigt werden. Die Zugangangsdaten, die für den Zugriff auf die DPMA Datenbank benötigt werden.
Mehr Informationen finden Sie unter https://register.dpma.de/DPMAregister/Uebersicht Mehr Informationen finden Sie unter https://register.dpma.de/DPMAregister/Uebersicht
@ -24,6 +33,7 @@
<add key="dpma_password" value="password"/> <add key="dpma_password" value="password"/>
<!-- <!--
query erwartet entweder eine mit Semikolon getrennte Liste oder einen SQL Befehl, der ein einspaltiges Ergebnis liefert . query erwartet entweder eine mit Semikolon getrennte Liste oder einen SQL Befehl, der ein einspaltiges Ergebnis liefert .
Beispiel: Beispiel:
<add key="dpma_query" value="SELECT [Unternehmen] FROM [MeineDatenbank].[dbo].[Unternehmen] WHERE ProdUnternehmen = 1 ORDER BY Unternehmen"/> <add key="dpma_query" value="SELECT [Unternehmen] FROM [MeineDatenbank].[dbo].[Unternehmen] WHERE ProdUnternehmen = 1 ORDER BY Unternehmen"/>
--> -->

View File

@ -228,8 +228,6 @@ Module Main
Dim patentExists As Integer = database.GetRecordId(mainControlId, p.LeadingRegisteredNumber) Dim patentExists As Integer = database.GetRecordId(mainControlId, p.LeadingRegisteredNumber)
logger.Debug("Patent {0} exists: {1}", patentExists, CBool(patentExists)) logger.Debug("Patent {0} exists: {1}", patentExists, CBool(patentExists))
If (patentExists = 0) Then If (patentExists = 0) Then
Try Try
' Einen Record erstellen ' Einen Record erstellen
@ -310,7 +308,6 @@ 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))
ReadLine()
End Try End Try
End Sub End Sub

View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2.0.0")> <Assembly: AssemblyVersion("1.3.0.0")>
<Assembly: AssemblyFileVersion("1.1.2.0")> <Assembly: AssemblyFileVersion("1.1.2.0")>

View File

@ -144,7 +144,7 @@ Public Class Patent
Return _abstract Return _abstract
End Get End Get
Set(value As String) Set(value As String)
_abstract = value.Replace("'", "''").Replace("(", "{").Replace(")", "}") _abstract = value.Replace("'", "''")
End Set End Set
End Property End Property

View File

@ -24,7 +24,7 @@
/> />
<Property Id="PREVIOUSVERSIONSINSTALLED" Secure="yes" /> <Property Id="PREVIOUSVERSIONSINSTALLED" Secure="yes" />
<Upgrade Id="{6387325E-F6D7-46BE-BBA8-D0E37BEEF800}"> <Upgrade Id="{413c25c2-7eb2-421c-a86e-01bcc5653e57}">
<UpgradeVersion <UpgradeVersion
Minimum="1.0.0.0" Maximum="99.0.0.0" Minimum="1.0.0.0" Maximum="99.0.0.0"
Property="PREVIOUSVERSIONSINSTALLED" Property="PREVIOUSVERSIONSINSTALLED"