Fremdrechnungen, MSE-API, etc.

2025-11-21 13:25:55 +01:00
parent a6e2674b30
commit 2c1b1c41f8
5 changed files with 81 additions and 64 deletions
--- a/SDL/kunden/frmKundenblatt.Designer.vb
+++ b/SDL/kunden/frmKundenblatt.Designer.vb
@@ -62,7 +62,7 @@ Partial Class frmKundenblatt
        Me.lblStat_Lkws = New System.Windows.Forms.Label()
        Me.dgvLeistungen = New System.Windows.Forms.DataGridView()
        Me.PictureBox5 = New System.Windows.Forms.PictureBox()
-        Me.txtAnsprechp = New System.Windows.Forms.TextBox()
+        Me.lblAnsprechp = New System.Windows.Forms.TextBox()
        Me.txtEmailRE2 = New System.Windows.Forms.TextBox()
        Me.txtEmailRE = New System.Windows.Forms.TextBox()
        Me.TextBox1 = New System.Windows.Forms.TextBox()
@@ -258,6 +258,7 @@ Partial Class frmKundenblatt
        Me.UsrCntlKundenlogin1 = New SDL.usrCntlKundenlogin()
        Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
        Me.UsrCntlUSTV = New SDL.usrCntlUSTV()
+        Me.Button8 = New System.Windows.Forms.Button()
        Me.pnlInfo.SuspendLayout()
        Me.tbFirmendaten.SuspendLayout()
        Me.Panel4.SuspendLayout()
@@ -384,12 +385,13 @@ Partial Class frmKundenblatt
        'tbAllgemein
        '
        Me.tbAllgemein.BackColor = System.Drawing.Color.White
+        Me.tbAllgemein.Controls.Add(Me.Button8)
        Me.tbAllgemein.Controls.Add(Me.txtRisiko)
        Me.tbAllgemein.Controls.Add(Me.Label20)
        Me.tbAllgemein.Controls.Add(Me.txt3470Betrag)
        Me.tbAllgemein.Controls.Add(Me.Label21)
        Me.tbAllgemein.Controls.Add(Me.GroupBox5)
-        Me.tbAllgemein.Controls.Add(Me.txtAnsprechp)
+        Me.tbAllgemein.Controls.Add(Me.lblAnsprechp)
        Me.tbAllgemein.Controls.Add(Me.txtEmailRE2)
        Me.tbAllgemein.Controls.Add(Me.txtEmailRE)
        Me.tbAllgemein.Controls.Add(Me.TextBox1)
@@ -507,17 +509,17 @@ Partial Class frmKundenblatt
        Me.PictureBox5.TabIndex = 144
        Me.PictureBox5.TabStop = False
        '
-        'txtAnsprechp
+        'lblAnsprechp
        '
-        Me.txtAnsprechp.BackColor = System.Drawing.Color.White
-        Me.txtAnsprechp.BorderStyle = System.Windows.Forms.BorderStyle.None
-        Me.txtAnsprechp.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtAnsprechp.Location = New System.Drawing.Point(5, 212)
-        Me.txtAnsprechp.Name = "txtAnsprechp"
-        Me.txtAnsprechp.ReadOnly = True
-        Me.txtAnsprechp.Size = New System.Drawing.Size(431, 19)
-        Me.txtAnsprechp.TabIndex = 196
-        Me.txtAnsprechp.Text = "Kontakt"
+        Me.lblAnsprechp.BackColor = System.Drawing.Color.White
+        Me.lblAnsprechp.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.lblAnsprechp.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblAnsprechp.Location = New System.Drawing.Point(5, 212)
+        Me.lblAnsprechp.Name = "lblAnsprechp"
+        Me.lblAnsprechp.ReadOnly = True
+        Me.lblAnsprechp.Size = New System.Drawing.Size(431, 19)
+        Me.lblAnsprechp.TabIndex = 196
+        Me.lblAnsprechp.Text = "Kontakt"
        '
        'txtEmailRE2
        '
@@ -3196,6 +3198,20 @@ Partial Class frmKundenblatt
        Me.UsrCntlUSTV.Size = New System.Drawing.Size(1667, 964)
        Me.UsrCntlUSTV.TabIndex = 0
        '
+        'Button8
+        '
+        Me.Button8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button8.Location = New System.Drawing.Point(612, 325)
+        Me.Button8.Name = "Button8"
+        Me.Button8.Size = New System.Drawing.Size(62, 32)
+        Me.Button8.TabIndex = 201
+        Me.Button8.Text = "Anschrift"
+        Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button8.UseVisualStyleBackColor = True
+        '
        'frmKundenblatt
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -3495,7 +3511,7 @@ Partial Class frmKundenblatt
    Friend WithEvents TextBox1 As TextBox
    Friend WithEvents PictureBox8 As PictureBox
    Friend WithEvents txtEmailRE2 As TextBox
