ATEZ, USTV, etc.

SDL/seriendruck/usrCntlFakturierung.Designer.vb

@@ -33,12 +33,15 @@ Partial Class usrcntlFakturierung
         Me.Label61 = New System.Windows.Forms.Label()
         Me.GBMautberichte = New System.Windows.Forms.GroupBox()
         Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.Label5 = New System.Windows.Forms.Label()
         Me.lblAnzahlMautberichte = New System.Windows.Forms.Label()
         Me.pbMautAnh_Proz = New System.Windows.Forms.ProgressBar()
         Me.lblMautAnh_Proz = New System.Windows.Forms.Label()
+        Me.cbxDateMautbericht = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label69 = New System.Windows.Forms.Label()
         Me.Label68 = New System.Windows.Forms.Label()
+        Me.cbxMautbericht = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label62 = New System.Windows.Forms.Label()
         Me.Button18 = New System.Windows.Forms.Button()
         Me.Label44 = New System.Windows.Forms.Label()
@@ -52,7 +55,7 @@ Partial Class usrcntlFakturierung
         Me.Button3 = New System.Windows.Forms.Button()
         Me.Button2 = New System.Windows.Forms.Button()
         Me.cbxMautanh = New System.Windows.Forms.CheckBox()
-        Me.Button1 = New System.Windows.Forms.Button()
+        Me.btnMautanh_pruefen = New System.Windows.Forms.Button()
         Me.PictureBox6 = New System.Windows.Forms.PictureBox()
         Me.PictureBox5 = New System.Windows.Forms.PictureBox()
         Me.PictureBox4 = New System.Windows.Forms.PictureBox()
@@ -63,16 +66,18 @@ Partial Class usrcntlFakturierung
         Me.cbxVorschau = New System.Windows.Forms.CheckBox()
         Me.cbxAbfVerbotdrucken = New System.Windows.Forms.CheckBox()
         Me.cbxRechnungsjournaldrucken = New System.Windows.Forms.CheckBox()
-        Me.Button20 = New System.Windows.Forms.Button()
+        Me.btn_Mautanh_entfernen = New System.Windows.Forms.Button()
         Me.Label72 = New System.Windows.Forms.Label()
+        Me.KdSearchBox3 = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
         Me.rbkunde = New System.Windows.Forms.RadioButton()
         Me.rbAlleKunden = New System.Windows.Forms.RadioButton()
         Me.txtPloseAnh_Einarbeitung = New System.Windows.Forms.TextBox()
         Me.Label71 = New System.Windows.Forms.Label()
         Me.pbPloseAnh_Proz = New System.Windows.Forms.ProgressBar()
         Me.lblPloseAnh_Proz = New System.Windows.Forms.Label()
-        Me.Button19 = New System.Windows.Forms.Button()
+        Me.btn_setRENr = New System.Windows.Forms.Button()
         Me.Label70 = New System.Windows.Forms.Label()
+        Me.cboSachbearbeiter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label67 = New System.Windows.Forms.Label()
         Me.dtRechnungsdatum = New System.Windows.Forms.DateTimePicker()
         Me.Label66 = New System.Windows.Forms.Label()
@@ -80,14 +85,10 @@ Partial Class usrcntlFakturierung
         Me.Label64 = New System.Windows.Forms.Label()
         Me.Label63 = New System.Windows.Forms.Label()
         Me.Label45 = New System.Windows.Forms.Label()
-        Me.Button14 = New System.Windows.Forms.Button()
-        Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.cbxDateMautbericht = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.cbxMautbericht = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.KdSearchBox3 = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
-        Me.cboSachbearbeiter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.btnRePos = New System.Windows.Forms.Button()
         Me.GroupBox1.SuspendLayout()
         Me.GBMautberichte.SuspendLayout()
+        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.GBSammelrechnung.SuspendLayout()
         CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -97,7 +98,6 @@ Partial Class usrcntlFakturierung
         CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'GroupBox1
@@ -212,6 +212,16 @@ Partial Class usrcntlFakturierung
         Me.TextBox1.Size = New System.Drawing.Size(106, 13)
         Me.TextBox1.TabIndex = 105
         '
