MDM, Auswertungen, Nacherfassung, Kundebearbeiten, Mahnlauf

SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb

@@ -40,7 +40,6 @@ Partial Class frmBU_Mahnlauf
         Me.Panel2 = New System.Windows.Forms.Panel()
         Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.Panel3 = New System.Windows.Forms.Panel()
-        Me.Button7 = New System.Windows.Forms.Button()
         Me.cbxMahnstufeErh = New System.Windows.Forms.CheckBox()
         Me.Label8 = New System.Windows.Forms.Label()
         Me.Button6 = New System.Windows.Forms.Button()
@@ -55,6 +54,7 @@ Partial Class frmBU_Mahnlauf
         Me.Button2 = New System.Windows.Forms.Button()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.btnKunde = New System.Windows.Forms.Button()
         Me.Panel1.SuspendLayout()
         Me.pnlTop.SuspendLayout()
         Me.Panel2.SuspendLayout()
@@ -267,7 +267,7 @@ Partial Class frmBU_Mahnlauf
         '
         'Panel3
         '
-        Me.Panel3.Controls.Add(Me.Button7)
+        Me.Panel3.Controls.Add(Me.btnKunde)
         Me.Panel3.Controls.Add(Me.cbxMahnstufeErh)
         Me.Panel3.Controls.Add(Me.Label8)
         Me.Panel3.Controls.Add(Me.Button6)
@@ -288,18 +288,6 @@ Partial Class frmBU_Mahnlauf
         Me.Panel3.Size = New System.Drawing.Size(1287, 147)
         Me.Panel3.TabIndex = 1
         '
-        'Button7
-        '
-        Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
-        Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button7.Location = New System.Drawing.Point(38, 89)
-        Me.Button7.Name = "Button7"
-        Me.Button7.Size = New System.Drawing.Size(123, 23)
-        Me.Button7.TabIndex = 45
-        Me.Button7.Text = "Übersetzungen"
-        Me.Button7.UseVisualStyleBackColor = True
-        '
         'cbxMahnstufeErh
         '
         Me.cbxMahnstufeErh.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -485,6 +473,21 @@ Partial Class frmBU_Mahnlauf
         Me.MyTextBox2.TabIndex = 39
         Me.MyTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
+        'btnKunde
+        '
+        Me.btnKunde.Enabled = False
+        Me.btnKunde.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnKunde.Image = Global.SDL.My.Resources.Resources.person1
+        Me.btnKunde.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnKunde.Location = New System.Drawing.Point(38, 87)
+        Me.btnKunde.Name = "btnKunde"
+        Me.btnKunde.Padding = New System.Windows.Forms.Padding(0, 0, 2, 0)
+        Me.btnKunde.Size = New System.Drawing.Size(123, 32)
+        Me.btnKunde.TabIndex = 46
+        Me.btnKunde.Text = "zum Kundenblatt"
+        Me.btnKunde.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnKunde.UseVisualStyleBackColor = True
+        '
         'frmBU_Mahnlauf
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -540,5 +543,5 @@ Partial Class frmBU_Mahnlauf
     Friend WithEvents Label8 As Label
     Friend WithEvents Button6 As Button
     Friend WithEvents cbxMahnstufeErh As CheckBox
-    Friend WithEvents Button7 As Button
+    Friend WithEvents btnKunde As Button
 End Class

SDL/buchhaltung/frmBU_Mahnlauf.vb

@@ -1007,6 +1007,10 @@ Public Class frmBU_Mahnlauf
 
     Private Sub MyDatagridview1_SelectionChanged(sender As Object, e As EventArgs) Handles MyDatagridview1.SelectionChanged
         'MyComboBox1.changeItem("")
+        If MyDatagridview1.SelectedRows.Count > 0 Then
+            btnKunde.Enabled = True
+        End If
+
     End Sub
 
 
@@ -1233,4 +1237,15 @@ Public Class frmBU_Mahnlauf
         End If
     End Sub
 
+    Private Sub btnKunde_Click(sender As Object, e As EventArgs) Handles btnKunde.Click
+
+        If MyDatagridview1.SelectedRows.Count > 0 Then
+            If MyDatagridview1.Columns("Konto") IsNot Nothing Then
+                If IsNumeric(MyDatagridview1.SelectedRows(0).Cells("Konto").Value) AndAlso MyDatagridview1.SelectedRows(0).Cells("Konto").Value > 0 Then
+                    cProgramFunctions.openKundenblatt(MyDatagridview1.SelectedRows(0).Cells("Konto").Value, Me.FindForm)
+                End If
+            End If
+        End If
+    End Sub
+
 End Class