shu/EDOKA_DMS
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update Div. Anpassungen Erneuerung DMS

Browse Source
This commit is contained in:
Stefan Hutter
2022-12-26 10:23:09 +01:00
parent 406d053e79
commit 7b68dffd3f
31 changed files with 750 additions and 670 deletions
Download Patch File Download Diff File Expand all files Collapse all files

60
EDOKA/Dokumentmanagement/frmVorlagenauswahl.vb
View File

@@ -597,9 +597,9 @@ Public Class frmVorlagenauswahl
'
Me.BtnHelp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.BtnHelp.Image = CType(resources.GetObject("BtnHelp.Image"), System.Drawing.Image)
Me.BtnHelp.Location = New System.Drawing.Point(528, 2)
Me.BtnHelp.Location = New System.Drawing.Point(529, 2)
Me.BtnHelp.Name = "BtnHelp"
Me.BtnHelp.Size = New System.Drawing.Size(24, 23)
Me.BtnHelp.Size = New System.Drawing.Size(23, 23)
Me.BtnHelp.TabIndex = 36
'
'picSmiley
@@ -891,12 +891,12 @@ Public Class frmVorlagenauswahl
On_Load = False
' Dim ttip As New ToolTip()
Dim s As String = "- CTRL+N: Neuer Ordner erstellen" + vbCrLf + _
"- CTRL+UP: Aktueller Eintrag nach oben verschieben" + vbCrLf + _
"- CTRL+Down: Aktueller Eintrag nach untern verschieben" + vbCrLf + _
"- Enter: Ordner önnen/Schliessen bzw. Dokument/Dokumentpaket erstellen" + vbCrLf + _
"- Del: Eintrag löschen" + vbCrLf + _
"- Up: Selektion nach oben verschieben" + vbCrLf + _
Dim s As String = "- CTRL+N: Neuer Ordner erstellen" + vbCrLf +
"- CTRL+UP: Aktueller Eintrag nach oben verschieben" + vbCrLf +
"- CTRL+Down: Aktueller Eintrag nach untern verschieben" + vbCrLf +
"- Enter: Ordner önnen/Schliessen bzw. Dokument/Dokumentpaket erstellen" + vbCrLf +
"- Del: Eintrag löschen" + vbCrLf +
"- Up: Selektion nach oben verschieben" + vbCrLf +
"- Down: Selektion nach unten Vershcieben"
' ttip.SetToolTip(FavoritenStruktur, s)
@@ -1000,7 +1000,7 @@ Public Class frmVorlagenauswahl
tnnew.SelectedImageIndex = tn.SelectedImageIndex
tnnew.Tag = "tmp"
Dim fs As New edokadb.clsEDEX_Favoriten()
Dim fs As New edokaDB.clsEDEX_Favoriten()
fs.cpMainConnectionProvider = conn
fs.sBezeichnung = New SqlString(CType(sNodeText, String))
fs.bAktiv = New SqlBoolean(CType(True, Boolean))
@@ -1085,8 +1085,8 @@ Public Class frmVorlagenauswahl
End Sub
Private Sub MnuFavoritentfernen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim df As New edokadb.clsDokumentfavoriten()
Dim dbkey As New edokadb.clsMyKey_Tabelle()
Dim df As New edokaDB.clsDokumentfavoriten()
Dim dbkey As New edokaDB.clsMyKey_Tabelle()
Dim key As Long
dbkey.cpMainConnectionProvider = conn
df.iDokumenttypnr = New SqlInt32(CType(TagValue(Me.TVStruktur.SelectedNode.Tag), Int32))
@@ -1170,7 +1170,7 @@ Public Class frmVorlagenauswahl
Private Sub DelNode(ByVal tn As TreeNode)
If tn.ImageIndex = 61 + DP_Imagepos Then
Dim dp As New edokadb.clsEdex_dokumentpaket()
Dim dp As New edokaDB.clsEdex_dokumentpaket()
dp.cpMainConnectionProvider = conn
dp.iDokumentpaketnr = New SqlInt32(CType(TagValue(tn.Tag), Int32))
conn.OpenConnection()
@@ -1181,7 +1181,7 @@ Public Class frmVorlagenauswahl
conn.CloseConnection(True)
dp.Dispose()
Else
Dim df As New edokadb.clsEDEX_Favoriten()
Dim df As New edokaDB.clsEDEX_Favoriten()
df.cpMainConnectionProvider = conn
df.iNreintrag = New SqlInt32(CType(TagValue(tn.Tag), Int32))
conn.OpenConnection()
@@ -1526,7 +1526,7 @@ Public Class frmVorlagenauswahl
Private Sub Load_Struktur(ByVal Searchstring As String, ByVal favoriten As Boolean)
Try
Me.Cursor = Cursors.WaitCursor
Dim dokart As New edokadb.clsMyDokumentart()
Dim dokart As New edokaDB.clsMyDokumentart()
If favoriten Then
Me.FavoritenStruktur.BeginUpdate()
Me.FavoritenStruktur.Nodes.Clear()
@@ -1573,7 +1573,7 @@ Public Class frmVorlagenauswahl
Private Sub RenameNodeFavoritenstruktur(ByVal dokumentfavoritennr As Integer, ByVal NodeText As String)
If dokumentfavoritennr <> 0 Then
Dim df As New edokadb.clsEDEX_Favoriten()
Dim df As New edokaDB.clsEDEX_Favoriten()
df.cpMainConnectionProvider = conn
conn.OpenConnection()
df.iNreintrag = New SqlInt32(CType(dokumentfavoritennr, Int32))
@@ -1806,7 +1806,7 @@ Public Class frmVorlagenauswahl
If FavoritenStruktur.SelectedNode.ImageIndex = 61 + DP_Imagepos Then
Me.Dokumentvorlage = TagValue(FavoritenStruktur.SelectedNode.Tag)
'Rel. 4.1
Dim dp As New edokadb.clsEdex_dokumentpaket
Dim dp As New edokaDB.clsEdex_dokumentpaket
dp.cpMainConnectionProvider = Globals.conn
dp.iDokumentpaketnr = Me.Dokumentvorlage
dp.SelectOne()
@@ -1830,7 +1830,7 @@ Public Class frmVorlagenauswahl
iDokumentFavoritenNr = Get_dtnr_dpnr(TagValue(FavoritenStruktur.SelectedNode.Tag))
Me.Dokumentvorlage = iDokumentFavoritenNr
'Rel. 4.1
Dim dp As New edokadb.clsEdex_dokumentpaket
Dim dp As New edokaDB.clsEdex_dokumentpaket
dp.cpMainConnectionProvider = Globals.conn
dp.iDokumentpaketnr = Me.Dokumentvorlage
dp.SelectOne()
@@ -1853,7 +1853,7 @@ Public Class frmVorlagenauswahl
Me.Dokumentvorlage = Get_dtnr_dpnr(TagValue(FavoritenStruktur.SelectedNode.Tag))
'Rel. 4.1 - Prüfung, ob Dokument noch erstellt werden darf
Dim dt As New edokadb.clsDokumenttyp
Dim dt As New edokaDB.clsDokumenttyp
dt.cpMainConnectionProvider = Globals.conn
dt.iDokumenttypnr = New SqlInt32(CType(Me.Dokumentvorlage, Int32))
dt.SelectOne()
@@ -1890,7 +1890,7 @@ Public Class frmVorlagenauswahl
Exit Function
End If
Dim dt As New edokadb.clsDokumenttyp()
Dim dt As New edokaDB.clsDokumenttyp()
dt.cpMainConnectionProvider = conn
dt.iDokumenttypnr = New SqlInt32(CType(Me.Dokumentvorlage, Int32))
dt.SelectOne()
@@ -1921,7 +1921,7 @@ Public Class frmVorlagenauswahl
End If
End If
If showbc Then
If showbc Then
Dim f As New frmBarcodeKleber()
f.ShowDialog()
If f.DialogResult = DialogResult.Abort Then
@@ -1957,7 +1957,7 @@ Public Class frmVorlagenauswahl
Private Function RootNodesFavoritenStrukturExist(Optional ByVal RootNodetext As String = "Favoriten") As Boolean
RootNodesFavoritenStrukturExist = True
If FavoritenStruktur.Nodes.Count < 1 Then
Dim dfs As New edokadb.clsDokumentfavoriten_struktur()
Dim dfs As New edokaDB.clsDokumentfavoriten_struktur()
RootNodesFavoritenStrukturExist = False
dfs.cpMainConnectionProvider = conn
conn.OpenConnection()
@@ -2053,11 +2053,11 @@ Public Class frmVorlagenauswahl
End Sub
Public Sub Favoritenstruktur_DragOver(ByVal sender As System.Object, ByVal e As DragEventArgs) Handles FavoritenStruktur.DragOver
If e.Data.GetDataPresent("System.Windows.Forms.TreeNode", _
If e.Data.GetDataPresent("System.Windows.Forms.TreeNode",
True) = False Then Exit Sub
Dim selectedTreeview As TreeView = CType(sender, TreeView)
Dim Originalnode As TreeNode = CType(e.Data.GetData("System.Windows.Forms.TreeNode"), TreeNode)
Dim pt As Point = _
Dim pt As Point =
CType(sender, TreeView).PointToClient(New Point(e.X, e.Y))
Dim targetNode As TreeNode = selectedTreeview.GetNodeAt(pt)
If targetNode Is Nothing Then Exit Sub
@@ -2076,8 +2076,8 @@ Public Class frmVorlagenauswahl
If Not (selectedTreeview.SelectedNode Is targetNode) Then
selectedTreeview.SelectedNode = targetNode
Dim dropNode As TreeNode = _
CType(e.Data.GetData("System.Windows.Forms.TreeNode"), _
Dim dropNode As TreeNode =
CType(e.Data.GetData("System.Windows.Forms.TreeNode"),
TreeNode)
Do Until targetNode Is Nothing
If targetNode Is dropNode Then
@@ -2091,7 +2091,7 @@ Public Class frmVorlagenauswahl
End Sub
Private Sub Favoritenstruktur_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles FavoritenStruktur.DragDrop
If e.Data.GetDataPresent("System.Windows.Forms.TreeNode", _
If e.Data.GetDataPresent("System.Windows.Forms.TreeNode",
True) = False Then Exit Sub
Dim selectedTreeview As TreeView = CType(sender, TreeView)
If Me.ItemMove = False Then
@@ -2099,8 +2099,8 @@ Public Class frmVorlagenauswahl
Exit Sub
End If
Dim dropNode As TreeNode = _
CType(e.Data.GetData("System.Windows.Forms.TreeNode"), _
Dim dropNode As TreeNode =
CType(e.Data.GetData("System.Windows.Forms.TreeNode"),
TreeNode)
Dim targetNode As TreeNode = selectedTreeview.SelectedNode
dropNode.Remove()
@@ -2183,7 +2183,7 @@ Public Class frmVorlagenauswahl
tnnew.ImageIndex = Originalnode.ImageIndex + DP_Imagepos
tnnew.SelectedImageIndex = Originalnode.SelectedImageIndex + DP_Imagepos
Dim ps As New edokadb.clsEDEX_Favoriten()
Dim ps As New edokaDB.clsEDEX_Favoriten()
ps.cpMainConnectionProvider = conn
ps.sBezeichnung = New SqlString(CType(Originalnode.Text, String))
ps.bAktiv = New SqlBoolean(CType(True, Boolean))
@@ -2541,5 +2541,5 @@ Public Class frmVorlagenauswahl
End Sub
End Class