+        'MyDatagridview1
+        '
+        Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
+        Me.MyDatagridview1.BackgroundColor = System.Drawing.SystemColors.Window
+        Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.MyDatagridview1.Location = New System.Drawing.Point(4, 71)
+        Me.MyDatagridview1.Name = "MyDatagridview1"
+        Me.MyDatagridview1.Size = New System.Drawing.Size(471, 135)
+        Me.MyDatagridview1.TabIndex = 34
+        '
         'Label5
         '
         Me.Label5.AutoSize = True
@@ -245,6 +255,17 @@ Partial Class usrcntlFakturierung
         Me.lblMautAnh_Proz.Text = "0%"
         Me.lblMautAnh_Proz.TextAlign = System.Drawing.ContentAlignment.TopRight
         '
+        'cbxDateMautbericht
+        '
+        Me.cbxDateMautbericht._allowedValuesFreiText = Nothing
+        Me.cbxDateMautbericht._allowFreiText = False
+        Me.cbxDateMautbericht._value = ""
+        Me.cbxDateMautbericht.FormattingEnabled = True
+        Me.cbxDateMautbericht.Location = New System.Drawing.Point(265, 12)
+        Me.cbxDateMautbericht.Name = "cbxDateMautbericht"
+        Me.cbxDateMautbericht.Size = New System.Drawing.Size(87, 21)
+        Me.cbxDateMautbericht.TabIndex = 32
+        '
         'Label69
         '
         Me.Label69.AutoSize = True
@@ -262,6 +283,18 @@ Partial Class usrcntlFakturierung
         Me.Label68.TabIndex = 30
         Me.Label68.Text = "Generiert Mautberichte"
         '
+        'cbxMautbericht
+        '
+        Me.cbxMautbericht._allowedValuesFreiText = Nothing
+        Me.cbxMautbericht._allowFreiText = False
+        Me.cbxMautbericht._value = ""
+        Me.cbxMautbericht.DropDownWidth = 200
+        Me.cbxMautbericht.FormattingEnabled = True
+        Me.cbxMautbericht.Location = New System.Drawing.Point(265, 33)
+        Me.cbxMautbericht.Name = "cbxMautbericht"
+        Me.cbxMautbericht.Size = New System.Drawing.Size(152, 21)
+        Me.cbxMautbericht.TabIndex = 30
+        '
         'Label62
         '
         Me.Label62.AutoSize = True
@@ -304,7 +337,7 @@ Partial Class usrcntlFakturierung
         Me.GBSammelrechnung.Controls.Add(Me.Button3)
         Me.GBSammelrechnung.Controls.Add(Me.Button2)
         Me.GBSammelrechnung.Controls.Add(Me.cbxMautanh)
-        Me.GBSammelrechnung.Controls.Add(Me.Button1)
+        Me.GBSammelrechnung.Controls.Add(Me.btnMautanh_pruefen)
         Me.GBSammelrechnung.Controls.Add(Me.PictureBox6)
         Me.GBSammelrechnung.Controls.Add(Me.PictureBox5)
         Me.GBSammelrechnung.Controls.Add(Me.PictureBox4)
@@ -315,7 +348,7 @@ Partial Class usrcntlFakturierung
         Me.GBSammelrechnung.Controls.Add(Me.cbxVorschau)
         Me.GBSammelrechnung.Controls.Add(Me.cbxAbfVerbotdrucken)
         Me.GBSammelrechnung.Controls.Add(Me.cbxRechnungsjournaldrucken)
-        Me.GBSammelrechnung.Controls.Add(Me.Button20)
+        Me.GBSammelrechnung.Controls.Add(Me.btn_Mautanh_entfernen)
         Me.GBSammelrechnung.Controls.Add(Me.Label72)
         Me.GBSammelrechnung.Controls.Add(Me.KdSearchBox3)
         Me.GBSammelrechnung.Controls.Add(Me.rbkunde)
@@ -324,7 +357,7 @@ Partial Class usrcntlFakturierung
         Me.GBSammelrechnung.Controls.Add(Me.Label71)
         Me.GBSammelrechnung.Controls.Add(Me.pbPloseAnh_Proz)
         Me.GBSammelrechnung.Controls.Add(Me.lblPloseAnh_Proz)
-        Me.GBSammelrechnung.Controls.Add(Me.Button19)
+        Me.GBSammelrechnung.Controls.Add(Me.btn_setRENr)
         Me.GBSammelrechnung.Controls.Add(Me.Label70)
         Me.GBSammelrechnung.Controls.Add(Me.cboSachbearbeiter)
         Me.GBSammelrechnung.Controls.Add(Me.Label67)
