|
|
Imports UtilityLibrary
|
|
|
Imports System.IO
|
|
|
Imports C1.Win.C1TrueDBGrid
|
|
|
Imports System.Data
|
|
|
Imports System.Data.SqlTypes
|
|
|
Imports System.Data.SqlClient
|
|
|
Imports System.ComponentModel
|
|
|
Imports UtilityLibrary.Win32
|
|
|
Imports System.Text
|
|
|
|
|
|
Namespace EDOKA
|
|
|
|
|
|
Public Class clsDivFnkt
|
|
|
|
|
|
#Region "Deklarationen"
|
|
|
|
|
|
Dim x As EDOKAMain
|
|
|
Dim m_uvmzvdokumenttyp As String
|
|
|
|
|
|
Dim m_nova_Partnernr As String
|
|
|
Property Nova_Partnernr() As String
|
|
|
Get
|
|
|
Return m_nova_Partnernr
|
|
|
End Get
|
|
|
Set(ByVal value As String)
|
|
|
m_nova_Partnernr = value
|
|
|
End Set
|
|
|
End Property
|
|
|
|
|
|
Property UVMZVDokumenttyp() As String
|
|
|
Get
|
|
|
Return m_uvmzvdokumenttyp
|
|
|
End Get
|
|
|
Set(ByVal Value As String)
|
|
|
m_uvmzvdokumenttyp = Value
|
|
|
End Set
|
|
|
End Property
|
|
|
|
|
|
Dim m_belegart As String
|
|
|
Property Belegart() As String
|
|
|
Get
|
|
|
Return m_belegart
|
|
|
End Get
|
|
|
Set(ByVal Value As String)
|
|
|
m_belegart = Value
|
|
|
End Set
|
|
|
End Property
|
|
|
|
|
|
Dim m_auftragnr As String
|
|
|
Property Auftragnr() As String
|
|
|
Get
|
|
|
Return m_auftragnr
|
|
|
End Get
|
|
|
Set(ByVal Value As String)
|
|
|
m_auftragnr = Value
|
|
|
End Set
|
|
|
End Property
|
|
|
|
|
|
Dim m_erstellungsdatum As String
|
|
|
Property Erstellungsdatum() As String
|
|
|
Get
|
|
|
Return m_erstellungsdatum
|
|
|
End Get
|
|
|
Set(ByVal Value As String)
|
|
|
If Value = "" Then
|
|
|
m_erstellungsdatum = ""
|
|
|
Else
|
|
|
If Mid(Value, 3, 1) = "." Then
|
|
|
m_erstellungsdatum = Value
|
|
|
Else
|
|
|
Dim dd As String
|
|
|
Dim mm As String
|
|
|
Dim yy As String
|
|
|
dd = Right(Value, 2)
|
|
|
mm = Mid(Value, 5, 2)
|
|
|
yy = Mid(Value, 3, 2)
|
|
|
If Len(dd) < 2 Then dd = "0" + dd
|
|
|
If Len(mm) < 2 Then mm = "0" + mm
|
|
|
m_erstellungsdatum = dd + "." + mm + "." + yy
|
|
|
End If
|
|
|
End If
|
|
|
End Set
|
|
|
End Property
|
|
|
|
|
|
Dim m_found As Boolean
|
|
|
Dim m_tn As TreeNode
|
|
|
Property found() As Boolean
|
|
|
Get
|
|
|
Return m_found
|
|
|
End Get
|
|
|
Set(ByVal Value As Boolean)
|
|
|
m_found = Value
|
|
|
End Set
|
|
|
End Property
|
|
|
|
|
|
Property FoundNode() As TreeNode
|
|
|
Get
|
|
|
Return m_tn
|
|
|
End Get
|
|
|
Set(ByVal Value As TreeNode)
|
|
|
m_tn = Value
|
|
|
End Set
|
|
|
End Property
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
#Region " Div"
|
|
|
|
|
|
Public Function GetHostValutaDAtum(ByVal sDokId As String, ByVal sPartnerNr As String) As String
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
scmCmdToExecute.CommandText = "dbo.sp_Get_HostDok_Valutadatum"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
Try
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, sDokId))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@partnernr", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, sPartnerNr))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@valutadatum", SqlDbType.VarChar, 50, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
|
sdaAdapter.Fill(dtToReturn)
|
|
|
GetHostValutaDAtum = scmCmdToExecute.Parameters.Item("@valutadatum").Value
|
|
|
Catch ex As Exception
|
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
|
Throw New Exception("DivFnkt:GetHostValutaDAtum::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
End Try
|
|
|
End Function
|
|
|
|
|
|
Public Function Searchnode(ByVal tv As TreeView, ByVal SearchObject As Object, ByVal imageindex As Integer) As Boolean
|
|
|
'Imageindex: Bei 0 keine <20>nderungen, ansonsten node-selectedimage auf Imageindex setzen
|
|
|
Searchnode = False
|
|
|
found = False
|
|
|
Dim nodeX As TreeNode
|
|
|
For Each nodeX In tv.Nodes
|
|
|
If TranverseNodes(tv, nodeX, SearchObject, imageindex) Then
|
|
|
Exit Function
|
|
|
End If
|
|
|
Next
|
|
|
End Function
|
|
|
|
|
|
Private Function TranverseNodes(ByVal tv As TreeView, ByVal selectedNode As TreeNode, ByVal SearchObject As Object, ByVal imageindex As Integer) As Boolean
|
|
|
Dim nodeX As TreeNode
|
|
|
For Each nodeX In selectedNode.Nodes
|
|
|
nodeX.Text = nodeX.Text
|
|
|
If nodeX.Tag = SearchObject Then
|
|
|
|
|
|
nodeX.Expand()
|
|
|
tv.SelectedNode = nodeX
|
|
|
Me.FoundNode = tv.SelectedNode
|
|
|
If imageindex <> 0 Then
|
|
|
tv.SelectedNode.SelectedImageIndex = imageindex
|
|
|
tv.SelectedNode.Toggle()
|
|
|
End If
|
|
|
found = True
|
|
|
TranverseNodes = True
|
|
|
Exit Function
|
|
|
End If
|
|
|
TranverseNodes(tv, nodeX, SearchObject, imageindex)
|
|
|
Next
|
|
|
End Function
|
|
|
|
|
|
Public Function Searchnode1(ByVal tv As TreeView, ByVal SearchObject As Object, ByVal imageindex As Integer) As Boolean
|
|
|
'Imageindex: Bei 0 keine <20>nderungen, ansonsten node-selectedimage auf Imageindex setzen
|
|
|
Searchnode1 = False
|
|
|
found = False
|
|
|
Dim nodeX As TreeNode
|
|
|
For Each nodeX In tv.Nodes
|
|
|
If TranverseNodes1(tv, nodeX, SearchObject, imageindex) Then
|
|
|
Exit Function
|
|
|
End If
|
|
|
Next
|
|
|
End Function
|
|
|
|
|
|
Private Function TranverseNodes1(ByVal tv As TreeView, ByVal selectedNode As TreeNode, ByVal SearchObject As Object, ByVal imageindex As Integer) As Boolean
|
|
|
Dim nodeX As TreeNode
|
|
|
For Each nodeX In selectedNode.Nodes
|
|
|
Try
|
|
|
If nodeX.Tag = SearchObject Then
|
|
|
nodeX.Expand()
|
|
|
Me.FoundNode = nodeX
|
|
|
found = True
|
|
|
TranverseNodes1 = True
|
|
|
Exit Function
|
|
|
Else
|
|
|
TranverseNodes1(tv, nodeX, SearchObject, imageindex)
|
|
|
End If
|
|
|
Catch
|
|
|
If nodeX.Text = Trim(Str(SearchObject)) Then
|
|
|
nodeX.Expand()
|
|
|
Me.FoundNode = nodeX
|
|
|
found = True
|
|
|
TranverseNodes1 = True
|
|
|
Exit Function
|
|
|
Else
|
|
|
TranverseNodes1(tv, nodeX, SearchObject, imageindex)
|
|
|
End If
|
|
|
End Try
|
|
|
|
|
|
Next
|
|
|
End Function
|
|
|
|
|
|
Public Function Searchnode2(ByVal tv As TreeView, ByVal SearchObject As Object, ByVal imageindex As Integer) As Boolean
|
|
|
'Imageindex: Bei 0 keine <20>nderungen, ansonsten node-selectedimage auf Imageindex setzen
|
|
|
Searchnode2 = False
|
|
|
found = False
|
|
|
Dim nodeX As TreeNode
|
|
|
For Each nodeX In tv.Nodes
|
|
|
If TranverseNodes2(tv, nodeX, SearchObject, imageindex) Then
|
|
|
Exit Function
|
|
|
End If
|
|
|
Next
|
|
|
End Function
|
|
|
|
|
|
Private Function TranverseNodes2(ByVal tv As TreeView, ByVal selectedNode As TreeNode, ByVal SearchObject As Object, ByVal imageindex As Integer) As Boolean
|
|
|
Dim nodeX As TreeNode
|
|
|
For Each nodeX In selectedNode.Nodes
|
|
|
If nodeX.ImageIndex = 1 Then
|
|
|
nodeX.Expand()
|
|
|
Me.FoundNode = nodeX
|
|
|
found = True
|
|
|
TranverseNodes2 = True
|
|
|
Exit Function
|
|
|
Else
|
|
|
TranverseNodes2(tv, nodeX, SearchObject, imageindex)
|
|
|
End If
|
|
|
Next
|
|
|
End Function
|
|
|
|
|
|
Public Function Searchnode3(ByVal tv As TreeView, ByVal SearchObject As Object, ByVal imageindex As Integer) As Boolean
|
|
|
'Imageindex: Bei 0 keine <20>nderungen, ansonsten node-selectedimage auf Imageindex setzen
|
|
|
Searchnode3 = False
|
|
|
found = False
|
|
|
Dim nodeX As TreeNode
|
|
|
For Each nodeX In tv.Nodes
|
|
|
If TranverseNodes3(tv, nodeX, SearchObject, imageindex) Then
|
|
|
Exit Function
|
|
|
End If
|
|
|
Next
|
|
|
End Function
|
|
|
|
|
|
Private Function TranverseNodes3(ByVal tv As TreeView, ByVal selectedNode As TreeNode, ByVal SearchObject As Object, ByVal imageindex As Integer) As Boolean
|
|
|
Dim nodeX As TreeNode
|
|
|
For Each nodeX In selectedNode.Nodes
|
|
|
If nodeX.Nodes.Count > 0 Then
|
|
|
nodeX.Expand()
|
|
|
Me.FoundNode = nodeX
|
|
|
found = True
|
|
|
TranverseNodes3 = True
|
|
|
Exit Function
|
|
|
Else
|
|
|
TranverseNodes3(tv, nodeX, SearchObject, imageindex)
|
|
|
End If
|
|
|
Next
|
|
|
End Function
|
|
|
|
|
|
Public Function Check_Dir(ByVal Partnernr As Long) As String
|
|
|
If Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("net_use") = True Then
|
|
|
|
|
|
End If
|
|
|
End Function
|
|
|
|
|
|
Public Function Ist_Berechtigt(ByVal dokumenttyp As Integer, ByVal Mitarbeiternr As Integer, _
|
|
|
ByVal partnernr As Integer, ByVal dokumentid As String, _
|
|
|
ByVal berechtigung As Integer, ByVal mitarbeiterdok As Integer, _
|
|
|
ByVal vipdok As Integer, ByVal vertraulichdok As Integer) As Boolean
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
Try
|
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokumentberechtigung"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumenttyp))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Mitarbeiternr))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@partnernr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, partnernr))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@berechtigung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, berechtigung))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiterdok", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, mitarbeiterdok))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@vipdok", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, vipdok))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@vertraulichdok", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, vertraulichdok))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@currentmitarbeiter", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@funktionen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@funktionsliste", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
|
sdaAdapter.Fill(dtToReturn)
|
|
|
If dtToReturn.Rows.Count = 0 Then
|
|
|
If berechtigung = 2 Then
|
|
|
If Berechtigt_als_stv(Mitarbeiternr, partnernr, dokumenttyp) = True Then
|
|
|
Return True
|
|
|
Else
|
|
|
Return False
|
|
|
End If
|
|
|
Else
|
|
|
Return False
|
|
|
End If
|
|
|
Else
|
|
|
Return True
|
|
|
End If
|
|
|
Catch ex As Exception
|
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
|
Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
End Try
|
|
|
End Function
|
|
|
|
|
|
Public Function Berechtigt_als_stv(ByVal mitarbeiternr As Integer, ByVal partnernr As Integer, ByVal DOKUMENTTYPNR As Integer) As Boolean
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
Try
|
|
|
scmCmdToExecute.CommandText = "dbo.sp_dokumentberechtigung_erstellungstv"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, mitarbeiternr))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@partnernr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, partnernr))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DOKUMENTTYPNR))
|
|
|
sdaAdapter.Fill(dtToReturn)
|
|
|
If dtToReturn.Rows.Count = 0 Then
|
|
|
Return False
|
|
|
Else
|
|
|
Return True
|
|
|
End If
|
|
|
Catch ex As Exception
|
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
|
Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
End Try
|
|
|
End Function
|
|
|
|
|
|
|
|
|
Public Function Berechtigte_Mitarbeiter(ByVal dokumenttyp As Integer, ByVal Mitarbeiternr As Integer, _
|
|
|
ByVal partnernr As Integer, ByVal dokumentid As String, _
|
|
|
ByVal berechtigung As Integer, ByVal mitarbeiterdok As Integer, _
|
|
|
ByVal vipdok As Integer, ByVal vertraulichdok As Integer, _
|
|
|
ByVal Funktionsliste As String) As DataTable
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
Try
|
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokumentberechtigung"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumenttyp))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Mitarbeiternr))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@partnernr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, partnernr))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@berechtigung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, berechtigung))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiterdok", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, mitarbeiterdok))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@vipdok", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, vipdok))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@vertraulichdok", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, vertraulichdok))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@currentmitarbeiter", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@funktionen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@funktionsliste", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Funktionsliste))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@stv", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
|
sdaAdapter.Fill(dtToReturn)
|
|
|
Globals.stv = scmCmdToExecute.Parameters("@stv").Value
|
|
|
|
|
|
Return dtToReturn
|
|
|
Catch ex As Exception
|
|
|
MsgBox(ex.Message)
|
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
|
Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
End Try
|
|
|
End Function
|
|
|
|
|
|
Public Function Berechtigte_Funktionen(ByVal dokumenttyp As Integer, ByVal Mitarbeiternr As Integer, _
|
|
|
ByVal partnernr As Integer, ByVal dokumentid As String, _
|
|
|
ByVal berechtigung As Integer, ByVal mitarbeiterdok As Integer, _
|
|
|
ByVal vipdok As Integer, ByVal vertraulichdok As Integer) As DataTable
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
Try
|
|
|
scmCmdToExecute.CommandText = "dbo.SP_Dokumentberechtigung"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumenttyp))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Mitarbeiternr))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@partnernr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, partnernr))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@berechtigung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, berechtigung))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiterdok", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, mitarbeiterdok))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@vipdok", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, vipdok))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@vertraulichdok", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, vertraulichdok))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@currentmitarbeiter", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@funktionen", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@funktionsliste", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
|
sdaAdapter.Fill(dtToReturn)
|
|
|
Return dtToReturn
|
|
|
Catch ex As Exception
|
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
|
Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
End Try
|
|
|
End Function
|
|
|
|
|
|
Public Function Generate_Berechtigungen()
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
Try
|
|
|
scmCmdToExecute.CommandText = "dbo.sp_dokumentberechtigung_Generate"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
scmCmdToExecute.CommandTimeout = 50000
|
|
|
conn.OpenConnection()
|
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
|
Catch ex As Exception
|
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
|
'Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
|
Finally
|
|
|
conn.CloseConnection(True)
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
End Try
|
|
|
|
|
|
End Function
|
|
|
|
|
|
Public Function MA_Is_Sysadmin(ByVal mitarbeiternr As Integer) As Boolean
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
Dim i As Integer
|
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
scmCmdToExecute.CommandText = "dbo.sp_check_sysadmin"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
Try
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@issysadmin", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
|
sdaAdapter.Fill(dtToReturn)
|
|
|
i = scmCmdToExecute.Parameters.Item("@issysadmin").Value
|
|
|
If i > 0 Then MA_Is_Sysadmin = True Else MA_Is_Sysadmin = False
|
|
|
Catch ex As Exception
|
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
End Try
|
|
|
End Function
|
|
|
|
|
|
Public Function Check_NoEdit(ByVal dokumentid As String) As Boolean
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
Dim i As Integer
|
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
scmCmdToExecute.CommandText = "dbo.sp_Dokument_CheckNoEdit"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
Try
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@return", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
|
sdaAdapter.Fill(dtToReturn)
|
|
|
i = scmCmdToExecute.Parameters.Item("@return").Value
|
|
|
If i > 0 Then Check_NoEdit = True Else Check_NoEdit = False
|
|
|
Catch ex As Exception
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
End Try
|
|
|
End Function
|
|
|
#End Region
|
|
|
|
|
|
#Region " Spalten"
|
|
|
Public Sub SpaltenTitel_Aktualisieren(ByVal tdb As C1TrueDBGrid, ByVal inptable As DataTable, ByVal tablename As String)
|
|
|
'Spaltentitel setzen
|
|
|
Dim titel As New EDOKA.MySpaltenTitel()
|
|
|
Dim ts As New EDOKA.Tabellenspalte()
|
|
|
Dim i As Integer
|
|
|
Dim t As New DataTable()
|
|
|
Dim dc As C1.Win.C1TrueDBGrid.C1DisplayColumn
|
|
|
Dim s As String
|
|
|
|
|
|
t = inptable
|
|
|
ts.Tabelle = tablename
|
|
|
For i = 0 To tdb.Columns.Count - 1
|
|
|
s = tdb.Columns(i).DataField
|
|
|
ts.Feld = s
|
|
|
ts.getspalte()
|
|
|
tdb.Columns(i).Caption = ts.spaltenname
|
|
|
If tdb.Columns(i).DataType.Name = "DateTime" Then
|
|
|
tdb.Columns(i).NumberFormat = "dd.MM.yyyy HH:mm:ss"
|
|
|
End If
|
|
|
If tdb.Columns(i).Caption = "" Then
|
|
|
tdb.Splits(0).DisplayColumns(i).Width = 0
|
|
|
tdb.Splits(0).DisplayColumns(i).Visible = False
|
|
|
Else
|
|
|
tdb.Splits(0).DisplayColumns(i).Width = ts.ColWith
|
|
|
End If
|
|
|
Try
|
|
|
If ts.ColWith = 0 Then
|
|
|
tdb.Splits(0).DisplayColumns(i).Visible = False
|
|
|
End If
|
|
|
Catch
|
|
|
End Try
|
|
|
' If tdb.Columns(i).Caption = "" Then tdb.Splits(0).DisplayColumns(i).Width = 0
|
|
|
If ts.locked Then
|
|
|
tdb.Splits(0).DisplayColumns(i).Locked = True
|
|
|
End If
|
|
|
|
|
|
If ts.AlsHacken Then
|
|
|
tdb.Columns(i).ValueItems.Presentation = PresentationEnum.CheckBox
|
|
|
If tdb.Columns(i).DataType.Name = "Int32" Then
|
|
|
tdb.Columns(i).ValueItems.Translate = True
|
|
|
tdb.Columns(i).ValueItems.CycleOnClick = True
|
|
|
tdb.Columns(i).ValueItems.Values.Clear()
|
|
|
tdb.Columns(i).ValueItems.Values.Add(New C1.Win.C1TrueDBGrid.ValueItem("0", False))
|
|
|
tdb.Columns(i).ValueItems.Values.Add(New C1.Win.C1TrueDBGrid.ValueItem("1", True))
|
|
|
tdb.Columns(i).ValueItems.Values.Add(New C1.Win.C1TrueDBGrid.ValueItem("2", "INDETERMINATE"))
|
|
|
End If
|
|
|
|
|
|
End If
|
|
|
|
|
|
'Pr<50>sentation von aktiv
|
|
|
If tdb.Columns(i).DataField = "aktiv" Then
|
|
|
tdb.Columns(i).ValueItems.Presentation = PresentationEnum.CheckBox
|
|
|
tdb.Columns(i).ValueItems.DefaultItem = True
|
|
|
tdb.Columns(i).DefaultValue = True
|
|
|
tdb.Columns(i).FilterText = True
|
|
|
End If
|
|
|
If tdb.Columns(i).DataField = "erstellt_am" Then
|
|
|
tdb.Columns(i).DefaultValue = Now
|
|
|
End If
|
|
|
'tdb.Splits(0).DisplayColumns.Insert(ts.Order, tdb.Splits(0).DisplayColumns(i))
|
|
|
'tdb.Splits(0).DisplayColumns.RemoveAt(i)
|
|
|
Next
|
|
|
End Sub
|
|
|
#End Region
|
|
|
|
|
|
#Region " FileHandling"
|
|
|
|
|
|
Public Function Get_Filename(ByVal fi As String, ByVal partnernr As String) As String
|
|
|
Dim s As String
|
|
|
Get_Filename = ""
|
|
|
If Not Open_Directory() Then Exit Function
|
|
|
s = Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("logisches_Laufwerk") & Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_dokumente") + "\"
|
|
|
Get_Filename = s + fi
|
|
|
End Function
|
|
|
|
|
|
Public Function Open_Directory() As Boolean
|
|
|
Open_Directory = True
|
|
|
End Function
|
|
|
|
|
|
Public Function Delete_Directory(ByVal sPfad As String) As Boolean
|
|
|
Try
|
|
|
System.IO.Directory.Delete(sPfad, True)
|
|
|
Delete_Directory = True
|
|
|
Catch
|
|
|
Delete_Directory = False
|
|
|
End Try
|
|
|
End Function
|
|
|
|
|
|
Public Function Create_Folders(ByVal s As String) As Boolean
|
|
|
Dim xt(10) As String
|
|
|
Dim xti As Integer
|
|
|
Dim po As Integer
|
|
|
Dim x As String
|
|
|
Dim xti1 As Integer
|
|
|
Dim i As Long
|
|
|
po = InStr(s, "\")
|
|
|
xti = 0
|
|
|
While po <> 0
|
|
|
xt(xti) = Left(s, po - 1)
|
|
|
xti = xti + 1
|
|
|
s = Right(s, Len(s) - (po))
|
|
|
po = InStr(s, "\")
|
|
|
End While
|
|
|
xt(xti) = s
|
|
|
For xti1 = 0 To xti
|
|
|
If x <> "" Then x = x & "\"
|
|
|
x = x & xt(xti1)
|
|
|
If Not FolderExist(x) Then Create_Folder(x)
|
|
|
Next
|
|
|
Create_Folders = True
|
|
|
End Function
|
|
|
|
|
|
Public Function FolderExist(ByVal dn As String) As Boolean
|
|
|
Try
|
|
|
If System.IO.Directory.Exists(dn) Then FolderExist = True Else FolderExist = False
|
|
|
Catch
|
|
|
FolderExist = False
|
|
|
End Try
|
|
|
End Function
|
|
|
|
|
|
Public Function Create_Folder(ByVal dn As String) As Boolean
|
|
|
Try
|
|
|
System.IO.Directory.CreateDirectory(dn)
|
|
|
Catch
|
|
|
Create_Folder = False
|
|
|
End Try
|
|
|
End Function
|
|
|
|
|
|
Public Function ExtractFilename(ByVal x As String) As String
|
|
|
Dim splitter
|
|
|
Dim i As Integer
|
|
|
Dim Y As String
|
|
|
splitter = Microsoft.VisualBasic.Split(x, "\")
|
|
|
On Error Resume Next
|
|
|
Err.Clear()
|
|
|
i = -1
|
|
|
While Err.Number = 0
|
|
|
i = i + 1
|
|
|
Y = splitter(i)
|
|
|
End While
|
|
|
ExtractFilename = Y
|
|
|
End Function
|
|
|
|
|
|
|
|
|
#End Region
|
|
|
#Region "Dokumenterstellung"
|
|
|
Public Sub Dokumenterstellung_SetStatusBZA(ByVal dokid As String)
|
|
|
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
scmCmdToExecute.CommandText = "dbo.SP_dokumentErstellung_NoEdit_SetStatus_bza"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
Try
|
|
|
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokid))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
|
|
|
|
scmCmdToExecute.Connection.Open()
|
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
|
|
|
|
Catch ex As Exception
|
|
|
Finally
|
|
|
scmCmdToExecute.Connection.Close()
|
|
|
scmCmdToExecute.Dispose()
|
|
|
End Try
|
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
|
#Region " Dokumentbearbeitung"
|
|
|
|
|
|
Public Function Status_Dokumentbearbeitung(ByVal fnkt As Integer, ByVal dokumentid As String, ByVal erstellung As Boolean, ByVal dokumentname As String) As Boolean
|
|
|
'Pr<50>fung, Eintragung, L<>schung der Tabelle DokInBearbeitung'
|
|
|
'Fnkt:
|
|
|
' 1=Eintragen
|
|
|
' 2=L<>schen
|
|
|
' 3=Pr<50>fen
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
scmCmdToExecute.CommandText = "dbo.sp_Dokument_in_Bearbeitung"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
Try
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, fnkt))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@erstellung", SqlDbType.Bit, 1, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, erstellung))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentname", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentname))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@stationsname", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Environ("Computername")))
|
|
|
sdaAdapter.Fill(dtToReturn)
|
|
|
Status_Dokumentbearbeitung = True
|
|
|
If fnkt = 3 Then
|
|
|
If dtToReturn.Rows.Count > 0 Then
|
|
|
MyMsg.show_standardmessage(31, MsgBoxStyle.Critical)
|
|
|
Status_Dokumentbearbeitung = False
|
|
|
End If
|
|
|
End If
|
|
|
Catch ex As Exception
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
dtToReturn.Dispose()
|
|
|
End Try
|
|
|
End Function
|
|
|
#End Region
|
|
|
|
|
|
#Region " ShowDoc"
|
|
|
|
|
|
#Region " Show"
|
|
|
|
|
|
Public Sub ShowDoc(ByVal dokumentid As String, ByVal formx As Form)
|
|
|
Try
|
|
|
'************************************************
|
|
|
'UVM Migration / Erste Variante
|
|
|
'Start
|
|
|
'************************************************
|
|
|
''Rel 3.7 / BUD - Neu Pr<50>fung auf UVM Dokument, wenn UVM Dokument dann Daten auslesen.
|
|
|
'If InStr(dokumentid, "OFFEDK003") <> 0 Then
|
|
|
' Try
|
|
|
' Dim dt As DataTable
|
|
|
' dt = GetDataUVMDokument(dokumentid)
|
|
|
' gen_ShowColdDocUVM(dt.Rows(0).Item("nrpar00"), dt.Rows(0).Item("fanummer3"), dt.Rows(0).Item("erstelltam"), formx)
|
|
|
' Exit Sub
|
|
|
' Catch ex As Exception
|
|
|
' MsgBox(ex.Message)
|
|
|
' End Try
|
|
|
'End If
|
|
|
'************************************************
|
|
|
'ENDE
|
|
|
'************************************************
|
|
|
|
|
|
Dim colddokumentid As String
|
|
|
colddokumentid = get_colddokumentid(dokumentid, 0)
|
|
|
If colddokumentid = "Office" Then
|
|
|
show_office(dokumentid, formx)
|
|
|
Exit Sub
|
|
|
End If
|
|
|
If DivFnkt.BDR_Dokument(dokumentid) = True Then
|
|
|
ShowColdDoc(dokumentid, formx, colddokumentid)
|
|
|
Exit Sub
|
|
|
End If
|
|
|
If Not ShowColdDoc(dokumentid, formx, colddokumentid) Then
|
|
|
colddokumentid = get_colddokumentid(dokumentid, 1)
|
|
|
If Not ShowColdDoc(dokumentid, formx, colddokumentid) Then
|
|
|
colddokumentid = get_colddokumentid(dokumentid, 2)
|
|
|
If Not ShowColdDoc(dokumentid, formx, colddokumentid) Then
|
|
|
show_office(dokumentid, formx)
|
|
|
End If
|
|
|
End If
|
|
|
End If
|
|
|
Catch ex As Exception
|
|
|
MsgBox(ex.Message)
|
|
|
End Try
|
|
|
End Sub
|
|
|
|
|
|
Public Function ShowColdDoc(ByVal dokumentid As String, ByVal formx As Form, ByVal cold_dokumentid As String) As Boolean
|
|
|
Dim f As New frmcoldview()
|
|
|
f.Erstellungsdatum = Me.Erstellungsdatum
|
|
|
f.Colddokumentid = cold_dokumentid
|
|
|
f.DokumentId = dokumentid
|
|
|
If IsNothing(formx) Then
|
|
|
formx = EDOKAMain
|
|
|
End If
|
|
|
f.MdiParent = formx.MdiParent
|
|
|
f.Width = 1
|
|
|
f.Height = 1
|
|
|
f.Show()
|
|
|
If f.DocNotFound = True Then
|
|
|
Journal_Dokumentzugriff(dokumentid, "COLD-Anzeige-Fehler", 0, 0, "", "")
|
|
|
ShowColdDoc = False
|
|
|
f.Dispose()
|
|
|
Else
|
|
|
ShowColdDoc = True
|
|
|
Journal_Dokumentzugriff(dokumentid, "COLD-Anzeige", 0, 0, "", "")
|
|
|
f.Dispose()
|
|
|
End If
|
|
|
End Function
|
|
|
|
|
|
Public Function ShowColdDocHost(ByVal dokumentid As String, ByVal formx As Form, ByVal cold_dokumentid As String, ByVal partnernr As String, ByVal bkpar00 As String, ByVal dokumenttyp As String) As Boolean
|
|
|
Try
|
|
|
Dim f As New frmcoldview()
|
|
|
'Nova
|
|
|
f.PartnerNr = partnernr
|
|
|
'Nove ende
|
|
|
f.Erstellungsdatum = Me.Erstellungsdatum
|
|
|
f.belegart = Me.Belegart
|
|
|
f.UVMZVDokumenttyp = Me.UVMZVDokumenttyp
|
|
|
f.Auftragnr = Me.Auftragnr
|
|
|
f.Colddokumentid = cold_dokumentid
|
|
|
f.DokumentId = dokumentid
|
|
|
f.MdiParent = formx.MdiParent
|
|
|
f.Width = 1
|
|
|
f.Height = 1
|
|
|
f.Show()
|
|
|
If f.DocNotFound = True Then
|
|
|
Journal_Dokumentzugriff(dokumentid, "HOST-Anzeige-Fehler", 1, partnernr, bkpar00, dokumenttyp)
|
|
|
ShowColdDocHost = False
|
|
|
f.Dispose()
|
|
|
Else
|
|
|
ShowColdDocHost = True
|
|
|
Journal_Dokumentzugriff(dokumentid, "HOST-Anzeige", 1, partnernr, bkpar00, dokumenttyp)
|
|
|
f.Dispose()
|
|
|
End If
|
|
|
Catch ex As Exception
|
|
|
End Try
|
|
|
End Function
|
|
|
|
|
|
Public Sub show_office(ByVal dokumentid As String, ByVal formx As Form)
|
|
|
Globals.EDOKAMAIN_Statusbar.Text = "Dokumentanzeige gestartet"
|
|
|
Dim doc As New edokadb.clsDokument()
|
|
|
Dim Dokument As String
|
|
|
Dim FileReader As New DocMgmt()
|
|
|
doc.cpMainConnectionProvider = conn
|
|
|
doc.sDokumentid = New SqlString(CType(dokumentid, String))
|
|
|
doc.SelectOne()
|
|
|
Try
|
|
|
Dokument = DivFnkt.Get_Filename("View_" + Format(Now, "yyyyMMddHHmmss") + "_" + doc.sDokumentname.Value, "")
|
|
|
' Dokument = DivFnkt.Get_Filename(doc.sDokumentname.Value, "")
|
|
|
If FileReader.Get_From_DB(doc.sDokumentid.Value, Dokument) = False Then
|
|
|
If isbck(dokumentid) Then
|
|
|
MyMsg.show_standardmessage(39, MsgBoxStyle.Information)
|
|
|
Else
|
|
|
If BDR_Dokument(dokumentid) Then
|
|
|
MyMsg.show_standardmessage(240, MsgBoxStyle.Information)
|
|
|
End If
|
|
|
End If
|
|
|
doc.Dispose()
|
|
|
FileReader = Nothing
|
|
|
Exit Sub
|
|
|
End If
|
|
|
doc.Dispose()
|
|
|
FileReader = Nothing
|
|
|
Dim f As New frmWordViewer()
|
|
|
f.PrintFilename = doc.sDokumentname.Value
|
|
|
f.PrintDokumentid = doc.sDokumentid.Value
|
|
|
'hutter
|
|
|
'f.dokument = Dokument
|
|
|
f.addressBar.Text = Dokument
|
|
|
'f.MdiParent = formx
|
|
|
Journal_Dokumentzugriff(dokumentid, "Office-Anzeige", 0, 0, "", "")
|
|
|
f.Show()
|
|
|
Catch ex As Exception
|
|
|
MsgBox(ex.Message)
|
|
|
MyMsg.show_standardmessage(99, MsgBoxStyle.Information)
|
|
|
End Try
|
|
|
End Sub
|
|
|
|
|
|
Public Sub show_officevorlage(ByVal Dokumenttypnr As String, ByVal formx As Form, ByVal printable As Boolean)
|
|
|
Dim dokumenttyp As New edokadb.clsDokumenttyp()
|
|
|
Dim Office_Vorlage As New edokadb.clsOffice_vorlage()
|
|
|
Dim dokumentname As String = "TMP_" + Format(Now, "yyyyMMddHHmmss")
|
|
|
Dim s As String
|
|
|
dokumenttyp.cpMainConnectionProvider = conn
|
|
|
dokumenttyp.iDokumenttypnr = New SqlInt32(CType(Dokumenttypnr, Int32))
|
|
|
dokumenttyp.SelectOne()
|
|
|
Office_Vorlage.cpMainConnectionProvider = conn
|
|
|
Office_Vorlage.iOffice_vorlagenr = dokumenttyp.iOffice_vorlagenr
|
|
|
Office_Vorlage.SelectOne()
|
|
|
|
|
|
If Office_Vorlage.iAnwendungnr.Value = 2 Then
|
|
|
dokumentname = dokumentname + ".xls"
|
|
|
Else
|
|
|
dokumentname = dokumentname + ".doc"
|
|
|
End If
|
|
|
|
|
|
dokumentname = Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente") + dokumentname
|
|
|
|
|
|
Dim x As New FrmDomainOfficeVorlageDatei()
|
|
|
s = x.Get_From_DB(Office_Vorlage.iOffice_vorlagenr.Value, Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente"))
|
|
|
x.Dispose()
|
|
|
FileSystem.Rename(s, dokumentname)
|
|
|
|
|
|
Dim f As New frmWordViewer(printable)
|
|
|
f.PrintFilename = ""
|
|
|
f.PrintDokumentid = ""
|
|
|
f.addressBar.Text = dokumentname
|
|
|
f.Show()
|
|
|
dokumenttyp.Dispose()
|
|
|
Office_Vorlage.Dispose()
|
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
#Region " Drucken"
|
|
|
|
|
|
Public Function printcolddocHost(ByVal dokumentid As String, ByVal formx As Form, ByVal cold_dokumentid As String, ByVal partnernr As String, ByVal bkpar00 As String, ByVal dokumenttyp As String, Optional ByVal ShowMsg As Boolean = True) As Boolean
|
|
|
Try
|
|
|
Dim f As New frmcoldview()
|
|
|
f.Erstellungsdatum = Me.Erstellungsdatum
|
|
|
f.belegart = Me.Belegart
|
|
|
f.UVMZVDokumenttyp = Me.UVMZVDokumenttyp
|
|
|
f.Auftragnr = Me.Auftragnr
|
|
|
f.Colddokumentid = cold_dokumentid
|
|
|
f.DokumentId = dokumentid
|
|
|
'Rel 3.7 / BUD / Problem mit Mehrfach Druck
|
|
|
'f.MdiParent = formx.MdiParent
|
|
|
f.PrintIt = True
|
|
|
f.Width = 1
|
|
|
f.Height = 1
|
|
|
f.Show()
|
|
|
If f.DocNotFound = True Then
|
|
|
Journal_Dokumentzugriff(dokumentid, "HOST-Print-Fehler", 1, partnernr, bkpar00, dokumenttyp)
|
|
|
printcolddocHost = False
|
|
|
f.Dispose()
|
|
|
Else
|
|
|
f.PRINTdOC()
|
|
|
Journal_Dokumentzugriff(dokumentid, "COLD-Print", 0, 0, "", "")
|
|
|
If ShowMsg Then MyMsg.show_standardmessage(91, MsgBoxStyle.Information)
|
|
|
f.Close()
|
|
|
f.Dispose()
|
|
|
printcolddocHost = True
|
|
|
End If
|
|
|
Catch
|
|
|
MyMsg.show_standardmessage(92, MsgBoxStyle.Critical)
|
|
|
End Try
|
|
|
End Function
|
|
|
|
|
|
Public Function printcolddoc(ByVal dokumentid As String, ByVal formx As Form, ByVal cold_dokumentid As String, Optional ByVal showmsg As Boolean = True) As Boolean
|
|
|
Try
|
|
|
Dim f As New frmcoldview()
|
|
|
f.Erstellungsdatum = Me.Erstellungsdatum
|
|
|
cold_dokumentid = get_colddokumentid(dokumentid, 0)
|
|
|
f.Colddokumentid = cold_dokumentid
|
|
|
f.DokumentId = dokumentid
|
|
|
|
|
|
'Rel 3.7 / BUD / Problem mit Mehrfach Druck
|
|
|
'f.MdiParent = formx.MdiParent
|
|
|
'Dim docnotfound As Boolean
|
|
|
'f.DocNotFound = False
|
|
|
|
|
|
f.Height = 1
|
|
|
f.Width = 1
|
|
|
f.PrintIt = True
|
|
|
f.Show()
|
|
|
If f.DocNotFound = True Then
|
|
|
Journal_Dokumentzugriff(dokumentid, "COLD-Print-Fehler", 0, 0, "", "")
|
|
|
MyMsg.show_standardmessage(92, MsgBoxStyle.Critical)
|
|
|
Else
|
|
|
f.PRINTdOC()
|
|
|
Journal_Dokumentzugriff(dokumentid, "COLD-Print", 0, 0, "", "")
|
|
|
If showmsg Then MyMsg.show_standardmessage(91, MsgBoxStyle.Information)
|
|
|
f.Close()
|
|
|
f.Dispose()
|
|
|
End If
|
|
|
Catch
|
|
|
MyMsg.show_standardmessage(92, MsgBoxStyle.Critical)
|
|
|
End Try
|
|
|
End Function
|
|
|
|
|
|
Public Sub print_office(ByVal dokumentid As String, ByVal formx As Form, Optional ByVal ShowPrintMessage As Boolean = True)
|
|
|
Try
|
|
|
Dim doc As New edokadb.clsDokument()
|
|
|
Dim Dokument As String
|
|
|
Dim FileReader As New DocMgmt()
|
|
|
doc.cpMainConnectionProvider = conn
|
|
|
doc.sDokumentid = New SqlString(CType(dokumentid, String))
|
|
|
doc.SelectOne()
|
|
|
Dokument = DivFnkt.Get_Filename(doc.sDokumentname.Value, "")
|
|
|
If FileReader.Get_From_DB(doc.sDokumentid.Value, Dokument) = False Then
|
|
|
If BDR_Dokument(dokumentid) Then
|
|
|
MyMsg.show_standardmessage(240, MsgBoxStyle.Information)
|
|
|
Else
|
|
|
MyMsg.show_standardmessage(39, MsgBoxStyle.Information)
|
|
|
End If
|
|
|
doc.Dispose()
|
|
|
FileReader = Nothing
|
|
|
Exit Sub
|
|
|
End If
|
|
|
doc.Dispose()
|
|
|
FileReader = Nothing
|
|
|
Dim f As New frmWordViewer()
|
|
|
f.PrintDokumentid = doc.sDokumentid.Value
|
|
|
f.PrintFilename = doc.sDokumentname.Value
|
|
|
f.addressBar.Text = Dokument
|
|
|
Try
|
|
|
f.MdiParent = formx.MdiParent
|
|
|
Catch
|
|
|
End Try
|
|
|
f.Width = 1
|
|
|
f.Height = 1
|
|
|
f.Show_Print_Message = ShowPrintMessage
|
|
|
Journal_Dokumentzugriff(dokumentid, "Office-Print", 0, 0, "", "")
|
|
|
'Anpassungen f<>r 'Nicht-Word-Dokumente'
|
|
|
If UCase(Microsoft.VisualBasic.Right(f.PrintFilename, 4)) <> ".DOC" Then
|
|
|
f.Show()
|
|
|
Application.DoEvents()
|
|
|
End If
|
|
|
f.Print_Doc()
|
|
|
'f.PrintDoc()
|
|
|
f.Close()
|
|
|
f = Nothing
|
|
|
'f.Dispose()
|
|
|
'MyMsg.show_standardmessage(91, MsgBoxStyle.Information)
|
|
|
Catch
|
|
|
'MyMsg.show_standardmessage(92, MsgBoxStyle.Critical)
|
|
|
End Try
|
|
|
End Sub
|
|
|
|
|
|
'************************************************
|
|
|
'UVM Migration / Erste Variante
|
|
|
'Start
|
|
|
'************************************************
|
|
|
'Public Function gen_PrintColdDocUVM(ByVal sPartnerNR As String, ByVal sGeschaeftsfall As String, ByVal sErstellungsdatum As String, Optional ByVal ShowMSG01 As Boolean = True)
|
|
|
' 'Rel 3.7 / BUD / Problem
|
|
|
' 'Daten auslesen und UVM Dokument im Cold auf die Alte Art aufrufen.
|
|
|
' Dim sSpezPartnerNR As String
|
|
|
' Dim sSpezAuftragNr As String
|
|
|
' Dim sSpezPaginatorNr As String
|
|
|
' Dim sSpezUVMBez As String
|
|
|
' sSpezPartnerNR = "00" & Trim(sPartnerNR)
|
|
|
' sSpezAuftragNr = ConvertUVMData(sGeschaeftsfall, 2)
|
|
|
' sSpezPaginatorNr = ConvertUVMData(sGeschaeftsfall, 1)
|
|
|
' sSpezUVMBez = ConvertUVMData(sGeschaeftsfall, 3)
|
|
|
' DivFnkt.Erstellungsdatum = Microsoft.VisualBasic.Left(sErstellungsdatum, 10)
|
|
|
' DivFnkt.Belegart = "UVM"
|
|
|
' DivFnkt.UVMZVDokumenttyp = sSpezUVMBez
|
|
|
' DivFnkt.Auftragnr = sSpezAuftragNr
|
|
|
' DivFnkt.printcolddocHost(sSpezPaginatorNr, Nothing, sSpezPaginatorNr, sSpezPartnerNR, sSpezPartnerNR, sSpezUVMBez, ShowMSG01)
|
|
|
'End Function
|
|
|
'************************************************
|
|
|
'ENDE
|
|
|
'************************************************
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
Public Function isbck(ByVal dokumentid As String) As Boolean
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
scmCmdToExecute.CommandText = "sp_check_bck"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
Try
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@isbck", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bcknr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
|
sdaAdapter.Fill(dtToReturn)
|
|
|
If scmCmdToExecute.Parameters("@isbck").Value = 1 Then
|
|
|
isbck = True
|
|
|
Else
|
|
|
isbck = False
|
|
|
End If
|
|
|
|
|
|
Catch ex As Exception
|
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
|
Throw New Exception("CheckBCK:" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
dtToReturn.Dispose()
|
|
|
End Try
|
|
|
End Function
|
|
|
|
|
|
Public Function get_colddokumentid(ByVal dokumentid As String, ByVal fnkt As Integer) As String
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
scmCmdToExecute.CommandText = "dbo.sp_get_colddokumentid"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
Try
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, fnkt))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@colddokumentid", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@coldpartnernr", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
|
|
|
|
sdaAdapter.Fill(dtToReturn)
|
|
|
Me.Nova_Partnernr = scmCmdToExecute.Parameters("@coldpartnernr").Value
|
|
|
get_colddokumentid = scmCmdToExecute.Parameters("@colddokumentid").Value
|
|
|
Catch ex As Exception
|
|
|
MsgBox("Status Dokumentbearbeitung::" & scmCmdToExecute.CommandText + "::" + ex.Message)
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
dtToReturn.Dispose()
|
|
|
End Try
|
|
|
End Function
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
#Region " Generate Dokumentid"
|
|
|
Public Function Generate_Key() As String
|
|
|
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
|
|
Dim dokart As New edokadb.clsDokumentart()
|
|
|
Dim key As Long
|
|
|
Dim skey As String
|
|
|
Dim s As String
|
|
|
dbkey.cpMainConnectionProvider = conn
|
|
|
conn.OpenConnection()
|
|
|
key = dbkey.get_dbkey("dokument")
|
|
|
conn.CloseConnection(False)
|
|
|
skey = "OFFEDK000"
|
|
|
|
|
|
s = Str(Year(Now))
|
|
|
While Microsoft.VisualBasic.Left(s, 1) = " "
|
|
|
s = Microsoft.VisualBasic.Right(s, Len(s) - 1)
|
|
|
End While
|
|
|
skey = skey + s
|
|
|
|
|
|
s = Str(key)
|
|
|
While Microsoft.VisualBasic.Left(s, 1) = " "
|
|
|
s = Microsoft.VisualBasic.Right(s, Len(s) - 1)
|
|
|
End While
|
|
|
|
|
|
While Len(s) < 8
|
|
|
s = "0" + s
|
|
|
End While
|
|
|
skey = skey + s
|
|
|
|
|
|
s = Pruefziffer(Microsoft.VisualBasic.Right(skey, 15))
|
|
|
While Microsoft.VisualBasic.Left(s, 1) = " "
|
|
|
s = Microsoft.VisualBasic.Right(s, Len(s) - 1)
|
|
|
End While
|
|
|
skey = skey + s
|
|
|
Generate_Key = skey
|
|
|
End Function
|
|
|
|
|
|
Public Function Pruefziffer(ByVal zahl As String) As String
|
|
|
Dim ptab(9, 9) As Integer
|
|
|
Dim pz(9) As Integer
|
|
|
Dim s1, s2, s3 As String
|
|
|
|
|
|
Dim i1, i2 As Long
|
|
|
|
|
|
s1 = "0,9,4,6,8,2,7,1,3,5"
|
|
|
s2 = s1
|
|
|
For i1 = 0 To 9
|
|
|
For i2 = 0 To 9
|
|
|
ptab(i1, i2) = Mid(s2, (i2 * 2) + 1, 1)
|
|
|
Next
|
|
|
s3 = Microsoft.VisualBasic.Left(s1, 1)
|
|
|
s1 = Microsoft.VisualBasic.Right(s1, Len(s1) - 2)
|
|
|
s1 = s1 + "," + s3
|
|
|
s2 = s1
|
|
|
Next
|
|
|
pz(0) = 0
|
|
|
pz(1) = 9
|
|
|
pz(2) = 8
|
|
|
pz(3) = 7
|
|
|
pz(4) = 6
|
|
|
pz(5) = 5
|
|
|
pz(6) = 4
|
|
|
pz(7) = 3
|
|
|
pz(8) = 2
|
|
|
pz(9) = 1
|
|
|
|
|
|
Dim i, x, y, z, e As Integer
|
|
|
Dim xx As String
|
|
|
y = 0
|
|
|
For i = 1 To Len(zahl)
|
|
|
x = Val(Mid(zahl, i, 1))
|
|
|
y = ptab(x, y)
|
|
|
Next
|
|
|
Pruefziffer = Str(pz(y))
|
|
|
End Function
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
#Region " MainBerechtigungen"
|
|
|
Public Function BarcodeEtiketten_Berechtigt() As Boolean
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
Try
|
|
|
scmCmdToExecute.CommandText = "dbo.sp_berechtigung_labels"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, MitarbeiterNr))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@berechtigt", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
|
sdaAdapter.Fill(dtToReturn)
|
|
|
If scmCmdToExecute.Parameters("@berechtigt").Value = 1 Then
|
|
|
BarcodeEtiketten_Berechtigt = True
|
|
|
Else
|
|
|
BarcodeEtiketten_Berechtigt = False
|
|
|
End If
|
|
|
Catch ex As Exception
|
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
|
Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
End Try
|
|
|
|
|
|
End Function
|
|
|
|
|
|
Public Function EDOKA_Partner_Berechtigt() As Boolean
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
Try
|
|
|
scmCmdToExecute.CommandText = "dbo.sp_berechtigung_edokapartner"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, MitarbeiterNr))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@berechtigt", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
|
sdaAdapter.Fill(dtToReturn)
|
|
|
If scmCmdToExecute.Parameters("@berechtigt").Value = 1 Then
|
|
|
EDOKA_Partner_Berechtigt = True
|
|
|
Else
|
|
|
EDOKA_Partner_Berechtigt = False
|
|
|
End If
|
|
|
Catch ex As Exception
|
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
|
Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
End Try
|
|
|
|
|
|
End Function
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
#Region " Timer"
|
|
|
Public Function Check_MessageTimer() As Integer
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
scmCmdToExecute.CommandText = "dbo.SP_message_getmessage"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
Try
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@typ", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
|
|
|
sdaAdapter.Fill(dtToReturn)
|
|
|
Check_MessageTimer = False
|
|
|
Check_MessageTimer = dtToReturn.Rows.Count
|
|
|
Catch ex As Exception
|
|
|
Throw New Exception("Dokumenterstellung::SP_message_getmessage::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
End Try
|
|
|
End Function
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
#Region " Diverses"
|
|
|
|
|
|
Public Sub check_doc2()
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
Dim i As Integer
|
|
|
Dim s As String
|
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
scmCmdToExecute.CommandText = "dbo.sp_check_doc"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
Try
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
|
sdaAdapter.Fill(dtToReturn)
|
|
|
For i = 0 To dtToReturn.Rows.Count - 1
|
|
|
Dim f As New frmHinweismeldung1()
|
|
|
s = "Das nachfolgende Dokumente wurde von Ihnen erstellt, konnte aber aufgrund eines"
|
|
|
s = s + vbCrLf + "Systemfehlers nicht korrekt auf der Datenbank gespeichert werden. Der Dokumenteintrag im"
|
|
|
s = s + vbCrLf + "EDOKA ist fehlerhaft, da sich das Dokument im EDOKA nicht anzeigen l<>sst."
|
|
|
s = s + vbCrLf + vbCrLf
|
|
|
s = s + "Partner: " + Chr(9) + Str(dtToReturn.Rows(i).Item("nrpar00")) + " - " + dtToReturn.Rows(i).Item("bkpar00")
|
|
|
s = s + vbCrLf
|
|
|
s = s + "DokumentID: " + Chr(9) + dtToReturn.Rows(i).Item("dokumentid")
|
|
|
s = s + vbCrLf
|
|
|
s = s + "Dokumenttyp: " + Chr(9) + dtToReturn.Rows(i).Item("bezeichnung")
|
|
|
s = s + vbCrLf
|
|
|
s = s + "Erstellt am: " + Chr(9) + dtToReturn.Rows(i).Item("erstelltam")
|
|
|
s = s + vbCrLf + vbCrLf
|
|
|
s = s + "Bitte gehen Sie wie folgt vor:"
|
|
|
s = s + vbCrLf + "- Vernichten des allf<6C>llig ausgedrucken Dokumentes"
|
|
|
s = s + vbCrLf + "- L<>schen des fehlerhaften Dokumenteintrages im EDOKA"
|
|
|
s = s + vbCrLf + "- Neu erstellen des Dokumentes"
|
|
|
f.Label1.Text = s
|
|
|
f.MsgBoxStyle = 1
|
|
|
f.ShowDialog()
|
|
|
f.Dispose()
|
|
|
Globals.PerfMon.force_insert_entry("Dokument nicht korrekt auf der Datenbank - " + dtToReturn.Rows(i).Item("dokumentid"))
|
|
|
Next
|
|
|
Catch ex As Exception
|
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
|
'Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
End Try
|
|
|
End Sub
|
|
|
|
|
|
Public Sub TraceLog(ByVal stext As String)
|
|
|
'Dim sw As New StreamWriter("c:\tracelog.txt", True)
|
|
|
'sw.WriteLine(stext)
|
|
|
'sw.Flush()
|
|
|
'sw.Close()
|
|
|
End Sub
|
|
|
|
|
|
Public Function leererstellung(ByVal fnkt As Integer, ByVal dokumenttypnr As Integer) As Boolean
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
Dim i As Integer
|
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
scmCmdToExecute.CommandText = "dbo.sp_dokument_leererstellung"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
Try
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, fnkt))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumenttypnr))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@leererstellung", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
|
sdaAdapter.Fill(dtToReturn)
|
|
|
i = scmCmdToExecute.Parameters("@leererstellung").Value
|
|
|
If i > 0 Then leererstellung = True Else leererstellung = False
|
|
|
Catch ex As Exception
|
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
End Try
|
|
|
End Function
|
|
|
|
|
|
Public Function EDOKA_Partner_Dokument(ByVal fnkt As Integer, ByVal dokumenttypnr As Integer) As Boolean
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
Dim i As Integer
|
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
scmCmdToExecute.CommandText = "dbo.sp_dokument_edokapartnererstellung"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
Try
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, fnkt))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumenttypnr))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@leererstellung", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
|
sdaAdapter.Fill(dtToReturn)
|
|
|
i = scmCmdToExecute.Parameters("@leererstellung").Value
|
|
|
If i > 0 Then EDOKA_Partner_Dokument = True Else EDOKA_Partner_Dokument = False
|
|
|
Catch ex As Exception
|
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
End Try
|
|
|
End Function
|
|
|
|
|
|
Public Function Journal_Dokumentzugriff(ByVal dokumentid As String, ByVal zugriffsart As String, ByVal host As Integer, ByVal partnernr As Integer, ByVal partner_kurzbezeichnung As String, ByVal dokumenttyp As String)
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
Dim i As Integer
|
|
|
Dim connopen As Boolean = False
|
|
|
scmCmdToExecute.CommandText = "dbo.sp_journal_dokzugriffe"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
Try
|
|
|
If host = 0 Then
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@zugriffsart", SqlDbType.VarChar, 25, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, zugriffsart))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@host", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@partnernr", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@partnerkbez", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 35, 0, "", DataRowVersion.Proposed, ""))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttyp", SqlDbType.VarChar, 128, ParameterDirection.Input, True, 35, 0, "", DataRowVersion.Proposed, ""))
|
|
|
Else
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@zugriffsart", SqlDbType.VarChar, 25, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, zugriffsart))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@host", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@partnernr", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, partnernr))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@partnerkbez", SqlDbType.VarChar, 35, ParameterDirection.Input, True, 35, 0, "", DataRowVersion.Proposed, partner_kurzbezeichnung))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttyp", SqlDbType.VarChar, 128, ParameterDirection.Input, True, 35, 0, "", DataRowVersion.Proposed, dokumenttyp))
|
|
|
End If
|
|
|
Try
|
|
|
scmCmdToExecute.Connection.Open()
|
|
|
connopen = True
|
|
|
Catch
|
|
|
End Try
|
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
|
If connopen Then
|
|
|
Try
|
|
|
scmCmdToExecute.Connection.Close()
|
|
|
Catch
|
|
|
End Try
|
|
|
End If
|
|
|
Catch ex As Exception
|
|
|
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
End Try
|
|
|
End Function
|
|
|
|
|
|
Public Function BDR_Dokument(ByVal dokumentid As String) As Boolean
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
Dim i As Integer
|
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
scmCmdToExecute.CommandText = "dbo.sp_check_bdr_dokument"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
Try
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bdr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
|
sdaAdapter.Fill(dtToReturn)
|
|
|
i = scmCmdToExecute.Parameters.Item("@bdr").Value
|
|
|
If i = 0 Then
|
|
|
Return False
|
|
|
Else
|
|
|
Return True
|
|
|
End If
|
|
|
Catch ex As Exception
|
|
|
' MsgBox(ex.Message)
|
|
|
Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
End Try
|
|
|
End Function
|
|
|
|
|
|
Public Function Gesperrte_Dokumente_Loeschen()
|
|
|
Try
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
Dim i As Integer
|
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
scmCmdToExecute.CommandText = "dbo.sp_delete_locked_Docs"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
Try
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
|
sdaAdapter.Fill(dtToReturn)
|
|
|
Catch ex As Exception
|
|
|
' MsgBox(ex.Message)
|
|
|
'Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
dtToReturn.Dispose()
|
|
|
End Try
|
|
|
Catch
|
|
|
End Try
|
|
|
End Function
|
|
|
|
|
|
Public Function check_partnerzusammenlegung() As Boolean
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
Dim i As Integer
|
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
scmCmdToExecute.CommandText = "dbo.sp_check_partnerzusammenlegung"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
Try
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@partnerzusammenlegung", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
|
sdaAdapter.Fill(dtToReturn)
|
|
|
i = scmCmdToExecute.Parameters.Item("@partnerzusammenlegung").Value
|
|
|
If i = 0 Then
|
|
|
Return False
|
|
|
Else
|
|
|
Return True
|
|
|
End If
|
|
|
Catch ex As Exception
|
|
|
' MsgBox(ex.Message)
|
|
|
Throw New Exception("sp_check_dokumentreaktivierung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
End Try
|
|
|
End Function
|
|
|
|
|
|
Public Sub GrdAlign(ByRef grd As C1.Win.C1TrueDBGrid.C1TrueDBGrid, ByVal Datafield As String, ByVal Align As C1.Win.C1TrueDBGrid.AlignHorzEnum)
|
|
|
|
|
|
Dim iCnt As Integer
|
|
|
'center = Zentriert
|
|
|
'far = rechts
|
|
|
'near = links
|
|
|
Try
|
|
|
grd.Splits(0).DisplayColumns(Datafield).Style.HorizontalAlignment = Align
|
|
|
grd.Splits(0).DisplayColumns(Datafield).HeadingStyle.HorizontalAlignment = Align
|
|
|
Catch
|
|
|
End Try
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
Public Sub Bezeichnung_Feldwert(ByRef dt As DataTable, ByVal SetDefaultValue As Boolean)
|
|
|
Try
|
|
|
Dim i As Integer
|
|
|
Dim i1 As Integer
|
|
|
Dim s1 As String
|
|
|
Dim s2 As String
|
|
|
For i = 0 To dt.Rows.Count - 1
|
|
|
If dt.Rows(i).Item("Bezeichnung") Is System.DBNull.Value Then
|
|
|
dt.Rows(i).Item("Bezeichnung") = ""
|
|
|
End If
|
|
|
i1 = InStr(dt.Rows(i).Item("Bezeichnung"), "&DW:")
|
|
|
If i1 > 0 Then
|
|
|
s1 = dt.Rows(i).Item("bezeichnung")
|
|
|
s2 = s1
|
|
|
s1 = Microsoft.VisualBasic.Left(s1, i1 - 1)
|
|
|
Try
|
|
|
s2 = Microsoft.VisualBasic.Right(s2, Len(s2) - (i1 + 3))
|
|
|
Catch
|
|
|
s2 = ""
|
|
|
End Try
|
|
|
dt.Rows(i).Item("Bezeichnung") = s1
|
|
|
If SetDefaultValue = True Then
|
|
|
dt.Rows(i).Item("Feldwert") = Feldwert_Aufbereitung(s2)
|
|
|
End If
|
|
|
End If
|
|
|
Next
|
|
|
Catch
|
|
|
End Try
|
|
|
End Sub
|
|
|
|
|
|
Public Function Feldwert_Aufbereitung(ByVal Feldwert As String) As String
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
scmCmdToExecute.CommandText = "dbo.sp_Dokumentfeldwert_Aufbereitung"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
Try
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@FeldwertIn", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Feldwert))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@FeldwertOut", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
|
scmCmdToExecute.Connection.Open()
|
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
|
scmCmdToExecute.Connection.Close()
|
|
|
Return scmCmdToExecute.Parameters("@FeldwertOut").Value
|
|
|
|
|
|
Catch ex As Exception
|
|
|
Throw New Exception("sp_check_dokumentreaktivierung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
End Try
|
|
|
End Function
|
|
|
|
|
|
Public Function Check_Fieldvalue(ByVal Feldwert As String, ByVal Validierungsregel As String) As Boolean
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
scmCmdToExecute.CommandText = "dbo.sp_Dokumentfeldwert_Validate"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
Try
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@FeldwertIn", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Feldwert))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@Validierungsregel", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Validierungsregel))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@errormessage", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
|
scmCmdToExecute.Connection.Open()
|
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
|
scmCmdToExecute.Connection.Close()
|
|
|
If scmCmdToExecute.Parameters("@errormessage").Value <> "" Then
|
|
|
MsgBox(scmCmdToExecute.Parameters("@errormessage").Value, MsgBoxStyle.Critical)
|
|
|
Return False
|
|
|
End If
|
|
|
Return True
|
|
|
Catch ex As Exception
|
|
|
Throw New Exception("sp_check_dokumentreaktivierung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
End Try
|
|
|
End Function
|
|
|
|
|
|
Public Function Check_Sysadmin_Stellvertreter(ByVal Owner As Integer) As Boolean
|
|
|
If Owner = Globals.MitarbeiterNr Then Return True
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
scmCmdToExecute.CommandText = "dbo.sp_check_sysadmin_stv"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
Try
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@vertretener", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Owner))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@berechtigt", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
|
scmCmdToExecute.Connection.Open()
|
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
|
scmCmdToExecute.Connection.Close()
|
|
|
If scmCmdToExecute.Parameters("@berechtigt").Value = 1 Then
|
|
|
Return True
|
|
|
Else
|
|
|
If Me.MA_Is_Sysadmin(Globals.MitarbeiterNr) Then
|
|
|
Return True
|
|
|
Else
|
|
|
Return False
|
|
|
End If
|
|
|
End If
|
|
|
Catch ex As Exception
|
|
|
Throw New Exception("sp_check_sysadminstv::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
End Try
|
|
|
|
|
|
End Function
|
|
|
|
|
|
|
|
|
'EDEX Banklagernd
|
|
|
|
|
|
Public Function get_parnter_namevorname(ByVal nrpar00 As Integer) As String
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
scmCmdToExecute.CommandText = "dbo.sp_edex_get_partnervornamename"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
Try
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@value", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
|
scmCmdToExecute.Connection.Open()
|
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
|
scmCmdToExecute.Connection.Close()
|
|
|
Return scmCmdToExecute.Parameters("@value").Value
|
|
|
Catch ex As Exception
|
|
|
Return ""
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
End Try
|
|
|
End Function
|
|
|
Public Function get_parnter_anrede(ByVal nrpar00 As Integer) As String
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
scmCmdToExecute.CommandText = "dbo.sp_edex_get_partnervornamename"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
Try
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@value", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@beban", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
|
scmCmdToExecute.Connection.Open()
|
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
|
scmCmdToExecute.Connection.Close()
|
|
|
Return scmCmdToExecute.Parameters("@beban").Value
|
|
|
Catch ex As Exception
|
|
|
Return ""
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
End Try
|
|
|
End Function
|
|
|
#End Region
|
|
|
#Region "Avaloq Spooler"
|
|
|
Public Function checkSpoolerDir() As Boolean
|
|
|
Dim dir As New IO.DirectoryInfo(EDOKAApp.Globals.SpoolerDir)
|
|
|
Dim boolRet As Boolean = False
|
|
|
If dir.Exists Then
|
|
|
Dim iCounter As Integer
|
|
|
|
|
|
iCounter = 0
|
|
|
|
|
|
Dim files As IO.FileInfo() = dir.GetFiles()
|
|
|
Dim file As IO.FileInfo
|
|
|
Dim arsch As Action
|
|
|
arsch = New Action
|
|
|
|
|
|
For Each file In files
|
|
|
If file.Extension = "." & Consts.ACTION_FILE_EXTENSION Then
|
|
|
boolRet = True
|
|
|
Exit For
|
|
|
End If
|
|
|
Next
|
|
|
Else
|
|
|
dir.Create()
|
|
|
Dim iCounter As Integer
|
|
|
|
|
|
|
|
|
iCounter = 0
|
|
|
|
|
|
Dim files As IO.FileInfo() = dir.GetFiles()
|
|
|
Dim file As IO.FileInfo
|
|
|
Dim arsch As Action
|
|
|
arsch = New Action
|
|
|
|
|
|
For Each file In files
|
|
|
If file.Extension = "." & Consts.ACTION_FILE_EXTENSION Then
|
|
|
boolRet = True
|
|
|
Exit For
|
|
|
End If
|
|
|
Next
|
|
|
End If
|
|
|
Return boolRet
|
|
|
End Function
|
|
|
Function checkPartnerNr(ByVal partnernr As String) As Boolean
|
|
|
Dim ret As Boolean = True
|
|
|
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
scmCmdToExecute.CommandText = "dbo.sp_checkPartnerNr"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
Try
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@partnerNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, partnernr))
|
|
|
sdaAdapter.Fill(dtToReturn)
|
|
|
|
|
|
If dtToReturn.Rows.Count > 0 Then
|
|
|
ret = True
|
|
|
Else
|
|
|
ret = False
|
|
|
End If
|
|
|
|
|
|
Catch ex As Exception
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
dtToReturn.Dispose()
|
|
|
End Try
|
|
|
Return ret
|
|
|
End Function
|
|
|
|
|
|
Function getDocArtByDocTypID(ByVal docTyp As Integer) As String
|
|
|
Dim ret As String = ""
|
|
|
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
scmCmdToExecute.CommandText = "dbo.sp_getDocArt"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
Try
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@DokTyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, docTyp))
|
|
|
sdaAdapter.Fill(dtToReturn)
|
|
|
|
|
|
If dtToReturn.Rows.Count > 0 Then
|
|
|
ret = dtToReturn.Rows(0).Item("dokumentart_kundendossier")
|
|
|
Else
|
|
|
ret = ""
|
|
|
End If
|
|
|
|
|
|
Catch ex As Exception
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
dtToReturn.Dispose()
|
|
|
End Try
|
|
|
Return ret
|
|
|
End Function
|
|
|
|
|
|
Function checkDokID(ByVal dokid As String, ByVal dp As Integer) As Boolean
|
|
|
Dim ret As Boolean = True
|
|
|
|
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
|
scmCmdToExecute.CommandText = "dbo.sp_checkDokID"
|
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
|
Try
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@DokID", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokid))
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@DP", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dp))
|
|
|
sdaAdapter.Fill(dtToReturn)
|
|
|
|
|
|
If dtToReturn.Rows.Count > 0 Then
|
|
|
ret = True
|
|
|
Else
|
|
|
ret = False
|
|
|
End If
|
|
|
|
|
|
Catch ex As Exception
|
|
|
Finally
|
|
|
scmCmdToExecute.Dispose()
|
|
|
sdaAdapter.Dispose()
|
|
|
dtToReturn.Dispose()
|
|
|
End Try
|
|
|
Return ret
|
|
|
End Function
|
|
|
#End Region
|
|
|
End Class
|
|
|
|
|
|
End Namespace
|
|
|
|
