Creditsave-Rountine, Mailsender, etc.

2025-09-03 10:04:56 +02:00
parent 01a8f1f7ad
commit 18f433f345
6 changed files with 830 additions and 277 deletions
--- a/UID/usrctlProcedures.Designer.vb
+++ b/UID/usrctlProcedures.Designer.vb
@@ -86,6 +86,11 @@ Partial Class usrctlProcedures
        Me.btnTC_FtpIUpload = New System.Windows.Forms.Button()
        Me.Button48 = New System.Windows.Forms.Button()
        Me.Button47 = New System.Windows.Forms.Button()
+        Me.TabPage6 = New System.Windows.Forms.TabPage()
+        Me.Button51 = New System.Windows.Forms.Button()
+        Me.cbxMDM_Testsystem = New System.Windows.Forms.CheckBox()
+        Me.Button50 = New System.Windows.Forms.Button()
+        Me.Button49 = New System.Windows.Forms.Button()
        Me.Button18 = New System.Windows.Forms.Button()
        Me.TextBox1 = New System.Windows.Forms.TextBox()
        Me.lblAnzahl = New System.Windows.Forms.Label()
@@ -139,6 +144,9 @@ Partial Class usrctlProcedures
        Me.Button43 = New System.Windows.Forms.Button()
        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Label17 = New System.Windows.Forms.Label()
+        Me.Label18 = New System.Windows.Forms.Label()
+        Me.Label19 = New System.Windows.Forms.Label()
        Me.TabControl1.SuspendLayout()
        Me.TabPage3.SuspendLayout()
        Me.TabPage1.SuspendLayout()
@@ -148,6 +156,7 @@ Partial Class usrctlProcedures
        Me.TabPage2.SuspendLayout()
        Me.TabPage4.SuspendLayout()
        Me.TabPage5.SuspendLayout()
+        Me.TabPage6.SuspendLayout()
        Me.SuspendLayout()
        '
        'TabControl1
@@ -157,6 +166,7 @@ Partial Class usrctlProcedures
        Me.TabControl1.Controls.Add(Me.TabPage2)
        Me.TabControl1.Controls.Add(Me.TabPage4)
        Me.TabControl1.Controls.Add(Me.TabPage5)
+        Me.TabControl1.Controls.Add(Me.TabPage6)
        Me.TabControl1.Location = New System.Drawing.Point(7, 407)
        Me.TabControl1.Name = "TabControl1"
        Me.TabControl1.SelectedIndex = 0
@@ -769,6 +779,61 @@ Partial Class usrctlProcedures
        Me.Button47.Text = "getTAD"
        Me.Button47.UseVisualStyleBackColor = True
        '
+        'TabPage6
+        '
+        Me.TabPage6.Controls.Add(Me.Label19)
+        Me.TabPage6.Controls.Add(Me.Label18)
+        Me.TabPage6.Controls.Add(Me.Label17)
+        Me.TabPage6.Controls.Add(Me.Button51)
+        Me.TabPage6.Controls.Add(Me.cbxMDM_Testsystem)
+        Me.TabPage6.Controls.Add(Me.Button50)
+        Me.TabPage6.Controls.Add(Me.Button49)
+        Me.TabPage6.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage6.Name = "TabPage6"
+        Me.TabPage6.Size = New System.Drawing.Size(601, 288)
+        Me.TabPage6.TabIndex = 5
+        Me.TabPage6.Text = "MDM Importe"
+        Me.TabPage6.UseVisualStyleBackColor = True
+        '
+        'Button51
+        '
+        Me.Button51.Location = New System.Drawing.Point(32, 97)
+        Me.Button51.Name = "Button51"
+        Me.Button51.Size = New System.Drawing.Size(106, 28)
+        Me.Button51.TabIndex = 68
+        Me.Button51.Text = "Offertenpos"
+        Me.Button51.UseVisualStyleBackColor = True
+        '
+        'cbxMDM_Testsystem
+        '
+        Me.cbxMDM_Testsystem.AutoSize = True
+        Me.cbxMDM_Testsystem.Checked = True
+        Me.cbxMDM_Testsystem.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxMDM_Testsystem.Location = New System.Drawing.Point(14, 13)
+        Me.cbxMDM_Testsystem.Name = "cbxMDM_Testsystem"
+        Me.cbxMDM_Testsystem.Size = New System.Drawing.Size(98, 17)
+        Me.cbxMDM_Testsystem.TabIndex = 69
+        Me.cbxMDM_Testsystem.Text = "TESTSYSTEM"
+        Me.cbxMDM_Testsystem.UseVisualStyleBackColor = True
+        '
+        'Button50
+        '
+        Me.Button50.Location = New System.Drawing.Point(172, 63)
+        Me.Button50.Name = "Button50"
+        Me.Button50.Size = New System.Drawing.Size(106, 28)
+        Me.Button50.TabIndex = 67
+        Me.Button50.Text = "FIBU-Kundenkür."
+        Me.Button50.UseVisualStyleBackColor = True
+        '
+        'Button49
+        '
+        Me.Button49.Location = New System.Drawing.Point(32, 63)
+        Me.Button49.Name = "Button49"
+        Me.Button49.Size = New System.Drawing.Size(106, 28)
+        Me.Button49.TabIndex = 66
+        Me.Button49.Text = "Standard-Off."
+        Me.Button49.UseVisualStyleBackColor = True
+        '
        'Button18
        '
        Me.Button18.Location = New System.Drawing.Point(59, 183)