@@ -334,7 +367,7 @@ Partial Class usrcntlFakturierung
         Me.GBSammelrechnung.Controls.Add(Me.Label64)
         Me.GBSammelrechnung.Controls.Add(Me.Label63)
         Me.GBSammelrechnung.Controls.Add(Me.Label45)
-        Me.GBSammelrechnung.Controls.Add(Me.Button14)
+        Me.GBSammelrechnung.Controls.Add(Me.btnRePos)
         Me.GBSammelrechnung.Enabled = False
         Me.GBSammelrechnung.Location = New System.Drawing.Point(10, 356)
         Me.GBSammelrechnung.Name = "GBSammelrechnung"
@@ -438,16 +471,16 @@ Partial Class usrcntlFakturierung
         Me.cbxMautanh.Text = "Mautanhänge im PDF hinzufügen"
         Me.cbxMautanh.UseVisualStyleBackColor = True
         '
-        'Button1
+        'btnMautanh_pruefen
         '
-        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.Button1.Location = New System.Drawing.Point(10, 12)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(121, 49)
-        Me.Button1.TabIndex = 106
-        Me.Button1.Text = "Mautanh. prüfen"
-        Me.Button1.UseVisualStyleBackColor = True
+        Me.btnMautanh_pruefen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnMautanh_pruefen.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.btnMautanh_pruefen.Location = New System.Drawing.Point(10, 12)
+        Me.btnMautanh_pruefen.Name = "btnMautanh_pruefen"
+        Me.btnMautanh_pruefen.Size = New System.Drawing.Size(121, 49)
+        Me.btnMautanh_pruefen.TabIndex = 106
+        Me.btnMautanh_pruefen.Text = "Mautanh. prüfen"
+        Me.btnMautanh_pruefen.UseVisualStyleBackColor = True
         '
         'PictureBox6
         '
@@ -559,16 +592,16 @@ Partial Class usrcntlFakturierung
         Me.cbxRechnungsjournaldrucken.Text = "Rechnungsjournal drucken"
         Me.cbxRechnungsjournaldrucken.UseVisualStyleBackColor = True
         '
-        'Button20
+        'btn_Mautanh_entfernen
         '
-        Me.Button20.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button20.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.Button20.Location = New System.Drawing.Point(147, 12)
-        Me.Button20.Name = "Button20"
-        Me.Button20.Size = New System.Drawing.Size(121, 49)
-        Me.Button20.TabIndex = 43
-        Me.Button20.Text = "Mautanh. aus RE entfernen"
-        Me.Button20.UseVisualStyleBackColor = True
+        Me.btn_Mautanh_entfernen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn_Mautanh_entfernen.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.btn_Mautanh_entfernen.Location = New System.Drawing.Point(147, 12)
+        Me.btn_Mautanh_entfernen.Name = "btn_Mautanh_entfernen"
+        Me.btn_Mautanh_entfernen.Size = New System.Drawing.Size(121, 49)
+        Me.btn_Mautanh_entfernen.TabIndex = 43
+        Me.btn_Mautanh_entfernen.Text = "Mautanh. aus RE entfernen"
+        Me.btn_Mautanh_entfernen.UseVisualStyleBackColor = True
         '
         'Label72
         '
@@ -578,6 +611,34 @@ Partial Class usrcntlFakturierung
         Me.Label72.TabIndex = 42
         Me.Label72.Text = "* hier wird eine RE-Nr erzeugt, die Rechnungen gelten dann als ""gedruckt"" und kön" &
     "nen somit nicht mehr geändert werden."
+        '
+        'KdSearchBox3
+        '
+        Me.KdSearchBox3._AlleFirmenCLUSTER = False
+        Me.KdSearchBox3._AllowSetValue = True
+        Me.KdSearchBox3._autoSizeGross = False
+        Me.KdSearchBox3._display_Name1 = False
+        Me.KdSearchBox3._displayAVISO_Email = False
+        Me.KdSearchBox3._displayFullName = False
+        Me.KdSearchBox3._displayWoelflKd = False
+        Me.KdSearchBox3._hideIfListEmpty = True
+        Me.KdSearchBox3._loadKdData = False
+        Me.KdSearchBox3._searchName1 = True
+        Me.KdSearchBox3._UseFIRMA = ""
+        Me.KdSearchBox3._ValueKdAndName = True
+        Me.KdSearchBox3.dgvpos = "LEFT"
+        Me.KdSearchBox3.KdName = ""
+        Me.KdSearchBox3.KdNr = "-1"
+        Me.KdSearchBox3.kdNrField = Nothing
+        Me.KdSearchBox3.KdNrNullInt = Nothing
+        Me.KdSearchBox3.Location = New System.Drawing.Point(87, 308)
+        Me.KdSearchBox3.Name = "KdSearchBox3"
+        Me.KdSearchBox3.nurAktive = True
+        Me.KdSearchBox3.searchActive = True
+        Me.KdSearchBox3.Size = New System.Drawing.Size(350, 20)
+        Me.KdSearchBox3.TabIndex = 41
+        Me.KdSearchBox3.TIMER_SEARCH = True
+        Me.KdSearchBox3.usrcntl = Nothing
         '
         'rbkunde
         '
