You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
7816 lines
343 KiB
7816 lines
343 KiB
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
|
|
<System.Diagnostics.DebuggerStepThrough()> 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
|