@@ -984,7 +1049,7 @@ Partial Class usrctlProcedures
        Me.txt.Multiline = True
        Me.txt.Name = "txt"
        Me.txt.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
-        Me.txt.Size = New System.Drawing.Size(124, 91)
+        Me.txt.Size = New System.Drawing.Size(124, 77)
        Me.txt.TabIndex = 38
        '
        'TextBox9
@@ -993,7 +1058,7 @@ Partial Class usrctlProcedures
        Me.TextBox9.Multiline = True
        Me.TextBox9.Name = "TextBox9"
        Me.TextBox9.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
-        Me.TextBox9.Size = New System.Drawing.Size(124, 91)
+        Me.TextBox9.Size = New System.Drawing.Size(124, 77)
        Me.TextBox9.TabIndex = 39
        '
        'Button22
@@ -1231,7 +1296,7 @@ Partial Class usrctlProcedures
        '
        'Button43
        '
-        Me.Button43.Location = New System.Drawing.Point(694, 29)
+        Me.Button43.Location = New System.Drawing.Point(565, 29)
        Me.Button43.Name = "Button43"
        Me.Button43.Size = New System.Drawing.Size(145, 49)
        Me.Button43.TabIndex = 65
@@ -1248,6 +1313,33 @@ Partial Class usrctlProcedures
        Me.DataGridViewTextBoxColumn2.HeaderText = "anz"
        Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
        '
+        'Label17
+        '
+        Me.Label17.AutoSize = True
+        Me.Label17.Location = New System.Drawing.Point(11, 71)
+        Me.Label17.Name = "Label17"
+        Me.Label17.Size = New System.Drawing.Size(19, 13)
+        Me.Label17.TabIndex = 66
+        Me.Label17.Text = "1. "
+        '
+        'Label18
+        '
+        Me.Label18.AutoSize = True
+        Me.Label18.Location = New System.Drawing.Point(11, 105)
+        Me.Label18.Name = "Label18"
+        Me.Label18.Size = New System.Drawing.Size(16, 13)
+        Me.Label18.TabIndex = 70
+        Me.Label18.Text = "2."
+        '
+        'Label19
+        '
+        Me.Label19.AutoSize = True
+        Me.Label19.Location = New System.Drawing.Point(11, 45)
+        Me.Label19.Name = "Label19"
+        Me.Label19.Size = New System.Drawing.Size(66, 13)
+        Me.Label19.TabIndex = 71
+        Me.Label19.Text = "CSV-Importe"
+        '
        'usrctlProcedures
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1320,6 +1412,8 @@ Partial Class usrctlProcedures
        Me.TabPage4.ResumeLayout(False)
        Me.TabPage4.PerformLayout()
        Me.TabPage5.ResumeLayout(False)
+        Me.TabPage6.ResumeLayout(False)
+        Me.TabPage6.PerformLayout()
        Me.ResumeLayout(False)
        Me.PerformLayout()

@@ -1441,4 +1535,12 @@ Partial Class usrctlProcedures
    Friend WithEvents Button47 As Button
    Friend WithEvents Button48 As Button
    Friend WithEvents btnTC_FtpIUpload As Button
+    Friend WithEvents Button49 As Button
+    Friend WithEvents Button50 As Button
+    Friend WithEvents Button51 As Button
+    Friend WithEvents TabPage6 As TabPage
+    Friend WithEvents cbxMDM_Testsystem As CheckBox
+    Friend WithEvents Label19 As Label
+    Friend WithEvents Label18 As Label
+    Friend WithEvents Label17 As Label
 End Class