@@ -635,16 +696,16 @@ Partial Class usrcntlFakturierung
         Me.lblPloseAnh_Proz.Text = "0%"
         Me.lblPloseAnh_Proz.TextAlign = System.Drawing.ContentAlignment.TopRight
         '
-        'Button19
+        'btn_setRENr
         '
-        Me.Button19.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button19.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.Button19.Location = New System.Drawing.Point(10, 182)
-        Me.Button19.Name = "Button19"
-        Me.Button19.Size = New System.Drawing.Size(121, 49)
-        Me.Button19.TabIndex = 32
-        Me.Button19.Text = "RE.Nr setzen*"
-        Me.Button19.UseVisualStyleBackColor = True
+        Me.btn_setRENr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btn_setRENr.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.btn_setRENr.Location = New System.Drawing.Point(10, 182)
+        Me.btn_setRENr.Name = "btn_setRENr"
+        Me.btn_setRENr.Size = New System.Drawing.Size(121, 49)
+        Me.btn_setRENr.TabIndex = 32
+        Me.btn_setRENr.Text = "RE.Nr setzen*"
+        Me.btn_setRENr.UseVisualStyleBackColor = True
         '
         'Label70
         '
@@ -654,6 +715,17 @@ Partial Class usrcntlFakturierung
         Me.Label70.TabIndex = 30
         Me.Label70.Text = "6. Hängt Mautgesamtbericht an Sammenrechnungen an."
         '
+        'cboSachbearbeiter
+        '
+        Me.cboSachbearbeiter._allowedValuesFreiText = Nothing
+        Me.cboSachbearbeiter._allowFreiText = False
+        Me.cboSachbearbeiter._value = ""
+        Me.cboSachbearbeiter.FormattingEnabled = True
+        Me.cboSachbearbeiter.Location = New System.Drawing.Point(529, 38)
+        Me.cboSachbearbeiter.Name = "cboSachbearbeiter"
+        Me.cboSachbearbeiter.Size = New System.Drawing.Size(152, 21)
+        Me.cboSachbearbeiter.TabIndex = 29
+        '
         'Label67
         '
         Me.Label67.AutoSize = True
@@ -713,88 +785,16 @@ Partial Class usrcntlFakturierung
         Me.Label45.TabIndex = 5
         Me.Label45.Text = "1. Einträge auf Sachbearbeiter ändern."
         '
-        'Button14
+        'btnRePos
         '
