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.
949 lines
46 KiB
949 lines
46 KiB
Imports System.Data
|
|
Imports System.Data.SqlClient
|
|
Imports System.Data.SqlTypes
|
|
Imports System.IO
|
|
Public Class frmsbdruck
|
|
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 C1CommandHolder1 As C1.Win.C1Command.C1CommandHolder
|
|
Friend WithEvents MnuMainDatei As C1.Win.C1Command.C1CommandMenu
|
|
Friend WithEvents C1MnuMainNeuerSerienbrief As C1.Win.C1Command.C1CommandLink
|
|
Friend WithEvents MnuMainNew As C1.Win.C1Command.C1Command
|
|
Friend WithEvents C1MnuMainSerienbriefLaden As C1.Win.C1Command.C1CommandLink
|
|
Friend WithEvents MnuMainLoad As C1.Win.C1Command.C1Command
|
|
Friend WithEvents C1MnuSerienbriefLoeschen As C1.Win.C1Command.C1CommandLink
|
|
Friend WithEvents MnuMainSerienbriefLoeschen As C1.Win.C1Command.C1Command
|
|
Friend WithEvents C1MnuMainSerienbriefabschliessen As C1.Win.C1Command.C1CommandLink
|
|
Friend WithEvents MnuMainAbschluss As C1.Win.C1Command.C1Command
|
|
Friend WithEvents C1MnuMainSerienbriefSpeichern As C1.Win.C1Command.C1CommandLink
|
|
Friend WithEvents MnuMainSave As C1.Win.C1Command.C1Command
|
|
Friend WithEvents C1MnuMainFensterSchliessen As C1.Win.C1Command.C1CommandLink
|
|
Friend WithEvents MnuMainClose As C1.Win.C1Command.C1Command
|
|
Friend WithEvents MnuMainDokument As C1.Win.C1Command.C1CommandMenu
|
|
Friend WithEvents C1MnuMainVorlageImportieren As C1.Win.C1Command.C1CommandLink
|
|
Friend WithEvents MnuMainVorlageImportieren As C1.Win.C1Command.C1Command
|
|
Friend WithEvents C1MnuMainVorlageBearbeiten As C1.Win.C1Command.C1CommandLink
|
|
Friend WithEvents MnuMainVorageBearbeiten As C1.Win.C1Command.C1Command
|
|
Friend WithEvents C1MnuMainVorschauErstellen As C1.Win.C1Command.C1CommandLink
|
|
Friend WithEvents MnuMainVorschauErstellen As C1.Win.C1Command.C1Command
|
|
Friend WithEvents C1MnuDokumenteGenerieren As C1.Win.C1Command.C1CommandLink
|
|
Friend WithEvents MnuMainDokumenteGenerieren As C1.Win.C1Command.C1Command
|
|
Friend WithEvents C1MnuMainDokumenteDrucken As C1.Win.C1Command.C1CommandLink
|
|
Friend WithEvents MnuMainDokumenteDrucken As C1.Win.C1Command.C1Command
|
|
Friend WithEvents C1MnuMainDokumenteBestaetigen As C1.Win.C1Command.C1CommandLink
|
|
Friend WithEvents MnuMainDokumenteBestaetigen As C1.Win.C1Command.C1Command
|
|
Friend WithEvents MnuMainEmpfaengerliste As C1.Win.C1Command.C1CommandMenu
|
|
Friend WithEvents C1MnuEDOKAHOSTPartnerHinzufuegen As C1.Win.C1Command.C1CommandLink
|
|
Friend WithEvents MnuMainAddEDOKAHOSTPartner As C1.Win.C1Command.C1Command
|
|
Friend WithEvents C1MnuMainEDOKAPartnerErfassen As C1.Win.C1Command.C1CommandLink
|
|
Friend WithEvents MnuMainNeuerEDOKAPartnerErfassen As C1.Win.C1Command.C1Command
|
|
Friend WithEvents C1MnuMainNeuerEmpfaengerErfassen As C1.Win.C1Command.C1CommandLink
|
|
Friend WithEvents MnuMainNeuerEmpfaengerErfassen As C1.Win.C1Command.C1Command
|
|
Friend WithEvents C1MnuMainEmpfaengerBearbeitten As C1.Win.C1Command.C1CommandLink
|
|
Friend WithEvents MnuMainEmpfaengerBearbeiten As C1.Win.C1Command.C1Command
|
|
Friend WithEvents C1MnuMainEmpfaengerLoeschen As C1.Win.C1Command.C1CommandLink
|
|
Friend WithEvents MnuMainEmfpaengerLoeschen As C1.Win.C1Command.C1Command
|
|
Friend WithEvents C1MnuEDOKAPartnerErfassen As C1.Win.C1Command.C1CommandLink
|
|
Friend WithEvents MnuMainEDOKAPartnerErfassen As C1.Win.C1Command.C1Command
|
|
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 C1MnuMainCheckEmpfaenger As C1.Win.C1Command.C1CommandLink
|
|
Friend WithEvents MnuMainCheckEmpfaenger As C1.Win.C1Command.C1Command
|
|
Friend WithEvents C1CommandMenu1 As C1.Win.C1Command.C1CommandMenu
|
|
Friend WithEvents C1MnuMainAddColumn As C1.Win.C1Command.C1CommandLink
|
|
Friend WithEvents MnuMainAddColumn As C1.Win.C1Command.C1Command
|
|
Friend WithEvents C1MnuMainDeleteColumn As C1.Win.C1Command.C1CommandLink
|
|
Friend WithEvents MnuMainDeleteColumn As C1.Win.C1Command.C1Command
|
|
Friend WithEvents C1MnuMainRenameColumn As C1.Win.C1Command.C1CommandLink
|
|
Friend WithEvents MnuMainRenameColumn As C1.Win.C1Command.C1Command
|
|
Friend WithEvents C1MnuMainSpaltenselektion As C1.Win.C1Command.C1CommandLink
|
|
Friend WithEvents MnuMainSpaltenselektion As C1.Win.C1Command.C1Command
|
|
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 C1CommandLink1 As C1.Win.C1Command.C1CommandLink
|
|
Friend WithEvents c1dokumentedrucken As C1.Win.C1Command.C1Command
|
|
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
|
Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
|
|
Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents djlist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents C1CommandLink2 As C1.Win.C1Command.C1CommandLink
|
|
Friend WithEvents c1statuszuruecksetzen As C1.Win.C1Command.C1Command
|
|
Friend WithEvents C1CommandLink3 As C1.Win.C1Command.C1CommandLink
|
|
Friend WithEvents c1showdoc As C1.Win.C1Command.C1Command
|
|
Friend WithEvents C1CommandLink4 As C1.Win.C1Command.C1CommandLink
|
|
Friend WithEvents c1deldok As C1.Win.C1Command.C1Command
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Me.components = New System.ComponentModel.Container()
|
|
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmsbdruck))
|
|
Dim GridLines1 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
|
|
Me.C1CommandHolder1 = New C1.Win.C1Command.C1CommandHolder()
|
|
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.C1MnuMainVorschauErstellen = New C1.Win.C1Command.C1CommandLink()
|
|
Me.MnuMainVorschauErstellen = New C1.Win.C1Command.C1Command()
|
|
Me.C1MnuDokumenteGenerieren = New C1.Win.C1Command.C1CommandLink()
|
|
Me.MnuMainDokumenteGenerieren = New C1.Win.C1Command.C1Command()
|
|
Me.C1MnuMainDokumenteDrucken = New C1.Win.C1Command.C1CommandLink()
|
|
Me.MnuMainDokumenteDrucken = New C1.Win.C1Command.C1Command()
|
|
Me.C1MnuMainDokumenteBestaetigen = New C1.Win.C1Command.C1CommandLink()
|
|
Me.MnuMainDokumenteBestaetigen = New C1.Win.C1Command.C1Command()
|
|
Me.MnuMainEmpfaengerliste = New C1.Win.C1Command.C1CommandMenu()
|
|
Me.C1MnuEDOKAHOSTPartnerHinzufuegen = New C1.Win.C1Command.C1CommandLink()
|
|
Me.MnuMainAddEDOKAHOSTPartner = New C1.Win.C1Command.C1Command()
|
|
Me.C1MnuMainEDOKAPartnerErfassen = New C1.Win.C1Command.C1CommandLink()
|
|
Me.MnuMainNeuerEDOKAPartnerErfassen = New C1.Win.C1Command.C1Command()
|
|
Me.C1MnuMainNeuerEmpfaengerErfassen = New C1.Win.C1Command.C1CommandLink()
|
|
Me.MnuMainNeuerEmpfaengerErfassen = New C1.Win.C1Command.C1Command()
|
|
Me.C1MnuMainEmpfaengerBearbeitten = New C1.Win.C1Command.C1CommandLink()
|
|
Me.MnuMainEmpfaengerBearbeiten = New C1.Win.C1Command.C1Command()
|
|
Me.C1MnuMainEmpfaengerLoeschen = New C1.Win.C1Command.C1CommandLink()
|
|
Me.MnuMainEmfpaengerLoeschen = New C1.Win.C1Command.C1Command()
|
|
Me.C1MnuEDOKAPartnerErfassen = New C1.Win.C1Command.C1CommandLink()
|
|
Me.MnuMainEDOKAPartnerErfassen = New C1.Win.C1Command.C1Command()
|
|
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.C1MnuMainCheckEmpfaenger = New C1.Win.C1Command.C1CommandLink()
|
|
Me.MnuMainCheckEmpfaenger = 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.mnuctAddHost = New C1.Win.C1Command.C1Command()
|
|
Me.mnuCTADDEdokapartner = New C1.Win.C1Command.C1Command()
|
|
Me.mnuctaddempfaenger = New C1.Win.C1Command.C1Command()
|
|
Me.C1ContextMenu1 = New C1.Win.C1Command.C1ContextMenu()
|
|
Me.C1CommandLink1 = New C1.Win.C1Command.C1CommandLink()
|
|
Me.c1dokumentedrucken = New C1.Win.C1Command.C1Command()
|
|
Me.C1CommandLink3 = New C1.Win.C1Command.C1CommandLink()
|
|
Me.c1showdoc = New C1.Win.C1Command.C1Command()
|
|
Me.C1CommandLink2 = New C1.Win.C1Command.C1CommandLink()
|
|
Me.c1statuszuruecksetzen = New C1.Win.C1Command.C1Command()
|
|
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
|
Me.ToolBar1 = New System.Windows.Forms.ToolBar()
|
|
Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton()
|
|
Me.djlist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
|
Me.C1CommandLink4 = New C1.Win.C1Command.C1CommandLink()
|
|
Me.c1deldok = New C1.Win.C1Command.C1Command()
|
|
CType(Me.C1CommandHolder1, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
CType(Me.djlist, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.SuspendLayout()
|
|
'
|
|
'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.c1dokumentedrucken)
|
|
Me.C1CommandHolder1.Commands.Add(Me.c1statuszuruecksetzen)
|
|
Me.C1CommandHolder1.Commands.Add(Me.c1showdoc)
|
|
Me.C1CommandHolder1.Commands.Add(Me.c1deldok)
|
|
Me.C1CommandHolder1.ImageList = Me.ImageList1
|
|
Me.C1CommandHolder1.Owner = Me
|
|
Me.C1CommandHolder1.SmoothImages = False
|
|
'
|
|
'MnuMainDatei
|
|
'
|
|
Me.MnuMainDatei.CommandLinks.Add(Me.C1MnuMainNeuerSerienbrief)
|
|
Me.MnuMainDatei.CommandLinks.Add(Me.C1MnuMainSerienbriefLaden)
|
|
Me.MnuMainDatei.CommandLinks.Add(Me.C1MnuSerienbriefLoeschen)
|
|
Me.MnuMainDatei.CommandLinks.Add(Me.C1MnuMainSerienbriefabschliessen)
|
|
Me.MnuMainDatei.CommandLinks.Add(Me.C1MnuMainSerienbriefSpeichern)
|
|
Me.MnuMainDatei.CommandLinks.Add(Me.C1MnuMainFensterSchliessen)
|
|
Me.MnuMainDatei.Image = Nothing
|
|
Me.MnuMainDatei.Name = "MnuMainDatei"
|
|
Me.MnuMainDatei.Text = "&Datei"
|
|
'
|
|
'C1MnuMainNeuerSerienbrief
|
|
'
|
|
Me.C1MnuMainNeuerSerienbrief.Command = Me.MnuMainNew
|
|
Me.C1MnuMainNeuerSerienbrief.Text = "&Neuer Serienbrief"
|
|
'
|
|
'MnuMainNew
|
|
'
|
|
Me.MnuMainNew.Image = Nothing
|
|
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.Image = Nothing
|
|
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.Image = Nothing
|
|
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.Image = Nothing
|
|
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.Image = Nothing
|
|
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.Image = CType(resources.GetObject("MnuMainClose.Image"), System.Drawing.Bitmap)
|
|
Me.MnuMainClose.ImageIndex = 0
|
|
Me.MnuMainClose.Name = "MnuMainClose"
|
|
Me.MnuMainClose.Text = "&Fenster schliessen"
|
|
'
|
|
'MnuMainDokument
|
|
'
|
|
Me.MnuMainDokument.CommandLinks.Add(Me.C1MnuMainVorlageImportieren)
|
|
Me.MnuMainDokument.CommandLinks.Add(Me.C1MnuMainVorlageBearbeiten)
|
|
Me.MnuMainDokument.CommandLinks.Add(Me.C1MnuMainVorschauErstellen)
|
|
Me.MnuMainDokument.CommandLinks.Add(Me.C1MnuDokumenteGenerieren)
|
|
Me.MnuMainDokument.CommandLinks.Add(Me.C1MnuMainDokumenteDrucken)
|
|
Me.MnuMainDokument.CommandLinks.Add(Me.C1MnuMainDokumenteBestaetigen)
|
|
Me.MnuMainDokument.Image = Nothing
|
|
Me.MnuMainDokument.Name = "MnuMainDokument"
|
|
Me.MnuMainDokument.Text = "Dokument"
|
|
'
|
|
'C1MnuMainVorlageImportieren
|
|
'
|
|
Me.C1MnuMainVorlageImportieren.Command = Me.MnuMainVorlageImportieren
|
|
Me.C1MnuMainVorlageImportieren.Text = "Vorlage &importieren"
|
|
'
|
|
'MnuMainVorlageImportieren
|
|
'
|
|
Me.MnuMainVorlageImportieren.Image = Nothing
|
|
Me.MnuMainVorlageImportieren.Name = "MnuMainVorlageImportieren"
|
|
Me.MnuMainVorlageImportieren.Text = "Vorlage &importieren"
|
|
'
|
|
'C1MnuMainVorlageBearbeiten
|
|
'
|
|
Me.C1MnuMainVorlageBearbeiten.Command = Me.MnuMainVorageBearbeiten
|
|
Me.C1MnuMainVorlageBearbeiten.Text = "Vorlage &bearbeiten"
|
|
'
|
|
'MnuMainVorageBearbeiten
|
|
'
|
|
Me.MnuMainVorageBearbeiten.Image = Nothing
|
|
Me.MnuMainVorageBearbeiten.ImageIndex = 25
|
|
Me.MnuMainVorageBearbeiten.Name = "MnuMainVorageBearbeiten"
|
|
Me.MnuMainVorageBearbeiten.Text = "Vorlage &bearbeiten"
|
|
'
|
|
'C1MnuMainVorschauErstellen
|
|
'
|
|
Me.C1MnuMainVorschauErstellen.Command = Me.MnuMainVorschauErstellen
|
|
Me.C1MnuMainVorschauErstellen.Delimiter = True
|
|
Me.C1MnuMainVorschauErstellen.Text = "Vorschau erstellen"
|
|
'
|
|
'MnuMainVorschauErstellen
|
|
'
|
|
Me.MnuMainVorschauErstellen.Image = Nothing
|
|
Me.MnuMainVorschauErstellen.ImageIndex = 26
|
|
Me.MnuMainVorschauErstellen.Name = "MnuMainVorschauErstellen"
|
|
Me.MnuMainVorschauErstellen.Text = "Vorschau erstellen"
|
|
'
|
|
'C1MnuDokumenteGenerieren
|
|
'
|
|
Me.C1MnuDokumenteGenerieren.Command = Me.MnuMainDokumenteGenerieren
|
|
Me.C1MnuDokumenteGenerieren.Delimiter = True
|
|
Me.C1MnuDokumenteGenerieren.Text = "Dokumente &generieren"
|
|
'
|
|
'MnuMainDokumenteGenerieren
|
|
'
|
|
Me.MnuMainDokumenteGenerieren.Image = Nothing
|
|
Me.MnuMainDokumenteGenerieren.ImageIndex = 15
|
|
Me.MnuMainDokumenteGenerieren.Name = "MnuMainDokumenteGenerieren"
|
|
Me.MnuMainDokumenteGenerieren.Text = "Dokumente &generieren"
|
|
'
|
|
'C1MnuMainDokumenteDrucken
|
|
'
|
|
Me.C1MnuMainDokumenteDrucken.Command = Me.MnuMainDokumenteDrucken
|
|
Me.C1MnuMainDokumenteDrucken.Text = "Dokumente &drucken"
|
|
'
|
|
'MnuMainDokumenteDrucken
|
|
'
|
|
Me.MnuMainDokumenteDrucken.Image = Nothing
|
|
Me.MnuMainDokumenteDrucken.ImageIndex = 14
|
|
Me.MnuMainDokumenteDrucken.Name = "MnuMainDokumenteDrucken"
|
|
Me.MnuMainDokumenteDrucken.Text = "Dokumente &drucken"
|
|
'
|
|
'C1MnuMainDokumenteBestaetigen
|
|
'
|
|
Me.C1MnuMainDokumenteBestaetigen.Command = Me.MnuMainDokumenteBestaetigen
|
|
Me.C1MnuMainDokumenteBestaetigen.Text = "Generierte Dokumente bestätigen"
|
|
'
|
|
'MnuMainDokumenteBestaetigen
|
|
'
|
|
Me.MnuMainDokumenteBestaetigen.Image = Nothing
|
|
Me.MnuMainDokumenteBestaetigen.ImageIndex = 13
|
|
Me.MnuMainDokumenteBestaetigen.Name = "MnuMainDokumenteBestaetigen"
|
|
Me.MnuMainDokumenteBestaetigen.Text = "Generierte Dokumente bestätigen"
|
|
'
|
|
'MnuMainEmpfaengerliste
|
|
'
|
|
Me.MnuMainEmpfaengerliste.CommandLinks.Add(Me.C1MnuEDOKAHOSTPartnerHinzufuegen)
|
|
Me.MnuMainEmpfaengerliste.CommandLinks.Add(Me.C1MnuMainEDOKAPartnerErfassen)
|
|
Me.MnuMainEmpfaengerliste.CommandLinks.Add(Me.C1MnuMainNeuerEmpfaengerErfassen)
|
|
Me.MnuMainEmpfaengerliste.CommandLinks.Add(Me.C1MnuMainEmpfaengerBearbeitten)
|
|
Me.MnuMainEmpfaengerliste.CommandLinks.Add(Me.C1MnuMainEmpfaengerLoeschen)
|
|
Me.MnuMainEmpfaengerliste.CommandLinks.Add(Me.C1MnuEDOKAPartnerErfassen)
|
|
Me.MnuMainEmpfaengerliste.CommandLinks.Add(Me.C1MnuMainImportEmpfaneger)
|
|
Me.MnuMainEmpfaengerliste.CommandLinks.Add(Me.C1MnuMainExportEmpfaenger)
|
|
Me.MnuMainEmpfaengerliste.CommandLinks.Add(Me.C1MnuMainLoadPartnerliste)
|
|
Me.MnuMainEmpfaengerliste.CommandLinks.Add(Me.C1MnuMainSaveAsPartnerlist)
|
|
Me.MnuMainEmpfaengerliste.CommandLinks.Add(Me.C1MnuMainCheckEmpfaenger)
|
|
Me.MnuMainEmpfaengerliste.Image = Nothing
|
|
Me.MnuMainEmpfaengerliste.Name = "MnuMainEmpfaengerliste"
|
|
Me.MnuMainEmpfaengerliste.Text = "Empfängerliste"
|
|
'
|
|
'C1MnuEDOKAHOSTPartnerHinzufuegen
|
|
'
|
|
Me.C1MnuEDOKAHOSTPartnerHinzufuegen.Command = Me.MnuMainAddEDOKAHOSTPartner
|
|
Me.C1MnuEDOKAHOSTPartnerHinzufuegen.Text = "EDOKA-/HOST-Partner hinzufügen"
|
|
'
|
|
'MnuMainAddEDOKAHOSTPartner
|
|
'
|
|
Me.MnuMainAddEDOKAHOSTPartner.Image = Nothing
|
|
Me.MnuMainAddEDOKAHOSTPartner.ImageIndex = 16
|
|
Me.MnuMainAddEDOKAHOSTPartner.Name = "MnuMainAddEDOKAHOSTPartner"
|
|
Me.MnuMainAddEDOKAHOSTPartner.Shortcut = System.Windows.Forms.Shortcut.CtrlP
|
|
Me.MnuMainAddEDOKAHOSTPartner.Text = "EDOKA-/HOST-Partner hinzufügen"
|
|
'
|
|
'C1MnuMainEDOKAPartnerErfassen
|
|
'
|
|
Me.C1MnuMainEDOKAPartnerErfassen.Command = Me.MnuMainNeuerEDOKAPartnerErfassen
|
|
Me.C1MnuMainEDOKAPartnerErfassen.Text = "&Neuer EDOKA-Partner erfassen"
|
|
'
|
|
'MnuMainNeuerEDOKAPartnerErfassen
|
|
'
|
|
Me.MnuMainNeuerEDOKAPartnerErfassen.Image = Nothing
|
|
Me.MnuMainNeuerEDOKAPartnerErfassen.ImageIndex = 18
|
|
Me.MnuMainNeuerEDOKAPartnerErfassen.Name = "MnuMainNeuerEDOKAPartnerErfassen"
|
|
Me.MnuMainNeuerEDOKAPartnerErfassen.Shortcut = System.Windows.Forms.Shortcut.CtrlN
|
|
Me.MnuMainNeuerEDOKAPartnerErfassen.Text = "&Neuer EDOKA-Partner erfassen"
|
|
'
|
|
'C1MnuMainNeuerEmpfaengerErfassen
|
|
'
|
|
Me.C1MnuMainNeuerEmpfaengerErfassen.Command = Me.MnuMainNeuerEmpfaengerErfassen
|
|
Me.C1MnuMainNeuerEmpfaengerErfassen.Text = "Neuer E&mpfänger erfassen"
|
|
'
|
|
'MnuMainNeuerEmpfaengerErfassen
|
|
'
|
|
Me.MnuMainNeuerEmpfaengerErfassen.Image = Nothing
|
|
Me.MnuMainNeuerEmpfaengerErfassen.ImageIndex = 19
|
|
Me.MnuMainNeuerEmpfaengerErfassen.Name = "MnuMainNeuerEmpfaengerErfassen"
|
|
Me.MnuMainNeuerEmpfaengerErfassen.Shortcut = System.Windows.Forms.Shortcut.CtrlE
|
|
Me.MnuMainNeuerEmpfaengerErfassen.Text = "Neuer E&mpfänger erfassen"
|
|
'
|
|
'C1MnuMainEmpfaengerBearbeitten
|
|
'
|
|
Me.C1MnuMainEmpfaengerBearbeitten.Command = Me.MnuMainEmpfaengerBearbeiten
|
|
Me.C1MnuMainEmpfaengerBearbeitten.Delimiter = True
|
|
Me.C1MnuMainEmpfaengerBearbeitten.Text = "Markierter Empfänger bearbeiten"
|
|
'
|
|
'MnuMainEmpfaengerBearbeiten
|
|
'
|
|
Me.MnuMainEmpfaengerBearbeiten.Image = Nothing
|
|
Me.MnuMainEmpfaengerBearbeiten.Name = "MnuMainEmpfaengerBearbeiten"
|
|
Me.MnuMainEmpfaengerBearbeiten.Text = "Markierter Empfänger bearbeiten"
|
|
'
|
|
'C1MnuMainEmpfaengerLoeschen
|
|
'
|
|
Me.C1MnuMainEmpfaengerLoeschen.Command = Me.MnuMainEmfpaengerLoeschen
|
|
Me.C1MnuMainEmpfaengerLoeschen.Text = "Markierter Empfänger löschen"
|
|
'
|
|
'MnuMainEmfpaengerLoeschen
|
|
'
|
|
Me.MnuMainEmfpaengerLoeschen.Image = Nothing
|
|
Me.MnuMainEmfpaengerLoeschen.Name = "MnuMainEmfpaengerLoeschen"
|
|
Me.MnuMainEmfpaengerLoeschen.Text = "Markierter Empfänger löschen"
|
|
'
|
|
'C1MnuEDOKAPartnerErfassen
|
|
'
|
|
Me.C1MnuEDOKAPartnerErfassen.Command = Me.MnuMainEDOKAPartnerErfassen
|
|
Me.C1MnuEDOKAPartnerErfassen.Text = "Markierter Empfänger als EDOKA-Partner erfassen"
|
|
'
|
|
'MnuMainEDOKAPartnerErfassen
|
|
'
|
|
Me.MnuMainEDOKAPartnerErfassen.Image = Nothing
|
|
Me.MnuMainEDOKAPartnerErfassen.Name = "MnuMainEDOKAPartnerErfassen"
|
|
Me.MnuMainEDOKAPartnerErfassen.Text = "Markierter Empfänger als EDOKA-Partner erfassen"
|
|
'
|
|
'C1MnuMainImportEmpfaneger
|
|
'
|
|
Me.C1MnuMainImportEmpfaneger.Command = Me.MnuMainImportEmpfaenger
|
|
Me.C1MnuMainImportEmpfaneger.Delimiter = True
|
|
Me.C1MnuMainImportEmpfaneger.Text = "Empfängerliste importieren"
|
|
'
|
|
'MnuMainImportEmpfaenger
|
|
'
|
|
Me.MnuMainImportEmpfaenger.Image = Nothing
|
|
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.Image = Nothing
|
|
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.Image = Nothing
|
|
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.Image = Nothing
|
|
Me.MnuMainSaveAsPartnerlist.Name = "MnuMainSaveAsPartnerlist"
|
|
Me.MnuMainSaveAsPartnerlist.Text = "Emfänger als Partnerliste speichern"
|
|
'
|
|
'C1MnuMainCheckEmpfaenger
|
|
'
|
|
Me.C1MnuMainCheckEmpfaenger.Command = Me.MnuMainCheckEmpfaenger
|
|
Me.C1MnuMainCheckEmpfaenger.Delimiter = True
|
|
Me.C1MnuMainCheckEmpfaenger.Text = "Empfängerliste prüfen"
|
|
'
|
|
'MnuMainCheckEmpfaenger
|
|
'
|
|
Me.MnuMainCheckEmpfaenger.Image = Nothing
|
|
Me.MnuMainCheckEmpfaenger.ImageIndex = 17
|
|
Me.MnuMainCheckEmpfaenger.Name = "MnuMainCheckEmpfaenger"
|
|
Me.MnuMainCheckEmpfaenger.Text = "Empfängerliste prüfen"
|
|
'
|
|
'C1CommandMenu1
|
|
'
|
|
Me.C1CommandMenu1.CommandLinks.Add(Me.C1MnuMainAddColumn)
|
|
Me.C1CommandMenu1.CommandLinks.Add(Me.C1MnuMainDeleteColumn)
|
|
Me.C1CommandMenu1.CommandLinks.Add(Me.C1MnuMainRenameColumn)
|
|
Me.C1CommandMenu1.CommandLinks.Add(Me.C1MnuMainSpaltenselektion)
|
|
Me.C1CommandMenu1.Image = Nothing
|
|
Me.C1CommandMenu1.Name = "C1CommandMenu1"
|
|
Me.C1CommandMenu1.Text = "&Individuelle Dokumentwerte"
|
|
'
|
|
'C1MnuMainAddColumn
|
|
'
|
|
Me.C1MnuMainAddColumn.Command = Me.MnuMainAddColumn
|
|
Me.C1MnuMainAddColumn.Text = "Spalte hinzufügen"
|
|
'
|
|
'MnuMainAddColumn
|
|
'
|
|
Me.MnuMainAddColumn.Image = Nothing
|
|
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.Image = Nothing
|
|
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.Image = Nothing
|
|
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.Image = Nothing
|
|
Me.MnuMainSpaltenselektion.Name = "MnuMainSpaltenselektion"
|
|
Me.MnuMainSpaltenselektion.Text = "Spalten-Selektion"
|
|
'
|
|
'mnuctAddHost
|
|
'
|
|
Me.mnuctAddHost.Image = Nothing
|
|
Me.mnuctAddHost.ImageIndex = 16
|
|
Me.mnuctAddHost.Name = "mnuctAddHost"
|
|
Me.mnuctAddHost.Text = "EDOKA-/HOST-Partner hinzufügen"
|
|
'
|
|
'mnuCTADDEdokapartner
|
|
'
|
|
Me.mnuCTADDEdokapartner.Image = Nothing
|
|
Me.mnuCTADDEdokapartner.ImageIndex = 18
|
|
Me.mnuCTADDEdokapartner.Name = "mnuCTADDEdokapartner"
|
|
Me.mnuCTADDEdokapartner.Text = "Neuer EDOKA-Partner erfassen"
|
|
'
|
|
'mnuctaddempfaenger
|
|
'
|
|
Me.mnuctaddempfaenger.Image = Nothing
|
|
Me.mnuctaddempfaenger.ImageIndex = 19
|
|
Me.mnuctaddempfaenger.Name = "mnuctaddempfaenger"
|
|
Me.mnuctaddempfaenger.Text = "Neuer Empfänger erfassen"
|
|
'
|
|
'C1ContextMenu1
|
|
'
|
|
Me.C1ContextMenu1.CommandLinks.Add(Me.C1CommandLink1)
|
|
Me.C1ContextMenu1.CommandLinks.Add(Me.C1CommandLink3)
|
|
Me.C1ContextMenu1.CommandLinks.Add(Me.C1CommandLink4)
|
|
Me.C1ContextMenu1.CommandLinks.Add(Me.C1CommandLink2)
|
|
Me.C1ContextMenu1.Image = CType(resources.GetObject("C1ContextMenu1.Image"), System.Drawing.Bitmap)
|
|
Me.C1ContextMenu1.ImageIndex = 0
|
|
Me.C1ContextMenu1.Name = "C1ContextMenu1"
|
|
'
|
|
'C1CommandLink1
|
|
'
|
|
Me.C1CommandLink1.Command = Me.c1dokumentedrucken
|
|
Me.C1CommandLink1.Text = "Dokumente drucken"
|
|
'
|
|
'c1dokumentedrucken
|
|
'
|
|
Me.c1dokumentedrucken.Image = Nothing
|
|
Me.c1dokumentedrucken.Name = "c1dokumentedrucken"
|
|
Me.c1dokumentedrucken.Text = "Dokumente drucken"
|
|
'
|
|
'C1CommandLink3
|
|
'
|
|
Me.C1CommandLink3.Command = Me.c1showdoc
|
|
Me.C1CommandLink3.Text = "Dokumente anzeigen"
|
|
'
|
|
'c1showdoc
|
|
'
|
|
Me.c1showdoc.Image = Nothing
|
|
Me.c1showdoc.Name = "c1showdoc"
|
|
Me.c1showdoc.Text = "Dokumente anzeigen"
|
|
'
|
|
'C1CommandLink2
|
|
'
|
|
Me.C1CommandLink2.Command = Me.c1statuszuruecksetzen
|
|
Me.C1CommandLink2.Delimiter = True
|
|
Me.C1CommandLink2.Text = "Status zurücksetzen"
|
|
'
|
|
'c1statuszuruecksetzen
|
|
'
|
|
Me.c1statuszuruecksetzen.Image = Nothing
|
|
Me.c1statuszuruecksetzen.Name = "c1statuszuruecksetzen"
|
|
Me.c1statuszuruecksetzen.Text = "Status zurücksetzen"
|
|
'
|
|
'ImageList1
|
|
'
|
|
Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
|
|
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
|
|
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
|
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
|
'
|
|
'ToolBar1
|
|
'
|
|
Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1})
|
|
Me.C1CommandHolder1.SetC1ContextMenu(Me.ToolBar1, Nothing)
|
|
Me.ToolBar1.DropDownArrows = True
|
|
Me.ToolBar1.ImageList = Me.ImageList1
|
|
Me.ToolBar1.Name = "ToolBar1"
|
|
Me.ToolBar1.ShowToolTips = True
|
|
Me.ToolBar1.Size = New System.Drawing.Size(464, 25)
|
|
Me.ToolBar1.TabIndex = 29
|
|
'
|
|
'ToolBarButton1
|
|
'
|
|
Me.ToolBarButton1.ImageIndex = 1
|
|
'
|
|
'djlist
|
|
'
|
|
Me.djlist.AllowDelete = True
|
|
Me.djlist.AllowFilter = True
|
|
Me.djlist.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
|
|
Me.djlist.AllowSort = True
|
|
Me.djlist.AlternatingRows = True
|
|
Me.C1CommandHolder1.SetC1ContextMenu(Me.djlist, Me.C1ContextMenu1)
|
|
Me.djlist.CaptionHeight = 17
|
|
Me.djlist.CollapseColor = System.Drawing.Color.Black
|
|
Me.djlist.Cursor = System.Windows.Forms.Cursors.Default
|
|
Me.djlist.DataChanged = False
|
|
Me.djlist.DeadAreaBackColor = System.Drawing.Color.Empty
|
|
Me.djlist.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.djlist.ExpandColor = System.Drawing.Color.Black
|
|
Me.djlist.FetchRowStyles = True
|
|
Me.djlist.FilterBar = True
|
|
Me.djlist.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.djlist.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
|
|
Me.djlist.Location = New System.Drawing.Point(0, 25)
|
|
Me.djlist.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
|
|
Me.djlist.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
|
|
Me.djlist.Name = "djlist"
|
|
Me.djlist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.djlist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.djlist.PreviewInfo.ZoomFactor = 75
|
|
Me.djlist.PrintInfo.ShowOptionsDialog = False
|
|
Me.djlist.RecordSelectorWidth = 16
|
|
GridLines1.Color = System.Drawing.Color.DarkGray
|
|
GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
|
|
Me.djlist.RowDivider = GridLines1
|
|
Me.djlist.RowHeight = 15
|
|
Me.djlist.RowSubDividerColor = System.Drawing.Color.DarkGray
|
|
Me.djlist.ScrollTips = True
|
|
Me.djlist.Size = New System.Drawing.Size(464, 180)
|
|
Me.djlist.TabIndex = 30
|
|
Me.djlist.Text = "C1TrueDBGrid1"
|
|
Me.djlist.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
|
|
"r""><Data>Style11{}Style12{}Style13{}Style5{}Style4{}Style7{}Style6{}EvenRow{Back" & _
|
|
"Color:White;}Selected{ForeColor:HighlightText;BackColor:Highlight;}Heading{Wrap:" & _
|
|
"True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert" & _
|
|
":Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Filte" & _
|
|
"rBar{BackColor:255, 255, 192;}Footer{}Caption{AlignHorz:Center;}Editor{}Normal{B" & _
|
|
"ackColor:Control;}Style27{}Style26{}HighlightRow{ForeColor:HighlightText;BackCol" & _
|
|
"or:Highlight;}Style1{}OddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage:" & _
|
|
"Center;}Style9{}Style8{}Style3{}Style2{}Group{AlignVert:Center;Border:None,,0, 0" & _
|
|
", 0, 0;BackColor:ControlDark;}Style10{AlignHorz:Near;}</Data></Styles><Splits><C" & _
|
|
"1.Win.C1TrueDBGrid.MergeView Name="""" AlternatingRowStyle=""True"" CaptionHeight=""1" & _
|
|
"7"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" FetchRowStyles=""True"" Filter" & _
|
|
"Bar=""True"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecSelWid" & _
|
|
"th=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 460," & _
|
|
" 176</ClientRect><BorderSide>0</BorderSide><CaptionStyle parent=""Heading"" me=""St" & _
|
|
"yle10"" /><EditorStyle parent=""Editor"" me=""Style2"" /><EvenRowStyle parent=""EvenRo" & _
|
|
"w"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style27"" /><FooterStyle " & _
|
|
"parent=""Footer"" me=""Style4"" /><GroupStyle parent=""Group"" me=""Style12"" /><Heading" & _
|
|
"Style parent=""Heading"" me=""Style3"" /><HighLightRowStyle parent=""HighlightRow"" me" & _
|
|
"=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style6"" /><OddRowStyle parent=""" & _
|
|
"OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" " & _
|
|
"/><SelectedStyle parent=""Selected"" me=""Style5"" /><Style parent=""Normal"" me=""Styl" & _
|
|
"e1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=" & _
|
|
"""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Foo" & _
|
|
"ter"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inacti" & _
|
|
"ve"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" " & _
|
|
"/><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow""" & _
|
|
" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelect" & _
|
|
"or"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group""" & _
|
|
" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>Mod" & _
|
|
"ified</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 460, " & _
|
|
"176</ClientArea></Blob>"
|
|
'
|
|
'C1CommandLink4
|
|
'
|
|
Me.C1CommandLink4.Command = Me.c1deldok
|
|
Me.C1CommandLink4.Text = "Dokumente löschen"
|
|
'
|
|
'c1deldok
|
|
'
|
|
Me.c1deldok.Image = Nothing
|
|
Me.c1deldok.Name = "c1deldok"
|
|
Me.c1deldok.Text = "Dokumente löschen"
|
|
'
|
|
'frmsbdruck
|
|
'
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|
Me.C1CommandHolder1.SetC1ContextMenu(Me, Nothing)
|
|
Me.ClientSize = New System.Drawing.Size(464, 205)
|
|
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.djlist, Me.ToolBar1})
|
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
|
Me.Name = "frmsbdruck"
|
|
Me.ShowInTaskbar = False
|
|
Me.Text = "Serienbriefe drucken"
|
|
CType(Me.C1CommandHolder1, System.ComponentModel.ISupportInitialize).EndInit()
|
|
CType(Me.djlist, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.ResumeLayout(False)
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
|
|
Dim m_datasaved As Boolean = False
|
|
Property datasaved() As Boolean
|
|
Get
|
|
Return m_datasaved
|
|
End Get
|
|
Set(ByVal Value As Boolean)
|
|
m_datasaved = Value
|
|
End Set
|
|
End Property
|
|
|
|
Dim serienbriefnr As Integer
|
|
Public Sub New(ByVal serienbriefnr As Integer)
|
|
MyBase.New()
|
|
InitializeComponent()
|
|
Me.serienbriefnr = serienbriefnr
|
|
End Sub
|
|
|
|
Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub frmsbdruck_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Dim sb As New edokadb.clsEdex_sb_serienbrief()
|
|
sb.cpMainConnectionProvider = Globals.conn
|
|
sb.iSerienbriefnr = New SqlInt32(CType(Me.serienbriefnr, Int32))
|
|
sb.SelectOne()
|
|
Me.Text = Me.Text + ": " + sb.sBezeichnung.Value
|
|
sb.Dispose()
|
|
refresh_data()
|
|
End Sub
|
|
|
|
|
|
Private Function refresh_data() As DataTable
|
|
Dim dt As New DataTable()
|
|
dt = Me.get_druckjobs
|
|
Me.djlist.DataSource = Nothing
|
|
Me.djlist.DataMember = Nothing
|
|
Me.djlist.DataSource = dt
|
|
Me.djlist.DataMember = dt.TableName
|
|
Dim i As Integer
|
|
For i = 0 To Me.djlist.Splits(0).DisplayColumns.Count - 1
|
|
Me.djlist.Splits(0).DisplayColumns(i).AutoSize()
|
|
Next
|
|
Return dt
|
|
End Function
|
|
|
|
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
|
|
|
|
Private Function set_druckjobstatus(ByVal status 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, Me.djlist.Columns("nr").Value))
|
|
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
|
|
|
|
Dim WithEvents pdfprinter As frmSBPDFPrinter
|
|
|
|
Private Sub c1dokumentedrucken_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles c1dokumentedrucken.Click
|
|
pdfprinter = New frmSBPDFPrinter(Me.djlist.Columns("Nr").Value, False)
|
|
pdfprinter.Show()
|
|
Application.DoEvents()
|
|
pdfprinter.PrintPDF()
|
|
End Sub
|
|
|
|
Private Sub pdfprinter_PrintDOne() Handles pdfprinter.PrintDOne
|
|
Application.DoEvents()
|
|
Application.DoEvents()
|
|
Application.DoEvents()
|
|
Dim nicht_alles_gedruckt As Integer
|
|
nicht_alles_gedruckt = False
|
|
|
|
Me.set_druckjobstatus(1)
|
|
Dim i As Integer
|
|
Dim dt As DataTable
|
|
dt = Me.refresh_data()
|
|
If dt.Rows.Count > 0 Then
|
|
For i = 0 To dt.Rows.Count - 1
|
|
If dt.Rows(i).Item("Status") = "nicht gedruckt" Then
|
|
nicht_alles_gedruckt = True
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
If Not nicht_alles_gedruckt Then
|
|
Dim f As New frmDruckabschluss(Me.serienbriefnr)
|
|
f.ShowDialog()
|
|
If f.datasaved Then
|
|
Me.datasaved = True
|
|
End If
|
|
f.Dispose()
|
|
Me.Close()
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub c1statuszuruecksetzen_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles c1statuszuruecksetzen.Click
|
|
Me.set_druckjobstatus(0)
|
|
Me.refresh_data()
|
|
End Sub
|
|
|
|
Private Sub djlist_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles djlist.MouseDown
|
|
Me.djlist.Bookmark = djlist.RowContaining(e.Y)
|
|
End Sub
|
|
|
|
Private Sub c1showdoc_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles c1showdoc.Click
|
|
Dim f As New frmSBPDFPrinter(Me.djlist.Columns("Nr").Value, True)
|
|
f.Show()
|
|
End Sub
|
|
|
|
|
|
Private Sub c1deldok_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs) Handles c1deldok.Click
|
|
Me.set_druckjobstatus(3)
|
|
Me.refresh_data()
|
|
Me.pdfprinter_PrintDOne()
|
|
End Sub
|
|
End Class
|