shu
/
EDOKA_Client
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
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.
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'dad3af0d8e'
${ noResults }
EDOKA_Client/EDOKA/Backup/frmEdokaMain.vb

2914 lines
133 KiB
Raw Blame History

Imports System.IO
Imports ALLGEMEIN.UI
Imports System.Drawing.Color
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Imports EDOKALib.Common
Imports EDOKALib
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 ImageList1 As System.Windows.Forms.ImageList
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 Label1 As System.Windows.Forms.Label
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 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.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
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.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.MenuItem66 = New System.Windows.Forms.MenuItem
Me.mnuserienbriefe = New System.Windows.Forms.MenuItem
Me.mnuPartnerlisten = 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.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.MenuItem67 = New System.Windows.Forms.MenuItem
Me.menuSpooler = New System.Windows.Forms.MenuItem
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.SuspendLayout()
'
'StatusBar1
'
Me.StatusBar1.AccessibleDescription = Nothing
Me.StatusBar1.AccessibleName = Nothing
resources.ApplyResources(Me.StatusBar1, "StatusBar1")
Me.StatusBar1.BackgroundImage = Nothing
Me.StatusBar1.Font = Nothing
Me.HelpProvider1.SetHelpKeyword(Me.StatusBar1, Nothing)
Me.HelpProvider1.SetHelpNavigator(Me.StatusBar1, CType(resources.GetObject("StatusBar1.HelpNavigator"), System.Windows.Forms.HelpNavigator))
Me.HelpProvider1.SetHelpString(Me.StatusBar1, Nothing)
Me.StatusBar1.Name = "StatusBar1"
Me.HelpProvider1.SetShowHelp(Me.StatusBar1, CType(resources.GetObject("StatusBar1.ShowHelp"), Boolean))
'
'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, "")
'
'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})
resources.ApplyResources(Me.MainMenu1, "MainMenu1")
'
'MenuItem1
'
resources.ApplyResources(Me.MenuItem1, "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})
'
'MenuItem2
'
resources.ApplyResources(Me.MenuItem2, "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})
'
'MenuItem22
'
resources.ApplyResources(Me.MenuItem22, "MenuItem22")
Me.MenuItem22.Index = 0
'
'MenuItem23
'
resources.ApplyResources(Me.MenuItem23, "MenuItem23")
Me.MenuItem23.Index = 1
'
'MenuItem24
'
resources.ApplyResources(Me.MenuItem24, "MenuItem24")
Me.MenuItem24.Index = 2
'
'MenuItem25
'
resources.ApplyResources(Me.MenuItem25, "MenuItem25")
Me.MenuItem25.Index = 3
'
'MenuItem26
'
resources.ApplyResources(Me.MenuItem26, "MenuItem26")
Me.MenuItem26.Index = 4
'
'MenuItem27
'
resources.ApplyResources(Me.MenuItem27, "MenuItem27")
Me.MenuItem27.Index = 5
'
'MenuItem28
'
resources.ApplyResources(Me.MenuItem28, "MenuItem28")
Me.MenuItem28.Index = 6
'
'MenuItem29
'
resources.ApplyResources(Me.MenuItem29, "MenuItem29")
Me.MenuItem29.Index = 7
'
'MenuItem30
'
resources.ApplyResources(Me.MenuItem30, "MenuItem30")
Me.MenuItem30.Index = 8
'
'MenuItem31
'
resources.ApplyResources(Me.MenuItem31, "MenuItem31")
Me.MenuItem31.Index = 9
'
'MenuItem45
'
resources.ApplyResources(Me.MenuItem45, "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})
'
'MenuItem43
'
resources.ApplyResources(Me.MenuItem43, "MenuItem43")
Me.MenuItem43.Index = 0
'
'MenuItem56
'
resources.ApplyResources(Me.MenuItem56, "MenuItem56")
Me.MenuItem56.Index = 1
'
'MenuItem57
'
resources.ApplyResources(Me.MenuItem57, "MenuItem57")
Me.MenuItem57.Index = 2
'
'MenuItem46
'
resources.ApplyResources(Me.MenuItem46, "MenuItem46")
Me.MenuItem46.Index = 3
'
'MenuItem47
'
resources.ApplyResources(Me.MenuItem47, "MenuItem47")
Me.MenuItem47.Index = 4
'
'MenuItem48
'
resources.ApplyResources(Me.MenuItem48, "MenuItem48")
Me.MenuItem48.Index = 5
'
'MenuItem49
'
resources.ApplyResources(Me.MenuItem49, "MenuItem49")
Me.MenuItem49.Index = 6
'
'MenuItem50
'
resources.ApplyResources(Me.MenuItem50, "MenuItem50")
Me.MenuItem50.Index = 7
'
'MenuItem51
'
resources.ApplyResources(Me.MenuItem51, "MenuItem51")
Me.MenuItem51.Index = 8
'
'MenuItem52
'
resources.ApplyResources(Me.MenuItem52, "MenuItem52")
Me.MenuItem52.Index = 9
'
'MenuItem53
'
resources.ApplyResources(Me.MenuItem53, "MenuItem53")
Me.MenuItem53.Index = 10
'
'MenuItem54
'
resources.ApplyResources(Me.MenuItem54, "MenuItem54")
Me.MenuItem54.Index = 11
'
'MenuItem55
'
resources.ApplyResources(Me.MenuItem55, "MenuItem55")
Me.MenuItem55.Index = 12
'
'MenuItem62
'
resources.ApplyResources(Me.MenuItem62, "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})
'
'MenuItem63
'
resources.ApplyResources(Me.MenuItem63, "MenuItem63")
Me.MenuItem63.Index = 0
'
'MenuItem64
'
resources.ApplyResources(Me.MenuItem64, "MenuItem64")
Me.MenuItem64.Index = 1
'
'mnudp1
'
resources.ApplyResources(Me.mnudp1, "mnudp1")
Me.mnudp1.Index = 2
'
'mnudp2
'
resources.ApplyResources(Me.mnudp2, "mnudp2")
Me.mnudp2.Index = 3
'
'mnudp3
'
resources.ApplyResources(Me.mnudp3, "mnudp3")
Me.mnudp3.Index = 4
'
'mnudp4
'
resources.ApplyResources(Me.mnudp4, "mnudp4")
Me.mnudp4.Index = 5
'
'mnudp5
'
resources.ApplyResources(Me.mnudp5, "mnudp5")
Me.mnudp5.Index = 6
'
'mnudp6
'
resources.ApplyResources(Me.mnudp6, "mnudp6")
Me.mnudp6.Index = 7
'
'mnudp7
'
resources.ApplyResources(Me.mnudp7, "mnudp7")
Me.mnudp7.Index = 8
'
'mnudp8
'
resources.ApplyResources(Me.mnudp8, "mnudp8")
Me.mnudp8.Index = 9
'
'mnudp9
'
resources.ApplyResources(Me.mnudp9, "mnudp9")
Me.mnudp9.Index = 10
'
'mnudp10
'
resources.ApplyResources(Me.mnudp10, "mnudp10")
Me.mnudp10.Index = 11
'
'MenuItem7
'
resources.ApplyResources(Me.MenuItem7, "MenuItem7")
Me.MenuItem7.Index = 3
'
'MenuItem4
'
resources.ApplyResources(Me.MenuItem4, "MenuItem4")
Me.MenuItem4.Index = 4
'
'MenuItem8
'
resources.ApplyResources(Me.MenuItem8, "MenuItem8")
Me.MenuItem8.Index = 5
'
'MenuItem9
'
resources.ApplyResources(Me.MenuItem9, "MenuItem9")
Me.MenuItem9.Index = 6
'
'MenuItem6
'
resources.ApplyResources(Me.MenuItem6, "MenuItem6")
Me.MenuItem6.Index = 7
'
'MnuNewLogin
'
resources.ApplyResources(Me.MnuNewLogin, "MnuNewLogin")
Me.MnuNewLogin.Index = 8
'
'MenuItem17
'
resources.ApplyResources(Me.MenuItem17, "MenuItem17")
Me.MenuItem17.Index = 1
Me.MenuItem17.MergeOrder = 96
'
'MnuSystemadministration
'
resources.ApplyResources(Me.MnuSystemadministration, "MnuSystemadministration")
Me.MnuSystemadministration.Index = 2
Me.MnuSystemadministration.MergeOrder = 97
'
'MenuItem16
'
resources.ApplyResources(Me.MenuItem16, "MenuItem16")
Me.MenuItem16.Index = 3
'
'MenuItem21
'
resources.ApplyResources(Me.MenuItem21, "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.MenuItem41, Me.MenuItem42, Me.MenuItem65, Me.mnuauslieferungen, Me.MenuItem66, Me.mnuserienbriefe, Me.mnuPartnerlisten, Me.MenuItem67, Me.menuSpooler})
Me.MenuItem21.MergeOrder = 98
'
'MenuItem18
'
resources.ApplyResources(Me.MenuItem18, "MenuItem18")
Me.MenuItem18.Index = 0
'
'MenuItem11
'
resources.ApplyResources(Me.MenuItem11, "MenuItem11")
Me.MenuItem11.Index = 1
'
'MenuItem3
'
resources.ApplyResources(Me.MenuItem3, "MenuItem3")
Me.MenuItem3.Index = 2
'
'MenuItem5
'
resources.ApplyResources(Me.MenuItem5, "MenuItem5")
Me.MenuItem5.Index = 3
'
'MenuItem32
'
resources.ApplyResources(Me.MenuItem32, "MenuItem32")
Me.MenuItem32.Index = 4
'
'MenuItem33
'
resources.ApplyResources(Me.MenuItem33, "MenuItem33")
Me.MenuItem33.Index = 5
'
'MenuItem44
'
resources.ApplyResources(Me.MenuItem44, "MenuItem44")
Me.MenuItem44.Index = 6
'
'MenuItem36
'
resources.ApplyResources(Me.MenuItem36, "MenuItem36")
Me.MenuItem36.Index = 7
'
'MenuItem40
'
resources.ApplyResources(Me.MenuItem40, "MenuItem40")
Me.MenuItem40.Index = 8
'
'MenuItem41
'
resources.ApplyResources(Me.MenuItem41, "MenuItem41")
Me.MenuItem41.Index = 9
'
'MenuItem42
'
resources.ApplyResources(Me.MenuItem42, "MenuItem42")
Me.MenuItem42.Index = 10
'
'MenuItem65
'
resources.ApplyResources(Me.MenuItem65, "MenuItem65")
Me.MenuItem65.Index = 11
'
'mnuauslieferungen
'
resources.ApplyResources(Me.mnuauslieferungen, "mnuauslieferungen")
Me.mnuauslieferungen.Index = 12
'
'MenuItem66
'
resources.ApplyResources(Me.MenuItem66, "MenuItem66")
Me.MenuItem66.Index = 13
'
'mnuserienbriefe
'
resources.ApplyResources(Me.mnuserienbriefe, "mnuserienbriefe")
Me.mnuserienbriefe.Index = 14
'
'mnuPartnerlisten
'
resources.ApplyResources(Me.mnuPartnerlisten, "mnuPartnerlisten")
Me.mnuPartnerlisten.Index = 15
'
'MenuItem10
'
resources.ApplyResources(Me.MenuItem10, "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
'
'MenuItem12
'
resources.ApplyResources(Me.MenuItem12, "MenuItem12")
Me.MenuItem12.Index = 0
'
'MenuItem13
'
resources.ApplyResources(Me.MenuItem13, "MenuItem13")
Me.MenuItem13.Index = 1
'
'MenuItem14
'
resources.ApplyResources(Me.MenuItem14, "MenuItem14")
Me.MenuItem14.Index = 2
'
'MenuItem15
'
resources.ApplyResources(Me.MenuItem15, "MenuItem15")
Me.MenuItem15.Index = 3
'
'MenuItem19
'
resources.ApplyResources(Me.MenuItem19, "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
'
'MenuItem34
'
resources.ApplyResources(Me.MenuItem34, "MenuItem34")
Me.MenuItem34.Index = 0
'
'MenuItem58
'
resources.ApplyResources(Me.MenuItem58, "MenuItem58")
Me.MenuItem58.Index = 1
'
'MenuItem60
'
resources.ApplyResources(Me.MenuItem60, "MenuItem60")
Me.MenuItem60.Index = 2
'
'MenuItem59
'
resources.ApplyResources(Me.MenuItem59, "MenuItem59")
Me.MenuItem59.Index = 3
'
'MenuItem37
'
resources.ApplyResources(Me.MenuItem37, "MenuItem37")
Me.MenuItem37.Index = 4
'
'MenuItem35
'
resources.ApplyResources(Me.MenuItem35, "MenuItem35")
Me.MenuItem35.Index = 5
'
'MenuItem61
'
resources.ApplyResources(Me.MenuItem61, "MenuItem61")
Me.MenuItem61.Index = 6
'
'MenuItem38
'
resources.ApplyResources(Me.MenuItem38, "MenuItem38")
Me.MenuItem38.Index = 7
'
'MenuItem20
'
resources.ApplyResources(Me.MenuItem20, "MenuItem20")
Me.MenuItem20.Index = 8
'
'MenuItem39
'
resources.ApplyResources(Me.MenuItem39, "MenuItem39")
Me.MenuItem39.Index = 7
Me.MenuItem39.MergeOrder = 101
Me.MenuItem39.OwnerDraw = True
'
'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
Me.Timer1.SynchronizingObject = Me
'
'Timer2
'
Me.Timer2.Enabled = True
Me.Timer2.Interval = 5000
Me.Timer2.SynchronizingObject = Me
'
'Panel1
'
Me.Panel1.AccessibleDescription = Nothing
Me.Panel1.AccessibleName = Nothing
resources.ApplyResources(Me.Panel1, "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.BackgroundImage = Nothing
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Font = Nothing
Me.HelpProvider1.SetHelpKeyword(Me.Panel1, Nothing)
Me.HelpProvider1.SetHelpNavigator(Me.Panel1, CType(resources.GetObject("Panel1.HelpNavigator"), System.Windows.Forms.HelpNavigator))
Me.HelpProvider1.SetHelpString(Me.Panel1, Nothing)
Me.Panel1.Name = "Panel1"
Me.HelpProvider1.SetShowHelp(Me.Panel1, CType(resources.GetObject("Panel1.ShowHelp"), Boolean))
'
'Label1
'
Me.Label1.AccessibleDescription = Nothing
Me.Label1.AccessibleName = Nothing
resources.ApplyResources(Me.Label1, "Label1")
Me.Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.Label1.Font = Nothing
Me.Label1.ForeColor = System.Drawing.Color.Red
Me.HelpProvider1.SetHelpKeyword(Me.Label1, Nothing)
Me.HelpProvider1.SetHelpNavigator(Me.Label1, CType(resources.GetObject("Label1.HelpNavigator"), System.Windows.Forms.HelpNavigator))
Me.HelpProvider1.SetHelpString(Me.Label1, Nothing)
Me.Label1.Name = "Label1"
Me.HelpProvider1.SetShowHelp(Me.Label1, CType(resources.GetObject("Label1.ShowHelp"), Boolean))
'
'Timer3
'
Me.Timer3.Interval = 750
Me.Timer3.SynchronizingObject = Me
'
'HelpProvider1
'
Me.HelpProvider1.HelpNamespace = Nothing
'
'MenuItem67
'
resources.ApplyResources(Me.MenuItem67, "MenuItem67")
Me.MenuItem67.Index = 16
'
'menuSpooler
'
resources.ApplyResources(Me.menuSpooler, "menuSpooler")
Me.menuSpooler.Index = 17
'
'EDOKAMain
'
Me.AccessibleDescription = Nothing
Me.AccessibleName = Nothing
resources.ApplyResources(Me, "$this")
Me.BackgroundImage = Nothing
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.StatusBar1)
Me.Font = Nothing
Me.HelpProvider1.SetHelpKeyword(Me, Nothing)
Me.HelpProvider1.SetHelpNavigator(Me, CType(resources.GetObject("$this.HelpNavigator"), System.Windows.Forms.HelpNavigator))
Me.HelpProvider1.SetHelpString(Me, Nothing)
Me.IsMdiContainer = True
Me.Menu = Me.MainMenu1
Me.Name = "EDOKAMain"
Me.HelpProvider1.SetShowHelp(Me, CType(resources.GetObject("$this.ShowHelp"), Boolean))
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
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.ResumeLayout(False)
End Sub
#End Region
'Rel 4.0 - BUD - 2007.04.27 - Dim auskommentiert (brauchts nicht)
'Dim WithEvents f1 As New frmMeldungen()
Dim 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()
f.addressBar.Text = "H:\TSSETTINGS\EDOKA\relNotes.doc"
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
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))
Globals.Applikationsdaten = Applikation.SelectOne
'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
Dim frm As New frmLogin()
frm.ComboBox1.Select()
frm.ShowDialog()
If frm.Mitarbeiternr = -99999 Then
Close()
Exit Sub
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()
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
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
Dim fs As New FileStream("H:\\TSSETTINGS\\EDOKA\\relNotes.doc", 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
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 MnuSystemadministration_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuSystemadministration.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
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
''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
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"
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
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
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
Public Sub HandleCommand(ByVal strArgs() As String)
Dim spoolerDone 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)
'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 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
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()
End If
End If
Edoka_Gestartet = True
End If
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
If Me.forceexit Then
Me.Close()
Exit Sub
End If
If Me.ShowDefekteDokumente = False And _
Me.ShowGeburtstag = False And _
Check_offene_dp_instanzen() = False And _
Action.Action.ActionType = 0 Then
'BUD - 2007.04.16
Try
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)
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()
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.refresh_list()
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()
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
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
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.DokumentErstellung
Dim fi As New FileInfo(strArgs(0).ToString())
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
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
' 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
iError = DokErstellen(DokumentTypNr, Partnernr, Ersteller, Ersteller, "", "", "", "", "", False, False, False)
Else
iError = DokErstellen(DokumentTypNr, Partnernr, Ersteller, Ersteller, "", "", "OrderNr:" & OrderNr, "", SourceApp & ": " & OrderNr, False, False, False)
End If
Else
Globals.Individuelles_Dokumentpaket = False
Globals.DokumentPaket = True
Dim frmDP As New frmDokumentpaket(DokumentTypNr, False, Partnernr)
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
frmDP.Show()
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
'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)
If Not (IsNothing(objAvaloqDokumentWerte)) 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
'--
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)
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)
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
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")
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
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
#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
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) 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
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()
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
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
If Partnernr > 91000000 And DivFnkt.EDOKA_Partner_Dokument(3, Dokumenttypnr) = False Then
MyMsg.show_standardmessage(110, MsgBoxStyle.Critical)
fI.Dispose()
Exit Function
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
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
If Partnernr > 91000000 And DivFnkt.EDOKA_Partner_Dokument(3, Dokumenttypnr) = False Then
MyMsg.show_standardmessage(110, MsgBoxStyle.Critical)
fI.Dispose()
Exit Function
End If
fI.Partnernr = Trim(Str(Partnernr))
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()
'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
If Partnernr > 91000000 And DivFnkt.EDOKA_Partner_Dokument(3, Dokumenttypnr) = False Then
MyMsg.show_standardmessage(110, MsgBoxStyle.Critical)
dokumentBearbeitungWindow.Dispose()
Exit Function
End If
dokumentBearbeitungWindow.Partnernr = Trim(Str(Partnernr))
dokumentBearbeitungWindow.Partnerwechsel = Partnerwechsel
dokumentBearbeitungWindow.Statuswechsel = Statuswechsel
dokumentBearbeitungWindow.Verantwortlicherwechsel = VerantwortlicherWechsel
dokumentBearbeitungWindow.Zustaendiger = zustaendiger
dokumentBearbeitungWindow.UnterschriftLinks = unterschriftlinks
dokumentBearbeitungWindow.Unterschriftrechts = unterschriftrechts
dokumentBearbeitungWindow.Verantwortlicher = verantwortlicher
dokumentBearbeitungWindow.FANummer1 = FANummer1
dokumentBearbeitungWindow.FANummer2 = FANummer2
dokumentBearbeitungWindow.FANummer3 = FANummer3
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 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
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
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.Show()
f.Partner_Eingegeben = False
' 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()
f.addressBar.Text = "H:\TSSETTINGS\EDOKA\relNotes.doc"
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
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)
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
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
End Class
Reference in new issue View Git Blame Copy Permalink