-        Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.Button14.Location = New System.Drawing.Point(10, 81)
-        Me.Button14.Name = "Button14"
-        Me.Button14.Size = New System.Drawing.Size(121, 49)
-        Me.Button14.TabIndex = 4
-        Me.Button14.Text = "Rechnungspos. berechnen"
-        Me.Button14.UseVisualStyleBackColor = True
-        '
-        'MyDatagridview1
-        '
-        Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
-        Me.MyDatagridview1.BackgroundColor = System.Drawing.SystemColors.Window
-        Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.MyDatagridview1.Location = New System.Drawing.Point(4, 71)
-        Me.MyDatagridview1.Name = "MyDatagridview1"
-        Me.MyDatagridview1.Size = New System.Drawing.Size(471, 135)
-        Me.MyDatagridview1.TabIndex = 34
-        '
-        'cbxDateMautbericht
-        '
-        Me.cbxDateMautbericht._allowedValuesFreiText = Nothing
-        Me.cbxDateMautbericht._allowFreiText = False
-        Me.cbxDateMautbericht._value = ""
-        Me.cbxDateMautbericht.FormattingEnabled = True
-        Me.cbxDateMautbericht.Location = New System.Drawing.Point(265, 12)
-        Me.cbxDateMautbericht.Name = "cbxDateMautbericht"
-        Me.cbxDateMautbericht.Size = New System.Drawing.Size(87, 21)
-        Me.cbxDateMautbericht.TabIndex = 32
-        '
-        'cbxMautbericht
-        '
-        Me.cbxMautbericht._allowedValuesFreiText = Nothing
-        Me.cbxMautbericht._allowFreiText = False
-        Me.cbxMautbericht._value = ""
-        Me.cbxMautbericht.DropDownWidth = 200
-        Me.cbxMautbericht.FormattingEnabled = True
-        Me.cbxMautbericht.Location = New System.Drawing.Point(265, 33)
-        Me.cbxMautbericht.Name = "cbxMautbericht"
-        Me.cbxMautbericht.Size = New System.Drawing.Size(152, 21)
-        Me.cbxMautbericht.TabIndex = 30
-        '
-        'KdSearchBox3
-        '
-        Me.KdSearchBox3._AlleFirmenCLUSTER = False
-        Me.KdSearchBox3._AllowSetValue = True
-        Me.KdSearchBox3._autoSizeGross = False
-        Me.KdSearchBox3._display_Name1 = False
-        Me.KdSearchBox3._displayAVISO_Email = False
-        Me.KdSearchBox3._displayFullName = False
-        Me.KdSearchBox3._displayWoelflKd = False
-        Me.KdSearchBox3._hideIfListEmpty = True
-        Me.KdSearchBox3._loadKdData = False
-        Me.KdSearchBox3._searchName1 = True
-        Me.KdSearchBox3._UseFIRMA = ""
-        Me.KdSearchBox3._ValueKdAndName = True
-        Me.KdSearchBox3.dgvpos = "LEFT"
-        Me.KdSearchBox3.KdName = ""
-        Me.KdSearchBox3.KdNr = "-1"
-        Me.KdSearchBox3.kdNrField = Nothing
-        Me.KdSearchBox3.KdNrNullInt = Nothing
-        Me.KdSearchBox3.Location = New System.Drawing.Point(87, 308)
-        Me.KdSearchBox3.Name = "KdSearchBox3"
-        Me.KdSearchBox3.nurAktive = True
-        Me.KdSearchBox3.searchActive = True
-        Me.KdSearchBox3.Size = New System.Drawing.Size(350, 20)
-        Me.KdSearchBox3.TabIndex = 41
-        Me.KdSearchBox3.TIMER_SEARCH = True
-        Me.KdSearchBox3.usrcntl = Nothing
-        '
-        'cboSachbearbeiter
-        '
-        Me.cboSachbearbeiter._allowedValuesFreiText = Nothing
-        Me.cboSachbearbeiter._allowFreiText = False
-        Me.cboSachbearbeiter._value = ""
-        Me.cboSachbearbeiter.FormattingEnabled = True
-        Me.cboSachbearbeiter.Location = New System.Drawing.Point(529, 38)
-        Me.cboSachbearbeiter.Name = "cboSachbearbeiter"
-        Me.cboSachbearbeiter.Size = New System.Drawing.Size(152, 21)
-        Me.cboSachbearbeiter.TabIndex = 29
+        Me.btnRePos.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnRePos.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.btnRePos.Location = New System.Drawing.Point(10, 81)
+        Me.btnRePos.Name = "btnRePos"
+        Me.btnRePos.Size = New System.Drawing.Size(121, 49)
+        Me.btnRePos.TabIndex = 4
+        Me.btnRePos.Text = "Rechnungspos. berechnen"
+        Me.btnRePos.UseVisualStyleBackColor = True
         '
         'usrcntlFakturierung
         '
@@ -812,6 +812,7 @@ Partial Class usrcntlFakturierung
         Me.GroupBox1.ResumeLayout(False)
         Me.GBMautberichte.ResumeLayout(False)
         Me.GBMautberichte.PerformLayout()
+        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.GBSammelrechnung.ResumeLayout(False)
         Me.GBSammelrechnung.PerformLayout()
         CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit()
@@ -822,7 +823,6 @@ Partial Class usrcntlFakturierung
         CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -846,7 +846,7 @@ Partial Class usrcntlFakturierung
     Friend WithEvents cbxVorschau As CheckBox
     Friend WithEvents cbxAbfVerbotdrucken As CheckBox
     Friend WithEvents cbxRechnungsjournaldrucken As CheckBox
