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.
839 lines
40 KiB
839 lines
40 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.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmsbdruck))
|
|
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.C1CommandLink4 = New C1.Win.C1Command.C1CommandLink()
|
|
Me.c1deldok = 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()
|
|
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.AddRange(New C1.Win.C1Command.C1CommandLink() {Me.C1MnuMainNeuerSerienbrief, Me.C1MnuMainSerienbriefLaden, Me.C1MnuSerienbriefLoeschen, Me.C1MnuMainSerienbriefabschliessen, Me.C1MnuMainSerienbriefSpeichern, Me.C1MnuMainFensterSchliessen})
|
|
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.C1MnuMainVorschauErstellen, Me.C1MnuDokumenteGenerieren, Me.C1MnuMainDokumenteDrucken, Me.C1MnuMainDokumenteBestaetigen})
|
|
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"
|
|
'
|
|
'C1MnuMainVorschauErstellen
|
|
'
|
|
Me.C1MnuMainVorschauErstellen.Command = Me.MnuMainVorschauErstellen
|
|
Me.C1MnuMainVorschauErstellen.Delimiter = True
|
|
Me.C1MnuMainVorschauErstellen.Text = "Vorschau erstellen"
|
|
'
|
|
'MnuMainVorschauErstellen
|
|
'
|
|
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.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.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.ImageIndex = 13
|
|
Me.MnuMainDokumenteBestaetigen.Name = "MnuMainDokumenteBestaetigen"
|
|
Me.MnuMainDokumenteBestaetigen.Text = "Generierte Dokumente bestätigen"
|
|
'
|
|
'MnuMainEmpfaengerliste
|
|
'
|
|
Me.MnuMainEmpfaengerliste.CommandLinks.AddRange(New C1.Win.C1Command.C1CommandLink() {Me.C1MnuEDOKAHOSTPartnerHinzufuegen, Me.C1MnuMainEDOKAPartnerErfassen, Me.C1MnuMainNeuerEmpfaengerErfassen, Me.C1MnuMainEmpfaengerBearbeitten, Me.C1MnuMainEmpfaengerLoeschen, Me.C1MnuEDOKAPartnerErfassen, Me.C1MnuMainImportEmpfaneger, Me.C1MnuMainExportEmpfaenger, Me.C1MnuMainLoadPartnerliste, Me.C1MnuMainSaveAsPartnerlist, Me.C1MnuMainCheckEmpfaenger})
|
|
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.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.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.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.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.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.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.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"
|
|
'
|
|
'C1MnuMainCheckEmpfaenger
|
|
'
|
|
Me.C1MnuMainCheckEmpfaenger.Command = Me.MnuMainCheckEmpfaenger
|
|
Me.C1MnuMainCheckEmpfaenger.Delimiter = True
|
|
Me.C1MnuMainCheckEmpfaenger.Text = "Empfängerliste prüfen"
|
|
'
|
|
'MnuMainCheckEmpfaenger
|
|
'
|
|
Me.MnuMainCheckEmpfaenger.ImageIndex = 17
|
|
Me.MnuMainCheckEmpfaenger.Name = "MnuMainCheckEmpfaenger"
|
|
Me.MnuMainCheckEmpfaenger.Text = "Empfängerliste prüfen"
|
|
'
|
|
'C1CommandMenu1
|
|
'
|
|
Me.C1CommandMenu1.CommandLinks.AddRange(New C1.Win.C1Command.C1CommandLink() {Me.C1MnuMainAddColumn, Me.C1MnuMainDeleteColumn, Me.C1MnuMainRenameColumn, Me.C1MnuMainSpaltenselektion})
|
|
Me.C1CommandMenu1.Name = "C1CommandMenu1"
|
|
Me.C1CommandMenu1.Text = "&Individuelle Dokumentwerte"
|
|
'
|
|
'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"
|
|
'
|
|
'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"
|
|
'
|
|
'C1ContextMenu1
|
|
'
|
|
Me.C1ContextMenu1.CommandLinks.AddRange(New C1.Win.C1Command.C1CommandLink() {Me.C1CommandLink1, Me.C1CommandLink3, Me.C1CommandLink4, Me.C1CommandLink2})
|
|
Me.C1ContextMenu1.ImageIndex = 0
|
|
Me.C1ContextMenu1.Name = "C1ContextMenu1"
|
|
'
|
|
'C1CommandLink1
|
|
'
|
|
Me.C1CommandLink1.Command = Me.c1dokumentedrucken
|
|
Me.C1CommandLink1.Text = "Dokumente drucken"
|
|
'
|
|
'c1dokumentedrucken
|
|
'
|
|
Me.c1dokumentedrucken.Name = "c1dokumentedrucken"
|
|
Me.c1dokumentedrucken.Text = "Dokumente drucken"
|
|
'
|
|
'C1CommandLink3
|
|
'
|
|
Me.C1CommandLink3.Command = Me.c1showdoc
|
|
Me.C1CommandLink3.Text = "Dokumente anzeigen"
|
|
'
|
|
'c1showdoc
|
|
'
|
|
Me.c1showdoc.Name = "c1showdoc"
|
|
Me.c1showdoc.Text = "Dokumente anzeigen"
|
|
'
|
|
'C1CommandLink4
|
|
'
|
|
Me.C1CommandLink4.Command = Me.c1deldok
|
|
Me.C1CommandLink4.Text = "Dokumente löschen"
|
|
'
|
|
'c1deldok
|
|
'
|
|
Me.c1deldok.Name = "c1deldok"
|
|
Me.c1deldok.Text = "Dokumente löschen"
|
|
'
|
|
'C1CommandLink2
|
|
'
|
|
Me.C1CommandLink2.Command = Me.c1statuszuruecksetzen
|
|
Me.C1CommandLink2.Delimiter = True
|
|
Me.C1CommandLink2.Text = "Status zurücksetzen"
|
|
'
|
|
'c1statuszuruecksetzen
|
|
'
|
|
Me.c1statuszuruecksetzen.Name = "c1statuszuruecksetzen"
|
|
Me.c1statuszuruecksetzen.Text = "Status zurücksetzen"
|
|
'
|
|
'ImageList1
|
|
'
|
|
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
|
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
|
Me.ImageList1.Images.SetKeyName(0, "")
|
|
Me.ImageList1.Images.SetKeyName(1, "")
|
|
'
|
|
'ToolBar1
|
|
'
|
|
Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1})
|
|
Me.ToolBar1.DropDownArrows = True
|
|
Me.ToolBar1.ImageList = Me.ImageList1
|
|
Me.ToolBar1.Location = New System.Drawing.Point(0, 0)
|
|
Me.ToolBar1.Name = "ToolBar1"
|
|
Me.ToolBar1.ShowToolTips = True
|
|
Me.ToolBar1.Size = New System.Drawing.Size(464, 28)
|
|
Me.ToolBar1.TabIndex = 29
|
|
'
|
|
'ToolBarButton1
|
|
'
|
|
Me.ToolBarButton1.ImageIndex = 1
|
|
Me.ToolBarButton1.Name = "ToolBarButton1"
|
|
'
|
|
'djlist
|
|
'
|
|
Me.djlist.AllowDelete = True
|
|
Me.djlist.AlternatingRows = True
|
|
Me.C1CommandHolder1.SetC1ContextMenu(Me.djlist, Me.C1ContextMenu1)
|
|
Me.djlist.Cursor = System.Windows.Forms.Cursors.Default
|
|
Me.djlist.Dock = System.Windows.Forms.DockStyle.Fill
|
|
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("djlist.Images"), System.Drawing.Image))
|
|
Me.djlist.Location = New System.Drawing.Point(0, 28)
|
|
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.0R
|
|
Me.djlist.PrintInfo.PageSettings = CType(resources.GetObject("djlist.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
|
Me.djlist.ScrollTips = True
|
|
Me.djlist.Size = New System.Drawing.Size(464, 177)
|
|
Me.djlist.TabIndex = 30
|
|
Me.djlist.Text = "C1TrueDBGrid1"
|
|
Me.djlist.PropBag = resources.GetString("djlist.PropBag")
|
|
'
|
|
'frmsbdruck
|
|
'
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|
Me.ClientSize = New System.Drawing.Size(464, 205)
|
|
Me.Controls.Add(Me.djlist)
|
|
Me.Controls.Add(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)
|
|
Me.PerformLayout()
|
|
|
|
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
|