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