-    Friend WithEvents Button20 As Button
+    Friend WithEvents btn_Mautanh_entfernen As Button
     Friend WithEvents Label72 As Label
     Friend WithEvents KdSearchBox3 As VERAG_PROG_ALLGEMEIN.KdSearchBox
     Friend WithEvents rbkunde As RadioButton
@@ -855,7 +855,7 @@ Partial Class usrcntlFakturierung
     Friend WithEvents Label71 As Label
     Friend WithEvents pbPloseAnh_Proz As ProgressBar
     Friend WithEvents lblPloseAnh_Proz As Label
-    Friend WithEvents Button19 As Button
+    Friend WithEvents btn_setRENr As Button
     Friend WithEvents Label70 As Label
     Friend WithEvents cboSachbearbeiter As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents Label67 As Label
@@ -865,7 +865,7 @@ Partial Class usrcntlFakturierung
     Friend WithEvents Label64 As Label
     Friend WithEvents Label63 As Label
     Friend WithEvents Label45 As Label
-    Friend WithEvents Button14 As Button
+    Friend WithEvents btnRePos As Button
     Friend WithEvents btnMDMSammelrechnung As Button
     Friend WithEvents PictureBox1 As PictureBox
     Friend WithEvents Label4 As Label
@@ -878,7 +878,7 @@ Partial Class usrcntlFakturierung
     Friend WithEvents PictureBox4 As PictureBox
     Friend WithEvents PictureBox3 As PictureBox
     Friend WithEvents PictureBox2 As PictureBox
-    Friend WithEvents Button1 As Button
+    Friend WithEvents btnMautanh_pruefen As Button
     Friend WithEvents cbxMautanh As CheckBox
     Friend WithEvents Button3 As Button
     Friend WithEvents Button2 As Button

SDL/seriendruck/usrCntlFakturierung.vb

@@ -89,7 +89,7 @@ Public Class usrcntlFakturierung
 
     End Sub
 
-    Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
+    Private Sub Button20_Click(sender As Object, e As EventArgs) Handles btn_Mautanh_entfernen.Click
 
         Dim Sachbearbeiter = cboSachbearbeiter._value
         Dim rechnungsdatum As Date = CDate(dtRechnungsdatum.Text)
@@ -133,7 +133,7 @@ Public Class usrcntlFakturierung
 
     End Sub
 
-    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
+    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles btnRePos.Click
 
         Label70.Text = "6. Hängt Mautgesamtbericht an Sammelrechnungen an."
 
@@ -190,7 +190,7 @@ Public Class usrcntlFakturierung
 
         If rechnungenMitAbwAbfDat > 0 Then
             Dim res As MsgBoxResult
-            res = MsgBox("Es gibt noch " & rechnungenMitAbwAbfDat & " Rechnungen mit abweichenden Abfertigungsdatum (Abfertigungsdatum ist nicht " & rechnungsdatum & ")" & vbNewLine & "Möchten Sie fortfahren (Abfertigungsdatum wird autoamtisch auf " & rechnungsdatum & " gesetzt) ?", vbYesNoCancel)
+            res = MsgBox("Es gibt noch " & rechnungenMitAbwAbfDat & " Rechnungen mit abweichenden Abfertigungsdatum (Abfertigungsdatum ist nicht " & rechnungsdatum & ")" & vbNewLine & "Möchten Sie fortfahren (Abfertigungsdatum wird automatisch auf " & rechnungsdatum & " gesetzt) ?", vbYesNoCancel)
             Select Case res
                 Case MsgBoxResult.Yes : SQL.doSQL("update [Rechnungsausgang] set Abfertigungsdatum = '" & rechnungsdatum & "' WHERE [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) <> '" & rechnungsdatum & "'", "FMZOLL")
                 Case MsgBoxResult.No
@@ -234,6 +234,10 @@ Public Class usrcntlFakturierung
                                                     GROUP BY [Firma_ID], [Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr], [Währungscode], [Steuersatz %], [Lastschrift]", "FMZOLL")
 
 
+        If Not vbYes = MsgBox("Möchten Sie mit der Erstellung der  " & dtREGU.Rows.Count & " Sammelrechnungen vorfahren?", vbYesNoCancel) Then
+            Exit Sub
+        End If
+
         'RECHNUNG ODER GUTSCHRIFT
         'Rechnung oder Gutschrift im RK eintragen, abhängig vom Sammelrechnungsbetrag (+/-)
 
