You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
4276 lines
198 KiB
4276 lines
198 KiB
|
|
Imports System.IO
|
|
Imports ALLGEMEIN.UI
|
|
Imports System.Drawing.Color
|
|
Imports System.Data
|
|
Imports System.Data.SqlTypes
|
|
Imports System.Data.SqlClient
|
|
Imports System.Security.Principal
|
|
'Imports PluginContracts
|
|
|
|
Imports EDOKALib.Common
|
|
Imports EDOKALib
|
|
Imports System.Reflection
|
|
|
|
Public Class EDOKAMain
|
|
Inherits System.Windows.Forms.Form
|
|
Implements mMain.SingleInstance.ISingleInstanceForm
|
|
|
|
|
|
#Region " Vom Windows Form Designer generierter Code "
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
|
|
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
|
|
|
End Sub
|
|
|
|
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
|
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
|
If disposing Then
|
|
If Not (components Is Nothing) Then
|
|
components.Dispose()
|
|
End If
|
|
End If
|
|
MyBase.Dispose(disposing)
|
|
End Sub
|
|
|
|
' Für Windows Form-Designer erforderlich
|
|
Private components As System.ComponentModel.IContainer
|
|
|
|
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
|
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
|
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
|
Friend WithEvents StatusBar1 As System.Windows.Forms.StatusBar
|
|
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
|
|
Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MnuSystemadministration As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MnuNewLogin As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem12 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem13 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem14 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem15 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem16 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem17 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem19 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem20 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem21 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem11 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem18 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
|
|
Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
|
|
Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
|
|
Friend WithEvents DataSet1 As System.Data.DataSet
|
|
Friend WithEvents MenuItem22 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem23 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem24 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem25 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem26 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem27 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem28 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem29 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem30 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem31 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem32 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem33 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem35 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem36 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem37 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem38 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem39 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem40 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents Timer1 As System.Timers.Timer
|
|
Friend WithEvents Timer2 As System.Timers.Timer
|
|
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
|
Friend WithEvents Timer3 As System.Timers.Timer
|
|
Friend WithEvents MenuItem41 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem42 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem44 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem45 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem46 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem47 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem48 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem49 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem50 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem51 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem52 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem53 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem54 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem55 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem43 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem56 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem57 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem34 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents HelpProvider1 As System.Windows.Forms.HelpProvider
|
|
Friend WithEvents MenuItem58 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem59 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem60 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem62 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem63 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem64 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents mnudp1 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents mnudp2 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents mnudp3 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents mnudp4 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents mnudp5 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents mnudp6 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents mnudp7 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents mnudp8 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents mnudp9 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents mnudp10 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem61 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem65 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents mnuauslieferungen As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem66 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents mnuserienbriefe As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem67 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents menuSpooler As System.Windows.Forms.MenuItem
|
|
Friend WithEvents mnublpartneruebersicht As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem68 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MnuSystemadministration_Neu As System.Windows.Forms.MenuItem
|
|
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
|
|
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
|
Friend WithEvents ToolStipComboBox1 As System.Windows.Forms.ToolStripComboBox
|
|
Friend WithEvents TSBtnSuche As System.Windows.Forms.ToolStripButton
|
|
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
|
|
Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel
|
|
Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton
|
|
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
|
|
Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
|
|
Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton
|
|
Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripButton
|
|
Friend WithEvents Label1 As System.Windows.Forms.Label
|
|
Friend WithEvents MenuItem69 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents Mnu_DokumenteSelbstanzeigen As System.Windows.Forms.MenuItem
|
|
Friend WithEvents Mnu_DokumenteMehrfachdruck As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuitemErweiterungen As MenuItem
|
|
Friend WithEvents MnuItemPlugin1 As MenuItem
|
|
Friend WithEvents MnuItemPlugin2 As MenuItem
|
|
Friend WithEvents MnuItemPlugin3 As MenuItem
|
|
Friend WithEvents MnuItemPlugin4 As MenuItem
|
|
Friend WithEvents MnuItemPlugin5 As MenuItem
|
|
Friend WithEvents MnuItemPlugin6 As MenuItem
|
|
Friend WithEvents MnuItemPlugin7 As MenuItem
|
|
Friend WithEvents MnuItemPlugin8 As MenuItem
|
|
Friend WithEvents MnuItemPlugin9 As MenuItem
|
|
Friend WithEvents MnuItemPlugin10 As MenuItem
|
|
Friend WithEvents MenuItem70 As MenuItem
|
|
Friend WithEvents MenuItem71 As MenuItem
|
|
Friend WithEvents MenuItem72 As MenuItem
|
|
Friend WithEvents mnuPartnerlisten As System.Windows.Forms.MenuItem
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Me.components = New System.ComponentModel.Container()
|
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(EDOKAMain))
|
|
Me.StatusBar1 = New System.Windows.Forms.StatusBar()
|
|
Me.MainMenu1 = New System.Windows.Forms.MainMenu(Me.components)
|
|
Me.MenuItem1 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem2 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem22 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem23 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem24 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem25 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem26 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem27 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem28 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem29 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem30 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem31 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem45 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem43 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem56 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem57 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem46 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem47 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem48 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem49 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem50 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem51 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem52 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem53 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem54 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem55 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem62 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem63 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem64 = New System.Windows.Forms.MenuItem()
|
|
Me.mnudp1 = New System.Windows.Forms.MenuItem()
|
|
Me.mnudp2 = New System.Windows.Forms.MenuItem()
|
|
Me.mnudp3 = New System.Windows.Forms.MenuItem()
|
|
Me.mnudp4 = New System.Windows.Forms.MenuItem()
|
|
Me.mnudp5 = New System.Windows.Forms.MenuItem()
|
|
Me.mnudp6 = New System.Windows.Forms.MenuItem()
|
|
Me.mnudp7 = New System.Windows.Forms.MenuItem()
|
|
Me.mnudp8 = New System.Windows.Forms.MenuItem()
|
|
Me.mnudp9 = New System.Windows.Forms.MenuItem()
|
|
Me.mnudp10 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem7 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem4 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem8 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem9 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem6 = New System.Windows.Forms.MenuItem()
|
|
Me.MnuNewLogin = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem17 = New System.Windows.Forms.MenuItem()
|
|
Me.MnuSystemadministration = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem16 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem21 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem18 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem11 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem3 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem5 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem32 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem33 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem44 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem36 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem40 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem71 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem41 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem42 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem65 = New System.Windows.Forms.MenuItem()
|
|
Me.mnuauslieferungen = New System.Windows.Forms.MenuItem()
|
|
Me.mnublpartneruebersicht = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem66 = New System.Windows.Forms.MenuItem()
|
|
Me.mnuserienbriefe = New System.Windows.Forms.MenuItem()
|
|
Me.mnuPartnerlisten = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem67 = New System.Windows.Forms.MenuItem()
|
|
Me.menuSpooler = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem69 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem68 = New System.Windows.Forms.MenuItem()
|
|
Me.MnuSystemadministration_Neu = New System.Windows.Forms.MenuItem()
|
|
Me.Mnu_DokumenteSelbstanzeigen = New System.Windows.Forms.MenuItem()
|
|
Me.Mnu_DokumenteMehrfachdruck = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem10 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem12 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem13 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem14 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem15 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem19 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem34 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem58 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem60 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem59 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem37 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem35 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem61 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem38 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem20 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem39 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuitemErweiterungen = New System.Windows.Forms.MenuItem()
|
|
Me.MnuItemPlugin1 = New System.Windows.Forms.MenuItem()
|
|
Me.MnuItemPlugin2 = New System.Windows.Forms.MenuItem()
|
|
Me.MnuItemPlugin3 = New System.Windows.Forms.MenuItem()
|
|
Me.MnuItemPlugin4 = New System.Windows.Forms.MenuItem()
|
|
Me.MnuItemPlugin5 = New System.Windows.Forms.MenuItem()
|
|
Me.MnuItemPlugin6 = New System.Windows.Forms.MenuItem()
|
|
Me.MnuItemPlugin7 = New System.Windows.Forms.MenuItem()
|
|
Me.MnuItemPlugin8 = New System.Windows.Forms.MenuItem()
|
|
Me.MnuItemPlugin9 = New System.Windows.Forms.MenuItem()
|
|
Me.MnuItemPlugin10 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem70 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem72 = New System.Windows.Forms.MenuItem()
|
|
Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
|
|
Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
|
|
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
|
|
Me.DataSet1 = New System.Data.DataSet()
|
|
Me.Timer1 = New System.Timers.Timer()
|
|
Me.Timer2 = New System.Timers.Timer()
|
|
Me.Panel1 = New System.Windows.Forms.Panel()
|
|
Me.Label1 = New System.Windows.Forms.Label()
|
|
Me.Timer3 = New System.Timers.Timer()
|
|
Me.HelpProvider1 = New System.Windows.Forms.HelpProvider()
|
|
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
|
Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
|
|
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
|
|
Me.ToolStipComboBox1 = New System.Windows.Forms.ToolStripComboBox()
|
|
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
|
|
Me.TSBtnSuche = New System.Windows.Forms.ToolStripButton()
|
|
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
|
|
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
|
|
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
|
|
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
|
|
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
|
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.Timer1, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.Timer2, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.Panel1.SuspendLayout()
|
|
CType(Me.Timer3, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.ToolStrip1.SuspendLayout()
|
|
Me.SuspendLayout()
|
|
'
|
|
'StatusBar1
|
|
'
|
|
resources.ApplyResources(Me.StatusBar1, "StatusBar1")
|
|
Me.StatusBar1.Name = "StatusBar1"
|
|
Me.HelpProvider1.SetShowHelp(Me.StatusBar1, CType(resources.GetObject("StatusBar1.ShowHelp"), Boolean))
|
|
'
|
|
'MainMenu1
|
|
'
|
|
Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem17, Me.MnuSystemadministration, Me.MenuItem16, Me.MenuItem21, Me.MenuItem10, Me.MenuItem19, Me.MenuItem39, Me.MenuitemErweiterungen, Me.MenuItem70, Me.MenuItem72})
|
|
'
|
|
'MenuItem1
|
|
'
|
|
Me.MenuItem1.Index = 0
|
|
Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2, Me.MenuItem45, Me.MenuItem62, Me.MenuItem7, Me.MenuItem4, Me.MenuItem8, Me.MenuItem9, Me.MenuItem6, Me.MnuNewLogin})
|
|
resources.ApplyResources(Me.MenuItem1, "MenuItem1")
|
|
'
|
|
'MenuItem2
|
|
'
|
|
Me.MenuItem2.Index = 0
|
|
Me.MenuItem2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem22, Me.MenuItem23, Me.MenuItem24, Me.MenuItem25, Me.MenuItem26, Me.MenuItem27, Me.MenuItem28, Me.MenuItem29, Me.MenuItem30, Me.MenuItem31})
|
|
resources.ApplyResources(Me.MenuItem2, "MenuItem2")
|
|
'
|
|
'MenuItem22
|
|
'
|
|
Me.MenuItem22.Index = 0
|
|
resources.ApplyResources(Me.MenuItem22, "MenuItem22")
|
|
'
|
|
'MenuItem23
|
|
'
|
|
Me.MenuItem23.Index = 1
|
|
resources.ApplyResources(Me.MenuItem23, "MenuItem23")
|
|
'
|
|
'MenuItem24
|
|
'
|
|
Me.MenuItem24.Index = 2
|
|
resources.ApplyResources(Me.MenuItem24, "MenuItem24")
|
|
'
|
|
'MenuItem25
|
|
'
|
|
Me.MenuItem25.Index = 3
|
|
resources.ApplyResources(Me.MenuItem25, "MenuItem25")
|
|
'
|
|
'MenuItem26
|
|
'
|
|
Me.MenuItem26.Index = 4
|
|
resources.ApplyResources(Me.MenuItem26, "MenuItem26")
|
|
'
|
|
'MenuItem27
|
|
'
|
|
Me.MenuItem27.Index = 5
|
|
resources.ApplyResources(Me.MenuItem27, "MenuItem27")
|
|
'
|
|
'MenuItem28
|
|
'
|
|
Me.MenuItem28.Index = 6
|
|
resources.ApplyResources(Me.MenuItem28, "MenuItem28")
|
|
'
|
|
'MenuItem29
|
|
'
|
|
Me.MenuItem29.Index = 7
|
|
resources.ApplyResources(Me.MenuItem29, "MenuItem29")
|
|
'
|
|
'MenuItem30
|
|
'
|
|
Me.MenuItem30.Index = 8
|
|
resources.ApplyResources(Me.MenuItem30, "MenuItem30")
|
|
'
|
|
'MenuItem31
|
|
'
|
|
Me.MenuItem31.Index = 9
|
|
resources.ApplyResources(Me.MenuItem31, "MenuItem31")
|
|
'
|
|
'MenuItem45
|
|
'
|
|
Me.MenuItem45.Index = 1
|
|
Me.MenuItem45.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem43, Me.MenuItem56, Me.MenuItem57, Me.MenuItem46, Me.MenuItem47, Me.MenuItem48, Me.MenuItem49, Me.MenuItem50, Me.MenuItem51, Me.MenuItem52, Me.MenuItem53, Me.MenuItem54, Me.MenuItem55})
|
|
resources.ApplyResources(Me.MenuItem45, "MenuItem45")
|
|
'
|
|
'MenuItem43
|
|
'
|
|
Me.MenuItem43.Index = 0
|
|
resources.ApplyResources(Me.MenuItem43, "MenuItem43")
|
|
'
|
|
'MenuItem56
|
|
'
|
|
Me.MenuItem56.Index = 1
|
|
resources.ApplyResources(Me.MenuItem56, "MenuItem56")
|
|
'
|
|
'MenuItem57
|
|
'
|
|
Me.MenuItem57.Index = 2
|
|
resources.ApplyResources(Me.MenuItem57, "MenuItem57")
|
|
'
|
|
'MenuItem46
|
|
'
|
|
Me.MenuItem46.Index = 3
|
|
resources.ApplyResources(Me.MenuItem46, "MenuItem46")
|
|
'
|
|
'MenuItem47
|
|
'
|
|
Me.MenuItem47.Index = 4
|
|
resources.ApplyResources(Me.MenuItem47, "MenuItem47")
|
|
'
|
|
'MenuItem48
|
|
'
|
|
Me.MenuItem48.Index = 5
|
|
resources.ApplyResources(Me.MenuItem48, "MenuItem48")
|
|
'
|
|
'MenuItem49
|
|
'
|
|
Me.MenuItem49.Index = 6
|
|
resources.ApplyResources(Me.MenuItem49, "MenuItem49")
|
|
'
|
|
'MenuItem50
|
|
'
|
|
Me.MenuItem50.Index = 7
|
|
resources.ApplyResources(Me.MenuItem50, "MenuItem50")
|
|
'
|
|
'MenuItem51
|
|
'
|
|
Me.MenuItem51.Index = 8
|
|
resources.ApplyResources(Me.MenuItem51, "MenuItem51")
|
|
'
|
|
'MenuItem52
|
|
'
|
|
Me.MenuItem52.Index = 9
|
|
resources.ApplyResources(Me.MenuItem52, "MenuItem52")
|
|
'
|
|
'MenuItem53
|
|
'
|
|
Me.MenuItem53.Index = 10
|
|
resources.ApplyResources(Me.MenuItem53, "MenuItem53")
|
|
'
|
|
'MenuItem54
|
|
'
|
|
Me.MenuItem54.Index = 11
|
|
resources.ApplyResources(Me.MenuItem54, "MenuItem54")
|
|
'
|
|
'MenuItem55
|
|
'
|
|
Me.MenuItem55.Index = 12
|
|
resources.ApplyResources(Me.MenuItem55, "MenuItem55")
|
|
'
|
|
'MenuItem62
|
|
'
|
|
Me.MenuItem62.Index = 2
|
|
Me.MenuItem62.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem63, Me.MenuItem64, Me.mnudp1, Me.mnudp2, Me.mnudp3, Me.mnudp4, Me.mnudp5, Me.mnudp6, Me.mnudp7, Me.mnudp8, Me.mnudp9, Me.mnudp10})
|
|
resources.ApplyResources(Me.MenuItem62, "MenuItem62")
|
|
'
|
|
'MenuItem63
|
|
'
|
|
Me.MenuItem63.Index = 0
|
|
resources.ApplyResources(Me.MenuItem63, "MenuItem63")
|
|
'
|
|
'MenuItem64
|
|
'
|
|
Me.MenuItem64.Index = 1
|
|
resources.ApplyResources(Me.MenuItem64, "MenuItem64")
|
|
'
|
|
'mnudp1
|
|
'
|
|
Me.mnudp1.Index = 2
|
|
resources.ApplyResources(Me.mnudp1, "mnudp1")
|
|
'
|
|
'mnudp2
|
|
'
|
|
Me.mnudp2.Index = 3
|
|
resources.ApplyResources(Me.mnudp2, "mnudp2")
|
|
'
|
|
'mnudp3
|
|
'
|
|
Me.mnudp3.Index = 4
|
|
resources.ApplyResources(Me.mnudp3, "mnudp3")
|
|
'
|
|
'mnudp4
|
|
'
|
|
Me.mnudp4.Index = 5
|
|
resources.ApplyResources(Me.mnudp4, "mnudp4")
|
|
'
|
|
'mnudp5
|
|
'
|
|
Me.mnudp5.Index = 6
|
|
resources.ApplyResources(Me.mnudp5, "mnudp5")
|
|
'
|
|
'mnudp6
|
|
'
|
|
Me.mnudp6.Index = 7
|
|
resources.ApplyResources(Me.mnudp6, "mnudp6")
|
|
'
|
|
'mnudp7
|
|
'
|
|
Me.mnudp7.Index = 8
|
|
resources.ApplyResources(Me.mnudp7, "mnudp7")
|
|
'
|
|
'mnudp8
|
|
'
|
|
Me.mnudp8.Index = 9
|
|
resources.ApplyResources(Me.mnudp8, "mnudp8")
|
|
'
|
|
'mnudp9
|
|
'
|
|
Me.mnudp9.Index = 10
|
|
resources.ApplyResources(Me.mnudp9, "mnudp9")
|
|
'
|
|
'mnudp10
|
|
'
|
|
Me.mnudp10.Index = 11
|
|
resources.ApplyResources(Me.mnudp10, "mnudp10")
|
|
'
|
|
'MenuItem7
|
|
'
|
|
Me.MenuItem7.Index = 3
|
|
resources.ApplyResources(Me.MenuItem7, "MenuItem7")
|
|
'
|
|
'MenuItem4
|
|
'
|
|
Me.MenuItem4.Index = 4
|
|
resources.ApplyResources(Me.MenuItem4, "MenuItem4")
|
|
'
|
|
'MenuItem8
|
|
'
|
|
resources.ApplyResources(Me.MenuItem8, "MenuItem8")
|
|
Me.MenuItem8.Index = 5
|
|
'
|
|
'MenuItem9
|
|
'
|
|
Me.MenuItem9.Index = 6
|
|
resources.ApplyResources(Me.MenuItem9, "MenuItem9")
|
|
'
|
|
'MenuItem6
|
|
'
|
|
Me.MenuItem6.Index = 7
|
|
resources.ApplyResources(Me.MenuItem6, "MenuItem6")
|
|
'
|
|
'MnuNewLogin
|
|
'
|
|
Me.MnuNewLogin.Index = 8
|
|
resources.ApplyResources(Me.MnuNewLogin, "MnuNewLogin")
|
|
'
|
|
'MenuItem17
|
|
'
|
|
Me.MenuItem17.Index = 1
|
|
Me.MenuItem17.MergeOrder = 96
|
|
resources.ApplyResources(Me.MenuItem17, "MenuItem17")
|
|
'
|
|
'MnuSystemadministration
|
|
'
|
|
Me.MnuSystemadministration.Index = 2
|
|
Me.MnuSystemadministration.MergeOrder = 97
|
|
resources.ApplyResources(Me.MnuSystemadministration, "MnuSystemadministration")
|
|
'
|
|
'MenuItem16
|
|
'
|
|
Me.MenuItem16.Index = 3
|
|
resources.ApplyResources(Me.MenuItem16, "MenuItem16")
|
|
'
|
|
'MenuItem21
|
|
'
|
|
Me.MenuItem21.Index = 4
|
|
Me.MenuItem21.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem18, Me.MenuItem11, Me.MenuItem3, Me.MenuItem5, Me.MenuItem32, Me.MenuItem33, Me.MenuItem44, Me.MenuItem36, Me.MenuItem40, Me.MenuItem71, Me.MenuItem41, Me.MenuItem42, Me.MenuItem65, Me.mnuauslieferungen, Me.mnublpartneruebersicht, Me.MenuItem66, Me.mnuserienbriefe, Me.mnuPartnerlisten, Me.MenuItem67, Me.menuSpooler, Me.MenuItem69, Me.MenuItem68, Me.MnuSystemadministration_Neu, Me.Mnu_DokumenteSelbstanzeigen, Me.Mnu_DokumenteMehrfachdruck})
|
|
Me.MenuItem21.MergeOrder = 97
|
|
resources.ApplyResources(Me.MenuItem21, "MenuItem21")
|
|
'
|
|
'MenuItem18
|
|
'
|
|
Me.MenuItem18.Index = 0
|
|
resources.ApplyResources(Me.MenuItem18, "MenuItem18")
|
|
'
|
|
'MenuItem11
|
|
'
|
|
resources.ApplyResources(Me.MenuItem11, "MenuItem11")
|
|
Me.MenuItem11.Index = 1
|
|
'
|
|
'MenuItem3
|
|
'
|
|
Me.MenuItem3.Index = 2
|
|
resources.ApplyResources(Me.MenuItem3, "MenuItem3")
|
|
'
|
|
'MenuItem5
|
|
'
|
|
Me.MenuItem5.Index = 3
|
|
resources.ApplyResources(Me.MenuItem5, "MenuItem5")
|
|
'
|
|
'MenuItem32
|
|
'
|
|
Me.MenuItem32.Index = 4
|
|
resources.ApplyResources(Me.MenuItem32, "MenuItem32")
|
|
'
|
|
'MenuItem33
|
|
'
|
|
Me.MenuItem33.Index = 5
|
|
resources.ApplyResources(Me.MenuItem33, "MenuItem33")
|
|
'
|
|
'MenuItem44
|
|
'
|
|
Me.MenuItem44.Index = 6
|
|
resources.ApplyResources(Me.MenuItem44, "MenuItem44")
|
|
'
|
|
'MenuItem36
|
|
'
|
|
Me.MenuItem36.Index = 7
|
|
resources.ApplyResources(Me.MenuItem36, "MenuItem36")
|
|
'
|
|
'MenuItem40
|
|
'
|
|
Me.MenuItem40.Index = 8
|
|
resources.ApplyResources(Me.MenuItem40, "MenuItem40")
|
|
'
|
|
'MenuItem71
|
|
'
|
|
Me.MenuItem71.Index = 9
|
|
resources.ApplyResources(Me.MenuItem71, "MenuItem71")
|
|
'
|
|
'MenuItem41
|
|
'
|
|
Me.MenuItem41.Index = 10
|
|
resources.ApplyResources(Me.MenuItem41, "MenuItem41")
|
|
'
|
|
'MenuItem42
|
|
'
|
|
Me.MenuItem42.Index = 11
|
|
resources.ApplyResources(Me.MenuItem42, "MenuItem42")
|
|
'
|
|
'MenuItem65
|
|
'
|
|
Me.MenuItem65.Index = 12
|
|
resources.ApplyResources(Me.MenuItem65, "MenuItem65")
|
|
'
|
|
'mnuauslieferungen
|
|
'
|
|
Me.mnuauslieferungen.Index = 13
|
|
resources.ApplyResources(Me.mnuauslieferungen, "mnuauslieferungen")
|
|
'
|
|
'mnublpartneruebersicht
|
|
'
|
|
Me.mnublpartneruebersicht.Index = 14
|
|
resources.ApplyResources(Me.mnublpartneruebersicht, "mnublpartneruebersicht")
|
|
'
|
|
'MenuItem66
|
|
'
|
|
Me.MenuItem66.Index = 15
|
|
resources.ApplyResources(Me.MenuItem66, "MenuItem66")
|
|
'
|
|
'mnuserienbriefe
|
|
'
|
|
Me.mnuserienbriefe.Index = 16
|
|
resources.ApplyResources(Me.mnuserienbriefe, "mnuserienbriefe")
|
|
'
|
|
'mnuPartnerlisten
|
|
'
|
|
Me.mnuPartnerlisten.Index = 17
|
|
resources.ApplyResources(Me.mnuPartnerlisten, "mnuPartnerlisten")
|
|
'
|
|
'MenuItem67
|
|
'
|
|
Me.MenuItem67.Index = 18
|
|
resources.ApplyResources(Me.MenuItem67, "MenuItem67")
|
|
'
|
|
'menuSpooler
|
|
'
|
|
Me.menuSpooler.Index = 19
|
|
resources.ApplyResources(Me.menuSpooler, "menuSpooler")
|
|
'
|
|
'MenuItem69
|
|
'
|
|
Me.MenuItem69.Index = 20
|
|
resources.ApplyResources(Me.MenuItem69, "MenuItem69")
|
|
'
|
|
'MenuItem68
|
|
'
|
|
Me.MenuItem68.Index = 21
|
|
resources.ApplyResources(Me.MenuItem68, "MenuItem68")
|
|
'
|
|
'MnuSystemadministration_Neu
|
|
'
|
|
Me.MnuSystemadministration_Neu.Index = 22
|
|
resources.ApplyResources(Me.MnuSystemadministration_Neu, "MnuSystemadministration_Neu")
|
|
'
|
|
'Mnu_DokumenteSelbstanzeigen
|
|
'
|
|
Me.Mnu_DokumenteSelbstanzeigen.Index = 23
|
|
resources.ApplyResources(Me.Mnu_DokumenteSelbstanzeigen, "Mnu_DokumenteSelbstanzeigen")
|
|
'
|
|
'Mnu_DokumenteMehrfachdruck
|
|
'
|
|
Me.Mnu_DokumenteMehrfachdruck.Index = 24
|
|
resources.ApplyResources(Me.Mnu_DokumenteMehrfachdruck, "Mnu_DokumenteMehrfachdruck")
|
|
'
|
|
'MenuItem10
|
|
'
|
|
Me.MenuItem10.Index = 5
|
|
Me.MenuItem10.MdiList = True
|
|
Me.MenuItem10.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem12, Me.MenuItem13, Me.MenuItem14, Me.MenuItem15})
|
|
Me.MenuItem10.MergeOrder = 99
|
|
resources.ApplyResources(Me.MenuItem10, "MenuItem10")
|
|
'
|
|
'MenuItem12
|
|
'
|
|
Me.MenuItem12.Index = 0
|
|
resources.ApplyResources(Me.MenuItem12, "MenuItem12")
|
|
'
|
|
'MenuItem13
|
|
'
|
|
Me.MenuItem13.Index = 1
|
|
resources.ApplyResources(Me.MenuItem13, "MenuItem13")
|
|
'
|
|
'MenuItem14
|
|
'
|
|
Me.MenuItem14.Index = 2
|
|
resources.ApplyResources(Me.MenuItem14, "MenuItem14")
|
|
'
|
|
'MenuItem15
|
|
'
|
|
Me.MenuItem15.Index = 3
|
|
resources.ApplyResources(Me.MenuItem15, "MenuItem15")
|
|
'
|
|
'MenuItem19
|
|
'
|
|
Me.MenuItem19.Index = 6
|
|
Me.MenuItem19.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem34, Me.MenuItem58, Me.MenuItem60, Me.MenuItem59, Me.MenuItem37, Me.MenuItem35, Me.MenuItem61, Me.MenuItem38, Me.MenuItem20})
|
|
Me.MenuItem19.MergeOrder = 100
|
|
resources.ApplyResources(Me.MenuItem19, "MenuItem19")
|
|
'
|
|
'MenuItem34
|
|
'
|
|
Me.MenuItem34.Index = 0
|
|
resources.ApplyResources(Me.MenuItem34, "MenuItem34")
|
|
'
|
|
'MenuItem58
|
|
'
|
|
Me.MenuItem58.Index = 1
|
|
resources.ApplyResources(Me.MenuItem58, "MenuItem58")
|
|
'
|
|
'MenuItem60
|
|
'
|
|
Me.MenuItem60.Index = 2
|
|
resources.ApplyResources(Me.MenuItem60, "MenuItem60")
|
|
'
|
|
'MenuItem59
|
|
'
|
|
Me.MenuItem59.Index = 3
|
|
resources.ApplyResources(Me.MenuItem59, "MenuItem59")
|
|
'
|
|
'MenuItem37
|
|
'
|
|
Me.MenuItem37.Index = 4
|
|
resources.ApplyResources(Me.MenuItem37, "MenuItem37")
|
|
'
|
|
'MenuItem35
|
|
'
|
|
Me.MenuItem35.Index = 5
|
|
resources.ApplyResources(Me.MenuItem35, "MenuItem35")
|
|
'
|
|
'MenuItem61
|
|
'
|
|
Me.MenuItem61.Index = 6
|
|
resources.ApplyResources(Me.MenuItem61, "MenuItem61")
|
|
'
|
|
'MenuItem38
|
|
'
|
|
Me.MenuItem38.Index = 7
|
|
resources.ApplyResources(Me.MenuItem38, "MenuItem38")
|
|
'
|
|
'MenuItem20
|
|
'
|
|
Me.MenuItem20.Index = 8
|
|
resources.ApplyResources(Me.MenuItem20, "MenuItem20")
|
|
'
|
|
'MenuItem39
|
|
'
|
|
Me.MenuItem39.Index = 7
|
|
Me.MenuItem39.MergeOrder = 101
|
|
Me.MenuItem39.OwnerDraw = True
|
|
resources.ApplyResources(Me.MenuItem39, "MenuItem39")
|
|
'
|
|
'MenuitemErweiterungen
|
|
'
|
|
Me.MenuitemErweiterungen.Index = 8
|
|
Me.MenuitemErweiterungen.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuItemPlugin1, Me.MnuItemPlugin2, Me.MnuItemPlugin3, Me.MnuItemPlugin4, Me.MnuItemPlugin5, Me.MnuItemPlugin6, Me.MnuItemPlugin7, Me.MnuItemPlugin8, Me.MnuItemPlugin9, Me.MnuItemPlugin10})
|
|
Me.MenuitemErweiterungen.MergeOrder = 98
|
|
resources.ApplyResources(Me.MenuitemErweiterungen, "MenuitemErweiterungen")
|
|
'
|
|
'MnuItemPlugin1
|
|
'
|
|
Me.MnuItemPlugin1.Index = 0
|
|
resources.ApplyResources(Me.MnuItemPlugin1, "MnuItemPlugin1")
|
|
'
|
|
'MnuItemPlugin2
|
|
'
|
|
Me.MnuItemPlugin2.Index = 1
|
|
resources.ApplyResources(Me.MnuItemPlugin2, "MnuItemPlugin2")
|
|
'
|
|
'MnuItemPlugin3
|
|
'
|
|
Me.MnuItemPlugin3.Index = 2
|
|
resources.ApplyResources(Me.MnuItemPlugin3, "MnuItemPlugin3")
|
|
'
|
|
'MnuItemPlugin4
|
|
'
|
|
Me.MnuItemPlugin4.Index = 3
|
|
resources.ApplyResources(Me.MnuItemPlugin4, "MnuItemPlugin4")
|
|
'
|
|
'MnuItemPlugin5
|
|
'
|
|
Me.MnuItemPlugin5.Index = 4
|
|
resources.ApplyResources(Me.MnuItemPlugin5, "MnuItemPlugin5")
|
|
'
|
|
'MnuItemPlugin6
|
|
'
|
|
Me.MnuItemPlugin6.Index = 5
|
|
resources.ApplyResources(Me.MnuItemPlugin6, "MnuItemPlugin6")
|
|
'
|
|
'MnuItemPlugin7
|
|
'
|
|
Me.MnuItemPlugin7.Index = 6
|
|
resources.ApplyResources(Me.MnuItemPlugin7, "MnuItemPlugin7")
|
|
'
|
|
'MnuItemPlugin8
|
|
'
|
|
Me.MnuItemPlugin8.Index = 7
|
|
resources.ApplyResources(Me.MnuItemPlugin8, "MnuItemPlugin8")
|
|
'
|
|
'MnuItemPlugin9
|
|
'
|
|
Me.MnuItemPlugin9.Index = 8
|
|
resources.ApplyResources(Me.MnuItemPlugin9, "MnuItemPlugin9")
|
|
'
|
|
'MnuItemPlugin10
|
|
'
|
|
Me.MnuItemPlugin10.Index = 9
|
|
resources.ApplyResources(Me.MnuItemPlugin10, "MnuItemPlugin10")
|
|
'
|
|
'MenuItem70
|
|
'
|
|
Me.MenuItem70.Index = 9
|
|
resources.ApplyResources(Me.MenuItem70, "MenuItem70")
|
|
'
|
|
'MenuItem72
|
|
'
|
|
Me.MenuItem72.Index = 10
|
|
Me.MenuItem72.MergeOrder = 10000
|
|
resources.ApplyResources(Me.MenuItem72, "MenuItem72")
|
|
'
|
|
'SqlDataAdapter1
|
|
'
|
|
Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
|
|
Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
|
|
Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "profil", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("profilnr", "profilnr"), New System.Data.Common.DataColumnMapping("mitarbeiternr", "mitarbeiternr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("standard", "standard"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer"), New System.Data.Common.DataColumnMapping("color1", "color1"), New System.Data.Common.DataColumnMapping("color2", "color2"), New System.Data.Common.DataColumnMapping("color3", "color3"), New System.Data.Common.DataColumnMapping("color4", "color4"), New System.Data.Common.DataColumnMapping("color5", "color5"), New System.Data.Common.DataColumnMapping("color6", "color6"), New System.Data.Common.DataColumnMapping("color7", "color7"), New System.Data.Common.DataColumnMapping("color8", "color8"), New System.Data.Common.DataColumnMapping("unterschriftlinks", "unterschriftlinks"), New System.Data.Common.DataColumnMapping("unterschriftrechts", "unterschriftrechts"), New System.Data.Common.DataColumnMapping("hw1", "hw1"), New System.Data.Common.DataColumnMapping("hw2", "hw2"), New System.Data.Common.DataColumnMapping("hw3", "hw3"), New System.Data.Common.DataColumnMapping("hw4", "hw4"), New System.Data.Common.DataColumnMapping("hw5", "hw5"), New System.Data.Common.DataColumnMapping("hw6", "hw6"), New System.Data.Common.DataColumnMapping("hw7", "hw7"), New System.Data.Common.DataColumnMapping("hw8", "hw8"), New System.Data.Common.DataColumnMapping("hw9", "hw9"), New System.Data.Common.DataColumnMapping("hw10", "hw10"), New System.Data.Common.DataColumnMapping("hw11", "hw11"), New System.Data.Common.DataColumnMapping("vmb", "vmb"), New System.Data.Common.DataColumnMapping("vnl", "vnl"), New System.Data.Common.DataColumnMapping("vkost", "vkost"), New System.Data.Common.DataColumnMapping("vteam", "vteam"), New System.Data.Common.DataColumnMapping("vma", "vma"), New System.Data.Common.DataColumnMapping("mmb", "mmb"), New System.Data.Common.DataColumnMapping("mnl", "mnl"), New System.Data.Common.DataColumnMapping("mkost", "mkost"), New System.Data.Common.DataColumnMapping("mteam", "mteam"), New System.Data.Common.DataColumnMapping("mma", "mma"), New System.Data.Common.DataColumnMapping("emb", "emb"), New System.Data.Common.DataColumnMapping("enl", "enl"), New System.Data.Common.DataColumnMapping("ekost", "ekost"), New System.Data.Common.DataColumnMapping("eteam", "eteam"), New System.Data.Common.DataColumnMapping("ema", "ema"), New System.Data.Common.DataColumnMapping("dpartner", "dpartner"), New System.Data.Common.DataColumnMapping("ddokart", "ddokart"), New System.Data.Common.DataColumnMapping("ddokstatus", "ddokstatus"), New System.Data.Common.DataColumnMapping("datum1", "datum1"), New System.Data.Common.DataColumnMapping("datum2", "datum2"), New System.Data.Common.DataColumnMapping("datum3", "datum3"), New System.Data.Common.DataColumnMapping("datum4", "datum4"), New System.Data.Common.DataColumnMapping("datum5", "datum5"), New System.Data.Common.DataColumnMapping("datum6", "datum6"), New System.Data.Common.DataColumnMapping("datum7", "datum7"), New System.Data.Common.DataColumnMapping("datum8", "datum8"), New System.Data.Common.DataColumnMapping("erstaelterals", "erstaelterals"), New System.Data.Common.DataColumnMapping("mutaelterasl", "mutaelterasl"), New System.Data.Common.DataColumnMapping("team", "team"), New System.Data.Common.DataColumnMapping("sort", "sort"), New System.Data.Common.DataColumnMapping("aktive", "aktive"), New System.Data.Common.DataColumnMapping("profiltyp", "profiltyp")})})
|
|
'
|
|
'SqlInsertCommand1
|
|
'
|
|
Me.SqlInsertCommand1.CommandText = "[pv_profil_insert]"
|
|
Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlInsertCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@profilnr", System.Data.SqlDbType.Int, 4, "profilnr"), New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "mitarbeiternr"), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 255, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 255, "beschreibung"), New System.Data.SqlClient.SqlParameter("@standard", System.Data.SqlDbType.Bit, 1, "standard"), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"), New System.Data.SqlClient.SqlParameter("@color1", System.Data.SqlDbType.VarChar, 50, "color1"), New System.Data.SqlClient.SqlParameter("@color2", System.Data.SqlDbType.VarChar, 50, "color2"), New System.Data.SqlClient.SqlParameter("@color3", System.Data.SqlDbType.VarChar, 50, "color3"), New System.Data.SqlClient.SqlParameter("@color4", System.Data.SqlDbType.VarChar, 50, "color4"), New System.Data.SqlClient.SqlParameter("@color5", System.Data.SqlDbType.VarChar, 50, "color5"), New System.Data.SqlClient.SqlParameter("@color6", System.Data.SqlDbType.VarChar, 50, "color6"), New System.Data.SqlClient.SqlParameter("@color7", System.Data.SqlDbType.VarChar, 50, "color7"), New System.Data.SqlClient.SqlParameter("@color8", System.Data.SqlDbType.VarChar, 50, "color8"), New System.Data.SqlClient.SqlParameter("@unterschriftlinks", System.Data.SqlDbType.Int, 4, "unterschriftlinks"), New System.Data.SqlClient.SqlParameter("@unterschriftrechts", System.Data.SqlDbType.Int, 4, "unterschriftrechts"), New System.Data.SqlClient.SqlParameter("@hw1", System.Data.SqlDbType.Int, 4, "hw1"), New System.Data.SqlClient.SqlParameter("@hw2", System.Data.SqlDbType.Int, 4, "hw2"), New System.Data.SqlClient.SqlParameter("@hw3", System.Data.SqlDbType.Int, 4, "hw3"), New System.Data.SqlClient.SqlParameter("@hw4", System.Data.SqlDbType.Int, 4, "hw4"), New System.Data.SqlClient.SqlParameter("@hw5", System.Data.SqlDbType.Int, 4, "hw5"), New System.Data.SqlClient.SqlParameter("@hw6", System.Data.SqlDbType.Int, 4, "hw6"), New System.Data.SqlClient.SqlParameter("@hw7", System.Data.SqlDbType.Int, 4, "hw7"), New System.Data.SqlClient.SqlParameter("@hw8", System.Data.SqlDbType.Int, 4, "hw8"), New System.Data.SqlClient.SqlParameter("@hw9", System.Data.SqlDbType.Int, 4, "hw9"), New System.Data.SqlClient.SqlParameter("@hw10", System.Data.SqlDbType.Int, 4, "hw10"), New System.Data.SqlClient.SqlParameter("@hw11", System.Data.SqlDbType.Int, 4, "hw11"), New System.Data.SqlClient.SqlParameter("@vmb", System.Data.SqlDbType.VarChar, 255, "vmb"), New System.Data.SqlClient.SqlParameter("@vnl", System.Data.SqlDbType.VarChar, 255, "vnl"), New System.Data.SqlClient.SqlParameter("@vkost", System.Data.SqlDbType.VarChar, 255, "vkost"), New System.Data.SqlClient.SqlParameter("@vteam", System.Data.SqlDbType.VarChar, 255, "vteam"), New System.Data.SqlClient.SqlParameter("@vma", System.Data.SqlDbType.VarChar, 255, "vma"), New System.Data.SqlClient.SqlParameter("@mmb", System.Data.SqlDbType.VarChar, 255, "mmb"), New System.Data.SqlClient.SqlParameter("@mnl", System.Data.SqlDbType.VarChar, 255, "mnl"), New System.Data.SqlClient.SqlParameter("@mkost", System.Data.SqlDbType.VarChar, 255, "mkost"), New System.Data.SqlClient.SqlParameter("@mteam", System.Data.SqlDbType.VarChar, 255, "mteam"), New System.Data.SqlClient.SqlParameter("@mma", System.Data.SqlDbType.VarChar, 255, "mma"), New System.Data.SqlClient.SqlParameter("@emb", System.Data.SqlDbType.VarChar, 255, "emb"), New System.Data.SqlClient.SqlParameter("@enl", System.Data.SqlDbType.VarChar, 255, "enl"), New System.Data.SqlClient.SqlParameter("@ekost", System.Data.SqlDbType.VarChar, 255, "ekost"), New System.Data.SqlClient.SqlParameter("@eteam", System.Data.SqlDbType.VarChar, 255, "eteam"), New System.Data.SqlClient.SqlParameter("@ema", System.Data.SqlDbType.VarChar, 255, "ema"), New System.Data.SqlClient.SqlParameter("@dpartner", System.Data.SqlDbType.VarChar, 255, "dpartner"), New System.Data.SqlClient.SqlParameter("@ddokart", System.Data.SqlDbType.VarChar, 255, "ddokart"), New System.Data.SqlClient.SqlParameter("@ddokstatus", System.Data.SqlDbType.VarChar, 255, "ddokstatus"), New System.Data.SqlClient.SqlParameter("@datum1", System.Data.SqlDbType.VarChar, 50, "datum1"), New System.Data.SqlClient.SqlParameter("@datum2", System.Data.SqlDbType.VarChar, 50, "datum2"), New System.Data.SqlClient.SqlParameter("@datum3", System.Data.SqlDbType.VarChar, 50, "datum3"), New System.Data.SqlClient.SqlParameter("@datum4", System.Data.SqlDbType.VarChar, 50, "datum4"), New System.Data.SqlClient.SqlParameter("@datum5", System.Data.SqlDbType.VarChar, 50, "datum5"), New System.Data.SqlClient.SqlParameter("@datum6", System.Data.SqlDbType.VarChar, 50, "datum6"), New System.Data.SqlClient.SqlParameter("@datum7", System.Data.SqlDbType.VarChar, 50, "datum7"), New System.Data.SqlClient.SqlParameter("@datum8", System.Data.SqlDbType.VarChar, 50, "datum8"), New System.Data.SqlClient.SqlParameter("@erstaelterals", System.Data.SqlDbType.VarChar, 50, "erstaelterals"), New System.Data.SqlClient.SqlParameter("@mutaelterasl", System.Data.SqlDbType.VarChar, 50, "mutaelterasl"), New System.Data.SqlClient.SqlParameter("@team", System.Data.SqlDbType.Int, 4, "team"), New System.Data.SqlClient.SqlParameter("@sort", System.Data.SqlDbType.VarChar, 1024, "sort"), New System.Data.SqlClient.SqlParameter("@aktive", System.Data.SqlDbType.Bit, 1, "aktive"), New System.Data.SqlClient.SqlParameter("@profiltyp", System.Data.SqlDbType.Int, 4, "profiltyp")})
|
|
'
|
|
'SqlSelectCommand1
|
|
'
|
|
Me.SqlSelectCommand1.CommandText = "[pv_profil_select]"
|
|
Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
|
|
Me.SqlSelectCommand1.Connection = Me.SqlConnection1
|
|
Me.SqlSelectCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "mitarbeiternr"), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr")})
|
|
'
|
|
'SqlConnection1
|
|
'
|
|
Me.SqlConnection1.ConnectionString = "data source=shu;initial catalog=edoka;persist security info=False;user id=sa;work" &
|
|
"station id=SHU;packet size=4096"
|
|
Me.SqlConnection1.FireInfoMessageEventOnUserErrors = False
|
|
'
|
|
'DataSet1
|
|
'
|
|
Me.DataSet1.DataSetName = "NewDataSet"
|
|
Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
|
|
'
|
|
'Timer1
|
|
'
|
|
Me.Timer1.Enabled = True
|
|
Me.Timer1.Interval = 900000.0R
|
|
Me.Timer1.SynchronizingObject = Me
|
|
'
|
|
'Timer2
|
|
'
|
|
Me.Timer2.Enabled = True
|
|
Me.Timer2.Interval = 5000.0R
|
|
Me.Timer2.SynchronizingObject = Me
|
|
'
|
|
'Panel1
|
|
'
|
|
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
|
Me.Panel1.Controls.Add(Me.Label1)
|
|
resources.ApplyResources(Me.Panel1, "Panel1")
|
|
Me.Panel1.Name = "Panel1"
|
|
Me.HelpProvider1.SetShowHelp(Me.Panel1, CType(resources.GetObject("Panel1.ShowHelp"), Boolean))
|
|
'
|
|
'Label1
|
|
'
|
|
Me.Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
|
resources.ApplyResources(Me.Label1, "Label1")
|
|
Me.Label1.ForeColor = System.Drawing.Color.Red
|
|
Me.Label1.Name = "Label1"
|
|
Me.HelpProvider1.SetShowHelp(Me.Label1, CType(resources.GetObject("Label1.ShowHelp"), Boolean))
|
|
'
|
|
'Timer3
|
|
'
|
|
Me.Timer3.Interval = 750.0R
|
|
Me.Timer3.SynchronizingObject = Me
|
|
'
|
|
'ToolStrip1
|
|
'
|
|
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton4, Me.ToolStripLabel1, Me.ToolStipComboBox1, Me.ToolStripSeparator1, Me.TSBtnSuche, Me.ToolStripButton2, Me.ToolStripSeparator2, Me.ToolStripButton1, Me.ToolStripButton3})
|
|
resources.ApplyResources(Me.ToolStrip1, "ToolStrip1")
|
|
Me.ToolStrip1.Name = "ToolStrip1"
|
|
Me.HelpProvider1.SetShowHelp(Me.ToolStrip1, CType(resources.GetObject("ToolStrip1.ShowHelp"), Boolean))
|
|
'
|
|
'ToolStripButton4
|
|
'
|
|
Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
|
resources.ApplyResources(Me.ToolStripButton4, "ToolStripButton4")
|
|
Me.ToolStripButton4.Name = "ToolStripButton4"
|
|
'
|
|
'ToolStripLabel1
|
|
'
|
|
Me.ToolStripLabel1.Name = "ToolStripLabel1"
|
|
resources.ApplyResources(Me.ToolStripLabel1, "ToolStripLabel1")
|
|
'
|
|
'ToolStipComboBox1
|
|
'
|
|
Me.ToolStipComboBox1.Name = "ToolStipComboBox1"
|
|
resources.ApplyResources(Me.ToolStipComboBox1, "ToolStipComboBox1")
|
|
'
|
|
'ToolStripSeparator1
|
|
'
|
|
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
|
|
resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1")
|
|
'
|
|
'TSBtnSuche
|
|
'
|
|
Me.TSBtnSuche.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
|
resources.ApplyResources(Me.TSBtnSuche, "TSBtnSuche")
|
|
Me.TSBtnSuche.Name = "TSBtnSuche"
|
|
'
|
|
'ToolStripButton2
|
|
'
|
|
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
|
resources.ApplyResources(Me.ToolStripButton2, "ToolStripButton2")
|
|
Me.ToolStripButton2.Name = "ToolStripButton2"
|
|
'
|
|
'ToolStripSeparator2
|
|
'
|
|
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
|
|
resources.ApplyResources(Me.ToolStripSeparator2, "ToolStripSeparator2")
|
|
'
|
|
'ToolStripButton1
|
|
'
|
|
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
|
resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1")
|
|
Me.ToolStripButton1.Name = "ToolStripButton1"
|
|
'
|
|
'ToolStripButton3
|
|
'
|
|
Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
|
resources.ApplyResources(Me.ToolStripButton3, "ToolStripButton3")
|
|
Me.ToolStripButton3.Name = "ToolStripButton3"
|
|
'
|
|
'ImageList1
|
|
'
|
|
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
|
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
|
Me.ImageList1.Images.SetKeyName(0, "")
|
|
Me.ImageList1.Images.SetKeyName(1, "")
|
|
Me.ImageList1.Images.SetKeyName(2, "")
|
|
Me.ImageList1.Images.SetKeyName(3, "")
|
|
Me.ImageList1.Images.SetKeyName(4, "")
|
|
Me.ImageList1.Images.SetKeyName(5, "")
|
|
Me.ImageList1.Images.SetKeyName(6, "")
|
|
'
|
|
'EDOKAMain
|
|
'
|
|
resources.ApplyResources(Me, "$this")
|
|
Me.Controls.Add(Me.Panel1)
|
|
Me.Controls.Add(Me.StatusBar1)
|
|
Me.Controls.Add(Me.ToolStrip1)
|
|
Me.IsMdiContainer = True
|
|
Me.Menu = Me.MainMenu1
|
|
Me.Name = "EDOKAMain"
|
|
Me.HelpProvider1.SetShowHelp(Me, CType(resources.GetObject("$this.ShowHelp"), Boolean))
|
|
CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.Timer1, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.Timer2, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.Panel1.ResumeLayout(False)
|
|
CType(Me.Timer3, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.ToolStrip1.ResumeLayout(False)
|
|
Me.ToolStrip1.PerformLayout()
|
|
Me.ResumeLayout(False)
|
|
Me.PerformLayout()
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
'Rel 4.0 - BUD - 2007.04.27 - Dim auskommentiert (brauchts nicht)
|
|
'Dim WithEvents f1 As New frmMeldungen()
|
|
|
|
Public fcheckdoc As New frmDefekteDokumente()
|
|
Dim ShowDefekteDokumente As Boolean = False
|
|
Dim ShowGeburtstag As Boolean = False
|
|
|
|
Dim WithEvents MyTimer As New System.Timers.Timer(900000)
|
|
Dim mytimerstopped As Boolean
|
|
|
|
Dim forceexit As Boolean = False
|
|
Dim pnr(10) As Integer
|
|
Dim spnr(10) As Integer
|
|
Dim shellparams As String
|
|
Dim barcodeid As String
|
|
|
|
|
|
Private Edoka_Gestartet As Boolean = False
|
|
|
|
|
|
Private Overloads Sub EDOKAMain_Load()
|
|
If Not Edoka_Gestartet Then
|
|
Dim baseSplash As SplashScreen
|
|
'Splash Screen
|
|
Me.WindowState = FormWindowState.Maximized
|
|
Me.Refresh()
|
|
baseSplash = New Splash()
|
|
SplashScreenController.Show(baseSplash, 3)
|
|
System.Threading.Thread.Sleep(0)
|
|
init_system()
|
|
If Globals.show_releasenotes Then
|
|
'RGL 20080612 RelNotes nur von DB lesen wenn auch angezeigt wird
|
|
getRelNotes(Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("relNotes"))
|
|
Dim f As New frmWordViewer()
|
|
'Rel. Office 2010
|
|
f.addressBar.Text = Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente") + "relNotes.docx"
|
|
f.Text = "Release-Informationen"
|
|
f.Show()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Function check_version() As Integer
|
|
Try
|
|
ChDir(DivFnkt.Get_Filename("", ""))
|
|
Catch
|
|
MkDir(DivFnkt.Get_Filename("", ""))
|
|
End Try
|
|
|
|
Try
|
|
If Globals.Applikationsdaten.Rows(0).Item("version") <> Globals.Version Then
|
|
MyMsg.show_standardmessage(42, MsgBoxStyle.Critical)
|
|
Application.Exit()
|
|
Globals.Force_Exit = True
|
|
Me.forceexit = True
|
|
Exit Function
|
|
Dim p As New EdokaUpd()
|
|
p.PrepareUpdate()
|
|
p = Nothing
|
|
Dim StartInfo As New ProcessStartInfo()
|
|
Dim S As String
|
|
Dim i As Integer
|
|
S = DivFnkt.Get_Filename("UpdateEdoka.cmd", "")
|
|
Me.shellparams = S
|
|
Me.forceexit = True
|
|
End If
|
|
Catch
|
|
End Try
|
|
End Function
|
|
|
|
'Rel 4.0 - BUD - 2007.04.27 - Auskommentiert, da auf Terminal Server nicht erlaubt.
|
|
'Private Function SetLocalSystemTime()
|
|
' 'Rel 3.2 bud - Set System Time
|
|
' 'Ruft den Befehl NET TIME auf. Somit wird die Lokale System Zeit mit dem Server abgeglichen.
|
|
' Try
|
|
' Dim aa
|
|
' aa = Shell("cmd.exe /C" & " NET TIME /SET /YES", AppWinStyle.Hide, False)
|
|
' Catch
|
|
' End Try
|
|
'End Function
|
|
|
|
Private Sub init_system()
|
|
|
|
'initialisierung
|
|
' Datenbank Connection initialisieren
|
|
Dim db_conn As New EDOKA.DB_Connection()
|
|
Globals.conn.sConnectionString = Globals.sConnectionString
|
|
Globals.EDOKAMAIN_Statusbar = Me.StatusBar1
|
|
|
|
'Benutzer auslesen
|
|
If Not Globals.Mitarbeiter.Get_Mitarbeiter Then
|
|
MyMsg.show_standardmessage(900, MsgBoxStyle.Critical)
|
|
End
|
|
End If
|
|
|
|
'aktuellerBenutzer für EdokaLib setzen
|
|
Dim aktuellerBenutzer As New EDOKALib.BusinessFacade.AktuellerBenutzer(Globals.MitarbeiterNr)
|
|
|
|
'initialisierung von logging by uwe 2006-10-16
|
|
Try
|
|
#If DEBUG Then
|
|
Dim c As New TKBLib.Errorhandling.Config(True) 'throw exceptions in errorhandling classes
|
|
#End If
|
|
#If Not DEBUG Then
|
|
msgbox("Nicht im Release-Mode betreiben, da EDK-SST nicht funktioniert")
|
|
Dim c As New TKBLib.Errorhandling.Config(False) 'do NOT throw exceptions in errorhandling classes
|
|
#End If
|
|
|
|
Dim paramLogLevel As EDOKALib.BusinessFacade.Parameter
|
|
Dim paramLogLevelUserJournal As EDOKALib.BusinessFacade.Parameter
|
|
Dim paramLogToFile As EDOKALib.BusinessFacade.Parameter
|
|
Dim paramLogFilePath As BusinessFacade.Parameter
|
|
|
|
|
|
paramLogLevel = EDOKALib.BusinessFacade.Config.GetParameter("LogLevel")
|
|
paramLogLevelUserJournal = EDOKALib.BusinessFacade.Config.GetParameter("LogLevelUserJournal")
|
|
paramLogToFile = EDOKALib.BusinessFacade.Config.GetParameter("LogToFile")
|
|
paramLogFilePath = EDOKALib.BusinessFacade.Config.GetParameter("LogFilePath")
|
|
|
|
Dim tl As System.Diagnostics.TraceLevel
|
|
Dim th As TKBLib.Errorhandling.TraceHelper
|
|
Dim t As New TKBLib.Errorhandling.Tracer()
|
|
|
|
If BusinessFacade.AktuellerBenutzer.Journalisierung Then
|
|
tl = CType(paramLogLevelUserJournal.Wert, System.Diagnostics.TraceLevel)
|
|
|
|
If CBool(paramLogToFile.Wert) = True And paramLogFilePath.Wert.Trim.Length > 0 Then
|
|
TKBLib.Errorhandling.Tracer.StartLoggingToTextFile(paramLogFilePath.Wert, True)
|
|
End If
|
|
Else
|
|
tl = CType(paramLogLevel.Wert, System.Diagnostics.TraceLevel)
|
|
End If
|
|
th = New TKBLib.Errorhandling.TraceHelper(tl)
|
|
TKBLib.Errorhandling.Tracer.StartLoggingToDatabase(Globals.sConnectionString, aktuellerBenutzer.MitarbeiterNr.ToString())
|
|
TKBLib.Errorhandling.TraceHelper.Msg("Edoka.edokamain.init_sys", "logging started", TraceLevel.Info)
|
|
|
|
Catch ex As Exception
|
|
Console.WriteLine(ex.Message + " " + ex.StackTrace)
|
|
End Try
|
|
|
|
'Rel 4.0 - BUD - wieder ausgebaut, da auf EDOKA auf Terminalserver läuft
|
|
' Rel 3.2 bud - Lokale Systemzeit setzen
|
|
' SetLocalSystemTime()
|
|
|
|
'System Prüfung / Vista / BUD Rel. 3.7 / -> leider keine schöne lösung
|
|
Dim AppRowID As Integer
|
|
If DivFnkt.FolderExist("C:\OS") Then
|
|
AppRowID = 2
|
|
Else
|
|
AppRowID = 1
|
|
End If
|
|
|
|
'Applikationsdaten laden
|
|
Dim Applikation As New edokaDB.clsApplikation()
|
|
Dim i As Integer
|
|
Applikation.cpMainConnectionProvider = Globals.conn
|
|
Applikation.iApplikationsnr = New SqlInt32(CType(AppRowID, Int32))
|
|
Applikation.sVersion = New SqlString(CType(Globals.Version, String))
|
|
'Globals.Applikationsdaten = Applikation.SelectOne
|
|
'Rel. 4.1
|
|
Globals.Applikationsdaten = DivFnkt.Get_Appldata(AppRowID, Globals.Version)
|
|
'Globals.Applikationsdaten = Applikation.SelectAll
|
|
If check_version() = False Then
|
|
If Me.forceexit Then Exit Sub
|
|
End If
|
|
|
|
For i = 0 To Globals.Applikationsdaten.Rows.Count - 1
|
|
If Globals.Applikationsdaten.Rows(i).Item("mandantnr") = Globals.MandantNr Then
|
|
Globals.AppldataRow = i
|
|
End If
|
|
Next
|
|
|
|
'20071129 RGL / KC Avaloq Anbindung
|
|
Globals.CutOverDatum = Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("CutoverDate")
|
|
Globals.SpoolerDir = Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("SpoolerDir")
|
|
''20080616 KC Neuanforderung Spoolerdir auf C:\ mit TGNUMMER!
|
|
Globals.SpoolerDir = Replace(Globals.SpoolerDir, "%TGNummer%", Globals.TGNummer)
|
|
Globals.SpoolerTempDir = Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("SpoolerTempDir")
|
|
Globals.DeleteSpoolerFile = Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("DeleteSpoolerFiles")
|
|
getSpoolerXSD(Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("XSD_File"))
|
|
'Globals.OutputDir_VorlagenExport = Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("OutputDir_Vorlagenexport")
|
|
|
|
If Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("showlogin") = True Then
|
|
If Globals.Mitarbeiter.Check_Allow_Login = 1 Then
|
|
Dim frm As New frmLogin()
|
|
frm.cbMitarbeiter.Select()
|
|
frm.ShowDialog()
|
|
If frm.Mitarbeiternr = -99999 Then
|
|
Close()
|
|
Exit Sub
|
|
End If
|
|
End If
|
|
|
|
End If
|
|
|
|
|
|
If Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("showlogin") = False Then
|
|
'Me.mnuLoginSplit.Visible = False
|
|
Me.MnuNewLogin.Visible = False
|
|
Me.Panel1.Visible = False
|
|
Me.Label1.Visible = False
|
|
Else
|
|
Me.MnuNewLogin.Visible = True
|
|
Me.Label1.Visible = True
|
|
Me.Panel1.Visible = True
|
|
Me.Label1.Text = "Test-/Schulungsumgebung Datenbank: [" + Globals.conn.scoDBConnection.DataSource.ToString + "." + Globals.conn.scoDBConnection.Database.ToString + "]"
|
|
End If
|
|
|
|
'Rel 3.73 / BUD
|
|
fMehrfachdruck = New frmMehrfachdruck()
|
|
fMehrfachdruck.MdiParent = Me
|
|
fMehrfachdruck.Visible = False
|
|
fMehrfachdruck.Hide()
|
|
fMehrfachdruck.InitForm()
|
|
|
|
'Rel 4.1
|
|
Dim tmpsysadmin As New edokaDB.clsMySysadminfunkion
|
|
tmpsysadmin.cpMainConnectionProvider = Globals.conn
|
|
If tmpsysadmin.Check_for_MenuEntries = False Then Me.MnuSystemadministration_Neu.Visible = False Else Me.MnuSystemadministration_Neu.Visible = True
|
|
tmpsysadmin.Dispose()
|
|
|
|
If DivFnkt.check_blv = False Then
|
|
Me.mnublpartneruebersicht.Visible = False
|
|
Else
|
|
Me.mnublpartneruebersicht.Visible = True
|
|
End If
|
|
|
|
If DivFnkt.CheckSA(Globals.MitarbeiterNr) = True Then Mnu_DokumenteSelbstanzeigen.Visible = True Else Mnu_DokumenteSelbstanzeigen.Visible = False
|
|
If DivFnkt.CheckMD(Globals.MitarbeiterNr) = True Then Mnu_DokumenteMehrfachdruck.Visible = True Else Mnu_DokumenteMehrfachdruck.Visible = False
|
|
|
|
If DivFnkt.BarcodeEtiketten_Berechtigt = False Then
|
|
Me.MenuItem11.Enabled = False
|
|
Else
|
|
Me.MenuItem11.Enabled = True
|
|
End If
|
|
refresh_menu_trefferliste()
|
|
Delete_Old_Files()
|
|
MyTimer.Interval = Globals.Applikationsdaten.Rows(0).Item("Zeitintervall_in_minuten") * 60 * 1000
|
|
AddHandler MyTimer.Elapsed, AddressOf TimerFired
|
|
MyTimer.Start()
|
|
mytimerstopped = False
|
|
Me.fcheckdoc.MdiParent = Me
|
|
Me.fcheckdoc.fnkt = 1
|
|
'Rel 4.0 - BUD - 21.05.2007 Fehlerhafte Dokumente nur anzeigen wenn kein Start aus XML.
|
|
If Action.Action.ActionType = 0 Then check_doc_abschluss(True)
|
|
|
|
Dim ma As New edokaDB.clsMitarbeiter()
|
|
ma.cpMainConnectionProvider = Globals.conn
|
|
ma.iMitarbeiternr = New SqlTypes.SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
|
ma.SelectOne()
|
|
Globals.show_releasenotes = ma.bShowtip.Value = True
|
|
ma.bShowtip = New SqlTypes.SqlBoolean(CType(False, Boolean))
|
|
conn.OpenConnection()
|
|
ma.Update()
|
|
conn.CloseConnection(True)
|
|
ma.Dispose()
|
|
Try
|
|
Me.HelpProvider1.HelpNamespace = Application.StartupPath + "\benudok.chm"
|
|
Catch
|
|
End Try
|
|
Try
|
|
DivFnkt.Gesperrte_Dokumente_Loeschen()
|
|
Catch
|
|
End Try
|
|
|
|
'Rel 3.5 / BUD
|
|
'Prüfen ob der angemeldete User Geburstag hat.
|
|
If Check_Geburtstag(Globals.MitarbeiterNr) = 1 Then
|
|
Dim frm As New frmGeburtstag()
|
|
frm.MdiParent = Me
|
|
frm.StartPosition = FormStartPosition.CenterScreen
|
|
frm.TopMost = True
|
|
frm.Show()
|
|
Me.ShowGeburtstag = True
|
|
End If
|
|
|
|
|
|
|
|
|
|
'REL 3.7 / SHU
|
|
'Ein bzw. Ausblenden der Serienbrief-Funktionalitäten
|
|
If Me.Check_show_sb = False Then
|
|
Me.mnuserienbriefe.Visible = False
|
|
Me.mnuPartnerlisten.Visible = False
|
|
Me.MenuItem66.Visible = False
|
|
Else
|
|
Me.mnuserienbriefe.Visible = True
|
|
Me.mnuPartnerlisten.Visible = True
|
|
Me.MenuItem66.Visible = True
|
|
End If
|
|
|
|
'Rel. Office 2010
|
|
Dim d As New DocMgmt
|
|
d.get_office_2010_XML_File(Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente") + "Office_2010.xml")
|
|
d = Nothing
|
|
|
|
Globals.Office_2010_Standard_Dokumentviewer = UCase(DivFnkt.Get_Office_2010_Param(2)) = "TRUE"
|
|
Globals.Office_2010_Word_Autoexec = UCase(DivFnkt.Get_Office_2010_Param(3)) = "TRUE"
|
|
Globals.Office_2010_Word_Start_Delay = DivFnkt.Get_Office_2010_Param(4)
|
|
Globals.Office_2010_DocView_Nativ = UCase(DivFnkt.Get_Office_2010_Param(5)) = "TRUE"
|
|
Globals.Office_2010_Always_New_Word = UCase(DivFnkt.Get_Office_2010_Param(6)) = "TRUE"
|
|
Globals.Office_2010_Always_New_Excel = UCase(DivFnkt.Get_Office_2010_Param(7)) = "TRUE"
|
|
|
|
'20170730
|
|
DivFnkt.Get_Office2016_Params()
|
|
End Sub
|
|
Private Sub getSpoolerXSD(ByVal xsd As Byte())
|
|
'Checken ob Spooler Ordner vorhanden sind.
|
|
If Directory.Exists(Globals.SpoolerDir) = False Then
|
|
Directory.CreateDirectory(Globals.SpoolerDir)
|
|
End If
|
|
|
|
Dim K As Long
|
|
K = UBound(xsd)
|
|
Dim fs As New FileStream(Globals.SpoolerDir & "\EdokaActionInterface.xsd", FileMode.Create, FileAccess.Write)
|
|
fs.Write(xsd, 0, K)
|
|
fs.Close()
|
|
fs = Nothing
|
|
|
|
|
|
End Sub
|
|
Private Sub getRelNotes(ByVal relNotes As Byte())
|
|
Dim K As Long
|
|
K = UBound(relNotes)
|
|
Try
|
|
'Rel. Office 2010
|
|
|
|
Dim fs As New FileStream(Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente") + "relNotes.docx", FileMode.Create, FileAccess.Write)
|
|
fs.Write(relNotes, 0, K)
|
|
fs.Close()
|
|
fs = Nothing
|
|
Catch ex As Exception
|
|
End Try
|
|
|
|
End Sub
|
|
Private Function Check_offene_dp_instanzen() As Boolean
|
|
Dim f As New frmOffeneDPInstanzen()
|
|
Dim d As DataTable
|
|
d = f.Generic_Select(1)
|
|
If d.Rows.Count > 0 Then
|
|
f.Show()
|
|
f.Left = Me.Width - f.Width - 10
|
|
f.MdiParent = Me
|
|
Return True
|
|
Else
|
|
f.Dispose()
|
|
Return False
|
|
End If
|
|
End Function
|
|
|
|
Private Function Check_Geburtstag(ByVal iMitarbeiterNr As Integer) As Integer
|
|
Check_Geburtstag = 0
|
|
Try
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim s As String
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.sp_check_geburtstag"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iMANR", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, iMitarbeiterNr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@iReturn", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Check_Geburtstag = scmCmdToExecute.Parameters.Item("@iReturn").Value
|
|
Catch ex As Exception
|
|
|
|
Throw New Exception("::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
Catch
|
|
|
|
End Try
|
|
End Function
|
|
|
|
Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
|
|
If Globals.Bearbeitung_Problemdokumente Then Globals.Global_ForceExit = True
|
|
Me.Close()
|
|
End Sub
|
|
|
|
'Rel. 4.03 Aktive Dokumenterstellungsfenster immer im Vordergund halten
|
|
'Private Sub EDOKAMain_MdiChildActivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MdiChildActivate
|
|
' Dim p As Boolean = False
|
|
' Dim d As Boolean = False
|
|
' Dim v As Boolean = False
|
|
' Dim pf As Form
|
|
' Dim df As Form
|
|
' Dim vf As Form
|
|
' For Each f As Form In Me.MdiChildren
|
|
' If f.Name = "frmDokumentbearbeitung" Then
|
|
' d = True
|
|
' df = f
|
|
' End If
|
|
' If f.Name = "frmDokumentbearbeitungBC" Then
|
|
' d = True
|
|
' df = f
|
|
' End If
|
|
' If f.Name = "frmDokumentbearbeitungED" Then
|
|
' d = True
|
|
' df = f
|
|
' End If
|
|
' 'If f.Name = "frmDokumentpaket" Then
|
|
' 'd = True
|
|
' 'df = f
|
|
' 'End If
|
|
' If f.Name = "FrmPartnersuche" Then
|
|
' p = True
|
|
' pf = f
|
|
' End If
|
|
' If f.Name = "frmVorlagenauswahl" Then
|
|
' v = True
|
|
' vf = f
|
|
' End If
|
|
' Next
|
|
' If p Then
|
|
' pf.Activate()
|
|
' Exit Sub
|
|
' End If
|
|
' If d Then
|
|
' df.Activate()
|
|
' Exit Sub
|
|
' End If
|
|
' If v Then
|
|
' vf.Activate()
|
|
' Exit Sub
|
|
' End If
|
|
'End Sub
|
|
|
|
|
|
Private Sub edokamain_resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize
|
|
'Me.MandantRolle.Left = Me.Right - Me.MandantRolle.Width
|
|
Globals.EDOKAMAIN_WindowHeight = Me.Height
|
|
Globals.EDOKAMAIN_WindowWidth = Me.Width
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
End Sub
|
|
|
|
Private Sub MenuItem12_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuNewLogin.Click
|
|
init_system()
|
|
End Sub
|
|
|
|
Private Sub MenuItem12_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem12.Click
|
|
Me.LayoutMdi(System.Windows.Forms.MdiLayout.TileHorizontal)
|
|
End Sub
|
|
|
|
Private Sub MenuItem13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem13.Click
|
|
Me.LayoutMdi(System.Windows.Forms.MdiLayout.TileVertical)
|
|
End Sub
|
|
|
|
Private Sub MenuItem14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem14.Click
|
|
Me.LayoutMdi(System.Windows.Forms.MdiLayout.Cascade)
|
|
End Sub
|
|
|
|
Sub close_all_childs()
|
|
Dim c As Windows.Forms.Form
|
|
For Each c In Me.MdiChildren
|
|
c.Close()
|
|
Next
|
|
End Sub
|
|
|
|
Private Sub MenuItem15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem15.Click
|
|
close_all_childs()
|
|
End Sub
|
|
|
|
Private Sub MenuItem16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem16.Click
|
|
Dim f As New frmPartnerHost()
|
|
f.Show()
|
|
End Sub
|
|
|
|
Private Sub EDOKAMain_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
|
|
Dim bExit As Boolean = True
|
|
Dim lcnt As Integer
|
|
|
|
Dim f As New frmDefekteDokumente
|
|
f.fnkt = 3
|
|
f.refresh_list()
|
|
If f.t.Rows.Count > 0 Then
|
|
If MyMsg.Show_MessageYesNo(910000) = MsgBoxResult.Yes Then
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
e.Cancel = True
|
|
Exit Sub
|
|
Else
|
|
f.Dispose()
|
|
End If
|
|
Else
|
|
f.Dispose()
|
|
End If
|
|
''check Problemdokumente
|
|
'If Globals.Bearbeitung_Problemdokumente = True Then
|
|
' e.Cancel = True
|
|
' bExit = False
|
|
'End If
|
|
|
|
'Anwendung beenden?
|
|
If MyMsg.Show_MessageYesNo(1) = MsgBoxResult.No Then
|
|
bExit = False
|
|
End If
|
|
|
|
' look for Word Processes
|
|
If Globals.Words.Count > 0 And bExit = True Then
|
|
'Fragen ob Beenden ohne zu speichern
|
|
|
|
If MyMsg.Show_MessageYesNo(21) = MsgBoxResult.Yes Then
|
|
e.Cancel = True
|
|
bExit = False
|
|
Else
|
|
Try
|
|
'Rel 3.2 bud
|
|
'Offene Dokumente schliessen und Word beenden.
|
|
Dim tempWordLib As New WordLib()
|
|
For lcnt = 1 To Globals.Words.Count
|
|
tempWordLib = Globals.Words(lcnt)
|
|
tempWordLib.CloseDocAndWord()
|
|
'Globals.Words.Remove(lcnt)
|
|
Next lcnt
|
|
|
|
fcheckdoc.Hide()
|
|
fcheckdoc.fnkt = 2
|
|
fcheckdoc.refresh_list()
|
|
If fcheckdoc.t.Rows.Count > 0 Then
|
|
'Problemdokumente bereinigen?
|
|
If MyMsg.Show_MessageYesNo(119) <> MsgBoxResult.No Then
|
|
e.Cancel = True
|
|
bExit = False
|
|
Me.fcheckdoc.Visible = True
|
|
End If
|
|
End If
|
|
Catch
|
|
End Try
|
|
End If
|
|
End If
|
|
|
|
' nur Fragen, wenn alles vorgänige OK war...
|
|
If bExit = True Then
|
|
If Not IsNothing(objSpooler) Then
|
|
If objSpooler.FilesInSpooler = True Then
|
|
'Fragen ob Beenden obwohl noch files im Spooler?!!
|
|
If MyMsg.Show_MessageYesNo(141) = MsgBoxResult.No Then
|
|
e.Cancel = True
|
|
bExit = False
|
|
objSpooler.Visible = True
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
If bExit = True Then
|
|
DivFnkt.deldokinuse(Globals.MitarbeiterNr)
|
|
Office_Freigeben()
|
|
Application.Exit()
|
|
Else
|
|
e.Cancel = True
|
|
Exit Sub
|
|
End If
|
|
|
|
|
|
'Dim nBeenden As Boolean
|
|
'Dim lcnt As Integer
|
|
'Dim boolSpoolerEndEDOKA As Boolean = False
|
|
'nBeenden = False
|
|
'If Globals.Bearbeitung_Problemdokumente = True Then
|
|
' Globals.Global_ForceExit = True
|
|
' Exit Sub
|
|
'End If
|
|
|
|
'If Not Me.forceexit Then
|
|
' If Globals.Words.Count > 0 Then
|
|
' nBeenden = True
|
|
' If MyMsg.Show_MessageYesNo(21) <> MsgBoxResult.No Then
|
|
' e.Cancel = True
|
|
' Exit Sub
|
|
' Else
|
|
' Try
|
|
' 'Rel 3.2 bud
|
|
' 'Offene Dokumente schliessen und Word beenden.
|
|
' Dim tempWordLib As New WordLib()
|
|
' For lcnt = 1 To Globals.Words.Count
|
|
' tempWordLib = Globals.Words(lcnt)
|
|
' tempWordLib.CloseDocAndWord()
|
|
' 'Globals.Words.Remove(lcnt)
|
|
' Next lcnt
|
|
|
|
' fcheckdoc.Hide()
|
|
' fcheckdoc.fnkt = 2
|
|
' fcheckdoc.refresh_list()
|
|
' If fcheckdoc.t.Rows.Count > 0 Then
|
|
' If MyMsg.Show_MessageYesNo(119) = MsgBoxResult.No Then
|
|
' Office_Freigeben()
|
|
' Exit Sub
|
|
' Else
|
|
' e.Cancel = True
|
|
' Me.fcheckdoc.Visible = True
|
|
' Exit Sub
|
|
' End If
|
|
' End If
|
|
' Catch
|
|
' End Try
|
|
' End If
|
|
' End If
|
|
' Try
|
|
' fcheckdoc.Hide()
|
|
' fcheckdoc.fnkt = 2
|
|
' fcheckdoc.refresh_list()
|
|
' If fcheckdoc.t.Rows.Count > 0 Then
|
|
' If MyMsg.Show_MessageYesNo(119) = MsgBoxResult.No Then
|
|
' Office_Freigeben()
|
|
' Exit Sub
|
|
' Else
|
|
' e.Cancel = True
|
|
' Me.fcheckdoc.Visible = True
|
|
' Exit Sub
|
|
' End If
|
|
' End If
|
|
|
|
' ' Check for Spooler Files
|
|
|
|
' If Not IsNothing(objSpooler) Then
|
|
' If objSpooler.FilesInSpooler = True Then
|
|
' If MyMsg.Show_MessageYesNo(141) = MsgBoxResult.No Then
|
|
' e.Cancel = True
|
|
' objSpooler.Visible = True
|
|
' Exit Sub
|
|
' Else
|
|
' boolSpoolerEndEDOKA = True
|
|
' End If
|
|
' End If
|
|
|
|
' End If
|
|
' If boolSpoolerEndEDOKA = False Then
|
|
' If MyMsg.Show_MessageYesNo(1) = MsgBoxResult.No Then
|
|
' Exit Sub
|
|
' End If
|
|
' End If
|
|
' Catch ex As Exception
|
|
' End Try
|
|
|
|
'End If
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub Office_Freigeben()
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Me.close_all_childs()
|
|
Dim f As New frmWaitforClosing()
|
|
f.ProgressBar1.Maximum = 100
|
|
f.ProgressBar1.Minimum = 0
|
|
f.ProgressBar1.Value = 10
|
|
f.Show()
|
|
Dim w As New WordLib()
|
|
w.Office_Freigeben(f)
|
|
w = Nothing
|
|
f.ProgressBar1.Value = 100
|
|
f.Hide()
|
|
f.Dispose()
|
|
|
|
End Sub
|
|
|
|
Private Function check_doc_abschluss(ByVal START As Boolean) As Boolean
|
|
|
|
fcheckdoc.Hide()
|
|
fcheckdoc.fnkt = 2
|
|
fcheckdoc.refresh_list()
|
|
If fcheckdoc.t.Rows.Count > 0 Then
|
|
If START Then
|
|
fcheckdoc.Start = True
|
|
Me.ShowDefekteDokumente = True
|
|
fcheckdoc.TopMost = True
|
|
fcheckdoc.Show()
|
|
Return True
|
|
Exit Function
|
|
End If
|
|
Else
|
|
fcheckdoc.fnkt = 1
|
|
Return False
|
|
End If
|
|
End Function
|
|
|
|
#Region "SingleInstance"
|
|
|
|
|
|
|
|
|
|
'Rel 4.02 20080820 - Save EDK-File
|
|
Public Sub save_edkfile(ByVal status As Integer, ByVal datei As FileInfo)
|
|
Dim Connection As New SqlConnection()
|
|
Dim DA As New SqlDataAdapter("select * from edk_log where rowid=-1 ", Connection)
|
|
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
|
|
Dim ds As New DataSet()
|
|
Dim fs As New FileStream(datei.FullName, FileMode.OpenOrCreate, FileAccess.Read)
|
|
Dim mydata(fs.Length) As Byte
|
|
fs.Read(mydata, 0, fs.Length)
|
|
fs.Close()
|
|
Try
|
|
Connection.ConnectionString = Globals.sConnectionString
|
|
Connection.Open()
|
|
DA.Fill(ds, "edk_log")
|
|
Dim myRow As DataRow
|
|
If ds.Tables(0).Rows.Count = 0 Then
|
|
' Neues Dokument speichern
|
|
myRow = ds.Tables(0).NewRow
|
|
myRow.Item(1) = status
|
|
myRow.Item(2) = MitarbeiterNr
|
|
myRow.Item(5) = Now
|
|
myRow.Item(6) = mydata
|
|
myRow.Item(7) = datei.FullName
|
|
ds.Tables(0).Rows.Add(myRow)
|
|
DA.Update(ds, "edk_log")
|
|
End If
|
|
Catch ex As Exception
|
|
End Try
|
|
fs = Nothing
|
|
cb = Nothing
|
|
ds = Nothing
|
|
DA = Nothing
|
|
Connection.Close()
|
|
Connection = Nothing
|
|
End Sub
|
|
' Ende Rel. 4.02
|
|
|
|
|
|
Dim Parameters() As String
|
|
Dim on_Create As Boolean = False
|
|
|
|
'1st: sorry för die dummy variable
|
|
'2nd: werd bruucht, weil cmd args äntweder RECHTIG als cmdargs chömed, oder aber als args vo enere andere
|
|
' edokàà instanz. die rechtige args müend dorom bim app start ine dummy var gschrebe werde, dass es
|
|
' för beidi lauft... super ech weiss...
|
|
'3th: CODE NIE ÖPPIS ESO WIE DAS DO SOSCHT CHOMI OND VERHAU DI!!
|
|
Public CmdArgsSimulated() As String
|
|
|
|
''' <summary>
|
|
''' Release 4.03 Folgeinstanzen anders behandeln (Folgeinstaz=True, wird aus MyApplication_StartupNextInstance übergeben)
|
|
''' </summary>
|
|
''' <param name="strArgs"></param>
|
|
''' <param name="Folgeinstanz"></param>
|
|
''' <remarks></remarks>
|
|
Public Sub HandleCommand(ByVal strArgs() As String, Optional ByVal Folgeinstanz As Boolean = False)
|
|
|
|
Dim spoolerDone As Boolean = False
|
|
'Rel 4.02 20080820 - neue Variable
|
|
Dim EDKB12 As Boolean = False
|
|
|
|
If UCase(Microsoft.VisualBasic.Left(Globals.conn.scoDBConnection.DataSource.ToString, 3)) = "TGT" Then
|
|
Me.BackColor = Color.Yellow
|
|
End If
|
|
|
|
Try
|
|
If Not IsNothing(strArgs) Then
|
|
If strArgs.Length > 0 Then
|
|
'mindestens ein arg
|
|
If strArgs(0).Length > Consts.ACTION_FILE_EXTENSION.Length + 1 Then
|
|
'erstes argu überprüfen ob action extension hat
|
|
'argument muss mindestens so lang sein wie die extension + 1
|
|
If UCase(strArgs(0).Substring(strArgs(0).Length - Consts.ACTION_FILE_EXTENSION.Length, Consts.ACTION_FILE_EXTENSION.Length)) = UCase(Consts.ACTION_FILE_EXTENSION) Then
|
|
'arg hat action xml file extension -> ist warscheinlich au eis;)
|
|
Try
|
|
Dim fi As New FileInfo(strArgs(0).ToString())
|
|
Action.Action.Load(fi)
|
|
|
|
Catch exAction As ActionException
|
|
If IsNothing(objSpooler) = False Then
|
|
objSpooler.fileCorrupted = True
|
|
End If
|
|
TKBLib.Errorhandling.TraceHelper.Msg("Edoka.mMain.Main", exAction.Message & exAction.StackTrace, TraceLevel.Error)
|
|
'Rel 4.03 20080820
|
|
Dim fi As New FileInfo(strArgs(0).ToString())
|
|
Dim f As New frmErrorAVQ_File(strArgs(0).ToString)
|
|
f.ShowDialog()
|
|
If fi.Length > 0 Then
|
|
If Edoka_Gestartet = False Then
|
|
init_system()
|
|
End If
|
|
save_edkfile(-1, fi)
|
|
fi.Delete()
|
|
End If
|
|
strArgs = Nothing
|
|
'MsgBox("Bei der automatischen Verarbeitung ist ein Fehler aufgetreten." & vbCrLf & vbCrLf & "Die anglieferte Datei kann nicht verarbeitet werden", MsgBoxStyle.Exclamation)
|
|
'Ende Rel 4.02
|
|
'MsgBox("Bei der automatischen Verarbeitung ist ein Fehler aufgetreten. Die aus dem Fremdsystem generierte XML-Datei kann in EDOKA nicht geladen werden. Edoka wird normal gestartet.", MsgBoxStyle.Exclamation)
|
|
End Try
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
Catch ex As Exception
|
|
TKBLib.Errorhandling.TraceHelper.Msg("Edoka.mMain.Main", ex.Message & ex.StackTrace, TraceLevel.Error)
|
|
TKBLib.Errorhandling.TraceHelper.Msg("Schnittstelle", "Fehler", TraceLevel.Info)
|
|
End Try
|
|
|
|
|
|
Dim strCmd As String
|
|
'handlecommand wird von mehreren orten aufgerufen. weil keine ahnung wie alles zusammenhängt auf
|
|
'nothing überprüfen
|
|
If Not IsNothing(strArgs) Then
|
|
If strArgs.Length > 0 And Edoka_Gestartet = True And IsNothing(objSpooler) Then
|
|
|
|
objSpooler = New frmAvaloqSpooler()
|
|
objSpooler.FileWatchDir = Globals.SpoolerDir
|
|
|
|
objSpooler.MdiParent = Me
|
|
|
|
objSpooler.Show()
|
|
objSpooler.actionIsRunning = False
|
|
|
|
End If
|
|
End If
|
|
|
|
|
|
If Edoka_Gestartet = False And IsNothing(objSpooler) = True Then
|
|
|
|
If IsNothing(strArgs) Then
|
|
Win32API.SetForegroundWindow(Me.Handle.ToInt32)
|
|
EDOKAMain_Load()
|
|
Else
|
|
If strArgs.Length = 0 Then
|
|
Win32API.SetForegroundWindow(Me.Handle.ToInt32)
|
|
EDOKAMain_Load()
|
|
Else
|
|
Win32API.SetForegroundWindow(Me.Handle.ToInt32)
|
|
init_system()
|
|
'Rel. 4.02 20080820 Save EDK-File in EDK_Log
|
|
Try
|
|
Dim fi As New FileInfo(strArgs(0).ToString())
|
|
save_edkfile(-1, fi)
|
|
Catch ex As Exception
|
|
End Try
|
|
' Ende Rel. 4.02
|
|
End If
|
|
End If
|
|
Edoka_Gestartet = True
|
|
Else
|
|
'Rel. 4.03 - korrektes EDK-File speichern
|
|
Try
|
|
|
|
If IsNothing(objSpooler) = False Then
|
|
If strArgs.Length > 0 Then
|
|
Dim fi As New FileInfo(strArgs(0).ToString())
|
|
save_edkfile(-1, fi)
|
|
End If
|
|
End If
|
|
Catch ex As Exception
|
|
End Try
|
|
End If
|
|
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
|
|
|
|
If Me.forceexit Then
|
|
Me.Close()
|
|
Exit Sub
|
|
End If
|
|
|
|
'Release 4.03 If um Folgeinstanz-Parameter erweitern
|
|
If Me.ShowDefekteDokumente = False And
|
|
Me.ShowGeburtstag = False And
|
|
Check_offene_dp_instanzen() = False And
|
|
Action.Action.ActionType = 0 And Folgeinstanz = False Then
|
|
|
|
'BUD - 2007.04.16
|
|
Try
|
|
'Dim ff As New frmTreehandler
|
|
'ff.MdiParent = Me
|
|
'ff.Show()
|
|
|
|
Dim f As New frmTrefferliste()
|
|
f.MdiParent = Me
|
|
f.Partner_Eingegeben = False
|
|
f.Show()
|
|
'f.refresh_list()
|
|
|
|
If DivFnkt.checkSpoolerDir And Action.Action.ActionType = 0 Then
|
|
' Einblenden des Spoolers fals true
|
|
If IsNothing(objSpooler) = True Then
|
|
objSpooler = New frmAvaloqSpooler
|
|
End If
|
|
|
|
objSpooler.MdiParent = Me
|
|
objSpooler.Show()
|
|
'objSpooler.Visible = True
|
|
objSpooler.actionIsRunning = False
|
|
objSpooler.refreshList()
|
|
End If
|
|
|
|
Catch ex As ActionException
|
|
|
|
End Try
|
|
|
|
End If
|
|
Try
|
|
Me.Cursor = System.Windows.Forms.Cursors.Default
|
|
Globals.Apphandle = Me.Handle.ToInt32
|
|
Globals.Apphandle = Win32API.FindWindowNullClassName(0, "EDOKA")
|
|
|
|
Win32API.SetForegroundWindow(Me.Handle.ToInt32)
|
|
'Rel 4.03 - Nur beim ersten Start maximieren
|
|
If Not Folgeinstanz Then Me.WindowState = FormWindowState.Maximized
|
|
Catch
|
|
End Try
|
|
'Rel 4.0 - BUD - neu den Action Typ prüfen, Fehlerdokumente nur anzeigen wenn EDOKA ohne XML startet.
|
|
If Me.ShowDefekteDokumente And Action.Action.ActionType = 0 Then
|
|
Globals.Bearbeitung_Problemdokumente = True
|
|
Me.fcheckdoc.StartPosition = FormStartPosition.CenterScreen
|
|
Me.fcheckdoc.Show()
|
|
Me.fcheckdoc.TopMost = True
|
|
End If
|
|
|
|
'überprüfen ob erstes arguent xml file für automatisierte aktion ist
|
|
Dim fileCorrupted As Boolean = False
|
|
Dim errString As String = ""
|
|
Try
|
|
If Action.Action.ActionType <> 0 Then
|
|
TKBLib.Errorhandling.TraceHelper.Msg("Edoka.frmEdokaMain.HandleCommand", "Analysing automated action for type " & Action.Action.ActionType.ToString(), TraceLevel.Info)
|
|
If IsNothing(objSpooler) Then
|
|
objSpooler = New frmAvaloqSpooler
|
|
objSpooler.MdiParent = Me
|
|
|
|
objSpooler.Show()
|
|
objSpooler.actionIsRunning = False
|
|
|
|
End If
|
|
|
|
objSpooler.Show()
|
|
If DivFnkt.Check_SourceApplication(Action.Action.SourceApplication) = False Then
|
|
MsgBox("Der Aufruf der EDK-Datei ist ungültig, da er nicht für die richtige Datenbank-Instanz ist (" + Action.Action.SourceApplication + "). Der Aufruf wird ignoriert.", vbInformation)
|
|
spoolerDone = True
|
|
Exit Sub
|
|
End If
|
|
'If DivFnkt.Check_SourceApplication(Action.Action.SourceApplication) = False Then
|
|
' MsgBox("Die zu verarbeitende XML-Datei ist nicht für die aktuelle Umgebung (" + Action.Action.SourceApplication + ")")
|
|
'Exit Sub
|
|
'End If
|
|
Select Case Action.Action.ActionType
|
|
|
|
Case ActionType.AnzeigePartnerdossier
|
|
Dim CancelAction As Boolean
|
|
CancelAction = objSpooler.FilesInSpooler
|
|
objSpooler.refreshList()
|
|
If CancelAction = False Or objSpooler.StartManuell = True Then
|
|
objSpooler.StartManuell = False
|
|
|
|
objSpooler.actionIsRunning = True
|
|
Dim f As New frmTrefferliste()
|
|
f.MdiParent = objSpooler.MdiParent
|
|
f.Show()
|
|
|
|
Dim partner As Parameter
|
|
partner = Action.Action.GetParameterByName("PartnerNr")
|
|
f.txtnrpar00.Text = partner.Value
|
|
f.Partnernr = partner.Value
|
|
f.Partner_Eingegeben = True
|
|
'f.OnAfterExpand = True
|
|
'f.FromAvaloq = True
|
|
|
|
f.DoKeyenter()
|
|
'f.refresh_list()
|
|
|
|
Try
|
|
If f.tvstruktur.Nodes(0).Tag = f.txtnrpar00.Text Then
|
|
f.tvstruktur.SelectedNode = f.tvstruktur.Nodes(0)
|
|
Else
|
|
|
|
' DivFnkt.Searchnode3(f.tvstruktur, f.tvstruktur.SelectedNode.Tag, 0)
|
|
DivFnkt.Searchnode(f.tvstruktur, f.txtnrpar00.Text, 0)
|
|
f.tvstruktur.SelectedNode = f.tvstruktur.Nodes(0)
|
|
f.tvstruktur.SelectedNode = DivFnkt.FoundNode
|
|
End If
|
|
|
|
Catch
|
|
End Try
|
|
f.FromAvaloq = False
|
|
|
|
f.OnAfterExpand = False
|
|
|
|
'
|
|
'Rel 4.03 - Refresh all ausbauen
|
|
'f.Refresh_All(True)
|
|
Me.Cursor = System.Windows.Forms.Cursors.Default
|
|
'Globals.Apphandle = Me.Handle.ToInt32
|
|
'Win32API.SetForegroundWindow(Me.Handle.ToInt32)
|
|
'Win32API.ShowWindow(Me.Handle.ToInt32, Win32API.SW_RESTORE)
|
|
spoolerDone = True
|
|
Exit Sub
|
|
End If
|
|
|
|
Case ActionType.DokumentAnzeige
|
|
Dim CancelAction As Boolean
|
|
Dim dokumentArt As String = Action.Action.GetParameterByName("DokumentTypNr").Value
|
|
If dokumentArt <> "" Then
|
|
dokumentArt = CInt(dokumentArt) - 900000000
|
|
End If
|
|
CancelAction = objSpooler.FilesInSpooler
|
|
objSpooler.refreshList()
|
|
If CancelAction = False Or objSpooler.StartManuell = True Then
|
|
objSpooler.StartManuell = False
|
|
|
|
objSpooler.actionIsRunning = True
|
|
|
|
|
|
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
|
|
Globals.profilnr = BusinessFacade.Profil.GetStandardProfilNr(Globals.MitarbeiterNr)
|
|
Dim f As New frmTrefferliste()
|
|
|
|
f.Partnernr = Action.Action.GetParameterByName("PartnerNr").Value
|
|
|
|
|
|
f.MdiParent = objSpooler.MdiParent
|
|
f.Form1_Load(Nothing, Nothing)
|
|
f.Show()
|
|
Dim Avq_auth_extl_ref As String = Action.Action.GetParameterByName("Avq_auth_extl_ref").Value
|
|
If Avq_auth_extl_ref Is Nothing Then
|
|
Avq_auth_extl_ref = ""
|
|
Avq_auth_extl_ref = Action.Action.GetParameterByName("Avq_auth_extl_ref1").Value
|
|
If Avq_auth_extl_ref Is Nothing Then
|
|
Avq_auth_extl_ref = Action.Action.GetParameterByName("Avq_auth_extl_ref2").Value
|
|
If Avq_auth_extl_ref Is Nothing Then
|
|
Avq_auth_extl_ref = ""
|
|
End If
|
|
End If
|
|
End If
|
|
If Avq_auth_extl_ref <> "" Then
|
|
Dim docid As String = DivFnkt.Get_DocID_From_Avq_auth_extl_ref(Avq_auth_extl_ref)
|
|
If docid <> "" Then
|
|
DivFnkt.ShowDoc(docid, Me)
|
|
Me.Cursor = System.Windows.Forms.Cursors.Default
|
|
spoolerDone = True
|
|
|
|
End If
|
|
Else
|
|
'ObjPerson - zus Parameter: Dokumentid
|
|
If Action.Action.GetParameterByName("Dokumentid").Value <> "" Then
|
|
DivFnkt.ShowDoc(Action.Action.GetParameterByName("Dokumentid").Value, Me)
|
|
'f.txtnrpar00.Text = f.Partnernr
|
|
'f.Partner_Eingegeben = True
|
|
'f.refresh_list()
|
|
'f.Refresh_All(True)
|
|
'f.PosDok(Action.Action.GetParameterByName("Dokumentid").Value, )
|
|
'Me.Cursor = System.Windows.Forms.Cursors.Default
|
|
'' Globals.Apphandle = Me.Handle.ToInt32
|
|
''Win32API.SetForegroundWindow(Me.Handle.ToInt32)
|
|
Me.Cursor = System.Windows.Forms.Cursors.Default
|
|
spoolerDone = True
|
|
Else
|
|
If Action.Action.GetParameterByName("fanummer3").Value <> "" Then
|
|
f.Geschaeftsfall = Action.Action.SourceApplication & ": " & Action.Action.GetParameterByName("fanummer3").Value
|
|
f.Alle_Dokumente_Des_Geschaeftsfalles()
|
|
f.Partner_Eingegeben = True
|
|
Else
|
|
f.txtnrpar00.Text = Action.Action.GetParameterByName("PartnerNr").Value
|
|
f.Partnernr = Action.Action.GetParameterByName("PartnerNr").Value
|
|
f.Partner_Eingegeben = True
|
|
f.refresh_list()
|
|
f.Refresh_All(True)
|
|
dokumentArt = DivFnkt.getDocArtByDocTypID(dokumentArt)
|
|
f.PosDok("", dokumentArt)
|
|
End If
|
|
Me.Cursor = System.Windows.Forms.Cursors.Default
|
|
spoolerDone = True
|
|
End If
|
|
End If
|
|
|
|
End If
|
|
|
|
Case ActionType.Statusmutation
|
|
'neuen status für geschäftsfall setzen
|
|
Dim CancelAction As Boolean
|
|
CancelAction = objSpooler.FilesInSpooler
|
|
objSpooler.refreshList()
|
|
If CancelAction = False Or objSpooler.StartManuell = True Then
|
|
objSpooler.StartManuell = False
|
|
|
|
objSpooler.actionIsRunning = True
|
|
EDOKALib.BusinessFacade.Dokument.SetStatus()
|
|
spoolerDone = True
|
|
|
|
End If
|
|
Case ActionType.HostDokumentAnzeige
|
|
Dim CancelAction As Boolean
|
|
CancelAction = objSpooler.FilesInSpooler
|
|
objSpooler.refreshList()
|
|
If CancelAction = False Or objSpooler.StartManuell = True Then
|
|
objSpooler.StartManuell = False
|
|
Dim ts As DateTime = Now
|
|
ts = ts.AddSeconds(1)
|
|
While Now < ts
|
|
Application.DoEvents()
|
|
End While
|
|
objSpooler.actionIsRunning = True
|
|
'Host Dokument Anzeige
|
|
Dim PartnerNR As String
|
|
Dim DokumentId As String
|
|
Dim Valutadatum As String
|
|
PartnerNR = Action.Action.GetParameterByName("PartnerNr").Value
|
|
DokumentId = Action.Action.GetParameterByName("DokumentTypNr").Value
|
|
If DokumentId <> "" Then
|
|
DokumentId = CInt(DokumentId) - 900000000
|
|
End If
|
|
Dim i As Integer
|
|
For i = Len(PartnerNR) + 1 To 9
|
|
PartnerNR = "0" & PartnerNR
|
|
Next
|
|
|
|
'Valuta Datum eines Host Dokuments auslesen
|
|
Valutadatum = DivFnkt.GetHostValutaDAtum(DokumentId, PartnerNR)
|
|
|
|
DivFnkt.Erstellungsdatum = Valutadatum
|
|
DivFnkt.Belegart = "HOST"
|
|
|
|
DivFnkt.ShowColdDocHost(DokumentId, Me, DokumentId, PartnerNR, "partnername_inhaber", "dokumenttypnr")
|
|
|
|
|
|
|
|
Me.Cursor = Cursors.Default
|
|
spoolerDone = True
|
|
Exit Sub
|
|
End If
|
|
Case ActionType.UVMDokumentanzeige
|
|
Dim CancelAction As Boolean
|
|
CancelAction = objSpooler.FilesInSpooler
|
|
objSpooler.refreshList()
|
|
If CancelAction = False Or objSpooler.StartManuell = True Then
|
|
objSpooler.StartManuell = False
|
|
objSpooler.actionIsRunning = True
|
|
Dim dokumentid As String = Action.Action.GetParameterByName("DokumentTypNr").Value
|
|
DivFnkt.Show_Spooler_UVM_Doc(dokumentid, Me)
|
|
Me.Cursor = Cursors.Default
|
|
spoolerDone = True
|
|
Exit Sub
|
|
End If
|
|
Case ActionType.ZVDokumentanzeige
|
|
Dim CancelAction As Boolean
|
|
CancelAction = objSpooler.FilesInSpooler
|
|
objSpooler.refreshList()
|
|
If CancelAction = False Or objSpooler.StartManuell = True Then
|
|
objSpooler.StartManuell = False
|
|
objSpooler.actionIsRunning = True
|
|
Dim dokumentid As String = Action.Action.GetParameterByName("DokumentTypNr").Value
|
|
DivFnkt.Show_Spooler_ZV_Doc(dokumentid, Me)
|
|
Me.Cursor = Cursors.Default
|
|
spoolerDone = True
|
|
Exit Sub
|
|
End If
|
|
|
|
Case ActionType.DokLoeschung
|
|
Dim Avq_auth_extl_ref As String = Action.Action.GetParameterByName("Avq_auth_extl_ref").Value
|
|
If Avq_auth_extl_ref Is Nothing Then
|
|
Avq_auth_extl_ref = ""
|
|
Avq_auth_extl_ref = Action.Action.GetParameterByName("Avq_auth_extl_ref1").Value
|
|
If Avq_auth_extl_ref Is Nothing Then
|
|
Avq_auth_extl_ref = Action.Action.GetParameterByName("Avq_auth_extl_ref2").Value
|
|
If Avq_auth_extl_ref Is Nothing Then
|
|
Avq_auth_extl_ref = ""
|
|
End If
|
|
End If
|
|
End If
|
|
If Avq_auth_extl_ref <> "" Then
|
|
Dim docid As String = DivFnkt.Get_DocID_From_Avq_auth_extl_ref(Avq_auth_extl_ref)
|
|
If docid <> "" Then
|
|
DivFnkt.Delete_Doc(docid, Avq_auth_extl_ref)
|
|
Me.Cursor = System.Windows.Forms.Cursors.Default
|
|
spoolerDone = True
|
|
End If
|
|
End If
|
|
|
|
Case ActionType.DokumentErstellung
|
|
|
|
Dim fi As New FileInfo(strArgs(0).ToString())
|
|
Dim objavaloqdokumentwerte As New AvaloqDokumentWerte()
|
|
objavaloqdokumentwerte.init(fi)
|
|
Dim DokumentTypNr As String
|
|
Dim Partnernr As String
|
|
Dim OrderNr As String
|
|
Dim SourceApp As String
|
|
Dim Ersteller As String
|
|
Dim strNoEdit As String
|
|
Dim isDokumentPaket As String
|
|
Dim iError As Integer = 0
|
|
|
|
OrderNr = Action.Action.GetParameterByName("fanummer3").Value
|
|
Ersteller = Action.Action.CreatorTgNr
|
|
DokumentTypNr = Action.Action.GetParameterByName("DokumentTypNr").Value
|
|
Partnernr = Action.Action.GetParameterByName("PartnerNr").Value
|
|
strNoEdit = Action.Action.GetParameterByName("DirekteErstellung").Value
|
|
isDokumentPaket = Action.Action.GetParameterByName("Dokumentpaket").Value
|
|
' Rel 4.02 20080820
|
|
' Bei der direkten Dokumenterstellung prüfen, ob das Dokument via EDKB12 generiert werden soll
|
|
' Bei der generierung mit EDKB12 Daten auf DB speichern und Meldung an Benutzer ausgeben
|
|
|
|
SourceApp = Action.Action.SourceApplication
|
|
OrderNr = objavaloqdokumentwerte.Ordernr
|
|
Ersteller = Action.Action.CreatorTgNr
|
|
DokumentTypNr = objavaloqdokumentwerte.Dokumenttypnr
|
|
Partnernr = objavaloqdokumentwerte.Partnernr
|
|
strNoEdit = objavaloqdokumentwerte.Direkteerstellung
|
|
isDokumentPaket = objavaloqdokumentwerte.Dokumentpaket
|
|
|
|
|
|
|
|
EDKB12 = False
|
|
If strNoEdit = "2" Then
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim profilnr As Integer
|
|
scmCmdToExecute.Connection = Globals.conn.scoDBConnection
|
|
scmCmdToExecute.CommandText = "dbo.sp_edkb12_check"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim DataSet1 As DataSet = New DataSet()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DokumentTypNr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@odokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
scmCmdToExecute.Connection.Open()
|
|
sdaAdapter.Fill(dtToReturn)
|
|
dtToReturn.Dispose()
|
|
Dim check_edkb12 As Integer = scmCmdToExecute.Parameters("@odokumenttypnr").Value
|
|
scmCmdToExecute.Connection.Close()
|
|
scmCmdToExecute.Dispose()
|
|
If check_edkb12 <> 0 Then
|
|
EDKB12 = True
|
|
End If
|
|
End If
|
|
If EDKB12 = False Then
|
|
|
|
' Rel 4.0 Fensterhandling Problem
|
|
' Handle verweis auf Prozess EDOKA...
|
|
|
|
Dim p As Process
|
|
|
|
Dim MyProcesses() As Process =
|
|
Process.GetProcessesByName(
|
|
Process.GetCurrentProcess().ProcessName)
|
|
|
|
|
|
For Each p In MyProcesses
|
|
|
|
If (p.Id = Process.GetCurrentProcess().Id) Then
|
|
Globals.Apphandle = p.MainWindowHandle()
|
|
End If
|
|
|
|
Next
|
|
Win32API.SetActiveWindow(Globals.Apphandle)
|
|
Win32API.BringWindowToTop(Globals.Apphandle)
|
|
|
|
'Globals.Apphandle = Me.Handle.ToInt32
|
|
If isDokumentPaket = "" Then
|
|
isDokumentPaket = 0
|
|
End If
|
|
|
|
If DivFnkt.checkPartnerNr(Partnernr) = True Then
|
|
|
|
Dim CancelAction As Boolean
|
|
CancelAction = objSpooler.FilesInSpooler
|
|
objSpooler.refreshList()
|
|
If DokumentTypNr <> "" Then
|
|
DokumentTypNr = CInt(DokumentTypNr) - 900000000
|
|
End If
|
|
If DivFnkt.checkDokID(DokumentTypNr, isDokumentPaket) = True Then
|
|
|
|
If DokumentTypNr <> "" Then
|
|
DokumentTypNr = CInt(DokumentTypNr)
|
|
Else
|
|
DokumentTypNr = 0
|
|
End If
|
|
If isDokumentPaket = "" Then
|
|
isDokumentPaket = 0
|
|
Else
|
|
isDokumentPaket = CInt(isDokumentPaket)
|
|
End If
|
|
If CancelAction = False Or objSpooler.StartManuell = True Then
|
|
objSpooler.StartManuell = False
|
|
objSpooler.actionIsRunning = True
|
|
If strNoEdit = "" Then
|
|
strNoEdit = 0
|
|
End If
|
|
objSpooler.NoEdit = CInt(strNoEdit)
|
|
If isDokumentPaket = 0 Then
|
|
If OrderNr = "" Then
|
|
'objPerson
|
|
iError = DokErstellen(DokumentTypNr, Partnernr, Ersteller, Ersteller, "", "", "", "", "", False, False, False, objavaloqdokumentwerte)
|
|
Else
|
|
|
|
iError = DokErstellen(DokumentTypNr, Partnernr, Ersteller, Ersteller, "", "", "OrderNr:" & OrderNr, "", SourceApp & ": " & OrderNr, False, False, False, objavaloqdokumentwerte)
|
|
End If
|
|
Else
|
|
Try
|
|
Dim wt As Integer = DivFnkt.Get_Office_2010_Param(30)
|
|
Cursor = Cursors.WaitCursor
|
|
|
|
Application.DoEvents()
|
|
Threading.Thread.Sleep(wt)
|
|
Catch
|
|
Finally
|
|
Cursor = Cursors.Default
|
|
End Try
|
|
|
|
|
|
Globals.Individuelles_Dokumentpaket = False
|
|
Globals.DokumentPaket = True
|
|
Dim frmDP As New frmDokumentpaket(DokumentTypNr, False, Partnernr)
|
|
'Avaloq Dokumentwerte an Dokumentpaket übergeben
|
|
frmDP.avqwerte = objavaloqdokumentwerte
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim profilnr As Integer
|
|
scmCmdToExecute.Connection = Globals.conn.scoDBConnection
|
|
scmCmdToExecute.CommandText = "dbo.pv_profil_select"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim DataSet1 As DataSet = New DataSet()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mandantnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
scmCmdToExecute.Connection.Open()
|
|
sdaAdapter.Fill(DataSet1)
|
|
scmCmdToExecute.Connection.Close()
|
|
frmDP.Profile = DataSet1.Tables(0)
|
|
profilnr = DataSet1.Tables(0).Rows(0).Item("profilnr")
|
|
Dim z As Integer = 0
|
|
For z = 0 To DataSet1.Tables(0).Columns.Count
|
|
If DataSet1.Tables(0).Rows(z).Item("standard") = True Then
|
|
profilnr = DataSet1.Tables(0).Rows(z).Item("profilnr")
|
|
' Avaloq Spooler massnahme
|
|
Exit For
|
|
End If
|
|
Next
|
|
frmDP.Profilnr = profilnr
|
|
'Rel 4.03 MID-Fähigkeit
|
|
If Not Globals.TempParent Is Nothing Then
|
|
frmDP.MdiParent = Globals.TempParent
|
|
Else
|
|
frmDP.MdiParent = Me
|
|
|
|
End If
|
|
frmDP.StartPosition = FormStartPosition.CenterParent
|
|
frmDP.TopMost = True
|
|
' objSpooler.WindowState = FormWindowState.Minimized
|
|
'Ende Rel 4.03
|
|
Try
|
|
frmDP.Show()
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
|
|
End If
|
|
If iError > 0 Then
|
|
MsgBox("Bei der Dokumenterstellung trat ein Fehler auf.")
|
|
End If
|
|
spoolerDone = True
|
|
End If
|
|
Else
|
|
MsgBox("Dokumenttyp " & DokumentTypNr & " wurde nicht gefunden")
|
|
spoolerDone = True
|
|
End If
|
|
|
|
Else
|
|
MsgBox("Es wurde kein Partner mit der PartnerNr:" & Partnernr & " gefunden.")
|
|
spoolerDone = True
|
|
End If
|
|
End If
|
|
'Rel 4.02 20080816 SHU
|
|
'Sofern das Dokument über EDKB12 generiert wird, EDK-File auf DB sichern und Meldung am User ausgeben
|
|
If EDKB12 = True Then
|
|
spoolerDone = True
|
|
If Save_File_To_DB(fi.FullName) Then
|
|
MyMsg.show_standardmessage(50000, MsgBoxStyle.Information)
|
|
End If
|
|
End If
|
|
' Ende Rel 4.02
|
|
'20080401 RGL, Dokwerte löschen, da sonst immer aufgefüllt auch wenn Aufruf nicht von Spooler!
|
|
'Ist hier platziert da Aufrufe der Forms oben ShowDialog sind (Bei Bearbeitung ist der Code
|
|
' in frmDokumentliste)
|
|
'ObjPerson - bei Dokumentpaketen direkt löschen
|
|
If Not (IsNothing(objavaloqdokumentwerte)) And isDokumentPaket = 0 Then
|
|
objavaloqdokumentwerte.clearAvaloqDokumentWerte()
|
|
End If
|
|
|
|
Case ActionType.DokumentBearbeitung
|
|
|
|
Dim fi As New FileInfo(strArgs(0).ToString())
|
|
objAvaloqDokumentWerte.init(fi)
|
|
Dim frm As New frmDokumentListe()
|
|
frm.MdiParent = objSpooler.MdiParent
|
|
Dim OrderNr As String
|
|
Dim PartnerNr As String
|
|
Dim DokumentTypNr As String
|
|
Dim ScoureApp As String
|
|
Dim Ersteller As String
|
|
Dim dtSearch As New DataTable()
|
|
Dim CancelAction As Boolean
|
|
Dim iError As Integer = 0
|
|
CancelAction = objSpooler.FilesInSpooler
|
|
objSpooler.refreshList()
|
|
If CancelAction = False Or objSpooler.StartManuell = True Then
|
|
objSpooler.StartManuell = False
|
|
'--
|
|
'SourceApp = Action.Action.SourceApplication
|
|
OrderNr = Action.Action.GetParameterByName("fanummer3").Value
|
|
Ersteller = Action.Action.CreatorTgNr
|
|
DokumentTypNr = Action.Action.GetParameterByName("DokumentTypNr").Value
|
|
PartnerNr = Action.Action.GetParameterByName("PartnerNr").Value
|
|
'strNoEdit = Action.Action.GetParameterByName("DirekteErstellung").Value
|
|
'isDokumentPaket = Action.Action.GetParameterByName("Dokumentpaket").Value
|
|
|
|
OrderNr = objAvaloqDokumentWerte.Ordernr
|
|
Ersteller = Action.Action.CreatorTgNr
|
|
DokumentTypNr = objAvaloqDokumentWerte.Dokumenttypnr
|
|
PartnerNr = objAvaloqDokumentWerte.Partnernr
|
|
|
|
'--
|
|
If DokumentTypNr <> "" Then
|
|
DokumentTypNr = CInt(DokumentTypNr) - 900000000
|
|
End If
|
|
If DivFnkt.checkPartnerNr(PartnerNr) = True Then
|
|
|
|
|
|
dtSearch = frm.SearchDocuments(OrderNr, PartnerNr, DokumentTypNr)
|
|
|
|
''''''' Keine Dokumente mit Filter gefunden
|
|
If dtSearch.Rows.Count = 0 Then
|
|
If DokumentTypNr <> "" And OrderNr <> "" Then
|
|
'NEU ERSTELLEN MIT OrderNr
|
|
If MyMsg.Show_MessageYesNo(506) <> MsgBoxResult.No Then
|
|
ScoureApp = Action.Action.SourceApplication
|
|
Ersteller = Action.Action.CreatorTgNr
|
|
|
|
objSpooler.StartManuell = False
|
|
objSpooler.actionIsRunning = True
|
|
iError = DokErstellen(DokumentTypNr, PartnerNr, Ersteller, Ersteller, "", "", "OrderNr:" & OrderNr, "", ScoureApp & ": " & OrderNr, False, False, False, objAvaloqDokumentWerte)
|
|
|
|
End If
|
|
ElseIf DokumentTypNr <> "" And OrderNr = "" Then
|
|
'NEU ERSTELLEN OHNE OrderNr
|
|
If MyMsg.Show_MessageYesNo(506) <> MsgBoxResult.No Then
|
|
ScoureApp = Action.Action.SourceApplication
|
|
Ersteller = Action.Action.CreatorTgNr
|
|
|
|
objSpooler.StartManuell = False
|
|
objSpooler.actionIsRunning = True
|
|
iError = DokErstellen(DokumentTypNr, PartnerNr, Ersteller, Ersteller, "", "", "", "", "", False, False, False, objAvaloqDokumentWerte)
|
|
|
|
End If
|
|
ElseIf DokumentTypNr = "" And OrderNr <> "" Then
|
|
MsgBox("Kein Dokument gefunden." & vbNewLine & "Es kann kein neues Dokument ohne DokumentTypNr erstellt werden.")
|
|
ElseIf DokumentTypNr = "" And OrderNr = "" Then
|
|
MsgBox("Kein Dokument gefunden." & vbNewLine & "Es kann kein neues Dokument ohne DokumentTypNr erstellt werden.")
|
|
' Ist noch offen!
|
|
End If
|
|
ElseIf dtSearch.Rows.Count = 1 Then
|
|
'Genau 1 Dokument gefunden -> Öffnen
|
|
ScoureApp = Action.Action.SourceApplication
|
|
Ersteller = Action.Action.CreatorTgNr
|
|
|
|
objSpooler.StartManuell = False
|
|
objSpooler.actionIsRunning = True
|
|
frm.DokList.DataSource = dtSearch
|
|
frm.OpenDocument(frm.DokList.Columns("dokumentid").Text)
|
|
|
|
Else
|
|
'MEHRERE Dokumente gefunden, Ausfwahlliste anzeigen
|
|
If DokumentTypNr <> "" And OrderNr <> "" Then
|
|
objSpooler.actionIsRunning = True
|
|
frm.DokList.DataSource = dtSearch
|
|
frm.Show()
|
|
ElseIf DokumentTypNr <> "" And OrderNr = "" Then
|
|
objSpooler.actionIsRunning = True
|
|
frm.DokList.DataSource = dtSearch
|
|
frm.Show()
|
|
ElseIf DokumentTypNr = "" And OrderNr <> "" Then
|
|
objSpooler.actionIsRunning = True
|
|
frm.DokList.DataSource = dtSearch
|
|
frm.Show()
|
|
ElseIf DokumentTypNr = "" And OrderNr = "" Then
|
|
objSpooler.actionIsRunning = True
|
|
frm.DokList.DataSource = dtSearch
|
|
frm.Show()
|
|
End If
|
|
frm.BringToFront()
|
|
End If
|
|
If iError > 0 Then
|
|
MsgBox("Bei der Dokumenterstellung trat ein Fehler auf.")
|
|
End If
|
|
Else
|
|
MsgBox("Es wurde kein Partner mit der PartnerNr:" & PartnerNr & " gefunden.")
|
|
spoolerDone = True
|
|
End If
|
|
spoolerDone = True
|
|
End If
|
|
'20191101
|
|
Case ActionType.AusHyperlink
|
|
Dim CancelAction As Boolean
|
|
Select Case Action.Action.GetParameterByName("Linktype").Value
|
|
Case "ShowDoc"
|
|
CancelAction = objSpooler.FilesInSpooler
|
|
objSpooler.refreshList()
|
|
If CancelAction = False Or objSpooler.StartManuell = True Then
|
|
objSpooler.StartManuell = False
|
|
objSpooler.actionIsRunning = True
|
|
End If
|
|
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
|
|
Globals.profilnr = BusinessFacade.Profil.GetStandardProfilNr(Globals.MitarbeiterNr)
|
|
Dim f As New frmTrefferliste()
|
|
f.Partnernr = Action.Action.GetParameterByName("PartnerNr").Value
|
|
f.MdiParent = objSpooler.MdiParent
|
|
f.Form1_Load(Nothing, Nothing)
|
|
f.Show()
|
|
If Action.Action.GetParameterByName("Dokumentid").Value <> "" Then
|
|
DivFnkt.ShowDoc(Action.Action.GetParameterByName("Dokumentid").Value, Me)
|
|
End If
|
|
Me.Cursor = System.Windows.Forms.Cursors.Default
|
|
spoolerDone = True
|
|
Case "PosFolder"
|
|
CancelAction = objSpooler.FilesInSpooler
|
|
objSpooler.refreshList()
|
|
If CancelAction = False Or objSpooler.StartManuell = True Then
|
|
objSpooler.StartManuell = False
|
|
objSpooler.actionIsRunning = True
|
|
End If
|
|
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
|
|
Globals.profilnr = BusinessFacade.Profil.GetStandardProfilNr(Globals.MitarbeiterNr)
|
|
Dim f As New frmTrefferliste()
|
|
f.Partnernr = Action.Action.GetParameterByName("PartnerNr").Value
|
|
f.MdiParent = objSpooler.MdiParent
|
|
f.Form1_Load(Nothing, Nothing)
|
|
f.Show()
|
|
f.Partner_Eingegeben = True
|
|
f.txtnrpar00.Text = Action.Action.GetParameterByName("PartnerNr").Value
|
|
f.DoKeyenter()
|
|
DivFnkt.Searchnode(f.tvstruktur, Action.Action.GetParameterByName("FolderID").Value, 0)
|
|
f.tvstruktur.SelectedNode = f.tvstruktur.Nodes(0)
|
|
f.tvstruktur.SelectedNode = DivFnkt.FoundNode
|
|
Case "PosDoc"
|
|
CancelAction = objSpooler.FilesInSpooler
|
|
objSpooler.refreshList()
|
|
If CancelAction = False Or objSpooler.StartManuell = True Then
|
|
objSpooler.StartManuell = False
|
|
objSpooler.actionIsRunning = True
|
|
End If
|
|
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
|
|
Globals.profilnr = BusinessFacade.Profil.GetStandardProfilNr(Globals.MitarbeiterNr)
|
|
Dim f As New frmTrefferliste()
|
|
f.Partnernr = Action.Action.GetParameterByName("PartnerNr").Value
|
|
f.MdiParent = objSpooler.MdiParent
|
|
f.Form1_Load(Nothing, Nothing)
|
|
f.Show()
|
|
f.Partner_Eingegeben = True
|
|
f.txtnrpar00.Text = Action.Action.GetParameterByName("PartnerNr").Value
|
|
f.DoKeyenter()
|
|
Dim dokumentid As String
|
|
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
|
|
Dim t As DataTable
|
|
dokumentid = Action.Action.GetParameterByName("Dokumentid").Value
|
|
t = GetDokData(dokumentid)
|
|
If t.Rows.Count > 0 Then
|
|
f.PosDok(dokumentid, t.Rows(0).Item("dokumentart"))
|
|
Me.Cursor = System.Windows.Forms.Cursors.Default
|
|
Exit Sub
|
|
End If
|
|
End Select
|
|
|
|
|
|
Case Else
|
|
TKBLib.Errorhandling.TraceHelper.Msg("Edoka.frmEdokaMain.HandleCommand", "Action type " & Action.Action.ActionType.ToString() & " not handled", TraceLevel.Warning)
|
|
End Select
|
|
End If
|
|
Catch ex As Exception
|
|
objSpooler.actionIsRunning = False
|
|
Me.Cursor = System.Windows.Forms.Cursors.Default
|
|
MsgBox("Bei der Automatischen Verarbeitung wurde ein Fehler verursacht" + vbCrLf + vbCrLf + ex.Message, vbExclamation)
|
|
objSpooler.fileCorrupted = True
|
|
spoolerDone = True
|
|
TKBLib.Errorhandling.TraceHelper.Msg("Edoka.frmEdokaMain.HandleCommand", "Unhandled ex for action type " & Action.Action.ActionType.ToString() & ex.Message & ex.StackTrace, TraceLevel.Error)
|
|
Finally
|
|
Try
|
|
If Not IsNothing(strArgs) Then
|
|
If strArgs.Length > 0 Then
|
|
'mindestens ein arg
|
|
If strArgs(0).Length > Consts.ACTION_FILE_EXTENSION.Length + 1 Then
|
|
If spoolerDone = True Then
|
|
objSpooler.NoEdit = 0
|
|
Dim fiAction As New FileInfo(strArgs(0).ToString())
|
|
If DeleteSpoolerFile = 0 Then
|
|
If Directory.Exists(SpoolerTempDir) Then
|
|
fiAction.MoveTo(SpoolerTempDir & "\" & Replace(DateTime.Now.ToShortDateString, ".", "") & Now.TimeOfDay.Hours & Now.TimeOfDay.Minutes & Now.TimeOfDay.Seconds & fiAction.Name)
|
|
Else
|
|
Directory.CreateDirectory(SpoolerTempDir)
|
|
fiAction.MoveTo(SpoolerTempDir & "\" & Replace(DateTime.Now.ToShortDateString, ".", "") & Now.TimeOfDay.Hours & Now.TimeOfDay.Minutes & Now.TimeOfDay.Seconds & fiAction.Name)
|
|
|
|
End If
|
|
Else
|
|
fiAction.Delete()
|
|
End If
|
|
objSpooler.refreshList()
|
|
If Action.Action.ActionType = ActionType.DokumentErstellung Or Action.Action.ActionType = ActionType.HostDokumentAnzeige Or Action.Action.ActionType = ActionType.Statusmutation Then
|
|
objSpooler.BringToFront()
|
|
End If
|
|
'Rel 4.03 - Spooler ausblenden, wenn keine Aktion mehr vorhanden ist
|
|
Try
|
|
If objSpooler.btnNextAction.Enabled = False Then
|
|
objSpooler.Hide()
|
|
End If
|
|
Catch
|
|
End Try
|
|
objSpooler.actionIsRunning = False
|
|
Cursor = Cursors.Default
|
|
Else
|
|
'20080401 RGL gab ein Error da objSpooler gar nicht instanziert (Bsp: Völlig falscher Filename angeliefert)
|
|
If Not (IsNothing(objSpooler)) Then
|
|
objSpooler.NoEdit = 0
|
|
objSpooler.refreshList()
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
TKBLib.Errorhandling.TraceHelper.Msg("Edoka.frmEdokaMain.HandleCommand", "Error in Spooler" & ex.Message & ex.StackTrace, TraceLevel.Error)
|
|
End Try
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
Private Function GetDokData(ByVal Dokumentid As String) As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.CommandText = "dbo.sp_suchprofil_get_partner"
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@doktyp", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "EDOKA"))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@partnernr", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@valdat", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, 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))
|
|
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
|
|
' Rel 4.02 20080816 Save EDK-File auf die DB
|
|
Private Function Save_File_To_DB(ByVal filename As String) As Boolean
|
|
Try
|
|
Dim edk_data As New DataSet
|
|
Dim Connection As New SqlConnection()
|
|
Dim DA As New SqlDataAdapter("select * from edk_data where rowid = -1", Connection)
|
|
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
|
|
Connection.ConnectionString = Globals.sConnectionString
|
|
Connection.Open()
|
|
DA.Fill(edk_data, "EDK_Data")
|
|
|
|
Dim fs As New FileStream(filename, FileMode.Open, FileAccess.Read)
|
|
Dim mydata(fs.Length) As Byte
|
|
Dim myRow As DataRow
|
|
fs.Read(mydata, 0, fs.Length)
|
|
myRow = edk_data.Tables(0).NewRow
|
|
myRow.Item(1) = Globals.TGNummer
|
|
myRow.Item(2) = Now
|
|
myRow.Item(3) = 0
|
|
myRow.Item(4) = Now
|
|
myRow.Item(5) = mydata
|
|
edk_data.Tables(0).Rows.Add(myRow)
|
|
|
|
DA.Update(edk_data, "EDK_Data")
|
|
fs.Close()
|
|
fs = Nothing
|
|
cb = Nothing
|
|
DA = Nothing
|
|
|
|
edk_data.Dispose()
|
|
Return True
|
|
Catch ex As Exception
|
|
Return False
|
|
End Try
|
|
End Function
|
|
'Ende REL 4.02
|
|
|
|
|
|
#End Region
|
|
|
|
'Private Function GetProfile() As System.Data.DataTable
|
|
' Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
' scmCmdToExecute.Connection = Globals.conn.scoDBConnection
|
|
' scmCmdToExecute.CommandText = "dbo.pv_profil_select"
|
|
' scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
' Dim DataSet1 As DataSet = New DataSet()
|
|
' Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
' scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
' scmCmdToExecute.Parameters.Add(New SqlParameter("@mandantnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
|
|
' scmCmdToExecute.Connection.Open()
|
|
' sdaAdapter.Fill(DataSet1)
|
|
' scmCmdToExecute.Connection.Close()
|
|
' sdaAdapter.Dispose()
|
|
' scmCmdToExecute.Dispose()
|
|
' Return DataSet1.Tables(0)
|
|
' 'DataSet1.Dispose()
|
|
'End Function
|
|
|
|
'ObjPerson - 201405019
|
|
|
|
Public Function DokErstellen(ByVal Dokumenttypnr As Integer, ByVal Partnernr As Integer,
|
|
ByVal TGNRZustaendig As String, ByVal TGNrVerantwortlicher As String, ByVal TGNRUnterschriftlinks As String,
|
|
ByVal TGNRUnterschriftrechts As String, ByVal FANummer1 As String,
|
|
ByVal FANummer2 As String, ByVal FANummer3 As String, ByVal Partnerwechsel As Boolean,
|
|
ByVal Statuswechsel As Boolean, ByVal VerantwortlicherWechsel As Boolean, objAvaloqDokumentWerte As AvaloqDokumentWerte) As Integer
|
|
|
|
Try
|
|
|
|
Dim ma As New edokaDB.clsMyMitarbeiter()
|
|
Dim dt As New DataTable()
|
|
Dim zustaendiger As Integer
|
|
Dim verantwortlicher As Integer
|
|
Dim unterschriftrechts As Integer
|
|
Dim unterschriftlinks As Integer
|
|
Dim ErrorCode As Integer
|
|
Dim DokumentID As String = ""
|
|
|
|
ma.sConnectionString = Globals.sConnectionString
|
|
'Mitarbeiter des Erstellers auslesen
|
|
ma.xtgnummer = TGNRZustaendig
|
|
dt = ma.SelectWithTGNummer
|
|
If dt.Rows.Count > 0 Then
|
|
zustaendiger = dt.Rows(0).Item("mitarbeiternr")
|
|
Else
|
|
ErrorCode = 15
|
|
Return 1
|
|
Exit Function
|
|
End If
|
|
|
|
'Verantwortlicher auslesen
|
|
ma.xtgnummer = TGNrVerantwortlicher
|
|
ma.cpMainConnectionProvider = Globals.conn
|
|
dt = ma.SelectWithTGNummer
|
|
If dt.Rows.Count > 0 Then
|
|
verantwortlicher = dt.Rows(0).Item("mitarbeiternr")
|
|
'todo: checke öb bruucht werd Globals.EDOKAFremdanwendungStellvertreter = verantwortlicher
|
|
Else
|
|
ErrorCode = 15
|
|
Return 1
|
|
Exit Function
|
|
End If
|
|
|
|
'If Ist_Berechtigt_Dokumenterstellung(Dokumenttypnr, Partnernr) = False Then
|
|
If BusinessFacade.Dokumenttyp.IsMitarbeiterBerechtigt(Dokumenttypnr, Partnernr, verantwortlicher) = False Then
|
|
ErrorCode = 45
|
|
Return 1
|
|
Exit Function
|
|
|
|
End If
|
|
|
|
If TGNRUnterschriftlinks <> "" Then
|
|
'Mitarbeiter Unterschrfitlinks auslesen
|
|
ma.xtgnummer = TGNRUnterschriftlinks
|
|
dt = ma.SelectWithTGNummer
|
|
If dt.Rows.Count > 0 Then
|
|
unterschriftlinks = dt.Rows(0).Item("mitarbeiternr")
|
|
Else
|
|
ErrorCode = 16
|
|
Return 1
|
|
Exit Function
|
|
End If
|
|
Else
|
|
unterschriftlinks = 0
|
|
End If
|
|
|
|
'Mitarbeiter Unterschrfitrechts
|
|
If TGNRUnterschriftrechts <> "" Then
|
|
ma.xtgnummer = TGNRUnterschriftrechts
|
|
dt = ma.SelectWithTGNummer
|
|
If dt.Rows.Count > 0 Then
|
|
unterschriftrechts = dt.Rows(0).Item("mitarbeiternr")
|
|
Else
|
|
ErrorCode = 17
|
|
Return 1
|
|
Exit Function
|
|
End If
|
|
Else
|
|
unterschriftrechts = 0
|
|
End If
|
|
|
|
'dt = Profile_laden(Globals.MitarbeiterNr, Globals.MandantNr)
|
|
BusinessFacade.Profil.GetListeByMitarbeiterNr(Globals.MitarbeiterNr, dt)
|
|
|
|
'20080401 RGL Anpassung für Dokumentpakete/Einzeldokumente/Barcodedokumente/BedingtRetournierbar
|
|
Dim dt2 As New edokaDB.clsDokumenttyp()
|
|
Dim showbc As Boolean
|
|
dt2.cpMainConnectionProvider = conn
|
|
Globals.bckdokument = False
|
|
dt2.iDokumenttypnr = New SqlInt32(Dokumenttypnr)
|
|
dt2.SelectOne()
|
|
If dt2.bAktiv.Value = True Then
|
|
If dt2.bDokument_wird_retourniert.Value = True And dt2.bDokument_wird_erstellt.Value = False Then showbc = True
|
|
If dt2.bDokument_wird_retourniert.Value = True And dt2.bDokument_wird_erstellt.Value = True Then
|
|
'Objperson
|
|
If objAvaloqDokumentWerte.BCFrage = "1" Then
|
|
Dim f As New frmbcquestion()
|
|
f.ShowDialog()
|
|
If f.DialogResult = Windows.Forms.DialogResult.Abort Then showbc = True
|
|
If f.DialogResult = Windows.Forms.DialogResult.OK Then showbc = False
|
|
f.Dispose()
|
|
Else
|
|
showbc = False
|
|
End If
|
|
|
|
End If
|
|
|
|
If showbc Then
|
|
Dim f As New frmBarcodeKleber()
|
|
f.TopMost = True
|
|
f.ShowDialog()
|
|
If f.DialogResult = Windows.Forms.DialogResult.Abort Then
|
|
Exit Function
|
|
Else
|
|
If f.DialogResult = Windows.Forms.DialogResult.OK Then
|
|
Me.barcodeid = f.BarcodeID
|
|
Globals.bckdokument = True
|
|
Else
|
|
End If
|
|
End If
|
|
Globals.bckdokument = False
|
|
End If
|
|
|
|
If Globals.bckdokument = True Then
|
|
'CODE HIER Merge aus Code "Normal" von unten und frmDokumentpaket.barcodedokument_erstellen
|
|
Cursor = Cursors.WaitCursor
|
|
Dim fI As New frmDokumentbearbeitungBC()
|
|
fI.Edex_Folgestatus = 0 'In Bearbeitung
|
|
fI.Profile = dt
|
|
Dim i As Integer
|
|
fI.Profilnr = dt.Rows(0).Item("profilnr")
|
|
For i = 0 To dt.Rows.Count - 1
|
|
If dt.Rows(i).Item("standard") = True Then
|
|
fI.Profilnr = dt.Rows(i).Item("profilnr")
|
|
Exit For
|
|
End If
|
|
Next
|
|
fI.Partnernr = Partnernr
|
|
fI.BarcodeID = barcodeid
|
|
fI.Dokumenttypnr = Dokumenttypnr
|
|
fI.CreateDocument = True
|
|
Me.Cursor = Cursors.Default
|
|
'Objeperson
|
|
If DivFnkt.PartnerTyp(Partnernr) = EDOKA.clsDivFnkt.ENUM_Partnertyp.EDOKA_Interessent And DivFnkt.EDOKA_Partner_Dokument(3, Dokumenttypnr) = False Then
|
|
'If Partnernr > 91000000 And DivFnkt.EDOKA_Partner_Dokument(3, Dokumenttypnr) = False Then
|
|
MyMsg.show_standardmessage(110, MsgBoxStyle.Critical)
|
|
fI.Dispose()
|
|
Exit Function
|
|
End If
|
|
|
|
'ObjPerson
|
|
Dim erlaubt As Integer = DivFnkt.Erstellung_Erlaubt(Partnernr, Dokumenttypnr)
|
|
Select Case erlaubt
|
|
Case 0
|
|
Case 1 'Dokument nicht für BP
|
|
MyMsg.show_standardmessage(60000, MsgBoxStyle.Critical)
|
|
Exit Function
|
|
Case 2 'DOkument nicht für Person
|
|
MyMsg.show_standardmessage(60001, MsgBoxStyle.Critical)
|
|
Exit Function
|
|
End Select
|
|
|
|
|
|
fI.Partnerwechsel = Partnerwechsel
|
|
fI.Statuswechsel = Statuswechsel
|
|
|
|
fI.Verantwortlicherwechsel = VerantwortlicherWechsel
|
|
fI.Zustaendiger = zustaendiger
|
|
fI.UnterschriftLinks = unterschriftlinks
|
|
fI.Unterschriftrechts = unterschriftrechts
|
|
fI.Verantwortlicher = verantwortlicher
|
|
fI.FANummer1 = FANummer1
|
|
fI.FANummer2 = FANummer2
|
|
fI.FANummer3 = FANummer3
|
|
|
|
If objSpooler.NoEdit > 0 Then
|
|
fI.DoNoEdit()
|
|
Else
|
|
fI.ShowDialog()
|
|
End If
|
|
|
|
DivFnkt.Status_Dokumentbearbeitung(2, fI.NeueDokumentid, False, "")
|
|
If objSpooler.NoEdit = 2 Then
|
|
DivFnkt.Dokumenterstellung_SetStatusBZA(fI.NeueDokumentid)
|
|
End If
|
|
fI.Dispose()
|
|
|
|
showbc = False
|
|
Globals.bckdokument = False
|
|
Else
|
|
|
|
If dt2.bNurnative.Value = True Then
|
|
'Einzeldokumente
|
|
Cursor = Cursors.WaitCursor
|
|
Dim fI As New frmDokumentbearbeitungED()
|
|
fI.Profile = dt
|
|
Dim i As Integer
|
|
fI.Profilnr = dt.Rows(0).Item("profilnr")
|
|
For i = 0 To dt.Rows.Count - 1
|
|
If dt.Rows(i).Item("standard") = True Then
|
|
fI.Profilnr = dt.Rows(i).Item("profilnr")
|
|
Exit For
|
|
End If
|
|
Next
|
|
|
|
fI.Partnernr = Partnernr
|
|
fI.Dokumenttypnr = Dokumenttypnr
|
|
fI.CreateDocument = True
|
|
Me.Cursor = Cursors.Default
|
|
'Objeperson
|
|
If DivFnkt.PartnerTyp(Partnernr) = EDOKA.clsDivFnkt.ENUM_Partnertyp.EDOKA_Interessent And DivFnkt.EDOKA_Partner_Dokument(3, Dokumenttypnr) = False Then
|
|
'If Partnernr > 91000000 And DivFnkt.EDOKA_Partner_Dokument(3, Dokumenttypnr) = False Then
|
|
MyMsg.show_standardmessage(110, MsgBoxStyle.Critical)
|
|
fI.Dispose()
|
|
Exit Function
|
|
End If
|
|
|
|
'ObjPerson
|
|
Dim erlaubt As Integer = DivFnkt.Erstellung_Erlaubt(Partnernr, Dokumenttypnr)
|
|
Select Case erlaubt
|
|
Case 0
|
|
Case 1 'Dokument nicht für BP
|
|
MyMsg.show_standardmessage(60000, MsgBoxStyle.Critical)
|
|
Exit Function
|
|
Case 2 'DOkument nicht für Person
|
|
MyMsg.show_standardmessage(60001, MsgBoxStyle.Critical)
|
|
Exit Function
|
|
End Select
|
|
|
|
|
|
fI.Partnernr = Trim(Str(Partnernr))
|
|
'Rel. 4.03
|
|
'Handelt es sich bei der Partnernr um die Nr. 1 (ursprünglich für Einzeldokumente verwendet),
|
|
'Partnernr auf 9999999 ändern.
|
|
If Partnernr = 1 Then
|
|
fI.Partnernr = ""
|
|
'fI.Partnernr = Trim(Str(9999999))
|
|
End If
|
|
|
|
fI.Partnerwechsel = Partnerwechsel
|
|
fI.Statuswechsel = Statuswechsel
|
|
fI.Verantwortlicherwechsel = VerantwortlicherWechsel
|
|
fI.Zustaendiger = zustaendiger
|
|
fI.UnterschriftLinks = unterschriftlinks
|
|
fI.Unterschriftrechts = unterschriftrechts
|
|
fI.Verantwortlicher = verantwortlicher
|
|
fI.FANummer1 = FANummer1
|
|
fI.FANummer2 = FANummer2
|
|
fI.FANummer3 = FANummer3
|
|
fI.avqwerte = objAvaloqDokumentWerte
|
|
If objSpooler.NoEdit > 0 Then
|
|
fI.DoNoEdit()
|
|
Else
|
|
'Rel 4.03 MDI-Fähigkeit
|
|
fI.ShowDialog()
|
|
End If
|
|
|
|
DivFnkt.Status_Dokumentbearbeitung(2, fI.NeueDokumentid, False, "")
|
|
If objSpooler.NoEdit = 2 Then
|
|
DivFnkt.Dokumenterstellung_SetStatusBZA(fI.NeueDokumentid)
|
|
End If
|
|
' fI.Dispose()
|
|
'MyMsg.show_standardmessage(413, MsgBoxStyle.Information)
|
|
Else
|
|
'Normaldokument
|
|
Dim dokumentBearbeitungWindow As New frmDokumentbearbeitung()
|
|
|
|
|
|
dokumentBearbeitungWindow.Profilnr = dt.Rows(0).Item("profilnr")
|
|
'For i = 0 To dt.Rows.Count - 1
|
|
' If dt.Rows(i).Item("standard") = True Then
|
|
' dokumentBearbeitungWindow.Profilnr = dt.Rows(i).Item("profilnr")
|
|
' Exit For
|
|
' End If
|
|
'Next
|
|
|
|
dokumentBearbeitungWindow.Profile = dt
|
|
dokumentBearbeitungWindow.Dokumenttypnr = Dokumenttypnr
|
|
dokumentBearbeitungWindow.CreateDocument = True
|
|
'Objeperson
|
|
If DivFnkt.PartnerTyp(Partnernr) = EDOKA.clsDivFnkt.ENUM_Partnertyp.EDOKA_Interessent And DivFnkt.EDOKA_Partner_Dokument(3, Dokumenttypnr) = False Then
|
|
'If Partnernr > 91000000 And DivFnkt.EDOKA_Partner_Dokument(3, Dokumenttypnr) = False Then
|
|
MyMsg.show_standardmessage(110, MsgBoxStyle.Critical)
|
|
dokumentBearbeitungWindow.Dispose()
|
|
Exit Function
|
|
End If
|
|
|
|
'ObjPerson
|
|
Dim erlaubt As Integer = DivFnkt.Erstellung_Erlaubt(Partnernr, Dokumenttypnr)
|
|
Select Case erlaubt
|
|
Case 0
|
|
Case 1 'Dokument nicht für BP
|
|
MyMsg.show_standardmessage(60000, MsgBoxStyle.Critical)
|
|
dokumentBearbeitungWindow.Dispose()
|
|
Exit Function
|
|
Case 2 'DOkument nicht für Person
|
|
MyMsg.show_standardmessage(60001, MsgBoxStyle.Critical)
|
|
dokumentBearbeitungWindow.Dispose()
|
|
Exit Function
|
|
End Select
|
|
|
|
|
|
dokumentBearbeitungWindow.Partnernr = Trim(Str(Partnernr))
|
|
dokumentBearbeitungWindow.Partnerwechsel = Partnerwechsel
|
|
dokumentBearbeitungWindow.Statuswechsel = Statuswechsel
|
|
Try
|
|
dokumentBearbeitungWindow.Statuswechsel = objAvaloqDokumentWerte.Statuswechsel
|
|
Catch
|
|
End Try
|
|
|
|
dokumentBearbeitungWindow.Verantwortlicherwechsel = VerantwortlicherWechsel
|
|
dokumentBearbeitungWindow.Zustaendiger = zustaendiger
|
|
dokumentBearbeitungWindow.UnterschriftLinks = unterschriftlinks
|
|
dokumentBearbeitungWindow.Unterschriftrechts = unterschriftrechts
|
|
dokumentBearbeitungWindow.Verantwortlicher = verantwortlicher
|
|
dokumentBearbeitungWindow.FANummer1 = FANummer1
|
|
dokumentBearbeitungWindow.FANummer2 = FANummer2
|
|
dokumentBearbeitungWindow.FANummer3 = FANummer3
|
|
dokumentBearbeitungWindow.avqwerte = objAvaloqDokumentWerte
|
|
If objSpooler.NoEdit > 0 Then
|
|
dokumentBearbeitungWindow.DoNoEdit()
|
|
Else
|
|
dokumentBearbeitungWindow.ShowDialog()
|
|
dokumentBearbeitungWindow.Hide()
|
|
Windows.Forms.Application.DoEvents()
|
|
End If
|
|
|
|
DivFnkt.Status_Dokumentbearbeitung(2, dokumentBearbeitungWindow.NeueDokumentid, False, "")
|
|
If objSpooler.NoEdit = 2 Then
|
|
DivFnkt.Dokumenterstellung_SetStatusBZA(dokumentBearbeitungWindow.NeueDokumentid)
|
|
End If
|
|
End If
|
|
End If
|
|
Else
|
|
'Dokumenttyp nicht mehr aktiv
|
|
TKBLib.Errorhandling.TraceHelper.Msg("EdokaApp.frmEdokaMain.DokErstellen", "Dokumenttyp nicht mehr aktiv", TraceLevel.Error)
|
|
End If
|
|
'20080401 RGL Anpassung für Dokumentpakete/Einzeldokumente/Barcodedokumente/BedingtRetournierbar
|
|
|
|
Catch ex As Exception
|
|
TKBLib.Errorhandling.TraceHelper.Msg("EdokaApp.frmEdokaMain.DokErstellen", ex.Message & ex.StackTrace, TraceLevel.Error)
|
|
Throw ex
|
|
End Try
|
|
|
|
End Function
|
|
|
|
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
|
|
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
|
|
Dim f As New frmTrefferliste()
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
f.refresh_list()
|
|
Me.Cursor = System.Windows.Forms.Cursors.Default
|
|
End Sub
|
|
|
|
|
|
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
|
Dim f As New frmMeldungen()
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
End Sub
|
|
|
|
|
|
Private Sub MenuItem20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem20.Click
|
|
Dim f As New frmAbout()
|
|
f.ShowDialog()
|
|
f.Dispose()
|
|
End Sub
|
|
|
|
|
|
Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
|
|
Dim f As New frmRevision()
|
|
f.Show()
|
|
End Sub
|
|
|
|
Private Sub MenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem11.Click
|
|
Dim f As New frmGenBarcodekleber
|
|
f.Show()
|
|
'Dim w As New WordLib()
|
|
'w.Create_Labels()
|
|
'w = Nothing
|
|
End Sub
|
|
|
|
Private Sub MenuItem18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem18.Click
|
|
Dim f As New frmMitarbeitereinstellungen()
|
|
f.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub MenuItem2_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuItem2.Popup
|
|
If Globals.Bearbeitung_Problemdokumente = True Then Me.MenuItem2.Enabled = False Else Me.MenuItem2.Enabled = True
|
|
refresh_menu_trefferliste()
|
|
End Sub
|
|
Private Sub MenuItem45_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuItem45.Popup
|
|
If Globals.Bearbeitung_Problemdokumente = True Then Me.MenuItem45.Enabled = False Else Me.MenuItem45.Enabled = True
|
|
refresh_menu_trefferliste()
|
|
End Sub
|
|
|
|
|
|
Private Sub refresh_menu_trefferliste()
|
|
Me.DataSet1.Clear()
|
|
Me.SqlConnection1.ConnectionString = Globals.sConnectionString
|
|
Me.SqlDataAdapter1.SelectCommand.Parameters("@mitarbeiternr").Value = Globals.MitarbeiterNr
|
|
Me.SqlDataAdapter1.SelectCommand.Parameters("@mandantnr").Value = Globals.MandantNr
|
|
Me.SqlDataAdapter1.Fill(Me.DataSet1)
|
|
Dim i As Integer
|
|
|
|
For i = 0 To Me.MenuItem2.MenuItems.Count - 1
|
|
Me.MenuItem2.MenuItems(i).Visible = False
|
|
Me.MenuItem45.MenuItems(i + 3).Visible = False
|
|
Next
|
|
Try
|
|
Me.ToolStipComboBox1.Items.Clear()
|
|
For i = 0 To Me.DataSet1.Tables(0).Rows.Count - 1
|
|
If i < 10 Then
|
|
Me.MenuItem2.MenuItems(i).Text = Me.DataSet1.Tables(0).Rows(i).Item("bezeichnung")
|
|
pnr(i) = Me.DataSet1.Tables(0).Rows(i).Item("profilnr")
|
|
Me.MenuItem2.MenuItems(i).Visible = True
|
|
Me.ToolStipComboBox1.Items.Add(Me.DataSet1.Tables(0).Rows(i).Item("Bezeichnung"))
|
|
End If
|
|
Next
|
|
Catch
|
|
End Try
|
|
|
|
|
|
Dim d As New DataTable()
|
|
Try
|
|
d = Me.get_profile
|
|
For i = 0 To d.Rows.Count - 1
|
|
If i < 10 Then
|
|
Me.MenuItem45.MenuItems(i + 3).Text = d.Rows(i).Item("profilname")
|
|
Me.MenuItem45.MenuItems(i + 3).Visible = True
|
|
spnr(i) = d.Rows(i).Item("suchprofilnr")
|
|
End If
|
|
Next
|
|
Catch
|
|
Finally
|
|
d.Dispose()
|
|
End Try
|
|
Dim c As Integer = 0
|
|
For i = 3 To Me.MenuItem45.MenuItems.Count - 1
|
|
If Me.MenuItem45.MenuItems(i).Visible = True Then c = c + 1
|
|
Next
|
|
If c = 0 Then Me.MenuItem57.Visible = False Else Me.MenuItem57.Visible = True
|
|
|
|
End Sub
|
|
|
|
Private Sub MenuItem22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem22.Click
|
|
open_trefferliste(pnr(0))
|
|
End Sub
|
|
|
|
Private Sub open_trefferliste(ByVal profilnr As Integer)
|
|
Dim i As Integer
|
|
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
|
|
Globals.profilnr = profilnr
|
|
Dim f As New frmTrefferliste()
|
|
f.MdiParent = Me
|
|
f.Partner_Eingegeben = False
|
|
f.Show()
|
|
' f.refresh_list()
|
|
' f.Refresh_All(True)
|
|
Me.Cursor = System.Windows.Forms.Cursors.Default
|
|
End Sub
|
|
|
|
Private Sub MenuItem23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem23.Click
|
|
open_trefferliste(pnr(1))
|
|
|
|
End Sub
|
|
|
|
Private Sub MenuItem24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem24.Click
|
|
open_trefferliste(pnr(2))
|
|
End Sub
|
|
|
|
Private Sub MenuItem25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem25.Click
|
|
open_trefferliste(pnr(3))
|
|
|
|
End Sub
|
|
|
|
Private Sub MenuItem26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem26.Click
|
|
open_trefferliste(pnr(4))
|
|
|
|
End Sub
|
|
|
|
Private Sub MenuItem27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem27.Click
|
|
open_trefferliste(pnr(5))
|
|
|
|
End Sub
|
|
|
|
Private Sub MenuItem28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem28.Click
|
|
open_trefferliste(pnr(6))
|
|
|
|
End Sub
|
|
|
|
Private Sub MenuItem29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem29.Click
|
|
open_trefferliste(pnr(7))
|
|
|
|
End Sub
|
|
|
|
Private Sub MenuItem30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem30.Click
|
|
open_trefferliste(pnr(8))
|
|
End Sub
|
|
|
|
Private Sub MenuItem31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem31.Click
|
|
open_trefferliste(pnr(9))
|
|
End Sub
|
|
|
|
Public Sub TimerFired(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles MyTimer.Elapsed
|
|
If mytimerstopped = True Then Exit Sub
|
|
mytimerstopped = True
|
|
MyTimer.Stop()
|
|
Dim i As Integer
|
|
i = DivFnkt.Check_MessageTimer
|
|
If i > 0 Then
|
|
Me.MenuItem39.Visible = True
|
|
' Me.StatusBar1.Text = "Sie haben " & Str(i) & " ungelesene EDOKA-Meldunge(n)."
|
|
End If
|
|
|
|
If Not Globals.In_Bearbeitung Then check_doc()
|
|
If Not Globals.In_Bearbeitung Then DivFnkt.check_doc2()
|
|
MyTimer.Start()
|
|
mytimerstopped = False
|
|
End Sub
|
|
|
|
|
|
Private Sub check_doc() 'check Dok'
|
|
If Me.fcheckdoc.fnkt = 2 Then Exit Sub
|
|
If Not Globals.In_Bearbeitung Then
|
|
fcheckdoc.refresh_list()
|
|
If fcheckdoc.t.Rows.Count > 0 Then
|
|
fcheckdoc.Visible = True
|
|
fcheckdoc.Activate()
|
|
End If
|
|
' Dim t As DataTable
|
|
' Dim d As New DocMgmt()
|
|
' t = d.check_doc
|
|
' If t.Rows.Count > 0 Then
|
|
' Dim f As New frmDefekteDokumente()
|
|
' f.C1TrueDBGrid1.DataSource = t
|
|
' f.C1TrueDBGrid1.DataMember = t.TableName
|
|
' f.MdiParent = Me
|
|
' f.Show()
|
|
' ' f.Dispose()
|
|
' End If
|
|
' 't.Dispose()
|
|
'd = Nothing
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub StatusBar1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles StatusBar1.DoubleClick
|
|
If Me.StatusBar1.Text <> "" Then
|
|
Dim f As New frmMeldungen()
|
|
f.MdiParent = Me
|
|
f.ShowDialog()
|
|
Me.StatusBar1.Text = ""
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MenuItem33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem33.Click
|
|
Dim f As New frmSearchDoc()
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
End Sub
|
|
Private Sub MenuItem35_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem35.Click
|
|
'RGL 20080612 Nur von DB laden wenn angezeigt
|
|
getRelNotes(Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("relNotes"))
|
|
|
|
Dim f As New frmWordViewer()
|
|
'Rel. Office 2010
|
|
f.addressBar.Text = Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente") + "relNotes.docx"
|
|
f.Text = "Release-Informationen"
|
|
f.ShowDialog()
|
|
f.Dispose()
|
|
'f.MdiParent = formx
|
|
'Dim f As New frmReleaseNotes()
|
|
'f.ShowDialog()
|
|
'f.Dispose()
|
|
End Sub
|
|
|
|
Private Sub MenuItem36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem36.Click
|
|
Dim w As New WordLib()
|
|
Me.Cursor = Cursors.WaitCursor
|
|
w.ResetFunctions()
|
|
w = Nothing
|
|
Me.Cursor = Cursors.Default
|
|
End Sub
|
|
|
|
Private Sub MenuItem21_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuItem21.Popup
|
|
If Globals.Words.Count > 0 Then
|
|
Me.MenuItem36.Enabled = False
|
|
Me.MenuItem40.Enabled = False
|
|
Else
|
|
Me.MenuItem36.Enabled = True
|
|
Me.MenuItem40.Enabled = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MenuItem37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem37.Click
|
|
Dim F As New frmFAQ()
|
|
F.MdiParent = Me
|
|
F.Show()
|
|
End Sub
|
|
|
|
Private Sub MenuItem39_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem39.Click
|
|
MenuItem3_Click(sender, e)
|
|
Me.MenuItem39.Visible = False
|
|
End Sub
|
|
|
|
Private Sub MenuItem39_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles MenuItem39.DrawItem
|
|
Try
|
|
Dim r As Rectangle = e.Bounds
|
|
r.Width = r.Width * 1.5
|
|
r.Height = r.Height * 0.9
|
|
e.Graphics.DrawImage(Me.ImageList1.Images(6), r)
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub MenuItem40_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem40.Click
|
|
Dim w As New WordLib()
|
|
Me.Cursor = Cursors.WaitCursor
|
|
w.ResetFunctions_Excel()
|
|
w = Nothing
|
|
Me.Cursor = Cursors.Default
|
|
|
|
End Sub
|
|
|
|
Private Sub Delete_Old_Files()
|
|
Dim di As New IO.DirectoryInfo(Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente"))
|
|
Dim diar1 As IO.FileInfo() = di.GetFiles()
|
|
Dim dra As IO.FileInfo
|
|
|
|
Dim d1 As DateTime = Now
|
|
Dim d2 As DateTime
|
|
For Each dra In diar1
|
|
If DateDiff(DateInterval.Day, dra.CreationTime, Now) > 5 Or Microsoft.VisualBasic.Left(dra.Name, 4) = "View" Then
|
|
Try
|
|
dra.Delete()
|
|
Catch
|
|
End Try
|
|
Else
|
|
Try
|
|
'Auch alle Lyt Files löschen
|
|
If InStr(dra.Name, ".lyt") > 0 Then
|
|
dra.Delete()
|
|
End If
|
|
Catch
|
|
End Try
|
|
End If
|
|
Next
|
|
|
|
Delete_Old_Spooler_Files()
|
|
End Sub
|
|
|
|
Private Sub Delete_Old_Spooler_Files()
|
|
Try
|
|
Dim di As New IO.DirectoryInfo(Globals.SpoolerTempDir)
|
|
Dim diar1 As IO.FileInfo() = di.GetFiles()
|
|
Dim dra As IO.FileInfo
|
|
|
|
Dim d1 As DateTime = Now
|
|
Dim d2 As DateTime
|
|
For Each dra In diar1
|
|
If DateDiff(DateInterval.Day, dra.CreationTime, Now) > 5 Then
|
|
Try
|
|
dra.Delete()
|
|
Catch
|
|
End Try
|
|
|
|
End If
|
|
Next
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Timer1_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed
|
|
Dim i As Integer
|
|
i = DivFnkt.Check_MessageTimer
|
|
If i > 0 Then
|
|
Me.MenuItem39.Visible = True
|
|
End If
|
|
If Not Globals.In_Bearbeitung Then check_doc()
|
|
End Sub
|
|
|
|
Private Sub MenuItem17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem17.Click
|
|
' ' Koe und shu - 2004-08-01
|
|
Dim f As New frmReportSelection()
|
|
f.Text = Replace(MenuItem17.Text, "&", "")
|
|
Me.Cursor = Cursors.WaitCursor
|
|
f.MdiParent = Me
|
|
Try
|
|
f.Show()
|
|
Catch ex As Exception
|
|
Me.Cursor = Cursors.Default
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
Me.Cursor = Cursors.Default
|
|
|
|
End Sub
|
|
|
|
Private Sub MenuItem2_Select(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuItem2.Select
|
|
If Globals.Bearbeitung_Problemdokumente = True Then Me.MenuItem2.Enabled = False Else Me.MenuItem2.Enabled = True
|
|
End Sub
|
|
|
|
Private Sub StatusBar1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles StatusBar1.TextChanged
|
|
If Me.StatusBar1.Text <> "" Then
|
|
Me.Timer2.Start()
|
|
Else
|
|
Me.Timer2.Stop()
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub Timer2_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer2.Elapsed
|
|
Me.StatusBar1.Text = ""
|
|
End Sub
|
|
|
|
Private Sub Timer3_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer3.Elapsed
|
|
If on_Create Then Exit Sub
|
|
Me.Timer3.Enabled = False
|
|
on_Create = True
|
|
Dim f As New frmTrefferliste()
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
f.Partner_Eingegeben = True
|
|
f.txtnrpar00.Text = Parameters(1)
|
|
f.refresh_list()
|
|
f.Partnernr = Parameters(1)
|
|
Me.Cursor = System.Windows.Forms.Cursors.Default
|
|
Globals.Apphandle = Me.Handle.ToInt32
|
|
Win32API.SetForegroundWindow(Me.Handle.ToInt32)
|
|
Win32API.ShowWindow(Me.Handle.ToInt32, Win32API.SW_RESTORE)
|
|
f.Create_Dokument(True, False)
|
|
on_Create = False
|
|
End Sub
|
|
|
|
Dim frmpartnerzusammenlegung As New frmPartnerzusammenlegung()
|
|
Private Sub MenuItem42_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem42.Click
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Me.frmpartnerzusammenlegung.MdiParent = Me
|
|
Me.frmpartnerzusammenlegung.Refresh_All()
|
|
If Me.frmpartnerzusammenlegung.ListBox1.Items.Count > 0 Then
|
|
Me.frmpartnerzusammenlegung.Show()
|
|
End If
|
|
Me.Cursor = Cursors.Default
|
|
End Sub
|
|
|
|
Private Sub MenuItem44_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem44.Click
|
|
Dim f As New frmSuchFormular()
|
|
f.show_checkmessage = True
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
End Sub
|
|
|
|
|
|
|
|
Private Function get_profile() As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.Connection = Globals.conn.scoDBConnection
|
|
scmCmdToExecute.CommandText = "dbo.SP_suchprofildaten_get_profile"
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
' Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
|
|
Private Sub open_suchprofil(ByVal spnr As Integer)
|
|
Dim f As New frmSuchFormular(False)
|
|
f.MdiParent = Me
|
|
f.show_checkmessage = False
|
|
f.Show()
|
|
f.show_checkmessage = True
|
|
f.cbProfile.SelectedValue = spnr
|
|
f.Update_Profildaten()
|
|
End Sub
|
|
|
|
Private Sub MenuItem46_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem46.Click
|
|
open_suchprofil(spnr(0))
|
|
End Sub
|
|
|
|
Private Sub MenuItem47_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem47.Click
|
|
open_suchprofil(spnr(1))
|
|
End Sub
|
|
|
|
Private Sub MenuItem48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem48.Click
|
|
open_suchprofil(spnr(2))
|
|
End Sub
|
|
|
|
Private Sub MenuItem49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem49.Click
|
|
open_suchprofil(spnr(3))
|
|
End Sub
|
|
|
|
Private Sub MenuItem50_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem50.Click
|
|
open_suchprofil(spnr(4))
|
|
End Sub
|
|
|
|
|
|
Private Sub MenuItem51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem51.Click
|
|
open_suchprofil(spnr(5))
|
|
End Sub
|
|
|
|
Private Sub MenuItem52_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem52.Click
|
|
open_suchprofil(spnr(6))
|
|
End Sub
|
|
|
|
Private Sub MenuItem53_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem53.Click
|
|
open_suchprofil(spnr(7))
|
|
End Sub
|
|
|
|
Private Sub MenuItem54_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem54.Click
|
|
open_suchprofil(spnr(8))
|
|
End Sub
|
|
|
|
Private Sub MenuItem55_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem55.Click
|
|
open_suchprofil(spnr(9))
|
|
End Sub
|
|
|
|
|
|
Private Sub MenuItem56_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem56.Click
|
|
Dim f As New frmSearchDoc()
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
|
|
End Sub
|
|
|
|
Private Sub MenuItem43_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem43.Click
|
|
Dim f As New frmSuchFormular(True)
|
|
f.show_checkmessage = True
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
End Sub
|
|
|
|
|
|
Private Sub MenuItem34_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem34.Click
|
|
Globals.HTMLHelp.ShowHelpTopic()
|
|
End Sub
|
|
|
|
Private Sub MenuItem58_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem58.Click
|
|
Globals.HTMLHelp.ShowHelpIndex()
|
|
End Sub
|
|
|
|
Private Sub MenuItem60_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem60.Click
|
|
Globals.HTMLHelp.ShowSearch()
|
|
|
|
End Sub
|
|
|
|
Private Sub MenuItem61_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
'Hutter 2005-01-04
|
|
'EDEX_Dokumentpakete
|
|
Dim f As New frmDokumentpaket(1)
|
|
f.Show()
|
|
|
|
End Sub
|
|
|
|
Private Overloads Sub EDOKAMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Try
|
|
|
|
HandleCommand(CmdArgsSimulated)
|
|
'Rel 4.03
|
|
'Dim strargs = Get_Strargs(Environment.GetCommandLineArgs())
|
|
'HandleCommand(strargs)
|
|
'MsgBox(Environment.CommandLine)
|
|
'Dim strargs() As String = Environment.GetCommandLineArgs()
|
|
|
|
'HandleCommand(strargs)
|
|
'HandleCommand(CmdArgsSimulated)
|
|
Load_Pluginmenu()
|
|
'Dim clsplugins As New EDOKA_Erweiterungen.clsEdoka_Erweiterungen
|
|
'clsplugins.Test()
|
|
Catch ex As Exception
|
|
TKBLib.Errorhandling.TraceHelper.Msg("frmEdokaMain.EDOKAMain_Load.Main", ex.Message & ex.StackTrace, TraceLevel.Error)
|
|
MsgBox("Beim Starten von Edoka ist ein Fehler aufgetreten. Das Programm wird fortgesetzt", MsgBoxStyle.OkOnly, "Fehler beim Starten")
|
|
MsgBox(ex.Message.ToString)
|
|
End Try
|
|
End Sub
|
|
|
|
'Rel 5.2
|
|
|
|
'Private Plugins() As PluginServices.AvailablePlugin
|
|
'Private objHost As EDOKA_PluginLib.IHost
|
|
|
|
|
|
'Private Sub PopulatePluginList()
|
|
' Dim mi As New MenuItem
|
|
' If Plugins.Length > -1 Then
|
|
' mi = Me.MainMenu1.MenuItems.Add("Erweiterungen")
|
|
' End If
|
|
' Dim objPlugin As EDOKA_PluginLib.IPlugin
|
|
' Dim intIndex As Integer
|
|
' 'Loop through available plugins, creating instances and adding them to listbox
|
|
' For intIndex = 0 To Plugins.Length - 1
|
|
' Try
|
|
' objPlugin = DirectCast(PluginServices.CreateInstance(Plugins(intIndex)), EDOKA_PluginLib.IPlugin)
|
|
' mi.MenuItems.Add(objPlugin.Name)
|
|
' Catch ex As Exception
|
|
' MsgBox(ex.Message)
|
|
' End Try
|
|
' Next
|
|
|
|
|
|
'End Sub
|
|
|
|
'Rel 4.03
|
|
Private Function Get_Strargs(ByVal args() As String) As String()
|
|
Dim arg As String = ""
|
|
Dim i As Integer = 0
|
|
For Each s As String In args
|
|
If i <> 0 Then
|
|
If arg <> "" Then arg = arg + " "
|
|
arg = arg + s
|
|
End If
|
|
i = i + 1
|
|
Next
|
|
Dim tmpargs() As String = arg.Split(" ")
|
|
Return tmpargs
|
|
End Function
|
|
|
|
Dim mnucollection As New Collection()
|
|
Private Sub MenuItem62_PopUp(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuItem62.Popup
|
|
Dim i As Integer
|
|
Dim mnuitem As Integer
|
|
Try
|
|
While mnucollection.Count > 0
|
|
Me.mnucollection.Remove(1)
|
|
|
|
End While
|
|
Catch
|
|
End Try
|
|
|
|
For i = 2 To Me.MenuItem62.MenuItems.Count - 1
|
|
Me.MenuItem62.MenuItems.Item(i).Visible = False
|
|
Next
|
|
mnuitem = 2
|
|
Dim f As New frmOffeneDPInstanzen()
|
|
f.Load_Data()
|
|
i = 0
|
|
If f.dpdaten.Rows.Count = 0 Then
|
|
Me.MenuItem63.Enabled = False
|
|
Else
|
|
Me.MenuItem63.Enabled = True
|
|
End If
|
|
For i = 0 To f.dpdaten.Rows.Count - 1
|
|
If i < 10 Then
|
|
Me.MenuItem62.MenuItems.Item(mnuitem).Text = f.dpdaten.Rows(i).Item("Bezeichnung") + " (" + LTrim(Str(f.dpdaten.Rows(i).Item("nrpar00"))) + ")"
|
|
Me.MenuItem62.MenuItems.Item(mnuitem).Visible = True
|
|
Me.mnucollection.Add(f.dpdaten.Rows(i).Item("nreintrag"))
|
|
mnuitem = mnuitem + 1
|
|
End If
|
|
Next
|
|
f.Dispose()
|
|
End Sub
|
|
|
|
Private Sub mnudpinstanz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnudp1.Click, mnudp2.Click, mnudp3.Click, mnudp4.Click, mnudp5.Click, mnudp6.Click, mnudp7.Click, mnudp8.Click, mnudp9.Click, mnudp10.Click
|
|
Dim mnuitem As New MenuItem()
|
|
mnuitem = sender
|
|
Dim f As New frmDokumentpaket(mnucollection(mnuitem.Index - 1))
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
End Sub
|
|
|
|
Private Sub MenuItem63_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem63.Click
|
|
Dim f As New frmOffeneDPInstanzen()
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
End Sub
|
|
|
|
Private Sub MenuItem61_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem61.Click
|
|
Try
|
|
Dim p As New Process()
|
|
p.Start(Globals.Applikationsdaten.Rows(0).Item("videomenu"))
|
|
p.Dispose()
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub mnuauslieferungen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuauslieferungen.Click
|
|
Dim frm As Windows.Forms.Form
|
|
For Each frm In Me.MdiChildren
|
|
If frm.Name = "frmBLAuslieferungen" Then
|
|
frm.BringToFront()
|
|
Exit Sub
|
|
End If
|
|
Next
|
|
Dim f As New frmBLAuslieferungen()
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
End Sub
|
|
|
|
Private Sub mnuserienbriefe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuserienbriefe.Click
|
|
Dim f As New frmSerienbriefe()
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
Dim f1 As New frmDruckMessage()
|
|
f1.MdiParent = Me
|
|
f.Show()
|
|
End Sub
|
|
|
|
Private Sub mnuPartnerlisten_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuPartnerlisten.Click
|
|
Dim f As New frmPartnerlisteVerwalten()
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
End Sub
|
|
|
|
Private Function Check_show_sb() As Boolean
|
|
Try
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Dim s As String
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.CommandText = "dbo.sp_edex_sb_showmenu"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@show", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
If scmCmdToExecute.Parameters("@show").Value = 0 Then
|
|
Return False
|
|
Else
|
|
Return True
|
|
End If
|
|
Catch ex As Exception
|
|
Throw New Exception("::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
dtToReturn.Dispose()
|
|
End Try
|
|
Catch
|
|
|
|
End Try
|
|
End Function
|
|
|
|
Private Sub menuSpooler_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
objSpooler.Visible = True
|
|
End Sub
|
|
|
|
Private Sub menuSpooler_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuSpooler.Click
|
|
If IsNothing(objSpooler) = False Then
|
|
objSpooler.Visible = True
|
|
objSpooler.refreshList()
|
|
objSpooler.BringToFront()
|
|
Else
|
|
objSpooler = New frmAvaloqSpooler()
|
|
objSpooler.refreshList()
|
|
objSpooler.MdiParent = Me
|
|
objSpooler.Visible = True
|
|
objSpooler.BringToFront()
|
|
End If
|
|
End Sub
|
|
|
|
#Region "4.03"
|
|
|
|
Public Sub show_vorlagen(ByVal imglist As ImageList, ByVal profilnr As Integer, ByVal showfavoriten As Boolean, ByVal profile As DataTable, ByVal docart As String, ByVal BestehenderPartner As Boolean, ByVal BestBPNr As String)
|
|
Dim vorlagen As New frmVorlagenauswahl
|
|
'f.TopMost = True
|
|
vorlagen.TVStruktur.ImageList = imglist
|
|
|
|
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
|
|
vorlagen.Show_Favoriten = showfavoriten
|
|
vorlagen.ProfilNr = profilnr
|
|
vorlagen.Profile = profile
|
|
vorlagen.Bestehenderpartner = BestehenderPartner
|
|
Try
|
|
vorlagen.BestBPNr = BestBPNr
|
|
Catch ex As Exception
|
|
vorlagen.BestBPNr = 0
|
|
End Try
|
|
vorlagen.Dokumentart = docart
|
|
Globals.Individuelles_Dokumentpaket = False
|
|
Globals.DokumentPaket = False
|
|
vorlagen.ShowDialog()
|
|
If vorlagen.DialogResult = Windows.Forms.DialogResult.OK And vorlagen.DocType_To_Create = "N" Then
|
|
startdoc(vorlagen.ProfilNr, vorlagen.Profile, vorlagen.BestehenderBP, vorlagen.Dokumentvorlage, vorlagen.BarcodeID)
|
|
End If
|
|
If vorlagen.DialogResult = Windows.Forms.DialogResult.OK And vorlagen.DocType_To_Create = "DP" Then
|
|
StartDP(vorlagen.ProfilNr, vorlagen.Profile, vorlagen.BestehenderBP, vorlagen.Dokumentvorlage, vorlagen.BarcodeID)
|
|
End If
|
|
If vorlagen.DialogResult = Windows.Forms.DialogResult.OK And vorlagen.DocType_To_Create = "BCK" Then
|
|
StartBCK(vorlagen.ProfilNr, vorlagen.Profile, vorlagen.BestehenderBP, vorlagen.Dokumentvorlage, vorlagen.BarcodeID)
|
|
End If
|
|
If vorlagen.DialogResult = Windows.Forms.DialogResult.OK And vorlagen.DocType_To_Create = "ED" Then
|
|
StartED(vorlagen.ProfilNr, vorlagen.Profile, vorlagen.BestehenderBP, vorlagen.Dokumentvorlage, vorlagen.BarcodeID)
|
|
End If
|
|
|
|
Me.Cursor = Cursors.Default
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
Private Sub startdoc(ByVal Profilnr As Integer, ByVal Profile As System.Data.DataTable, ByVal bestbpnr As String, ByVal Dokumentvorlage As Integer, ByVal Barcodeid As String)
|
|
Dim fI As New frmDokumentbearbeitung()
|
|
fI.Profilnr = Profilnr
|
|
fI.Profile = Profile
|
|
fI.Partnernr = bestbpnr
|
|
fI.Dokumenttypnr = Dokumentvorlage
|
|
fI.CreateDocument = True
|
|
fI.BarcodeID = Barcodeid
|
|
fI.ShowDialog()
|
|
Me.Cursor = System.Windows.Forms.Cursors.Default
|
|
End Sub
|
|
|
|
Private Sub StartDP(ByVal Profilnr As Integer, ByVal Profile As System.Data.DataTable, ByVal bestbpnr As String, ByVal Dokumentvorlage As Integer, ByVal Barcodeid As String)
|
|
Dim dp1 As New frmDokumentpaket(Dokumentvorlage, Globals.Individuelles_Dokumentpaket, bestbpnr)
|
|
dp1.Profile = Profile
|
|
dp1.Profilnr = Profilnr
|
|
dp1.MdiParent = Me
|
|
'dp1.ShowDialog()
|
|
dp1.Show()
|
|
Me.Cursor = System.Windows.Forms.Cursors.Default
|
|
End Sub
|
|
|
|
Private Sub StartBCK(ByVal Profilnr As Integer, ByVal Profile As System.Data.DataTable, ByVal bestbpnr As String, ByVal Dokumentvorlage As Integer, ByVal Barcodeid As String)
|
|
Dim fi As New frmDokumentbearbeitungBC()
|
|
fi.Profilnr = Profilnr
|
|
fi.Profile = Profile
|
|
fi.Partnernr = bestbpnr
|
|
fi.Dokumenttypnr = Dokumentvorlage
|
|
fi.CreateDocument = True
|
|
fi.BarcodeID = Barcodeid
|
|
fi.ShowDialog()
|
|
Me.Cursor = System.Windows.Forms.Cursors.Default
|
|
End Sub
|
|
|
|
Private Sub StartED(ByVal Profilnr As Integer, ByVal Profile As System.Data.DataTable, ByVal bestbpnr As String, ByVal Dokumentvorlage As Integer, ByVal Barcodeid As String)
|
|
|
|
Dim fi As New frmDokumentbearbeitungED()
|
|
fi.Profilnr = Profilnr
|
|
fi.Profile = Profile
|
|
fi.Partnernr = bestbpnr
|
|
fi.Dokumenttypnr = Dokumentvorlage
|
|
fi.CreateDocument = True
|
|
fi.BarcodeID = Me.barcodeid
|
|
fi.MdiParent = Me.MdiParent
|
|
fi.ShowDialog()
|
|
|
|
End Sub
|
|
|
|
Public Event WndProc2(ByVal m As System.Windows.Forms.Message, ByRef Cancel As Boolean) Implements mMain.SingleInstance.ISingleInstanceForm.WndProc
|
|
|
|
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
|
|
Dim bCancel As Boolean = False
|
|
|
|
RaiseEvent WndProc2(m, bCancel)
|
|
If Not bCancel Then MyBase.WndProc(m)
|
|
End Sub
|
|
|
|
Public ReadOnly Property hWnd() As System.IntPtr Implements EDOKAApp.mMain.SingleInstance.ISingleInstanceForm.Handle
|
|
Get
|
|
Return Handle
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub HandleCommand(ByVal strCmd As String) Implements EDOKAApp.mMain.SingleInstance.ISingleInstanceForm.HandleCommand
|
|
Dim arrCmd() As String
|
|
Me.BringToFront()
|
|
Try
|
|
arrCmd = SerialHelper.DeserializeFromBase64String(strCmd)
|
|
TKBLib.Errorhandling.TraceHelper.Msg("Schnittstelle", "Agrument übergeben: " + arrCmd(0), TraceLevel.Info)
|
|
HandleCommand(arrCmd)
|
|
Catch ex As Exception
|
|
HandleCommand(New String() {strCmd})
|
|
Finally
|
|
Erase arrCmd
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
Private Sub MnuSystemadministration_Neu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuSystemadministration_Neu.Click
|
|
Dim f As New _frmSysadminMenu()
|
|
|
|
Dim x As Windows.Forms.Form
|
|
Dim isactive As Boolean
|
|
isactive = False
|
|
For Each x In Me.MdiChildren
|
|
If x.Name = f.Name And x.Visible = True Then
|
|
f.Dispose()
|
|
x.BringToFront()
|
|
isactive = True
|
|
End If
|
|
Next
|
|
If Not isactive Then
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
End If
|
|
'Dim ff As New frmSysadminMenuNeu
|
|
'ff.MdiParent = Me
|
|
'ff.Show()
|
|
|
|
End Sub
|
|
|
|
Private Sub mnublpartneruebersicht_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnublpartneruebersicht.Click
|
|
Dim f As New frmBlPartnerUebersicht
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
|
|
Dim nd As New clsNativ.clsNativeDok
|
|
nd.Connectionstring = Globals.sConnectionString
|
|
nd.Mitarbeiternr = Globals.MitarbeiterNr
|
|
nd.Parentform = Me
|
|
nd.Show_DokSelect()
|
|
End Sub
|
|
|
|
Private Sub TSBtnSuche_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnSuche.Click
|
|
MenuItem56_Click(sender, e)
|
|
End Sub
|
|
|
|
Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
|
|
MenuItem43_Click(sender, e)
|
|
End Sub
|
|
|
|
Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
|
|
MenuItem58_Click(sender, e)
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub ToolStipComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStipComboBox1.SelectedIndexChanged
|
|
Try
|
|
Dim i As Integer = 0
|
|
For Each m As MenuItem In Me.MenuItem2.MenuItems
|
|
If m.Text = Me.ToolStipComboBox1.Text Then
|
|
open_trefferliste(pnr(i))
|
|
Me.ToolStipComboBox1.Text = ""
|
|
Exit For
|
|
End If
|
|
i = i + 1
|
|
Next
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click
|
|
MenuItem6_Click(sender, e)
|
|
End Sub
|
|
|
|
Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
MsgBox(Globals.Words.Count)
|
|
End Sub
|
|
|
|
Private Sub MenuItem69_Click(sender As Object, e As EventArgs) Handles MenuItem69.Click
|
|
Dim f As New frmAvaloqSpoolerTemp
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
|
|
End Sub
|
|
|
|
Private Sub Mnu_DokumenteSelbstanzeigen_Click(sender As Object, e As EventArgs) Handles Mnu_DokumenteSelbstanzeigen.Click
|
|
Dim f As New frmSA
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
End Sub
|
|
|
|
Private Sub Mnu_DokumenteMehrfachdruck_Click(sender As Object, e As EventArgs) Handles Mnu_DokumenteMehrfachdruck.Click
|
|
Dim f As New frmMD
|
|
f.MdiParent = Me
|
|
f.Show()
|
|
End Sub
|
|
|
|
|
|
#Region "Plugins"
|
|
Sub erweiterungenclick(sender As Object, e As EventArgs)
|
|
Dim myProcess As Process = New Process()
|
|
Dim MyHandle As IntPtr
|
|
Dim clsp As New clsPlugin
|
|
Dim path As String = clsp.get_path
|
|
'myProcess.StartInfo.FileName = "E:\Software-Projekte\EDOKA\client\EDOKA_Erweiterungen\bin\Debug\EDOKA_Erweiterungen.exe"
|
|
myProcess.StartInfo.FileName = path + "\EDOKA_Erweiterungen.exe"
|
|
myProcess.StartInfo.Arguments = "/Plugin=""" + sender.tag + """ /MA=" + Globals.MitarbeiterNr.ToString
|
|
myProcess.StartInfo.WindowStyle = ProcessWindowStyle.Normal
|
|
myProcess.Start()
|
|
Win32API.BringWindowToTop(myProcess.Handle)
|
|
End Sub
|
|
|
|
Private Sub Load_Pluginmenu()
|
|
Dim clsplugin As New clsPlugin
|
|
clsplugin.get_pluginrechte()
|
|
Dim menueintrag As New MenuItem
|
|
menueintrag.Text = "Erweiterungen"
|
|
Me.MenuitemErweiterungen.MenuItems.Clear()
|
|
MenuitemErweiterungen.MenuItems.Clear()
|
|
|
|
For Each r As DataRow In clsplugin.PluginRechte.Rows
|
|
Dim mi As New MenuItem
|
|
mi.Text = r.Item(0)
|
|
mi.Tag = r.Item(1)
|
|
menueintrag.MenuItems.Add(mi)
|
|
AddHandler mi.Click, AddressOf erweiterungenclick
|
|
Next
|
|
|
|
If menueintrag.MenuItems.Count > 0 Then
|
|
menueintrag.MergeOrder = 1000
|
|
Me.MainMenu1.MenuItems.Add(menueintrag)
|
|
End If
|
|
|
|
If MenuitemErweiterungen.MenuItems.Count = 0 Then
|
|
Me.MenuitemErweiterungen.Visible = False
|
|
Else
|
|
Me.MenuitemErweiterungen.Visible = True
|
|
|
|
End If
|
|
Exit Sub
|
|
Dim i As Integer = 0
|
|
For Each r As DataRow In clsplugin.PluginRechte.Rows
|
|
i = i + 1
|
|
Select Case i
|
|
Case 1
|
|
Me.MnuItemPlugin1.Text = r.Item(0)
|
|
Case 2
|
|
Me.MnuItemPlugin2.Text = r.Item(0)
|
|
Case 3
|
|
Me.MnuItemPlugin3.Text = r.Item(0)
|
|
Case 4
|
|
Me.MnuItemPlugin4.Text = r.Item(0)
|
|
Case 5
|
|
Me.MnuItemPlugin5.Text = r.Item(0)
|
|
Case 6
|
|
Me.MnuItemPlugin6.Text = r.Item(0)
|
|
Case 7
|
|
Me.MnuItemPlugin7.Text = r.Item(0)
|
|
Case 8
|
|
Me.MnuItemPlugin8.Text = r.Item(0)
|
|
Case 9
|
|
Me.MnuItemPlugin9.Text = r.Item(0)
|
|
Case 10
|
|
Me.MnuItemPlugin10.Text = r.Item(0)
|
|
End Select
|
|
Next
|
|
|
|
For i1 As Integer = i To 10
|
|
Select Case i1
|
|
Case 1
|
|
Me.MnuItemPlugin1.Visible = False
|
|
Case 2
|
|
Me.MnuItemPlugin2.Visible = False
|
|
Case 3
|
|
Me.MnuItemPlugin3.Visible = False
|
|
Case 4
|
|
Me.MnuItemPlugin4.Visible = False
|
|
Case 5
|
|
Me.MnuItemPlugin5.Visible = False
|
|
Case 6
|
|
Me.MnuItemPlugin6.Visible = False
|
|
Case 7
|
|
Me.MnuItemPlugin7.Visible = False
|
|
Case 8
|
|
Me.MnuItemPlugin8.Visible = False
|
|
Case 9
|
|
Me.MnuItemPlugin9.Visible = False
|
|
Case 10
|
|
Me.MnuItemPlugin10.Visible = False
|
|
End Select
|
|
Next
|
|
|
|
If i = 0 Then
|
|
Me.MenuitemErweiterungen.Visible = False
|
|
|
|
End If
|
|
End Sub
|
|
|
|
'
|
|
|
|
' Dim plugins As ICollection(Of IPlugin) = New List(Of IPlugin)
|
|
' Private _Plugins As Dictionary(Of String, IPlugin)
|
|
|
|
|
|
' Sub Load_Plugins()
|
|
' Dim clsp As New clsPlugin
|
|
' If clsp.get_pluginrechte = "" Then
|
|
' Me.MenuitemErweiterungen.Visible = False
|
|
' Exit Sub
|
|
' End If
|
|
' Dim path As String
|
|
' path = clsp.get_path
|
|
' plugins = LoadPlugins(path)
|
|
' Populate_Plugins()
|
|
' End Sub
|
|
|
|
' Public Function LoadPlugins(path As String) As ICollection(Of IPlugin)
|
|
' Dim dllFileNames As String()
|
|
|
|
' If Directory.Exists(path) Then
|
|
' dllFileNames = Directory.GetFiles(path, "*.dll")
|
|
|
|
' Dim assemblies As ICollection(Of Assembly) = New List(Of Assembly)(dllFileNames.Length)
|
|
' For Each dllFile As String In dllFileNames
|
|
' Dim an As AssemblyName = AssemblyName.GetAssemblyName(dllFile)
|
|
' Dim assembly As Assembly = Assembly.Load(an)
|
|
' assemblies.Add(assembly)
|
|
' Next
|
|
|
|
' Dim pluginType As Type = GetType(IPlugin)
|
|
' Dim pluginTypes As ICollection(Of Type) = New List(Of Type)
|
|
' For Each assembly As Assembly In assemblies
|
|
' If assembly <> Nothing Then
|
|
' Dim types As Type() = assembly.GetTypes()
|
|
|
|
' For Each type As Type In types
|
|
' If type.IsInterface Or type.IsAbstract Then
|
|
' Continue For
|
|
' Else
|
|
' If type.GetInterface(pluginType.FullName) <> Nothing Then
|
|
' pluginTypes.Add(type)
|
|
' End If
|
|
' End If
|
|
' Next
|
|
' End If
|
|
' Next
|
|
|
|
' Dim plugins As ICollection(Of IPlugin) = New List(Of IPlugin)(pluginTypes.Count)
|
|
' For Each type As Type In pluginTypes
|
|
' Dim plugin As IPlugin = Activator.CreateInstance(type)
|
|
' plugins.Add(plugin)
|
|
' Next
|
|
|
|
' Return plugins
|
|
' End If
|
|
|
|
' Return Nothing
|
|
' End Function
|
|
|
|
|
|
' Private Sub Populate_Plugins()
|
|
' Dim clsp As New clsPlugin
|
|
|
|
' _Plugins = New Dictionary(Of String, IPlugin)
|
|
|
|
' Dim mi As New MenuItem
|
|
|
|
' Dim item As Object
|
|
|
|
' If plugins.Count > 0 Then
|
|
' Me.MenuitemErweiterungen.Visible = True
|
|
' Else
|
|
' Me.MenuitemErweiterungen.Visible = False
|
|
' End If
|
|
' Dim i As Integer = 0
|
|
' For Each item In plugins
|
|
|
|
' 'Dim pluginmenuiteam As New MenuItem(item.name)
|
|
' 'Me.MenuitemErweiterungen.MenuItems.Add(pluginmenuiteam)
|
|
|
|
' _Plugins.Add(item.Name, item)
|
|
|
|
|
|
' If clsp.Check_Berechtigungen(item.name) = True Then
|
|
' i = i + 1
|
|
' Select Case i
|
|
' Case 1
|
|
' Me.MnuItemPlugin1.Text = item.name
|
|
' Case 2
|
|
' Me.MnuItemPlugin2.Text = item.name
|
|
' Case 3
|
|
' Me.MnuItemPlugin3.Text = item.name
|
|
' Case 4
|
|
' Me.MnuItemPlugin4.Text = item.name
|
|
' Case 5
|
|
' Me.MnuItemPlugin5.Text = item.name
|
|
' Case 6
|
|
' Me.MnuItemPlugin6.Text = item.name
|
|
' Case 7
|
|
' Me.MnuItemPlugin7.Text = item.name
|
|
' Case 8
|
|
' Me.MnuItemPlugin8.Text = item.name
|
|
' Case 9
|
|
' Me.MnuItemPlugin9.Text = item.name
|
|
' Case 10
|
|
' Me.MnuItemPlugin10.Text = item.name
|
|
' End Select
|
|
' End If
|
|
|
|
|
|
' ''lstPlugins.Items.Add(item.Name)
|
|
' 'Dim tmisub As New ToolStripMenuItem
|
|
' 'tmisub = Me.ToolstipdropdownErweiterungen.DropDownItems.Add(item.name)
|
|
' 'AddHandler tmisub.Click, AddressOf Erweiterungen_Click
|
|
' Next
|
|
' If i = 0 Then
|
|
' Me.MenuitemErweiterungen.Visible = False
|
|
|
|
' End If
|
|
' 'lstPlugins.SelectedIndex = 0
|
|
' i = i + 1
|
|
' For i1 As Integer = i To 10
|
|
' Select Case i1
|
|
' Case 1
|
|
' Me.MnuItemPlugin1.Visible = False
|
|
' Case 2
|
|
' Me.MnuItemPlugin2.Visible = False
|
|
' Case 3
|
|
' Me.MnuItemPlugin3.Visible = False
|
|
' Case 4
|
|
' Me.MnuItemPlugin4.Visible = False
|
|
' Case 5
|
|
' Me.MnuItemPlugin5.Visible = False
|
|
' Case 6
|
|
' Me.MnuItemPlugin6.Visible = False
|
|
' Case 7
|
|
' Me.MnuItemPlugin7.Visible = False
|
|
' Case 8
|
|
' Me.MnuItemPlugin8.Visible = False
|
|
' Case 9
|
|
' Me.MnuItemPlugin9.Visible = False
|
|
' Case 10
|
|
' Me.MnuItemPlugin10.Visible = False
|
|
' End Select
|
|
|
|
' Next
|
|
' End Sub
|
|
|
|
Private Sub MnuItemPlugin1_Click(sender As Object, e As EventArgs) Handles MnuItemPlugin1.Click, MnuItemPlugin2.Click, MnuItemPlugin3.Click, MnuItemPlugin4.Click, MnuItemPlugin5.Click, MnuItemPlugin6.Click, MnuItemPlugin7.Click, MnuItemPlugin8.Click, MnuItemPlugin9.Click, MnuItemPlugin10.Click
|
|
Dim myProcess As Process = New Process()
|
|
Dim MyHandle As IntPtr
|
|
myProcess.StartInfo.FileName = "E:\Software-Projekte\EDOKA\client\EDOKA_Erweiterungen\bin\Debug\EDOKA_Erweiterungen.exe"
|
|
myProcess.StartInfo.Arguments = "/Plugin=""" + sender.tag + """ /MA=" + Globals.MitarbeiterNr.ToString
|
|
myProcess.StartInfo.WindowStyle = ProcessWindowStyle.Normal
|
|
myProcess.Start()
|
|
Win32API.BringWindowToTop(myProcess.Handle)
|
|
'Dim f As New frmOpenPlugin
|
|
'f.MdiParent = Me
|
|
'f.PluginName = sender.text
|
|
'f.Show()
|
|
End Sub
|
|
|
|
Private Sub MenuItem71_Click(sender As Object, e As EventArgs) Handles MenuItem71.Click
|
|
Globals.Printersettings.Restore_Defaults()
|
|
End Sub
|
|
|
|
Private Sub MenuItem70_Click(sender As Object, e As EventArgs) Handles MenuItem70.Click
|
|
Me.fcheckdoc.Show()
|
|
End Sub
|
|
|
|
Private Sub MenuItem72_Click(sender As Object, e As EventArgs) Handles MenuItem72.Click
|
|
Me.fcheckdoc.fnkt = 4
|
|
Me.fcheckdoc.Show()
|
|
End Sub
|
|
#End Region
|
|
|
|
End Class
|