Initial commit
This commit is contained in:
34
EDOKA_Toolset/Plugin_Dokwert_Korrektur/Klassen/Crypto.vb
Normal file
34
EDOKA_Toolset/Plugin_Dokwert_Korrektur/Klassen/Crypto.vb
Normal file
@@ -0,0 +1,34 @@
|
||||
Module Crypto
|
||||
Public Function EncryptText(ByVal strText As String, ByVal strPwd As String)
|
||||
Dim i As Integer, c As Integer
|
||||
Dim strBuff As String
|
||||
|
||||
strPwd = UCase$(strPwd)
|
||||
If Len(strPwd) Then
|
||||
For i = 1 To Len(strText)
|
||||
c = Asc(Mid$(strText, i, 1))
|
||||
c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
|
||||
strBuff = strBuff & Chr(c And &HFF)
|
||||
Next i
|
||||
Else
|
||||
strBuff = strText
|
||||
End If
|
||||
EncryptText = strBuff
|
||||
End Function
|
||||
|
||||
Public Function DecryptText(ByVal strText As String, ByVal strPwd As String)
|
||||
Dim i As Integer, c As Integer
|
||||
Dim strBuff As String
|
||||
strPwd = UCase$(strPwd)
|
||||
If Len(strPwd) Then
|
||||
For i = 1 To Len(strText)
|
||||
c = Asc(Mid$(strText, i, 1))
|
||||
c = c - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
|
||||
strBuff = strBuff & Chr(c And &HFF)
|
||||
Next i
|
||||
Else
|
||||
strBuff = strText
|
||||
End If
|
||||
DecryptText = strBuff
|
||||
End Function
|
||||
End Module
|
||||
220
EDOKA_Toolset/Plugin_Dokwert_Korrektur/Klassen/DB.vb
Normal file
220
EDOKA_Toolset/Plugin_Dokwert_Korrektur/Klassen/DB.vb
Normal file
@@ -0,0 +1,220 @@
|
||||
Imports System.IO
|
||||
Imports System.Data.Sql
|
||||
Imports System.Data.SqlClient
|
||||
|
||||
Public Class DB
|
||||
|
||||
Public dsDaten As New DataSet
|
||||
Public dsdaten1 As New DataSet
|
||||
Public dsdatendocm As New DataSet
|
||||
Public dadaten As SqlDataAdapter
|
||||
Public dadatendocm As SqlDataAdapter
|
||||
Dim sql As String
|
||||
|
||||
Public Function UpdateData(ByVal Dokumentid As String, ByVal Feldwert As String, ByVal insertupdate As Integer, ByVal dokumentinfonr As Integer) As Boolean
|
||||
Dim selectcommand As New SqlCommand
|
||||
Dim connection As New SqlConnection()
|
||||
Dim da As New SqlDataAdapter("", connection)
|
||||
selectcommand.CommandText = "sp_plugin_dokwert_korrektur"
|
||||
selectcommand.Parameters.Add("@fnkt", SqlDbType.Int, 4)
|
||||
selectcommand.Parameters.Add("@param1", SqlDbType.VarChar, 255)
|
||||
selectcommand.Parameters.Add("@param2", SqlDbType.VarChar, 255)
|
||||
selectcommand.Parameters.Add("@param3", SqlDbType.VarChar, 255)
|
||||
selectcommand.Parameters.Add("@param4", SqlDbType.VarChar, 255)
|
||||
selectcommand.Parameters.Add("@param5", SqlDbType.VarChar, 255)
|
||||
Dim outputParam0 As SqlParameter = New SqlParameter("@keyvalue", SqlDbType.Int, 4) With {
|
||||
.Direction = ParameterDirection.Output
|
||||
}
|
||||
|
||||
Dim outputParam1 As SqlParameter = New SqlParameter("@ReturnCode", SqlDbType.Int, 4) With {
|
||||
.Direction = ParameterDirection.Output
|
||||
}
|
||||
selectcommand.Parameters.Add(outputParam0)
|
||||
selectcommand.Parameters.Add(outputParam1)
|
||||
selectcommand.Parameters(0).Value = 2
|
||||
selectcommand.Parameters(1).Value = Dokumentid
|
||||
selectcommand.Parameters(2).Value = Feldwert
|
||||
selectcommand.Parameters(3).Value = insertupdate
|
||||
selectcommand.Parameters(4).Value = dokumentinfonr
|
||||
selectcommand.Parameters(5).Value = Globals.Mitarbeiternr
|
||||
selectcommand.Parameters(6).Value = 0
|
||||
selectcommand.Parameters(7).Value = 0
|
||||
|
||||
|
||||
selectcommand.CommandType = CommandType.StoredProcedure
|
||||
selectcommand.Connection = connection
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionstring
|
||||
connection.Open()
|
||||
selectcommand.ExecuteNonQuery()
|
||||
Dim rc As Integer = 0
|
||||
rc = selectcommand.Parameters("@ReturnCode").Value
|
||||
Dim keyvalue As Integer = 0
|
||||
keyvalue = selectcommand.Parameters("@Keyvalue").Value
|
||||
|
||||
If rc <> 0 Then
|
||||
MsgBox("Update für '" + Dokumentid + "' wurde nicht durchgeführt, da mehr als ein Datensätz geändert worden wäre.", vbExclamation)
|
||||
Return False
|
||||
End If
|
||||
|
||||
For Each r As DataRow In dsDaten.Tables(0).Rows
|
||||
If r.Item("Dokumentid") = Dokumentid Then r.Item("dokumentinfonr") = keyvalue
|
||||
Next
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
Return False
|
||||
Finally
|
||||
connection.Close()
|
||||
da.Dispose()
|
||||
selectcommand.Dispose()
|
||||
End Try
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
Public Function Get_Dokumente(ByVal partnernr As String, dokumentid As String, datum As String, ByVal cbstate As Integer) As Boolean
|
||||
dsDaten.Tables.Clear()
|
||||
Dim selectcommand As New SqlCommand
|
||||
Dim connection As New SqlConnection()
|
||||
Dim da As New SqlDataAdapter("", connection)
|
||||
selectcommand.CommandText = "sp_plugin_dokwert_korrektur"
|
||||
selectcommand.Parameters.Add("@fnkt", SqlDbType.Int, 4)
|
||||
selectcommand.Parameters.Add("@param1", SqlDbType.VarChar, 255)
|
||||
selectcommand.Parameters.Add("@param2", SqlDbType.VarChar, 255)
|
||||
selectcommand.Parameters.Add("@param3", SqlDbType.VarChar, 255)
|
||||
selectcommand.Parameters.Add("@param4", SqlDbType.VarChar, 255)
|
||||
selectcommand.Parameters.Add("@param5", SqlDbType.VarChar, 255)
|
||||
selectcommand.Parameters(0).Value = 1
|
||||
selectcommand.Parameters(1).Value = partnernr
|
||||
selectcommand.Parameters(2).Value = dokumentid
|
||||
selectcommand.Parameters(3).Value = datum
|
||||
selectcommand.Parameters(4).Value = cbstate
|
||||
selectcommand.Parameters(5).Value = 0
|
||||
|
||||
selectcommand.CommandType = CommandType.StoredProcedure
|
||||
selectcommand.Connection = connection
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionstring
|
||||
connection.Open()
|
||||
da.SelectCommand = selectcommand
|
||||
|
||||
da.Fill(dsDaten, "Dokumente")
|
||||
Return True
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
MsgBox(ex.Message)
|
||||
Return False
|
||||
Finally
|
||||
connection.Close()
|
||||
da.Dispose()
|
||||
selectcommand.Dispose()
|
||||
End Try
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
Sub gaga()
|
||||
|
||||
Try
|
||||
dsDaten.Clear()
|
||||
sql = "Select * from View_Covid_Mail order by erstelltam desc"
|
||||
dadaten = New SqlDataAdapter(sql, Globals.sConnectionstring)
|
||||
dadaten.Fill(dsDaten, "Dokumente")
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public Function Get_From_DB(ByVal DokumentID As String, ByVal Filename As String) As Boolean
|
||||
|
||||
Dim connection As New SqlConnection()
|
||||
Dim da As New SqlDataAdapter("Select * From doks where DokumentID='" + DokumentID + "'", connection)
|
||||
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
|
||||
Dim ds As New DataSet()
|
||||
|
||||
Try
|
||||
'Connectionstring zur Datenbank
|
||||
connection.ConnectionString = Globals.sConnectionstring
|
||||
connection.Open()
|
||||
da.Fill(ds, "docs")
|
||||
Dim myRow As DataRow
|
||||
myRow = ds.Tables(0).Rows(0)
|
||||
Dim MyData() As Byte
|
||||
MyData = myRow.Item(1)
|
||||
Dim K As Long
|
||||
K = UBound(MyData)
|
||||
Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Write)
|
||||
fs.Write(MyData, 0, K)
|
||||
fs.Close()
|
||||
fs = Nothing
|
||||
Catch ex As Exception
|
||||
' MsgBox(ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
CB = Nothing
|
||||
ds = Nothing
|
||||
da = Nothing
|
||||
connection.Close()
|
||||
connection = Nothing
|
||||
Return True
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Public Class DB_Connection
|
||||
|
||||
''' <summary>
|
||||
''' Liest sämtlcihe CFG-Dateien mit dem Namen "Vertragsverwaltung...". Sind meherere Dateien vorhanden,
|
||||
''' wird ein Auswahldialog zur Datenbank-Selektion angezeigt.
|
||||
''' Standardmässig wird Vertragsverwaltung.cfg als CFG-Datei benutzt.
|
||||
'''
|
||||
''' Die CFG-Datei ist verschlüsselt und wird über die Crypto-Funktionen entschlüsselt.
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
Shared Sub New()
|
||||
Dim path As String = ""
|
||||
Dim fc As Integer = 0
|
||||
If fc < 2 Then Globals.ConnectionFilename = "edokaconn.cfg"
|
||||
Dim ofile As System.IO.File
|
||||
Dim oread As System.IO.StreamReader
|
||||
|
||||
oread = ofile.OpenText(ApplicationPath() + "\" + Globals.ConnectionFilename)
|
||||
sConnectionstring = oread.ReadLine
|
||||
sConnectionstring = Crypto.DecryptText(sConnectionstring, "HutterundMueller")
|
||||
sConnectionstring = Left(sConnectionstring, Len(sConnectionstring) - 1)
|
||||
Globals.sConnectionstring = sConnectionstring
|
||||
oread.Close()
|
||||
|
||||
Dim connection As New SqlConnection()
|
||||
Dim da As New SqlDataAdapter("Select beschreibung from pluginparameter where pluginparamnr=1", connection)
|
||||
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
|
||||
Dim ds As New DataSet()
|
||||
Try
|
||||
connection.ConnectionString = Globals.sConnectionstring
|
||||
connection.Open()
|
||||
da.Fill(ds, "params")
|
||||
path = ds.Tables(0).Rows(0).Item(0)
|
||||
Catch ex As Exception
|
||||
path = ""
|
||||
CB = Nothing
|
||||
End Try
|
||||
|
||||
ds = Nothing
|
||||
da = Nothing
|
||||
connection.Close()
|
||||
connection = Nothing
|
||||
|
||||
Globals.ConnectionFilename = "edokaconn.cfg"
|
||||
oread = ofile.OpenText(path + "\" + Globals.ConnectionFilename)
|
||||
sConnectionstring = oread.ReadLine
|
||||
sConnectionstring = Crypto.DecryptText(sConnectionstring, "HutterundMueller")
|
||||
sConnectionstring = Left(sConnectionstring, Len(sConnectionstring) - 1)
|
||||
Globals.sConnectionstring = sConnectionstring
|
||||
oread.Close()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
14
EDOKA_Toolset/Plugin_Dokwert_Korrektur/Klassen/Globals.vb
Normal file
14
EDOKA_Toolset/Plugin_Dokwert_Korrektur/Klassen/Globals.vb
Normal file
@@ -0,0 +1,14 @@
|
||||
Imports System.IO
|
||||
Imports System.Reflection
|
||||
|
||||
Module Globals
|
||||
Public ConnectionFilename As String
|
||||
Public sConnectionstring As String
|
||||
Public Mitarbeiternr As Integer
|
||||
|
||||
Public Function ApplicationPath() As String
|
||||
Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
|
||||
End Function
|
||||
|
||||
|
||||
End Module
|
||||
Reference in New Issue
Block a user