@@ -912,7 +916,7 @@ Public Class usrcntlFakturierung
 
     End Function
 
-    Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
+    Private Sub Button19_Click(sender As Object, e As EventArgs) Handles btn_setRENr.Click
         Dim Sachbearbeiter = cboSachbearbeiter._value
         Dim rechnungsdatum As Date = CDate(dtRechnungsdatum.Text)
         Dim rechnungsstatus As Integer = 0
@@ -1521,21 +1525,21 @@ Public Class usrcntlFakturierung
                                                               group by [Datenquelle]", "FMZOLL")
 
         Dim sumNetto As Double = 0
-            Dim sumVAT As Double = 0
-            Dim sumBrutto As Double = 0
+        Dim sumVAT As Double = 0
+        Dim sumBrutto As Double = 0
 
-            For Each row As DataRow In dtSummen.Rows
+        For Each row As DataRow In dtSummen.Rows
             If Not IsDBNull(row("Netto")) AndAlso IsNumeric(row("Netto")) Then sumNetto += CDbl(row("Netto"))
             If Not IsDBNull(row("VAT")) AndAlso IsNumeric(row("VAT")) Then sumVAT += CDbl(row("VAT"))
             If Not IsDBNull(row("Brutto")) AndAlso IsNumeric(row("Brutto")) Then sumBrutto += CDbl(row("Brutto"))
         Next
 
-            Dim drLast = dtSummen.NewRow
+        Dim drLast = dtSummen.NewRow
 
-            If dtSummen.Columns.Contains("Lieferant") Then drLast.Item("Lieferant") = "SUMME"
-            If dtSummen.Columns.Contains("Netto") Then drLast.Item("Netto") = sumNetto
-            If dtSummen.Columns.Contains("VAT") Then drLast.Item("VAT") = sumVAT
-            If dtSummen.Columns.Contains("Brutto") Then drLast.Item("Brutto") = sumBrutto
+        If dtSummen.Columns.Contains("Lieferant") Then drLast.Item("Lieferant") = "SUMME"
+        If dtSummen.Columns.Contains("Netto") Then drLast.Item("Netto") = sumNetto
+        If dtSummen.Columns.Contains("VAT") Then drLast.Item("VAT") = sumVAT
+        If dtSummen.Columns.Contains("Brutto") Then drLast.Item("Brutto") = sumBrutto
 
         dtSummen.Rows.InsertAt(drLast, dtSummen.Rows.Count)
 
@@ -1597,7 +1601,7 @@ Public Class usrcntlFakturierung
         f.Show(Me)
     End Sub
 
-    Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles Button1.Click
+    Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles btnMautanh_pruefen.Click
 
         Dim Sachbearbeiter = cboSachbearbeiter._value
         Dim rechnungsdatum As Date = CDate(dtRechnungsdatum.Text)
@@ -1701,9 +1705,9 @@ Public Class usrcntlFakturierung
         Dim sammelrechnung0vorhanden As Boolean = True
         sammelrechnung0vorhanden = checkIfStatus0Sammelrechnugnenvorhanden(cboSachbearbeiter._value, CDate(dtRechnungsdatum.Text))
 
-        Button14.Enabled = sammelrechnung0vorhanden
+        btnRePos.Enabled = sammelrechnung0vorhanden
         'Button19.Enabled = sammelrechnung0vorhanden wenn RE bereits Status 2 wird sie nur gedruckt!!!!
-        Button20.Enabled = sammelrechnung0vorhanden
+        btn_Mautanh_entfernen.Enabled = sammelrechnung0vorhanden
 
 
     End Sub
@@ -1728,8 +1732,8 @@ Public Class usrcntlFakturierung
         sammelrechnung0vorhanden = checkIfStatus0Sammelrechnugnenvorhanden(cboSachbearbeiter._value, CDate(dtRechnungsdatum.Text))
 
         'Button19.Enabled = sammelrechnung0vorhanden wenn RE bereits Status 2 wird sie nur gedruckt!!!!
-        Button14.Enabled = True 'sammelrechnung0vorhanden
-        Button20.Enabled = sammelrechnung0vorhanden
+        btnRePos.Enabled = True 'sammelrechnung0vorhanden
+        btn_Mautanh_entfernen.Enabled = sammelrechnung0vorhanden
 
     End Sub