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 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