Initial commit

2021-04-20 07:39:40 +02:00
commit 1efa65864e
3895 changed files with 2126363 additions and 0 deletions
--- a/EDOKA/Backup1/EDEX/Banklagernd/frmBanklagerndverarbeitung.vb
+++ b/EDOKA/Backup1/EDEX/Banklagernd/frmBanklagerndverarbeitung.vb
@@ -0,0 +1,324 @@
+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 PictureBox1 As System.Windows.Forms.PictureBox
+    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
+        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(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.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.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()
+        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, 40)
+        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, 64)
+        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.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.AddRange(New System.Windows.Forms.Control() {Me.rbkeineUebergabe, Me.rbbckversand, Me.rbbckbldossier})
+        Me.pnlbck.Location = New System.Drawing.Point(16, 56)
+        Me.pnlbck.Name = "pnlbck"
+        Me.pnlbck.Size = New System.Drawing.Size(272, 80)
+        Me.pnlbck.TabIndex = 6
+        Me.pnlbck.Visible = False
+        '
+        'rbkeineUebergabe
+        '
+        Me.rbkeineUebergabe.Location = New System.Drawing.Point(8, 55)
+        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, 30)
+        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.AddRange(New System.Windows.Forms.Control() {Me.rbDossier, Me.rbVersand, Me.RBPersönlich})
+        Me.GroupBox2.Location = New System.Drawing.Point(8, 40)
+        Me.GroupBox2.Name = "GroupBox2"
+        Me.GroupBox2.Size = New System.Drawing.Size(368, 104)
+        Me.GroupBox2.TabIndex = 7
+        Me.GroupBox2.TabStop = False
+        Me.GroupBox2.Text = "Weiterleitung"
+        '
+        'pnleinzeldokument
+        '
+        Me.pnleinzeldokument.Controls.AddRange(New System.Windows.Forms.Control() {Me.RBEinzelPersoenlich, Me.rbeinzelblversand, Me.rbeinzelbldossier})
+        Me.pnleinzeldokument.Location = New System.Drawing.Point(16, 56)
+        Me.pnleinzeldokument.Name = "pnleinzeldokument"
+        Me.pnleinzeldokument.Size = New System.Drawing.Size(272, 72)
+        Me.pnleinzeldokument.TabIndex = 7
+        Me.pnleinzeldokument.Visible = False
+        '
+        'RBEinzelPersoenlich
+        '
+        Me.RBEinzelPersoenlich.Location = New System.Drawing.Point(8, 51)
+        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, 27)
+        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.Bitmap)
+        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.AddRange(New System.Windows.Forms.Control() {Me.txtWeitereVerarbeitung, Me.pnlbck, Me.pnleinzeldokument, Me.GroupBox2, Me.GroupBox1, Me.Button1, Me.Label1, 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)
+        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
+        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
+        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
+End Class