Merge branch 'ADMIN' of https://git.it.verag.ag/edv/ADMIN into ADMIN

UID/Programme/frmProgDetails.Designer.vb

@@ -140,6 +140,10 @@ Partial Class frmProgDetails
         Me.Label29 = New System.Windows.Forms.Label()
         Me.Button35 = New System.Windows.Forms.Button()
         Me.cbxIncrementalCopy = New System.Windows.Forms.CheckBox()
+        Me.Label30 = New System.Windows.Forms.Label()
+        Me.txtProdPfadBackup = New System.Windows.Forms.TextBox()
+        Me.Button36 = New System.Windows.Forms.Button()
+        Me.Button37 = New System.Windows.Forms.Button()
         CType(Me.picIcon, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.grpName.SuspendLayout()
         Me.SuspendLayout()
@@ -322,7 +326,7 @@ Partial Class frmProgDetails
         '
         Me.Label7.AutoSize = True
         Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label7.Location = New System.Drawing.Point(20, 435)
+        Me.Label7.Location = New System.Drawing.Point(20, 452)
         Me.Label7.Name = "Label7"
         Me.Label7.Size = New System.Drawing.Size(79, 13)
         Me.Label7.TabIndex = 67
@@ -332,7 +336,7 @@ Partial Class frmProgDetails
         '
         Me.btnInstallSourceAkt.Enabled = False
         Me.btnInstallSourceAkt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnInstallSourceAkt.Location = New System.Drawing.Point(427, 449)
+        Me.btnInstallSourceAkt.Location = New System.Drawing.Point(427, 466)
         Me.btnInstallSourceAkt.Name = "btnInstallSourceAkt"
         Me.btnInstallSourceAkt.Size = New System.Drawing.Size(76, 24)
         Me.btnInstallSourceAkt.TabIndex = 66
@@ -342,7 +346,7 @@ Partial Class frmProgDetails
         'Label8
         '
         Me.Label8.AutoSize = True
-        Me.Label8.Location = New System.Drawing.Point(20, 454)
+        Me.Label8.Location = New System.Drawing.Point(20, 471)
         Me.Label8.Name = "Label8"
         Me.Label8.Size = New System.Drawing.Size(81, 26)
         Me.Label8.TabIndex = 65
@@ -350,7 +354,7 @@ Partial Class frmProgDetails
         '
         'txtInstallSourcePfad
         '
-        Me.txtInstallSourcePfad.Location = New System.Drawing.Point(132, 451)
+        Me.txtInstallSourcePfad.Location = New System.Drawing.Point(132, 468)
         Me.txtInstallSourcePfad.Name = "txtInstallSourcePfad"
         Me.txtInstallSourcePfad.Size = New System.Drawing.Size(289, 20)
         Me.txtInstallSourcePfad.TabIndex = 64
@@ -358,7 +362,7 @@ Partial Class frmProgDetails
         'btnInstallProdAkt
         '
         Me.btnInstallProdAkt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnInstallProdAkt.Location = New System.Drawing.Point(427, 512)
+        Me.btnInstallProdAkt.Location = New System.Drawing.Point(427, 529)
         Me.btnInstallProdAkt.Name = "btnInstallProdAkt"
         Me.btnInstallProdAkt.Size = New System.Drawing.Size(76, 24)
         Me.btnInstallProdAkt.TabIndex = 62
@@ -368,7 +372,7 @@ Partial Class frmProgDetails
         'btnInstallDevAkt
         '
         Me.btnInstallDevAkt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnInstallDevAkt.Location = New System.Drawing.Point(427, 486)
+        Me.btnInstallDevAkt.Location = New System.Drawing.Point(427, 503)
         Me.btnInstallDevAkt.Name = "btnInstallDevAkt"
         Me.btnInstallDevAkt.Size = New System.Drawing.Size(76, 24)
         Me.btnInstallDevAkt.TabIndex = 61
@@ -378,7 +382,7 @@ Partial Class frmProgDetails
         'Label9
         '
         Me.Label9.AutoSize = True
-        Me.Label9.Location = New System.Drawing.Point(20, 517)
+        Me.Label9.Location = New System.Drawing.Point(20, 534)
         Me.Label9.Name = "Label9"
         Me.Label9.Size = New System.Drawing.Size(80, 13)
         Me.Label9.TabIndex = 60
@@ -386,7 +390,7 @@ Partial Class frmProgDetails
         '
         'txtInstallProdPfad
         '
-        Me.txtInstallProdPfad.Location = New System.Drawing.Point(132, 514)
+        Me.txtInstallProdPfad.Location = New System.Drawing.Point(132, 531)
         Me.txtInstallProdPfad.Name = "txtInstallProdPfad"
         Me.txtInstallProdPfad.Size = New System.Drawing.Size(289, 20)
         Me.txtInstallProdPfad.TabIndex = 59
@@ -394,7 +398,7 @@ Partial Class frmProgDetails
         'Label11
         '
         Me.Label11.AutoSize = True
-        Me.Label11.Location = New System.Drawing.Point(20, 491)
+        Me.Label11.Location = New System.Drawing.Point(20, 508)
         Me.Label11.Name = "Label11"
         Me.Label11.Size = New System.Drawing.Size(84, 13)
         Me.Label11.TabIndex = 58
@@ -402,7 +406,7 @@ Partial Class frmProgDetails
         '
         'txtInstallDevPfad
         '
-        Me.txtInstallDevPfad.Location = New System.Drawing.Point(132, 488)
+        Me.txtInstallDevPfad.Location = New System.Drawing.Point(132, 505)
         Me.txtInstallDevPfad.Name = "txtInstallDevPfad"
         Me.txtInstallDevPfad.Size = New System.Drawing.Size(289, 20)
         Me.txtInstallDevPfad.TabIndex = 57
@@ -410,7 +414,7 @@ Partial Class frmProgDetails
         'btnInstallProdCopy
         '
         Me.btnInstallProdCopy.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnInstallProdCopy.Location = New System.Drawing.Point(509, 512)
+        Me.btnInstallProdCopy.Location = New System.Drawing.Point(509, 529)
         Me.btnInstallProdCopy.Name = "btnInstallProdCopy"
         Me.btnInstallProdCopy.Size = New System.Drawing.Size(100, 24)
         Me.btnInstallProdCopy.TabIndex = 56
@@ -420,7 +424,7 @@ Partial Class frmProgDetails
         'btnInstallDevCopy
         '
         Me.btnInstallDevCopy.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnInstallDevCopy.Location = New System.Drawing.Point(509, 485)
+        Me.btnInstallDevCopy.Location = New System.Drawing.Point(509, 502)
         Me.btnInstallDevCopy.Name = "btnInstallDevCopy"
         Me.btnInstallDevCopy.Size = New System.Drawing.Size(100, 24)
         Me.btnInstallDevCopy.TabIndex = 55
@@ -549,7 +553,7 @@ Partial Class frmProgDetails
         'Button3
         '
         Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button3.Location = New System.Drawing.Point(427, 538)
+        Me.Button3.Location = New System.Drawing.Point(427, 555)
         Me.Button3.Name = "Button3"
         Me.Button3.Size = New System.Drawing.Size(76, 24)
         Me.Button3.TabIndex = 82
@@ -559,7 +563,7 @@ Partial Class frmProgDetails
         'Label15
         '
         Me.Label15.AutoSize = True
-        Me.Label15.Location = New System.Drawing.Point(20, 543)
+        Me.Label15.Location = New System.Drawing.Point(20, 560)
         Me.Label15.Name = "Label15"
         Me.Label15.Size = New System.Drawing.Size(80, 13)
         Me.Label15.TabIndex = 81
@@ -567,7 +571,7 @@ Partial Class frmProgDetails
         '
         'txtInstallProdPfadAtilla
         '
-        Me.txtInstallProdPfadAtilla.Location = New System.Drawing.Point(132, 540)
+        Me.txtInstallProdPfadAtilla.Location = New System.Drawing.Point(132, 557)
         Me.txtInstallProdPfadAtilla.Name = "txtInstallProdPfadAtilla"
         Me.txtInstallProdPfadAtilla.Size = New System.Drawing.Size(289, 20)
         Me.txtInstallProdPfadAtilla.TabIndex = 80
@@ -575,7 +579,7 @@ Partial Class frmProgDetails
         'Button4
         '
         Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button4.Location = New System.Drawing.Point(509, 538)
+        Me.Button4.Location = New System.Drawing.Point(509, 555)
         Me.Button4.Name = "Button4"
         Me.Button4.Size = New System.Drawing.Size(100, 24)
         Me.Button4.TabIndex = 79
@@ -645,7 +649,7 @@ Partial Class frmProgDetails
         'Button7
         '
         Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button7.Location = New System.Drawing.Point(427, 564)
+        Me.Button7.Location = New System.Drawing.Point(427, 581)
         Me.Button7.Name = "Button7"
         Me.Button7.Size = New System.Drawing.Size(76, 24)
         Me.Button7.TabIndex = 92
@@ -655,7 +659,7 @@ Partial Class frmProgDetails
         'Label17
         '
         Me.Label17.AutoSize = True
-        Me.Label17.Location = New System.Drawing.Point(20, 569)
+        Me.Label17.Location = New System.Drawing.Point(20, 586)
         Me.Label17.Name = "Label17"
         Me.Label17.Size = New System.Drawing.Size(84, 13)
         Me.Label17.TabIndex = 91
@@ -663,7 +667,7 @@ Partial Class frmProgDetails
         '
         'txtInstallProdPfadimex
         '
-        Me.txtInstallProdPfadimex.Location = New System.Drawing.Point(132, 566)
+        Me.txtInstallProdPfadimex.Location = New System.Drawing.Point(132, 583)
         Me.txtInstallProdPfadimex.Name = "txtInstallProdPfadimex"
         Me.txtInstallProdPfadimex.Size = New System.Drawing.Size(289, 20)
         Me.txtInstallProdPfadimex.TabIndex = 90
@@ -671,7 +675,7 @@ Partial Class frmProgDetails
         'Button8
         '
         Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button8.Location = New System.Drawing.Point(509, 564)
+        Me.Button8.Location = New System.Drawing.Point(509, 581)
         Me.Button8.Name = "Button8"
         Me.Button8.Size = New System.Drawing.Size(100, 24)
         Me.Button8.TabIndex = 89
@@ -681,7 +685,7 @@ Partial Class frmProgDetails
         'Button9
         '
         Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button9.Location = New System.Drawing.Point(427, 590)
+        Me.Button9.Location = New System.Drawing.Point(427, 607)
         Me.Button9.Name = "Button9"
         Me.Button9.Size = New System.Drawing.Size(76, 24)
         Me.Button9.TabIndex = 96
@@ -691,7 +695,7 @@ Partial Class frmProgDetails
         'Label18
         '
         Me.Label18.AutoSize = True
-        Me.Label18.Location = New System.Drawing.Point(20, 595)
+        Me.Label18.Location = New System.Drawing.Point(20, 612)
         Me.Label18.Name = "Label18"
         Me.Label18.Size = New System.Drawing.Size(80, 13)
         Me.Label18.TabIndex = 95
@@ -699,7 +703,7 @@ Partial Class frmProgDetails
         '
         'txtInstallProdPfadSBG
         '
-        Me.txtInstallProdPfadSBG.Location = New System.Drawing.Point(132, 592)
+        Me.txtInstallProdPfadSBG.Location = New System.Drawing.Point(132, 609)
         Me.txtInstallProdPfadSBG.Name = "txtInstallProdPfadSBG"
         Me.txtInstallProdPfadSBG.Size = New System.Drawing.Size(289, 20)
         Me.txtInstallProdPfadSBG.TabIndex = 94
@@ -707,7 +711,7 @@ Partial Class frmProgDetails
         'Button10
         '
         Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button10.Location = New System.Drawing.Point(509, 590)
+        Me.Button10.Location = New System.Drawing.Point(509, 607)
         Me.Button10.Name = "Button10"
         Me.Button10.Size = New System.Drawing.Size(100, 24)
         Me.Button10.TabIndex = 93
@@ -779,7 +783,7 @@ Partial Class frmProgDetails
         Me.Button14.BackColor = System.Drawing.Color.SteelBlue
         Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button14.ForeColor = System.Drawing.Color.White
-        Me.Button14.Location = New System.Drawing.Point(509, 449)
+        Me.Button14.Location = New System.Drawing.Point(509, 466)
         Me.Button14.Name = "Button14"
         Me.Button14.Size = New System.Drawing.Size(100, 24)
         Me.Button14.TabIndex = 103
@@ -933,7 +937,7 @@ Partial Class frmProgDetails
         'Button21
         '
         Me.Button21.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button21.Location = New System.Drawing.Point(427, 616)
+        Me.Button21.Location = New System.Drawing.Point(427, 633)
         Me.Button21.Name = "Button21"
         Me.Button21.Size = New System.Drawing.Size(76, 24)
         Me.Button21.TabIndex = 122
@@ -943,7 +947,7 @@ Partial Class frmProgDetails
         'Label23
         '
         Me.Label23.AutoSize = True
-        Me.Label23.Location = New System.Drawing.Point(20, 621)
+        Me.Label23.Location = New System.Drawing.Point(20, 638)
         Me.Label23.Name = "Label23"
         Me.Label23.Size = New System.Drawing.Size(79, 13)
         Me.Label23.TabIndex = 121
@@ -951,7 +955,7 @@ Partial Class frmProgDetails
         '
         'txtInstallProdPfadWAI
         '
-        Me.txtInstallProdPfadWAI.Location = New System.Drawing.Point(132, 618)
+        Me.txtInstallProdPfadWAI.Location = New System.Drawing.Point(132, 635)
         Me.txtInstallProdPfadWAI.Name = "txtInstallProdPfadWAI"
         Me.txtInstallProdPfadWAI.Size = New System.Drawing.Size(289, 20)
         Me.txtInstallProdPfadWAI.TabIndex = 120
@@ -959,7 +963,7 @@ Partial Class frmProgDetails
         'Button22
         '
         Me.Button22.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button22.Location = New System.Drawing.Point(509, 616)
+        Me.Button22.Location = New System.Drawing.Point(509, 633)
         Me.Button22.Name = "Button22"
         Me.Button22.Size = New System.Drawing.Size(100, 24)
         Me.Button22.TabIndex = 119
@@ -969,7 +973,7 @@ Partial Class frmProgDetails
         'Button23
         '
         Me.Button23.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button23.Location = New System.Drawing.Point(427, 695)
+        Me.Button23.Location = New System.Drawing.Point(427, 712)
         Me.Button23.Name = "Button23"
         Me.Button23.Size = New System.Drawing.Size(76, 24)
         Me.Button23.TabIndex = 126
@@ -979,7 +983,7 @@ Partial Class frmProgDetails
         'Label24
         '
         Me.Label24.AutoSize = True
-        Me.Label24.Location = New System.Drawing.Point(20, 647)
+        Me.Label24.Location = New System.Drawing.Point(20, 664)
         Me.Label24.Name = "Label24"
         Me.Label24.Size = New System.Drawing.Size(81, 13)
         Me.Label24.TabIndex = 125
@@ -987,7 +991,7 @@ Partial Class frmProgDetails
         '
         'txtInstallProdPfadUNI
         '
-        Me.txtInstallProdPfadUNI.Location = New System.Drawing.Point(132, 697)
+        Me.txtInstallProdPfadUNI.Location = New System.Drawing.Point(132, 714)
         Me.txtInstallProdPfadUNI.Name = "txtInstallProdPfadUNI"
         Me.txtInstallProdPfadUNI.Size = New System.Drawing.Size(289, 20)
         Me.txtInstallProdPfadUNI.TabIndex = 124
@@ -995,7 +999,7 @@ Partial Class frmProgDetails
         'Button24
         '
         Me.Button24.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button24.Location = New System.Drawing.Point(509, 695)
+        Me.Button24.Location = New System.Drawing.Point(509, 712)
         Me.Button24.Name = "Button24"
         Me.Button24.Size = New System.Drawing.Size(100, 24)
         Me.Button24.TabIndex = 123
@@ -1005,7 +1009,7 @@ Partial Class frmProgDetails
         'Button25
         '
         Me.Button25.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button25.Location = New System.Drawing.Point(427, 721)
+        Me.Button25.Location = New System.Drawing.Point(427, 738)
         Me.Button25.Name = "Button25"
         Me.Button25.Size = New System.Drawing.Size(76, 24)
         Me.Button25.TabIndex = 130
@@ -1015,7 +1019,7 @@ Partial Class frmProgDetails
         'Label25
         '
         Me.Label25.AutoSize = True
-        Me.Label25.Location = New System.Drawing.Point(20, 673)
+        Me.Label25.Location = New System.Drawing.Point(20, 690)
         Me.Label25.Name = "Label25"
         Me.Label25.Size = New System.Drawing.Size(81, 13)
         Me.Label25.TabIndex = 129
@@ -1023,7 +1027,7 @@ Partial Class frmProgDetails
         '
         'txtInstallProdPfadAMB
         '
-        Me.txtInstallProdPfadAMB.Location = New System.Drawing.Point(132, 723)
+        Me.txtInstallProdPfadAMB.Location = New System.Drawing.Point(132, 740)
         Me.txtInstallProdPfadAMB.Name = "txtInstallProdPfadAMB"
         Me.txtInstallProdPfadAMB.Size = New System.Drawing.Size(289, 20)
         Me.txtInstallProdPfadAMB.TabIndex = 128
@@ -1031,7 +1035,7 @@ Partial Class frmProgDetails
         'Button26
         '
         Me.Button26.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button26.Location = New System.Drawing.Point(509, 721)
+        Me.Button26.Location = New System.Drawing.Point(509, 738)
         Me.Button26.Name = "Button26"
         Me.Button26.Size = New System.Drawing.Size(100, 24)
         Me.Button26.TabIndex = 127
@@ -1145,7 +1149,7 @@ Partial Class frmProgDetails
         'Button31
         '
         Me.Button31.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button31.Location = New System.Drawing.Point(427, 668)
+        Me.Button31.Location = New System.Drawing.Point(427, 685)
         Me.Button31.Name = "Button31"
         Me.Button31.Size = New System.Drawing.Size(76, 24)
         Me.Button31.TabIndex = 147
@@ -1154,7 +1158,7 @@ Partial Class frmProgDetails
         '
         'txtInstallProdPfadNEU
         '
-        Me.txtInstallProdPfadNEU.Location = New System.Drawing.Point(132, 670)
+        Me.txtInstallProdPfadNEU.Location = New System.Drawing.Point(132, 687)
         Me.txtInstallProdPfadNEU.Name = "txtInstallProdPfadNEU"
         Me.txtInstallProdPfadNEU.Size = New System.Drawing.Size(289, 20)
         Me.txtInstallProdPfadNEU.TabIndex = 146
@@ -1162,7 +1166,7 @@ Partial Class frmProgDetails
         'Button32
         '
         Me.Button32.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button32.Location = New System.Drawing.Point(509, 668)
+        Me.Button32.Location = New System.Drawing.Point(509, 685)
         Me.Button32.Name = "Button32"
         Me.Button32.Size = New System.Drawing.Size(100, 24)
         Me.Button32.TabIndex = 145
@@ -1172,7 +1176,7 @@ Partial Class frmProgDetails
         'Button33
         '
         Me.Button33.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button33.Location = New System.Drawing.Point(427, 642)
+        Me.Button33.Location = New System.Drawing.Point(427, 659)
         Me.Button33.Name = "Button33"
         Me.Button33.Size = New System.Drawing.Size(76, 24)
         Me.Button33.TabIndex = 144
@@ -1181,7 +1185,7 @@ Partial Class frmProgDetails
         '
         'txtInstallProdPfadNKD
         '
-        Me.txtInstallProdPfadNKD.Location = New System.Drawing.Point(132, 644)
+        Me.txtInstallProdPfadNKD.Location = New System.Drawing.Point(132, 661)
         Me.txtInstallProdPfadNKD.Name = "txtInstallProdPfadNKD"
         Me.txtInstallProdPfadNKD.Size = New System.Drawing.Size(289, 20)
         Me.txtInstallProdPfadNKD.TabIndex = 143
@@ -1189,7 +1193,7 @@ Partial Class frmProgDetails
         'Button34
         '
         Me.Button34.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button34.Location = New System.Drawing.Point(509, 642)
+        Me.Button34.Location = New System.Drawing.Point(509, 659)
         Me.Button34.Name = "Button34"
         Me.Button34.Size = New System.Drawing.Size(100, 24)
         Me.Button34.TabIndex = 142
@@ -1199,7 +1203,7 @@ Partial Class frmProgDetails
         'Label28
         '
         Me.Label28.AutoSize = True
-        Me.Label28.Location = New System.Drawing.Point(20, 726)
+        Me.Label28.Location = New System.Drawing.Point(20, 743)
         Me.Label28.Name = "Label28"
         Me.Label28.Size = New System.Drawing.Size(96, 13)
         Me.Label28.TabIndex = 149
@@ -1208,7 +1212,7 @@ Partial Class frmProgDetails
         'Label29
         '
         Me.Label29.AutoSize = True
-        Me.Label29.Location = New System.Drawing.Point(20, 700)
+        Me.Label29.Location = New System.Drawing.Point(20, 717)
         Me.Label29.Name = "Label29"
         Me.Label29.Size = New System.Drawing.Size(106, 13)
         Me.Label29.TabIndex = 148
@@ -1236,12 +1240,52 @@ Partial Class frmProgDetails
         Me.cbxIncrementalCopy.Text = "IncrementalCopy"
         Me.cbxIncrementalCopy.UseVisualStyleBackColor = True
         '
+        'Label30
+        '
+        Me.Label30.AutoSize = True
+        Me.Label30.Location = New System.Drawing.Point(20, 427)
+        Me.Label30.Name = "Label30"
+        Me.Label30.Size = New System.Drawing.Size(95, 13)
+        Me.Label30.TabIndex = 152
+        Me.Label30.Text = "Produktiv Backup:"
+        '
+        'txtProdPfadBackup
+        '
+        Me.txtProdPfadBackup.Location = New System.Drawing.Point(132, 424)
+        Me.txtProdPfadBackup.Name = "txtProdPfadBackup"
+        Me.txtProdPfadBackup.Size = New System.Drawing.Size(289, 20)
+        Me.txtProdPfadBackup.TabIndex = 153
+        '
+        'Button36
+        '
+        Me.Button36.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button36.Location = New System.Drawing.Point(427, 421)
+        Me.Button36.Name = "Button36"
+        Me.Button36.Size = New System.Drawing.Size(76, 24)
+        Me.Button36.TabIndex = 154
+        Me.Button36.Text = "Aktualisieren"
+        Me.Button36.UseVisualStyleBackColor = True
+        '
+        'Button37
+        '
+        Me.Button37.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button37.Location = New System.Drawing.Point(509, 421)
+        Me.Button37.Name = "Button37"
+        Me.Button37.Size = New System.Drawing.Size(100, 24)
+        Me.Button37.TabIndex = 155
+        Me.Button37.Text = "PRODUKTIV->F"
+        Me.Button37.UseVisualStyleBackColor = True
+        '
         'frmProgDetails
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.White
         Me.ClientSize = New System.Drawing.Size(759, 903)
+        Me.Controls.Add(Me.Button37)
+        Me.Controls.Add(Me.Button36)
+        Me.Controls.Add(Me.txtProdPfadBackup)
+        Me.Controls.Add(Me.Label30)
         Me.Controls.Add(Me.cbxIncrementalCopy)
         Me.Controls.Add(Me.Button35)
         Me.Controls.Add(Me.Label28)
@@ -1483,4 +1527,8 @@ Partial Class frmProgDetails
     Friend WithEvents Label29 As Label
     Friend WithEvents Button35 As Button
     Friend WithEvents cbxIncrementalCopy As CheckBox
+    Friend WithEvents Label30 As Label
+    Friend WithEvents txtProdPfadBackup As TextBox
+    Friend WithEvents Button36 As Button
+    Friend WithEvents Button37 As Button
 End Class

UID/Programme/frmProgDetails.vb

@@ -38,9 +38,6 @@ Public Class frmProgDetails
         txtSourcePfad.Text = getSourcePath()
 
 
-
-
-
         txtDevPfad.Text = daten.prog_dev_path
         txtProdPfad.Text = daten.prog_prod_path
         txtInstallSourcePfad.Text = getSourceInstallPath() ' daten.prog_installer_source_path
@@ -73,6 +70,8 @@ Public Class frmProgDetails
         txtProdPfadAMB.Text = daten.prog_prod_path_AMB
         txtInstallProdPfadAMB.Text = daten.prog_installer_prod_path_AMB
 
+        txtProdPfadBackup.Text = daten.prog_prod_path_Backup
+
     End Sub
 
     Function getSourcePath() As String
@@ -174,7 +173,7 @@ Public Class frmProgDetails
         daten.prog_prod_path_AMB = txtProdPfadAMB.Text
         daten.prog_installer_prod_path_AMB = txtInstallProdPfadAMB.Text
 
-
+        daten.prog_prod_path_Backup = txtProdPfadBackup.Text
 
         If PROG.insertProgramm(daten) Then Me.Close()
 
@@ -520,5 +519,12 @@ Public Class frmProgDetails
         Return True
     End Function
 
+    Private Sub Button36_Click(sender As Object, e As EventArgs) Handles Button36.Click
+        PROG.setParam("prog_prod_path_backup", txtProdPfadBackup.Text, codename)
+        init()
+    End Sub
 
+    Private Sub Button37_Click(sender As Object, e As EventArgs) Handles Button37.Click
+        copyProgrammFiles(sender, txtSourcePfad.Text, txtProdPfadBackup.Text, cbxZip.Checked, "")
+    End Sub
 End Class

UID/cClasses.vb

@@ -41,6 +41,9 @@ Public Class cProgramm
     Property prog_installer_prod_path_UNI As String = ""
     Property prog_prod_path_AMB As String = ""
     Property prog_installer_prod_path_AMB As String = ""
+
+    Property prog_prod_path_Backup As String = ""
+    Property prog_installer_prod_path_Backup As String = ""
 End Class
 
 Public Class cSeminar

UID/cSqlDb.vb

@@ -857,6 +857,7 @@ Public Class cProgramme
                         If Not dr.Item("prog_installer_prod_path_UNI") Is DBNull.Value Then daten.prog_installer_prod_path_UNI = dr.Item("prog_installer_prod_path_UNI")
                         If Not dr.Item("prog_prod_path_AMB") Is DBNull.Value Then daten.prog_prod_path_AMB = dr.Item("prog_prod_path_AMB")
                         If Not dr.Item("prog_installer_prod_path_AMB") Is DBNull.Value Then daten.prog_installer_prod_path_AMB = dr.Item("prog_installer_prod_path_AMB")
+                        If Not dr.Item("prog_prod_path_backup") Is DBNull.Value Then daten.prog_prod_path_Backup = dr.Item("prog_prod_path_backup")
 
                         Return daten
                     End If

initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb

@@ -657,7 +657,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
                                                 Dim kdNr As String = fileNameEasyTrip.Substring(0, 5)
                                                 Dim invoiceNo As String = "" 'FIT2002A25-079939
                                                 Dim invoiceDate As String = "" '20250908
-                                                Dim UID As String = "" 'DE_341929194
+                                                Dim UID As String = "" 'DE_341929194X
 
                                                 Dim RMC As New cRMC() 'easytry über Filename anlegen!
 
@@ -665,7 +665,7 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
                                                 invoiceDate = fileNameEasyTrip.Substring(indexOfFIT + 17, 8)
                                                 Dim parsedDate As DateTime = DateTime.ParseExact(invoiceDate, "yyyyMMdd", System.Globalization.CultureInfo.InvariantCulture)
 
-                                                UID = fileNameEasyTrip.Substring(fileNameEasyTrip.IndexOf("AT70") + 4, 12)
+                                                UID = fileNameEasyTrip.Substring(fileNameEasyTrip.IndexOf("AT70") + 4, 13)
                                                 UID = UID.Replace("_", "")
 
                                                 RMC.rmc_reDatum = parsedDate.ToString("dd.MM.yyyy")

initATLASAufschubkonten/frmStartOptions.resx

@@ -743,6 +743,30 @@
         +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
         RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
         SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="PictureBox27.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
+        YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
+        BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
+        FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
+        Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
+        6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
+        Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
+        2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
+        j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
+        1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
+        WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
+        qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
+        LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
+        GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
+        g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
+        BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
+        cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
+        +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
+        RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
+        SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="PictureBox12.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

initATLASAufschubkonten/frmStartOptions.vb

@@ -6,11 +6,7 @@ Imports System.Security.Cryptography.X509Certificates
 Imports System.Text
 Imports System.Threading
 Imports System.Xml
-Imports com.sun.org.apache.bcel.internal.generic
-Imports com.sun.tools.javadoc
-Imports DAKOSY_Worker
 Imports javax
-Imports DocumentFormat.OpenXml.Wordprocessing
 Imports MDM_Worker
 Imports Renci.SshNet
 Imports VERAG_PROG_ALLGEMEIN
@@ -7324,6 +7320,9 @@ repeatRequest:
         dt_wrongEmails.Columns.Add("fehlerhafteMail-CC", GetType(String))
         dt_wrongEmails.Columns.Add("fehlerhafteMail-BCC", GetType(String))
 
+        'nur Prüfung bei Kunden, die in den letzen 2 Jahren eine Rechnung bekommen haben! (laut A.Stockenhuber).
+        Dim dtRechnungen As DataTable = (New SQL).loadDgvBySql("select distinct(RechnungsKundenNr) from Rechnungsausgang where cast(RechnungsDatum as Date) >= ' " & Today().AddYears(-2) & "' ", "FMZOLL")
+
         If dt IsNot Nothing Then
             For Each r As DataRow In dt.Rows
 
@@ -7332,6 +7331,9 @@ repeatRequest:
                 Dim fehlerhafteMailBCC As String = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(r("kkd_emailbcc"))
 
                 If fehlerhafteMail <> "" Or fehlerhafteMailCC <> "" Or fehlerhafteMailBCC <> "" Then
+
+                    Dim exists As Boolean = dtRechnungen.AsEnumerable().Any(Function(r_rechnung) r_rechnung.Field(Of Integer)("RechnungsKundenNr") = r.Item("AdressenNr"))
+                    If exists Then
                         Dim ROW As DataRow = dt_wrongEmails.NewRow
                         ROW("KdNr") = r.Item("AdressenNr")
                         ROW("Art") = r.Item("kkd_kkaBez")
@@ -7342,6 +7344,8 @@ repeatRequest:
                         ROW("fehlerhafteMail-BCC") = fehlerhafteMailBCC
                         dt_wrongEmails.Rows.Add(ROW)
                     End If
+                End If
+
 
             Next
 
@@ -7357,5 +7361,74 @@ repeatRequest:
         End If
 
 
+    End Sub
+
+    Private Sub dtp_MDM_Einarbeitung_ValueChanged(sender As Object, e As EventArgs) Handles dtp_MDM_Einarbeitung.ValueChanged
+
+        Dim ok As Boolean = checkMDMdatum(dtp_MDM_Einarbeitung.Value)
+
+        showPic(ok, PictureBox27)
+
+
+
+        With dgv_MDMEinarbeitung
+
+            .ClearSelection()
+            .SET_SQL("SELECT [supplier],[completed],sum(ds_total) as DS ,sum(ds_count) as DS_importiert FROM [VERAG].[dbo].[tblMDMEinarbeitung]
+                            where cast(invoicedate as Date) = '" & dtp_MDM_Einarbeitung.Value & "'
+                            group by [supplier], completed", "FMZOLL")
+
+            .LOAD()
+            .RowTemplate.Height = 20
+            .AllowUserToOrderColumns = False
+
+        End With
+
+
+
+
+    End Sub
+
+    Private Function checkMDMdatum(abrDate As Date)
+
+
+        Dim checkDate As Boolean = False
+
+        If Not (abrDate.Day = 15 Or abrDate.Day = 30 Or abrDate.Day = 31 Or (abrDate.Month = 2 And abrDate.Day = 28)) Then
+
+            checkDate = False
+
+        Else
+            checkDate = True
+        End If
+
+        Return checkDate
+    End Function
+
+    Private Sub Button30_Click(sender As Object, e As EventArgs) Handles Button30.Click
+
+
+        Dim BezeichnungSetzen As String = "select Beschreibung_DE,Beschreibung_EN  FROM [tblVZPreisliste] where Beschreibung_DE = ''" 'hardcoded, weil erst zu diesem Zeitpunkt bekommen wir alle RMC-Rechnungen vollständig
+
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+        Dim dtRechnnungsdaten As DataTable = SQL.loadDgvBySql(BezeichnungSetzen, "FMZOLL")
+
+        If dtRechnnungsdaten.Rows.Count > 0 Then
+
+
+            For Each r As DataRow In dtRechnnungsdaten.Rows
+
+                Dim BezDE As String = SQL.getValueTxtBySql("Select Beschreibung_DE FROM [tblVZPreisliste] WHERE Beschreibung_EN= '" & r.Item("Beschreibung_EN") & "'", "FMZOLL",,, "")
+
+                If BezDE <> "" Then
+                    SQL.doSQL("Update [tblVZPreisliste]  SET Beschreibung_DE='" & BezDE & "'  where Beschreibung_EN = '" & r.Item("Beschreibung_EN") & "' AND Beschreibung_DE = ''  ", "FMZOLL")
+                End If
+
+
+            Next
+
+        End If
+
+
     End Sub
 End Class