|
|
Imports System.Data.SqlClient
|
|
|
Imports System.Data.SqlTypes
|
|
|
Imports System.Drawing
|
|
|
Imports System.Drawing.Color
|
|
|
Public Class frmSysadminmenu
|
|
|
|
|
|
Const CtrlMask As Byte = 8
|
|
|
Dim todelete(50) As Integer
|
|
|
Dim itodelete As Integer
|
|
|
Dim ssort As Integer
|
|
|
|
|
|
Private Sub Toolbtn_Schliessen_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles Toolbtn_Schliessen.ButtonClick
|
|
|
Me.Close()
|
|
|
End Sub
|
|
|
|
|
|
Private Sub FrmSysadminMenu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
|
Me.SysMenu.ContextMenu = Me.ContextMenu1
|
|
|
Dim menu As New edokadb.clsMySysadminfunkion()
|
|
|
menu.LoadTreeMenu(SysMenu)
|
|
|
SysMenu.ExpandAll()
|
|
|
itodelete = 0
|
|
|
DivFnkt.Searchnode(Me.SysMenu, 11, 0)
|
|
|
If DivFnkt.found Then
|
|
|
Me.ContextMenu1.MenuItems(4).Enabled = True
|
|
|
Else
|
|
|
Me.ContextMenu1.MenuItems(4).Enabled = False
|
|
|
End If
|
|
|
End Sub
|
|
|
|
|
|
Private Sub SysMenu_DblClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SysMenu.DoubleClick
|
|
|
Try
|
|
|
|
|
|
|
|
|
Dim Eintrag As Long
|
|
|
Eintrag = Me.SysMenu.SelectedNode.Tag
|
|
|
Select Case Eintrag
|
|
|
Case 2
|
|
|
Dim frm As New frmApplication()
|
|
|
frm.Text = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 3
|
|
|
Dim frm As New frmDomainMandant()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 5
|
|
|
Dim frm As New frmDomainMeldungstexte()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 6
|
|
|
Dim frm As New frmDomainTipTexte()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 7
|
|
|
Dim frm As New frmDomainSpalten()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 11
|
|
|
Dim frm As New frmDomainSysadminfuntkion()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 12
|
|
|
Dim frm As New frmDomainStatusBezeichnung()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 27
|
|
|
Dim frm As New frmDomainFunktion()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 32
|
|
|
Dim frm As New frmStatustypStatusbezeichnung()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 33
|
|
|
Dim frm As New frmDomainStatusTyp()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 35
|
|
|
Dim frm As New FrmDomainDokumentart()
|
|
|
DivFnkt.Searchnode(Me.SysMenu, 76, 0)
|
|
|
If DivFnkt.found Then
|
|
|
frm.ContextMenu1.MenuItems(4).Enabled = True
|
|
|
frm.ContextMenu1.MenuItems(6).Enabled = True
|
|
|
Else
|
|
|
frm.ContextMenu1.MenuItems(4).Enabled = False
|
|
|
frm.ContextMenu1.MenuItems(6).Enabled = False
|
|
|
End If
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 36
|
|
|
Dim frm As New frmDomainOfficeVorlage()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 37
|
|
|
Try
|
|
|
Dim frm As New frmDomainDokumenttyp()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Catch ex As Exception
|
|
|
MsgBox(ex.Message)
|
|
|
End Try
|
|
|
Case 38
|
|
|
Dim frm As New frmDomainVorlagenfeldregel()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 40
|
|
|
Dim frm As New frmDomainIDVMakros()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 41
|
|
|
Dim frm As New frmIDVMakroOfficeVorlage()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 42
|
|
|
Dim frm As New frmDomainPhsischesArchiv()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 45
|
|
|
Dim frm As New frmDomainRolle()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 47
|
|
|
Dim frm As New frmRolle_Sysadminfunktion()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 49 'alt
|
|
|
'alt, nur noch f<>r <20>berpr<70>fung, wird gel<65>scht
|
|
|
Dim frm As New frmDomainMitarbeiter()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 118
|
|
|
Dim frm As New frmAdminMitarbeiter()
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 50
|
|
|
Dim frm As New frmDomainTeam()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 52
|
|
|
Dim frm As New frmDomainMarktbereich()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 53
|
|
|
Dim frm As New frmKostenstelle()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 54
|
|
|
Dim frm As New frmDomainNiederlassung()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 56
|
|
|
Dim frm As New frmDomainColdFolder()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 57
|
|
|
Dim frm As New frmDomainColdIndexFeld()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 58
|
|
|
Dim frm As New frmcoldindx()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 59
|
|
|
Dim frm As New frmDomainAnwendung()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 62
|
|
|
Dim frm As New frmDomainAuswertungen()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 63
|
|
|
' Koe und shu - 2004-08-01
|
|
|
Dim frm As New frmReport_reportfeldregel()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 64
|
|
|
Dim frm As New frmDomainReportfeldregel()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 65
|
|
|
Dim frm As New frmDomainAuswertungsgruppe()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
|
|
|
Case 66
|
|
|
Dim frm As New frmDomainKeyTabelle()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 68
|
|
|
Dim frm As New frmDomainBankinformation()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 69
|
|
|
' Koe und shu - 2004-08-01
|
|
|
Dim frm As New frmReportgruppe_Report()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 70
|
|
|
Dim frm As New frmDomainMailtexte()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 71
|
|
|
Dim frm As New frmMitarbeiterRolle()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 72
|
|
|
Dim frm As New frmRolleReportGruppe()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 73
|
|
|
Dim frm As New frmRolleDokumentHierarchie()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 74
|
|
|
Dim frm As New frmRolleDokumentTyp()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 75
|
|
|
Dim frm As New frmDomainBerechtigung()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 76
|
|
|
Dim frm As New frmDomainDokumentartDaten()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 78
|
|
|
Dim frm As New frmDomainProzess()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 79
|
|
|
Dim frm As New frmRolleBerechtigung()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 81
|
|
|
Dim frm As New frmDomainFunktionsgruppe()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 83
|
|
|
Dim frm As New frmFunktionsgruppeRolle()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 84
|
|
|
Dim frm As New frmMitarbeiterFunktionsgruppe()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 86
|
|
|
Dim frm As New frmDokumentInBearbeitung()
|
|
|
frm.Show()
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
Case 87
|
|
|
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
|
|
|
Dim t As New TreeView()
|
|
|
Dim da As New edokadb.clsMyDokumentart()
|
|
|
da.Refresh = True
|
|
|
da.Load_Neue_Dokumente(t, "", False, 0)
|
|
|
da.Dispose()
|
|
|
t.Dispose()
|
|
|
Me.Cursor = System.Windows.Forms.Cursors.Default
|
|
|
Case 88
|
|
|
If MsgBox("Berechtigungen wirklich neu generieren?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
|
|
|
Me.Cursor = Cursors.WaitCursor
|
|
|
DivFnkt.Generate_Berechtigungen()
|
|
|
Me.Cursor = Cursors.Default
|
|
|
MsgBox("Berechtigungen wurden generiert.", MsgBoxStyle.Information)
|
|
|
End If
|
|
|
Case 89
|
|
|
Dim w As New WordLib()
|
|
|
w.Create_Labels()
|
|
|
Case 90
|
|
|
Dim frm As New frmDomainObjektbezeichnung()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 91
|
|
|
Dim frm As New frmedokaUpdate()
|
|
|
frm.ShowDialog()
|
|
|
Case 92
|
|
|
Dim frm As New frmDomainZuordnungen()
|
|
|
frm.ShowDialog()
|
|
|
Case 93
|
|
|
Dim frm As New frmSetDokVerantwortlicher()
|
|
|
frm.ShowDialog()
|
|
|
Case 94
|
|
|
Dim frm As New frmDokumentStatistik()
|
|
|
frm.Show()
|
|
|
Case 95
|
|
|
Dim frm As New frmLog()
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 96
|
|
|
Dim frm As New frmRestorJournal()
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 97
|
|
|
Dim frm As New frmNLDokumente()
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 98
|
|
|
Dim frm As New frmDokumenttypbeschreibung()
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 99
|
|
|
'Koe und shu - 2004-08-01
|
|
|
Dim frm As New FrmFunktionsgruppe_Reportgruppe()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 100
|
|
|
'Koe und shu - 2004-08-01
|
|
|
Dim frm As New frmDomainFeldtyp()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 101
|
|
|
'Koe und shu - 2004-08-01
|
|
|
Dim frm As New frmDomainSteuerbefehl()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 102
|
|
|
'Koe und shu - 2004-08-01
|
|
|
Dim frm As New frmQuery()
|
|
|
frm.Text = "EDOKA-Queryanalyzer"
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 103
|
|
|
Dim f As New frmReportSelection()
|
|
|
f.Text = "Auswertungen"
|
|
|
Me.Cursor = Cursors.WaitCursor
|
|
|
f.MdiParent = Me.ParentForm
|
|
|
Try
|
|
|
f.Show()
|
|
|
Catch ex As Exception
|
|
|
Me.Cursor = Cursors.Default
|
|
|
MsgBox(ex.Message)
|
|
|
End Try
|
|
|
Me.Cursor = Cursors.Default
|
|
|
Case 104
|
|
|
Dim frm As New frmDomainGrund()
|
|
|
frm.Text = "L<EFBFBD>sch-/Reaktivierungsgr<67>nde"
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 105
|
|
|
'Koe 0
|
|
|
Dim frm As New frmDoaminStellvertretung()
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
Case 106
|
|
|
'Bud / Rel.4.0 - BUD - 21.05.2007 Korrektur, Dielog nich Mehrmals.
|
|
|
Dim frm As New frmNotfallDataGenerate()
|
|
|
frm.ShowDialog()
|
|
|
Case 107
|
|
|
'SHU
|
|
|
Dim frm As New frmSicherungsjournal()
|
|
|
frm.ShowDialog()
|
|
|
Case 108
|
|
|
Dim f As New frmNotfallimport()
|
|
|
f.ShowDialog()
|
|
|
Case 110
|
|
|
'Hutter 2005-01-04
|
|
|
'EDEX_Dokumentpakete
|
|
|
Dim f As New frmDokumentpaketuebersicht(0)
|
|
|
f.Text = "L<EFBFBD>sch-/Reaktivierungsgr<67>nde"
|
|
|
f.MdiParent = Me.ParentForm
|
|
|
f.Show()
|
|
|
Case 108
|
|
|
Dim f As New frmNotfallimport()
|
|
|
f.ShowDialog()
|
|
|
Case 111
|
|
|
Dim f As New frmDomainFAAppl()
|
|
|
f.Text = "EDOKA-Import - Fremdanwendungen"
|
|
|
f.MdiParent = Me.ParentForm
|
|
|
f.Show()
|
|
|
Case 112
|
|
|
Dim f As New frmDomainFADokumenttyp()
|
|
|
f.Text = "EDOKA-Import - Zuweisung FA-Dokumenttyp zu EDOKA-Dokumenttyp"
|
|
|
f.MdiParent = Me.ParentForm
|
|
|
f.Show()
|
|
|
Case 113
|
|
|
Dim f As New frmEDOKA_Import()
|
|
|
f.Text = "EDOKA-Import - Journale"
|
|
|
f.MdiParent = Me.ParentForm
|
|
|
f.Show()
|
|
|
Case 115
|
|
|
Dim f As New frmBLParameter()
|
|
|
f.Text = "Banklagernd Parameter"
|
|
|
f.MdiParent = Me.ParentForm
|
|
|
f.Show()
|
|
|
Case 116
|
|
|
Dim f As New frmpartnermavip()
|
|
|
f.Text = "Partner als Mitarbeiter/VIP"
|
|
|
f.MdiParent = Me.ParentForm
|
|
|
f.Show()
|
|
|
Case 119
|
|
|
'Rel.4.0 - BUD - 21.05.2007 Datenexport f<>r Fremdanwendung
|
|
|
Dim frm As New frmExportDataFremdanwendung()
|
|
|
frm.ShowDialog()
|
|
|
Case 122
|
|
|
' Rel.4.0 - KCL Avaloq Doktypen
|
|
|
Globals.MandantNr = 1
|
|
|
Dim frm As New frmDomainAVQDoktype
|
|
|
frm.Eintragnr = Me.SysMenu.SelectedNode.Tag
|
|
|
frm.Eintrag = SysMenu.SelectedNode.Text
|
|
|
frm.MdiParent = Me.ParentForm
|
|
|
frm.Show()
|
|
|
|
|
|
|
|
|
Case Else
|
|
|
End Select
|
|
|
Catch ex As Exception
|
|
|
MsgBox(ex.Message)
|
|
|
End Try
|
|
|
End Sub
|
|
|
|
|
|
Private Sub MnuNeuerKnoten_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuNeuerKnoten.Click
|
|
|
Dim a As String
|
|
|
Dim tn As New TreeNode()
|
|
|
Dim tnnew As New TreeNode()
|
|
|
a = InputBox(Globals.MyMsg.Get_Meldungstext(500))
|
|
|
If a = "" Then Exit Sub
|
|
|
tn = Me.SysMenu.SelectedNode
|
|
|
tnnew = tn.Nodes.Add(a)
|
|
|
With tnnew
|
|
|
.Tag() = 0
|
|
|
.ImageIndex() = 3
|
|
|
.SelectedImageIndex() = 3
|
|
|
End With
|
|
|
tn.ImageIndex = 1
|
|
|
tn.SelectedImageIndex = 2
|
|
|
If tn.GetNodeCount(True) > 0 Then
|
|
|
tn.ImageIndex = 1
|
|
|
tn.SelectedImageIndex = 2
|
|
|
End If
|
|
|
Me.SysMenu.Refresh()
|
|
|
End Sub
|
|
|
|
|
|
Private Sub MnuKnotenLoeschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuKnotenLoeschen.Click
|
|
|
Dim tn As New TreeNode()
|
|
|
Dim tnp As New TreeNode()
|
|
|
Dim i As Integer
|
|
|
tn = Me.SysMenu.SelectedNode
|
|
|
tnp = tn.Parent
|
|
|
If Not (Me.SysMenu.SelectedNode Is Nothing) Then
|
|
|
itodelete = itodelete + 1
|
|
|
todelete(itodelete) = tn.Tag
|
|
|
If Globals.MyMsg.Show_MessageYesNo(3) = MsgBoxResult.Yes Then
|
|
|
tn.Remove()
|
|
|
End If
|
|
|
If tnp.GetNodeCount(True) = 0 Then
|
|
|
tnp.ImageIndex = 3
|
|
|
tnp.SelectedImageIndex = 3
|
|
|
End If
|
|
|
Me.SysMenu.Refresh()
|
|
|
End If
|
|
|
End Sub
|
|
|
|
|
|
'Drag and Drop innerhalb des Systemmenus
|
|
|
Private Sub TreeView_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles SysMenu.DragDrop
|
|
|
Dim OriginationNode As TreeNode = CType(e.Data.GetData("System.Windows.Forms.TreeNode"), TreeNode)
|
|
|
|
|
|
If e.Data.GetDataPresent("System.Windows.Forms.TreeNode", False) Then
|
|
|
Dim pt As Point
|
|
|
Dim DestinationNode As TreeNode
|
|
|
pt = CType(sender, TreeView).PointToClient(New Point(e.X, e.Y))
|
|
|
DestinationNode = CType(sender, TreeView).GetNodeAt(pt)
|
|
|
DestinationNode.Nodes.Add(CType(OriginationNode.Clone, TreeNode))
|
|
|
DestinationNode.Expand()
|
|
|
If (e.KeyState And CtrlMask) <> CtrlMask Then
|
|
|
OriginationNode.Remove()
|
|
|
End If
|
|
|
End If
|
|
|
End Sub
|
|
|
|
|
|
Private Sub TreeView_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles SysMenu.DragEnter
|
|
|
If (e.Data.GetDataPresent("System.Windows.Forms.TreeNode")) Then
|
|
|
If (e.KeyState And CtrlMask) = CtrlMask Then
|
|
|
e.Effect = DragDropEffects.Copy
|
|
|
Else
|
|
|
e.Effect = DragDropEffects.Move
|
|
|
End If
|
|
|
Else
|
|
|
e.Effect = DragDropEffects.None
|
|
|
End If
|
|
|
End Sub
|
|
|
|
|
|
Private Sub TreeView_ItemDrag(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles SysMenu.ItemDrag
|
|
|
If e.Button = MouseButtons.Left Then
|
|
|
DoDragDrop(e.Item, DragDropEffects.Move Or DragDropEffects.Copy)
|
|
|
End If
|
|
|
End Sub
|
|
|
|
|
|
Private Sub MnuSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuSave.Click
|
|
|
Dim i As Integer
|
|
|
conn.OpenConnection()
|
|
|
ListNodeCollectionRecursive(Me.SysMenu.Nodes(0), 0)
|
|
|
i = conn.CloseConnection(True)
|
|
|
End Sub
|
|
|
|
|
|
Private Sub ListNodeCollectionRecursive(ByVal tnParent As TreeNode, ByRef iSort As Integer)
|
|
|
Dim tn As TreeNode
|
|
|
If tnParent.GetNodeCount(False) > 0 Then
|
|
|
tn = tnParent.Nodes(0)
|
|
|
Else
|
|
|
tn = Nothing
|
|
|
End If
|
|
|
ssort = 0
|
|
|
Do Until tn Is Nothing
|
|
|
iSort = iSort + 1
|
|
|
ListNodeSave(tn, iSort)
|
|
|
If tn.GetNodeCount(False) > 0 Then
|
|
|
Call ListNodeCollectionRecursive(tn, iSort)
|
|
|
End If
|
|
|
tn = tn.NextNode
|
|
|
Loop
|
|
|
End Sub
|
|
|
|
|
|
Private Sub ListNodeSave(ByVal tn As TreeNode, ByRef isort As Integer)
|
|
|
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
|
|
Dim t As DataTable
|
|
|
Dim key As Long
|
|
|
Dim i As Integer
|
|
|
Dim ftop, fleft, fheight, fwidth As Integer
|
|
|
Dim sysadmfnkt As New edokadb.clsMySysadminfunkion()
|
|
|
dbkey.cpMainConnectionProvider = conn
|
|
|
sysadmfnkt.cpMainConnectionProvider = conn
|
|
|
|
|
|
If tn.Tag <> 0 Then
|
|
|
sysadmfnkt.iSysadminfnktnr = New SqlInt32(CType(tn.Tag, Int32))
|
|
|
sysadmfnkt.SelectOne()
|
|
|
ftop = sysadmfnkt.iFtop.Value
|
|
|
fleft = sysadmfnkt.iFleft.Value
|
|
|
fwidth = sysadmfnkt.iFwidth.Value
|
|
|
fheight = sysadmfnkt.iFheight.Value
|
|
|
End If
|
|
|
sysadmfnkt.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
|
|
sysadmfnkt.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
|
|
sysadmfnkt.sBezeichnung = New SqlString(CType(tn.Text, String))
|
|
|
sysadmfnkt.sBeschreibung = New SqlString(CType("", String))
|
|
|
sysadmfnkt.iParentID = New SqlInt32(CType(tn.Parent.Tag, Int32))
|
|
|
sysadmfnkt.iImageIndex = New SqlInt32(CType(tn.ImageIndex, Int32))
|
|
|
sysadmfnkt.iImageIndexOpen = New SqlInt32(CType(tn.SelectedImageIndex, Int32))
|
|
|
sysadmfnkt.iSort = New SqlInt32(CType(isort, Int32))
|
|
|
sysadmfnkt.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
|
|
sysadmfnkt.bAktiv = New SqlBoolean(CType(True, Boolean))
|
|
|
sysadmfnkt.iSprache = New SqlInt32(CType(Globals.Sprache, Int32))
|
|
|
sysadmfnkt.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32))
|
|
|
sysadmfnkt.iFtop = New SqlInt32(CType(ftop, Int32))
|
|
|
sysadmfnkt.iFleft = New SqlInt32(CType(fleft, Int32))
|
|
|
sysadmfnkt.iFwidth = New SqlInt32(CType(fwidth, Int32))
|
|
|
sysadmfnkt.iFheight = New SqlInt32(CType(fheight, Int32))
|
|
|
|
|
|
If tn.Tag <> 0 Then
|
|
|
sysadmfnkt.iSysadminfnktnr = New SqlInt32(CType(tn.Tag, Int32))
|
|
|
sysadmfnkt.Update()
|
|
|
Else
|
|
|
key = dbkey.get_dbkey("sysadminfunktion")
|
|
|
conn.OpenConnection()
|
|
|
sysadmfnkt.iSysadminfnktnr = New SqlInt32(CType(key, Int32))
|
|
|
sysadmfnkt.Insert()
|
|
|
tn.Tag = key
|
|
|
End If
|
|
|
|
|
|
For i = 1 To itodelete
|
|
|
sysadmfnkt.iSysadminfnktnr = New SqlInt32(CType(todelete(i), Int32))
|
|
|
t = sysadmfnkt.SelectOne
|
|
|
If t.Rows.Count > 0 Then
|
|
|
sysadmfnkt.Delete()
|
|
|
End If
|
|
|
Next
|
|
|
End Sub
|
|
|
|
|
|
Private Sub MnuNodeUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
|
|
|
Dim a As String
|
|
|
a = InputBox("Neuer Name:")
|
|
|
If a = "" Then Exit Sub
|
|
|
Me.SysMenu.SelectedNode.Text = a
|
|
|
End Sub
|
|
|
|
|
|
Private Sub SysMenu_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles SysMenu.AfterSelect
|
|
|
|
|
|
End Sub
|
|
|
End Class |
