14.08.2019

SDL/kunden/usrCntlKundeFiskaldaten.Designer.vb

@@ -30,6 +30,10 @@ Partial Class usrCntlKundeFiskaldaten
         Me.cbxCMR = New System.Windows.Forms.CheckBox()
         Me.cbxSB = New System.Windows.Forms.CheckBox()
         Me.cbxFA = New System.Windows.Forms.CheckBox()
+        Me.txtEmail_Stb = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.txtEmail_FA = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.SuspendLayout()
         '
         'txtAbweichndeFiskalAdresse
@@ -56,7 +60,7 @@ Partial Class usrCntlKundeFiskaldaten
         Me.txtFA.Location = New System.Drawing.Point(12, 201)
         Me.txtFA.Multiline = True
         Me.txtFA.Name = "txtFA"
-        Me.txtFA.Size = New System.Drawing.Size(305, 90)
+        Me.txtFA.Size = New System.Drawing.Size(305, 73)
         Me.txtFA.TabIndex = 51
         '
         'txtSB
@@ -65,7 +69,7 @@ Partial Class usrCntlKundeFiskaldaten
         Me.txtSB.Location = New System.Drawing.Point(12, 81)
         Me.txtSB.Multiline = True
         Me.txtSB.Name = "txtSB"
-        Me.txtSB.Size = New System.Drawing.Size(305, 90)
+        Me.txtSB.Size = New System.Drawing.Size(305, 72)
         Me.txtSB.TabIndex = 50
         '
         'Label34
@@ -111,11 +115,77 @@ Partial Class usrCntlKundeFiskaldaten
         Me.cbxFA.Text = "Schreiben an Finanzamt"
         Me.cbxFA.UseVisualStyleBackColor = True
         '
+        'txtEmail_Stb
+        '
+        Me.txtEmail_Stb._DateTimeOnly = False
+        Me.txtEmail_Stb._numbersOnly = False
+        Me.txtEmail_Stb._numbersOnlyKommastellen = ""
+        Me.txtEmail_Stb._Prozent = False
+        Me.txtEmail_Stb._ShortDateNew = False
+        Me.txtEmail_Stb._ShortDateOnly = False
+        Me.txtEmail_Stb._TimeOnly = False
+        Me.txtEmail_Stb._value = ""
+        Me.txtEmail_Stb._Waehrung = False
+        Me.txtEmail_Stb._WaehrungZeichen = True
+        Me.txtEmail_Stb.ForeColor = System.Drawing.Color.Black
+        Me.txtEmail_Stb.Location = New System.Drawing.Point(54, 152)
+        Me.txtEmail_Stb.MaxLineLength = -1
+        Me.txtEmail_Stb.MaxLines_Warning = ""
+        Me.txtEmail_Stb.MaxLines_Warning_Label = Nothing
+        Me.txtEmail_Stb.Name = "txtEmail_Stb"
+        Me.txtEmail_Stb.Size = New System.Drawing.Size(263, 20)
+        Me.txtEmail_Stb.TabIndex = 58
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.Location = New System.Drawing.Point(9, 155)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(39, 13)
+        Me.Label1.TabIndex = 59
+        Me.Label1.Text = "E-Mail:"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label2.Location = New System.Drawing.Point(9, 276)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(39, 13)
+        Me.Label2.TabIndex = 61
+        Me.Label2.Text = "E-Mail:"
+        '
+        'txtEmail_FA
+        '
+        Me.txtEmail_FA._DateTimeOnly = False
+        Me.txtEmail_FA._numbersOnly = False
+        Me.txtEmail_FA._numbersOnlyKommastellen = ""
+        Me.txtEmail_FA._Prozent = False
+        Me.txtEmail_FA._ShortDateNew = False
+        Me.txtEmail_FA._ShortDateOnly = False
+        Me.txtEmail_FA._TimeOnly = False
+        Me.txtEmail_FA._value = ""
+        Me.txtEmail_FA._Waehrung = False
+        Me.txtEmail_FA._WaehrungZeichen = True
+        Me.txtEmail_FA.ForeColor = System.Drawing.Color.Black
+        Me.txtEmail_FA.Location = New System.Drawing.Point(54, 273)
+        Me.txtEmail_FA.MaxLineLength = -1
+        Me.txtEmail_FA.MaxLines_Warning = ""
+        Me.txtEmail_FA.MaxLines_Warning_Label = Nothing
+        Me.txtEmail_FA.Name = "txtEmail_FA"
+        Me.txtEmail_FA.Size = New System.Drawing.Size(263, 20)
+        Me.txtEmail_FA.TabIndex = 60
+        '
         'usrCntlKundeFiskaldaten
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.txtEmail_FA)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.txtEmail_Stb)
         Me.Controls.Add(Me.txtAbweichndeFiskalAdresse)
         Me.Controls.Add(Me.Label43)
         Me.Controls.Add(Me.txtFA)
@@ -138,5 +208,8 @@ Partial Class usrCntlKundeFiskaldaten
     Friend WithEvents cbxCMR As System.Windows.Forms.CheckBox
     Friend WithEvents cbxSB As System.Windows.Forms.CheckBox
     Friend WithEvents cbxFA As System.Windows.Forms.CheckBox
-
+    Friend WithEvents txtEmail_Stb As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents txtEmail_FA As VERAG_PROG_ALLGEMEIN.MyTextBox
 End Class

SDL/kunden/usrCntlKundeFiskaldaten.vb

@@ -30,6 +30,8 @@
         FISKAL.fisk_schreibenSB = cbxSB.Checked
         FISKAL.fisk_schreibenSB_Adr = txtSB.Text
         FISKAL.fisk_schreibenFA_Adr = txtFA.Text
+        FISKAL.fisk_schreibenFA_Mail = txtEmail_FA.Text
+        FISKAL.fisk_schreibenSB_Mail = txtEmail_Stb.Text
 
         ' ----- Kd-Daten -----
         KUNDE_ERW.kde_FirmenwortlautFiskal = txtAbweichndeFiskalAdresse.Text
@@ -44,6 +46,9 @@
 
             txtSB.Text = FISKAL.fisk_schreibenSB_Adr
             txtFA.Text = FISKAL.fisk_schreibenFA_Adr
+
+            txtEmail_FA.Text = FISKAL.fisk_schreibenFA_Mail
+            txtEmail_Stb.Text = FISKAL.fisk_schreibenSB_Mail
         End If