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.
369 lines
16 KiB
369 lines
16 KiB
Public Class frmBanklagerndverarbeitung
|
|
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 Label1 As System.Windows.Forms.Label
|
|
Friend WithEvents rbDossier As System.Windows.Forms.RadioButton
|
|
Friend WithEvents rbVersand As System.Windows.Forms.RadioButton
|
|
Friend WithEvents RBPersönlich As System.Windows.Forms.RadioButton
|
|
Friend WithEvents Button1 As System.Windows.Forms.Button
|
|
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents txtWeitereVerarbeitung As System.Windows.Forms.Label
|
|
Friend WithEvents pnlbck As System.Windows.Forms.Panel
|
|
Friend WithEvents rbbckbldossier As System.Windows.Forms.RadioButton
|
|
Friend WithEvents rbbckversand As System.Windows.Forms.RadioButton
|
|
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents pnleinzeldokument As System.Windows.Forms.Panel
|
|
Friend WithEvents rbeinzelblversand As System.Windows.Forms.RadioButton
|
|
Friend WithEvents rbeinzelbldossier As System.Windows.Forms.RadioButton
|
|
Friend WithEvents RBEinzelPersoenlich As System.Windows.Forms.RadioButton
|
|
Friend WithEvents rbkeineUebergabe As System.Windows.Forms.RadioButton
|
|
Friend WithEvents rbbckphysisch As System.Windows.Forms.RadioButton
|
|
Friend WithEvents rbPhysisch As System.Windows.Forms.RadioButton
|
|
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBanklagerndverarbeitung))
|
|
Me.Label1 = New System.Windows.Forms.Label
|
|
Me.rbDossier = New System.Windows.Forms.RadioButton
|
|
Me.rbVersand = New System.Windows.Forms.RadioButton
|
|
Me.RBPersönlich = New System.Windows.Forms.RadioButton
|
|
Me.Button1 = New System.Windows.Forms.Button
|
|
Me.GroupBox1 = New System.Windows.Forms.GroupBox
|
|
Me.txtWeitereVerarbeitung = New System.Windows.Forms.Label
|
|
Me.pnlbck = New System.Windows.Forms.Panel
|
|
Me.rbbckphysisch = New System.Windows.Forms.RadioButton
|
|
Me.rbkeineUebergabe = New System.Windows.Forms.RadioButton
|
|
Me.rbbckversand = New System.Windows.Forms.RadioButton
|
|
Me.rbbckbldossier = New System.Windows.Forms.RadioButton
|
|
Me.GroupBox2 = New System.Windows.Forms.GroupBox
|
|
Me.rbPhysisch = New System.Windows.Forms.RadioButton
|
|
Me.pnleinzeldokument = New System.Windows.Forms.Panel
|
|
Me.RBEinzelPersoenlich = New System.Windows.Forms.RadioButton
|
|
Me.rbeinzelblversand = New System.Windows.Forms.RadioButton
|
|
Me.rbeinzelbldossier = New System.Windows.Forms.RadioButton
|
|
Me.PictureBox1 = New System.Windows.Forms.PictureBox
|
|
Me.pnlbck.SuspendLayout()
|
|
Me.GroupBox2.SuspendLayout()
|
|
Me.pnleinzeldokument.SuspendLayout()
|
|
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.SuspendLayout()
|
|
'
|
|
'Label1
|
|
'
|
|
Me.Label1.Location = New System.Drawing.Point(8, 16)
|
|
Me.Label1.Name = "Label1"
|
|
Me.Label1.Size = New System.Drawing.Size(312, 23)
|
|
Me.Label1.TabIndex = 0
|
|
Me.Label1.Text = "Sie erstellen ein Dokument für einen Banklagernd-Kunden."
|
|
'
|
|
'rbDossier
|
|
'
|
|
Me.rbDossier.Location = New System.Drawing.Point(8, 16)
|
|
Me.rbDossier.Name = "rbDossier"
|
|
Me.rbDossier.Size = New System.Drawing.Size(280, 24)
|
|
Me.rbDossier.TabIndex = 1
|
|
Me.rbDossier.Text = "Ablage im elektronischen Banklagernd-Dossier"
|
|
'
|
|
'rbVersand
|
|
'
|
|
Me.rbVersand.Location = New System.Drawing.Point(8, 35)
|
|
Me.rbVersand.Name = "rbVersand"
|
|
Me.rbVersand.Size = New System.Drawing.Size(192, 24)
|
|
Me.rbVersand.TabIndex = 2
|
|
Me.rbVersand.Text = "Versand an eine Zustelladresse"
|
|
'
|
|
'RBPersönlich
|
|
'
|
|
Me.RBPersönlich.Location = New System.Drawing.Point(8, 55)
|
|
Me.RBPersönlich.Name = "RBPersönlich"
|
|
Me.RBPersönlich.Size = New System.Drawing.Size(192, 24)
|
|
Me.RBPersönlich.TabIndex = 3
|
|
Me.RBPersönlich.Text = "Persönliche Aushändigung"
|
|
'
|
|
'Button1
|
|
'
|
|
Me.Button1.Location = New System.Drawing.Point(160, 336)
|
|
Me.Button1.Name = "Button1"
|
|
Me.Button1.Size = New System.Drawing.Size(75, 23)
|
|
Me.Button1.TabIndex = 4
|
|
Me.Button1.Text = "&OK"
|
|
'
|
|
'GroupBox1
|
|
'
|
|
Me.GroupBox1.Location = New System.Drawing.Point(400, 392)
|
|
Me.GroupBox1.Name = "GroupBox1"
|
|
Me.GroupBox1.Size = New System.Drawing.Size(176, 56)
|
|
Me.GroupBox1.TabIndex = 5
|
|
Me.GroupBox1.TabStop = False
|
|
Me.GroupBox1.Text = "Hinweis zur Dokumentbearbeitung"
|
|
'
|
|
'txtWeitereVerarbeitung
|
|
'
|
|
Me.txtWeitereVerarbeitung.Location = New System.Drawing.Point(56, 152)
|
|
Me.txtWeitereVerarbeitung.Name = "txtWeitereVerarbeitung"
|
|
Me.txtWeitereVerarbeitung.Size = New System.Drawing.Size(320, 168)
|
|
Me.txtWeitereVerarbeitung.TabIndex = 0
|
|
'
|
|
'pnlbck
|
|
'
|
|
Me.pnlbck.Controls.Add(Me.rbbckphysisch)
|
|
Me.pnlbck.Controls.Add(Me.rbkeineUebergabe)
|
|
Me.pnlbck.Controls.Add(Me.rbbckversand)
|
|
Me.pnlbck.Controls.Add(Me.rbbckbldossier)
|
|
Me.pnlbck.Location = New System.Drawing.Point(14, 56)
|
|
Me.pnlbck.Name = "pnlbck"
|
|
Me.pnlbck.Size = New System.Drawing.Size(274, 88)
|
|
Me.pnlbck.TabIndex = 6
|
|
Me.pnlbck.Visible = False
|
|
'
|
|
'rbbckphysisch
|
|
'
|
|
Me.rbbckphysisch.Location = New System.Drawing.Point(8, 66)
|
|
Me.rbbckphysisch.Name = "rbbckphysisch"
|
|
Me.rbbckphysisch.Size = New System.Drawing.Size(256, 24)
|
|
Me.rbbckphysisch.TabIndex = 3
|
|
Me.rbbckphysisch.Text = "Ablage im physischen Dossier"
|
|
'
|
|
'rbkeineUebergabe
|
|
'
|
|
Me.rbkeineUebergabe.Location = New System.Drawing.Point(8, 45)
|
|
Me.rbkeineUebergabe.Name = "rbkeineUebergabe"
|
|
Me.rbkeineUebergabe.Size = New System.Drawing.Size(256, 24)
|
|
Me.rbkeineUebergabe.TabIndex = 2
|
|
Me.rbkeineUebergabe.Text = "Keine Übergabe an den Kunden"
|
|
'
|
|
'rbbckversand
|
|
'
|
|
Me.rbbckversand.Location = New System.Drawing.Point(8, 25)
|
|
Me.rbbckversand.Name = "rbbckversand"
|
|
Me.rbbckversand.Size = New System.Drawing.Size(208, 24)
|
|
Me.rbbckversand.TabIndex = 1
|
|
Me.rbbckversand.Text = "Versand/persönliche Aushändigung"
|
|
'
|
|
'rbbckbldossier
|
|
'
|
|
Me.rbbckbldossier.Location = New System.Drawing.Point(8, 6)
|
|
Me.rbbckbldossier.Name = "rbbckbldossier"
|
|
Me.rbbckbldossier.Size = New System.Drawing.Size(264, 24)
|
|
Me.rbbckbldossier.TabIndex = 0
|
|
Me.rbbckbldossier.Text = "Ablage im elektronischen Banklagernd-Dossier"
|
|
'
|
|
'GroupBox2
|
|
'
|
|
Me.GroupBox2.Controls.Add(Me.rbPhysisch)
|
|
Me.GroupBox2.Controls.Add(Me.rbDossier)
|
|
Me.GroupBox2.Controls.Add(Me.rbVersand)
|
|
Me.GroupBox2.Controls.Add(Me.RBPersönlich)
|
|
Me.GroupBox2.Location = New System.Drawing.Point(8, 40)
|
|
Me.GroupBox2.Name = "GroupBox2"
|
|
Me.GroupBox2.Size = New System.Drawing.Size(368, 109)
|
|
Me.GroupBox2.TabIndex = 7
|
|
Me.GroupBox2.TabStop = False
|
|
Me.GroupBox2.Text = "Weiterleitung"
|
|
'
|
|
'rbPhysisch
|
|
'
|
|
Me.rbPhysisch.Location = New System.Drawing.Point(8, 76)
|
|
Me.rbPhysisch.Name = "rbPhysisch"
|
|
Me.rbPhysisch.Size = New System.Drawing.Size(242, 24)
|
|
Me.rbPhysisch.TabIndex = 4
|
|
Me.rbPhysisch.Text = "Ablage im physischen Dossier"
|
|
'
|
|
'pnleinzeldokument
|
|
'
|
|
Me.pnleinzeldokument.Controls.Add(Me.RBEinzelPersoenlich)
|
|
Me.pnleinzeldokument.Controls.Add(Me.rbeinzelblversand)
|
|
Me.pnleinzeldokument.Controls.Add(Me.rbeinzelbldossier)
|
|
Me.pnleinzeldokument.Location = New System.Drawing.Point(14, 56)
|
|
Me.pnleinzeldokument.Name = "pnleinzeldokument"
|
|
Me.pnleinzeldokument.Size = New System.Drawing.Size(274, 82)
|
|
Me.pnleinzeldokument.TabIndex = 7
|
|
Me.pnleinzeldokument.Visible = False
|
|
'
|
|
'RBEinzelPersoenlich
|
|
'
|
|
Me.RBEinzelPersoenlich.Location = New System.Drawing.Point(8, 41)
|
|
Me.RBEinzelPersoenlich.Name = "RBEinzelPersoenlich"
|
|
Me.RBEinzelPersoenlich.Size = New System.Drawing.Size(192, 24)
|
|
Me.RBEinzelPersoenlich.TabIndex = 5
|
|
Me.RBEinzelPersoenlich.Text = "Persönliche Aushändigung"
|
|
'
|
|
'rbeinzelblversand
|
|
'
|
|
Me.rbeinzelblversand.Location = New System.Drawing.Point(8, 22)
|
|
Me.rbeinzelblversand.Name = "rbeinzelblversand"
|
|
Me.rbeinzelblversand.Size = New System.Drawing.Size(208, 24)
|
|
Me.rbeinzelblversand.TabIndex = 1
|
|
Me.rbeinzelblversand.Text = "Versand an eine Zustelladresse"
|
|
'
|
|
'rbeinzelbldossier
|
|
'
|
|
Me.rbeinzelbldossier.Location = New System.Drawing.Point(8, 3)
|
|
Me.rbeinzelbldossier.Name = "rbeinzelbldossier"
|
|
Me.rbeinzelbldossier.Size = New System.Drawing.Size(264, 24)
|
|
Me.rbeinzelbldossier.TabIndex = 0
|
|
Me.rbeinzelbldossier.Text = "Ablage im physischen Banklagernd-Dossier"
|
|
'
|
|
'PictureBox1
|
|
'
|
|
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
|
|
Me.PictureBox1.Location = New System.Drawing.Point(8, 152)
|
|
Me.PictureBox1.Name = "PictureBox1"
|
|
Me.PictureBox1.Size = New System.Drawing.Size(48, 48)
|
|
Me.PictureBox1.TabIndex = 8
|
|
Me.PictureBox1.TabStop = False
|
|
'
|
|
'frmBanklagerndverarbeitung
|
|
'
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|
Me.ClientSize = New System.Drawing.Size(386, 367)
|
|
Me.ControlBox = False
|
|
Me.Controls.Add(Me.txtWeitereVerarbeitung)
|
|
Me.Controls.Add(Me.pnlbck)
|
|
Me.Controls.Add(Me.pnleinzeldokument)
|
|
Me.Controls.Add(Me.GroupBox2)
|
|
Me.Controls.Add(Me.GroupBox1)
|
|
Me.Controls.Add(Me.Button1)
|
|
Me.Controls.Add(Me.Label1)
|
|
Me.Controls.Add(Me.PictureBox1)
|
|
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
|
|
Me.Name = "frmBanklagerndverarbeitung"
|
|
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
|
Me.Text = "Dokumenterstellung für Banklagernd-Kunde"
|
|
Me.pnlbck.ResumeLayout(False)
|
|
Me.GroupBox2.ResumeLayout(False)
|
|
Me.pnleinzeldokument.ResumeLayout(False)
|
|
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.ResumeLayout(False)
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
Public Sub New(ByVal nrpar00 As Integer, ByVal bck As Boolean)
|
|
MyBase.New()
|
|
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
|
InitializeComponent()
|
|
Me.Text = Me.Text + ": " + DivFnkt.get_parnter_namevorname(nrpar00)
|
|
If bck Then
|
|
pnlbck.Visible = True
|
|
pnleinzeldokument.Visible = False
|
|
End If
|
|
End Sub
|
|
|
|
Public Sub New(ByVal nrpar00 As Integer, ByVal bck As Boolean, ByVal einzeldokument As Boolean)
|
|
MyBase.New()
|
|
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
|
InitializeComponent()
|
|
Me.Text = Me.Text + ": " + DivFnkt.get_parnter_namevorname(nrpar00)
|
|
If einzeldokument Then
|
|
pnleinzeldokument.Visible = True
|
|
pnlbck.Visible = False
|
|
End If
|
|
|
|
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
|
Me.DialogResult = DialogResult.OK
|
|
Me.Close()
|
|
End Sub
|
|
|
|
|
|
Private Sub set_texte()
|
|
Dim mdgnr As Integer = 0
|
|
If Me.pnlbck.Visible = False And Me.pnleinzeldokument.Visible = False Then
|
|
If Me.rbDossier.Checked = True Then mdgnr = 600
|
|
If Me.rbVersand.Checked = True Then mdgnr = 601
|
|
If Me.RBPersönlich.Checked = True Then mdgnr = 602
|
|
If Me.rbPhysisch.Checked = True Then mdgnr = 609
|
|
End If
|
|
If Me.pnlbck.Visible = True Then
|
|
If Me.rbbckbldossier.Checked Then mdgnr = 603
|
|
If Me.rbbckversand.Checked Then mdgnr = 604
|
|
If Me.rbkeineUebergabe.Checked Then mdgnr = 608
|
|
If Me.rbbckphysisch.Checked = True Then mdgnr = 609
|
|
End If
|
|
If Me.pnleinzeldokument.Visible = True Then
|
|
If Me.rbeinzelbldossier.Checked Then mdgnr = 605
|
|
If Me.rbeinzelblversand.Checked Then mdgnr = 606
|
|
If Me.RBEinzelPersoenlich.Checked Then mdgnr = 607
|
|
End If
|
|
If mdgnr > 0 Then
|
|
Me.txtWeitereVerarbeitung.Text = MyTxt.gettext(mdgnr)
|
|
Else
|
|
Me.txtWeitereVerarbeitung.Text = ""
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub rbDossier_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbDossier.CheckedChanged
|
|
set_texte()
|
|
End Sub
|
|
|
|
Private Sub rbVersand_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbVersand.CheckedChanged
|
|
set_texte()
|
|
End Sub
|
|
|
|
Private Sub RBPersönlich_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBPersönlich.CheckedChanged
|
|
set_texte()
|
|
End Sub
|
|
|
|
Private Sub rbeinzelbldossier_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbeinzelbldossier.CheckedChanged
|
|
set_texte()
|
|
End Sub
|
|
|
|
Private Sub rbeinzelblversand_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbeinzelblversand.CheckedChanged
|
|
set_texte()
|
|
End Sub
|
|
|
|
Private Sub rbbckbldossier_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbbckbldossier.CheckedChanged
|
|
set_texte()
|
|
End Sub
|
|
|
|
Private Sub rbbckversand_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbbckversand.CheckedChanged, RBEinzelPersoenlich.CheckedChanged
|
|
set_texte()
|
|
End Sub
|
|
|
|
Private Sub frmBanklagerndverarbeitung_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Me.set_texte()
|
|
End Sub
|
|
|
|
Private Sub rbkeineUebergabe_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbkeineUebergabe.CheckedChanged
|
|
Me.set_texte()
|
|
End Sub
|
|
|
|
Private Sub rbbckphysisch_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbbckphysisch.CheckedChanged, rbPhysisch.CheckedChanged
|
|
Me.set_texte()
|
|
End Sub
|
|
End Class
|