-    Friend WithEvents txtAnsprechp As TextBox
+    Friend WithEvents lblAnsprechp As TextBox
    Friend WithEvents dgvLeistungen As DataGridView
    Friend WithEvents Label19 As Label
    Friend WithEvents UsrCntlKundenlogin1 As usrCntlKundenlogin
@@ -3503,4 +3519,5 @@ Partial Class frmKundenblatt
    Friend WithEvents Label20 As Label
    Friend WithEvents txt3470Betrag As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents Label21 As Label
+    Friend WithEvents Button8 As Button
 End Class
--- a/SDL/kunden/frmKundenblatt.vb
+++ b/SDL/kunden/frmKundenblatt.vb
@@ -813,9 +813,9 @@ Public Class frmKundenblatt
                lblAdressenzusatz.Text = checkNullStr(KUNDE_ERW.kde_AdressZusatz)
                lblLandPlzOrt.Text = checkNullStr(ADRESSE.LandKz) & " - " & checkNullStr(ADRESSE.PLZ) & " - " & checkNullStr(ADRESSE.Ort)
                lblPostfach.Text = checkNullStr(ADRESSE.PLZPF) & " - " & checkNullStr(ADRESSE.Postfach)
-                txtAnsprechp.Text = ""
-                txtAnsprechp.Text = IIf(checkNullStr(ADRESSE.Anrede) <> "", ADRESSE.Anrede & " ", "")
-                txtAnsprechp.Text &= IIf(checkNullStr(ADRESSE.Ansprechpartner) <> "", ADRESSE.Ansprechpartner, "")
+                lblAnsprechp.Text = ""
+                lblAnsprechp.Text = IIf(checkNullStr(ADRESSE.Anrede) <> "", ADRESSE.Anrede & " ", "")
+                lblAnsprechp.Text &= IIf(checkNullStr(ADRESSE.Ansprechpartner) <> "", ADRESSE.Ansprechpartner, "")


                lblTel.Text = checkNullStr(ADRESSE.Telefon)
@@ -833,13 +833,13 @@ Public Class frmKundenblatt


                If KUNDE_K_GF.hasEntry Then
-                    If txtAnsprechp.Text <> "" Then txtAnsprechp.Text &= " "
+                    If lblAnsprechp.Text <> "" Then lblAnsprechp.Text &= " "

-                    txtAnsprechp.Text &= "(GF:"
-                    txtAnsprechp.Text &= IIf(checkNullStr(KUNDE_K_GF.kkd_AnsprechpartnerAnrede) <> "", KUNDE_K_GF.kkd_AnsprechpartnerAnrede & " ", "")
-                        txtAnsprechp.Text &= IIf(checkNullStr(KUNDE_K_GF.kkd_AnsprechpartnerVorname) <> "", KUNDE_K_GF.kkd_AnsprechpartnerVorname & " ", "")
-                        txtAnsprechp.Text &= IIf(checkNullStr(KUNDE_K_GF.kkd_AnsprechpartnerNachname) <> "", KUNDE_K_GF.kkd_AnsprechpartnerNachname.ToString.ToUpper, "")
-                        txtAnsprechp.Text &= ")"
+                    lblAnsprechp.Text &= "(GF:"
+                    lblAnsprechp.Text &= IIf(checkNullStr(KUNDE_K_GF.kkd_AnsprechpartnerAnrede) <> "", KUNDE_K_GF.kkd_AnsprechpartnerAnrede & " ", "")
+                    lblAnsprechp.Text &= IIf(checkNullStr(KUNDE_K_GF.kkd_AnsprechpartnerVorname) <> "", KUNDE_K_GF.kkd_AnsprechpartnerVorname & " ", "")
+                    lblAnsprechp.Text &= IIf(checkNullStr(KUNDE_K_GF.kkd_AnsprechpartnerNachname) <> "", KUNDE_K_GF.kkd_AnsprechpartnerNachname.ToString.ToUpper, "")
+                    lblAnsprechp.Text &= ")"

                End If

@@ -2802,6 +2802,17 @@ Public Class frmKundenblatt

    End Sub

+    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click

+        Dim allText As String = ""
+
+        For Each ctrl As Control In tbAllgemein.Controls
+            If TypeOf ctrl Is TextBox AndAlso ctrl.Name.Contains("lbl") Then
+                allText &= DirectCast(ctrl, TextBox).Text & Environment.NewLine
+            End If
+        Next
+        If allText <> "" Then Clipboard.SetText(allText)
+
+    End Sub
 End Class