Imports System.Data Imports System.Data.SqlClient Imports System.Data.SqlTypes Imports System.IO Imports System.Data.OleDb Imports System.Threading Public Class frmSerienbriefe Inherits System.Windows.Forms.Form #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 ToolBar1 As System.Windows.Forms.ToolBar Friend WithEvents ImageList1 As System.Windows.Forms.ImageList Private WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton Friend WithEvents TabControl1 As System.Windows.Forms.TabControl Friend WithEvents TabPage1 As System.Windows.Forms.TabPage Friend WithEvents TabPage2 As System.Windows.Forms.TabPage Friend WithEvents GroupBox12 As System.Windows.Forms.GroupBox Friend WithEvents cbteam As System.Windows.Forms.ComboBox Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox Friend WithEvents cbUnterschriftrechts As System.Windows.Forms.ComboBox Friend WithEvents cbUnterschriftlinks As System.Windows.Forms.ComboBox Friend WithEvents Label9 As System.Windows.Forms.Label Friend WithEvents Label10 As System.Windows.Forms.Label Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents RBZustaendigZustaendiger As System.Windows.Forms.RadioButton Friend WithEvents cbzust As System.Windows.Forms.ComboBox Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker Friend WithEvents cbPostzustellung As System.Windows.Forms.ComboBox Friend WithEvents Label11 As System.Windows.Forms.Label Friend WithEvents Label12 As System.Windows.Forms.Label Friend WithEvents DateTimePicker2 As C1.Win.C1Input.C1DateEdit Friend WithEvents Label20 As System.Windows.Forms.Label Friend WithEvents txtBemerkung As System.Windows.Forms.TextBox Friend WithEvents DateTimePicker3 As System.Windows.Forms.DateTimePicker Friend WithEvents Label13 As System.Windows.Forms.Label Friend WithEvents Label14 As System.Windows.Forms.Label Private WithEvents MenuItem23 As System.Windows.Forms.MenuItem Friend WithEvents Label16 As System.Windows.Forms.Label Friend WithEvents TextBox10 As System.Windows.Forms.TextBox Friend WithEvents DateTimePicker4 As System.Windows.Forms.DateTimePicker Friend WithEvents Label17 As System.Windows.Forms.Label Friend WithEvents Label18 As System.Windows.Forms.Label Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents cbVerantwortlich As System.Windows.Forms.ComboBox Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents TextBox2 As System.Windows.Forms.TextBox Friend WithEvents DateTimePicker5 As System.Windows.Forms.DateTimePicker Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents C1DateEdit1 As C1.Win.C1Input.C1DateEdit Friend WithEvents txtBezeichnung As System.Windows.Forms.TextBox Friend WithEvents Panel2 As System.Windows.Forms.Panel Private WithEvents mnuidwspaltehinzufuegen As System.Windows.Forms.MenuItem Private WithEvents mnuidwspalteentfernen As System.Windows.Forms.MenuItem Private WithEvents mnuidvspalteumbenennen As System.Windows.Forms.MenuItem Private WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog Private WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog Private WithEvents MnuSpaltenSelektion As System.Windows.Forms.MenuItem Private WithEvents MenuItem10 As System.Windows.Forms.MenuItem Private WithEvents mnuAddEmpfaenger As System.Windows.Forms.MenuItem Private WithEvents mnuaddhost As System.Windows.Forms.MenuItem Private WithEvents mnunewedoka As System.Windows.Forms.MenuItem Private WithEvents mnunewempfaenger As System.Windows.Forms.MenuItem Private WithEvents MenuItem12 As System.Windows.Forms.MenuItem Private WithEvents MenuItem14 As System.Windows.Forms.MenuItem Private WithEvents mnusaveasedokapartner As System.Windows.Forms.MenuItem Private WithEvents MenuEmpfaenger As System.Windows.Forms.ContextMenu Private WithEvents MenuNotiz As System.Windows.Forms.ContextMenu Private WithEvents MnuNeueNotiz As System.Windows.Forms.MenuItem Private WithEvents MnuEditNotiz As System.Windows.Forms.MenuItem Private WithEvents MnuDeleteNotiz As System.Windows.Forms.MenuItem Private WithEvents ToolBarButton2 As System.Windows.Forms.ToolBarButton Friend WithEvents C1MainMenu1 As C1.Win.C1Command.C1MainMenu Friend WithEvents C1CommandHolder1 As C1.Win.C1Command.C1CommandHolder Friend WithEvents MnuMainDatei As C1.Win.C1Command.C1CommandMenu Friend WithEvents MnuMainNew As C1.Win.C1Command.C1Command Friend WithEvents MnuMainLoad As C1.Win.C1Command.C1Command Friend WithEvents MnuMainSave As C1.Win.C1Command.C1Command Friend WithEvents MnuMainClose As C1.Win.C1Command.C1Command Friend WithEvents MnuMainDokument As C1.Win.C1Command.C1CommandMenu Friend WithEvents MnuMainVorlageImportieren As C1.Win.C1Command.C1Command Friend WithEvents MnuMainVorageBearbeiten As C1.Win.C1Command.C1Command Friend WithEvents MnuMainVorschauErstellen As C1.Win.C1Command.C1Command Friend WithEvents MnuMainDokumenteGenerieren As C1.Win.C1Command.C1Command Friend WithEvents MnuMainDokumenteDrucken As C1.Win.C1Command.C1Command Friend WithEvents MnuMainDokumenteBestaetigen As C1.Win.C1Command.C1Command Friend WithEvents MnuMainAddEDOKAHOSTPartner As C1.Win.C1Command.C1Command Friend WithEvents MnuMainNeuerEDOKAPartnerErfassen As C1.Win.C1Command.C1Command Friend WithEvents MnuMainNeuerEmpfaengerErfassen As C1.Win.C1Command.C1Command Friend WithEvents MnuMainEDOKAPartnerErfassen As C1.Win.C1Command.C1Command Friend WithEvents C1CommandMenu1 As C1.Win.C1Command.C1CommandMenu Friend WithEvents MnuMainAddColumn As C1.Win.C1Command.C1Command Friend WithEvents MnuMainDeleteColumn As C1.Win.C1Command.C1Command Friend WithEvents MnuMainRenameColumn As C1.Win.C1Command.C1Command Friend WithEvents MnuMainSpaltenselektion As C1.Win.C1Command.C1Command Friend WithEvents MnuMainAbschluss As C1.Win.C1Command.C1Command Friend WithEvents MnuMainEmpfaengerBearbeiten As C1.Win.C1Command.C1Command Friend WithEvents MnuMainEmfpaengerLoeschen As C1.Win.C1Command.C1Command Friend WithEvents C1MnuMainNeuerSerienbrief As C1.Win.C1Command.C1CommandLink Friend WithEvents C1MnuMainSerienbriefLaden As C1.Win.C1Command.C1CommandLink Friend WithEvents C1MnuMainSerienbriefabschliessen As C1.Win.C1Command.C1CommandLink Friend WithEvents C1MnuMainSerienbriefSpeichern As C1.Win.C1Command.C1CommandLink Friend WithEvents C1MnuMainFensterSchliessen As C1.Win.C1Command.C1CommandLink Friend WithEvents C1MnuMainVorlageImportieren As C1.Win.C1Command.C1CommandLink Friend WithEvents C1MnuMainVorlageBearbeiten As C1.Win.C1Command.C1CommandLink Friend WithEvents C1MnuMainAddColumn As C1.Win.C1Command.C1CommandLink Friend WithEvents C1MnuMainDeleteColumn As C1.Win.C1Command.C1CommandLink Friend WithEvents C1MnuMainRenameColumn As C1.Win.C1Command.C1CommandLink Friend WithEvents C1MnuMainSpaltenselektion As C1.Win.C1Command.C1CommandLink Friend WithEvents C1MnuMainDatei As C1.Win.C1Command.C1CommandLink Friend WithEvents C1MnuMainDokument As C1.Win.C1Command.C1CommandLink Friend WithEvents C1MnuIndividuelleDokumentwerte As C1.Win.C1Command.C1CommandLink Friend WithEvents MnuMainCheckEmpfaenger As C1.Win.C1Command.C1Command Friend WithEvents RBZustaendigKubedesPartners As System.Windows.Forms.RadioButton Friend WithEvents C1MnuSerienbriefLoeschen As C1.Win.C1Command.C1CommandLink Friend WithEvents MnuMainSerienbriefLoeschen As C1.Win.C1Command.C1Command Private WithEvents ToolBarButton3 As System.Windows.Forms.ToolBarButton Private WithEvents ToolBarButton4 As System.Windows.Forms.ToolBarButton Private WithEvents ToolBarButton5 As System.Windows.Forms.ToolBarButton Private WithEvents MnuEditEmpfaenger As System.Windows.Forms.MenuItem Private WithEvents MnuDeleteEmpfaenger As System.Windows.Forms.MenuItem Private WithEvents ToolBarButton6 As System.Windows.Forms.ToolBarButton Private WithEvents ToolBarButton7 As System.Windows.Forms.ToolBarButton Private WithEvents ToolBarButton8 As System.Windows.Forms.ToolBarButton Private WithEvents ToolBarButton9 As System.Windows.Forms.ToolBarButton Private WithEvents ToolBarButton10 As System.Windows.Forms.ToolBarButton Private WithEvents ToolBarButton11 As System.Windows.Forms.ToolBarButton Private WithEvents ToolBarButton12 As System.Windows.Forms.ToolBarButton Private WithEvents ToolBarButton13 As System.Windows.Forms.ToolBarButton Private WithEvents ToolBarButton14 As System.Windows.Forms.ToolBarButton Private WithEvents ToolBarButton15 As System.Windows.Forms.ToolBarButton Private WithEvents ToolBarButton16 As System.Windows.Forms.ToolBarButton Private WithEvents ToolBarButton17 As System.Windows.Forms.ToolBarButton Private WithEvents ToolBarButton18 As System.Windows.Forms.ToolBarButton Private WithEvents ToolBarButton19 As System.Windows.Forms.ToolBarButton Friend WithEvents mnuctAddHost As C1.Win.C1Command.C1Command Friend WithEvents mnuCTADDEdokapartner As C1.Win.C1Command.C1Command Friend WithEvents mnuctaddempfaenger As C1.Win.C1Command.C1Command Friend WithEvents C1ContextMenu1 As C1.Win.C1Command.C1ContextMenu Friend WithEvents C1CommandLink2 As C1.Win.C1Command.C1CommandLink Friend WithEvents C1CommandLink11 As C1.Win.C1Command.C1CommandLink Friend WithEvents C1CommandLink12 As C1.Win.C1Command.C1CommandLink Friend WithEvents C1CommandLink14 As C1.Win.C1Command.C1CommandLink Friend WithEvents mnuctErstellungWiederholen As C1.Win.C1Command.C1Command Friend WithEvents empflist As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents BtnHelp As System.Windows.Forms.Button Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents Splitter1 As System.Windows.Forms.Splitter Friend WithEvents TVStatus As System.Windows.Forms.TreeView Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents DateTimePicker6 As System.Windows.Forms.DateTimePicker Friend WithEvents Label8 As System.Windows.Forms.Label Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox Friend WithEvents drpMiatarbeiter As C1.Win.C1TrueDBGrid.C1TrueDBDropdown Friend WithEvents Notizlist As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents C1DateEdit2 As C1.Win.C1Input.C1DateEdit Friend WithEvents Label7 As System.Windows.Forms.Label Friend WithEvents StatusBar1 As System.Windows.Forms.StatusBar Private WithEvents ImageList2 As System.Windows.Forms.ImageList Friend WithEvents C1MnuMainEmpfaengerliste As C1.Win.C1Command.C1CommandLink Friend WithEvents MnuMainEmpfaengerliste As C1.Win.C1Command.C1CommandMenu Friend WithEvents C1MnuMainImportEmpfaneger As C1.Win.C1Command.C1CommandLink Friend WithEvents MnuMainImportEmpfaenger As C1.Win.C1Command.C1Command Friend WithEvents C1MnuMainExportEmpfaenger As C1.Win.C1Command.C1CommandLink Friend WithEvents MnuMainExportEmpfaenger As C1.Win.C1Command.C1Command Friend WithEvents C1MnuMainLoadPartnerliste As C1.Win.C1Command.C1CommandLink Friend WithEvents MnuMainLoadPartnerliste As C1.Win.C1Command.C1Command Friend WithEvents C1MnuMainSaveAsPartnerlist As C1.Win.C1Command.C1CommandLink Friend WithEvents MnuMainSaveAsPartnerlist As C1.Win.C1Command.C1Command Friend WithEvents C1CommandLink15 As C1.Win.C1Command.C1CommandLink Friend WithEvents C1mnuPartnerdossier As C1.Win.C1Command.C1Command Friend WithEvents C1ContextMenu2 As C1.Win.C1Command.C1ContextMenu Friend WithEvents C1CommandLink17 As C1.Win.C1Command.C1CommandLink Friend WithEvents mnuc2abschliessen As C1.Win.C1Command.C1Command Friend WithEvents C1CommandLink18 As C1.Win.C1Command.C1CommandLink Friend WithEvents C1CommandLink19 As C1.Win.C1Command.C1CommandLink Friend WithEvents mnuc2bestaetigen As C1.Win.C1Command.C1Command Friend WithEvents C1CommandLink20 As C1.Win.C1Command.C1CommandLink Friend WithEvents mnuc2generieren As C1.Win.C1Command.C1Command Friend WithEvents C1CommandLink22 As C1.Win.C1Command.C1CommandLink Friend WithEvents mnuc2printjob As C1.Win.C1Command.C1Command Friend WithEvents C1CommandLink23 As C1.Win.C1Command.C1CommandLink Friend WithEvents C1DruckstapelLoeschen As C1.Win.C1Command.C1Command Friend WithEvents mnuc2printmenu As C1.Win.C1Command.C1CommandMenu Friend WithEvents C1CommandLink24 As C1.Win.C1Command.C1CommandLink Friend WithEvents mnuc2partnerlistepruefen As C1.Win.C1Command.C1Command Friend WithEvents C1CommandLink25 As C1.Win.C1Command.C1CommandLink Friend WithEvents mnuc2printpreview As C1.Win.C1Command.C1Command Friend WithEvents C1CommandLink21 As C1.Win.C1Command.C1CommandLink Friend WithEvents c1mnupartner1 As C1.Win.C1Command.C1Command Friend WithEvents C1CommandLink26 As C1.Win.C1Command.C1CommandLink Friend WithEvents c1mnupartner2 As C1.Win.C1Command.C1Command Friend WithEvents C1CommandLink27 As C1.Win.C1Command.C1CommandLink Friend WithEvents c1mnupartner3 As C1.Win.C1Command.C1Command Friend WithEvents C1CommandLink1 As C1.Win.C1Command.C1CommandLink Friend WithEvents c1mnumainpreview As C1.Win.C1Command.C1Command Friend WithEvents statustimer As System.Windows.Forms.Timer Private WithEvents ToolBarButton20 As System.Windows.Forms.ToolBarButton Friend WithEvents ImageList3 As System.Windows.Forms.ImageList Private WithEvents ImageList4 As System.Windows.Forms.ImageList Friend WithEvents C1CommandLink3 As C1.Win.C1Command.C1CommandLink Friend WithEvents C1mnuPersVorlageSave As C1.Win.C1Command.C1Command Friend WithEvents C1CommandLink4 As C1.Win.C1Command.C1CommandLink Private WithEvents ToolBarButton21 As System.Windows.Forms.ToolBarButton Private WithEvents ToolBarButton22 As System.Windows.Forms.ToolBarButton Friend WithEvents lblNaechsteGenerierung As System.Windows.Forms.Label Friend WithEvents lblnaechsteGenerierungText As System.Windows.Forms.Label Friend WithEvents Sysadmin As C1.Win.C1Command.C1CommandMenu Friend WithEvents C1MnuSbEdit As C1.Win.C1Command.C1CommandLink Friend WithEvents C1MnuSerienbriefMutieren As C1.Win.C1Command.C1Command Friend WithEvents C1MnuEmpfaenger_Edit As C1.Win.C1Command.C1CommandLink Friend WithEvents C1Command2 As C1.Win.C1Command.C1Command Friend WithEvents C1Sysadmin As C1.Win.C1Command.C1CommandMenu Friend WithEvents C1SBMutation As C1.Win.C1Command.C1CommandLink Friend WithEvents C1SBEdit As C1.Win.C1Command.C1Command Private WithEvents TBBtnSysadmin As System.Windows.Forms.ToolBarButton Friend WithEvents C1MnuPersSbLoad As C1.Win.C1Command.C1Command Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSerienbriefe)) Dim Style1 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style2 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style3 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style4 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style5 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style6 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style7 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Dim Style8 As C1.Win.C1TrueDBGrid.Style = New C1.Win.C1TrueDBGrid.Style() Me.ToolBar1 = New System.Windows.Forms.ToolBar() Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton() Me.ToolBarButton2 = New System.Windows.Forms.ToolBarButton() Me.ToolBarButton3 = New System.Windows.Forms.ToolBarButton() Me.ToolBarButton4 = New System.Windows.Forms.ToolBarButton() Me.ToolBarButton5 = New System.Windows.Forms.ToolBarButton() Me.ToolBarButton19 = New System.Windows.Forms.ToolBarButton() Me.ToolBarButton14 = New System.Windows.Forms.ToolBarButton() Me.ToolBarButton6 = New System.Windows.Forms.ToolBarButton() Me.ToolBarButton7 = New System.Windows.Forms.ToolBarButton() Me.ToolBarButton8 = New System.Windows.Forms.ToolBarButton() Me.ToolBarButton9 = New System.Windows.Forms.ToolBarButton() Me.ToolBarButton10 = New System.Windows.Forms.ToolBarButton() Me.ToolBarButton11 = New System.Windows.Forms.ToolBarButton() Me.ToolBarButton12 = New System.Windows.Forms.ToolBarButton() Me.ToolBarButton13 = New System.Windows.Forms.ToolBarButton() Me.ToolBarButton15 = New System.Windows.Forms.ToolBarButton() Me.ToolBarButton17 = New System.Windows.Forms.ToolBarButton() Me.ToolBarButton16 = New System.Windows.Forms.ToolBarButton() Me.ToolBarButton18 = New System.Windows.Forms.ToolBarButton() Me.ToolBarButton20 = New System.Windows.Forms.ToolBarButton() Me.ToolBarButton21 = New System.Windows.Forms.ToolBarButton() Me.ToolBarButton22 = New System.Windows.Forms.ToolBarButton() Me.TBBtnSysadmin = New System.Windows.Forms.ToolBarButton() Me.ImageList4 = New System.Windows.Forms.ImageList(Me.components) Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() Me.empflist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.Splitter1 = New System.Windows.Forms.Splitter() Me.Panel1 = New System.Windows.Forms.Panel() Me.TVStatus = New System.Windows.Forms.TreeView() Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components) Me.TabPage2 = New System.Windows.Forms.TabPage() Me.GroupBox8 = New System.Windows.Forms.GroupBox() Me.drpMiatarbeiter = New C1.Win.C1TrueDBGrid.C1TrueDBDropdown() Me.Notizlist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid() Me.MenuNotiz = New System.Windows.Forms.ContextMenu() Me.MnuNeueNotiz = New System.Windows.Forms.MenuItem() Me.MnuEditNotiz = New System.Windows.Forms.MenuItem() Me.MnuDeleteNotiz = New System.Windows.Forms.MenuItem() Me.GroupBox5 = New System.Windows.Forms.GroupBox() Me.C1DateEdit2 = New C1.Win.C1Input.C1DateEdit() Me.Label6 = New System.Windows.Forms.Label() Me.TextBox1 = New System.Windows.Forms.TextBox() Me.DateTimePicker6 = New System.Windows.Forms.DateTimePicker() Me.Label7 = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label() Me.GroupBox12 = New System.Windows.Forms.GroupBox() Me.cbteam = New System.Windows.Forms.ComboBox() Me.GroupBox3 = New System.Windows.Forms.GroupBox() Me.cbUnterschriftrechts = New System.Windows.Forms.ComboBox() Me.cbUnterschriftlinks = New System.Windows.Forms.ComboBox() Me.Label9 = New System.Windows.Forms.Label() Me.Label10 = New System.Windows.Forms.Label() Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.RBZustaendigKubedesPartners = New System.Windows.Forms.RadioButton() Me.RBZustaendigZustaendiger = New System.Windows.Forms.RadioButton() Me.cbzust = New System.Windows.Forms.ComboBox() Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() Me.cbPostzustellung = New System.Windows.Forms.ComboBox() Me.Label11 = New System.Windows.Forms.Label() Me.Label12 = New System.Windows.Forms.Label() Me.C1DateEdit1 = New C1.Win.C1Input.C1DateEdit() Me.Label3 = New System.Windows.Forms.Label() Me.TextBox2 = New System.Windows.Forms.TextBox() Me.DateTimePicker5 = New System.Windows.Forms.DateTimePicker() Me.Label4 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() Me.MenuEmpfaenger = New System.Windows.Forms.ContextMenu() Me.mnuAddEmpfaenger = New System.Windows.Forms.MenuItem() Me.mnuaddhost = New System.Windows.Forms.MenuItem() Me.mnunewedoka = New System.Windows.Forms.MenuItem() Me.mnunewempfaenger = New System.Windows.Forms.MenuItem() Me.MnuEditEmpfaenger = New System.Windows.Forms.MenuItem() Me.MnuDeleteEmpfaenger = New System.Windows.Forms.MenuItem() Me.MenuItem12 = New System.Windows.Forms.MenuItem() Me.mnusaveasedokapartner = New System.Windows.Forms.MenuItem() Me.MenuItem14 = New System.Windows.Forms.MenuItem() Me.MenuItem23 = New System.Windows.Forms.MenuItem() Me.mnuidwspaltehinzufuegen = New System.Windows.Forms.MenuItem() Me.mnuidwspalteentfernen = New System.Windows.Forms.MenuItem() Me.mnuidvspalteumbenennen = New System.Windows.Forms.MenuItem() Me.MenuItem10 = New System.Windows.Forms.MenuItem() Me.MnuSpaltenSelektion = New System.Windows.Forms.MenuItem() Me.Label20 = New System.Windows.Forms.Label() Me.txtBemerkung = New System.Windows.Forms.TextBox() Me.DateTimePicker3 = New System.Windows.Forms.DateTimePicker() Me.Label13 = New System.Windows.Forms.Label() Me.Label14 = New System.Windows.Forms.Label() Me.Label16 = New System.Windows.Forms.Label() Me.TextBox10 = New System.Windows.Forms.TextBox() Me.DateTimePicker4 = New System.Windows.Forms.DateTimePicker() Me.Label17 = New System.Windows.Forms.Label() Me.Label18 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() Me.txtBezeichnung = New System.Windows.Forms.TextBox() Me.cbVerantwortlich = New System.Windows.Forms.ComboBox() Me.Label2 = New System.Windows.Forms.Label() Me.Panel2 = New System.Windows.Forms.Panel() Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog() Me.C1MainMenu1 = New C1.Win.C1Command.C1MainMenu() Me.C1CommandHolder1 = New C1.Win.C1Command.C1CommandHolder() Me.C1ContextMenu1 = New C1.Win.C1Command.C1ContextMenu() Me.C1CommandLink21 = New C1.Win.C1Command.C1CommandLink() Me.c1mnupartner1 = New C1.Win.C1Command.C1Command() Me.C1CommandLink26 = New C1.Win.C1Command.C1CommandLink() Me.c1mnupartner2 = New C1.Win.C1Command.C1Command() Me.C1CommandLink27 = New C1.Win.C1Command.C1CommandLink() Me.c1mnupartner3 = New C1.Win.C1Command.C1Command() Me.C1CommandLink11 = New C1.Win.C1Command.C1CommandLink() Me.MnuMainEmpfaengerBearbeiten = New C1.Win.C1Command.C1Command() Me.C1CommandLink12 = New C1.Win.C1Command.C1CommandLink() Me.MnuMainEmfpaengerLoeschen = New C1.Win.C1Command.C1Command() Me.C1CommandLink2 = New C1.Win.C1Command.C1CommandLink() Me.MnuMainEDOKAPartnerErfassen = New C1.Win.C1Command.C1Command() Me.C1CommandLink14 = New C1.Win.C1Command.C1CommandLink() Me.mnuctErstellungWiederholen = New C1.Win.C1Command.C1Command() Me.C1CommandLink15 = New C1.Win.C1Command.C1CommandLink() Me.C1mnuPartnerdossier = New C1.Win.C1Command.C1Command() Me.C1ContextMenu2 = New C1.Win.C1Command.C1ContextMenu() Me.C1CommandLink24 = New C1.Win.C1Command.C1CommandLink() Me.mnuc2partnerlistepruefen = New C1.Win.C1Command.C1Command() Me.C1CommandLink20 = New C1.Win.C1Command.C1CommandLink() Me.mnuc2generieren = New C1.Win.C1Command.C1Command() Me.C1CommandLink18 = New C1.Win.C1Command.C1CommandLink() Me.mnuc2printmenu = New C1.Win.C1Command.C1CommandMenu() Me.C1CommandLink22 = New C1.Win.C1Command.C1CommandLink() Me.mnuc2printjob = New C1.Win.C1Command.C1Command() Me.C1CommandLink25 = New C1.Win.C1Command.C1CommandLink() Me.mnuc2printpreview = New C1.Win.C1Command.C1Command() Me.C1CommandLink23 = New C1.Win.C1Command.C1CommandLink() Me.C1DruckstapelLoeschen = New C1.Win.C1Command.C1Command() Me.C1CommandLink19 = New C1.Win.C1Command.C1CommandLink() Me.mnuc2bestaetigen = New C1.Win.C1Command.C1Command() Me.C1CommandLink17 = New C1.Win.C1Command.C1CommandLink() Me.mnuc2abschliessen = New C1.Win.C1Command.C1Command() Me.MnuMainDatei = New C1.Win.C1Command.C1CommandMenu() Me.C1MnuMainNeuerSerienbrief = New C1.Win.C1Command.C1CommandLink() Me.MnuMainNew = New C1.Win.C1Command.C1Command() Me.C1MnuMainSerienbriefLaden = New C1.Win.C1Command.C1CommandLink() Me.MnuMainLoad = New C1.Win.C1Command.C1Command() Me.C1MnuSerienbriefLoeschen = New C1.Win.C1Command.C1CommandLink() Me.MnuMainSerienbriefLoeschen = New C1.Win.C1Command.C1Command() Me.C1MnuMainSerienbriefabschliessen = New C1.Win.C1Command.C1CommandLink() Me.MnuMainAbschluss = New C1.Win.C1Command.C1Command() Me.C1MnuMainSerienbriefSpeichern = New C1.Win.C1Command.C1CommandLink() Me.MnuMainSave = New C1.Win.C1Command.C1Command() Me.C1MnuMainFensterSchliessen = New C1.Win.C1Command.C1CommandLink() Me.MnuMainClose = New C1.Win.C1Command.C1Command() Me.MnuMainDokument = New C1.Win.C1Command.C1CommandMenu() Me.C1MnuMainVorlageImportieren = New C1.Win.C1Command.C1CommandLink() Me.MnuMainVorlageImportieren = New C1.Win.C1Command.C1Command() Me.C1MnuMainVorlageBearbeiten = New C1.Win.C1Command.C1CommandLink() Me.MnuMainVorageBearbeiten = New C1.Win.C1Command.C1Command() Me.C1CommandLink1 = New C1.Win.C1Command.C1CommandLink() Me.c1mnumainpreview = New C1.Win.C1Command.C1Command() Me.C1CommandLink3 = New C1.Win.C1Command.C1CommandLink() Me.C1mnuPersVorlageSave = New C1.Win.C1Command.C1Command() Me.C1CommandLink4 = New C1.Win.C1Command.C1CommandLink() Me.C1MnuPersSbLoad = New C1.Win.C1Command.C1Command() Me.MnuMainVorschauErstellen = New C1.Win.C1Command.C1Command() Me.MnuMainDokumenteGenerieren = New C1.Win.C1Command.C1Command() Me.MnuMainDokumenteDrucken = New C1.Win.C1Command.C1Command() Me.MnuMainDokumenteBestaetigen = New C1.Win.C1Command.C1Command() Me.MnuMainEmpfaengerliste = New C1.Win.C1Command.C1CommandMenu() Me.C1MnuMainImportEmpfaneger = New C1.Win.C1Command.C1CommandLink() Me.MnuMainImportEmpfaenger = New C1.Win.C1Command.C1Command() Me.C1MnuMainExportEmpfaenger = New C1.Win.C1Command.C1CommandLink() Me.MnuMainExportEmpfaenger = New C1.Win.C1Command.C1Command() Me.C1MnuMainLoadPartnerliste = New C1.Win.C1Command.C1CommandLink() Me.MnuMainLoadPartnerliste = New C1.Win.C1Command.C1Command() Me.C1MnuMainSaveAsPartnerlist = New C1.Win.C1Command.C1CommandLink() Me.MnuMainSaveAsPartnerlist = New C1.Win.C1Command.C1Command() Me.MnuMainAddEDOKAHOSTPartner = New C1.Win.C1Command.C1Command() Me.MnuMainNeuerEDOKAPartnerErfassen = New C1.Win.C1Command.C1Command() Me.MnuMainNeuerEmpfaengerErfassen = New C1.Win.C1Command.C1Command() Me.C1CommandMenu1 = New C1.Win.C1Command.C1CommandMenu() Me.C1MnuMainAddColumn = New C1.Win.C1Command.C1CommandLink() Me.MnuMainAddColumn = New C1.Win.C1Command.C1Command() Me.C1MnuMainDeleteColumn = New C1.Win.C1Command.C1CommandLink() Me.MnuMainDeleteColumn = New C1.Win.C1Command.C1Command() Me.C1MnuMainRenameColumn = New C1.Win.C1Command.C1CommandLink() Me.MnuMainRenameColumn = New C1.Win.C1Command.C1Command() Me.C1MnuMainSpaltenselektion = New C1.Win.C1Command.C1CommandLink() Me.MnuMainSpaltenselektion = New C1.Win.C1Command.C1Command() Me.MnuMainCheckEmpfaenger = New C1.Win.C1Command.C1Command() Me.mnuctAddHost = New C1.Win.C1Command.C1Command() Me.mnuCTADDEdokapartner = New C1.Win.C1Command.C1Command() Me.mnuctaddempfaenger = New C1.Win.C1Command.C1Command() Me.Sysadmin = New C1.Win.C1Command.C1CommandMenu() Me.C1MnuSbEdit = New C1.Win.C1Command.C1CommandLink() Me.C1MnuSerienbriefMutieren = New C1.Win.C1Command.C1Command() Me.C1MnuEmpfaenger_Edit = New C1.Win.C1Command.C1CommandLink() Me.C1Command2 = New C1.Win.C1Command.C1Command() Me.C1Sysadmin = New C1.Win.C1Command.C1CommandMenu() Me.C1SBMutation = New C1.Win.C1Command.C1CommandLink() Me.C1SBEdit = New C1.Win.C1Command.C1Command() Me.C1MnuMainDatei = New C1.Win.C1Command.C1CommandLink() Me.C1MnuMainDokument = New C1.Win.C1Command.C1CommandLink() Me.C1MnuMainEmpfaengerliste = New C1.Win.C1Command.C1CommandLink() Me.C1MnuIndividuelleDokumentwerte = New C1.Win.C1Command.C1CommandLink() Me.BtnHelp = New System.Windows.Forms.Button() Me.StatusBar1 = New System.Windows.Forms.StatusBar() Me.statustimer = New System.Windows.Forms.Timer(Me.components) Me.ImageList3 = New System.Windows.Forms.ImageList(Me.components) Me.lblNaechsteGenerierung = New System.Windows.Forms.Label() Me.lblnaechsteGenerierungText = New System.Windows.Forms.Label() Me.TabControl1.SuspendLayout() Me.TabPage1.SuspendLayout() CType(Me.empflist, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() Me.TabPage2.SuspendLayout() Me.GroupBox8.SuspendLayout() CType(Me.drpMiatarbeiter, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Notizlist, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox5.SuspendLayout() CType(Me.C1DateEdit2, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox12.SuspendLayout() Me.GroupBox3.SuspendLayout() Me.GroupBox1.SuspendLayout() Me.GroupBox2.SuspendLayout() CType(Me.C1DateEdit1, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel2.SuspendLayout() CType(Me.C1CommandHolder1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'ToolBar1 ' Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1, Me.ToolBarButton2, Me.ToolBarButton3, Me.ToolBarButton4, Me.ToolBarButton5, Me.ToolBarButton19, Me.ToolBarButton14, Me.ToolBarButton6, Me.ToolBarButton7, Me.ToolBarButton8, Me.ToolBarButton9, Me.ToolBarButton10, Me.ToolBarButton11, Me.ToolBarButton12, Me.ToolBarButton13, Me.ToolBarButton15, Me.ToolBarButton17, Me.ToolBarButton16, Me.ToolBarButton18, Me.ToolBarButton20, Me.ToolBarButton21, Me.ToolBarButton22, Me.TBBtnSysadmin}) Me.ToolBar1.DropDownArrows = True Me.ToolBar1.ImageList = Me.ImageList4 Me.ToolBar1.Location = New System.Drawing.Point(0, 84) Me.ToolBar1.Name = "ToolBar1" Me.ToolBar1.ShowToolTips = True Me.ToolBar1.Size = New System.Drawing.Size(744, 28) Me.ToolBar1.TabIndex = 0 ' 'ToolBarButton1 ' Me.ToolBarButton1.ImageIndex = 0 Me.ToolBarButton1.Name = "ToolBarButton1" Me.ToolBarButton1.ToolTipText = "Serienbrief-Funktion schliessen" ' 'ToolBarButton2 ' Me.ToolBarButton2.ImageIndex = 20 Me.ToolBarButton2.Name = "ToolBarButton2" Me.ToolBarButton2.ToolTipText = "Neuer Serienbrief erstellen" ' 'ToolBarButton3 ' Me.ToolBarButton3.ImageIndex = 22 Me.ToolBarButton3.Name = "ToolBarButton3" Me.ToolBarButton3.ToolTipText = "Serienbrief öffnen" ' 'ToolBarButton4 ' Me.ToolBarButton4.ImageIndex = 23 Me.ToolBarButton4.Name = "ToolBarButton4" Me.ToolBarButton4.ToolTipText = "Serienbrief löschen" ' 'ToolBarButton5 ' Me.ToolBarButton5.ImageIndex = 1 Me.ToolBarButton5.Name = "ToolBarButton5" Me.ToolBarButton5.ToolTipText = "Serienbrief speichern" ' 'ToolBarButton19 ' Me.ToolBarButton19.ImageIndex = 27 Me.ToolBarButton19.Name = "ToolBarButton19" Me.ToolBarButton19.ToolTipText = "Serienbrief abschliessen" ' 'ToolBarButton14 ' Me.ToolBarButton14.Name = "ToolBarButton14" Me.ToolBarButton14.Style = System.Windows.Forms.ToolBarButtonStyle.Separator Me.ToolBarButton14.Visible = False ' 'ToolBarButton6 ' Me.ToolBarButton6.Name = "ToolBarButton6" Me.ToolBarButton6.Style = System.Windows.Forms.ToolBarButtonStyle.Separator Me.ToolBarButton6.Visible = False ' 'ToolBarButton7 ' Me.ToolBarButton7.ImageIndex = 25 Me.ToolBarButton7.Name = "ToolBarButton7" Me.ToolBarButton7.ToolTipText = "Dokumentvorlage bearbeiten" Me.ToolBarButton7.Visible = False ' 'ToolBarButton8 ' Me.ToolBarButton8.ImageIndex = 26 Me.ToolBarButton8.Name = "ToolBarButton8" Me.ToolBarButton8.ToolTipText = "Vorschau erstellen" Me.ToolBarButton8.Visible = False ' 'ToolBarButton9 ' Me.ToolBarButton9.ImageIndex = 15 Me.ToolBarButton9.Name = "ToolBarButton9" Me.ToolBarButton9.ToolTipText = "Dokumente generieren" Me.ToolBarButton9.Visible = False ' 'ToolBarButton10 ' Me.ToolBarButton10.ImageIndex = 14 Me.ToolBarButton10.Name = "ToolBarButton10" Me.ToolBarButton10.ToolTipText = "Dokumente drucken" Me.ToolBarButton10.Visible = False ' 'ToolBarButton11 ' Me.ToolBarButton11.ImageIndex = 13 Me.ToolBarButton11.Name = "ToolBarButton11" Me.ToolBarButton11.ToolTipText = "Gedruckte Dokumente bestätigen" Me.ToolBarButton11.Visible = False ' 'ToolBarButton12 ' Me.ToolBarButton12.Name = "ToolBarButton12" Me.ToolBarButton12.Style = System.Windows.Forms.ToolBarButtonStyle.Separator Me.ToolBarButton12.Visible = False ' 'ToolBarButton13 ' Me.ToolBarButton13.Name = "ToolBarButton13" Me.ToolBarButton13.Style = System.Windows.Forms.ToolBarButtonStyle.Separator Me.ToolBarButton13.Visible = False ' 'ToolBarButton15 ' Me.ToolBarButton15.ImageIndex = 16 Me.ToolBarButton15.Name = "ToolBarButton15" Me.ToolBarButton15.ToolTipText = "HOST/EDOKA-Partner hinzufügen" Me.ToolBarButton15.Visible = False ' 'ToolBarButton17 ' Me.ToolBarButton17.ImageIndex = 18 Me.ToolBarButton17.Name = "ToolBarButton17" Me.ToolBarButton17.ToolTipText = "Neuer EDOKA-Partner erfassen" Me.ToolBarButton17.Visible = False ' 'ToolBarButton16 ' Me.ToolBarButton16.ImageIndex = 19 Me.ToolBarButton16.Name = "ToolBarButton16" Me.ToolBarButton16.ToolTipText = "Neuer Empfänger erfassen" Me.ToolBarButton16.Visible = False ' 'ToolBarButton18 ' Me.ToolBarButton18.ImageIndex = 17 Me.ToolBarButton18.Name = "ToolBarButton18" Me.ToolBarButton18.ToolTipText = "Empfängerliste prüfen" Me.ToolBarButton18.Visible = False ' 'ToolBarButton20 ' Me.ToolBarButton20.ImageIndex = 28 Me.ToolBarButton20.Name = "ToolBarButton20" ' 'ToolBarButton21 ' Me.ToolBarButton21.Name = "ToolBarButton21" Me.ToolBarButton21.Style = System.Windows.Forms.ToolBarButtonStyle.Separator ' 'ToolBarButton22 ' Me.ToolBarButton22.ImageIndex = 8 Me.ToolBarButton22.Name = "ToolBarButton22" Me.ToolBarButton22.ToolTipText = "Serienbrief neu generieren" ' 'TBBtnSysadmin ' Me.TBBtnSysadmin.ImageIndex = 10 Me.TBBtnSysadmin.Name = "TBBtnSysadmin" Me.TBBtnSysadmin.Visible = False ' 'ImageList4 ' Me.ImageList4.ImageStream = CType(resources.GetObject("ImageList4.ImageStream"), System.Windows.Forms.ImageListStreamer) Me.ImageList4.TransparentColor = System.Drawing.Color.Transparent Me.ImageList4.Images.SetKeyName(0, "") Me.ImageList4.Images.SetKeyName(1, "") Me.ImageList4.Images.SetKeyName(2, "") Me.ImageList4.Images.SetKeyName(3, "") Me.ImageList4.Images.SetKeyName(4, "") Me.ImageList4.Images.SetKeyName(5, "") Me.ImageList4.Images.SetKeyName(6, "") Me.ImageList4.Images.SetKeyName(7, "") Me.ImageList4.Images.SetKeyName(8, "") Me.ImageList4.Images.SetKeyName(9, "") Me.ImageList4.Images.SetKeyName(10, "") Me.ImageList4.Images.SetKeyName(11, "") Me.ImageList4.Images.SetKeyName(12, "") Me.ImageList4.Images.SetKeyName(13, "") Me.ImageList4.Images.SetKeyName(14, "") Me.ImageList4.Images.SetKeyName(15, "") Me.ImageList4.Images.SetKeyName(16, "") Me.ImageList4.Images.SetKeyName(17, "") Me.ImageList4.Images.SetKeyName(18, "") Me.ImageList4.Images.SetKeyName(19, "") Me.ImageList4.Images.SetKeyName(20, "") Me.ImageList4.Images.SetKeyName(21, "") Me.ImageList4.Images.SetKeyName(22, "") Me.ImageList4.Images.SetKeyName(23, "") Me.ImageList4.Images.SetKeyName(24, "") Me.ImageList4.Images.SetKeyName(25, "") Me.ImageList4.Images.SetKeyName(26, "") Me.ImageList4.Images.SetKeyName(27, "") Me.ImageList4.Images.SetKeyName(28, "") ' 'ImageList1 ' Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer) 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, "") Me.ImageList1.Images.SetKeyName(7, "") Me.ImageList1.Images.SetKeyName(8, "") Me.ImageList1.Images.SetKeyName(9, "") Me.ImageList1.Images.SetKeyName(10, "") Me.ImageList1.Images.SetKeyName(11, "") Me.ImageList1.Images.SetKeyName(12, "") Me.ImageList1.Images.SetKeyName(13, "") Me.ImageList1.Images.SetKeyName(14, "") Me.ImageList1.Images.SetKeyName(15, "") Me.ImageList1.Images.SetKeyName(16, "") Me.ImageList1.Images.SetKeyName(17, "") Me.ImageList1.Images.SetKeyName(18, "") Me.ImageList1.Images.SetKeyName(19, "") Me.ImageList1.Images.SetKeyName(20, "") Me.ImageList1.Images.SetKeyName(21, "") Me.ImageList1.Images.SetKeyName(22, "") Me.ImageList1.Images.SetKeyName(23, "") Me.ImageList1.Images.SetKeyName(24, "") Me.ImageList1.Images.SetKeyName(25, "") Me.ImageList1.Images.SetKeyName(26, "") Me.ImageList1.Images.SetKeyName(27, "") ' 'TabControl1 ' Me.TabControl1.Controls.Add(Me.TabPage1) Me.TabControl1.Controls.Add(Me.TabPage2) Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.TabControl1.Location = New System.Drawing.Point(0, 151) Me.TabControl1.Name = "TabControl1" Me.TabControl1.SelectedIndex = 0 Me.TabControl1.Size = New System.Drawing.Size(744, 344) Me.TabControl1.TabIndex = 42 ' 'TabPage1 ' Me.TabPage1.Controls.Add(Me.empflist) Me.TabPage1.Controls.Add(Me.Splitter1) Me.TabPage1.Controls.Add(Me.Panel1) Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Name = "TabPage1" Me.TabPage1.Size = New System.Drawing.Size(736, 318) Me.TabPage1.TabIndex = 0 Me.TabPage1.Text = "Empfänger" ' 'empflist ' Me.empflist.AlternatingRows = True Me.C1CommandHolder1.SetC1ContextMenu(Me.empflist, Me.C1ContextMenu1) Me.empflist.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Floating Me.empflist.Cursor = System.Windows.Forms.Cursors.Default Me.empflist.Dock = System.Windows.Forms.DockStyle.Fill Me.empflist.FetchRowStyles = True Me.empflist.FilterBar = True Me.empflist.GroupByCaption = "Drag a column header here to group by that column" Me.empflist.Images.Add(CType(resources.GetObject("empflist.Images"), System.Drawing.Image)) Me.empflist.Location = New System.Drawing.Point(243, 0) Me.empflist.Name = "empflist" Me.empflist.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.empflist.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.empflist.PreviewInfo.ZoomFactor = 75.0R Me.empflist.PrintInfo.PageSettings = CType(resources.GetObject("empflist.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.empflist.ScrollTips = True Me.empflist.Size = New System.Drawing.Size(493, 318) Me.empflist.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation Me.empflist.TabIndex = 26 Me.empflist.Text = "C1TrueDBGrid1" Me.empflist.PropBag = resources.GetString("empflist.PropBag") ' 'Splitter1 ' Me.Splitter1.Location = New System.Drawing.Point(240, 0) Me.Splitter1.Name = "Splitter1" Me.Splitter1.Size = New System.Drawing.Size(3, 318) Me.Splitter1.TabIndex = 28 Me.Splitter1.TabStop = False ' 'Panel1 ' Me.Panel1.Controls.Add(Me.TVStatus) Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left Me.Panel1.Location = New System.Drawing.Point(0, 0) Me.Panel1.Name = "Panel1" Me.Panel1.Size = New System.Drawing.Size(240, 318) Me.Panel1.TabIndex = 27 ' 'TVStatus ' Me.TVStatus.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) Me.C1CommandHolder1.SetC1ContextMenu(Me.TVStatus, Me.C1ContextMenu2) Me.TVStatus.Dock = System.Windows.Forms.DockStyle.Fill Me.TVStatus.ImageIndex = 0 Me.TVStatus.ImageList = Me.ImageList2 Me.TVStatus.Location = New System.Drawing.Point(0, 0) Me.TVStatus.Name = "TVStatus" Me.TVStatus.SelectedImageIndex = 0 Me.TVStatus.Size = New System.Drawing.Size(240, 318) Me.TVStatus.TabIndex = 0 ' 'ImageList2 ' Me.ImageList2.ImageStream = CType(resources.GetObject("ImageList2.ImageStream"), System.Windows.Forms.ImageListStreamer) Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent Me.ImageList2.Images.SetKeyName(0, "") ' 'TabPage2 ' Me.TabPage2.Controls.Add(Me.GroupBox8) Me.TabPage2.Controls.Add(Me.GroupBox5) Me.TabPage2.Controls.Add(Me.GroupBox12) Me.TabPage2.Controls.Add(Me.GroupBox3) Me.TabPage2.Controls.Add(Me.GroupBox1) Me.TabPage2.Controls.Add(Me.GroupBox2) Me.TabPage2.Location = New System.Drawing.Point(4, 22) Me.TabPage2.Name = "TabPage2" Me.TabPage2.Size = New System.Drawing.Size(736, 381) Me.TabPage2.TabIndex = 1 Me.TabPage2.Text = "Dokumentinhalt" ' 'GroupBox8 ' Me.GroupBox8.Controls.Add(Me.drpMiatarbeiter) Me.GroupBox8.Controls.Add(Me.Notizlist) Me.GroupBox8.Location = New System.Drawing.Point(384, 192) Me.GroupBox8.Name = "GroupBox8" Me.GroupBox8.Size = New System.Drawing.Size(336, 200) Me.GroupBox8.TabIndex = 45 Me.GroupBox8.TabStop = False Me.GroupBox8.Text = "Notizen" ' 'drpMiatarbeiter ' Me.drpMiatarbeiter.AllowColMove = True Me.drpMiatarbeiter.AllowColSelect = True Me.drpMiatarbeiter.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows Me.drpMiatarbeiter.AlternatingRows = True Me.drpMiatarbeiter.CaptionStyle = Style1 Me.drpMiatarbeiter.ColumnCaptionHeight = 17 Me.drpMiatarbeiter.ColumnFooterHeight = 17 Me.drpMiatarbeiter.EvenRowStyle = Style2 Me.drpMiatarbeiter.FetchRowStyles = False Me.drpMiatarbeiter.FooterStyle = Style3 Me.drpMiatarbeiter.HeadingStyle = Style4 Me.drpMiatarbeiter.HighLightRowStyle = Style5 Me.drpMiatarbeiter.Images.Add(CType(resources.GetObject("drpMiatarbeiter.Images"), System.Drawing.Image)) Me.drpMiatarbeiter.Location = New System.Drawing.Point(24, 64) Me.drpMiatarbeiter.Name = "drpMiatarbeiter" Me.drpMiatarbeiter.OddRowStyle = Style6 Me.drpMiatarbeiter.RecordSelectorStyle = Style7 Me.drpMiatarbeiter.RowDivider.Color = System.Drawing.Color.DarkGray Me.drpMiatarbeiter.RowDivider.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.[Single] Me.drpMiatarbeiter.RowSubDividerColor = System.Drawing.Color.DarkGray Me.drpMiatarbeiter.ScrollTips = False Me.drpMiatarbeiter.Size = New System.Drawing.Size(40, 80) Me.drpMiatarbeiter.Style = Style8 Me.drpMiatarbeiter.TabIndex = 3 Me.drpMiatarbeiter.Text = "C1TrueDBDropdown1" Me.drpMiatarbeiter.Visible = False Me.drpMiatarbeiter.PropBag = resources.GetString("drpMiatarbeiter.PropBag") ' 'Notizlist ' Me.Notizlist.AlternatingRows = True Me.Notizlist.ContextMenu = Me.MenuNotiz Me.Notizlist.Dock = System.Windows.Forms.DockStyle.Top Me.Notizlist.GroupByCaption = "Drag a column header here to group by that column" Me.Notizlist.Images.Add(CType(resources.GetObject("Notizlist.Images"), System.Drawing.Image)) Me.Notizlist.Location = New System.Drawing.Point(3, 16) Me.Notizlist.Name = "Notizlist" Me.Notizlist.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.Notizlist.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.Notizlist.PreviewInfo.ZoomFactor = 75.0R Me.Notizlist.PrintInfo.PageSettings = CType(resources.GetObject("Notizlist.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.Notizlist.Size = New System.Drawing.Size(330, 176) Me.Notizlist.TabIndex = 0 Me.Notizlist.Text = "C1TrueDBGrid1" Me.Notizlist.PropBag = resources.GetString("Notizlist.PropBag") ' 'MenuNotiz ' Me.MenuNotiz.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuNeueNotiz, Me.MnuEditNotiz, Me.MnuDeleteNotiz}) ' 'MnuNeueNotiz ' Me.MnuNeueNotiz.Index = 0 Me.MnuNeueNotiz.Text = "&Neue Notiz" ' 'MnuEditNotiz ' Me.MnuEditNotiz.Index = 1 Me.MnuEditNotiz.Text = "&Notiz bearbeiten" ' 'MnuDeleteNotiz ' Me.MnuDeleteNotiz.Index = 2 Me.MnuDeleteNotiz.Text = "Notiz &löschen" ' 'GroupBox5 ' Me.GroupBox5.Controls.Add(Me.C1DateEdit2) Me.GroupBox5.Controls.Add(Me.Label6) Me.GroupBox5.Controls.Add(Me.TextBox1) Me.GroupBox5.Controls.Add(Me.DateTimePicker6) Me.GroupBox5.Controls.Add(Me.Label7) Me.GroupBox5.Controls.Add(Me.Label8) Me.GroupBox5.Location = New System.Drawing.Point(384, 8) Me.GroupBox5.Name = "GroupBox5" Me.GroupBox5.Size = New System.Drawing.Size(336, 176) Me.GroupBox5.TabIndex = 44 Me.GroupBox5.TabStop = False Me.GroupBox5.Text = "Allgemein" ' 'C1DateEdit2 ' Me.C1DateEdit2.FormatType = C1.Win.C1Input.FormatTypeEnum.ShortDate Me.C1DateEdit2.Location = New System.Drawing.Point(88, 24) Me.C1DateEdit2.Name = "C1DateEdit2" Me.C1DateEdit2.Size = New System.Drawing.Size(96, 20) Me.C1DateEdit2.TabIndex = 41 Me.C1DateEdit2.Tag = Nothing Me.C1DateEdit2.Value = New Date(2005, 10, 11, 0, 0, 0, 0) Me.C1DateEdit2.VisibleButtons = C1.Win.C1Input.DropDownControlButtonFlags.DropDown ' 'Label6 ' Me.Label6.Location = New System.Drawing.Point(8, 48) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(80, 23) Me.Label6.TabIndex = 40 Me.Label6.Text = "Bemerkung" ' 'TextBox1 ' Me.TextBox1.Location = New System.Drawing.Point(88, 48) Me.TextBox1.Multiline = True Me.TextBox1.Name = "TextBox1" Me.TextBox1.Size = New System.Drawing.Size(240, 120) Me.TextBox1.TabIndex = 37 ' 'DateTimePicker6 ' Me.DateTimePicker6.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker6.Location = New System.Drawing.Point(88, 24) Me.DateTimePicker6.Name = "DateTimePicker6" Me.DateTimePicker6.Size = New System.Drawing.Size(96, 20) Me.DateTimePicker6.TabIndex = 36 Me.DateTimePicker6.Visible = False ' 'Label7 ' Me.Label7.Location = New System.Drawing.Point(8, 104) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(80, 23) Me.Label7.TabIndex = 39 Me.Label7.Text = "Archiv-Datum" Me.Label7.Visible = False ' 'Label8 ' Me.Label8.Location = New System.Drawing.Point(8, 24) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(80, 23) Me.Label8.TabIndex = 38 Me.Label8.Text = "Termin" ' 'GroupBox12 ' Me.GroupBox12.Controls.Add(Me.cbteam) Me.GroupBox12.Location = New System.Drawing.Point(8, 272) Me.GroupBox12.Name = "GroupBox12" Me.GroupBox12.Size = New System.Drawing.Size(368, 48) Me.GroupBox12.TabIndex = 41 Me.GroupBox12.TabStop = False Me.GroupBox12.Text = "Team" ' 'cbteam ' Me.cbteam.Location = New System.Drawing.Point(128, 16) Me.cbteam.Name = "cbteam" Me.cbteam.Size = New System.Drawing.Size(232, 21) Me.cbteam.TabIndex = 0 ' 'GroupBox3 ' Me.GroupBox3.Controls.Add(Me.cbUnterschriftrechts) Me.GroupBox3.Controls.Add(Me.cbUnterschriftlinks) Me.GroupBox3.Controls.Add(Me.Label9) Me.GroupBox3.Controls.Add(Me.Label10) Me.GroupBox3.Location = New System.Drawing.Point(8, 192) Me.GroupBox3.Name = "GroupBox3" Me.GroupBox3.Size = New System.Drawing.Size(368, 72) Me.GroupBox3.TabIndex = 40 Me.GroupBox3.TabStop = False Me.GroupBox3.Text = "Unterschrift" ' 'cbUnterschriftrechts ' Me.cbUnterschriftrechts.Location = New System.Drawing.Point(128, 43) Me.cbUnterschriftrechts.Name = "cbUnterschriftrechts" Me.cbUnterschriftrechts.Size = New System.Drawing.Size(232, 21) Me.cbUnterschriftrechts.TabIndex = 1 ' 'cbUnterschriftlinks ' Me.cbUnterschriftlinks.Location = New System.Drawing.Point(128, 19) Me.cbUnterschriftlinks.Name = "cbUnterschriftlinks" Me.cbUnterschriftlinks.Size = New System.Drawing.Size(232, 21) Me.cbUnterschriftlinks.TabIndex = 0 ' 'Label9 ' Me.Label9.Location = New System.Drawing.Point(8, 48) Me.Label9.Name = "Label9" Me.Label9.Size = New System.Drawing.Size(96, 23) Me.Label9.TabIndex = 3 Me.Label9.Text = "Unterschrift rechts" ' 'Label10 ' Me.Label10.Location = New System.Drawing.Point(8, 24) Me.Label10.Name = "Label10" Me.Label10.Size = New System.Drawing.Size(96, 23) Me.Label10.TabIndex = 2 Me.Label10.Text = "Unterschrift links" ' 'GroupBox1 ' Me.GroupBox1.Controls.Add(Me.RBZustaendigKubedesPartners) Me.GroupBox1.Controls.Add(Me.RBZustaendigZustaendiger) Me.GroupBox1.Controls.Add(Me.cbzust) Me.GroupBox1.Location = New System.Drawing.Point(8, 96) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Size = New System.Drawing.Size(368, 88) Me.GroupBox1.TabIndex = 39 Me.GroupBox1.TabStop = False Me.GroupBox1.Text = "Zuständigkeit" ' 'RBZustaendigKubedesPartners ' Me.RBZustaendigKubedesPartners.Location = New System.Drawing.Point(16, 48) Me.RBZustaendigKubedesPartners.Name = "RBZustaendigKubedesPartners" Me.RBZustaendigKubedesPartners.Size = New System.Drawing.Size(112, 24) Me.RBZustaendigKubedesPartners.TabIndex = 4 Me.RBZustaendigKubedesPartners.Text = "Kundenbetreuer des Partners" ' 'RBZustaendigZustaendiger ' Me.RBZustaendigZustaendiger.Location = New System.Drawing.Point(16, 24) Me.RBZustaendigZustaendiger.Name = "RBZustaendigZustaendiger" Me.RBZustaendigZustaendiger.Size = New System.Drawing.Size(98, 24) Me.RBZustaendigZustaendiger.TabIndex = 1 Me.RBZustaendigZustaendiger.Text = "Zuständiger" ' 'cbzust ' Me.cbzust.Location = New System.Drawing.Point(128, 24) Me.cbzust.Name = "cbzust" Me.cbzust.Size = New System.Drawing.Size(232, 21) Me.cbzust.TabIndex = 3 ' 'GroupBox2 ' Me.GroupBox2.Controls.Add(Me.DateTimePicker1) Me.GroupBox2.Controls.Add(Me.cbPostzustellung) Me.GroupBox2.Controls.Add(Me.Label11) Me.GroupBox2.Controls.Add(Me.Label12) Me.GroupBox2.Location = New System.Drawing.Point(8, 8) Me.GroupBox2.Name = "GroupBox2" Me.GroupBox2.Size = New System.Drawing.Size(368, 80) Me.GroupBox2.TabIndex = 38 Me.GroupBox2.TabStop = False Me.GroupBox2.Text = "Allgemein" ' 'DateTimePicker1 ' Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker1.Location = New System.Drawing.Point(128, 48) Me.DateTimePicker1.Name = "DateTimePicker1" Me.DateTimePicker1.Size = New System.Drawing.Size(104, 20) Me.DateTimePicker1.TabIndex = 1 ' 'cbPostzustellung ' Me.cbPostzustellung.Location = New System.Drawing.Point(128, 24) Me.cbPostzustellung.Name = "cbPostzustellung" Me.cbPostzustellung.Size = New System.Drawing.Size(232, 21) Me.cbPostzustellung.TabIndex = 0 ' 'Label11 ' Me.Label11.Location = New System.Drawing.Point(16, 48) Me.Label11.Name = "Label11" Me.Label11.Size = New System.Drawing.Size(100, 23) Me.Label11.TabIndex = 11 Me.Label11.Text = "Dokument-Datum" ' 'Label12 ' Me.Label12.Location = New System.Drawing.Point(16, 24) Me.Label12.Name = "Label12" Me.Label12.Size = New System.Drawing.Size(100, 23) Me.Label12.TabIndex = 10 Me.Label12.Text = "Post-Zustellung" ' 'C1DateEdit1 ' Me.C1DateEdit1.FormatType = C1.Win.C1Input.FormatTypeEnum.ShortDate Me.C1DateEdit1.Location = New System.Drawing.Point(88, 48) Me.C1DateEdit1.Name = "C1DateEdit1" Me.C1DateEdit1.Size = New System.Drawing.Size(96, 20) Me.C1DateEdit1.TabIndex = 41 Me.C1DateEdit1.Tag = Nothing Me.C1DateEdit1.VisibleButtons = C1.Win.C1Input.DropDownControlButtonFlags.DropDown ' 'Label3 ' Me.Label3.Location = New System.Drawing.Point(8, 72) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(80, 23) Me.Label3.TabIndex = 40 ' 'TextBox2 ' Me.TextBox2.Location = New System.Drawing.Point(88, 72) Me.TextBox2.Multiline = True Me.TextBox2.Name = "TextBox2" Me.TextBox2.Size = New System.Drawing.Size(240, 112) Me.TextBox2.TabIndex = 37 ' 'DateTimePicker5 ' Me.DateTimePicker5.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker5.Location = New System.Drawing.Point(88, 20) Me.DateTimePicker5.Name = "DateTimePicker5" Me.DateTimePicker5.Size = New System.Drawing.Size(96, 20) Me.DateTimePicker5.TabIndex = 36 ' 'Label4 ' Me.Label4.Location = New System.Drawing.Point(8, 20) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(80, 23) Me.Label4.TabIndex = 39 ' 'Label5 ' Me.Label5.Location = New System.Drawing.Point(8, 44) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(80, 23) Me.Label5.TabIndex = 38 ' 'MenuEmpfaenger ' Me.MenuEmpfaenger.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuAddEmpfaenger, Me.MnuEditEmpfaenger, Me.MnuDeleteEmpfaenger, Me.MenuItem12, Me.mnusaveasedokapartner, Me.MenuItem14, Me.MenuItem23}) ' 'mnuAddEmpfaenger ' Me.mnuAddEmpfaenger.Index = 0 Me.mnuAddEmpfaenger.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuaddhost, Me.mnunewedoka, Me.mnunewempfaenger}) Me.mnuAddEmpfaenger.Text = "Empänger hinzufügen" ' 'mnuaddhost ' Me.mnuaddhost.Index = 0 Me.mnuaddhost.Shortcut = System.Windows.Forms.Shortcut.CtrlN Me.mnuaddhost.Text = "&HOST-/EDOKA-Partner" ' 'mnunewedoka ' Me.mnunewedoka.Index = 1 Me.mnunewedoka.Shortcut = System.Windows.Forms.Shortcut.CtrlE Me.mnunewedoka.Text = "&Neuer EDOKA-Partner erfassen" ' 'mnunewempfaenger ' Me.mnunewempfaenger.Index = 2 Me.mnunewempfaenger.Shortcut = System.Windows.Forms.Shortcut.CtrlA Me.mnunewempfaenger.Text = "Neuer E&mpfänger erfassen" ' 'MnuEditEmpfaenger ' Me.MnuEditEmpfaenger.Index = 1 Me.MnuEditEmpfaenger.Text = "Empfänger bearbeiten" ' 'MnuDeleteEmpfaenger ' Me.MnuDeleteEmpfaenger.Index = 2 Me.MnuDeleteEmpfaenger.Text = "&Empfänger löschen" ' 'MenuItem12 ' Me.MenuItem12.Index = 3 Me.MenuItem12.Text = "-" ' 'mnusaveasedokapartner ' Me.mnusaveasedokapartner.Index = 4 Me.mnusaveasedokapartner.Text = "&Empfänger als EDOKA-Partner speichern" ' 'MenuItem14 ' Me.MenuItem14.Index = 5 Me.MenuItem14.Text = "-" ' 'MenuItem23 ' Me.MenuItem23.Index = 6 Me.MenuItem23.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuidwspaltehinzufuegen, Me.mnuidwspalteentfernen, Me.mnuidvspalteumbenennen, Me.MenuItem10, Me.MnuSpaltenSelektion}) Me.MenuItem23.Text = "Individuelle Dokumentwerte" ' 'mnuidwspaltehinzufuegen ' Me.mnuidwspaltehinzufuegen.Index = 0 Me.mnuidwspaltehinzufuegen.Text = "Spalte hinzufügen" ' 'mnuidwspalteentfernen ' Me.mnuidwspalteentfernen.Index = 1 Me.mnuidwspalteentfernen.Text = "Spalte löschen" ' 'mnuidvspalteumbenennen ' Me.mnuidvspalteumbenennen.Index = 2 Me.mnuidvspalteumbenennen.Text = "Spalte umbenennen" ' 'MenuItem10 ' Me.MenuItem10.Index = 3 Me.MenuItem10.Text = "-" ' 'MnuSpaltenSelektion ' Me.MnuSpaltenSelektion.Index = 4 Me.MnuSpaltenSelektion.Text = "&Spalten-Selektion" ' 'Label20 ' Me.Label20.Location = New System.Drawing.Point(8, 72) Me.Label20.Name = "Label20" Me.Label20.Size = New System.Drawing.Size(80, 23) Me.Label20.TabIndex = 35 ' 'txtBemerkung ' Me.txtBemerkung.Location = New System.Drawing.Point(88, 72) Me.txtBemerkung.Multiline = True Me.txtBemerkung.Name = "txtBemerkung" Me.txtBemerkung.Size = New System.Drawing.Size(240, 112) Me.txtBemerkung.TabIndex = 2 ' 'DateTimePicker3 ' Me.DateTimePicker3.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker3.Location = New System.Drawing.Point(88, 24) Me.DateTimePicker3.Name = "DateTimePicker3" Me.DateTimePicker3.Size = New System.Drawing.Size(96, 20) Me.DateTimePicker3.TabIndex = 0 ' 'Label13 ' Me.Label13.Location = New System.Drawing.Point(8, 24) Me.Label13.Name = "Label13" Me.Label13.Size = New System.Drawing.Size(80, 23) Me.Label13.TabIndex = 34 ' 'Label14 ' Me.Label14.Location = New System.Drawing.Point(8, 48) Me.Label14.Name = "Label14" Me.Label14.Size = New System.Drawing.Size(80, 23) Me.Label14.TabIndex = 30 ' 'Label16 ' Me.Label16.Location = New System.Drawing.Point(8, 72) Me.Label16.Name = "Label16" Me.Label16.Size = New System.Drawing.Size(80, 23) Me.Label16.TabIndex = 35 Me.Label16.Text = "Bemerkung" ' 'TextBox10 ' Me.TextBox10.Location = New System.Drawing.Point(88, 72) Me.TextBox10.Multiline = True Me.TextBox10.Name = "TextBox10" Me.TextBox10.Size = New System.Drawing.Size(240, 112) Me.TextBox10.TabIndex = 2 ' 'DateTimePicker4 ' Me.DateTimePicker4.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker4.Location = New System.Drawing.Point(88, 24) Me.DateTimePicker4.Name = "DateTimePicker4" Me.DateTimePicker4.Size = New System.Drawing.Size(96, 20) Me.DateTimePicker4.TabIndex = 0 ' 'Label17 ' Me.Label17.Location = New System.Drawing.Point(8, 24) Me.Label17.Name = "Label17" Me.Label17.Size = New System.Drawing.Size(80, 23) Me.Label17.TabIndex = 34 Me.Label17.Text = "Archiv-Datum" ' 'Label18 ' Me.Label18.Location = New System.Drawing.Point(8, 48) Me.Label18.Name = "Label18" Me.Label18.Size = New System.Drawing.Size(80, 23) Me.Label18.TabIndex = 30 Me.Label18.Text = "Termin" ' 'Label1 ' Me.Label1.Location = New System.Drawing.Point(8, 8) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(72, 23) Me.Label1.TabIndex = 48 Me.Label1.Text = "Bezeichnung" ' 'txtBezeichnung ' Me.txtBezeichnung.Location = New System.Drawing.Point(80, 8) Me.txtBezeichnung.Name = "txtBezeichnung" Me.txtBezeichnung.Size = New System.Drawing.Size(320, 20) Me.txtBezeichnung.TabIndex = 49 ' 'cbVerantwortlich ' Me.cbVerantwortlich.Enabled = False Me.cbVerantwortlich.ItemHeight = 13 Me.cbVerantwortlich.Location = New System.Drawing.Point(512, 8) Me.cbVerantwortlich.Name = "cbVerantwortlich" Me.cbVerantwortlich.Size = New System.Drawing.Size(224, 21) Me.cbVerantwortlich.TabIndex = 45 ' 'Label2 ' Me.Label2.Location = New System.Drawing.Point(408, 8) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(88, 23) Me.Label2.TabIndex = 46 Me.Label2.Text = "Verantwortlicher" ' 'Panel2 ' Me.Panel2.Controls.Add(Me.cbVerantwortlich) Me.Panel2.Controls.Add(Me.Label2) Me.Panel2.Controls.Add(Me.Label1) Me.Panel2.Controls.Add(Me.txtBezeichnung) Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top Me.Panel2.Location = New System.Drawing.Point(0, 112) Me.Panel2.Name = "Panel2" Me.Panel2.Size = New System.Drawing.Size(744, 39) Me.Panel2.TabIndex = 50 ' 'SaveFileDialog1 ' Me.SaveFileDialog1.FileName = "doc1" ' 'C1MainMenu1 ' Me.C1MainMenu1.AccessibleName = "Menu Bar" Me.C1MainMenu1.CanMerge = False Me.C1MainMenu1.CommandHolder = Me.C1CommandHolder1 Me.C1MainMenu1.CommandLinks.AddRange(New C1.Win.C1Command.C1CommandLink() {Me.C1MnuMainDatei, Me.C1MnuMainDokument, Me.C1MnuMainEmpfaengerliste, Me.C1MnuIndividuelleDokumentwerte}) Me.C1MainMenu1.Dock = System.Windows.Forms.DockStyle.Top Me.C1MainMenu1.Location = New System.Drawing.Point(0, 0) Me.C1MainMenu1.Name = "C1MainMenu1" Me.C1MainMenu1.Size = New System.Drawing.Size(744, 84) ' 'C1CommandHolder1 ' Me.C1CommandHolder1.Commands.Add(Me.MnuMainDatei) Me.C1CommandHolder1.Commands.Add(Me.MnuMainNew) Me.C1CommandHolder1.Commands.Add(Me.MnuMainLoad) Me.C1CommandHolder1.Commands.Add(Me.MnuMainSave) Me.C1CommandHolder1.Commands.Add(Me.MnuMainClose) Me.C1CommandHolder1.Commands.Add(Me.MnuMainDokument) Me.C1CommandHolder1.Commands.Add(Me.MnuMainVorlageImportieren) Me.C1CommandHolder1.Commands.Add(Me.MnuMainVorageBearbeiten) Me.C1CommandHolder1.Commands.Add(Me.MnuMainVorschauErstellen) Me.C1CommandHolder1.Commands.Add(Me.MnuMainDokumenteGenerieren) Me.C1CommandHolder1.Commands.Add(Me.MnuMainDokumenteDrucken) Me.C1CommandHolder1.Commands.Add(Me.MnuMainDokumenteBestaetigen) Me.C1CommandHolder1.Commands.Add(Me.MnuMainEmpfaengerliste) Me.C1CommandHolder1.Commands.Add(Me.MnuMainAddEDOKAHOSTPartner) Me.C1CommandHolder1.Commands.Add(Me.MnuMainNeuerEDOKAPartnerErfassen) Me.C1CommandHolder1.Commands.Add(Me.MnuMainNeuerEmpfaengerErfassen) Me.C1CommandHolder1.Commands.Add(Me.MnuMainLoadPartnerliste) Me.C1CommandHolder1.Commands.Add(Me.MnuMainSaveAsPartnerlist) Me.C1CommandHolder1.Commands.Add(Me.MnuMainImportEmpfaenger) Me.C1CommandHolder1.Commands.Add(Me.MnuMainExportEmpfaenger) Me.C1CommandHolder1.Commands.Add(Me.MnuMainEDOKAPartnerErfassen) Me.C1CommandHolder1.Commands.Add(Me.C1CommandMenu1) Me.C1CommandHolder1.Commands.Add(Me.MnuMainAddColumn) Me.C1CommandHolder1.Commands.Add(Me.MnuMainDeleteColumn) Me.C1CommandHolder1.Commands.Add(Me.MnuMainRenameColumn) Me.C1CommandHolder1.Commands.Add(Me.MnuMainSpaltenselektion) Me.C1CommandHolder1.Commands.Add(Me.MnuMainAbschluss) Me.C1CommandHolder1.Commands.Add(Me.MnuMainEmpfaengerBearbeiten) Me.C1CommandHolder1.Commands.Add(Me.MnuMainEmfpaengerLoeschen) Me.C1CommandHolder1.Commands.Add(Me.MnuMainCheckEmpfaenger) Me.C1CommandHolder1.Commands.Add(Me.MnuMainSerienbriefLoeschen) Me.C1CommandHolder1.Commands.Add(Me.mnuctAddHost) Me.C1CommandHolder1.Commands.Add(Me.mnuCTADDEdokapartner) Me.C1CommandHolder1.Commands.Add(Me.mnuctaddempfaenger) Me.C1CommandHolder1.Commands.Add(Me.C1ContextMenu1) Me.C1CommandHolder1.Commands.Add(Me.mnuctErstellungWiederholen) Me.C1CommandHolder1.Commands.Add(Me.C1mnuPartnerdossier) Me.C1CommandHolder1.Commands.Add(Me.C1ContextMenu2) Me.C1CommandHolder1.Commands.Add(Me.mnuc2abschliessen) Me.C1CommandHolder1.Commands.Add(Me.mnuc2bestaetigen) Me.C1CommandHolder1.Commands.Add(Me.mnuc2generieren) Me.C1CommandHolder1.Commands.Add(Me.mnuc2printmenu) Me.C1CommandHolder1.Commands.Add(Me.mnuc2printjob) Me.C1CommandHolder1.Commands.Add(Me.C1DruckstapelLoeschen) Me.C1CommandHolder1.Commands.Add(Me.mnuc2partnerlistepruefen) Me.C1CommandHolder1.Commands.Add(Me.mnuc2printpreview) Me.C1CommandHolder1.Commands.Add(Me.c1mnupartner1) Me.C1CommandHolder1.Commands.Add(Me.c1mnupartner2) Me.C1CommandHolder1.Commands.Add(Me.c1mnupartner3) Me.C1CommandHolder1.Commands.Add(Me.c1mnumainpreview) Me.C1CommandHolder1.Commands.Add(Me.C1mnuPersVorlageSave) Me.C1CommandHolder1.Commands.Add(Me.C1MnuPersSbLoad) Me.C1CommandHolder1.Commands.Add(Me.Sysadmin) Me.C1CommandHolder1.Commands.Add(Me.C1MnuSerienbriefMutieren) Me.C1CommandHolder1.Commands.Add(Me.C1Command2) Me.C1CommandHolder1.Commands.Add(Me.C1Sysadmin) Me.C1CommandHolder1.Commands.Add(Me.C1SBEdit) Me.C1CommandHolder1.ImageList = Me.ImageList1 Me.C1CommandHolder1.ImageTransparentColor = System.Drawing.Color.LightGray Me.C1CommandHolder1.Owner = Me Me.C1CommandHolder1.SmoothImages = False ' 'C1ContextMenu1 ' Me.C1ContextMenu1.CommandLinks.AddRange(New C1.Win.C1Command.C1CommandLink() {Me.C1CommandLink21, Me.C1CommandLink26, Me.C1CommandLink27, Me.C1CommandLink11, Me.C1CommandLink12, Me.C1CommandLink2, Me.C1CommandLink14, Me.C1CommandLink15}) Me.C1ContextMenu1.Name = "C1ContextMenu1" ' 'C1CommandLink21 ' Me.C1CommandLink21.Command = Me.c1mnupartner1 Me.C1CommandLink21.Text = "EDOKA-/HOST-Partner hinzufügen" ' 'c1mnupartner1 ' Me.c1mnupartner1.ImageIndex = 16 Me.c1mnupartner1.Name = "c1mnupartner1" Me.c1mnupartner1.Text = "EDOKA-/HOST-Partner hinzufügen" ' 'C1CommandLink26 ' Me.C1CommandLink26.Command = Me.c1mnupartner2 Me.C1CommandLink26.Text = "Neuer EDOKA-Partner erfassen" ' 'c1mnupartner2 ' Me.c1mnupartner2.ImageIndex = 18 Me.c1mnupartner2.Name = "c1mnupartner2" Me.c1mnupartner2.Text = "Neuer EDOKA-Partner erfassen" ' 'C1CommandLink27 ' Me.C1CommandLink27.Command = Me.c1mnupartner3 Me.C1CommandLink27.Text = "Neuer Empfänger erfassen" ' 'c1mnupartner3 ' Me.c1mnupartner3.ImageIndex = 19 Me.c1mnupartner3.Name = "c1mnupartner3" Me.c1mnupartner3.Text = "Neuer Empfänger erfassen" ' 'C1CommandLink11 ' Me.C1CommandLink11.Command = Me.MnuMainEmpfaengerBearbeiten Me.C1CommandLink11.Delimiter = True Me.C1CommandLink11.Text = "Markierter Empfänger bearbeiten" ' 'MnuMainEmpfaengerBearbeiten ' Me.MnuMainEmpfaengerBearbeiten.Name = "MnuMainEmpfaengerBearbeiten" Me.MnuMainEmpfaengerBearbeiten.Text = "Markierter Empfänger bearbeiten" ' 'C1CommandLink12 ' Me.C1CommandLink12.Command = Me.MnuMainEmfpaengerLoeschen Me.C1CommandLink12.Text = "Markierter Empfänger löschen" ' 'MnuMainEmfpaengerLoeschen ' Me.MnuMainEmfpaengerLoeschen.Name = "MnuMainEmfpaengerLoeschen" Me.MnuMainEmfpaengerLoeschen.Text = "Markierter Empfänger löschen" ' 'C1CommandLink2 ' Me.C1CommandLink2.Command = Me.MnuMainEDOKAPartnerErfassen Me.C1CommandLink2.Delimiter = True Me.C1CommandLink2.Text = "Markierter Empfänger als EDOKA-Partner erfassen" ' 'MnuMainEDOKAPartnerErfassen ' Me.MnuMainEDOKAPartnerErfassen.Name = "MnuMainEDOKAPartnerErfassen" Me.MnuMainEDOKAPartnerErfassen.Text = "Markierter Empfänger als EDOKA-Partner erfassen" ' 'C1CommandLink14 ' Me.C1CommandLink14.Command = Me.mnuctErstellungWiederholen Me.C1CommandLink14.Delimiter = True Me.C1CommandLink14.Text = "Dokumenterstellung wiederholen" ' 'mnuctErstellungWiederholen ' Me.mnuctErstellungWiederholen.Name = "mnuctErstellungWiederholen" Me.mnuctErstellungWiederholen.Text = "Dokumenterstellung wiederholen" ' 'C1CommandLink15 ' Me.C1CommandLink15.Command = Me.C1mnuPartnerdossier Me.C1CommandLink15.Text = "Partnerdossier anzeigen" ' 'C1mnuPartnerdossier ' Me.C1mnuPartnerdossier.Name = "C1mnuPartnerdossier" Me.C1mnuPartnerdossier.Text = "Partnerdossier anzeigen" ' 'C1ContextMenu2 ' Me.C1ContextMenu2.CommandLinks.AddRange(New C1.Win.C1Command.C1CommandLink() {Me.C1CommandLink24, Me.C1CommandLink20, Me.C1CommandLink18, Me.C1CommandLink19, Me.C1CommandLink17}) Me.C1ContextMenu2.Name = "C1ContextMenu2" ' 'C1CommandLink24 ' Me.C1CommandLink24.Command = Me.mnuc2partnerlistepruefen Me.C1CommandLink24.Text = "Empfängerliste prüfen" ' 'mnuc2partnerlistepruefen ' Me.mnuc2partnerlistepruefen.ImageIndex = 17 Me.mnuc2partnerlistepruefen.Name = "mnuc2partnerlistepruefen" Me.mnuc2partnerlistepruefen.Text = "Partnerliste prüfen" ' 'C1CommandLink20 ' Me.C1CommandLink20.Command = Me.mnuc2generieren Me.C1CommandLink20.SortOrder = 1 Me.C1CommandLink20.Text = "Dokumente generieren" ' 'mnuc2generieren ' Me.mnuc2generieren.ImageIndex = 15 Me.mnuc2generieren.Name = "mnuc2generieren" Me.mnuc2generieren.Text = "Dokumente generieren" ' 'C1CommandLink18 ' Me.C1CommandLink18.Command = Me.mnuc2printmenu Me.C1CommandLink18.Delimiter = True Me.C1CommandLink18.SortOrder = 2 Me.C1CommandLink18.Text = "Druckstapel" ' 'mnuc2printmenu ' Me.mnuc2printmenu.CommandLinks.AddRange(New C1.Win.C1Command.C1CommandLink() {Me.C1CommandLink22, Me.C1CommandLink25, Me.C1CommandLink23}) Me.mnuc2printmenu.ImageIndex = 14 Me.mnuc2printmenu.Name = "mnuc2printmenu" Me.mnuc2printmenu.Text = "Druckstapel" ' 'C1CommandLink22 ' Me.C1CommandLink22.Command = Me.mnuc2printjob Me.C1CommandLink22.Text = "Druckstapel ausdrucken" ' 'mnuc2printjob ' Me.mnuc2printjob.ImageIndex = 14 Me.mnuc2printjob.Name = "mnuc2printjob" Me.mnuc2printjob.Text = "Druckstapel ausdrucken" ' 'C1CommandLink25 ' Me.C1CommandLink25.Command = Me.mnuc2printpreview Me.C1CommandLink25.Text = "Druckstapel anzeigen" ' 'mnuc2printpreview ' Me.mnuc2printpreview.Name = "mnuc2printpreview" Me.mnuc2printpreview.Text = "Druckstapel anzeigen" ' 'C1CommandLink23 ' Me.C1CommandLink23.Command = Me.C1DruckstapelLoeschen Me.C1CommandLink23.Delimiter = True Me.C1CommandLink23.Text = "Druckstapel löschen" ' 'C1DruckstapelLoeschen ' Me.C1DruckstapelLoeschen.Name = "C1DruckstapelLoeschen" Me.C1DruckstapelLoeschen.Text = "Druckstapel löschen" ' 'C1CommandLink19 ' Me.C1CommandLink19.Command = Me.mnuc2bestaetigen Me.C1CommandLink19.Delimiter = True Me.C1CommandLink19.SortOrder = 3 Me.C1CommandLink19.Text = "Dokumente bestätigen" ' 'mnuc2bestaetigen ' Me.mnuc2bestaetigen.ImageIndex = 13 Me.mnuc2bestaetigen.Name = "mnuc2bestaetigen" Me.mnuc2bestaetigen.Text = "Dokumente bestätigen" ' 'C1CommandLink17 ' Me.C1CommandLink17.Command = Me.mnuc2abschliessen Me.C1CommandLink17.SortOrder = 4 Me.C1CommandLink17.Text = "Serienbrief abschliessen" ' 'mnuc2abschliessen ' Me.mnuc2abschliessen.ImageIndex = 27 Me.mnuc2abschliessen.Name = "mnuc2abschliessen" Me.mnuc2abschliessen.Text = "Serienbrief abschliessen" ' 'MnuMainDatei ' Me.MnuMainDatei.CommandLinks.AddRange(New C1.Win.C1Command.C1CommandLink() {Me.C1MnuMainNeuerSerienbrief, Me.C1MnuMainSerienbriefLaden, Me.C1MnuSerienbriefLoeschen, Me.C1MnuMainSerienbriefabschliessen, Me.C1MnuMainSerienbriefSpeichern, Me.C1MnuMainFensterSchliessen}) Me.MnuMainDatei.HideNonRecentLinks = False Me.MnuMainDatei.Name = "MnuMainDatei" Me.MnuMainDatei.Text = "&Datei" ' 'C1MnuMainNeuerSerienbrief ' Me.C1MnuMainNeuerSerienbrief.Command = Me.MnuMainNew Me.C1MnuMainNeuerSerienbrief.Text = "&Neuer Serienbrief" ' 'MnuMainNew ' Me.MnuMainNew.ImageIndex = 20 Me.MnuMainNew.Name = "MnuMainNew" Me.MnuMainNew.Text = "&Neuer Serienbrief" ' 'C1MnuMainSerienbriefLaden ' Me.C1MnuMainSerienbriefLaden.Command = Me.MnuMainLoad Me.C1MnuMainSerienbriefLaden.Text = "Serienbrief &laden" ' 'MnuMainLoad ' Me.MnuMainLoad.ImageIndex = 22 Me.MnuMainLoad.Name = "MnuMainLoad" Me.MnuMainLoad.Text = "Serienbrief &laden" ' 'C1MnuSerienbriefLoeschen ' Me.C1MnuSerienbriefLoeschen.Command = Me.MnuMainSerienbriefLoeschen Me.C1MnuSerienbriefLoeschen.Text = "Serienbrief löschen" ' 'MnuMainSerienbriefLoeschen ' Me.MnuMainSerienbriefLoeschen.ImageIndex = 23 Me.MnuMainSerienbriefLoeschen.Name = "MnuMainSerienbriefLoeschen" Me.MnuMainSerienbriefLoeschen.Text = "Serienbrief löschen" ' 'C1MnuMainSerienbriefabschliessen ' Me.C1MnuMainSerienbriefabschliessen.Command = Me.MnuMainAbschluss Me.C1MnuMainSerienbriefabschliessen.Text = "Serienbrief abschliessen" ' 'MnuMainAbschluss ' Me.MnuMainAbschluss.ImageIndex = 27 Me.MnuMainAbschluss.Name = "MnuMainAbschluss" Me.MnuMainAbschluss.Text = "Serienbrief abschliessen" ' 'C1MnuMainSerienbriefSpeichern ' Me.C1MnuMainSerienbriefSpeichern.Command = Me.MnuMainSave Me.C1MnuMainSerienbriefSpeichern.Delimiter = True Me.C1MnuMainSerienbriefSpeichern.Text = "&Serienbrief speichern" ' 'MnuMainSave ' Me.MnuMainSave.ImageIndex = 24 Me.MnuMainSave.Name = "MnuMainSave" Me.MnuMainSave.Text = "&Serienbrief speichern" ' 'C1MnuMainFensterSchliessen ' Me.C1MnuMainFensterSchliessen.Command = Me.MnuMainClose Me.C1MnuMainFensterSchliessen.Delimiter = True Me.C1MnuMainFensterSchliessen.Text = "&Fenster schliessen" ' 'MnuMainClose ' Me.MnuMainClose.ImageIndex = 0 Me.MnuMainClose.Name = "MnuMainClose" Me.MnuMainClose.Text = "&Fenster schliessen" ' 'MnuMainDokument ' Me.MnuMainDokument.CommandLinks.AddRange(New C1.Win.C1Command.C1CommandLink() {Me.C1MnuMainVorlageImportieren, Me.C1MnuMainVorlageBearbeiten, Me.C1CommandLink1, Me.C1CommandLink3, Me.C1CommandLink4}) Me.MnuMainDokument.HideNonRecentLinks = False Me.MnuMainDokument.Name = "MnuMainDokument" Me.MnuMainDokument.Text = "Dokument" ' 'C1MnuMainVorlageImportieren ' Me.C1MnuMainVorlageImportieren.Command = Me.MnuMainVorlageImportieren Me.C1MnuMainVorlageImportieren.Text = "Vorlage &importieren" ' 'MnuMainVorlageImportieren ' Me.MnuMainVorlageImportieren.Name = "MnuMainVorlageImportieren" Me.MnuMainVorlageImportieren.Text = "Vorlage &importieren" ' 'C1MnuMainVorlageBearbeiten ' Me.C1MnuMainVorlageBearbeiten.Command = Me.MnuMainVorageBearbeiten Me.C1MnuMainVorlageBearbeiten.Text = "Vorlage &bearbeiten" ' 'MnuMainVorageBearbeiten ' Me.MnuMainVorageBearbeiten.ImageIndex = 25 Me.MnuMainVorageBearbeiten.Name = "MnuMainVorageBearbeiten" Me.MnuMainVorageBearbeiten.Text = "Vorlage &bearbeiten" ' 'C1CommandLink1 ' Me.C1CommandLink1.Command = Me.c1mnumainpreview Me.C1CommandLink1.Text = "Dokument-Vorschau" ' 'c1mnumainpreview ' Me.c1mnumainpreview.ImageIndex = 26 Me.c1mnumainpreview.Name = "c1mnumainpreview" Me.c1mnumainpreview.Text = "Dokument-Vorschau" ' 'C1CommandLink3 ' Me.C1CommandLink3.Command = Me.C1mnuPersVorlageSave Me.C1CommandLink3.Delimiter = True Me.C1CommandLink3.Text = "Serienbrief-Muster speichern" ' 'C1mnuPersVorlageSave ' Me.C1mnuPersVorlageSave.Name = "C1mnuPersVorlageSave" Me.C1mnuPersVorlageSave.Text = "Serienbrief-Muster speichern" ' 'C1CommandLink4 ' Me.C1CommandLink4.Command = Me.C1MnuPersSbLoad Me.C1CommandLink4.Text = "Serienbrief-Muster laden" ' 'C1MnuPersSbLoad ' Me.C1MnuPersSbLoad.Name = "C1MnuPersSbLoad" Me.C1MnuPersSbLoad.Text = "Pers. Serienbriefvorlage laden" ' 'MnuMainVorschauErstellen ' Me.MnuMainVorschauErstellen.ImageIndex = 26 Me.MnuMainVorschauErstellen.Name = "MnuMainVorschauErstellen" Me.MnuMainVorschauErstellen.Text = "Vorschau erstellen" ' 'MnuMainDokumenteGenerieren ' Me.MnuMainDokumenteGenerieren.ImageIndex = 15 Me.MnuMainDokumenteGenerieren.Name = "MnuMainDokumenteGenerieren" Me.MnuMainDokumenteGenerieren.Text = "Dokumente &generieren" ' 'MnuMainDokumenteDrucken ' Me.MnuMainDokumenteDrucken.ImageIndex = 14 Me.MnuMainDokumenteDrucken.Name = "MnuMainDokumenteDrucken" Me.MnuMainDokumenteDrucken.Text = "Dokumente &drucken" ' 'MnuMainDokumenteBestaetigen ' Me.MnuMainDokumenteBestaetigen.ImageIndex = 13 Me.MnuMainDokumenteBestaetigen.Name = "MnuMainDokumenteBestaetigen" Me.MnuMainDokumenteBestaetigen.Text = "Generierte Dokumente bestätigen" ' 'MnuMainEmpfaengerliste ' Me.MnuMainEmpfaengerliste.CommandLinks.AddRange(New C1.Win.C1Command.C1CommandLink() {Me.C1MnuMainImportEmpfaneger, Me.C1MnuMainExportEmpfaenger, Me.C1MnuMainLoadPartnerliste, Me.C1MnuMainSaveAsPartnerlist}) Me.MnuMainEmpfaengerliste.HideNonRecentLinks = False Me.MnuMainEmpfaengerliste.Name = "MnuMainEmpfaengerliste" Me.MnuMainEmpfaengerliste.Text = "Empfängerliste" ' 'C1MnuMainImportEmpfaneger ' Me.C1MnuMainImportEmpfaneger.Command = Me.MnuMainImportEmpfaenger Me.C1MnuMainImportEmpfaneger.Delimiter = True Me.C1MnuMainImportEmpfaneger.Text = "Empfängerliste importieren" ' 'MnuMainImportEmpfaenger ' Me.MnuMainImportEmpfaenger.Name = "MnuMainImportEmpfaenger" Me.MnuMainImportEmpfaenger.Text = "Empfängerliste importieren" ' 'C1MnuMainExportEmpfaenger ' Me.C1MnuMainExportEmpfaenger.Command = Me.MnuMainExportEmpfaenger Me.C1MnuMainExportEmpfaenger.Text = "Empfängerliste exportieren" ' 'MnuMainExportEmpfaenger ' Me.MnuMainExportEmpfaenger.Name = "MnuMainExportEmpfaenger" Me.MnuMainExportEmpfaenger.Text = "Empfängerliste exportieren" ' 'C1MnuMainLoadPartnerliste ' Me.C1MnuMainLoadPartnerliste.Command = Me.MnuMainLoadPartnerliste Me.C1MnuMainLoadPartnerliste.Delimiter = True Me.C1MnuMainLoadPartnerliste.Text = "&Bestehende Partnerliste laden" ' 'MnuMainLoadPartnerliste ' Me.MnuMainLoadPartnerliste.Name = "MnuMainLoadPartnerliste" Me.MnuMainLoadPartnerliste.Text = "&Bestehende Partnerliste laden" ' 'C1MnuMainSaveAsPartnerlist ' Me.C1MnuMainSaveAsPartnerlist.Command = Me.MnuMainSaveAsPartnerlist Me.C1MnuMainSaveAsPartnerlist.Text = "Emfänger als Partnerliste speichern" ' 'MnuMainSaveAsPartnerlist ' Me.MnuMainSaveAsPartnerlist.Name = "MnuMainSaveAsPartnerlist" Me.MnuMainSaveAsPartnerlist.Text = "Emfänger als Partnerliste speichern" ' 'MnuMainAddEDOKAHOSTPartner ' Me.MnuMainAddEDOKAHOSTPartner.ImageIndex = 16 Me.MnuMainAddEDOKAHOSTPartner.Name = "MnuMainAddEDOKAHOSTPartner" Me.MnuMainAddEDOKAHOSTPartner.Shortcut = System.Windows.Forms.Shortcut.CtrlP Me.MnuMainAddEDOKAHOSTPartner.Text = "EDOKA-/HOST-Partner hinzufügen" ' 'MnuMainNeuerEDOKAPartnerErfassen ' Me.MnuMainNeuerEDOKAPartnerErfassen.ImageIndex = 18 Me.MnuMainNeuerEDOKAPartnerErfassen.Name = "MnuMainNeuerEDOKAPartnerErfassen" Me.MnuMainNeuerEDOKAPartnerErfassen.Shortcut = System.Windows.Forms.Shortcut.CtrlN Me.MnuMainNeuerEDOKAPartnerErfassen.Text = "&Neuer EDOKA-Partner erfassen" ' 'MnuMainNeuerEmpfaengerErfassen ' Me.MnuMainNeuerEmpfaengerErfassen.ImageIndex = 19 Me.MnuMainNeuerEmpfaengerErfassen.Name = "MnuMainNeuerEmpfaengerErfassen" Me.MnuMainNeuerEmpfaengerErfassen.Shortcut = System.Windows.Forms.Shortcut.CtrlE Me.MnuMainNeuerEmpfaengerErfassen.Text = "Neuer E&mpfänger erfassen" ' 'C1CommandMenu1 ' Me.C1CommandMenu1.CommandLinks.AddRange(New C1.Win.C1Command.C1CommandLink() {Me.C1MnuMainAddColumn, Me.C1MnuMainDeleteColumn, Me.C1MnuMainRenameColumn, Me.C1MnuMainSpaltenselektion}) Me.C1CommandMenu1.HideNonRecentLinks = False Me.C1CommandMenu1.Name = "C1CommandMenu1" Me.C1CommandMenu1.Text = "&Dokumentspezifische Werte" ' 'C1MnuMainAddColumn ' Me.C1MnuMainAddColumn.Command = Me.MnuMainAddColumn Me.C1MnuMainAddColumn.Text = "Spalte hinzufügen" ' 'MnuMainAddColumn ' Me.MnuMainAddColumn.Name = "MnuMainAddColumn" Me.MnuMainAddColumn.Text = "Spalte hinzufügen" ' 'C1MnuMainDeleteColumn ' Me.C1MnuMainDeleteColumn.Command = Me.MnuMainDeleteColumn Me.C1MnuMainDeleteColumn.Text = "Markierte Spalte löschen" ' 'MnuMainDeleteColumn ' Me.MnuMainDeleteColumn.Name = "MnuMainDeleteColumn" Me.MnuMainDeleteColumn.Text = "Markierte Spalte löschen" ' 'C1MnuMainRenameColumn ' Me.C1MnuMainRenameColumn.Command = Me.MnuMainRenameColumn Me.C1MnuMainRenameColumn.Text = "Markierte Spalte umbenennen" ' 'MnuMainRenameColumn ' Me.MnuMainRenameColumn.Name = "MnuMainRenameColumn" Me.MnuMainRenameColumn.Text = "Markierte Spalte umbenennen" ' 'C1MnuMainSpaltenselektion ' Me.C1MnuMainSpaltenselektion.Command = Me.MnuMainSpaltenselektion Me.C1MnuMainSpaltenselektion.Delimiter = True Me.C1MnuMainSpaltenselektion.Text = "Spalten-Selektion" ' 'MnuMainSpaltenselektion ' Me.MnuMainSpaltenselektion.Name = "MnuMainSpaltenselektion" Me.MnuMainSpaltenselektion.Text = "Spalten-Selektion" ' 'MnuMainCheckEmpfaenger ' Me.MnuMainCheckEmpfaenger.ImageIndex = 17 Me.MnuMainCheckEmpfaenger.Name = "MnuMainCheckEmpfaenger" Me.MnuMainCheckEmpfaenger.Text = "Empfängerliste prüfen" ' 'mnuctAddHost ' Me.mnuctAddHost.ImageIndex = 16 Me.mnuctAddHost.Name = "mnuctAddHost" Me.mnuctAddHost.Text = "EDOKA-/HOST-Partner hinzufügen" ' 'mnuCTADDEdokapartner ' Me.mnuCTADDEdokapartner.ImageIndex = 18 Me.mnuCTADDEdokapartner.Name = "mnuCTADDEdokapartner" Me.mnuCTADDEdokapartner.Text = "Neuer EDOKA-Partner erfassen" ' 'mnuctaddempfaenger ' Me.mnuctaddempfaenger.ImageIndex = 19 Me.mnuctaddempfaenger.Name = "mnuctaddempfaenger" Me.mnuctaddempfaenger.Text = "Neuer Empfänger erfassen" ' 'Sysadmin ' Me.Sysadmin.CommandLinks.AddRange(New C1.Win.C1Command.C1CommandLink() {Me.C1MnuSbEdit, Me.C1MnuEmpfaenger_Edit}) Me.Sysadmin.HideNonRecentLinks = False Me.Sysadmin.Name = "Sysadmin" Me.Sysadmin.Text = "New Command" ' 'C1MnuSbEdit ' Me.C1MnuSbEdit.Command = Me.C1MnuSerienbriefMutieren Me.C1MnuSbEdit.Text = "Serienbrief mutieren" ' 'C1MnuSerienbriefMutieren ' Me.C1MnuSerienbriefMutieren.Name = "C1MnuSerienbriefMutieren" Me.C1MnuSerienbriefMutieren.Text = "Serienbrief mutieren" ' 'C1MnuEmpfaenger_Edit ' Me.C1MnuEmpfaenger_Edit.Command = Me.C1DruckstapelLoeschen Me.C1MnuEmpfaenger_Edit.SortOrder = 1 Me.C1MnuEmpfaenger_Edit.Text = "Empfängerliste bearbeiten" ' 'C1Command2 ' Me.C1Command2.Name = "C1Command2" Me.C1Command2.Text = "New Command" ' 'C1Sysadmin ' Me.C1Sysadmin.CommandLinks.AddRange(New C1.Win.C1Command.C1CommandLink() {Me.C1SBMutation}) Me.C1Sysadmin.HideNonRecentLinks = False Me.C1Sysadmin.Name = "C1Sysadmin" Me.C1Sysadmin.Text = "SB-Mutation" ' 'C1SBMutation ' Me.C1SBMutation.Command = Me.C1SBEdit Me.C1SBMutation.Text = "Serienbrief mutieren" ' 'C1SBEdit ' Me.C1SBEdit.Name = "C1SBEdit" Me.C1SBEdit.Text = "Serienbrief mutieren" ' 'C1MnuMainDatei ' Me.C1MnuMainDatei.Command = Me.MnuMainDatei Me.C1MnuMainDatei.Text = "&Datei" ' 'C1MnuMainDokument ' Me.C1MnuMainDokument.Command = Me.MnuMainDokument Me.C1MnuMainDokument.SortOrder = 1 Me.C1MnuMainDokument.Text = "Dokument" ' 'C1MnuMainEmpfaengerliste ' Me.C1MnuMainEmpfaengerliste.Command = Me.MnuMainEmpfaengerliste Me.C1MnuMainEmpfaengerliste.SortOrder = 2 Me.C1MnuMainEmpfaengerliste.Text = "Empfängerliste" ' 'C1MnuIndividuelleDokumentwerte ' Me.C1MnuIndividuelleDokumentwerte.Command = Me.C1CommandMenu1 Me.C1MnuIndividuelleDokumentwerte.SortOrder = 3 Me.C1MnuIndividuelleDokumentwerte.Text = "&Dokumentspezifische Werte" ' 'BtnHelp ' Me.BtnHelp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.BtnHelp.Image = CType(resources.GetObject("BtnHelp.Image"), System.Drawing.Image) Me.BtnHelp.Location = New System.Drawing.Point(720, 24) Me.BtnHelp.Name = "BtnHelp" Me.BtnHelp.Size = New System.Drawing.Size(24, 23) Me.BtnHelp.TabIndex = 68 ' 'StatusBar1 ' Me.StatusBar1.Location = New System.Drawing.Point(0, 495) Me.StatusBar1.Name = "StatusBar1" Me.StatusBar1.Size = New System.Drawing.Size(744, 22) Me.StatusBar1.TabIndex = 70 ' 'statustimer ' Me.statustimer.Interval = 3000 ' 'ImageList3 ' Me.ImageList3.ImageStream = CType(resources.GetObject("ImageList3.ImageStream"), System.Windows.Forms.ImageListStreamer) Me.ImageList3.TransparentColor = System.Drawing.Color.Transparent Me.ImageList3.Images.SetKeyName(0, "") ' 'lblNaechsteGenerierung ' Me.lblNaechsteGenerierung.AutoSize = True Me.lblNaechsteGenerierung.Location = New System.Drawing.Point(375, 29) Me.lblNaechsteGenerierung.Name = "lblNaechsteGenerierung" Me.lblNaechsteGenerierung.Size = New System.Drawing.Size(45, 13) Me.lblNaechsteGenerierung.TabIndex = 72 Me.lblNaechsteGenerierung.Text = "Label15" ' 'lblnaechsteGenerierungText ' Me.lblnaechsteGenerierungText.AutoSize = True Me.lblnaechsteGenerierungText.Location = New System.Drawing.Point(241, 29) Me.lblnaechsteGenerierungText.Name = "lblnaechsteGenerierungText" Me.lblnaechsteGenerierungText.Size = New System.Drawing.Size(128, 13) Me.lblnaechsteGenerierungText.TabIndex = 73 Me.lblnaechsteGenerierungText.Text = "Nächste SB-Generierung:" ' 'frmSerienbriefe ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(744, 517) Me.Controls.Add(Me.lblnaechsteGenerierungText) Me.Controls.Add(Me.lblNaechsteGenerierung) Me.Controls.Add(Me.TabControl1) Me.Controls.Add(Me.StatusBar1) Me.Controls.Add(Me.BtnHelp) Me.Controls.Add(Me.Panel2) Me.Controls.Add(Me.ToolBar1) Me.Controls.Add(Me.C1MainMenu1) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Name = "frmSerienbriefe" Me.Text = "Serienbrief" Me.TabControl1.ResumeLayout(False) Me.TabPage1.ResumeLayout(False) CType(Me.empflist, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel1.ResumeLayout(False) Me.TabPage2.ResumeLayout(False) Me.GroupBox8.ResumeLayout(False) CType(Me.drpMiatarbeiter, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Notizlist, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox5.ResumeLayout(False) Me.GroupBox5.PerformLayout() CType(Me.C1DateEdit2, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox12.ResumeLayout(False) Me.GroupBox3.ResumeLayout(False) Me.GroupBox1.ResumeLayout(False) Me.GroupBox2.ResumeLayout(False) CType(Me.C1DateEdit1, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel2.ResumeLayout(False) Me.Panel2.PerformLayout() CType(Me.C1CommandHolder1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub #End Region #Region "Deklarationen" Dim Dokumenttypnr As Integer = 0 Dim Serienbriefnr As Integer = 0 Dim dsempfaenger As New DataSet() Dim dtstatus As New DataTable() Dim CurrentColumn As Integer Dim doktyp As New edokadb.clsDokumenttyp() Dim CurrentPartnernr As Integer Dim CurrentPartnerbezeichnung As String Dim teamzustaendig As Integer Dim Notizen As New DataTable() Dim serienbrief As New edokadb.clsEdex_sb_serienbrief() Dim serienbrief_notizen As New edokadb.clsEdex_sb_notizen() Dim WithEvents mcbverantwortlich As New MultiComboBox() Dim WithEvents mcbpostzustellung As New MultiComboBox() Dim WithEvents mcbunterschriftlinks As New MultiComboBox() Dim WithEvents mcbunterschriftrechts As New MultiComboBox() Dim WithEvents mcbteam As New MultiComboBox() Dim WithEvents mcbzust As New MultiComboBox() Dim progress As New ucProgress() Dim progressvisible As Boolean = False Dim OpenForPrinting As Boolean = False Dim On_Load As Boolean Dim datachanged As Boolean Dim ShowSaveMessage As Boolean = True Dim printsbnr As Integer ' Dim NeuerSB As Boolean Dim reservedwords As New Collection() Dim On_Fill As Boolean = False Dim save_verantwortlich As Integer = 0 Dim save_DSInit As New DataTable() 'Rel 4.03 7 Dim Verantwortlicher_gewechselt As Boolean = False 'Rel 4.1 Dim tmpempfaenger As New DataSet Dim BLDossier As Boolean = False Dim WithEvents fTextMarken As frmtextmarken #End Region #Region "Load" Public Sub New(ByVal openforprinting As Boolean, ByVal serienbriefnr As Integer) MyBase.New() ' Dieser Aufruf ist für den Windows Form-Designer erforderlich. InitializeComponent() ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen Me.OpenForPrinting = openforprinting Me.printsbnr = serienbriefnr End Sub Private Sub frmSerienbriefe_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load On_Load = True datachanged = False datachanged = False load_defaults() Funktionen_Freigeben(False) init_empfaenger() Me.empflist.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.Extended Me.StatusBar1.Controls.Add(progress) Me.SetProgress(0, "", True) If Me.OpenForPrinting Then Me.Serienbriefnr = Me.printsbnr Load_Serienbrief(Me.Serienbriefnr) 'Tree Aufbauen Me.TVStatus.Nodes.Clear() Me.Generate_Tree() End If Me.datachanged = False Me.dsempfaenger.AcceptChanges() On_Load = False Load_Reserved_Words() 'Rel 4.03 5: Nächtes Generierungsdatum auslesen und anzeigen Me.lblNaechsteGenerierung.Text = Me.Get_Next_SBGen.ToString 'Rel. 4.1 SysadminFunktion für SB-Pflege Me.TBBtnSysadmin.Visible = False If DivFnkt.MA_Is_Sysadmin(Globals.MitarbeiterNr) Then Me.TBBtnSysadmin.Visible = True Me.TBBtnSysadmin.Enabled = True End If End Sub Private Sub load_defaults() Dim dd As New DataTable() Dim ii As Integer 'Postzustellung mcbpostzustellung = New MultiComboBox(Me.cbPostzustellung) mcbpostzustellung.Visible = True Me.mcbpostzustellung.DisplayColumnName = "bezeichnung" Me.mcbpostzustellung.ValueColumnName = "nreintrag" Me.mcbpostzustellung.Fill_Data(Me.get_postzustellung, False) Me.mcbpostzustellung.Enabled = True Me.mcbpostzustellung.CheckNullValue = False 'Unterschrift links / rechts / Zustaendiger dd = Generic_Select(3) mcbunterschriftlinks = New MultiComboBox(Me.cbUnterschriftlinks) Me.mcbunterschriftlinks.DisplayColumnName = "name" Me.mcbunterschriftlinks.ValueColumnName = "mitarbeiternr" Me.mcbunterschriftlinks.Fill_Data(dd, True) mcbunterschriftrechts = New MultiComboBox(Me.cbUnterschriftrechts) Me.mcbunterschriftrechts.DisplayColumnName = "name" Me.mcbunterschriftrechts.ValueColumnName = "mitarbeiternr" Me.mcbunterschriftrechts.Fill_Data(dd, True) Me.mcbunterschriftlinks.CheckNullValue = False Me.mcbunterschriftrechts.CheckNullValue = False Me.mcbunterschriftlinks.Visible = True Me.mcbunterschriftrechts.Visible = True mcbzust = New MultiComboBox(Me.cbzust) Me.mcbzust.DisplayColumnName = "name" Me.mcbzust.ValueColumnName = "mitarbeiternr" Me.mcbzust.Fill_Data(Generic_Select(3), False) ii = Globals.MitarbeiterNr Me.mcbzust.SelectedValue = ii Me.RBZustaendigZustaendiger.Checked = True Me.mcbzust.Visible = True 'Verantwortlicher Me.mcbverantwortlich = New MultiComboBox(cbVerantwortlich) Me.mcbverantwortlich.DisplayColumnName = "mitarbeiter" Me.mcbverantwortlich.ValueColumnName = "mitarbeiternr" On_Fill = True FillMcbVerantwortlich() On_Fill = False Me.mcbverantwortlich.Visible = True Me.mcbverantwortlich.Enabled = True 'Team Me.mcbteam = New MultiComboBox(Me.cbteam) Me.mcbteam.CheckNullValue = True Me.mcbteam.NullValueMessage = MyTxt.gettext(18) Me.mcbteam.DisplayColumnName = "bezeichnung" Me.mcbteam.ValueColumnName = "teamnr" Me.teamzustaendig = Globals.MitarbeiterNr refresh_team() Me.mcbteam.SelectedIndex = 0 Me.mcbteam.Visible = True Me.dtstatus = Me.get_status End Sub Private Function FillMcbVerantwortlich() Dim dd As New DataTable() Dim I As Integer Dim s As String s = "" Try I = Me.mcbverantwortlich.SelectedValue If I = 0 Then I = Globals.MitarbeiterNr Me.mcbverantwortlich.DataSource = Nothing Me.mcbverantwortlich.Items.Clear() dd = DivFnkt.Berechtigte_Mitarbeiter(Me.Dokumenttypnr, 0, 0, "", 3, 0, 0, 0, s) Me.mcbverantwortlich.Fill_Data(dd, False) Me.mcbverantwortlich.SelectedValue = I If Me.mcbverantwortlich.Items.Count = 0 Then Me.mcbverantwortlich.Text = "" Me.mcbverantwortlich.CheckNullValue = False Else Me.mcbverantwortlich.CheckNullValue = True End If Catch ex As Exception 'MsgBox(ex.Message) Finally dd.Clear() dd.Dispose() End Try Me.save_verantwortlich = Me.mcbverantwortlich.SelectedValue End Function Public Sub refresh_team() Dim tt As New DataTable() tt = Generic_Select(7) Me.mcbteam.DataSource = Nothing Me.mcbteam.Items.Clear() If tt.Rows.Count > 1 Then Me.mcbteam.Fill_Data(tt, False) Me.mcbteam.Enabled = True Else Me.mcbteam.Fill_Data(tt, False) Me.mcbteam.Enabled = False End If tt.Dispose() End Sub #End Region #Region "Diverse Ereignisse" Private Sub empflist_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles empflist.MouseUp Try Me.empflist.Bookmark = Me.empflist.RowContaining(e.Y) Me.CurrentColumn = Me.empflist.ColContaining(e.X) - 1 Catch End Try End Sub Private Sub cbzust_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mcbzust.SelectedIndexChanged Try Me.teamzustaendig = Me.mcbzust.SelectedValue refresh_team() Catch End Try End Sub Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged Me.DateTimePicker5.Value = Me.DateTimePicker1.Value End Sub Private Sub RBZustaendigKubedesPartners_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBZustaendigKubedesPartners.CheckedChanged If Me.RBZustaendigKubedesPartners.Checked Then Me.mcbzust.Enabled = False Else Me.mcbzust.Enabled = True End If End Sub Private Sub Empflist_FetchScrollTips(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchScrollTipsEventArgs) Handles empflist.FetchScrollTips Try Select Case e.ScrollBar Case C1.Win.C1TrueDBGrid.ScrollBarEnum.Horizontal e.ScrollTip = Me.empflist.Columns(e.ColIndex).Caption Case C1.Win.C1TrueDBGrid.ScrollBarEnum.Vertical e.ScrollTip = CStr(e.Row + 1) & " / " & _ CStr(Me.empflist.Splits(0).Rows.Count) End Select e.TipStyle.ForeColor = Color.Blue Catch End Try End Sub #End Region #Region "Datenbankzugriffe" Private Function save_empfaenger() As Boolean Try Dim dokumentname = Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + Me.Serienbriefnr.ToString + "_empfaenger.xml" Try If Me.dsempfaenger.Tables(0).Rows.Count > 0 Then Me.dsempfaenger.Tables(0).TableName = "empfdatatable" Catch End Try Me.dsempfaenger.WriteXml(dokumentname) Dim Connection As New SqlConnection() Dim DA As New SqlDataAdapter("select * from edex_sb_empfaenger where serienbriefnr=" + Str(Me.Serienbriefnr), Connection) Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA) Dim ds As New DataSet() Dim fs As New FileStream(dokumentname, FileMode.Open, FileAccess.Read) Dim mydata(fs.Length) As Byte Try fs.Read(mydata, 0, fs.Length) fs.Close() Connection.ConnectionString = Globals.sConnectionString Connection.Open() DA.Fill(ds, "empf") Dim myRow As DataRow If ds.Tables(0).Rows.Count = 0 Then 'Neue Serienbrief_Empfaenger speichern myRow = ds.Tables(0).NewRow myRow.Item(1) = Me.Serienbriefnr myRow.Item(2) = mydata ds.Tables(0).Rows.Add(myRow) DA.Update(ds, "empf") Else ' Bestehende Empfängerliste überschreiben myRow = ds.Tables(0).Rows(0) myRow.Item(2) = mydata DA.Update(ds, "empf") End If Catch ex As Exception MyMsg.show_standardmessage(700, MsgBoxStyle.Critical) Return False Finally File.Delete(dokumentname) End Try fs = Nothing cb = Nothing ds = Nothing DA = Nothing Connection.Close() Connection = Nothing Return True Catch EX As Exception MyMsg.show_standardmessage(700, MsgBoxStyle.Critical) Return False End Try End Function Private Function Load_empfaenger() As Boolean Try Dim dokumentname = Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + Me.Serienbriefnr.ToString + "_empfaenger.xml" Me.dsempfaenger.Tables.Clear() Dim Connection As New SqlConnection() Dim DA As New SqlDataAdapter("select * from edex_sb_empfaenger where serienbriefnr=" + Str(Me.Serienbriefnr), Connection) Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA) Dim ds As New DataSet() Try Connection.ConnectionString = Globals.sConnectionString Connection.Open() DA.Fill(ds, "empf") Dim myRow As DataRow If ds.Tables(0).Rows.Count = 0 Then MyMsg.show_standardmessage(701, MsgBoxStyle.Critical) Return False Else myRow = ds.Tables(0).Rows(0) Dim MyData() As Byte MyData = myRow.Item(2) Dim K As Long K = UBound(MyData) Dim fs As New FileStream(dokumentname, FileMode.OpenOrCreate, FileAccess.Write) fs.Write(MyData, 0, K) fs.Close() fs = Nothing Me.dsempfaenger.ReadXml(dokumentname) End If Catch ex As Exception MyMsg.show_standardmessage(701, MsgBoxStyle.Critical) ' MsgBox(ex.Message) Return False Finally File.Delete(dokumentname) End Try cb = Nothing ds = Nothing DA = Nothing Connection.Close() Connection = Nothing Try If Me.dsempfaenger.Tables(2).TableName <> "Layout" Then Dim tmpds As New DataSet() Dim i As Integer Dim s As String tmpds.Tables.Add("empfdatatable") For i = 0 To Me.dsempfaenger.Tables(0).Columns.Count - 1 s = Me.dsempfaenger.Tables(0).Columns(i).ColumnName Try tmpds.Tables(0).Columns.Add(s) Catch End Try If UCase(s) = "ERSTELLER" Then tmpds.Tables(0).Columns.Add("DRUCKJOBID") End If Next 'tmpds.Tables.Add(Me.save_DSInit.Copy) For i = 0 To Me.dsempfaenger.Tables.Count - 1 tmpds.Tables.Add(Me.dsempfaenger.Tables(i).Copy) Next Me.dsempfaenger.Tables.Clear() For i = 0 To tmpds.Tables.Count - 1 Me.dsempfaenger.Tables.Add(tmpds.Tables(i).Copy) Next Try Me.dsempfaenger.Tables(0).Rows(0).Delete() Catch ex As Exception End Try tmpds.Dispose() End If Catch End Try Return True Catch EX As Exception MyMsg.show_standardmessage(701, MsgBoxStyle.Critical) Return False End Try End Function Private Function Get_Vorlagenfelder(ByVal dokumenttypnr As Integer) As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim i As Integer Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.sp_edex_sb_get_vorlagenfelder" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumenttypnr)) sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception Throw New Exception("sp_check_dokumentreaktivierung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function Private Function get_status() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim i As Integer Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.sp_edex_sb_get_status" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection Try sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception Throw New Exception("sp_check_dokumentreaktivierung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function Private Function serienbrief_abschliessen() Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim i As Integer Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.sp_edex_sb_serienbrief_abschliessen " scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@serienbriefnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Serienbriefnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@manr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception Throw New Exception("sp_check_dokumentreaktivierung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function Private Function Partner_Details(ByVal partnernr As Integer) Dim p As New edokadb.clsPartner() p.cpMainConnectionProvider = conn p.iNRPAR00 = New SqlInt32(CType(partnernr, Int32)) p.SelectOne() Me.CurrentPartnernr = partnernr Me.CurrentPartnerbezeichnung = p.sBKPAR00.Value p.Dispose() End Function Private Function get_postzustellung() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim i As Integer Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.sp_edex_sb_get_postzustellung" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@mandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MandantNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sprache", SqlDbType.Int, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.Sprache)) sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception Throw New Exception("sp_edex_sb_get_postzustellung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function Private Function Generic_Select(ByVal typ As Integer) As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() Select Case typ Case 3 scmCmdToExecute.CommandText = "SP_Dokumentbearbeitung_Mitarbeiter" Case 7 scmCmdToExecute.CommandText = "sp_dokumentbearbeitung_team" Case 17 scmCmdToExecute.CommandText = "dbo.SP_ValueSelect" Case Else End Select scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.Connection = conn.scoDBConnection Try Select Case typ Case 7 scmCmdToExecute.Parameters.Add(New SqlParameter("@profilnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.teamzustaendig)) Case 17 scmCmdToExecute.Parameters.Add(New SqlParameter("@Datenherkunft", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "&AlleMitarbeiter&")) Case Else End Select If typ = 1 Then End If 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 Private Sub load_Mitarbeiter() conn.OpenConnection() Dim t As DataTable t = Generic_Select(17) Me.drpMiatarbeiter.DataSource = t Me.drpMiatarbeiter.ListField = "FullName" Me.drpMiatarbeiter.DataField = "mitarbeiternr" Me.drpMiatarbeiter.ValueTranslate = True Me.Notizlist.Columns("mutierer").DropDown = Me.drpMiatarbeiter conn.CloseConnection(True) End Sub Private Function delete_serienbrief() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim i As Integer Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.sp_edex_sb_delete_serienbrief" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@serienbriefnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Serienbriefnr)) 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 Throw New Exception("sp_check_dokumentreaktivierung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function Private Sub save_data() 'Neuer Serienbrief speichern Try Dim iFehlerhaft As Integer Dim iInBearbeitung As Integer Dim iNichtgeneriert As Integer Dim iAusgeloest As Integer Dim iErstellt As Integer Dim iGedruckt As Integer Dim iBestaetigt As Integer Dim dv As DataRow() Dim DR As DataRow dv = Me.dsempfaenger.Tables(0).Select("Status='-1'") iFehlerhaft = 0 For Each DR In dv iFehlerhaft = iFehlerhaft + 1 Next iNichtgeneriert = 0 dv = Me.dsempfaenger.Tables(0).Select("Status='0' or Status=''") For Each DR In dv iNichtgeneriert = iNichtgeneriert + 1 Next 'If NeuerSB Then iNichtgeneriert = iNichtgeneriert - 1 iAusgeloest = 0 dv = Me.dsempfaenger.Tables(0).Select("Status='1'") For Each DR In dv iAusgeloest = iAusgeloest + 1 Next iErstellt = 0 dv = Me.dsempfaenger.Tables(0).Select("Status='2'") For Each DR In dv iErstellt = iErstellt + 1 Next iGedruckt = 0 dv = Me.dsempfaenger.Tables(0).Select("Status='3'") For Each DR In dv iGedruckt = iGedruckt + 1 Next iBestaetigt = 0 dv = Me.dsempfaenger.Tables(0).Select("Status='4'") For Each DR In dv iBestaetigt = iBestaetigt + 1 Next Me.serienbrief.iFehlerhaft = New SqlInt32(CType(iFehlerhaft, Int32)) Me.serienbrief.iInBearbeitung = New SqlInt32(CType(iNichtgeneriert, Int32)) Me.serienbrief.iErstellt = New SqlInt32(CType(iErstellt, Int32)) Me.serienbrief.iGedruckt = New SqlInt32(CType(iGedruckt, Int32)) Me.serienbrief.iBestaetigt = New SqlInt32(CType(iBestaetigt, Int32)) Me.serienbrief.iAusgeloest = New SqlInt32(CType(iAusgeloest, Int32)) If Me.Serienbriefnr = 0 Then Me.serienbrief.sBezeichnung = New SqlString(CType(Me.txtBezeichnung.Text, String)) Me.serienbrief.iVerantwortlich = New SqlInt32(CType(Me.mcbverantwortlich.SelectedValue, Int32)) Me.serienbrief.iPostzustellung = New SqlInt32(CType(Me.mcbpostzustellung.SelectedValue, Int32)) Me.serienbrief.daDokumentdatum = New SqlDateTime(CType(Me.DateTimePicker1.Value, DateTime)) Me.serienbrief.iDokumenttypnr = New SqlInt32(CType(Me.Dokumenttypnr, Int32)) If Me.RBZustaendigKubedesPartners.Checked = True Then Me.serienbrief.iZustaendig = New SqlInt32(CType(-1, Int32)) Else Me.serienbrief.iZustaendig = New SqlInt32(CType(Me.mcbzust.SelectedValue, Int32)) End If Me.serienbrief.iUnterschriftlinks = New SqlInt32(CType(Me.mcbunterschriftlinks.SelectedValue, Int32)) Me.serienbrief.iUnterschriftrechts = New SqlInt32(CType(Me.mcbunterschriftrechts.SelectedValue, Int32)) Me.serienbrief.iTeam = New SqlInt32(CType(Me.mcbteam.SelectedValue, Int32)) Me.serienbrief.daArchivdatum = New SqlDateTime(CType(Me.DateTimePicker5.Value, DateTime)) Try Me.serienbrief.daTermin = New SqlDateTime(CType(Me.C1DateEdit1.Value, DateTime)) Catch ex As Exception End Try Me.serienbrief.sBemerkung = New SqlString(CType(Me.txtBemerkung.Text, String)) Me.serienbrief.daErstellt_am = New SqlDateTime(CType(Now, DateTime)) Me.serienbrief.daMutiert_am = New SqlDateTime(CType(Now, DateTime)) Me.serienbrief.iMutierer = New SqlInt32(CType(EDOKAApp.Globals.MitarbeiterNr, SqlInt32)) Me.serienbrief.iStatus = New SqlInt32(CType(0, SqlInt32)) Me.serienbrief.bAktiv = New SqlBoolean(CType(True, Boolean)) Me.serienbrief.iWindowheight = New SqlInt32(CType(Me.Height, SqlInt32)) Me.serienbrief.iWindowwidth = New SqlInt32(CType(Me.Width, SqlInt32)) Me.serienbrief.iTreewidth = New SqlInt32(CType(Me.Panel1.Width, SqlInt32)) Me.serienbrief.cpMainConnectionProvider = Globals.conn Globals.conn.OpenConnection() Me.serienbrief.Insert() Globals.conn.CloseConnection(True) Me.Serienbriefnr = Me.serienbrief.iSerienbriefnr.Value Else Me.serienbrief.sBezeichnung = New SqlString(CType(Me.txtBezeichnung.Text, String)) Me.serienbrief.iVerantwortlich = New SqlInt32(CType(Me.mcbverantwortlich.SelectedValue, Int32)) Me.serienbrief.iPostzustellung = New SqlInt32(CType(Me.mcbpostzustellung.SelectedValue, Int32)) Me.serienbrief.daDokumentdatum = New SqlDateTime(CType(Me.DateTimePicker1.Value, DateTime)) Me.serienbrief.iDokumenttypnr = New SqlInt32(CType(Me.Dokumenttypnr, Int32)) If Me.RBZustaendigKubedesPartners.Checked = True Then Me.serienbrief.iZustaendig = New SqlInt32(CType(-1, Int32)) Else Me.serienbrief.iZustaendig = New SqlInt32(CType(Me.mcbzust.SelectedValue, Int32)) End If Me.serienbrief.iUnterschriftlinks = New SqlInt32(CType(Me.mcbunterschriftlinks.SelectedValue, Int32)) Me.serienbrief.iUnterschriftrechts = New SqlInt32(CType(Me.mcbunterschriftrechts.SelectedValue, Int32)) Me.serienbrief.iTeam = New SqlInt32(CType(Me.mcbteam.SelectedValue, Int32)) Me.serienbrief.daArchivdatum = New SqlDateTime(CType(Me.DateTimePicker5.Value, DateTime)) Try Me.serienbrief.daTermin = New SqlDateTime(CType(Me.C1DateEdit1.Value, DateTime)) Catch End Try Me.serienbrief.sBemerkung = New SqlString(CType(Me.txtBemerkung.Text, String)) Me.serienbrief.daErstellt_am = New SqlDateTime(CType(Now, DateTime)) Me.serienbrief.daMutiert_am = New SqlDateTime(CType(Now, DateTime)) Me.serienbrief.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, SqlInt32)) 'Me.serienbrief.iStatus = New SqlInt32(CType(0, Int32)) Me.serienbrief.bAktiv = New SqlBoolean(CType(True, Boolean)) Me.serienbrief.cpMainConnectionProvider = Globals.conn Me.serienbrief.iWindowheight = New SqlInt32(CType(Me.Height, SqlInt32)) Me.serienbrief.iWindowwidth = New SqlInt32(CType(Me.Width, SqlInt32)) Me.serienbrief.iTreewidth = New SqlInt32(CType(Me.Panel1.Width, SqlInt32)) Globals.conn.OpenConnection() Me.serienbrief.Update() Globals.conn.CloseConnection(True) End If Me.dsempfaenger.AcceptChanges() Me.save_empfaenger() Me.datachanged = False Me.StatusBar1.Text = MyTxt.gettext(720) Me.statustimer.Enabled = True ' If Me.ShowSaveMessage Then MyMsg.show_standardmessage(720, MsgBoxStyle.Information) Catch ex As Exception End Try End Sub Private Sub Load_data() SetProgress(20, "Vorlage laden", False) Me.serienbrief.cpMainConnectionProvider = Globals.conn Me.serienbrief.iSerienbriefnr = New SqlInt32(CType(Me.Serienbriefnr, Int32)) Me.serienbrief.SelectOne() Me.doktyp.cpMainConnectionProvider = Globals.conn Me.doktyp.iDokumenttypnr = New SqlInt32(CType(Me.serienbrief.iDokumenttypnr.Value, Int32)) Me.doktyp.SelectOne() Me.Dokumenttypnr = Me.doktyp.iDokumenttypnr.Value SetProgress(40, "Vorlage laden", False) On_Fill = True Me.FillMcbVerantwortlich() On_Fill = False Me.txtBezeichnung.Text = Me.serienbrief.sBezeichnung.Value Me.mcbverantwortlich.SelectedValue = Me.serienbrief.iVerantwortlich.Value Dim i As Integer i = Me.serienbrief.iPostzustellung.Value Try Me.mcbpostzustellung.SelectedValue = i Catch Me.mcbpostzustellung.SelectedValue = 0 End Try SetProgress(50, "Vorlage laden", False) Me.DateTimePicker1.Value = Me.serienbrief.daDokumentdatum.Value If Me.serienbrief.iZustaendig.Value = -1 Then Me.mcbzust.Enabled = False Me.RBZustaendigKubedesPartners.Checked = True Me.RBZustaendigZustaendiger.Checked = False Else Me.mcbzust.Enabled = True Me.RBZustaendigKubedesPartners.Checked = False Me.RBZustaendigZustaendiger.Checked = True 'Rel 4.03 6 'Me.mcbzust.SelectedValue = Me.serienbrief.iVerantwortlich.Value Me.mcbzust.SelectedValue = Me.serienbrief.iZustaendig.Value End If Me.mcbunterschriftlinks.SelectedValue = Me.serienbrief.iUnterschriftlinks.Value Me.mcbunterschriftrechts.SelectedValue = Me.serienbrief.iUnterschriftrechts.Value Me.DateTimePicker5.Value = Me.serienbrief.daArchivdatum.Value Try Me.C1DateEdit1.Value = Me.serienbrief.daTermin.Value Catch End Try Me.mcbteam.SelectedValue = Me.serienbrief.iTeam.Value Me.txtBemerkung.Text = Me.serienbrief.sBemerkung.Value Try Me.Height = Me.serienbrief.iWindowheight.Value Me.Width = Me.serienbrief.iWindowwidth.Value Me.Panel1.Width = Me.serienbrief.iTreewidth.Value Catch End Try SetProgress(60, "Vorlage laden", False) Me.empflist.DataSource = Nothing Me.empflist.DataMember = Nothing SetProgress(70, "Vorlage laden", False) Me.Load_empfaenger() Me.empflist.DataSource = Me.dsempfaenger.Tables(0) Me.empflist.DataMember = Me.dsempfaenger.Tables(0).TableName SetProgress(80, "Vorlage laden", False) Me.Load_Layout() Me.Funktionen_Freigeben(True) SetProgress(80, "Vorlage laden", False) If Me.serienbrief.iStatus.Value <> 0 Then Me.Funktionen_Freigeben(False) End If 'Notizen Me.Notizen = load_notizen() Me.Notizlist.DataSource = Nothing Me.Notizlist.DataSource = Me.Notizen Me.Notizlist.DataMember = Me.Notizen.TableName DivFnkt.SpaltenTitel_Aktualisieren(Me.Notizlist, Me.Notizen, "edex_sb_notizen") End Sub Private Function load_notizen() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim i As Integer Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.sp_edex_sb_get_ notizen" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection Try conn.OpenConnection() scmCmdToExecute.Parameters.Add(New SqlParameter("@serienbriefnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Serienbriefnr)) sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception Throw New Exception("sp_check_dokumentreaktivierung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() conn.CloseConnection(True) End Try End Function Private Sub Vorlage_Speichern(ByVal filename As String) 'Dokumentvorlage aus Office-Vorlage-Datei auslesen, sofern Filename = "" Dim Dokumentname As String = "" Dim Office_2010 As Boolean = False Dim DokType As String = "" If filename = "" Then If DivFnkt.Get_Office_2010_Param(9) = "True" Then Dim i As Integer Dim f As New frmImportOffice2010(0) i = f.Get_Applikationnr(Me.doktyp.iOffice_vorlagenr.Value) If i <> 0 Then Office_2010 = True End If f.Dispose() End If Dim x As New FrmDomainOfficeVorlageDatei() Dokumentname = x.Get_From_DB(Me.doktyp.iOffice_vorlagenr.Value, Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente"), Office_2010) 'Office Rel. 2010 DokType = x.Get_Office_Dokumenttype(Me.doktyp.iOffice_vorlagenr.Value) x.Dispose() Else Dokumentname = filename End If Try Dim Connection As New SqlConnection() Dim DA As New SqlDataAdapter("select * from edex_sb_vorlage where serienbriefnr=" + Str(Me.Serienbriefnr), Connection) Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA) Dim ds As New DataSet() Dim fs As New FileStream(Dokumentname, FileMode.Open, FileAccess.Read) Dim mydata(fs.Length) As Byte Try fs.Read(mydata, 0, fs.Length) fs.Close() Connection.ConnectionString = Globals.sConnectionString Connection.Open() DA.Fill(ds, "vorlage") Dim myRow As DataRow If ds.Tables(0).Rows.Count = 0 Then 'Neue Serienbrief_Empfaenger speichern myRow = ds.Tables(0).NewRow myRow.Item(0) = Me.Serienbriefnr myRow.Item(1) = mydata myRow.Item(2) = DokType ds.Tables(0).Rows.Add(myRow) DA.Update(ds, "vorlage") Else ' Bestehende Empfängerliste überschreiben myRow = ds.Tables(0).Rows(0) myRow.Item(1) = mydata DA.Update(ds, "vorlage") End If Catch ex As Exception MyMsg.show_standardmessage(702, MsgBoxStyle.Critical) ' MsgBox(ex.Message) End Try fs = Nothing cb = Nothing ds = Nothing DA = Nothing Connection.Close() Connection = Nothing Catch ex As Exception Finally If filename = "" Then File.Delete(Dokumentname) End Try End Sub Private Function create_checktable() Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim i As Integer Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.sp_edex_sb_check_partner_create_table" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection Try conn.OpenConnection() scmCmdToExecute.Parameters.Add(New SqlParameter("@manr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.ExecuteNonQuery() Catch ex As Exception Throw New Exception("sp_check_dokumentreaktivierung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() conn.CloseConnection(True) End Try End Function Private Function save_checkdata() Dim tdt As New DataTable("TMPSB_" + Globals.MitarbeiterNr.ToString) Dim tdr As DataRow Dim i As Integer tdt.Columns.Add("Partnernr") tdt.Columns.Add("Status") tdt.Columns.Add("Rowid") tdt.Columns.Add("Fehlercode") 'Rel 4.1 - BLKunde tdt.Columns.Add("BLKunde") Dim dv As DataRow() Dim DR As DataRow dv = Me.dsempfaenger.Tables(0).Select() i = 0 For Each DR In dv Dim ii As Integer Try ii = DR.Item("Status") Catch ii = 0 End Try If ii < 2 Then DR.Item("Status") = -1 tdr = tdt.NewRow If Me.doktyp.bNurnative.Value = False And DR.Item("Partnernr").ToString = "" Then tdr.Item(0) = 0 tdr.Item(1) = -1 tdr.Item(2) = i tdr.Item(3) = 0 'Rel. 4.1 BLKunde initialisieren tdr.Item(4) = 0 Else tdr.Item(0) = Val(DR.Item("Partnernr")) tdr.Item(1) = 0 tdr.Item(2) = i tdr.Item(3) = 3 'Rel. 4.1 BLKunde initialisieren tdr.Item(4) = 0 End If tdt.Rows.Add(tdr) End If i = i + 1 Next Dim connection As New SqlConnection() Dim da As New SqlDataAdapter("Select * from TMPSB_" + Globals.MitarbeiterNr.ToString, connection) Dim cb As New SqlCommandBuilder(da) connection.ConnectionString = Globals.sConnectionString connection.Open() da.Update(tdt) connection.Close() End Function Private Function Check_Data() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim i As Integer Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.sp_edex_sb_check_partner" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@manr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) If doktyp.bVertrag.Value = True Then scmCmdToExecute.Parameters.Add(New SqlParameter("@vertrag", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1)) Else scmCmdToExecute.Parameters.Add(New SqlParameter("@vertrag", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) End If sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception Throw New Exception("sp_edex_sb_get_postzustellung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function #End Region #Region "Check" Private Sub check_vorlagenfelder() Dim dt As New DataTable() Dim i As Integer Dim progressvaluestep As Integer Dim progressvalue As Integer = 0 Dim i1 As Integer Dim ok As Boolean = False Dim s As String SetProgress(0, "Felder Prüfen", False) dt = Me.Get_Vorlagenfelder(Me.Dokumenttypnr) Try progressvaluestep = 100 / dt.Rows.Count Catch progressvaluestep = 1 End Try SetProgress(progressvalue, "Felder Prüfen", False) For i = 0 To dt.Rows.Count - 1 Try Dim X As String X = Me.dsempfaenger.Tables(0).Rows(0).Item(dt.Rows(i).Item(0)) Catch Me.dsempfaenger.Tables(0).Columns.Add(dt.Rows(i).Item(0)) Me.dsempfaenger.Tables(0).Rows(0).Item(dt.Rows(i).Item(0)) = "" Me.dsempfaenger.Tables(1).Columns.Add(dt.Rows(i).Item(0)) Try If dt.Rows(i).Item(1) = True Then Me.dsempfaenger.Tables(1).Rows(0).Item(dt.Rows(i).Item(0)) = 1 Else Me.dsempfaenger.Tables(1).Rows(0).Item(dt.Rows(i).Item(0)) = 0 End If Catch Me.dsempfaenger.Tables(1).Rows(0).Item(dt.Rows(i).Item(0)) = 0 End Try s = s + "- " + dt.Rows(i).Item(0) + vbCrLf End Try Next 'For i1 = 0 To Me.dsempfaenger.Tables(0).Columns.Count - 1 ' For i = 0 To dt.Rows.Count - 1 ' If Me.dsempfaenger.Tables(0).Columns(i1).ColumnName = dt.Rows(i).Item(0) Then ' ok = True ' Exit For ' End If ' If Not ok Then ' Me.dsempfaenger.Tables(0).Columns.Add(dt.Rows(i).Item(0)) ' Me.dsempfaenger.Tables(0).Rows(0).Item(dt.Rows(i).Item(0)) = "" ' Me.dsempfaenger.Tables(1).Columns.Add(dt.Rows(i).Item(0)) ' If dt.Rows(i).Item(1) = True Then ' Me.dsempfaenger.Tables(1).Rows(0).Item(dt.Rows(i).Item(0)) = 1 ' Else ' Me.dsempfaenger.Tables(1).Rows(0).Item(dt.Rows(i).Item(0)) = 0 ' End If ' s = s + "- " + dt.Rows(i).Item(0) ' End If ' ok = True ' Next ' progressvalue = progressvalue + progressvaluestep ' SetProgress(progressvalue, "Felder Prüfen", False) 'Next Me.empflist.DataMember = Nothing Me.empflist.DataSource = Nothing Me.empflist.DataSource = Me.dsempfaenger.Tables(0) Me.empflist.DataMember = Me.dsempfaenger.Tables(0).TableName Me.Create_Layout() Me.Save_Layout() If s <> "" Then MyMsg.show_standardmessage_ReplaceText(703, MsgBoxStyle.Information, s, "") End If End Sub #End Region #Region "Menus" #Region "Toolbar" Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick Me.Cursor = Cursors.WaitCursor Select Case ToolBar1.Buttons.IndexOf(e.Button) Case 0 'Exit Me.MnuMainClose_Click(sender, Nothing) Case 1 Me.MnuMainNew_Click(sender, Nothing) Case 2 Me.MnuMainLoad_Click(sender, Nothing) Case 3 Me.MnuMainSerienbriefLoeschen_Click(sender, Nothing) Case 4 Me.MnuMainSave_Click(sender, Nothing) Case 5 Me.MnuMainAbschluss_Click(sender, Nothing) Case 8 Me.MnuMainVorageBearbeiten_Click(sender, Nothing) Case 9 Case 10 ' MnuMainDokumenteGenerieren_Click(sender, Nothing) Case 11 MnuMainDokumenteDrucken_Click(sender, Nothing) Case 12 MnuMainDokumenteBestaetigen_Click(sender, Nothing) Case 15 Case 16 Case 18 Case 19 Me.Generate_Tree() Case 21 'Rel. 4.03 5: Alle Zeilen in SelectedRowCollection enfügen und Dokumenterstellung erneut auslösen Dim i As Integer For i = 0 To Me.empflist.Splits(0).Rows.Count - 1 Me.empflist.SelectedRows.Add(i) Next Dokumenterstellung_Wiederholen() Case 22 'Release 4.1 Dim f As New frmSBEdit(Me.serienbrief, Me.dsempfaenger.Tables(0)) f.ShowDialog() Me.dsempfaenger.Tables(0).Rows.Clear() Dim sds As New DataSet sds = Me.dsempfaenger.Copy dsempfaenger.Tables.Clear() dsempfaenger.Tables.Add(f.ResultatDaten.Copy) Dim ii As Integer = 0 Try If sds.Tables.Count > 1 Then For ii = 1 To sds.Tables.Count - 1 dsempfaenger.Tables.Add(sds.Tables(ii).Copy) Next End If Catch ex As Exception MsgBox(ex.Message) End Try Me.Generate_Tree() sds.Dispose() End Select Me.Cursor = Cursors.Default End Sub #End Region #Region "Menu Dialog" Private Sub mnuNeuerSerienbrief_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Me.txtBezeichnung.Text = "" Me.txtBezeichnung.Focus() Funktionen_Freigeben(True) End Sub Private Sub mnuidwspaltehinzufuegen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuidwspaltehinzufuegen.Click Dim s As String s = InputBox("Bitte geben Sie den Namen der neuen Spalte ein.", "") If s <> "" Then Dim i As Integer For i = 0 To Me.dsempfaenger.Tables(0).Columns.Count - 1 If Me.dsempfaenger.Tables(0).Columns(i).Caption = s Then MyMsg.show_standardmessage(704, MsgBoxStyle.Critical) Exit Sub End If Next Me.dsempfaenger.Tables(0).Columns.Add(s) ' Me.dsempfaenger.Tables(0).Columns(Me.dsempfaenger.Tables(0).Columns.Count - 1).DefaultValue = "0" Me.dsempfaenger.Tables(0).Rows(0).Item(Me.dsempfaenger.Tables(0).Columns.Count - 1) = "" Me.empflist.DataMember = Nothing Me.empflist.DataSource = Nothing Me.empflist.DataSource = Me.dsempfaenger.Tables(0) Me.empflist.DataMember = Me.dsempfaenger.Tables(0).TableName Me.dsempfaenger.Tables(1).Columns.Add(s) 'Tabelle 2 ergänzen, damit die Spalten auch gelöscht werden kann Me.dsempfaenger.Tables(1).Rows(0).Item(s) = 0 Me.Create_Layout() Me.Save_Layout() End If End Sub Private Sub mnuidwspalteentfernen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuidwspalteentfernen.Click Try 'Wenn in der zweiten Tabelle das Flag der entsprechenden Spalte auf 1 ist, kann die Spalte nicht gelöscht werden If Me.dsempfaenger.Tables(1).Rows(0).Item(Me.CurrentColumn) = True Then MyMsg.show_standardmessage(705, MsgBoxStyle.Critical) Exit Sub End If 'Sofern die Spalte gelöscht wird, wird das Dataset und die Empfängerliste aktualisiert If MyMsg.show_MessageYesNo_ReplaceText(706, Me.empflist.Columns(Me.CurrentColumn + 1).Caption, "") = MsgBoxResult.Yes Then Me.dsempfaenger.Tables(0).Columns.Remove(Me.empflist.Columns(Me.CurrentColumn + 1).Caption) Me.dsempfaenger.Tables(1).Columns.Remove(Me.empflist.Columns(Me.CurrentColumn + 1).Caption) Me.empflist.DataMember = Nothing Me.empflist.DataSource = Nothing Me.empflist.DataSource = Me.dsempfaenger.Tables(0) Me.empflist.DataMember = Me.dsempfaenger.Tables(0).TableName Me.Create_Layout() Me.Save_Layout() End If Catch End Try End Sub Private Sub mnuidvspalteumbenennen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuidvspalteumbenennen.Click If Me.dsempfaenger.Tables(1).Rows(0).Item(Me.CurrentColumn) = 1 Then MyMsg.show_standardmessage(707, MsgBoxStyle.Critical) Exit Sub End If Dim s As String s = InputBox(MyMsg.Get_Meldungstext(708) + " " + Me.dsempfaenger.Tables(0).Columns(Me.CurrentColumn + 1).Caption + MyMsg.Get_Meldungstext(709)) If s <> "" Then s = Me.Check_Columnname(s) If s = "#Error#" Then MyMsg.show_standardmessage(729, MsgBoxStyle.Critical) Exit Sub End If Me.dsempfaenger.Tables(0).Columns(Me.CurrentColumn + 1).ColumnName = s Me.dsempfaenger.Tables(1).Columns(Me.CurrentColumn).ColumnName = s Me.empflist.DataMember = Nothing Me.empflist.DataSource = Nothing Me.empflist.DataSource = Me.dsempfaenger.Tables(0) Me.empflist.DataMember = Me.dsempfaenger.Tables(0).TableName Me.Create_Layout() Me.Save_Layout() End If End Sub Private Sub MnuSpaltenSelektion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuSpaltenSelektion.Click Dim F As New frmSBSpaltenDarstellung() Dim i As Integer F.ListBox1.Items.Clear() F.ListBox2.Items.Clear() Try For i = 0 To Me.empflist.Columns.Count - 1 If Me.empflist.Splits(0).DisplayColumns(i).Name.ToString = "AKTIV" Or _ Me.empflist.Splits(0).DisplayColumns(i).Name.ToString = "BLKUNDE" Or _ Me.empflist.Splits(0).DisplayColumns(i).Name.ToString = "DOKUMENT_GEDRUCKT" Or _ Me.empflist.Splits(0).DisplayColumns(i).Name.ToString = "DOKUMENTID" Or _ Me.empflist.Splits(0).DisplayColumns(i).Name.ToString = "DOKUMENTIDBDR" Or _ Me.empflist.Splits(0).DisplayColumns(i).Name.ToString = "ERSTELLER" Or _ Me.empflist.Splits(0).DisplayColumns(i).Name.ToString = "FEHLERCODE" Then Else Try If Me.empflist.Splits(0).DisplayColumns(i).Visible = False Then If Me.empflist.Splits(0).DisplayColumns(i).Name().ToString <> "" Then F.ListBox1.Items.Add(Me.empflist.Splits(0).DisplayColumns(i).Name()) End If End If Catch End Try Try If Me.empflist.Splits(0).DisplayColumns(i).Visible = True Then F.ListBox2.Items.Add(Me.empflist.Splits(0).DisplayColumns(i).Name()) Catch End Try End If Next Catch ex As Exception End Try F.ShowDialog() For i = 0 To F.ListBox1.Items.Count - 1 Try Dim xx As Integer For xx = 0 To Me.empflist.Columns.Count - 1 If Me.empflist.Splits(0).DisplayColumns(xx).Name = F.ListBox1.Items(i) Then Me.empflist.Splits(0).DisplayColumns(xx).Visible = False End If Next Catch End Try Next For i = 0 To F.ListBox2.Items.Count - 1 Try Dim xx As Integer For xx = 0 To Me.empflist.Columns.Count - 1 If Me.empflist.Splits(0).DisplayColumns(xx).Name = F.ListBox2.Items(i) Then Me.empflist.Splits(0).DisplayColumns(xx).Visible = True End If Next Catch End Try Next F.Dispose() Me.Save_Layout() End Sub #End Region #Region "Menu Empfänger" #Region "Neue Empfänger" Private Sub mnuaddhost_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuaddhost.Click Dim f As New FrmPartnersuche() f.TopMost = False f.ShowDialog() If f.PartnerNr <> 0 Then Me.Partner_Details(f.PartnerNr) add_edokahostpartner(f.VIBeachten) Me.empflist.UpdateData() End If End Sub Private Sub mnunewedoka_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnunewedoka.Click Dim f As New frmInteressent() f.TopMost = False f.Profilnr = 0 f.Display = False Try f.Partnernr = 0 f.ShowDialog() Catch f.Partnernr = 0 f.ShowDialog() Finally If f.Partnernr > 0 Then Me.Partner_Details(f.Partnernr) add_edokahostpartner(False) Me.empflist.UpdateData() Me.Generate_Tree() End If End Try End Sub Private Sub add_edokahostpartner(ByVal vibeachten As Boolean) Me.empflist.AllowAddNew() = True Me.empflist.MoveLast() Me.empflist.Row = Me.empflist.Row + 1 Me.empflist.Select() Dim i As Integer For i = 0 To Me.empflist.Columns.Count - 1 Me.empflist.Columns(i).Text = "" Next Me.empflist.Columns("partnernr").Text = Me.CurrentPartnernr Me.empflist.Columns("Kurzbezeichnung").Text = Me.CurrentPartnerbezeichnung Me.empflist.Columns("Status").Text = 0 If vibeachten = True Then Me.empflist.Columns("fehlercode").Value = 9 Me.empflist.UpdateData() 'If NeuerSB Then ' NeuerSB = False ' 'Me.dsempfaenger.Tables(0).Rows(0).Delete() 'End If Me.dsempfaenger.AcceptChanges() 'Release 4.1 Me.empflist.AllowAddNew = False Me.datachanged = True Me.Generate_Tree() End Sub Private Sub mnunewempfaenger_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnunewempfaenger.Click Dim f As New frmsbpartnerdetail(True, Me.dsempfaenger.Tables(0), 0) f.txtAnrede.Text = "" f.txtname.Text = "" f.txtvorname.Text = "" f.txtstrasse.Text = "" f.txtplz.Text = "" f.txtort.Text = "" f.txtzustelladresse.Text = "" Dim dt As New DataTable() dt = Me.get_idvwerte f.WertList.DataSource = dt f.WertList.DataMember = dt.TableName f.ShowDialog() If f.DialogResult = DialogResult.OK Then Me.empflist.AllowAddNew = True Me.empflist.MoveLast() Me.empflist.Row = Me.empflist.Row + 1 Me.empflist.Select() Dim i As Integer For i = 0 To Me.empflist.Columns.Count - 1 Me.empflist.Columns(i).Text = "" Next Me.empflist.Columns("Anrede").Text = f.txtAnrede.Text Me.empflist.Columns("Kurzbezeichnung").Text = f.txtkurzbezeichnung.Text Me.empflist.Columns("Name").Text = f.txtname.Text Me.empflist.Columns("Vorname").Text = f.txtvorname.Text Me.empflist.Columns("Strasse").Text = f.txtstrasse.Text Me.empflist.Columns("PLZ").Text = f.txtplz.Text Me.empflist.Columns("Ort").Text = f.txtort.Text Me.empflist.Columns("Zustelladresse").Text = f.txtzustelladresse.Text Me.empflist.Columns("BriefAnrede1").Text = f.txtanrede1.Text Me.empflist.Columns("BriefAnrede2").Text = f.txtanrede2.Text Me.empflist.Columns("Status").Text = 0 For i = 0 To dt.Rows.Count - 1 Me.empflist.Columns(dt.Rows(i).Item(0)).text = dt.Rows(i).Item(1) Next Me.empflist.UpdateData() 'If NeuerSB = True Then ' NeuerSB = False ' Me.dsempfaenger.Tables(0).Rows(0).Delete() ' Me.dsempfaenger.AcceptChanges() 'End If Me.datachanged = True Me.empflist.AllowAddNew = False Me.Generate_Tree() End If End Sub Private Function get_idvwerte() As DataTable Dim i As Integer Dim dt As New DataTable() dt.Columns.Add("Feldname") dt.Columns.Add("Wert") For i = 0 To Me.dsempfaenger.Tables(0).Columns.Count - 1 Select Case UCase(Me.dsempfaenger.Tables(0).Columns(i).Caption) Case "PARTNERNR", "KURZBEZEICHNUNG", "ANREDE", "NAME", "VORNAME", "STRASSE", "PLZ", "ORT", "ZUSTELLADRESSE", "BRIEFANREDE1", "BRIEFANREDE2", "STATUS", "FEHLERCODE", "BLKUNDE", "DOKUMENT_GEDRUCKT", "AKTIV", "DOKUMENTID", "DOKUMENTIDBDR", "ERSTELLER", "DRUCKJOBID" Case Else Dim myRow As DataRow myRow = dt.NewRow myRow.Item(0) = Me.dsempfaenger.Tables(0).Columns(i).Caption myRow.Item(1) = "" dt.Rows.Add(myRow) End Select Next Return dt End Function Private Sub mnusaveasedokapartner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnusaveasedokapartner.Click Dim f As New frmInteressent() f.txtanrede.Text = Me.empflist.Columns("Anrede").Text f.txtname.Text = Me.empflist.Columns("name").Text f.txtvorname.Text = Me.empflist.Columns("vorname").Text f.txtadresse1.Text = Me.empflist.Columns("Strasse").Text f.txtplz.Text = Me.empflist.Columns("plz").Text f.txtort.Text = Me.empflist.Columns("ort").Text f.txtbriefanrede.Text = Me.empflist.Columns("Briefanrede1").Text f.txtkurzbezeichnung.Text = Me.empflist.Columns("Kurzbezeichnung").Text f.adraufbereitet.Text = Me.empflist.Columns("Zustelladresse").Text f.ShowDialog() If f.Partnernr <> 0 Then Me.empflist.Columns("partnernr").Text = f.Partnernr.ToString Me.empflist.Columns("anrede").Text = "" Me.empflist.Columns("name").Text = "" Me.empflist.Columns("Vorname").Text = "" Me.empflist.Columns("Strasse").Text = "" Me.empflist.Columns("plz").Text = "" Me.empflist.Columns("ort").Text = "" Me.empflist.Columns("Zustelladresse").Text = "" Me.empflist.Columns("BriefAnrede1").Text = "" Me.empflist.Columns("BriefAnrede2").Text = "" Me.empflist.Columns("Anrede").Text = "" Me.empflist.Columns("Zustelladresse").Text = "" Me.empflist.UpdateData() End If End Sub #End Region #Region "Import Export" Private Function Import_Empfaenger() As Boolean Dim saveds As New DataSet() saveds = Me.dsempfaenger.Copy Me.OpenFileDialog1.Filter = "Excel-Dateien (*.xlsx)|*.xlsx|Excel-Dateien (*.xls)|*.xls|CSV-Dateien (*.csv)|*.csv|Text-Dateien (*.txt)|*.txt|Alle Dateien (*.*)|*.*" Me.OpenFileDialog1.ShowDialog() If Me.OpenFileDialog1.FileName = "" Then Return False Application.DoEvents() Dim dt As New DataTable() Dim savedt As New DataTable() Dim savedt1 As New DataTable() If Me.OpenFileDialog1.FileName <> "" Then SetProgress(20, "Empfänger importieren", False) savedt = Me.dsempfaenger.Tables(0).Copy Me.dsempfaenger.Tables.Clear() FillDataTableFromText(Me.OpenFileDialog1.FileName) 'Rel. 4.1 - Kurzname bei Adresse ergänzen 'Rel 4.03 3: Wenn keine Daten importiert wurden, Progressbar zurück setzen und Datenprüfung verlassen ' Gesichertes Dataset wieder herstellen Try If Me.dsempfaenger.Tables(0).Rows.Count < 1 Then SetProgress(0, "", True) Me.dsempfaenger = saveds Exit Function End If Catch ex As Exception Me.dsempfaenger = saveds SetProgress(0, "", True) Exit Function End Try If Check_Importtable(Me.dsempfaenger.Tables(0)) = True Then create_supporttable() Else Me.dsempfaenger = saveds.Copy Me.SetProgress(100, "", True) Exit Function End If If savedt.Rows.Count > 0 Then savedt1 = Me.dsempfaenger.Tables(0).Copy Me.dsempfaenger.Tables.Clear() Me.dsempfaenger.Tables.Add(savedt.Copy) savedt.Dispose() Dim r1 As Integer Dim c1 As Integer Dim dr As DataRow Dim inserted As Boolean For r1 = 0 To savedt1.Rows.Count - 1 dr = Me.dsempfaenger.Tables(0).NewRow inserted = False Try For c1 = 0 To savedt1.Columns.Count - 1 dr.Item(savedt1.Columns(c1).ColumnName) = savedt1.Rows(r1).Item(c1) inserted = True Next Catch End Try Try If inserted Then Me.dsempfaenger.Tables(0).Rows.Add(dr) Catch End Try Next End If Me.empflist.DataMember = Nothing Me.empflist.DataSource = Nothing Try Me.empflist.DataSource = Me.dsempfaenger.Tables(0) Me.empflist.DataMember = Me.dsempfaenger.Tables(0).TableName Catch End Try SetProgress(40, "Layout erstellen", False) Create_Layout() SetProgress(60, "Felder prüfen", False) check_vorlagenfelder() Dim i As Integer Dim i1 As Integer For i = 0 To Me.dsempfaenger.Tables(0).Rows.Count - 1 For i1 = 0 To Me.dsempfaenger.Tables(0).Columns.Count - 1 If Me.dsempfaenger.Tables(0).Rows(i).Item(i1) Is System.DBNull.Value Then Me.dsempfaenger.Tables(0).Rows(i).Item(i1) = "" End If Next Next 'Me.NeuerSB = False Me.empflist.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.Extended Me.Generate_Tree() End If saveds.Dispose() Return True End Function Private Sub Export_Empfaenger() Me.SaveFileDialog1.Filter = "CSV-Dateien (*.csv)|*.csv|Alle Dateien (*.*)|*.*" Me.SaveFileDialog1.ShowDialog() If Me.SaveFileDialog1.FileName <> "" Then Me.Extract_CSV(Me.dsempfaenger.Tables(0), Me.SaveFileDialog1.FileName) End If End Sub Private Sub Extract_CSV(ByVal dt As DataTable, ByVal filename As String) Dim s As String Dim i As Integer Dim c As Integer Dim tw As TextWriter tw = New StreamWriter(New FileStream(filename, FileMode.Create)) Dim w As TextWriter s = "" For i = 0 To dt.Columns.Count - 1 s = s + dt.Columns(i).ColumnName + ";" Next tw.WriteLine(s) s = "" For i = 0 To dt.Rows.Count - 1 For c = 0 To dt.Columns.Count - 1 Try s = s + CType(dt.Rows(i).Item(c), String) + ";" Catch s = s + "" End Try Next tw.WriteLine(s) s = "" Next tw.Flush() tw.Close() End Sub Private Function FillDataTableFromText(ByVal file As String) As DataTable Select Case UCase(Microsoft.VisualBasic.Right(file, 3)) Case "CSV" Dim csv As New MyNameSpace.CSVDataAdapter(file, True, ";") csv.Fill(Me.dsempfaenger) 'Rel 4.03 3: Wenn die erste Spalte <> "Parternr" dann Meldung ausgeben und alle Rows löchen If Me.dsempfaenger.Tables(0).Columns(0).ColumnName <> "Partnernr" Then MyMsg.show_standardmessage(50001, MsgBoxStyle.Exclamation) Me.dsempfaenger.Tables(0).Rows.Clear() End If Me.dsempfaenger.Tables(0).TableName = "empfdatatable" Case "TXT" Dim csv As New MyNameSpace.CSVDataAdapter(file, True, ";") csv.Fill(Me.dsempfaenger) 'Rel 4.03 3: Wenn die erste Spalte <> "Parternr" dann Meldung ausgeben und alle Rows löchen If Me.dsempfaenger.Tables(0).Columns(0).ColumnName <> "Partnernr" Then MyMsg.show_standardmessage(50001, MsgBoxStyle.Exclamation) Me.dsempfaenger.Tables(0).Rows.Clear() End If Me.dsempfaenger.Tables(0).TableName = "empfdatatable" Case "XLS" If oledbimport(file, "XLS") Then Me.dsempfaenger.Tables(0).TableName = "empfdatatable" End If Case "XLSX" If oledbimport(file, "XLSX") Then Me.dsempfaenger.Tables(0).TableName = "empfdatatable" End If End Select 'Rel. Office Migration If UCase(Microsoft.VisualBasic.Right(file, 5)) = ".XLSX" Then If oledbimport(file, "XLSX") Then Me.dsempfaenger.Tables(0).TableName = "empfdatatable" End If End If Dim dv As DataRow End Function Private Function oledbimport(ByVal file As String, ByVal filetype As String) As Boolean Dim dt As New DataTable() Dim conn As OleDbConnection Dim sql As String Dim FileConnection As String Dim oda As New OleDbDataAdapter() Dim msg As String Select Case filetype Case "XLS" Try Dim xls As New XLSLib.clsXLSLib dt = xls.Get_Excel(file) If dt.Columns(0).Caption <> "Partnernr" Then MyMsg.show_standardmessage(50001, MsgBoxStyle.Exclamation) dt.Rows.Clear() End If Me.dsempfaenger.Tables.Add(dt) Return True Catch ex As Exception MsgBox(ex.Message) End Try Case "XLSX" Try Dim xls As New XLSLib.clsXLSLib dt = xls.Get_Excel(file) If dt.Columns(0).Caption <> "Partnernr" Then MyMsg.show_standardmessage(50001, MsgBoxStyle.Exclamation) dt.Rows.Clear() End If Me.dsempfaenger.Tables.Add(dt) Return True Catch ex As Exception MsgBox(ex.Message) End Try End Select Try Try conn = New OleDbConnection() conn.ConnectionString = FileConnection conn.Open() Catch ex As Exception msg = ex.Message End Try oda = New OleDbDataAdapter(sql, conn) oda.Fill(dt) 'Rel 4.03 4: Sofern die erste Spalte der importierten Daten keine Partnernummer ist, Meldung ausgeben If dt.Columns(0).Caption <> "Partnernr" Then MyMsg.show_standardmessage(50001, MsgBoxStyle.Exclamation) dt.Rows.Clear() End If Me.dsempfaenger.Tables.Add(dt) Return True Catch ex As Exception Finally oda.Dispose() conn.Dispose() End Try End Function Private Function Get_Sheetname(ByVal excelfile As String) As String Dim f As New frmExcelSheets f.ExcelFile = excelfile f.ShowDialog() If f.DialogResult = Windows.Forms.DialogResult.OK Then Return f.ExcelSheet Else Return "" End If End Function Private Function Check_Importtable(ByRef dt As DataTable) As Boolean Dim s As String = "Folgende Felder sind in Ihren Import-Daten nicht vorhanden:" + vbCrLf Dim S1 As String = s If dt.Rows.Count < 1 Then Dim myRow As DataRow myRow = dt.NewRow Dim I As Integer For I = 0 To dt.Columns.Count - 1 myRow.Item(I) = "" Next I dt.Rows.Add(myRow) End If Check_Column("Partnernr", dt) Check_Column("Kurzbezeichnung", dt) Check_Column("Name", dt) Check_Column("Vorname", dt) Check_Column("Strasse", dt) Check_Column("PLZ", dt) Check_Column("Ort", dt) Check_Column("Zustelladresse", dt) Check_Column("Briefanrede1", dt) Check_Column("Briefanrede2", dt) Check_Column("Anrede", dt) Check_Column("STATUS", dt) Check_Column("FEHLERCODE", dt) Check_Column("DOKUMENTIDBDR", dt) Check_Column("ERSTELLER", dt) Check_Column("DRUCKJOBID", dt) Check_Column("BLKUNDE", dt) Check_Column("DOKUMENT_GEDRUCKT", dt) Check_Column("AKTIV", dt) Check_Column("DOKUMENTID", dt) Dim dr As DataRow For Each dr In dt.Rows Try If dr.Item("Status") = "0" Or dr.Item("Status") Is System.DBNull.Value Or dr.Item("Status") = "" Then dr.Item("Status") = "0" dr.Item("fehlercode") = "" dr.Item("Dokumentid") = "" dr.Item("Dokumentidbdr") = "" dr.Item("blkunde") = False dr.Item("dokument_gedruckt") = False dr.Item("Aktiv") = True End If Catch dr.Item("Status") = "0" dr.Item("fehlercode") = "" dr.Item("Dokumentid") = "" dr.Item("Dokumentidbdr") = "" dr.Item("blkunde") = False dr.Item("dokument_gedruckt") = False dr.Item("Aktiv") = True End Try Next Dim II As Integer s = "" S1 = "" For II = 0 To dt.Columns.Count - 1 s = Check_Columnname(dt.Columns(II).ColumnName) If s = "#Error#" Then S1 = S1 + "- " + dt.Columns(II).ColumnName + vbCrLf Else If s <> dt.Columns(II).ColumnName Then dt.Columns(II).ColumnName = s End If End If Next If S1 <> "" Then MyMsg.show_standardmessage_ReplaceText(731, MsgBoxStyle.Critical, S1, "") Return False End If Dim dn As New DataTable() dn = set_columnorder(dt) dt.Clear() Dim drr As DataRow For Each drr In dn.Rows dt.ImportRow(drr) Next Me.dsempfaenger.Tables.Clear() Me.dsempfaenger.Tables.Add(dn.Copy) dn.Dispose() Return True End Function Private Function set_columnorder(ByRef dt As DataTable) As DataTable Dim dn As New DataTable() Check_Column("Partnernr", dn) Check_Column("Kurzbezeichnung", dn) Check_Column("Name", dn) Check_Column("Vorname", dn) Check_Column("Strasse", dn) Check_Column("PLZ", dn) Check_Column("Ort", dn) Check_Column("Zustelladresse", dn) Check_Column("Briefanrede1", dn) Check_Column("Briefanrede2", dn) Check_Column("Anrede", dn) Check_Column("STATUS", dn) Check_Column("FEHLERCODE", dn) Check_Column("DOKUMENTIDBDR", dn) Check_Column("ERSTELLER", dn) Check_Column("DRUCKJOBID", dn) Check_Column("BLKUNDE", dn) Check_Column("DOKUMENT_GEDRUCKT", dn) Check_Column("AKTIV", dn) Check_Column("DOKUMENTID", dn) Dim i As Integer Dim i1 As Integer For i = 0 To dt.Columns.Count - 1 Check_Column(dt.Columns(i).ColumnName, dn) Next For i = 0 To dt.Rows.Count - 1 Dim myRow As DataRow myRow = dn.NewRow For i1 = 0 To dt.Columns.Count - 1 myRow.Item(dt.Columns(i1).ColumnName) = dt.Rows(i).Item(i1) Next myRow.Item("Status") = 0 dn.Rows.Add(myRow) Next Return dn End Function Private Function Check_Column(ByVal colname As String, ByRef dt As DataTable) As Boolean Dim i As Integer For i = 0 To dt.Columns.Count - 1 If dt.Columns(i).ColumnName = colname Then Return True Next dt.Columns.Add(colname) Try dt.Rows(0).Item(colname) = "" Catch End Try End Function Private Sub create_supporttable() Dim dt As New DataTable() Dim i As Integer For i = 0 To Me.dsempfaenger.Tables(0).Columns.Count - 1 dt.Columns.Add(Me.dsempfaenger.Tables(0).Columns(i).ColumnName) Next Dim myRow As DataRow myRow = dt.NewRow For i = 0 To dt.Columns.Count - 1 myRow.Item(i) = 0 Next i dt.Rows.Add(myRow) If Check_Column("Partnernr", dt) Then dt.Rows(0).Item("Partnernr") = 1 If Check_Column("Kurzbezeichnung", dt) Then dt.Rows(0).Item("Kurzbezeichnung") = 1 If Check_Column("Anrede", dt) Then dt.Rows(0).Item("Anrede") = 1 If Check_Column("Name", dt) Then dt.Rows(0).Item("Name") = 1 If Check_Column("Vorname", dt) Then dt.Rows(0).Item("Vorname") = 1 If Check_Column("Strasse", dt) Then dt.Rows(0).Item("Strasse") = 1 If Check_Column("PLZ", dt) Then dt.Rows(0).Item("PLZ") = 1 If Check_Column("Ort", dt) Then dt.Rows(0).Item("Ort") = 1 If Check_Column("Zustelladresse", dt) Then dt.Rows(0).Item("Zustelladresse") = 1 If Check_Column("Briefanrede1", dt) Then dt.Rows(0).Item("Briefanrede1") = 1 If Check_Column("Briefanrede2", dt) Then dt.Rows(0).Item("Briefanrede2") = 1 Me.dsempfaenger.Tables.Add(dt) End Sub Private Sub Create_Layout() Try '20080415 RGL Reihenfolge ausgetauscht Visible vorne, Autosize hinten '20080415 RGL Zusätzliche Abfrage if visible aus Performancegründen '20080415 RGL Autosize ganz rausgenommen aus Performancegründen Me.empflist.Splits(0).DisplayColumns("STATUS").Visible = False Me.empflist.Splits(0).DisplayColumns("FEHLERCODE").Visible = False Me.empflist.Splits(0).DisplayColumns("BLKUNDE").Visible = False Me.empflist.Splits(0).DisplayColumns("DOKUMENT_GEDRUCKT").Visible = False Me.empflist.Splits(0).DisplayColumns("AKTIV").Visible = False Me.empflist.Splits(0).DisplayColumns("DOKUMENTID").Visible = False Me.empflist.Splits(0).DisplayColumns("DOKUMENTIDBDR").Visible = False Me.empflist.Splits(0).DisplayColumns("ERSTELLER").Visible = False Me.empflist.Splits(0).DisplayColumns("DRUCKJOBID").Visible = False 'Dim i As Integer 'For i = 0 To Me.empflist.Columns.Count - 1 ' If Me.empflist.Splits(0).DisplayColumns(i).Visible = True Then ' Me.empflist.Splits(0).DisplayColumns(i).AutoSize() ' End If 'Next Me.empflist.Refresh() Catch End Try End Sub #End Region #Region "Layout" Private Sub empflist_ColMove(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColMoveEventArgs) Save_Layout() End Sub Private Sub empflist_ColResize(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColResizeEventArgs) Handles empflist.ColResize Save_Layout() End Sub Private Sub Save_Layout() Dim filename As String = Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + Me.Serienbriefnr.ToString + "_empfaenger.lyt" Me.empflist.SaveLayout(filename) If Me.dsempfaenger.Tables.Count < 3 Then Me.dsempfaenger.Tables.Add("Layout") Me.dsempfaenger.Tables("Layout").Columns.Add("LayoutData") Dim myRow As DataRow myRow = Me.dsempfaenger.Tables("Layout").NewRow myRow.Item(0) = "" Me.dsempfaenger.Tables("Layout").Rows.Add(myRow) End If Dim FiStr As FileStream = _ New FileStream(filename, FileMode.Open) Dim StrRe As StreamReader = New StreamReader(FiStr) Dim i As Integer Dim s As String s = StrRe.ReadToEnd StrRe.Close() Me.dsempfaenger.Tables("Layout").Rows(0).Item(0) = s End Sub Private Sub Load_Layout() Try If Me.dsempfaenger.Tables.Count < 3 Then Exit Sub End If Dim filename As String = Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + Me.Serienbriefnr.ToString + "_empfaenger.lyt" Dim FiStr As FileStream = _ New FileStream(filename, FileMode.Create) Dim StrRe As StreamWriter = New StreamWriter(FiStr) StrRe.Write(Me.dsempfaenger.Tables("Layout").Rows(0).Item(0)) StrRe.Close() Me.empflist.LoadLayout(filename) Catch ex As Exception MsgBox(ex.Message) End Try End Sub #End Region #End Region #Region "Menu Notiz" Private Sub MnuNeueNotiz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuNeueNotiz.Click Dim i As Integer Dim f As New frmNotizen() f.Mutierer = Globals.MitarbeiterNr.ToString f.Notiz = "" f.Betreff = "" f.ShowDialog() If f.DialogResult = DialogResult.OK Then Me.serienbrief_notizen.cpMainConnectionProvider = Globals.conn Me.serienbrief_notizen.iSerienbriefnr = New SqlInt32(CType(Me.Serienbriefnr, Int32)) Me.serienbrief_notizen.sBetreff = New SqlString(CType(f.Betreff, String)) Me.serienbrief_notizen.sNotiz = New SqlString(CType(f.Notiz, String)) Me.serienbrief_notizen.bAktiv = New SqlBoolean(CType(True, Boolean)) Me.serienbrief_notizen.daErstellt_am = New SqlDateTime(CType(Now, DateTime)) Me.serienbrief_notizen.daMutiert_am = New SqlDateTime(CType(Now, DateTime)) Me.serienbrief_notizen.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32)) Me.serienbrief_notizen.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32)) Globals.conn.OpenConnection() Me.serienbrief_notizen.Insert() Globals.conn.CloseConnection(True) Me.load_notizen() Me.Notizlist.DataSource = Me.Notizen Me.Notizlist.DataMember = Me.Notizen.TableName DivFnkt.SpaltenTitel_Aktualisieren(Me.Notizlist, Me.Notizen, "edex_sb_notizen") Try For i = 0 To Me.Notizlist.Splits(0).Rows.Count - 1 If Me.Notizlist.Columns("betreff").CellText(i) = f.Betreff Then Me.Notizlist.Bookmark = i End If Next Catch End Try End If f.Hide() End Sub Private Sub MnuEditNotiz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuEditNotiz.Click Dim f As New frmNotizen() f.Betreff = Me.Notizlist.Columns("betreff").Value f.Notiz = Me.Notizlist.Columns("Notiz").Value f.Mutierer = Me.Notizlist.Columns("Mutierer").Text f.MutiertAm = Me.Notizlist.Columns("Mutiert_Am").Text f.ShowDialog() If f.DialogResult = DialogResult.OK Then Me.serienbrief_notizen.cpMainConnectionProvider = Globals.conn Me.serienbrief_notizen.iNotiznr = New SqlInt32(CType(Me.Notizlist.Columns("notiznr").Value, Int32)) Me.serienbrief_notizen.SelectOne() Me.serienbrief_notizen.sBetreff = New SqlString(CType(f.Betreff, String)) Me.serienbrief_notizen.sNotiz = New SqlString(CType(f.Notiz, String)) Me.serienbrief_notizen.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32)) Me.serienbrief_notizen.daMutiert_am = New SqlDateTime(CType(Now, DateTime)) Globals.conn.OpenConnection() Me.serienbrief_notizen.Update() Globals.conn.CloseConnection(True) Me.Notizen = Me.load_notizen() Me.Notizlist.DataSource = Me.Notizen Me.Notizlist.DataMember = Me.Notizen.TableName DivFnkt.SpaltenTitel_Aktualisieren(Me.Notizlist, Me.Notizen, "edex_sb_notizen") Dim i As Integer Try For i = 0 To Me.Notizlist.Splits(0).Rows.Count - 1 If Me.Notizlist.Columns("betreff").CellText(i) = f.Betreff Then Me.Notizlist.Bookmark = i End If Next Catch End Try End If f.Dispose() End Sub Private Sub MnuDeleteNotiz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuDeleteNotiz.Click Me.serienbrief_notizen.cpMainConnectionProvider = Globals.conn Me.serienbrief_notizen.iNotiznr = New SqlInt32(CType(Me.Notizlist.Columns("notiznr").Value, Int32)) Me.serienbrief_notizen.SelectOne() Me.serienbrief_notizen.bAktiv = New SqlBoolean(CType(False, Boolean)) Me.serienbrief_notizen.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32)) Globals.conn.OpenConnection() Me.serienbrief_notizen.Update() Globals.conn.CloseConnection(True) Me.Notizen = Me.load_notizen() Me.Notizlist.DataSource = Me.Notizen Me.Notizlist.DataMember = Me.Notizen.TableName Dim i As Integer DivFnkt.SpaltenTitel_Aktualisieren(Me.Notizlist, Me.Notizen, "edex_sb_notizen") End Sub Private Sub Notizlist_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Try MnuEditNotiz_Click(sender, e) Catch End Try End Sub #End Region #Region "MainMenu" #Region "Datei" Private Sub MnuMainNew_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles MnuMainNew.Click On_Load = True Me.Cursor = Cursors.WaitCursor Application.DoEvents() Dim f As New frmVorlagenauswahl_Serienbriefe() f.Show_Favoriten = False f.ShowDialog() If f.DialogResult = DialogResult.OK Then Me.BLDossier = False 'NeuerSB = True Me.Cursor = Cursors.WaitCursor Application.DoEvents() SetProgress(10, "Vorlage laden", False) Me.doktyp.cpMainConnectionProvider = Globals.conn Me.doktyp.iDokumenttypnr = New SqlInt32(CType(f.Dokumentvorlage, Int32)) Me.doktyp.SelectOne() Me.txtBezeichnung.Text = doktyp.sBezeichnung.Value Me.txtBezeichnung.Enabled = True Me.Dokumenttypnr = doktyp.iDokumenttypnr.Value SetProgress(20, "Vorlage laden", False) init_empfaenger() SetProgress(30, "Vorlage laden", False) check_vorlagenfelder() SetProgress(30, "Vorlage laden", False) On_Fill = True Me.FillMcbVerantwortlich() On_Fill = False If Me.mcbverantwortlich.Items.Count = 0 Then MyMsg.show_standardmessage(723, MsgBoxStyle.Critical) Funktionen_Freigeben(False) Me.SetProgress(0, "", True) Exit Sub End If Funktionen_Freigeben(True) SetProgress(40, "Vorlage laden", False) Me.ShowSaveMessage = False Me.MnuMainSave_Click(sender, Nothing) Me.ShowSaveMessage = True Vorlage_Speichern("") SetProgress(50, "Vorlage laden", False) Application.DoEvents() Dim f1 As New frmtextmarken(Me.Serienbriefnr, False, Me.dsempfaenger, doktyp.iDokumenttypnr.Value) Dim dtusedfelder As New DataTable() SetProgress(60, "Vorlage laden", False) Try dtusedfelder = f1.init_used_felder() dtusedfelder.TableName = "UsedFelder" Catch ex As Exception 'MsgBox(ex.Message) End Try Me.dsempfaenger.Tables.Add(dtusedfelder.Copy) SetProgress(70, "Vorlage laden", False) dtusedfelder.Dispose() f1.Dispose() If Me.doktyp.bSbedituser.Value = False Then Me.dsempfaenger.Tables.Add("VerkFelder") Dim d1 As New DataColumn() Dim d2 As New DataColumn() Dim d3 As New DataColumn() d1.Caption = "IDVWert" d1.ColumnName = "IDVWert" d1.DefaultValue = "" d2.Caption = "Standardwert" d2.ColumnName = "Standardwert" d2.DefaultValue = "" d3.Caption = "Vorlagenfeldnr" d3.ColumnName = "Vorlagenfeldnr" d3.DefaultValue = "" With Me.dsempfaenger.Tables("Verkfelder").Columns .Add(d1) .Add(d2) .Add(d3) End With End If SetProgress(80, "Vorlage laden", False) Me.Cursor = Cursors.Default Application.DoEvents() Me.TVStatus.Nodes.Clear() Me.empflist.Delete() Me.empflist.UpdateData() Me.dsempfaenger.AcceptChanges() Me.save_data() Me.Generate_Tree() End If SetProgress(100, "Vorlage laden", True) Thread.Sleep(500) SetProgress(100, "Vorlage laden", True) On_Load = False datachanged = False Me.dsempfaenger.AcceptChanges() End Sub Private Sub MnuMainLoad_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles MnuMainLoad.Click 'Rel 4.03 7 Variable initialisieren Me.Verantwortlicher_gewechselt = False On_Load = True Dim f As New frmSerienbriefe_Load() f.ShowDialog() If f.DialogResult = DialogResult.OK Then Me.BLDossier = False Me.Serienbriefnr = f.Serienbriefnr Load_Serienbrief(Me.Serienbriefnr) 'Tree Aufbauen Me.TVStatus.Nodes.Clear() Me.Generate_Tree() datachanged = False Me.dsempfaenger.AcceptChanges() End If On_Load = False End Sub Public Sub Load_Serienbrief(ByVal sbnr As Integer) 'NeuerSB = False Me.Serienbriefnr = sbnr SetProgress(10, "Vorlage laden", False) Me.Cursor = Cursors.WaitCursor Application.DoEvents() Me.Load_data() SetProgress(100, "Vorlage laden", True) Me.empflist.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.Extended Me.Cursor = Cursors.Default Application.DoEvents() If Me.serienbrief.iStatus.Value > 0 Then Me.GroupBox2.Enabled = False Me.GroupBox1.Enabled = False Me.GroupBox3.Enabled = False Me.GroupBox12.Enabled = False Me.GroupBox5.Enabled = False Me.GroupBox8.Enabled = False Me.txtBemerkung.Enabled = False Me.mcbverantwortlich.Enabled = False End If End Sub Private Sub init_empfaenger() Try Me.empflist.DataSource = Nothing Me.empflist.DataMember = Nothing Me.dsempfaenger.Tables.Clear() Me.Serienbriefnr = 0 If Me.Load_empfaenger = True Then Check_Column("DRUCKJOBID", Me.dsempfaenger.Tables(0)) Me.empflist.DataSource = Me.dsempfaenger.Tables(0) Me.empflist.DataMember = Me.dsempfaenger.Tables(0).TableName End If Load_Layout() Me.empflist.AllowAddNew = False Me.save_DSInit = Me.dsempfaenger.Tables(0) Catch End Try End Sub Private Sub MnuMainSerienbriefLoeschen_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles MnuMainSerienbriefLoeschen.Click If MyMsg.Show_MessageYesNo(711) = MsgBoxResult.Yes Then If Me.Serienbriefnr <> 0 Then delete_serienbrief() End If Me.TVStatus.Nodes.Clear() Me.txtBezeichnung.Text = "" Me.init_empfaenger() Me.Funktionen_Freigeben(False) Me.dsempfaenger.AcceptChanges() Me.datachanged = False End If End Sub Private Sub MnuMainSave_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles MnuMainSave.Click Me.save_data() End Sub Private Sub MnuMainClose_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles MnuMainClose.Click Me.Close() End Sub #End Region #Region "Empfänger" Private Sub MnuMainImportEmpfaenger_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles MnuMainImportEmpfaenger.Click Me.Cursor = Cursors.WaitCursor Application.DoEvents() 'Rel 4.03 'Funktion im FrmTextmarken nicht verwenden, sonden UsedFelder aus dsempfaenger zwischen speicher und nach dem Import wieder dem DSEmpfaenger hinzufuegen Dim dtusedfelder As New DataTable() dtusedfelder = dsempfaenger.Tables("usedfelder") If Not Me.Import_Empfaenger Then Me.Cursor = Cursors.Default Exit Sub End If SetProgress(80, "Vorlagenfelder abgleichen", False) 'Dim f1 As New frmtextmarken(Me.Serienbriefnr, False, Me.dsempfaenger, doktyp.iDokumenttypnr.Value) 'Dim dtusedfelder As New DataTable() 'dtusedfelder = f1.init_used_felder() 'dtusedfelder.TableName = "UsedFelder" Me.dsempfaenger.Tables.Add(dtusedfelder.Copy) dtusedfelder.Dispose() 'f1.Dispose() If Me.doktyp.bSbedituser.Value = False Then SetProgress(90, "Vorlagenfelder abgleichen", False) Me.dsempfaenger.Tables.Add("VerkFelder") Dim d1 As New DataColumn() Dim d2 As New DataColumn() Dim d3 As New DataColumn() d1.Caption = "IDVWert" d1.ColumnName = "IDVWert" d1.DefaultValue = "" d2.Caption = "Standardwert" d2.ColumnName = "Standardwert" d2.DefaultValue = "" d3.Caption = "Vorlagenfeldnr" d3.ColumnName = "Vorlagenfeldnr" d3.DefaultValue = "" With Me.dsempfaenger.Tables("Verkfelder").Columns .Add(d1) .Add(d2) .Add(d3) End With Dim dv As DataRow For Each dv In Me.dsempfaenger.Tables(0).Rows dv.Item("Dokumentid") = "" dv.Item("Dokumentidbdr") = "" Next End If SetProgress(100, "Datenimport beendet", False) SetProgress(100, "Datenimport beendet", True) Dim i As Integer i = dsempfaenger.Tables(0).Rows.Count Dim x As Decimal Dim pvalue As Double = 0 If i > 0 Then x = 100 / i Else x = 1 Dim p As New edokadb.clsPartner Dim dt As New DataTable Try SetProgress(0, "Partner-Kurzname ergänzen", False) p.cpMainConnectionProvider = Globals.conn For Each dr As DataRow In dsempfaenger.Tables(0).Rows pvalue = pvalue + x If pvalue < 100 Then SetProgress(pvalue, "Partner-Kurzname ergänzen", False) If dr.Item("Kurzbezeichnung").ToString = "" Then dt.Rows.Clear() p.iNRPAR00 = New SqlInt32(CType(dr.Item("partnernr"), Int32)) dt = p.SelectOne If dt.Rows.Count > 0 Then dr.Item("Kurzbezeichnung") = p.sBKPAR00.ToString End If Next SetProgress(pvalue, "Partner-Kurzname ergänzen", True) p.Dispose() dt.Dispose() Catch ex As Exception SetProgress(pvalue, "Partner-Kurzname ergänzen", True) p.Dispose() dt.Dispose() End Try Me.Cursor = Cursors.Default Application.DoEvents() Me.Load_Layout() Me.mnuc2partnerlistepruefen_Click(sender, e) End Sub Private Sub MnuMainExportEmpfaenger_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles MnuMainExportEmpfaenger.Click Me.Export_Empfaenger() End Sub Private Sub MnuMainEDOKAPartnerErfassen_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles MnuMainEDOKAPartnerErfassen.Click Me.mnusaveasedokapartner_Click(sender, e) End Sub Private Sub MnuMainEmpfaengerBearbeiten_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles MnuMainEmpfaengerBearbeiten.Click Dim f As New frmsbpartnerdetail(False, Me.dsempfaenger.Tables(0), Me.empflist.Columns("partnernr").Text) f.txtAnrede.Text = Me.empflist.Columns("Anrede").Text f.txtname.Text = Me.empflist.Columns("Name").Text f.txtvorname.Text = Me.empflist.Columns("Vorname").Text f.txtstrasse.Text = Me.empflist.Columns("Strasse").Text f.txtnrpar00.Text = Me.empflist.Columns("Partnernr").Text f.txtanrede1.Text = Me.empflist.Columns("Briefanrede1").Text f.txtanrede2.Text = Me.empflist.Columns("Briefanrede2").Text f.txtplz.Text = Me.empflist.Columns("plz").Text f.txtort.Text = Me.empflist.Columns("Ort").Text f.txtzustelladresse.Text = Me.empflist.Columns("Zustelladresse").Text f.txtkurzbezeichnung.Text = Me.empflist.Columns("Kurzbezeichnung").Text Dim dt As New DataTable() dt = Me.get_idvwerte Dim i As Integer For i = 0 To dt.Rows.Count - 1 dt.Rows(i).Item(1) = Me.empflist.Columns(dt.Rows(i).Item(0)).Text Next f.WertList.DataSource = dt f.WertList.DataMember = dt.TableName f.ShowDialog() If f.DialogResult = DialogResult.OK Then For i = 0 To Me.empflist.Columns.Count - 1 Me.empflist.Columns(i).Text = "" Next Me.empflist.Columns("Partnernr").Text = f.txtnrpar00.Text Me.empflist.Columns("Anrede").Text = f.txtAnrede.Text Me.empflist.Columns("Kurzbezeichnung").Text = f.txtkurzbezeichnung.Text Me.empflist.Columns("Name").Text = f.txtname.Text Me.empflist.Columns("Vorname").Text = f.txtvorname.Text Me.empflist.Columns("Strasse").Text = f.txtstrasse.Text Me.empflist.Columns("PLZ").Text = f.txtplz.Text Me.empflist.Columns("Ort").Text = f.txtort.Text Me.empflist.Columns("Zustelladresse").Text = f.txtzustelladresse.Text Me.empflist.Columns("BriefAnrede1").Text = f.txtanrede1.Text Me.empflist.Columns("BriefAnrede2").Text = f.txtanrede2.Text Me.empflist.Columns("Status").Text = 0 For i = 0 To dt.Rows.Count - 1 Me.empflist.Columns(dt.Rows(i).Item(0)).text = dt.Rows(i).Item(1) Next Me.empflist.UpdateData() End If For i = 0 To dt.Rows.Count - 1 Me.empflist.Columns(dt.Rows(i).Item(0)).text = dt.Rows(i).Item(1) Next Me.empflist.UpdateData() Me.empflist.AllowAddNew = False Me.Generate_Tree() End Sub Private Sub MnuMainEmfpaengerLoeschen_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles MnuMainEmfpaengerLoeschen.Click MnuDeleteEmpfaenger_Click(sender, e) End Sub Private Sub MnuMainLoadPartnerliste_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles MnuMainLoadPartnerliste.Click Dim f As New frmPartnerlisteLaden() Dim tmpds As New DataSet() f.ShowDialog() If f.DialogResult = DialogResult.OK Then Dim savedt As New DataTable() Dim savedt1 As New DataTable() savedt = Me.dsempfaenger.Tables(0).Copy Me.dsempfaenger.Tables.Clear() Dim s As String s = f.Load_Partnerlist If s <> "" Then Me.dsempfaenger.ReadXml(s) End If If Check_Importtable(Me.dsempfaenger.Tables(0)) = True Then create_supporttable() End If If savedt.Rows.Count > 0 Then 'If Me.NeuerSB = True Then ' Me.NeuerSB = False 'Else savedt1 = Me.dsempfaenger.Tables(0).Copy Me.dsempfaenger.Tables.Clear() Me.dsempfaenger.Tables.Add(savedt.Copy) savedt.Dispose() Dim r1 As Integer Dim c1 As Integer Dim dr As DataRow Dim inserted As Boolean For r1 = 0 To savedt1.Rows.Count - 1 dr = Me.dsempfaenger.Tables(0).NewRow inserted = False Try For c1 = 0 To savedt1.Columns.Count - 1 dr.Item(savedt1.Columns(c1).ColumnName) = savedt1.Rows(r1).Item(c1) inserted = True Next Catch End Try Try If inserted Then Me.dsempfaenger.Tables(0).Rows.Add(dr) Catch End Try Next ' End If End If Me.empflist.DataMember = Nothing Me.empflist.DataSource = Nothing Try Me.empflist.DataSource = Me.dsempfaenger.Tables(0) Me.empflist.DataMember = Me.dsempfaenger.Tables(0).TableName Catch End Try SetProgress(40, "Layout erstellen", False) Create_Layout() SetProgress(60, "Felder prüfen", False) check_vorlagenfelder() Dim i As Integer Dim i1 As Integer For i = 0 To Me.dsempfaenger.Tables(0).Rows.Count - 1 For i1 = 0 To Me.dsempfaenger.Tables(0).Columns.Count - 1 If Me.dsempfaenger.Tables(0).Rows(i).Item(i1) Is System.DBNull.Value Then Me.dsempfaenger.Tables(0).Rows(i).Item(i1) = "" End If Next Next 'Me.NeuerSB = False Dim f1 As New frmtextmarken(Me.Serienbriefnr, False, Me.dsempfaenger, doktyp.iDokumenttypnr.Value) Dim dtusedfelder As New DataTable() dtusedfelder = f1.init_used_felder() dtusedfelder.TableName = "UsedFelder" Me.dsempfaenger.Tables.Add(dtusedfelder.Copy) dtusedfelder.Dispose() f1.Dispose() If Me.doktyp.bSbedituser.Value = False Then SetProgress(90, "Vorlagenfelder abgleichen", False) Me.dsempfaenger.Tables.Add("VerkFelder") Dim d1 As New DataColumn() Dim d2 As New DataColumn() Dim d3 As New DataColumn() d1.Caption = "IDVWert" d1.ColumnName = "IDVWert" d1.DefaultValue = "" d2.Caption = "Standardwert" d2.ColumnName = "Standardwert" d2.DefaultValue = "" d3.Caption = "Vorlagenfeldnr" d3.ColumnName = "Vorlagenfeldnr" d3.DefaultValue = "" With Me.dsempfaenger.Tables("Verkfelder").Columns .Add(d1) .Add(d2) .Add(d3) End With Dim dv As DataRow For Each dv In Me.dsempfaenger.Tables(0).Rows dv.Item("Dokumentid") = "" dv.Item("Dokumentidbdr") = "" Next End If SetProgress(100, "Datenimport beendet", False) SetProgress(100, "Datenimport beendet", True) Me.Cursor = Cursors.Default Application.DoEvents() Me.empflist.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.Extended Me.Generate_Tree() End If f.Dispose() Me.mnuc2partnerlistepruefen_Click(sender, e) End Sub Private Sub MnuMainSaveAsPartnerlist_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles MnuMainSaveAsPartnerlist.Click Dim f As New frmPartnerlisteSpeichern(Me.dsempfaenger.Tables(0)) f.ShowDialog() End Sub #End Region #Region "Individuelle Dokumentwerte" Private Sub MnuMainAddColumn_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles MnuMainAddColumn.Click If Me.dsempfaenger.Tables(0).Rows.Count = 0 Then MyMsg.show_standardmessage(730, MsgBoxStyle.Information) Exit Sub End If Dim s As String s = InputBox("Bitte geben Sie den Namen der neuen Spalte ein.", "") If s <> "" Then s = Check_Columnname(s) If s = "#Error#" Then MyMsg.show_standardmessage(729, MsgBoxStyle.Critical) Exit Sub End If Dim i As Integer For i = 0 To Me.dsempfaenger.Tables(0).Columns.Count - 1 If Me.dsempfaenger.Tables(0).Columns(i).Caption = s Then MyMsg.show_standardmessage(704, MsgBoxStyle.Critical) Exit Sub End If Next Me.dsempfaenger.Tables(0).Columns.Add(s) ' Me.dsempfaenger.Tables(0).Columns(Me.dsempfaenger.Tables(0).Columns.Count - 1).DefaultValue = "0" Me.dsempfaenger.Tables(0).Rows(0).Item(Me.dsempfaenger.Tables(0).Columns.Count - 1) = "" Me.empflist.DataMember = Nothing Me.empflist.DataSource = Nothing Me.empflist.DataSource = Me.dsempfaenger.Tables(0) Me.empflist.DataMember = Me.dsempfaenger.Tables(0).TableName Me.dsempfaenger.Tables(1).Columns.Add(s) Me.dsempfaenger.Tables(1).Rows(0).Item(s) = 0 Me.Create_Layout() Me.Save_Layout() End If End Sub Private Sub MnuMainDeleteColumn_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles MnuMainDeleteColumn.Click mnuidwspalteentfernen_Click(sender, e) End Sub Private Sub MnuMainRenameColumn_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles MnuMainRenameColumn.Click mnuidvspalteumbenennen_Click(sender, e) End Sub Private Sub MnuMainSpaltenselektion_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles MnuMainSpaltenselektion.Click MnuSpaltenSelektion_Click(sender, e) End Sub #End Region #End Region Private Sub MnuMainAbschluss_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles MnuMainAbschluss.Click If MyMsg.Show_MessageYesNo(712) = MsgBoxResult.Yes Then Try Me.Cursor = Cursors.WaitCursor MnuMainDokumenteBestaetigen_Click(sender, e) Me.save_data() serienbrief_abschliessen() Load_Serienbrief(Me.Serienbriefnr) Me.Funktionen_Freigeben(False) Me.Generate_Tree() Catch Finally Me.Cursor = Cursors.Default End Try End If End Sub Private Sub MnuMainDokumenteDrucken_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles MnuMainDokumenteDrucken.Click If MyMsg.Show_MessageYesNo(719) <> MsgBoxResult.Yes Then Exit Sub End If Me.save_data() Dim f As New frmsbdruck(Me.Serienbriefnr) f.ShowDialog() If f.datasaved = True Then Me.Load_Serienbrief(Me.Serienbriefnr) End If End Sub Private Sub MnuMainDokumenteBestaetigen_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles MnuMainDokumenteBestaetigen.Click Me.Cursor = Cursors.WaitCursor Application.DoEvents() Dim i As Integer For i = 0 To Me.dsempfaenger.Tables(0).Rows.Count - 1 Try If Me.dsempfaenger.Tables(0).Rows(i).Item("STATUS") = 2 Or Me.dsempfaenger.Tables(0).Rows(i).Item("STATUS") = 3 Then Me.dsempfaenger.Tables(0).Rows(i).Item("Dokument_Gedruckt") = 1 Me.dsempfaenger.Tables(0).Rows(i).Item("STATUS") = 4 End If Catch End Try Next Cursor = Cursors.Default Application.DoEvents() End Sub Private Sub mnuctErstellungWiederholen_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles mnuctErstellungWiederholen.Click 'Rel 4.03 5: Funktion separiert, damit diese aus dem Contextmenu wie aus der Toolbar heraus aufgerufen werden kann Dokumenterstellung_Wiederholen() End Sub Private Sub Dokumenterstellung_Wiederholen() 'Rel 4.03 5: Funktion separiert, damit diese aus dem Contextmenu wie aus der Toolbar heraus aufgerufen werden kann Dim i As Integer Dim c1row As Object Dim pstep As Double Dim pcount As Integer Dim pval As Double = 0 Dim versandt As Boolean 'xxx If Me.TVStatus.SelectedNode.Tag = 2 Or Me.TVStatus.SelectedNode.Tag = 3 Or Me.TVStatus.SelectedNode.Tag = 4 Then Dim msgres As MsgBoxResult msgres = MyMsg.Show_MessageYesNoCancel(735) If msgres = MsgBoxResult.Cancel Then Exit Sub If msgres = MsgBoxResult.Yes Then versandt = True If msgres = MsgBoxResult.No Then versandt = False Else versandt = False End If If Me.empflist.SelectedRows.Count > 0 Then Me.empflist.BeginInit() pcount = Me.empflist.SelectedRows.Count pstep = 100 / Me.empflist.SelectedRows.Count SetProgress(pval, "Empfänger bearbeiten (" + pcount.ToString + ")", False) Dim s As String s = Me.empflist.Columns("Status").FilterText Me.empflist.Columns("Status").FilterText = "" For i = 0 To Me.empflist.SelectedRows.Count - 1 Me.empflist.Row = Me.empflist.SelectedRows(i) Me.empflist.Bookmark = Me.empflist.SelectedRows(i) If Me.empflist.Columns("Dokumentid").Value <> "" Then Check_Archiviert(Me.empflist.Columns("Dokumentid").Value, versandt) Me.empflist.Columns("Dokumentid").Value = "" Me.empflist.Columns("Dokumentidbdr").Value = "" Me.empflist.Columns("Dokument_Gedruckt").Value = "" Me.empflist.Columns("Status").Value = 0 Else Me.empflist.Columns("Dokumentid").Value = "" Me.empflist.Columns("Dokumentidbdr").Value = "" Me.empflist.Columns("Dokument_Gedruckt").Value = "" Me.empflist.Columns("Status").Value = 0 End If 'Me.empflist.Columns("Dokumentid").Value = "" 'Me.empflist.Columns("Dokumentidbdr").Value = "" 'Me.empflist.Columns("Dokument_Gedruckt").Value = "" 'Me.empflist.Columns("Status").Value = 0 pval = pval + pstep pcount = pcount - 1 SetProgress(pval, "Empfänger bearbeiten (" + pcount.ToString + ")", False) Next Me.empflist.UpdateData() Me.empflist.Columns("Status").FilterText = s SetProgress(pval, "Empfänger bearbeiten(0)", True) Me.empflist.EndInit() Else If Me.empflist.Columns("Dokumentid").Value <> "" Then Check_Archiviert(Me.empflist.Columns("Dokumentid").Value, versandt) Me.empflist.Columns("Dokumentid").Value = "" Me.empflist.Columns("Dokumentidbdr").Value = "" Me.empflist.Columns("Dokument_Gedruckt").Value = "" Me.empflist.Columns("Status").Value = 0 Else Me.empflist.Columns("Dokumentid").Value = "" Me.empflist.Columns("Dokumentidbdr").Value = "" Me.empflist.Columns("Dokument_Gedruckt").Value = "" Me.empflist.Columns("Status").Value = 0 End If 'Me.empflist.Columns("Dokumentid").Value = "" 'Me.empflist.Columns("Dokumentidbdr").Value = "" 'Me.empflist.Columns("Dokument_Gedruckt").Value = "" 'Me.empflist.Columns("Status").Value = "0" 'Me.empflist.UpdateData() End If Me.save_data() Me.Generate_Tree() Me.datachanged = False Me.Cursor = Cursors.Default End Sub Private Sub MnuMainVorlageImportieren_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles MnuMainVorlageImportieren.Click Me.OpenFileDialog1.Filter = "Word-Dateien (*.doc)|*.doc|Alle Dateien (*.*)|*.*" Me.OpenFileDialog1.ShowDialog() Dim dt As New DataTable() If Me.OpenFileDialog1.FileName <> "" Then Me.Vorlage_Speichern(Me.OpenFileDialog1.FileName) End If End Sub Private Sub MnuMainVorageBearbeiten_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles MnuMainVorageBearbeiten.Click Me.Cursor = Cursors.WaitCursor Application.DoEvents() Dim bearbeitung As Boolean = False If Globals.MitarbeiterNr = doktyp.iOwner.Value Then bearbeitung = True Else bearbeitung = Me.doktyp.bSbedituser.Value End If If bearbeitung = False Then MyMsg.show_standardmessage(724, MsgBoxStyle.Information) End If 'Rel 4.1 Daten zusammentragen 'GenerierteDokumente.Clear() 'Me.empflist.BeginInit() 'Me.Vorschau_Erstellen(True) 'Me.empflist.EndInit() 'Dim f As New frmtextmarken(Me.Serienbriefnr, bearbeitung, Me.dsempfaenger, Dokumenttypnr, Me.vorlagendaten, Me.tmpempfaenger) 'Me.Cursor = Cursors.Default 'Application.DoEvents() 'f.Show() If Me.empflist.Splits(0).Rows.Count > 0 Then fTextMarken = New frmtextmarken(Me.Serienbriefnr, bearbeitung, Me.dsempfaenger, Dokumenttypnr, Nothing, Nothing, True) 'Dim f As New frmtextmarken(Me.Serienbriefnr, bearbeitung, Me.dsempfaenger, Dokumenttypnr, Nothing, Nothing, True) Me.Cursor = Cursors.Default Application.DoEvents() fTextMarken.Show() Else fTextMarken = New frmtextmarken(Me.Serienbriefnr, bearbeitung, Me.dsempfaenger, Dokumenttypnr, Nothing, Nothing, False) 'Dim f As New frmtextmarken(Me.Serienbriefnr, bearbeitung, Me.dsempfaenger, Dokumenttypnr, Nothing, Nothing, False) Me.Cursor = Cursors.Default Application.DoEvents() fTextMarken.Show() End If 'Ende Rel 4.1 Daten zusammentragen End Sub Private Sub MnuDeleteEmpfaenger_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuDeleteEmpfaenger.Click Try Dim i As Integer Dim c1row As Object Dim pstep As Double Dim pcount As Integer Dim pval As Double = 0 Dim versandt As Boolean If Me.TVStatus.SelectedNode.Tag = 2 Or Me.TVStatus.SelectedNode.Tag = 3 Or Me.TVStatus.SelectedNode.Tag = 4 Then Dim msgres As MsgBoxResult msgres = MyMsg.Show_MessageYesNoCancel(735) If msgres = MsgBoxResult.Cancel Then Exit Sub If msgres = MsgBoxResult.Yes Then versandt = True If msgres = MsgBoxResult.No Then versandt = False Else versandt = False End If If Me.empflist.SelectedRows.Count > 0 Then Me.empflist.BeginInit() pcount = Me.empflist.SelectedRows.Count pstep = 100 / Me.empflist.SelectedRows.Count For i = Me.empflist.SelectedRows.Count - 1 To -1 Step -1 Me.empflist.Bookmark = Me.empflist.SelectedRows(i) 'Löschung If Me.empflist.Columns("Dokumentid").Value <> "" Then Check_Archiviert(Me.empflist.Columns("Dokumentid").Value, versandt) Me.empflist.Delete() Else Me.empflist.Delete() End If pval = pval + pstep pcount = pcount - 1 SetProgress(pval, "Empfänger löschen (" + pcount.ToString + ")", False) Next Me.empflist.SelectedRows.Clear() Dim s As String s = Me.empflist.Columns("Status").FilterText 'Me.empflist.Columns("Status").FilterText = "" 'SetProgress(pval, "Empfänger löschen (" + pcount.ToString + ")", False) ' Dim i As Integer 'While Me.empflist.SelectedRows.Count > 0 ' xd = Me.empflist.SelectedRows(Me.empflist.SelectedRows.Count - 1) ' MsgBox(xd.Item(0)) ' delrow(Me.empflist.SelectedRows(Me.empflist.SelectedRows.Count - 1)) ' pval = pval + pstep ' pcount = pcount - 1 ' SetProgress(pval, "Empfänger löschen (" + pcount.ToString + ")", False) 'End While Me.empflist.UpdateData() SetProgress(pval, "Empfänger löschen (0)", True) Me.empflist.Columns("Status").FilterText = s Me.empflist.EndInit() Else If Me.empflist.Columns("Dokumentid").Value <> "" Then Check_Archiviert(Me.empflist.Columns("Dokumentid").Value, versandt) Me.empflist.Delete() Else Me.empflist.Delete() End If Me.empflist.UpdateData() End If Me.save_data() Me.Generate_Tree() Me.datachanged = False Catch Finally Me.dsempfaenger.AcceptChanges() Me.Generate_Tree() Me.Cursor = Cursors.Default End Try End Sub Private Function Check_Archiviert(ByVal dokumentid As String, ByVal DOKUMENTVERSANDT As Boolean) Dim i As Integer Dim Versandt As Boolean Dim status As String i = ist_archiviert(dokumentid) '0 : Dokument ist nicht archiviert '1 : Dokument ist archiviert und noch nicht abgeschlossen '2 : Dokument ist abgeschlossen : - Keine Aktion bei abgeschlossenen Dokumenten If i <> 0 And i <> 1 Then Exit Function If Versandt = 1 Then status = "Alt" Else status = "ungültig" 'Löschung des Dokumentes durchführen Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.SP_Dokument_delete" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection conn.OpenConnection() Try scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiter", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@loeschgrund", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "Serienbrief-Löschung:" + Globals.MitarbeiterNr.ToString + ":" + Now.ToString)) scmCmdToExecute.ExecuteNonQuery() Catch ex As Exception Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() conn.CloseConnection(True) If i = 1 Then Dim scmCmdToExecute1 As SqlCommand = New SqlCommand() scmCmdToExecute1.CommandText = "dbo.SP_Dokument_updateinaktversant" scmCmdToExecute1.CommandType = CommandType.StoredProcedure scmCmdToExecute1.Connection = conn.scoDBConnection conn.OpenConnection() Try scmCmdToExecute1.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) scmCmdToExecute1.Parameters.Add(New SqlParameter("@mitarbeiter", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute1.ExecuteNonQuery() Catch ex As Exception Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute1.Dispose() conn.CloseConnection(True) End Try 'Ende Dim dt As DataTable Dim sth As New Statushandling() dt = sth.get_coldindex_and_statusnr(dokumentid, False, False) Archivfnkt.insert_coldupdate_status(dt, dokumentid, status) sth.Dispose() End If End Try End Function Private Function ist_archiviert(ByVal dokumentid As String) As Integer Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim i As Integer Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.sp_edex_dokument_bereits_archiviert" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@istarchiviert", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bdrarchiviert", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) ' EDEX Banklagernd scmCmdToExecute.Parameters.Add(New SqlParameter("@blarchiviert", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.Parameters.Add(New SqlParameter("@bldelete", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1)) sdaAdapter.Fill(dtToReturn) i = scmCmdToExecute.Parameters.Item("@istarchiviert").Value Return i Catch ex As Exception 'MsgBox(ex.Message) ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function Private Sub MenuEmpfaenger_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuEmpfaenger.Popup If Me.dsempfaenger.Tables(0).Rows.Count = 0 Then Me.MnuEditEmpfaenger.Enabled = False Me.MnuDeleteEmpfaenger.Enabled = False Me.mnusaveasedokapartner.Enabled = False Else Me.MnuEditEmpfaenger.Enabled = True Me.MnuDeleteEmpfaenger.Enabled = True Me.mnusaveasedokapartner.Enabled = True End If End Sub Private Sub MnuEditEmpfaenger_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuEditEmpfaenger.Click Dim f As New frmsbpartnerdetail(False, Me.dsempfaenger.Tables(0), Me.empflist.Columns("partnernr").Text) f.txtAnrede.Text = Me.empflist.Columns("Anrede").Text f.txtname.Text = Me.empflist.Columns("Name").Text f.txtvorname.Text = Me.empflist.Columns("Vorname").Text f.txtstrasse.Text = Me.empflist.Columns("Strasse").Text f.txtnrpar00.Text = Me.empflist.Columns("Partnernr").Text f.txtanrede1.Text = Me.empflist.Columns("Briefanrede1").Text f.txtanrede2.Text = Me.empflist.Columns("Briefanrede2").Text f.txtplz.Text = Me.empflist.Columns("PLZ").Text f.txtort.Text = Me.empflist.Columns("Ort").Text f.txtzustelladresse.Text = Me.empflist.Columns("Zustelladresse").Text f.txtkurzbezeichnung.Text = Me.empflist.Columns("Kurzbezeichnung").Text Dim dt As New DataTable() dt = Me.get_idvwerte Dim i As Integer For i = 0 To dt.Rows.Count - 1 dt.Rows(i).Item(1) = Me.empflist.Columns(dt.Rows(i).Item(0)).Text Next f.WertList.DataSource = dt f.WertList.DataMember = dt.TableName f.ShowDialog() If f.DialogResult = DialogResult.OK Then For i = 0 To Me.empflist.Columns.Count - 1 Me.empflist.Columns(i).Text = "" Next Me.empflist.Columns("Partnernr").Text = f.txtnrpar00.Text Me.empflist.Columns("Anrede").Text = f.txtAnrede.Text Me.empflist.Columns("Kurzbezeichnung").Text = f.txtkurzbezeichnung.Text Me.empflist.Columns("Name").Text = f.txtname.Text Me.empflist.Columns("Vorname").Text = f.txtvorname.Text Me.empflist.Columns("Strasse").Text = f.txtstrasse.Text Me.empflist.Columns("PLZ").Text = f.txtplz.Text Me.empflist.Columns("Ort").Text = f.txtort.Text Me.empflist.Columns("Zustelladresse").Text = f.txtzustelladresse.Text Me.empflist.Columns("BriefAnrede1").Text = f.txtanrede1.Text Me.empflist.Columns("BriefAnrede2").Text = f.txtanrede2.Text Me.empflist.Columns("Status").Text = "0" For i = 0 To dt.Rows.Count - 1 Me.empflist.Columns(dt.Rows(i).Item(0)).text = dt.Rows(i).Item(1) Next Me.empflist.UpdateData() End If Me.empflist.AllowAddNew = False Me.Generate_Tree() End Sub #End Region Private Function delrow(ByVal c1row As Object) Try Me.empflist.Row = c1row Me.empflist.Delete() Catch End Try End Function Private Sub empflist_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles empflist.DoubleClick Try If Me.serienbrief.iStatus.Value <> 0 Then Exit Sub MnuEditEmpfaenger_Click(sender, e) Catch End Try End Sub Private Sub empflist_FetchRowStyle(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles empflist.FetchRowStyle Try Select Case empflist.Columns("Fehlercode").CellValue(e.Row) Case 9 e.CellStyle.ForeColor = Color.Blue 'Case 1 ' e.CellStyle.ForeColor = Color.Blue 'Case 2 ' e.CellStyle.ForeColor = Color.Green 'Case Else ' e.CellStyle.ForeColor = Color.Black End Select Catch End Try End Sub #Region "Utils" Public Sub Load_Printdialog() Dim f As New frmsbdruck(Me.Serienbriefnr) f.ShowDialog() End Sub Private Sub Funktionen_Freigeben(ByVal Freigabe As Boolean) Me.txtBezeichnung.Enabled = Freigabe Me.mcbverantwortlich.Enabled = Freigabe 'Me.empflist.AllowAddNew = Freigabe Me.empflist.AllowDelete = Freigabe Me.empflist.AllowUpdate = Freigabe Me.GroupBox1.Enabled = Freigabe Me.GroupBox2.Enabled = Freigabe Me.GroupBox3.Enabled = Freigabe Me.GroupBox5.Enabled = Freigabe Me.GroupBox8.Enabled = Freigabe Me.MnuMainDokument.Enabled = Freigabe Me.MnuMainEmpfaengerliste.Enabled = Freigabe Me.C1CommandMenu1.Enabled = Freigabe Me.MnuMainAbschluss.Enabled = Freigabe Me.MnuMainSave.Enabled = Freigabe Me.MnuMainSerienbriefLoeschen.Enabled = Freigabe Try If Me.doktyp.bSbimport.Value = True Then Me.MnuMainVorlageImportieren.Enabled = True Else Me.MnuMainVorlageImportieren.Enabled = False End If Catch End Try Dim i As Integer If Freigabe = False Then For i = 0 To Me.ToolBar1.Buttons.Count - 1 Me.ToolBar1.Buttons(i).Enabled = False Next Me.ToolBar1.Buttons(0).Enabled = True Me.ToolBar1.Buttons(1).Enabled = True Me.ToolBar1.Buttons(2).Enabled = True Else For i = 0 To Me.ToolBar1.Buttons.Count - 1 Me.ToolBar1.Buttons(i).Enabled = True Next End If End Sub Private Sub SetProgress(ByVal wert As Integer, ByVal txt As String, ByVal hidedialog As Boolean) 'Me.progress.Width = Me.Panel1.Width If hidedialog Then progress.Hide() progressvisible = False Exit Sub End If If Me.progressvisible = False Then Try progress.Show() Catch End Try progress.Visible = True End If If wert + 1 > 100 Then wert = 99 progress.Bar1.Value = wert + 1 progress.info.Text = txt progress.Refresh() End Sub #End Region #Region "Vorschau" Dim clsempf As clsEmpfaengerdata Dim vorlagendaten As New DataTable() Dim officevorlage As New edokadb.clsOffice_vorlage() Dim objword As Microsoft.Office.Interop.Word.Application Dim beginntextmarke As String Dim endetextmarke As String Dim feldname As String Dim dokid As String Dim blkunde As String = "" Dim GenerierteDokumente As New Collection() Private Sub Vorschau_Erstellen(Optional ByVal Edit_Vorlage As Boolean = False) SetProgress(10, "Verarbeitung initialisieren", False) Dim saveempfaenger As New DataSet() Dim TMPDT As New DataTable() Dim i, i1 As Integer saveempfaenger = Me.dsempfaenger.Copy Dim dt As New DataTable() dt = Me.dsempfaenger.Tables(0).Copy dt.Rows.Clear() Dim rowval As DataRow If Me.empflist.SelectedRows.Count > 0 Then For i = 0 To Me.empflist.SelectedRows.Count - 1 rowval = dt.NewRow For i1 = 0 To Me.empflist.Columns.Count - 1 Me.empflist.Row = Me.empflist.SelectedRows(i) rowval(i1) = Me.empflist.Columns(i1).Value Next dt.Rows.Add(rowval) Next Else rowval = dt.NewRow For i1 = 0 To Me.empflist.Columns.Count - 1 Try rowval(i1) = Me.empflist.Columns(i1).Value Catch End Try Next dt.Rows.Add(rowval) End If Dim cm As CurrencyManager Me.dsempfaenger.Tables(0).Rows.Clear() For i = 0 To dt.Rows.Count - 1 Try Me.dsempfaenger.Tables(0).ImportRow(dt.Rows(i)) Catch ex As Exception Dim a As Integer = 1 End Try Next clsempf = New clsEmpfaengerdata(Me.dsempfaenger, Me.Serienbriefnr) ' Dim clsempf As New clsEmpfaengerdata(Me.dsempfaenger, Me.Serienbriefnr) SetProgress(10, "Daten zusammenstellen", False) vorlagendaten = clsempf.Vorlagendaten_aufbreiten() 'Rel. 4.1 If Edit_Vorlage = True Then Me.tmpempfaenger = dsempfaenger.Copy Me.dsempfaenger = saveempfaenger.Copy Me.empflist.DataSource = Nothing Me.empflist.DataMember = Nothing Me.empflist.DataSource = Me.dsempfaenger.Tables(0) Me.empflist.DataMember = Me.dsempfaenger.Tables(0).TableName Me.empflist.Refresh() Me.empflist.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.Extended Me.Load_Layout() Exit Sub End If 'Ende Rel. 4.1 SetProgress(20, "Vorlage auslesen", False) 'Rel Office 2010 Dim Dokumentname As String = "" Me.Vorlage_Auslesen(Me.Serienbriefnr, Dokumentname) SetProgress(30, "Dokumente generieren", False) Me.Dokumente_Generieren(Dokumentname) SetProgress(100, "Vorschau erstellt", True) Me.objword.Visible = True If objword.Documents.Count < 1 Then objword.Quit(SaveChanges:=False) End If Me.objword = Nothing Me.dsempfaenger = saveempfaenger.Copy Me.empflist.DataSource = Nothing Me.empflist.DataMember = Nothing Me.empflist.DataSource = Me.dsempfaenger.Tables(0) Me.empflist.DataMember = Me.dsempfaenger.Tables(0).TableName Me.empflist.Refresh() Me.empflist.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.Extended Me.Load_Layout() SetProgress(100, "Vorschau erstellt", True) clsempf = Nothing End Sub Private Function Vorlage_Auslesen(ByVal serienbriefnr As Integer, Optional ByRef DokName As String = "") As Boolean Try 'Rel. Office 2010 Dim Connection As New SqlConnection() Dim DA As New SqlDataAdapter("select * from edex_sb_vorlage where serienbriefnr=" + Str(serienbriefnr), Connection) Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA) Dim ds As New DataSet() Try Connection.ConnectionString = Globals.sConnectionString Connection.Open() DA.Fill(ds, "empf") Dim myRow As DataRow If ds.Tables(0).Rows.Count = 0 Then MyMsg.show_standardmessage(713, MsgBoxStyle.Critical) Else myRow = ds.Tables(0).Rows(0) 'Office Rel. 2010 Dim dokumentname = Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + serienbriefnr.ToString + "_vorlage" + myRow.Item(2).ToString DokName = dokumentname Dim MyData() As Byte MyData = myRow.Item(1) Dim K As Long K = UBound(MyData) Dim fs As New FileStream(dokumentname, FileMode.OpenOrCreate, FileAccess.Write) fs.Write(MyData, 0, K) fs.Close() fs = Nothing DokName = dokumentname End If Catch ex As Exception Return False End Try cb = Nothing ds = Nothing DA = Nothing Connection.Close() Connection = Nothing Return True Catch EX As Exception Return False End Try End Function Private Function Dokumente_Generieren(Optional ByVal dokname As String = "") Dim Kopfzeile As Boolean serienbrief.cpMainConnectionProvider = Globals.conn serienbrief.iSerienbriefnr = New SqlInt32(CType(Me.Serienbriefnr, Int32)) serienbrief.SelectOne() doktyp.cpMainConnectionProvider = Globals.conn doktyp.iDokumenttypnr = serienbrief.iDokumenttypnr doktyp.SelectOne() officevorlage.cpMainConnectionProvider = Globals.conn officevorlage.iOffice_vorlagenr = doktyp.iOffice_vorlagenr officevorlage.SelectOne() If officevorlage.bKopfzeile_generieren.Value = True Then Kopfzeile = True Else Kopfzeile = False End If serienbrief.Dispose() doktyp.Dispose() officevorlage.Dispose() objword = New Microsoft.Office.Interop.Word.Application() '20111106 - Delay Einbauen Application.DoEvents() Thread.Sleep(Globals.Office_2010_Word_Start_Delay) objword.WindowState = Microsoft.Office.Interop.Word.WdWindowState.wdWindowStateMinimize '20111106 - Delay Einbauen Application.DoEvents() Thread.Sleep(Globals.Office_2010_Word_Start_Delay) objword.Visible = False '20111106 - Delay Einbauen Application.DoEvents() Thread.Sleep(Globals.Office_2010_Word_Start_Delay) Dim i As Integer Dim i1 As Integer Dim pstep As Double Dim pval As Double Dim feldnr As String Try pstep = 70 / vorlagendaten.Rows.Count Catch pval = 30 End Try For i = 0 To vorlagendaten.Rows.Count - 1 Try pval = pval + pstep SetProgress(pval, "Dokumente generieren", False) 'Rel. 4.1 - Dokuname abhängig vom übergabeparameter füllen Dim dokumentname As String = "" If dokname = "" Then 'Rel. Office 2010 dokumentname = Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + Serienbriefnr.ToString + "_vorlage.docx" Else dokumentname = dokname End If objword.Documents.Open(dokumentname) '20111106 - Delay Einbauen Application.DoEvents() Thread.Sleep(Globals.Office_2010_Word_Start_Delay) objword.Visible = False '20111106 - Delay Einbauen Application.DoEvents() Thread.Sleep(Globals.Office_2010_Word_Start_Delay) objword.WindowState = Microsoft.Office.Interop.Word.WdWindowState.wdWindowStateMinimize If Kopfzeile Then Insert_Kopfzeile() End If Dim sp1 As String Dim sp2() As String '20111106 - Delay Einbauen Application.DoEvents() Thread.Sleep(Globals.Office_2010_Word_Start_Delay) For i1 = 0 To vorlagendaten.Columns.Count - 1 'If vorlagendaten.Columns(i1).ColumnName = "_Alter" Or vorlagendaten.Columns(i1).ColumnName = "Alter" Or vorlagendaten.Columns(i1).ColumnName = "Alter_" Then ' MsgBox("Gaga") 'End If 'If vorlagendaten.Columns(i1).ColumnName = "F_09_99" Then ' MsgBox("Hallo") 'End If Try sp1 = vorlagendaten.Columns(i1).ColumnName sp2 = sp1.Split("_09_") sp1 = sp2(0) + "_09_" + sp2(2) feldnr = sp2(1).ToString sp1 = sp1 Catch sp1 = vorlagendaten.Columns(i1).ColumnName feldnr = sp1 End Try Select Case sp1 'Mapping Zustelladresse Case "F_09_1", "F_09_10" If vorlagendaten.Rows(i).Item("Zustelladresse") <> "" Then vorlagendaten.Rows(i).Item(i1) = vorlagendaten.Rows(i).Item("Zustelladresse") End If Case "F_09_89" If vorlagendaten.Rows(i).Item("Name") <> "" Then vorlagendaten.Rows(i).Item(i1) = vorlagendaten.Rows(i).Item("Name") End If Case "F_09_111" If vorlagendaten.Rows(i).Item("Vorname") <> "" Then vorlagendaten.Rows(i).Item(i1) = vorlagendaten.Rows(i).Item("Vorname") End If Case "F_09_122", "F_09_123", "F_09_20" Dim s As String = "" Dim s1 If vorlagendaten.Rows(i).Item("Briefanrede1") <> "" Then s = vorlagendaten.Rows(i).Item("Briefanrede1") If Microsoft.VisualBasic.Left(s, 4) = "Herr" Then s = "r " + s Else s = " " + s End If End If If vorlagendaten.Rows(i).Item("Briefanrede2") <> "" Then If s <> "" Then s = s + vbCrLf s1 = vorlagendaten.Rows(i).Item("Briefanrede2") If Microsoft.VisualBasic.Left(s1, 4) = "Herr" Then s = s + "Sehr geehrter " + s1 Else s = s + "Sehr geehrte " + s1 End If End If If s <> "" Then vorlagendaten.Rows(i).Item(i1) = s End If Case "F_09_98" If vorlagendaten.Rows(i).Item("Strasse") <> "" Then vorlagendaten.Rows(i).Item(i1) = vorlagendaten.Rows(i).Item("Strasse") End If Case "F_09_93" If vorlagendaten.Rows(i).Item("Ort") <> "" Then vorlagendaten.Rows(i).Item(i1) = vorlagendaten.Rows(i).Item("Ort") End If Case "F_09_93" If vorlagendaten.Rows(i).Item("Ort") <> "" Then vorlagendaten.Rows(i).Item(i1) = vorlagendaten.Rows(i).Item("Ort") End If Case "F_09_96" If vorlagendaten.Rows(i).Item("PLZ") <> "" Then vorlagendaten.Rows(i).Item(i1) = vorlagendaten.Rows(i).Item("PLZ") End If Case "F_09_132" If vorlagendaten.Rows(i).Item("PLZ") <> "" Or vorlagendaten.Rows(i).Item("Ort") <> 0 Then vorlagendaten.Rows(i).Item(i1) = vorlagendaten.Rows(i).Item("PLZ") + " " + vorlagendaten.Rows(i).Item("Ort") End If Case Else End Select 'Verknüpfte Felder Try Dim i2 As Integer For i2 = 0 To Me.dsempfaenger.Tables("VerkFelder").Rows.Count - 1 If feldnr = Me.dsempfaenger.Tables("verkfelder").Rows(i2).Item("Vorlagenfeldnr").ToString Then vorlagendaten.Rows(i).Item(i1) = vorlagendaten.Rows(i).Item(Me.dsempfaenger.Tables("verkfelder").Rows(i2).Item("IDVWert")) End If Next Catch End Try If vorlagendaten.Rows(i).Item(i1) Is System.DBNull.Value Then vorlagendaten.Rows(i).Item(i1) = "" End If If Microsoft.VisualBasic.Left(vorlagendaten.Columns(i1).ColumnName, 5) = "F_09_" Then Insert_Value(vorlagendaten.Rows(i).Item(i1), vorlagendaten.Columns(i1).ColumnName) End If If Microsoft.VisualBasic.Left(vorlagendaten.Columns(i1).ColumnName, 5) = "I_09_" Then Dim intfeldname As String Dim Intbookmark As String Dim IntWert As String intfeldname = vorlagendaten.Columns(i1).ColumnName Intbookmark = Microsoft.VisualBasic.Right(vorlagendaten.Columns(i1).ColumnName, Len(vorlagendaten.Columns(i1).ColumnName) - 5) IntWert = Microsoft.VisualBasic.Right(vorlagendaten.Columns(i1).ColumnName, Len(vorlagendaten.Columns(i1).ColumnName) - 14) Dim SplitArray() As String Dim ind As Integer ind = IntWert.IndexOf("_09_") IntWert = Microsoft.VisualBasic.Left(IntWert, ind) 'SplitArray = IntWert.Split("_09_") 'IntWert = SplitArray(0) 'IntWert = RenCol(IntWert) Insert_Value(vorlagendaten.Rows(i).Item(IntWert), Intbookmark) End If Next If doktyp.bZu_retournieren.Value = True Or vorlagendaten.Rows(i).Item("blkunde") = 1 Or vorlagendaten.Rows(i).Item("Dokumentidbdr") <> "" Then blkunde = vorlagendaten.Rows(i).Item("blkunde") If vorlagendaten.Rows(i).Item("Dokumentidbdr") <> "" Then dokid = vorlagendaten.Rows(i).Item("Dokumentidbdr") Else dokid = vorlagendaten.Rows(i).Item("Dokumentid") End If Generate_Barcodes() blkunde = "" End If Dim dm As String 'Rel. Office 2010 Dim extension As String = System.IO.Path.GetExtension(dokumentname) dm = Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + Serienbriefnr.ToString + "_vorlage_" + i.ToString + extension '20111106 - Delay Einbauen Application.DoEvents() Thread.Sleep(Globals.Office_2010_Word_Start_Delay) Set_Region() '20111106 - Delay Einbauen Application.DoEvents() Thread.Sleep(Globals.Office_2010_Word_Start_Delay) Insert_Wasserzeichen() '20111106 - Delay Einbauen Application.DoEvents() Thread.Sleep(Globals.Office_2010_Word_Start_Delay) objword.ActiveDocument.SaveAs(dm) Me.GenerierteDokumente.Add(dm) '20111106 - Delay Einbauen Application.DoEvents() Thread.Sleep(Globals.Office_2010_Word_Start_Delay) objword.Documents.Close(SaveChanges:=False) '20111106 - Delay Einbauen Application.DoEvents() Thread.Sleep(Globals.Office_2010_Word_Start_Delay) Catch ex As Exception MsgBox(ex.Message) vorlagendaten.Rows(i).Item("Status") = -1 End Try Next End Function Private Function Insert_Wasserzeichen() Try If objword.ActiveWindow.View.SplitSpecial = Microsoft.Office.Interop.Word.WdSpecialPane.wdPaneNone Then objword.ActiveWindow.ActivePane.View.Type = Microsoft.Office.Interop.Word.WdViewType.wdPrintView Else objword.ActiveWindow.View.Type = Microsoft.Office.Interop.Word.WdViewType.wdPrintView End If new_wasserzeichen() Exit Function Me.Insert_TextFelder_Wasserzeichen() ins_wasserzeichen() Catch End Try End Function Function new_wasserzeichen() Dim r As Integer Dim g As Integer Dim b As Integer Try Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "SP_EDEX_GET_RGB" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.Connection = conn.scoDBConnection sdaAdapter.Fill(dtToReturn) scmCmdToExecute.Dispose() sdaAdapter.Dispose() r = dtToReturn.Rows(0).Item(0) g = dtToReturn.Rows(0).Item(1) b = dtToReturn.Rows(0).Item(2) dtToReturn.Dispose() scmCmdToExecute.Dispose() Catch r = 192 g = 192 b = 192 End Try objword.Selection.HomeKey(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdStory) objword.ActiveWindow.ActivePane.View.SeekView = Microsoft.Office.Interop.Word.WdSeekView.wdSeekCurrentPageHeader objword.ActiveWindow.ActivePane.View.SeekView = Microsoft.Office.Interop.Word.WdSeekView.wdSeekCurrentPageHeader objword.Selection.HeaderFooter.Shapes.AddTextEffect(Microsoft.Office.Core.MsoPresetTextEffect.msoTextEffect1, "Vorschau", "Arial", 1, False, False, 0, 0).Select() objword.Selection.ShapeRange.Name = "PowerPlusWaterMarkObject1" objword.Selection.ShapeRange.TextEffect.NormalizedHeight = False objword.Selection.ShapeRange.Line.Visible = False objword.Selection.ShapeRange.Fill.Visible = True objword.Selection.ShapeRange.Fill.Solid() objword.Selection.ShapeRange.Fill.ForeColor.RGB = RGB(r, g, b) ' objword.Selection.ShapeRange.Fill.ForeColor.RGB = RGB(192, 192, 192) objword.Selection.ShapeRange.Fill.Transparency = 0.5 objword.Selection.ShapeRange.Rotation = 315 objword.Selection.ShapeRange.LockAspectRatio = True objword.Selection.ShapeRange.Height = objword.CentimetersToPoints(4.51) objword.Selection.ShapeRange.Width = objword.CentimetersToPoints(18.05) objword.Selection.ShapeRange.WrapFormat.AllowOverlap = True objword.Selection.ShapeRange.WrapFormat.Side = Microsoft.Office.Interop.Word.WdWrapSideType.wdWrapBoth objword.Selection.ShapeRange.WrapFormat.Type = 3 objword.Selection.ShapeRange.RelativeHorizontalPosition = Microsoft.Office.Interop.Word.WdRelativeHorizontalPosition.wdRelativeHorizontalPositionMargin objword.Selection.ShapeRange.RelativeVerticalPosition = Microsoft.Office.Interop.Word.WdRelativeVerticalPosition.wdRelativeVerticalPositionMargin 'objword.Selection.ShapeRange.Left = Microsoft.Office.Interop.Word.WdShapePosition.wdShapeCenter 'objword.Selection.ShapeRange.Top = Microsoft.Office.Interop.Word.WdShapePosition.wdShapeCenter objword.Selection.ShapeRange.Left = objword.CentimetersToPoints(-1) objword.Selection.ShapeRange.Top = objword.CentimetersToPoints(7) objword.ActiveWindow.ActivePane.View.SeekView = Microsoft.Office.Interop.Word.WdSeekView.wdSeekMainDocument End Function Private Sub Insert_TextFelder_Wasserzeichen() Dim xname As String Dim i As Integer Dim pages As Long Dim prop As Object pages = objword.ActiveDocument.BuiltInDocumentProperties("NUMBER OF PAGES").value Wasserzeicheni = 1 objword.Selection.HomeKey(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdStory) For i = 1 To pages xname = Str(i) If Microsoft.VisualBasic.Left(xname, 1) = " " Then xname = Microsoft.VisualBasic.Right(xname, Len(xname) - 1) objword.Selection.GoTo(What:=Microsoft.Office.Interop.Word.WdGoToItem.wdGoToPage, Name:=xname) insert_Textfield_Wasserzeichen() objword.ActiveWindow.ActivePane.View.SeekView = Microsoft.Office.Interop.Word.WdSeekView.wdSeekMainDocument Next i End Sub Private Sub insert_Textfield_Wasserzeichen() Dim Public_barcodeleft Dim Public_barcodetop Dim Public_barcodewidth# Dim Public_barcodeheight Try Public_barcodeleft = objword.CentimetersToPoints(1) Public_barcodetop = objword.CentimetersToPoints(3) Public_barcodewidth = objword.CentimetersToPoints(20) Public_barcodeheight = objword.CentimetersToPoints(5) HeaderFooterAnzeigen() objword.Selection.HeaderFooter.Shapes.AddTextbox(1, Public_barcodeleft, Public_barcodetop, _ Public_barcodewidth#, Public_barcodeheight).Select() objword.Selection.ShapeRange.TextFrame.TextRange.Select() objword.Selection.ShapeRange.Line.Visible = Microsoft.Office.Core.MsoTriState.msoFalse objword.Selection.ShapeRange.Line.Visible = Microsoft.Office.Core.MsoTriState.msoFalse objword.Selection.ShapeRange.Line.Visible = Microsoft.Office.Core.MsoTriState.msoFalse objword.Selection.ShapeRange.TextFrame.MarginLeft = 0.0# objword.Selection.ShapeRange.TextFrame.MarginRight = 0.0# objword.Selection.ShapeRange.TextFrame.MarginTop = 0.0# objword.Selection.ShapeRange.TextFrame.MarginBottom = 0.0# objword.Selection.Collapse() Wasserzeichen(Wasserzeicheni) = objword.Selection.HeaderFooter.Shapes.Item(Textboxesi).Name Wasserzeicheni = Wasserzeicheni + 1 Catch ex As Exception 'MsgBox(ex.Message) End Try End Sub Private Sub ins_wasserzeichen() Dim xname As String Dim i As Integer Dim pages As Long pages = objword.ActiveDocument.BuiltInDocumentProperties("NUMBER OF PAGES").value objword.Selection.HomeKey(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdStory) Wasserzeicheni = 1 For i = 1 To pages xname = Str(i) If Microsoft.VisualBasic.Left(xname, 1) = " " Then xname = Microsoft.VisualBasic.Right(xname, Len(xname) - 1) objword.Selection.GoTo(What:=Microsoft.Office.Interop.Word.WdGoToItem.wdGoToPage, Name:=xname) HeaderFooterAnzeigen() insert_wasserzeichen_text(i) Wasserzeicheni = Wasserzeicheni + 1 objword.ActiveWindow.ActivePane.View.SeekView = Microsoft.Office.Interop.Word.WdSeekView.wdSeekMainDocument Next i End Sub Private Sub insert_wasserzeichen_text(ByVal x As Integer) Dim Form Dim strsel As String Dim strresult Dim s As String Try Form = objword.Selection.HeaderFooter.Shapes.Item(Wasserzeichen(Wasserzeicheni)) Form.Select() Form = objword.Selection.HeaderFooter.Shapes.Item(Wasserzeichen(Wasserzeicheni)) Form.Select() objword.Selection.TypeText(Text:="VORSCHAU") objword.Selection.HomeKey(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdLine, Extend:=Microsoft.Office.Interop.Word.WdMovementType.wdExtend) objword.Selection.Font.Size = 100 objword.Selection.Font.Color = RGB(200, 200, 200) Form = Nothing Catch ex As Exception End Try End Sub #Region "Regionenbezeichnunung" Private Sub Set_Region() 'For Each ws As Microsoft.Office.Interop.Word.Shape In objword.ActiveDocument.Shapes ' If ws.Name = "RegionenTextFeld" Then ws.Delete() 'Next Dim Public_barcodeleft Dim Public_barcodetop Dim Public_barcodewidth# Dim Public_barcodeheight Try Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.sp_get_regionentextfeld" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection scmCmdToExecute.Connection.Open() Try scmCmdToExecute.Parameters.Clear() scmCmdToExecute.Parameters.Add(New SqlParameter("@Office_Vorlagennr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.officevorlage.iOffice_vorlagenr.Value)) scmCmdToExecute.Parameters.Add(New SqlParameter("@Teamnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.serienbrief.iTeam.Value)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "")) scmCmdToExecute.Parameters.Add(New SqlParameter("@Dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.serienbrief.iDokumenttypnr.Value)) scmCmdToExecute.Parameters.Add(New SqlParameter("@PrintIt", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.Parameters.Add(New SqlParameter("@Left", SqlDbType.Float, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.Parameters.Add(New SqlParameter("@Top", SqlDbType.Float, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.Parameters.Add(New SqlParameter("@Width", SqlDbType.Float, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.Parameters.Add(New SqlParameter("@Height", SqlDbType.Float, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.Parameters.Add(New SqlParameter("@Inhalt", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, "")) scmCmdToExecute.Parameters.Add(New SqlParameter("@Font", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, "")) scmCmdToExecute.Parameters.Add(New SqlParameter("@FontSize", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.Parameters.Add(New SqlParameter("@Page", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.Parameters.Add(New SqlParameter("@Spacing", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.Parameters.Add(New SqlParameter("@AllCaps", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.ExecuteNonQuery() If scmCmdToExecute.Parameters("@printit").Value = 0 Then scmCmdToExecute.Connection.Close() scmCmdToExecute.Dispose() Exit Sub End If Public_barcodeleft = scmCmdToExecute.Parameters("@Left").Value Public_barcodetop = scmCmdToExecute.Parameters("@Top").Value Public_barcodewidth = scmCmdToExecute.Parameters("@Width").Value Public_barcodeheight = scmCmdToExecute.Parameters("@Height").Value objword.Selection.GoTo(What:=Microsoft.Office.Interop.Word.WdGoToItem.wdGoToPage, Name:=scmCmdToExecute.Parameters("@page").Value.ToString) HeaderFooterAnzeigen() For Each wx As Microsoft.Office.Interop.Word.Shape In objword.Selection.HeaderFooter.Shapes If wx.Name = "RegionenTextFeld" Then wx.Delete() Next Dim ws As Microsoft.Office.Interop.Word.Shape ws = objword.Selection.HeaderFooter.Shapes.AddTextbox(1, Public_barcodeleft, Public_barcodetop, _ Public_barcodewidth#, Public_barcodeheight) ws.Name = "RegionenTextFeld" ws.Select() objword.Selection.ShapeRange.Line.Visible = Microsoft.Office.Core.MsoTriState.msoFalse objword.Selection.ShapeRange.TextFrame.MarginLeft = 0.0# objword.Selection.ShapeRange.TextFrame.MarginRight = 0.0# objword.Selection.ShapeRange.TextFrame.MarginTop = 0.0# objword.Selection.ShapeRange.TextFrame.MarginBottom = 0.0# objword.Selection.TypeText(scmCmdToExecute.Parameters("@Inhalt").Value) objword.Selection.Collapse() objword.Selection.HomeKey(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdLine, Extend:=Microsoft.Office.Interop.Word.WdMovementType.wdExtend) objword.Selection.Font.Name = scmCmdToExecute.Parameters("@Font").Value objword.Selection.Font.Size = scmCmdToExecute.Parameters("@FontSize").Value objword.Selection.Font.Spacing = scmCmdToExecute.Parameters("@Spacing").Value If scmCmdToExecute.Parameters("@Allcaps").Value = 1 Then objword.Selection.Font.AllCaps = scmCmdToExecute.Parameters("@Allcaps").Value End If objword.ActiveWindow.ActivePane.View.SeekView = Microsoft.Office.Interop.Word.WdSeekView.wdSeekMainDocument Catch ex As Exception Finally scmCmdToExecute.Connection.Close() scmCmdToExecute.Dispose() 'MsgBox(ex.Message) End Try Catch ex As Exception MsgBox(ex.Message) Finally End Try End Sub #End Region 'Private Function RenCol(ByVal original As String) As String ' Dim s As String ' s = original ' s = s.Replace(" ", "_") ' s = s.Replace(" ", "_") ' s = s.Replace("ö", "oe") ' s = s.Replace("Ö", "OE") ' s = s.Replace("ü", "ue") ' s = s.Replace("Ü", "UE") ' s = s.Replace("ä", "ae") ' s = s.Replace("Ä", "AE") ' s = s.Replace("-", "_") ' s = s.Replace("/", "_") ' s = s.Replace("\", "_") ' s = s.Replace(".", "_") ' s = s.Replace(":", "_") ' s = s.Replace(",", "_") ' Select Case Microsoft.VisualBasic.Left(s, 1) ' Case "1", "2", "3", "4", "5", "6", "7", "8", "9", "0" ' s = "N" + s ' End Select ' If clsempf.resword(s) Then ' s = s + "_" ' End If ' Return s 'End Function Private Sub Insert_Value(ByVal feldwert As String, ByVal feldname As String) Dim i As Integer Dim dc As DataRow Dim pos1 As Integer Dim pos2 As Integer If Microsoft.VisualBasic.Left(feldname, 5) = "TMISB" Then beginntextmarke = feldname endetextmarke = "" feldname = "" Else For Each dc In dsempfaenger.Tables("UsedFelder").Rows If dc.Item("TempFeldName") = feldname Then beginntextmarke = dc.Item("Beginntextmarke") endetextmarke = dc.Item("Endetextmarke") feldname = dc.Item("Feldname") 'If feldname = "F_09_99" Then ' MsgBox("Hallo") 'End If Exit For End If Next End If 'Contentcontrols Try If feldname.Length > 2 Then If feldname <> "" And feldname.Substring(0, 3) = "cc_" Then objword.ActiveDocument.SelectContentControlsByTag(feldname).Item(1).Range.Text = feldwert End If End If Catch ex As Exception End Try If beginntextmarke <> "" And endetextmarke = "" Then Try objword.ActiveDocument.Bookmarks.Item(beginntextmarke).Select() objword.Selection.Text = feldwert Catch ex As Exception End Try End If If beginntextmarke <> "" And endetextmarke <> "" Then Try pos1 = objword.ActiveDocument.Bookmarks.Item(beginntextmarke).Start pos2 = objword.ActiveDocument.Bookmarks.Item(endetextmarke).Start objword.Selection.SetRange(Start:=pos1, End:=pos2) objword.Selection.TypeText(Text:=feldwert) Catch ex As Exception End Try End If End Sub #End Region #Region "WordCommands" Private Sub insert_beispiel(ByVal x As Integer) Dim Form Dim strsel As String Dim strresult Dim s As String Try Form = objword.Selection.HeaderFooter.Shapes.Item(Textboxes(Textboxesi)) Form.Select() Form = objword.Selection.HeaderFooter.Shapes.Item(Textboxes(Textboxesi)) Form.Select() If officevorlage.bBchorizontal.Value = False Then objword.ActiveDocument.Tables.Add(Range:=objword.Selection.Range, NumRows:=1, NumColumns:=1) With objword.Selection.Tables.Item(1) .Borders.Item(Microsoft.Office.Interop.Word.WdBorderType.wdBorderLeft).LineStyle = Microsoft.Office.Interop.Word.WdLineStyle.wdLineStyleNone .Borders.Item(Microsoft.Office.Interop.Word.WdBorderType.wdBorderRight).LineStyle = Microsoft.Office.Interop.Word.WdLineStyle.wdLineStyleNone .Borders.Item(Microsoft.Office.Interop.Word.WdBorderType.wdBorderTop).LineStyle = Microsoft.Office.Interop.Word.WdLineStyle.wdLineStyleNone .Borders.Item(Microsoft.Office.Interop.Word.WdBorderType.wdBorderBottom).LineStyle = Microsoft.Office.Interop.Word.WdLineStyle.wdLineStyleNone .Borders.Item(Microsoft.Office.Interop.Word.WdBorderType.wdBorderDiagonalDown).LineStyle = Microsoft.Office.Interop.Word.WdLineStyle.wdLineStyleNone .Borders.Item(Microsoft.Office.Interop.Word.WdBorderType.wdBorderDiagonalUp).LineStyle = Microsoft.Office.Interop.Word.WdLineStyle.wdLineStyleNone .Borders.Shadow = False End With objword.Selection.Orientation = Microsoft.Office.Interop.Word.WdTextOrientation.wdTextOrientationUpward objword.Selection.Tables.Item(1).Rows.HeightRule = Microsoft.Office.Interop.Word.WdRowHeightRule.wdRowHeightAtLeast objword.Selection.Tables.Item(1).Rows.Height = Form.height End If Dim id As String id = dokid s = Bar25I(Microsoft.VisualBasic.Right(Microsoft.VisualBasic.Right(id, Len(id) - 6), 16)) objword.Selection.TypeText(Text:=s) objword.Selection.HomeKey(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdLine, Extend:=Microsoft.Office.Interop.Word.WdMovementType.wdExtend) objword.Selection.Font.Name = Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("barcode_font") objword.Selection.Font.Size = Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("bcfont_groesse") objword.Selection.ParagraphFormat.Alignment = Microsoft.Office.Interop.Word.WdParagraphAlignment.wdAlignParagraphRight objword.Selection.EndKey(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdLine) objword.Selection.Font.Name = "Arial" objword.Selection.Font.Size = 8 Dim Zeichen As String Zeichen = " BEISPIEL" objword.Selection.TypeText(Zeichen) Form = Nothing Catch ex As Exception End Try End Sub Private Sub insert_Barcode(ByVal x As Integer) Dim Form Dim strsel As String Dim strresult Dim s As String Try Form = objword.Selection.HeaderFooter.Shapes.Item(Textboxes(Textboxesi)) Form.Select() Form = objword.Selection.HeaderFooter.Shapes.Item(Textboxes(Textboxesi)) Form.Select() If officevorlage.bBchorizontal.Value = False Then objword.ActiveDocument.Tables.Add(Range:=objword.Selection.Range, NumRows:=1, NumColumns:=1) With objword.Selection.Tables.Item(1) .Borders.Item(Microsoft.Office.Interop.Word.WdBorderType.wdBorderLeft).LineStyle = Microsoft.Office.Interop.Word.WdLineStyle.wdLineStyleNone .Borders.Item(Microsoft.Office.Interop.Word.WdBorderType.wdBorderRight).LineStyle = Microsoft.Office.Interop.Word.WdLineStyle.wdLineStyleNone .Borders.Item(Microsoft.Office.Interop.Word.WdBorderType.wdBorderTop).LineStyle = Microsoft.Office.Interop.Word.WdLineStyle.wdLineStyleNone .Borders.Item(Microsoft.Office.Interop.Word.WdBorderType.wdBorderBottom).LineStyle = Microsoft.Office.Interop.Word.WdLineStyle.wdLineStyleNone .Borders.Item(Microsoft.Office.Interop.Word.WdBorderType.wdBorderDiagonalDown).LineStyle = Microsoft.Office.Interop.Word.WdLineStyle.wdLineStyleNone .Borders.Item(Microsoft.Office.Interop.Word.WdBorderType.wdBorderDiagonalUp).LineStyle = Microsoft.Office.Interop.Word.WdLineStyle.wdLineStyleNone .Borders.Shadow = False End With objword.Selection.Orientation = Microsoft.Office.Interop.Word.WdTextOrientation.wdTextOrientationUpward objword.Selection.Tables.Item(1).Rows.HeightRule = Microsoft.Office.Interop.Word.WdRowHeightRule.wdRowHeightAtLeast objword.Selection.Tables.Item(1).Rows.Height = Form.height End If Dim id As String id = dokid s = Bar25I(Microsoft.VisualBasic.Right(Microsoft.VisualBasic.Right(id, Len(id) - 6), 16)) objword.Selection.TypeText(Text:=s) objword.Selection.HomeKey(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdLine, Extend:=Microsoft.Office.Interop.Word.WdMovementType.wdExtend) objword.Selection.Font.Name = Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("barcode_font") objword.Selection.Font.Size = Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("bcfont_groesse") objword.Selection.ParagraphFormat.Alignment = Microsoft.Office.Interop.Word.WdParagraphAlignment.wdAlignParagraphRight objword.Selection.EndKey(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdLine) objword.Selection.Font.Name = "Arial" objword.Selection.Font.Size = 8 Dim Zeichen As String If doktyp.bZu_retournieren.Value = True Then Dim dokt As New edokadb.clsDokumenttyp() dokt.cpMainConnectionProvider = Globals.conn dokt.iDokumenttypnr = New SqlInt32(CType(doktyp.iDoktypbedingteretournierung.Value, Int32)) dokt.SelectOne() If dokt.iPhysisches_archiv.Value = 2 Then 'EDEX Banklagernd Zeichen = " F" 'objword.Selection.TypeText(" F") Else Zeichen = " U" 'objword.Selection.TypeText(" U") End If dokt.Dispose() Else If doktyp.iPhysisches_archiv.Value = 2 Then Zeichen = " F" ' objword.Selection.TypeText(" F") Else Zeichen = " U" 'objword.Selection.TypeText(" U") End If End If If blkunde <> "" Then Zeichen = Zeichen + "/B" End If objword.Selection.TypeText(Zeichen) Form = Nothing Catch ex As Exception End Try End Sub Private Sub ins_Barcode() Dim xname As String Dim i As Integer Dim pages As Long pages = objword.ActiveDocument.BuiltInDocumentProperties("NUMBER OF PAGES").value objword.Selection.HomeKey(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdStory) Textboxesi = 1 For i = 1 To pages xname = Str(i) If Microsoft.VisualBasic.Left(xname, 1) = " " Then xname = Microsoft.VisualBasic.Right(xname, Len(xname) - 1) objword.Selection.GoTo(What:=Microsoft.Office.Interop.Word.WdGoToItem.wdGoToPage, Name:=xname) HeaderFooterAnzeigen() insert_Barcode(i) Textboxesi = Textboxesi + 1 objword.ActiveWindow.ActivePane.View.SeekView = Microsoft.Office.Interop.Word.WdSeekView.wdSeekMainDocument Next i End Sub Private Sub HeaderFooterAnzeigen() If objword.ActiveWindow.View.SplitSpecial <> Microsoft.Office.Interop.Word.WdSpecialPane.wdPaneNone Then objword.ActiveWindow.Panes.Item(2).Close() End If If objword.ActiveWindow.ActivePane.View.Type = Microsoft.Office.Interop.Word.WdViewType.wdNormalView Or objword.ActiveWindow.ActivePane.View.Type = Microsoft.Office.Interop.Word.WdViewType.wdOutlineView Then objword.ActiveWindow.ActivePane.View.Type = Microsoft.Office.Interop.Word.WdViewType.wdPrintView End If objword.ActiveWindow.ActivePane.View.SeekView = Microsoft.Office.Interop.Word.WdSeekView.wdSeekCurrentPageHeader If objword.Selection.HeaderFooter.IsHeader = True Then objword.ActiveWindow.ActivePane.View.SeekView = Microsoft.Office.Interop.Word.WdSeekView.wdSeekCurrentPageFooter Else objword.ActiveWindow.ActivePane.View.SeekView = Microsoft.Office.Interop.Word.WdSeekView.wdSeekCurrentPageHeader End If End Sub Dim Textboxes(100) As String Dim Textboxesi As Integer Dim Wasserzeichen(100) As String Dim Wasserzeicheni As Integer Private Sub insert_Textfield() Dim Public_barcodeleft Dim Public_barcodetop Dim Public_barcodewidth# Dim Public_barcodeheight Try Public_barcodeleft = 260 Public_barcodetop = 794 Public_barcodewidth = 300 Public_barcodeheight = 33 HeaderFooterAnzeigen() objword.Selection.HeaderFooter.Shapes.AddTextbox(1, Public_barcodeleft, Public_barcodetop, _ Public_barcodewidth#, Public_barcodeheight).Select() ' objword.Selection.ShapeRange.TextFrame.TextRange.Select 'objword.Selection.ShapeRange.Line.Visible = Office.MsoTriState.msoFalse 'objword.Selection.ShapeRange.Line.Visible = Office.Core.MsoTriState.msoFalse ' objword.Selection.ShapeRange.Line.Visible = Microsoft.Office.Core.MsoTriState.msoFalse objword.Selection.ShapeRange.Line.Visible = Microsoft.Office.Core.MsoTriState.msoFalse objword.Selection.ShapeRange.TextFrame.MarginLeft = 0.0# objword.Selection.ShapeRange.TextFrame.MarginRight = 0.0# objword.Selection.ShapeRange.TextFrame.MarginTop = 0.0# objword.Selection.ShapeRange.TextFrame.MarginBottom = 0.0# objword.Selection.Collapse() Textboxes(Textboxesi) = objword.Selection.HeaderFooter.Shapes.Item(Textboxesi).Name Textboxesi = Textboxesi + 1 Exit Sub Catch ex As Exception 'MsgBox(ex.Message) End Try End Sub Private Sub Generate_Barcodes() Insert_TextFelder() ins_Barcode() End Sub Private Sub Insert_TextFelder() Dim xname As String Dim i As Integer Dim pages As Long Dim prop As Object pages = objword.ActiveDocument.BuiltInDocumentProperties("NUMBER OF PAGES").value Textboxesi = 1 objword.Selection.HomeKey(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdStory) For i = 1 To pages xname = Str(i) If Microsoft.VisualBasic.Left(xname, 1) = " " Then xname = Microsoft.VisualBasic.Right(xname, Len(xname) - 1) objword.Selection.GoTo(What:=Microsoft.Office.Interop.Word.WdGoToItem.wdGoToPage, Name:=xname) insert_Textfield() objword.ActiveWindow.ActivePane.View.SeekView = Microsoft.Office.Interop.Word.WdSeekView.wdSeekMainDocument Next i End Sub Private Sub Insert_Kopfzeile() objword.Selection.HomeKey(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdStory) If objword.ActiveWindow.View.SplitSpecial <> Microsoft.Office.Interop.Word.WdSpecialPane.wdPaneNone Then objword.ActiveWindow.Panes.Item(2).Close() End If If objword.ActiveWindow.ActivePane.View.Type = Microsoft.Office.Interop.Word.WdViewType.wdNormalView Or objword.ActiveWindow.ActivePane.View.Type = Microsoft.Office.Interop.Word.WdViewType.wdOutlineView Then objword.ActiveWindow.ActivePane.View.Type = Microsoft.Office.Interop.Word.WdViewType.wdPrintView End If objword.ActiveWindow.ActivePane.View.SeekView = Microsoft.Office.Interop.Word.WdSeekView.wdSeekCurrentPageHeader set_headerbookmark() objword.ActiveWindow.ActivePane.View.SeekView = Microsoft.Office.Interop.Word.WdSeekView.wdSeekMainDocument End Sub Private Sub set_headerbookmark() Try objword.ActiveDocument.Bookmarks.Item("TGEDKCompanyBBEB99").Select() Catch objword.Selection.MoveDown(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdLine, Count:=1) With objword.ActiveDocument.Bookmarks .Add(Range:=objword.Selection.Range, Name:="TGEDKCompanyBBEB99") .DefaultSorting = Microsoft.Office.Interop.Word.WdBookmarkSortBy.wdSortByName .ShowHidden = False End With End Try End Sub #End Region #Region "Barcode-Berechnung" Private BarTextOut As String Private BarTextIn As String Private DoCheckSum As Integer Private TempString As String Private CharValue As Long Private II As Integer Private Sum As Long Private barcodeout Private CheckSum As Integer ' Copyright 2001 by Elfring Fonts Inc. All rights reserved. This code ' may not be modified or altered in any way. 'Functions in this file: ' Bar25I(Text) -> convert text to bar code 2/5 interleaved ' Bar25Ics(Text) -> convert text to bar code 2/5 interleaved with checksum '--------------------------------------------------------------------------- ' This function converts a string of digits into a format compatible with Elfring ' Fonts Inc bar codes. It adds the start character, scans and converts digit pairs ' into single ASCII characters, and adds a stop character. Note that non-digits are ' ignored, and if you enter an odd number of digits, a leading zero will be added. '--------------------------------------------------------------------------- Public Function Bar25I(ByVal BarTextIn As String) As String ' Initialize input and output strings BarTextOut = "" BarTextIn = RTrim(LTrim(BarTextIn)) ' Throw away non-numeric data TempString = "" For II = 1 To Len(BarTextIn) If IsNumeric(Mid(BarTextIn, II, 1)) Then TempString = TempString & Mid(BarTextIn, II, 1) End If Next II ' If not an even number of digits, add a leading 0 If (Len(TempString) Mod 2) = 1 Then TempString = "0" & TempString End If ' Break digit pairs up and convert to characters- build output string For II = 1 To Len(TempString) Step 2 'Break string into pairs of digits and get value CharValue = Mid(TempString, II, 2) 'translate value to ASCII and save in BarTextOut If CharValue < 90 Then BarTextOut = BarTextOut & Chr(CharValue + 33) Else BarTextOut = BarTextOut & Chr(CharValue + 71) End If Next II 'Build ouput string, trailing space for Windows rasterization bug barcodeout = "{" & BarTextOut & "} " 'Return the string Bar25I = barcodeout End Function '--------------------------------------------------------------------------- ' This function converts a string of digits into a format compatible with Elfring ' Fonts Inc bar codes. It adds the start character, scans and converts digit pairs ' into single ASCII characters, and adds checksum and a stop character. Note that ' non-digits are ignored, and if you enter an even number of digits, a leading zero ' will be added. '--------------------------------------------------------------------------- Public Function Bar25Ics(ByVal BarTextIn As String) As String ' Initialize input and output strings BarTextOut = "" BarTextIn = RTrim(LTrim(BarTextIn)) ' Throw away non-numeric data TempString = "" For II = 1 To Len(BarTextIn) If IsNumeric(Mid(BarTextIn, II, 1)) Then TempString = TempString & Mid(BarTextIn, II, 1) End If Next II ' If not an odd number of digits, add a leading 0 If (Len(TempString) Mod 2) = 0 Then TempString = "0" & TempString End If ' Figure out the checksum digit Sum = 0 For II = 1 To Len(TempString) CharValue = Mid(TempString, II, 1) If (II Mod 2) = 1 Then Sum = Sum + (3 * CharValue) Else Sum = Sum + CharValue End If Next II ' Figure checksum, add it as last digit CheckSum = 10 - (Sum Mod 10) If CheckSum = 10 Then CheckSum = 0 TempString = TempString & Chr(48 + CheckSum) ' Break digit pairs up and convert to characters- build output string For II = 1 To Len(TempString) Step 2 'Break string into pairs of digits and get value CharValue = Mid(TempString, II, 2) 'translate value to ASCII and save in BarTextOut If CharValue < 90 Then BarTextOut = BarTextOut & Chr(CharValue + 33) Else BarTextOut = BarTextOut & Chr(CharValue + 71) End If Next II 'Build ouput string, trailing space for Windows rasterization bug barcodeout = "{" & BarTextOut & "} " 'Return the string Bar25Ics = barcodeout End Function #End Region #Region "Treeview" Dim druckjobs As New DataTable() Private Sub Generate_Tree() Dim notreeselected As Boolean Me.TVStatus.BeginUpdate() Dim savetn As New TreeNode() Try savetn = Me.TVStatus.SelectedNode If savetn Is Nothing Then notreeselected = True Else notreeselected = False Catch notreeselected = True End Try Me.SetProgress(20, "Struktur aktualisieren", False) 'Dim dx As DataRow 'For Each dx In Me.dsempfaenger.Tables(0).Rows ' dx.Item("status") = 0 'Next 'Me.save_data() Me.TVStatus.Nodes.Clear() Dim tn As New TreeNode() Dim tn1 As New TreeNode() Dim tn2 As New TreeNode() Dim iFehlerhaft As Integer Dim iInBearbeitung As Integer Dim iNichtgeneriert As Integer Dim iAusgeloest As Integer Dim iErstellt As Integer Dim iGedruckt As Integer Dim iBestaetigt As Integer Dim dv As DataRow() Dim DR As DataRow dv = Me.dsempfaenger.Tables(0).Select("Status='-1'") iFehlerhaft = 0 For Each DR In dv iFehlerhaft = iFehlerhaft + 1 Next iNichtgeneriert = 0 dv = Me.dsempfaenger.Tables(0).Select("Status='0' or Status=''") For Each DR In dv iNichtgeneriert = iNichtgeneriert + 1 Next 'If NeuerSB Then iNichtgeneriert = iNichtgeneriert - 1 iAusgeloest = 0 dv = Me.dsempfaenger.Tables(0).Select("Status='1'") For Each DR In dv iAusgeloest = iAusgeloest + 1 Next iErstellt = 0 dv = Me.dsempfaenger.Tables(0).Select("Status='2'") For Each DR In dv iErstellt = iErstellt + 1 Next iGedruckt = 0 dv = Me.dsempfaenger.Tables(0).Select("Status='3'") For Each DR In dv iGedruckt = iGedruckt + 1 Next iBestaetigt = 0 dv = Me.dsempfaenger.Tables(0).Select("Status='4'") For Each DR In dv iBestaetigt = iBestaetigt + 1 Next Me.SetProgress(40, "Struktur aktualisieren", False) Dim z As Integer 'If NeuerSB Then ' If NeuerSB Then z = 0 Else z = Me.dsempfaenger.Tables(0).Rows.Count 'End If tn = Me.TVStatus.Nodes.Add(Me.serienbrief.sBezeichnung.Value + " (" + z.ToString + ")") tn.SelectedImageIndex = 0 tn.ImageIndex = -99 tn.Tag = -3 If Me.serienbrief.iStatus.Value > 0 Then tn1 = tn.Nodes.Add("in Bearbeitung (0)") Else tn1 = tn.Nodes.Add("in Bearbeitung (" + Str(iFehlerhaft + iNichtgeneriert + iErstellt + iGedruckt + iBestaetigt).Trim + ")") End If tn1.Tag = -9 tn1.SelectedImageIndex = 0 tn1.ImageIndex = -99 If Me.serienbrief.iStatus.Value > 0 Then tn1 = tn.Nodes.Add("Dokumentgenerierung ausgelöst " + "(" + Str(iAusgeloest).Trim + ")") tn1.Tag = 1 tn1.SelectedImageIndex = 0 tn1.ImageIndex = -99 tn1 = tn.Nodes.Add("Abgeschlossen (" + Str(iFehlerhaft + iNichtgeneriert + iErstellt + iGedruckt + iBestaetigt).Trim + ")") tn1.Tag = -4 tn1.SelectedImageIndex = 0 tn1.ImageIndex = -99 End If tn2 = tn1.Nodes.Add("Fehlerhaft " + "(" + Str(iFehlerhaft).Trim + ")") tn2.Tag = -1 tn2.SelectedImageIndex = 0 tn2.ImageIndex = -99 tn2 = tn1.Nodes.Add("Empfänger in Bearbeitung " + "(" + Str(iNichtgeneriert).Trim + ")") tn2.Tag = 0 tn2.SelectedImageIndex = 0 tn2.ImageIndex = -99 tn2 = tn1.Nodes.Add("Dokumente erstellt " + "(" + Str(iErstellt).Trim + ")") tn2.Tag = 2 tn2.SelectedImageIndex = 0 tn2.ImageIndex = -99 'Druckstapel hinzufügen Me.SetProgress(60, "Struktur aktualisieren", False) druckjobs = get_druckjobs() If druckjobs.Rows.Count > 0 Then Dim tn3 As New TreeNode() Dim i As Integer For i = 0 To druckjobs.Rows.Count - 1 tn3 = tn2.Nodes.Add(druckjobs.Rows(i).Item(3)) tn3.Tag = "Job:" + druckjobs.Rows(i).Item(0).ToString tn3.ImageIndex = -99 tn3.SelectedImageIndex = 0 Next End If tn2 = tn1.Nodes.Add("Dokumente gedruckt " + "(" + Str(iGedruckt).Trim + ")") tn2.Tag = 3 tn2.SelectedImageIndex = 0 tn2.ImageIndex = -99 Me.SetProgress(80, "Struktur aktualisieren", False) tn2 = tn1.Nodes.Add("Dokumente bestätigt " + "(" + Str(iBestaetigt).Trim + ")") tn2.Tag = 4 tn2.SelectedImageIndex = 0 tn2.ImageIndex = -99 Me.TVStatus.ExpandAll() If Me.serienbrief.iStatus.Value < 1 Then tn1 = tn.Nodes.Add("Dokumentgenerierung ausgelöst " + "(" + Str(iAusgeloest).Trim + ")") tn1.Tag = 1 tn1.SelectedImageIndex = 0 tn1.ImageIndex = -99 tn1 = tn.Nodes.Add("Abgeschlossen") tn1.Tag = -4 tn1.SelectedImageIndex = 0 tn1.ImageIndex = -99 End If If notreeselected = True Then DivFnkt.Searchnode1(Me.TVStatus, 0, 99) If DivFnkt.found Then Me.TVStatus.SelectedNode = DivFnkt.FoundNode End If Else Try DivFnkt.Searchnode1(Me.TVStatus, savetn.Tag, 99) If DivFnkt.found Then Me.TVStatus.SelectedNode = DivFnkt.FoundNode End If Catch End Try Try If Me.serienbrief.iStatus.Value = -1 Then DivFnkt.Searchnode1(Me.TVStatus, 1, 99) If DivFnkt.found Then Me.TVStatus.SelectedNode = DivFnkt.FoundNode End If End If Catch End Try End If Me.SetProgress(100, "Struktur aktualisieren", True) Me.TVStatus.EndUpdate() If iErstellt > 0 Or iGedruckt > 0 Or Me.serienbrief.iStatus.Value > 0 Or iBestaetigt > 0 Then Me.ToolBarButton19.Enabled = True Me.mnuc2abschliessen.Enabled = True Me.MnuMainAbschluss.Enabled = True Else Me.ToolBarButton19.Enabled = False Me.mnuc2abschliessen.Enabled = False Me.MnuMainAbschluss.Enabled = False End If 'Rel. 4.1 für Sysadmin button öffnen If DivFnkt.MA_Is_Sysadmin(Globals.MitarbeiterNr) Then Me.TBBtnSysadmin.Enabled = True Me.ToolBarButton5.Enabled = True End If End Sub Private Sub TVStatus_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TVStatus.AfterSelect 'Rel 4.03 4: Try If TVStatus.SelectedNode.Tag = 2 Or Me.TVStatus.SelectedNode.Tag = 3 Or Me.TVStatus.SelectedNode.Tag = 4 Then Me.ToolBarButton22.Enabled = True Else Me.ToolBarButton22.Enabled = False End If Catch ex As Exception End Try Me.empflist.BeginInit() Me.empflist.SelectedRows.Clear() Try If Microsoft.VisualBasic.InStr(Me.TVStatus.SelectedNode.Tag, "Job:") > 0 Then Dim s As String s = Me.TVStatus.SelectedNode.Tag s = s.Substring(4) Dim i As Integer For i = 0 To Me.empflist.Columns.Count - 1 Me.empflist.Columns(i).FilterText = "" Next Me.empflist.Columns("Druckjobid").FilterText = Me.get_druckjobname(s) Me.empflist.EndInit() Exit Sub End If Catch End Try Try If Me.TVStatus.SelectedNode.Tag = -3 Then Dim dview As New DataView(Me.dsempfaenger.Tables(0), "", "", DataViewRowState.CurrentRows) Me.empflist.DataSource = Nothing Me.empflist.DataMember = Nothing Me.empflist.DataSource = dview Me.empflist.DataMember = dview.Table.TableName If Me.serienbrief.iStatus.Value = -1 Or Me.serienbrief.iStatus.Value > 1 Then Me.empflist.AllowUpdate = False End If Me.Load_Layout() Me.empflist.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.Extended Me.empflist.EndInit() Exit Sub End If If Me.TVStatus.SelectedNode.Tag = -4 Then If Me.serienbrief.iStatus.Value <> -2 Then Dim dview As New DataView(Me.dsempfaenger.Tables(0), "Status = '5'", "", DataViewRowState.CurrentRows) Me.empflist.DataSource = Nothing Me.empflist.DataMember = Nothing Me.empflist.DataSource = dview Me.empflist.DataMember = dview.Table.TableName If Me.serienbrief.iStatus.Value = -1 Or Me.serienbrief.iStatus.Value > 1 Then Me.empflist.AllowUpdate = False End If Me.Load_Layout() Me.empflist.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.Extended Me.empflist.EndInit() Exit Sub Else Dim dview As New DataView(Me.dsempfaenger.Tables(0), "Status < '5'", "", DataViewRowState.CurrentRows) Me.empflist.DataSource = Nothing Me.empflist.DataMember = Nothing Me.empflist.DataSource = dview Me.empflist.DataMember = dview.Table.TableName If Me.serienbrief.iStatus.Value = -1 Or Me.serienbrief.iStatus.Value > 1 Then Me.empflist.AllowUpdate = False End If Me.Load_Layout() Me.empflist.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.Extended Me.empflist.EndInit() Exit Sub End If End If If Me.TVStatus.SelectedNode.Tag = -9 Then Dim dview As New DataView(Me.dsempfaenger.Tables(0), "Status < '3'", "", DataViewRowState.CurrentRows) Me.empflist.DataSource = Nothing Me.empflist.DataMember = Nothing Me.empflist.DataSource = dview Me.empflist.DataMember = dview.Table.TableName If Me.serienbrief.iStatus.Value = -1 Or Me.serienbrief.iStatus.Value > 1 Then Me.empflist.AllowUpdate = False End If Me.Load_Layout() Me.empflist.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.Extended Me.empflist.EndInit() Exit Sub End If Me.empflist.DataSource = Nothing Me.empflist.DataMember = Nothing Me.empflist.DataSource = Me.dsempfaenger.Tables(0) Me.empflist.DataMember = Me.dsempfaenger.Tables(0).TableName Me.Load_Layout() Me.empflist.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.Extended If Me.TVStatus.SelectedNode.Tag = -1 Or Me.TVStatus.SelectedNode.Tag = 0 Then Me.empflist.AllowUpdate = True Else Me.empflist.AllowUpdate = False End If Me.empflist.Columns("status").FilterText = Me.TVStatus.SelectedNode.Tag Catch ex As Exception Finally Me.empflist.EndInit() End Try End Sub Friend selectPoint As New System.Drawing.Point() Private Sub TVStatus__MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TVStatus.MouseDown Try Dim mouseEvents As MouseEventArgs mouseEvents = e selectPoint.Y = mouseEvents.Y selectPoint.X = mouseEvents.X TVStatus.SelectedNode = TVStatus.GetNodeAt(selectPoint) Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Function get_druckjobs() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim i As Integer Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "sp_edex_sb_get_druckjob" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@sbnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Serienbriefnr)) sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception Throw New Exception("sp_check_dokumentreaktivierung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function #End Region Private Sub C1ContextMenu1_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1ContextMenu1.Popup Me.c1mnupartner1.Enabled = False Me.c1mnupartner2.Enabled = False Me.c1mnupartner3.Enabled = False Me.MnuMainEmpfaengerBearbeiten.Enabled = False Me.MnuMainEmfpaengerLoeschen.Enabled = False Me.MnuMainEDOKAPartnerErfassen.Enabled = False Me.MnuMainCheckEmpfaenger.Enabled = False Me.mnuctErstellungWiederholen.Enabled = False Me.C1mnuPartnerdossier.Enabled = False Me.empflist.AllowUpdate = False Try If Me.serienbrief.iStatus.Value > 0 Or Me.serienbrief.iStatus.Value = -1 Then Me.c1mnupartner1.Enabled = False Me.c1mnupartner2.Enabled = False Me.c1mnupartner3.Enabled = False Me.MnuMainEmpfaengerBearbeiten.Enabled = False Me.MnuMainEmfpaengerLoeschen.Enabled = False Me.MnuMainEDOKAPartnerErfassen.Enabled = False Me.MnuMainCheckEmpfaenger.Enabled = False Me.mnuctErstellungWiederholen.Enabled = False Me.C1mnuPartnerdossier.Enabled = False Me.empflist.AllowUpdate = False Try If Me.empflist.Columns("Partnernr").Text <> "" Then Me.C1mnuPartnerdossier.Enabled = True End If Catch End Try Exit Sub End If Me.c1mnupartner1.Enabled = False Me.c1mnupartner2.Enabled = False Me.c1mnupartner3.Enabled = False Me.MnuMainEmpfaengerBearbeiten.Enabled = False Me.MnuMainEmfpaengerLoeschen.Enabled = False Me.MnuMainEDOKAPartnerErfassen.Enabled = False Me.MnuMainCheckEmpfaenger.Enabled = False Me.mnuctErstellungWiederholen.Enabled = False Me.C1mnuPartnerdossier.Enabled = False Try Select Case Me.TVStatus.SelectedNode.Tag 'Fehlerhaft Case -1 Me.c1mnupartner1.Enabled = True Me.c1mnupartner2.Enabled = True Me.c1mnupartner3.Enabled = True Me.MnuMainEmpfaengerBearbeiten.Enabled = True Me.MnuMainEmfpaengerLoeschen.Enabled = True Me.MnuMainEDOKAPartnerErfassen.Enabled = True Me.MnuMainCheckEmpfaenger.Enabled = True Me.mnuctErstellungWiederholen.Enabled = True Try If Me.empflist.Columns("Partnernr").Text <> "" Then Me.C1mnuPartnerdossier.Enabled = True End If Catch End Try 'Noch nicht generiert Case 0 Me.c1mnupartner1.Enabled = True Me.c1mnupartner2.Enabled = True Me.c1mnupartner3.Enabled = True Me.MnuMainEmpfaengerBearbeiten.Enabled = True Me.MnuMainEmfpaengerLoeschen.Enabled = True Me.MnuMainEDOKAPartnerErfassen.Enabled = True Me.MnuMainCheckEmpfaenger.Enabled = True Me.mnuctErstellungWiederholen.Enabled = False Try If Me.empflist.Columns("Partnernr").Text <> "" Then Me.C1mnuPartnerdossier.Enabled = True End If Catch End Try Case 1 Me.MnuMainEmpfaengerBearbeiten.Enabled = False Me.MnuMainEmfpaengerLoeschen.Enabled = True Me.MnuMainEDOKAPartnerErfassen.Enabled = False Me.MnuMainCheckEmpfaenger.Enabled = False Me.mnuctErstellungWiederholen.Enabled = False Try If Me.empflist.Columns("Partnernr").Text <> "" Then Me.C1mnuPartnerdossier.Enabled = True End If Catch End Try Case 2 Me.MnuMainEmpfaengerBearbeiten.Enabled = False Me.MnuMainEmfpaengerLoeschen.Enabled = True Me.MnuMainEDOKAPartnerErfassen.Enabled = False Me.MnuMainCheckEmpfaenger.Enabled = False Me.mnuctErstellungWiederholen.Enabled = True Try If Me.empflist.Columns("Partnernr").Text <> "" Then Me.C1mnuPartnerdossier.Enabled = True End If Catch End Try Case 3 Me.MnuMainEmpfaengerBearbeiten.Enabled = False Me.MnuMainEmfpaengerLoeschen.Enabled = True Me.MnuMainEDOKAPartnerErfassen.Enabled = False Me.MnuMainCheckEmpfaenger.Enabled = False Me.mnuctErstellungWiederholen.Enabled = True Try If Me.empflist.Columns("Partnernr").Text <> "" Then Me.C1mnuPartnerdossier.Enabled = True End If Catch End Try Case 4 Me.MnuMainEmpfaengerBearbeiten.Enabled = False Me.MnuMainEmfpaengerLoeschen.Enabled = True Me.MnuMainEDOKAPartnerErfassen.Enabled = False Me.MnuMainCheckEmpfaenger.Enabled = False Me.mnuctErstellungWiederholen.Enabled = True Try If Me.empflist.Columns("Partnernr").Text <> "" Then Me.C1mnuPartnerdossier.Enabled = True End If Catch End Try End Select Try If Me.TVStatus.SelectedNode.Tag = 0 Then Me.c1mnupartner1.Enabled = True Me.c1mnupartner2.Enabled = True Me.c1mnupartner3.Enabled = True Else Me.c1mnupartner1.Enabled = False Me.c1mnupartner2.Enabled = False Me.c1mnupartner3.Enabled = False End If Catch End Try Catch End Try Catch End Try End Sub Private Sub C1ContextMenu2_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1ContextMenu2.Popup Me.mnuc2partnerlistepruefen.Enabled = False Me.mnuc2bestaetigen.Enabled = False Me.mnuc2generieren.Enabled = False Me.mnuc2printmenu.Enabled = False Me.mnuc2abschliessen.Enabled = False Try Dim o As Object If Me.serienbrief.iStatus.Value > 0 Then Me.mnuc2partnerlistepruefen.Enabled = False Me.mnuc2bestaetigen.Enabled = False Me.mnuc2generieren.Enabled = False Me.mnuc2printmenu.Enabled = False Me.mnuc2abschliessen.Enabled = False Exit Sub End If Me.mnuc2partnerlistepruefen.Enabled = False Me.mnuc2bestaetigen.Enabled = False Me.mnuc2generieren.Enabled = False Me.mnuc2printmenu.Enabled = False Me.mnuc2abschliessen.Enabled = True Try Select Case Me.TVStatus.SelectedNode.Tag Case -1 If Me.TVStatus.SelectedNode.Text.IndexOf("(0)") = -1 Then ' Me.mnuc2bestaetigen.Enabled = True Me.mnuc2partnerlistepruefen.Enabled = True End If Case 0 If Me.TVStatus.SelectedNode.Text.IndexOf("(0)") = -1 Then Me.mnuc2generieren.Enabled = True Me.mnuc2partnerlistepruefen.Enabled = True End If Case 1 Case 2 If Me.TVStatus.SelectedNode.Text.IndexOf("(0)") = -1 Then Me.mnuc2bestaetigen.Enabled = True End If Case 3 If Me.TVStatus.SelectedNode.Text.IndexOf("(0)") = -1 Then Me.mnuc2bestaetigen.Enabled = True End If Case 4 Case Else If Microsoft.VisualBasic.InStr(Me.TVStatus.SelectedNode.Tag, "Job:") > 0 Then Me.mnuc2bestaetigen.Enabled = True Me.mnuc2printmenu.Enabled = True End If End Select Catch Try If Microsoft.VisualBasic.InStr(Me.TVStatus.SelectedNode.Tag, "Job:") > 0 Then Me.mnuc2bestaetigen.Enabled = True Me.mnuc2printmenu.Enabled = True End If Catch End Try End Try Catch End Try 'Rel 4.03 8 Me.mnuc2abschliessen.Enabled = Me.MnuMainAbschluss.Enabled End Sub Private Sub mnuc2partnerlistepruefen_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles mnuc2partnerlistepruefen.Click Me.Cursor = Cursors.WaitCursor Me.SetProgress(10, "Empfänger prüfen", False) Application.DoEvents() create_checktable() Me.SetProgress(20, "Empfänger prüfen", False) save_checkdata() Me.SetProgress(60, "Empfänger prüfen", False) Dim dt As New DataTable() Dim i As Integer dt = Check_Data() Me.SetProgress(80, "Empfänger prüfen", False) For i = 0 To dt.Rows.Count - 1 Dim dr As DataRow() Dim dr1 As DataRow dr = Me.dsempfaenger.Tables(0).Select("Partnernr='" + dt.Rows(i).Item(0).ToString + "'") If dr.Length = 0 Then dr = Me.dsempfaenger.Tables(0).Select("Partnernr=''") End If For Each dr1 In dr dr1.Item("Status") = dt.Rows(i).Item("status") Try If dt.Rows(i).Item("Fehlercode") > 0 Then dr1.Item("Fehlercode") = dt.Rows(i).Item("Fehlercode") End If Catch End Try Next 'Me.dsempfaenger.Tables(0).Rows(dt.Rows(i).Item("rowid")).Item("status") = dt.Rows(i).Item("status") 'Rel. 4.1 BLKunden vorhanden? If dt.Rows(i).Item(4) = 1 Then Me.BLDossier = True Next If Me.dsempfaenger.Tables(0).Columns.Count > 20 Then check_zwingende_felder() End If Me.Cursor = Cursors.Default Application.DoEvents() Me.SetProgress(100, "Empfänger prüfen", True) Me.Generate_Tree() End Sub Private Sub check_zwingende_felder() Dim dr As DataRow() Dim dr1 As DataRow Dim i As Integer For i = 20 To Me.dsempfaenger.Tables(0).Columns.Count - 1 If Me.dsempfaenger.Tables(1).Rows(0).Item(Me.dsempfaenger.Tables(0).Columns(i).ColumnName) = 1 Then dr = Me.dsempfaenger.Tables(0).Select("[" + Me.dsempfaenger.Tables(0).Columns(i).ColumnName + "] <>''") For Each dr1 In dr If dr1.Item("Status") = 0 Then dr1.Item("Status") = 0 Next dr = Me.dsempfaenger.Tables(0).Select("[" + Me.dsempfaenger.Tables(0).Columns(i).ColumnName + "] =''") For Each dr1 In dr If dr1.Item("Status") = 0 Then dr1.Item("Status") = -1 dr1.Item("Fehlercode") = 2 End If Next End If Next End Sub Private Sub mnuc2generieren_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles mnuc2generieren.Click Try mnuc2partnerlistepruefen_Click(sender, e) Catch End Try 'Rel 4.1 BL-Kunden vorhanden Dim result As MsgBoxResult If Me.Serienbriefnr = 0 Then If Me.BLDossier = True Then If MyMsg.Show_MessageYesNo(50101) = MsgBoxResult.Yes Then If MyMsg.Show_MessageOKCancel(50105) = MsgBoxResult.Ok Then Me.serienbrief.iBldossier = New SqlInt32(CType(1, Int32)) Else Exit Sub End If Else If MyMsg.Show_MessageOKCancel(50106) = MsgBoxResult.Ok Then Me.serienbrief.iBldossier = New SqlInt32(CType(0, Int32)) Else Exit Sub End If End If Else Me.serienbrief.iBldossier = New SqlInt32(CType(-1, Int32)) End If Else If Me.serienbrief.iBldossier.ToString = "Null" Then Me.serienbrief.iBldossier = New SqlInt32(CType(-1, Int32)) End If If Me.BLDossier = True And Me.serienbrief.iBldossier.Value = -1 Then If MyMsg.Show_MessageYesNo(50101) = MsgBoxResult.Yes Then If MyMsg.Show_MessageOKCancel(50105) = MsgBoxResult.Ok Then Me.serienbrief.iBldossier = New SqlInt32(CType(1, Int32)) Else Exit Sub End If Else If MyMsg.Show_MessageOKCancel(50106) = MsgBoxResult.Ok Then Me.serienbrief.iBldossier = New SqlInt32(CType(0, Int32)) Else Exit Sub End If End If Else End If End If Dim dt As New edokadb.clsDokumenttyp() dt.cpMainConnectionProvider = Globals.conn dt.iDokumenttypnr = New SqlInt32(CType(Me.serienbrief.iDokumenttypnr.Value, Int32)) dt.SelectOne() Dim iNichtgeneriert As Integer = 0 Dim dv As DataRow() Dim DR As DataRow dv = Me.dsempfaenger.Tables(0).Select("Status='0' or Status=''") For Each DR In dv iNichtgeneriert = iNichtgeneriert + 1 Next Dim pstep As Double Dim pcount As Integer Dim pval As Double = 0 pcount = iNichtgeneriert pstep = 100 / iNichtgeneriert For Each DR In Me.dsempfaenger.Tables(0).Rows If DR.Item("Status") = 0 Then If dt.bNurnative.Value = False And DR.Item("Partnernr") = "" Then DR.Item("Status") = -1 DR.Item("Fehlercode") = 1 Else If DR.Item("Status") = 0 Then DR.Item("Status") = 1 End If pval = pval + pstep pcount = pcount - 1 SetProgress(pval, "Empfänger bearbeiten (" + pcount.ToString + ")", False) End If Next Me.Generate_Tree() Me.serienbrief.iStatus = New SqlInt32(CType(-1, Int32)) Me.save_data() Me.Funktionen_Freigeben(False) Try DivFnkt.Searchnode1(Me.TVStatus, 1, -99) If DivFnkt.found Then Me.TVStatus.SelectedNode = DivFnkt.FoundNode Catch End Try End Sub #Region "Printing" Private Sub mnuc2printpreview_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles mnuc2printpreview.Click Dim pdfprinting As New clsPDFHandling If pdfprinting.DisplayType = pdfprinting.Enum_DisplayType.EDOKA_Default Then Dim s As String s = Me.TVStatus.SelectedNode.Tag s = s.Substring(4) pdfprinter = New frmSBPDFPrinter(s, True) pdfprinter.Show() Else Dim s As String s = Me.TVStatus.SelectedNode.Tag s = s.Substring(4) pdfprinting.ShowPDF(Get_Druckjob(s)) End If End Sub Dim WithEvents pdfprinter As frmSBPDFPrinter Private Sub mnuc2printjob_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles mnuc2printjob.Click Dim pdfprinting As New clsPDFHandling If pdfprinting.Printtype_Serienbrief = pdfprinting.enum_Printtype.EDOKA_Default Then Dim s As String s = Me.TVStatus.SelectedNode.Tag s = s.Substring(4) pdfprinter = New frmSBPDFPrinter(s, False) pdfprinter.Show() Application.DoEvents() pdfprinter.PrintPDF() End If If pdfprinting.Printtype_Serienbrief = pdfprinting.enum_Printtype.ShowAcrobat Then Dim s As String s = Me.TVStatus.SelectedNode.Tag s = s.Substring(4) Dim Druckjobname As String = get_druckjob(s) If Druckjobname <> "" Then pdfprinting.Print_ShowPDF(Druckjobname) If MsgBox("Sind die Dokumente des Druckstapels erfolgreich gedruckt worden?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then pdfprinter_PrintDOne() End If End If If pdfprinting.Printtype_Serienbrief = pdfprinting.enum_Printtype.PDFPrintingNet Then Dim s As String s = Me.TVStatus.SelectedNode.Tag s = s.Substring(4) Dim Druckjobname As String = get_druckjob(s) If Druckjobname <> "" Then pdfprinting.PrintPDF(get_druckjob(s), 1) If MsgBox("Sind die Dokumente des Druckstapels erfolgreich gedruckt worden?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then pdfprinter_PrintDOne() End If End If End Sub Private Sub pdfprinter_PrintDOne() Handles pdfprinter.PrintDOne Dim s As String s = Me.TVStatus.SelectedNode.Tag s = s.Substring(4) Me.set_druckjobstatus(1, s) set_gedruckt(s) Me.Generate_Tree() If Me.druckjobs.Rows.Count = 0 Then Dim f As New frmDruckabschluss(Me.Serienbriefnr) f.ShowDialog() If f.datasaved Then ' MyMsg.show_standardmessage(723, MsgBoxStyle.Information) Me.On_Load = True Load_Serienbrief(Me.Serienbriefnr) 'Tree Aufbauen Me.TVStatus.Nodes.Clear() Me.Generate_Tree() datachanged = False Me.dsempfaenger.AcceptChanges() Me.On_Load = False End If f.Dispose() End If End Sub Private Sub set_gedruckt(ByVal druckjobid As String) Dim druckjobname As String druckjobname = "" If druckjobid <> "" Then druckjobname = get_druckjobname(druckjobid) End If Dim dr As DataRow() Dim dr1 As DataRow If druckjobname <> "" Then dr = Me.dsempfaenger.Tables(0).Select("Druckjobid='" + druckjobname + "'") Else dr = Me.dsempfaenger.Tables(0).Select("Status='2'") End If For Each dr1 In dr dr1.Item("Status") = 3 Next Me.save_data() End Sub Private Function get_druckjobname(ByVal druckjobid) As String Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim i As Integer Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.sp_edex_sb_get_druckjobname" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@id", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, druckjobid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@druckjobname", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, "")) sdaAdapter.Fill(dtToReturn) Return scmCmdToExecute.Parameters("@druckjobname").Value Catch ex As Exception Return "" Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function Public Function get_druckjob(druckjobnr As Integer) As String Try ''Test BUD 'If m_mitPfadNormal = True Then ' Dim dokumentname2 = m_Pfad ' Me.addressBar.Text = dokumentname2 ' Return True ' Exit Function 'End If Dim dokumentname = Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + druckjobnr.ToString + "_empfaenger.pdf" Dim Connection As New SqlConnection() Dim DA As New SqlDataAdapter("select * from edex_sb_druckjob where druckjobnr=" + druckjobnr.ToString, Connection) Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA) Dim ds As New DataSet() Try Connection.ConnectionString = Globals.sConnectionString Connection.Open() DA.Fill(ds, "empf") Dim myRow As DataRow If ds.Tables(0).Rows.Count = 0 Then MyMsg.show_standardmessage(716, MsgBoxStyle.Critical) Return False Else myRow = ds.Tables(0).Rows(0) Dim MyData() As Byte MyData = myRow.Item(6) Dim K As Long K = UBound(MyData) Dim fs As New FileStream(dokumentname, FileMode.OpenOrCreate, FileAccess.Write) fs.Write(MyData, 0, K) fs.Close() fs = Nothing Return dokumentname End If Catch ex As Exception MyMsg.show_standardmessage(716, MsgBoxStyle.Critical) ' MsgBox(ex.Message) Return "" End Try cb = Nothing ds = Nothing DA = Nothing Connection.Close() Connection = Nothing Return True Catch EX As Exception MyMsg.show_standardmessage(716, MsgBoxStyle.Critical) Return False End Try End Function Private Sub C1Command1_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles C1DruckstapelLoeschen.Click Dim s As String s = Me.TVStatus.SelectedNode.Tag s = s.Substring(4) Me.set_druckjobstatus(3, s) Me.Generate_Tree() ' Me.refresh_data() 'Me.pdfprinter_PrintDOne() End Sub Private Function set_druckjobstatus(ByVal status As Integer, ByVal printjobnr As Integer) As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim i As Integer Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "sp_edex_sb_set_druckjobstatus" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@druckjobnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, printjobnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@status", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, status)) sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception Throw New Exception("sp_check_dokumentreaktivierung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function #End Region Private Sub c1mnupartner1_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles c1mnupartner1.Click Me.mnuaddhost_Click(sender, e) End Sub Private Sub c1mnupartner2_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles c1mnupartner2.Click Me.mnunewedoka_Click(sender, e) End Sub Private Sub c1mnupartner3_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles c1mnupartner3.Click Me.mnunewempfaenger_Click(sender, e) End Sub Private Sub c1mnumainpreview_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles c1mnumainpreview.Click Do While GenerierteDokumente.Count > 0 GenerierteDokumente.Remove(1) Loop Me.empflist.BeginInit() Try Me.Vorschau_Erstellen() If Me.GenerierteDokumente.Count > 0 Then 'Rel 4.1 Vorschau mit Default-Programm (Word) MyMsg.show_standardmessage(724, MsgBoxStyle.Information) Dim i As Integer For i = 1 To GenerierteDokumente.Count 'Rel. 4.1 StartWord(True, GenerierteDokumente.Item(i)) ' Process.Start(GenerierteDokumente.Item(i)) Next ' Dim f As New frmOfficePreview(GenerierteDokumente) 'f.Show() End If Catch ex As Exception MsgBox(ex.Message) Finally Me.empflist.EndInit() End Try End Sub Private Sub mnuc2bestaetigen_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles mnuc2bestaetigen.Click Dim dr As DataRow() Dim dr1 As DataRow Try If Me.TVStatus.SelectedNode.Tag = 2 Or Me.TVStatus.SelectedNode.Tag = 3 Then dr = Me.dsempfaenger.Tables(0).Select("Status='" + Me.TVStatus.SelectedNode.Tag.ToString + "'") Else Dim s As String Dim druckjobname As String s = Me.TVStatus.SelectedNode.Tag s = s.Substring(4) druckjobname = get_druckjobname(s) dr = Me.dsempfaenger.Tables(0).Select("Druckjobid='" + druckjobname + "'") End If Catch Dim s As String Dim druckjobname As String s = Me.TVStatus.SelectedNode.Tag s = s.Substring(4) druckjobname = get_druckjobname(s) dr = Me.dsempfaenger.Tables(0).Select("Druckjobid='" + druckjobname + "'") End Try For Each dr1 In dr dr1.Item("status") = 4 Next Me.save_data() Me.Generate_Tree() End Sub Private Sub frmSerienbriefe_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing If Me.mcbverantwortlich.Enabled = False Then Exit Sub If Me.txtBezeichnung.Text = "" Then Exit Sub End If If Me.serienbrief.iStatus.Value <> 0 Then Exit Sub End If If Me.dsempfaenger.HasChanges = True Or datachanged Then Dim i As MsgBoxResult i = MyMsg.Show_MessageYesNoCancel(721) If i = MsgBoxResult.Cancel Then e.Cancel = True If i = MsgBoxResult.No Then Exit Sub If i = MsgBoxResult.Yes Then Me.save_data() End If End If End Sub Private Sub txtBezeichnung_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtBezeichnung.TextChanged, mcbpostzustellung.TextChanged, mcbteam.TextChanged, mcbunterschriftlinks.TextChanged, mcbunterschriftrechts.TextChanged, mcbzust.TextChanged, RBZustaendigKubedesPartners.CheckedChanged, RBZustaendigZustaendiger.CheckedChanged, DateTimePicker6.ValueChanged, txtBemerkung.TextChanged, mcbverantwortlich.TextChanged If Not On_Load Then Me.datachanged = True End If End Sub Private Sub mcbverantwortlich_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles mcbverantwortlich.SelectedIndexChanged 'Rel 4.03 7 Ausbau der Funktionalität Exit Sub If Me.On_Fill Then Exit Sub If Not On_Load Then If Me.mcbverantwortlich.SelectedValue <> Me.save_verantwortlich Then If MyMsg.Show_MessageYesNo(734) = MsgBoxResult.Yes Then Me.datachanged = True Me.save_data() Me.Funktionen_Freigeben(False) Else Me.mcbverantwortlich.SelectedValue = Me.save_verantwortlich End If End If End If End Sub Private Sub mcbverantwortlich_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles mcbverantwortlich.Leave 'Rel 4.03 7 Funktionalität im Leave-Ereignis ausführen If Me.On_Fill Then Exit Sub If Me.Verantwortlicher_gewechselt = True Then Exit Sub If Not On_Load Then If Me.mcbverantwortlich.SelectedValue <> Me.save_verantwortlich Then If MyMsg.Show_MessageYesNo(734) = MsgBoxResult.Yes Then Me.datachanged = True Me.Verantwortlicher_gewechselt = True Me.save_data() Me.Funktionen_Freigeben(False) Else Me.mcbverantwortlich.SelectedValue = Me.save_verantwortlich End If End If End If End Sub Private Sub mnuc2abschliessen_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles mnuc2abschliessen.Click MnuMainAbschluss_Click(sender, e) End Sub Private Sub C1mnuPartnerdossier_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles C1mnuPartnerdossier.Click Try Dim dokumentid As String Me.Cursor = System.Windows.Forms.Cursors.WaitCursor Dim t As DataTable Try dokumentid = Me.empflist.Columns("Dokumentid").Text Catch dokumentid = "" End Try If dokumentid <> "" Then Dim f1 As New frmSearchDoc() f1.txtbcknr.Text = (dokumentid) f1.Visible = False 'f.Show() f1.Visible = False f1.MdiParent = Me.MdiParent If f1.Show_Doc_ohne_Message = True Then f1.Hide() Exit Sub Else Globals.profilnr = 0 Dim f As New frmTrefferliste() f.MdiParent = Me.MdiParent f.Show() f.Partner_Eingegeben = True f.txtnrpar00.Text = LTrim(Me.empflist.Columns("Partnernr").Value) f.refresh_list() 'f.PosDok(dokumentid, t.Rows(0).Item("dokumentart")) Me.Cursor = System.Windows.Forms.Cursors.Default End If Else Globals.profilnr = 0 Dim f As New frmTrefferliste() f.MdiParent = Me.MdiParent f.Show() f.Partner_Eingegeben = True f.txtnrpar00.Text = LTrim(Me.empflist.Columns("Partnernr").Value) f.refresh_list() 'f.PosDok(dokumentid, t.Rows(0).Item("dokumentart")) Me.Cursor = System.Windows.Forms.Cursors.Default End If Catch End Try End Sub Private Sub statustimer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles statustimer.Tick Me.statustimer.Enabled = False Me.StatusBar1.Text = "" End Sub Private Sub MnuMainDokument_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles MnuMainDokument.Popup DivFnkt.Searchnode1(Me.TVStatus, 0, 99) If DivFnkt.found Then If DivFnkt.FoundNode.Text.Substring(DivFnkt.FoundNode.Text.Length - 3, 3) = "(0)" Then Me.c1mnumainpreview.Enabled = False Else Me.c1mnumainpreview.Enabled = True End If End If End Sub Private Sub C1TrueDBGrid1_FetchCellTips3(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchCellTipsEventArgs) Handles empflist.FetchCellTips Try e.CellTip = "" If Me.empflist.Columns("Status").Value < 1 Then Select Case Me.empflist.Columns("Fehlercode").Text Case 1 e.CellTip = MyTxt.gettext(727) Case 2 e.CellTip = MyTxt.gettext(726) Case 3 e.CellTip = MyTxt.gettext(725) Case 4 e.CellTip = MyTxt.gettext(732) End Select End If If Me.empflist.Columns("Fehlercode").Value = 9 Then If e.CellTip <> "" Then e.CellTip = e.CellTip + "/" + MyTxt.gettext(738) Else e.CellTip = MyTxt.gettext(738) End If End If Catch End Try End Sub Private Function Check_Columnname(ByVal inp As String) As String Dim s As String For Each s In Me.reservedwords If UCase(inp) = UCase(s) Then Return "#Error#" End If Next Select Case Microsoft.VisualBasic.Left(inp, 1) Case "1", "2", "3", "4", "5", "6", "7", "8", "9", "0" Return "#Error#" Case " " Return False If inp.IndexOf("\") > -1 Or _ inp.IndexOf("#") > -1 Or _ inp.IndexOf("/") > -1 Or _ inp.IndexOf(".") > -1 Or _ inp.IndexOf("=") > -1 Or _ inp.IndexOf(",") > -1 Then Return "#Error#" End If End Select inp = inp.Replace(" ", "_") inp = inp.Replace("-", "_") inp = inp.Replace("ö", "oe") inp = inp.Replace("Ö", "OE") inp = inp.Replace("ü", "ue") inp = inp.Replace("Ü", "UE") inp = inp.Replace("ä", "ae") inp = inp.Replace("Ä", "AE") Return inp End Function Private Function Load_Reserved_Words() Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim i As Integer Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.sp_edex_sb_load_reserved_Words" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection Try sdaAdapter.Fill(dtToReturn) For i = 0 To dtToReturn.Rows.Count - 1 Me.reservedwords.Add(dtToReturn.Rows(i).Item(0)) Next Catch ex As Exception Throw New Exception("sp_check_dokumentreaktivierung::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function Private Sub BtnHelp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHelp.Click Globals.HTMLHelp.ShowHelpToc("serienbriefe1") End Sub Private Sub C1mnuPersVorlageSave_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles C1mnuPersVorlageSave.Click Dim dokumentname = Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + Me.Serienbriefnr.ToString + "_empfaenger_vorlage.xml" 'Rel. Office 2010 Dim vorlagenname = Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + Serienbriefnr.ToString + "_vorlage.docx" Me.Vorlage_Auslesen(Me.Serienbriefnr, vorlagenname) Try Dim s As String s = InputBox("Bitte geben Sie einen Name für das Serienbrief-Muster ein.", "Serienbrief-Muster speichern") If s = "" Then Exit Sub Dim tmpds As New DataSet() Dim i As Integer For i = 0 To Me.dsempfaenger.Tables.Count - 1 tmpds.Tables.Add(Me.dsempfaenger.Tables(i).Copy) Next tmpds.Tables(0).Rows.Clear() Dim tmpdrow As DataRow tmpdrow = tmpds.Tables(0).NewRow For i = 0 To tmpds.Tables(0).Columns.Count - 1 tmpdrow.Item(i) = " " Next tmpds.Tables(0).Rows.Add(tmpdrow) tmpds.WriteXml(dokumentname) Dim Connection As New SqlConnection() Dim DA As New SqlDataAdapter("select * from edex_sb_persvorlage where persvorlagenr=0", Connection) Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA) Dim ds As New DataSet() Dim fs As New FileStream(dokumentname, FileMode.Open, FileAccess.Read) Dim fs1 As New FileStream(vorlagenname, FileMode.Open, FileAccess.Read) Dim mydata(fs.Length) As Byte Dim mydata1(fs1.Length) As Byte Try fs.Read(mydata, 0, fs.Length) fs.Close() fs1.Read(mydata1, 0, fs1.Length) fs1.Close() Connection.ConnectionString = Globals.sConnectionString Connection.Open() DA.Fill(ds, "persvorlage") Dim myRow As DataRow If ds.Tables(0).Rows.Count = 0 Then 'Neue Serienbrief_Empfaenger speichern myRow = ds.Tables(0).NewRow myRow.Item(1) = Globals.MitarbeiterNr myRow.Item(2) = s myRow.Item(3) = Now myRow.Item(4) = Now myRow.Item(5) = 1 myRow.Item(6) = mydata myRow.Item(7) = mydata1 myRow.Item(8) = Me.Dokumenttypnr ds.Tables(0).Rows.Add(myRow) DA.Update(ds, "persvorlage") End If Catch ex As Exception MyMsg.show_standardmessage(700, MsgBoxStyle.Critical) Finally File.Delete(dokumentname) End Try fs = Nothing cb = Nothing ds = Nothing DA = Nothing Connection.Close() Connection = Nothing Catch ex As Exception Finally Try File.Delete(dokumentname) Catch End Try Try File.Delete(vorlagenname) Catch End Try End Try End Sub Private Sub C1MnuPersSbLoad_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles C1MnuPersSbLoad.Click Dim f As New frmpersvorlageladen(Me.Dokumenttypnr) f.ShowDialog() If f.PersVorlageNr <> 0 Then load_persvorlage(f.PersVorlageNr) End If f.Dispose() End Sub Private Sub load_persvorlage(ByVal persvorlagenr As Integer) Try Me.dsempfaenger.Tables.Clear() Dim dokumentname = Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + Me.Serienbriefnr.ToString + "_empfaenger_vorlage.xml" 'Rel. Office 2010 Dim vorlagenname = Globals.Applikationsdaten.Rows(0).Item("pfad_temporaer_dokumente") + Serienbriefnr.ToString + "_vorlage.docx" Me.dsempfaenger.Tables.Clear() Dim Connection As New SqlConnection() Dim DA As New SqlDataAdapter("select * from edex_sb_persvorlage where persvorlagenr=" + persvorlagenr.ToString, Connection) Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA) Dim ds As New DataSet() Try Connection.ConnectionString = Globals.sConnectionString Connection.Open() DA.Fill(ds, "empf") Dim myRow As DataRow If ds.Tables(0).Rows.Count = 0 Then MyMsg.show_standardmessage(701, MsgBoxStyle.Critical) Else myRow = ds.Tables(0).Rows(0) Dim MyData() As Byte MyData = myRow.Item(6) Dim K As Long K = UBound(MyData) Dim fs As New FileStream(dokumentname, FileMode.OpenOrCreate, FileAccess.Write) fs.Write(MyData, 0, K) fs.Close() fs = Nothing Me.dsempfaenger.ReadXml(dokumentname) Dim k1 As Long MyData = myRow.Item(7) K = UBound(MyData) Dim fs1 As New FileStream(vorlagenname, FileMode.OpenOrCreate, FileAccess.Write) fs1.Write(MyData, 0, K) fs1.Close() fs1 = Nothing Me.Vorlage_Speichern(vorlagenname) End If Catch ex As Exception MyMsg.show_standardmessage(701, MsgBoxStyle.Critical) Finally File.Delete(dokumentname) End Try cb = Nothing ds = Nothing DA = Nothing Connection.Close() Connection = Nothing Me.dsempfaenger.Tables(0).Rows.Clear() Me.save_empfaenger() Me.Load_data() Me.SetProgress(100, "Vorlage laden", True) Me.Generate_Tree() Catch EX As Exception MyMsg.show_standardmessage(701, MsgBoxStyle.Critical) End Try End Sub 'Rel 4.03 5: Nächstes Run-Datetime ab BMS lesen Private Function Get_Next_SBGen() As DateTime Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim i As Integer Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.sp_edex_sb_get_next_sbgen" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@nextrundate", SqlDbType.DateTime, 8, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, Now)) sdaAdapter.Fill(dtToReturn) Return scmCmdToExecute.Parameters("@nextrundate").Value Catch ex As Exception Throw New Exception("sp_edex_sb_get_next_sbgen::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() dtToReturn.Dispose() sdaAdapter.Dispose() End Try End Function Private Sub Textmarken_Preview(ByVal Dokumentname As String, ByVal bp As Integer) Handles fTextMarken.Vorschau SetProgress(10, "Verarbeitung initialisieren", False) Do While GenerierteDokumente.Count > 0 GenerierteDokumente.Remove(1) Loop Dim saveempfaenger As New DataSet() Dim TMPDT As New DataTable() Dim i, i1 As Integer saveempfaenger = Me.dsempfaenger.Copy Dim dt As New DataTable() dt = Me.dsempfaenger.Tables(0).Copy dt.Rows.Clear() Dim rowval As DataRow Dim empflistdata As New DataTable empflistdata = empflist.DataSource For Each r As DataRow In empflistdata.Rows If r.Item("Partnernr") = bp Then rowval = dt.NewRow For i1 = 0 To empflistdata.Columns.Count - 1 Try rowval(i1) = r.Item(i1) Catch ex As Exception End Try Next dt.Rows.Add(rowval) 'For i1 = 0 To Me.empflist.Columns.Count - 1 ' Try ' rowval(i1) = Me.empflistdata.Columns(i1).Value ' Catch ' End Try 'Next 'dt.Rows.Add(rowval) End If Next 'For i = 0 To Me.empflist.Splits(0).Rows.Count - 1 ' Me.empflist.Bookmark = i + 1 ' If Me.empflist.Columns("Partnernr").Value = bp Then ' rowval = dt.NewRow ' For i1 = 0 To Me.empflist.Columns.Count - 1 ' Try ' rowval(i1) = Me.empflist.Columns(i1).Value ' Catch ' End Try ' Next ' dt.Rows.Add(rowval) ' End If 'Next 'If Me.empflist.SelectedRows.Count > 0 Then ' For i = 0 To Me.empflist.SelectedRows.Count - 1 ' rowval = dt.NewRow ' For i1 = 0 To Me.empflist.Columns.Count - 1 ' Me.empflist.Row = Me.empflist.SelectedRows(i) ' rowval(i1) = Me.empflist.Columns(i1).Value ' Next ' dt.Rows.Add(rowval) ' Next 'Else ' rowval = dt.NewRow ' For i1 = 0 To Me.empflist.Columns.Count - 1 ' Try ' rowval(i1) = Me.empflist.Columns(i1).Value ' Catch ' End Try ' Next ' dt.Rows.Add(rowval) 'End If Dim cm As CurrencyManager Me.dsempfaenger.Tables(0).Rows.Clear() For i = 0 To dt.Rows.Count - 1 Try Me.dsempfaenger.Tables(0).ImportRow(dt.Rows(i)) Catch ex As Exception Dim a As Integer = 1 End Try Next clsempf = New clsEmpfaengerdata(Me.dsempfaenger, Me.Serienbriefnr) ' Dim clsempf As New clsEmpfaengerdata(Me.dsempfaenger, Me.Serienbriefnr) SetProgress(10, "Daten zusammenstellen", False) vorlagendaten = clsempf.Vorlagendaten_aufbreiten() SetProgress(30, "Dokumente generieren", False) Me.Dokumente_Generieren(Dokumentname) SetProgress(100, "Vorschau erstellt", True) Me.objword.Visible = True If objword.Documents.Count < 1 Then objword.Quit(SaveChanges:=False) End If Me.objword = Nothing Me.dsempfaenger = saveempfaenger.Copy Me.empflist.DataSource = Nothing Me.empflist.DataMember = Nothing Me.empflist.DataSource = Me.dsempfaenger.Tables(0) Me.empflist.DataMember = Me.dsempfaenger.Tables(0).TableName Me.empflist.Refresh() Me.empflist.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.Extended Me.Load_Layout() SetProgress(100, "Vorschau erstellt", True) clsempf = Nothing If Me.GenerierteDokumente.Count > 0 Then 'Rel 4.1 Vorschau mit Default-Programm (Word) ' MyMsg.show_standardmessage(724, MsgBoxStyle.Information) For i = 1 To GenerierteDokumente.Count StartWord(True, GenerierteDokumente.Item(i)) 'Process.Start(GenerierteDokumente.Item(i)) Next ' Dim f As New frmOfficePreview(GenerierteDokumente) 'f.Show() End If End Sub Private Function StartWord(Optional ByVal newinstance As Boolean = False, Optional ByVal filename As String = "") Try If Globals.Office_2010_Always_New_Word = True Then objword = CreateObject("Word.Application") Else objword = GetObject(, "Word.Application") objword.Application.Options.SaveInterval = 0 End If Catch Try objword = CreateObject("Word.Application") objword.Application.Options.SaveInterval = 0 Catch ex As Exception MsgBox(ex.Message) End Try Finally objword.Visible = True End Try Try If Globals.Office_2010_Word_Autoexec = True Then Thread.Sleep(Globals.Office_2010_Word_Start_Delay) objword.Run("Autoexec") Else Try Dim addinfile As String = DivFnkt.XML_Param("TKBMakroLib") Thread.Sleep(Globals.Office_2010_Word_Start_Delay) If addinfile <> "" Then objword.AddIns.Add(addinfile) Catch ex As Exception MsgBox(ex.Message) End Try End If Catch ex As Exception DivFnkt.TraceLog("-----------Fehler Autoexec Ende") End Try 'Try ' If newinstance = False Then ' objword = GetObject(, "Word.application") ' Else ' objword = CreateObject("Word.application") ' End If 'Catch ' Try ' objword = CreateObject("Word.application") ' Catch ex As Exception ' End Try 'Finally ' objword.Visible = True 'End Try 'Try ' If Globals.Office_2010_Word_Autoexec = True Then ' Thread.Sleep(Globals.Office_2010_Word_Start_Delay) ' objword.Run("Autoexec") ' Else ' Try ' Dim addinfile As String = DivFnkt.XML_Param("TKBMakroLib") ' Thread.Sleep(Globals.Office_2010_Word_Start_Delay) ' If addinfile <> "" Then objword.AddIns.Add(addinfile) ' Catch ' End Try ' End If ' ' objword.Run("Autoexec") 'Catch 'End Try Try If filename <> "" Then 'Rel. Office 2010 Dim filenamenew As String = filename + "_" + Format(Now, "yyyyMMddHHmmss") + System.IO.Path.GetExtension(filename) File.Move(filename, filenamenew) objword.Documents.Open(filenamenew, , True) Thread.Sleep(Globals.Office_2010_Word_Start_Delay) If objword.ActiveWindow.View.SplitSpecial = Microsoft.Office.Interop.Word.WdSpecialPane.wdPaneNone Then objword.ActiveWindow.ActivePane.View.Type = Microsoft.Office.Interop.Word.WdViewType.wdPrintView Else objword.ActiveWindow.View.Type = Microsoft.Office.Interop.Word.WdViewType.wdPrintView End If End If Catch ex As Exception End Try End Function End Class