14.08.2019

2019-08-14 08:59:04 +02:00
parent d98d9950c3
commit 19cc980474
15 changed files with 1502 additions and 344 deletions
--- a/SDL/Fakturierung/frmFaktEmail.Designer.vb
+++ b/SDL/Fakturierung/frmFaktEmail.Designer.vb
@@ -47,9 +47,6 @@ Partial Class frmFaktEmail
        Me.Label3 = New System.Windows.Forms.Label()
        Me.cbxOriginalPrint = New System.Windows.Forms.CheckBox()
        Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.cbxMergePDF = New System.Windows.Forms.CheckBox()
-        Me.Label4 = New System.Windows.Forms.Label()
-        Me.lblKunde = New System.Windows.Forms.LinkLabel()
        Me.clmnLKW = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.clmnStb_docID = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.clmnMitt_docID = New System.Windows.Forms.DataGridViewTextBoxColumn()
@@ -57,6 +54,14 @@ Partial Class frmFaktEmail
        Me.clmnStb = New System.Windows.Forms.DataGridViewCheckBoxColumn()
        Me.clmnMitt = New System.Windows.Forms.DataGridViewCheckBoxColumn()
        Me.clmnVBD = New System.Windows.Forms.DataGridViewCheckBoxColumn()
+        Me.cbxMergePDF = New System.Windows.Forms.CheckBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.lblKunde = New System.Windows.Forms.LinkLabel()
+        Me.cbxSteuerberaterEmail = New System.Windows.Forms.CheckBox()
+        Me.cbxFAEmail = New System.Windows.Forms.CheckBox()
+        Me.txtSteuerberaterEmail = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtFAEmail = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Button4 = New System.Windows.Forms.Button()
        CType(Me.dgvEmailBCC, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.dgvEmailCC, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.dgvEmail, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -302,37 +307,6 @@ Partial Class frmFaktEmail
        Me.MyDatagridview1.Size = New System.Drawing.Size(537, 390)
        Me.MyDatagridview1.TabIndex = 19
        '
-        'cbxMergePDF
-        '
-        Me.cbxMergePDF.AutoSize = True
-        Me.cbxMergePDF.Location = New System.Drawing.Point(610, 369)
-        Me.cbxMergePDF.Name = "cbxMergePDF"
-        Me.cbxMergePDF.Size = New System.Drawing.Size(135, 17)
-        Me.cbxMergePDF.TabIndex = 20
-        Me.cbxMergePDF.Text = "PDFs zusammenführen"
-        Me.cbxMergePDF.UseVisualStyleBackColor = True
-        '
-        'Label4
-        '
-        Me.Label4.AutoSize = True
-        Me.Label4.Location = New System.Drawing.Point(12, 9)
-        Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(41, 13)
-        Me.Label4.TabIndex = 21
-        Me.Label4.Text = "Kunde:"
-        '
-        'lblKunde
-        '
-        Me.lblKunde.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblKunde.ForeColor = System.Drawing.SystemColors.ControlText
-        Me.lblKunde.LinkColor = System.Drawing.Color.Black
-        Me.lblKunde.Location = New System.Drawing.Point(64, 9)
-        Me.lblKunde.Name = "lblKunde"
-        Me.lblKunde.Size = New System.Drawing.Size(677, 18)
-        Me.lblKunde.TabIndex = 22
-        Me.lblKunde.TabStop = True
-        Me.lblKunde.Text = "Kunde"
-        '
        'clmnLKW
        '
        Me.clmnLKW.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
@@ -384,12 +358,126 @@ Partial Class frmFaktEmail
        Me.clmnVBD.ReadOnly = True
        Me.clmnVBD.Width = 90
        '
+        'cbxMergePDF
+        '
+        Me.cbxMergePDF.AutoSize = True
+        Me.cbxMergePDF.Location = New System.Drawing.Point(610, 369)
+        Me.cbxMergePDF.Name = "cbxMergePDF"
+        Me.cbxMergePDF.Size = New System.Drawing.Size(135, 17)
+        Me.cbxMergePDF.TabIndex = 20
+        Me.cbxMergePDF.Text = "PDFs zusammenführen"
+        Me.cbxMergePDF.UseVisualStyleBackColor = True
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(12, 9)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(41, 13)
+        Me.Label4.TabIndex = 21
+        Me.Label4.Text = "Kunde:"
+        '
+        'lblKunde
+        '
+        Me.lblKunde.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblKunde.ForeColor = System.Drawing.SystemColors.ControlText
+        Me.lblKunde.LinkColor = System.Drawing.Color.Black
+        Me.lblKunde.Location = New System.Drawing.Point(64, 9)
+        Me.lblKunde.Name = "lblKunde"
+        Me.lblKunde.Size = New System.Drawing.Size(677, 18)
+        Me.lblKunde.TabIndex = 22
+        Me.lblKunde.TabStop = True
+        Me.lblKunde.Text = "Kunde"
+        '
+        'cbxSteuerberaterEmail
+        '
+        Me.cbxSteuerberaterEmail.AutoSize = True
+        Me.cbxSteuerberaterEmail.Location = New System.Drawing.Point(70, 795)
+        Me.cbxSteuerberaterEmail.Name = "cbxSteuerberaterEmail"
+        Me.cbxSteuerberaterEmail.Size = New System.Drawing.Size(140, 17)
+        Me.cbxSteuerberaterEmail.TabIndex = 23
+        Me.cbxSteuerberaterEmail.Text = "E-Mail an Steuerberater:"
+        Me.cbxSteuerberaterEmail.UseVisualStyleBackColor = True
+        '
+        'cbxFAEmail
+        '
+        Me.cbxFAEmail.AutoSize = True
+        Me.cbxFAEmail.Location = New System.Drawing.Point(70, 820)
+        Me.cbxFAEmail.Name = "cbxFAEmail"
+        Me.cbxFAEmail.Size = New System.Drawing.Size(124, 17)
+        Me.cbxFAEmail.TabIndex = 24
+        Me.cbxFAEmail.Text = "E-Mail an Finanzamt:"
+        Me.cbxFAEmail.UseVisualStyleBackColor = True
+        '
+        'txtSteuerberaterEmail
+        '
+        Me.txtSteuerberaterEmail._DateTimeOnly = False
+        Me.txtSteuerberaterEmail._numbersOnly = False
+        Me.txtSteuerberaterEmail._numbersOnlyKommastellen = ""
+        Me.txtSteuerberaterEmail._Prozent = False
+        Me.txtSteuerberaterEmail._ShortDateNew = False
+        Me.txtSteuerberaterEmail._ShortDateOnly = False
+        Me.txtSteuerberaterEmail._TimeOnly = False
+        Me.txtSteuerberaterEmail._value = ""
+        Me.txtSteuerberaterEmail._Waehrung = False
+        Me.txtSteuerberaterEmail._WaehrungZeichen = True
+        Me.txtSteuerberaterEmail.Enabled = False
+        Me.txtSteuerberaterEmail.ForeColor = System.Drawing.Color.Black
+        Me.txtSteuerberaterEmail.Location = New System.Drawing.Point(213, 793)
+        Me.txtSteuerberaterEmail.MaxLineLength = -1
+        Me.txtSteuerberaterEmail.MaxLines_Warning = ""
+        Me.txtSteuerberaterEmail.MaxLines_Warning_Label = Nothing
+        Me.txtSteuerberaterEmail.Name = "txtSteuerberaterEmail"
+        Me.txtSteuerberaterEmail.Size = New System.Drawing.Size(391, 20)
+        Me.txtSteuerberaterEmail.TabIndex = 25
+        '
+        'txtFAEmail
+        '
+        Me.txtFAEmail._DateTimeOnly = False
+        Me.txtFAEmail._numbersOnly = False
+        Me.txtFAEmail._numbersOnlyKommastellen = ""
+        Me.txtFAEmail._Prozent = False
+        Me.txtFAEmail._ShortDateNew = False
+        Me.txtFAEmail._ShortDateOnly = False
+        Me.txtFAEmail._TimeOnly = False
+        Me.txtFAEmail._value = ""
+        Me.txtFAEmail._Waehrung = False
+        Me.txtFAEmail._WaehrungZeichen = True
+        Me.txtFAEmail.Enabled = False
+        Me.txtFAEmail.ForeColor = System.Drawing.Color.Black
+        Me.txtFAEmail.Location = New System.Drawing.Point(213, 818)
+        Me.txtFAEmail.MaxLineLength = -1
+        Me.txtFAEmail.MaxLines_Warning = ""
+        Me.txtFAEmail.MaxLines_Warning_Label = Nothing
+        Me.txtFAEmail.Name = "txtFAEmail"
+        Me.txtFAEmail.Size = New System.Drawing.Size(391, 20)
+        Me.txtFAEmail.TabIndex = 26
+        '
+        'Button4
+        '
+        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button4.Image = Global.SDL.My.Resources.Resources.save
+        Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button4.Location = New System.Drawing.Point(614, 793)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(131, 45)
+        Me.Button4.TabIndex = 27
+        Me.Button4.Text = "Daten im Kunden-" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Stamm speichern"
+        Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button4.UseVisualStyleBackColor = True
+        Me.Button4.Visible = False
+        '
        'frmFaktEmail
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.BackColor = System.Drawing.Color.WhiteSmoke
-        Me.ClientSize = New System.Drawing.Size(753, 792)
+        Me.ClientSize = New System.Drawing.Size(753, 850)
+        Me.Controls.Add(Me.Button4)
+        Me.Controls.Add(Me.txtFAEmail)
+        Me.Controls.Add(Me.txtSteuerberaterEmail)
+        Me.Controls.Add(Me.cbxFAEmail)
+        Me.Controls.Add(Me.cbxSteuerberaterEmail)
        Me.Controls.Add(Me.lblKunde)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.cbxMergePDF)
@@ -459,4 +547,9 @@ Partial Class frmFaktEmail
    Friend WithEvents clmnStb As DataGridViewCheckBoxColumn
    Friend WithEvents clmnMitt As DataGridViewCheckBoxColumn
    Friend WithEvents clmnVBD As DataGridViewCheckBoxColumn
+    Friend WithEvents cbxSteuerberaterEmail As CheckBox
+    Friend WithEvents cbxFAEmail As CheckBox
+    Friend WithEvents txtSteuerberaterEmail As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtFAEmail As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Button4 As Button
 End Class