From 8a8919e44cd137f4c3e596b8dcc7cbee39dd9ed1 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 27 Oct 2025 16:00:32 +0100 Subject: [PATCH] =?UTF-8?q?UID-Pr=C3=BCfung,=20etc.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- SDL/My Project/AssemblyInfo.vb | 4 +- SDL/buchhaltung/usrCntlBH.Designer.vb | 1251 +++++++++++++------------ SDL/buchhaltung/usrCntlBH.vb | 55 +- SDL/frmdynMailvorlage.Designer.vb | 18 + SDL/frmdynMailvorlage.resx | 3 + SDL/frmdynMailvorlage.vb | 112 ++- 6 files changed, 810 insertions(+), 633 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index f55a8895..e25d900a 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/buchhaltung/usrCntlBH.Designer.vb b/SDL/buchhaltung/usrCntlBH.Designer.vb index 61da13b3..4019cf2e 100644 --- a/SDL/buchhaltung/usrCntlBH.Designer.vb +++ b/SDL/buchhaltung/usrCntlBH.Designer.vb @@ -25,26 +25,26 @@ Partial Class usrCntlBH Me.Label6 = New System.Windows.Forms.Label() Me.pnl = New System.Windows.Forms.Panel() Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.Label53 = New System.Windows.Forms.Label() + Me.GroupBox12 = New System.Windows.Forms.GroupBox() + Me.cbx_nur_ungueltige = New System.Windows.Forms.CheckBox() + Me.Label56 = New System.Windows.Forms.Label() + Me.Label55 = New System.Windows.Forms.Label() + Me.Label54 = New System.Windows.Forms.Label() + Me.Button14 = New System.Windows.Forms.Button() Me.GroupBox11 = New System.Windows.Forms.GroupBox() Me.Label52 = New System.Windows.Forms.Label() Me.btnZNBverrechnen = New System.Windows.Forms.Button() Me.Label51 = New System.Windows.Forms.Label() - Me.txtnichtabrechneteKunden = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label49 = New System.Windows.Forms.Label() Me.btnZinsbelastung = New System.Windows.Forms.Button() Me.Button13 = New System.Windows.Forms.Button() - Me.txtZinssatz = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblnichtabgerechneteZNB = New System.Windows.Forms.Label() Me.Label45 = New System.Windows.Forms.Label() Me.Label48 = New System.Windows.Forms.Label() - Me.txtKdNrvon = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label46 = New System.Windows.Forms.Label() - Me.txtKdNrbis = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtTolInTagen = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label47 = New System.Windows.Forms.Label() Me.Label44 = New System.Windows.Forms.Label() - Me.txtZRvon = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtZRbis = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label42 = New System.Windows.Forms.Label() Me.GroupBox10 = New System.Windows.Forms.GroupBox() Me.Label43 = New System.Windows.Forms.Label() @@ -52,7 +52,6 @@ Partial Class usrCntlBH Me.Label34 = New System.Windows.Forms.Label() Me.GroupBox8 = New System.Windows.Forms.GroupBox() Me.Label36 = New System.Windows.Forms.Label() - Me.cboAbfVerbFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Button8 = New System.Windows.Forms.Button() Me.Label35 = New System.Windows.Forms.Label() Me.Label32 = New System.Windows.Forms.Label() @@ -94,39 +93,26 @@ Partial Class usrCntlBH Me.cbx2JahreUmsatz = New System.Windows.Forms.CheckBox() Me.cbxSDLLeistungenSperre = New System.Windows.Forms.CheckBox() Me.Label23 = New System.Windows.Forms.Label() - Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox() - Me.cboSort = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label22 = New System.Windows.Forms.Label() Me.cbxHideZeroValues = New System.Windows.Forms.CheckBox() Me.cbxFormatNumbers = New System.Windows.Forms.CheckBox() Me.Panel3 = New System.Windows.Forms.Panel() - Me.txtBagatellgrenzeBei = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label19 = New System.Windows.Forms.Label() Me.cbxBagatellgrenze = New System.Windows.Forms.CheckBox() - Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Panel2 = New System.Windows.Forms.Panel() Me.Label21 = New System.Windows.Forms.Label() Me.Label20 = New System.Windows.Forms.Label() Me.Label18 = New System.Windows.Forms.Label() - Me.txtOPUmsatzBetragBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtOPUmsatzBetragVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label16 = New System.Windows.Forms.Label() - Me.txtOPUmsatzBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtOPUmsatzVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label15 = New System.Windows.Forms.Label() Me.cbxOPUmsatz = New System.Windows.Forms.CheckBox() Me.Label10 = New System.Windows.Forms.Label() Me.Label14 = New System.Windows.Forms.Label() - Me.txtOPRisikoBetragBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button3 = New System.Windows.Forms.Button() - Me.txtOPRisikoBetragVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label13 = New System.Windows.Forms.Label() Me.Label12 = New System.Windows.Forms.Label() - Me.txtOPKdNrBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtOPKdNrVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label11 = New System.Windows.Forms.Label() Me.Label9 = New System.Windows.Forms.Label() - Me.txtOPKdName = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label8 = New System.Windows.Forms.Label() Me.Button2 = New System.Windows.Forms.Button() Me.tbcntr = New System.Windows.Forms.TabControl() @@ -137,7 +123,6 @@ Partial Class usrCntlBH Me.Button11 = New System.Windows.Forms.Button() Me.Label40 = New System.Windows.Forms.Label() Me.Button10 = New System.Windows.Forms.Button() - Me.txtStichtag = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label39 = New System.Windows.Forms.Label() Me.Label38 = New System.Windows.Forms.Label() Me.Button9 = New System.Windows.Forms.Button() @@ -147,18 +132,35 @@ Partial Class usrCntlBH Me.Label30 = New System.Windows.Forms.Label() Me.Label29 = New System.Windows.Forms.Label() Me.Button7 = New System.Windows.Forms.Button() - Me.Label53 = New System.Windows.Forms.Label() - Me.GroupBox12 = New System.Windows.Forms.GroupBox() - Me.Label54 = New System.Windows.Forms.Label() - Me.Button14 = New System.Windows.Forms.Button() - Me.Label55 = New System.Windows.Forms.Label() - Me.cbxFirmaUID = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.Label56 = New System.Windows.Forms.Label() - Me.txtUID_Monat = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.lblUID_zupruefen = New System.Windows.Forms.Label() Me.txtUID_Jahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cbx_nur_ungueltige = New System.Windows.Forms.CheckBox() + Me.txtUID_Monat = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbxFirmaUID = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtnichtabrechneteKunden = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtZinssatz = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtKdNrvon = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtKdNrbis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtTolInTagen = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtZRvon = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtZRbis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboAbfVerbFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox() + Me.cboSort = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtBagatellgrenzeBei = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtOPUmsatzBetragBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtOPUmsatzBetragVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtOPUmsatzBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtOPUmsatzVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtOPRisikoBetragBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtOPRisikoBetragVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtOPKdNrBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtOPKdNrVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtOPKdName = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtStichtag = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.pnl.SuspendLayout() Me.TabPage1.SuspendLayout() + Me.GroupBox12.SuspendLayout() Me.GroupBox11.SuspendLayout() Me.GroupBox10.SuspendLayout() Me.GroupBox8.SuspendLayout() @@ -175,7 +177,6 @@ Partial Class usrCntlBH Me.TabPage5.SuspendLayout() Me.GroupBox9.SuspendLayout() Me.GroupBox6.SuspendLayout() - Me.GroupBox12.SuspendLayout() Me.SuspendLayout() ' 'Label6 @@ -201,6 +202,7 @@ Partial Class usrCntlBH 'TabPage1 ' Me.TabPage1.AutoScroll = True + Me.TabPage1.Controls.Add(Me.lblUID_zupruefen) Me.TabPage1.Controls.Add(Me.Label53) Me.TabPage1.Controls.Add(Me.GroupBox12) Me.TabPage1.Controls.Add(Me.GroupBox11) @@ -227,6 +229,85 @@ Partial Class usrCntlBH Me.TabPage1.Text = "Allgemein" Me.TabPage1.UseVisualStyleBackColor = True ' + 'Label53 + ' + Me.Label53.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label53.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label53.Location = New System.Drawing.Point(479, 104) + Me.Label53.Name = "Label53" + Me.Label53.Size = New System.Drawing.Size(298, 18) + Me.Label53.TabIndex = 36 + Me.Label53.Text = "UID PRÜFUNGEN" + ' + 'GroupBox12 + ' + Me.GroupBox12.Controls.Add(Me.cbx_nur_ungueltige) + Me.GroupBox12.Controls.Add(Me.txtUID_Jahr) + Me.GroupBox12.Controls.Add(Me.txtUID_Monat) + Me.GroupBox12.Controls.Add(Me.Label56) + Me.GroupBox12.Controls.Add(Me.Label55) + Me.GroupBox12.Controls.Add(Me.Label54) + Me.GroupBox12.Controls.Add(Me.cbxFirmaUID) + Me.GroupBox12.Controls.Add(Me.Button14) + Me.GroupBox12.Location = New System.Drawing.Point(478, 116) + Me.GroupBox12.Name = "GroupBox12" + Me.GroupBox12.Size = New System.Drawing.Size(374, 77) + Me.GroupBox12.TabIndex = 37 + Me.GroupBox12.TabStop = False + ' + 'cbx_nur_ungueltige + ' + Me.cbx_nur_ungueltige.AutoSize = True + Me.cbx_nur_ungueltige.Checked = True + Me.cbx_nur_ungueltige.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbx_nur_ungueltige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbx_nur_ungueltige.Location = New System.Drawing.Point(226, 13) + Me.cbx_nur_ungueltige.Name = "cbx_nur_ungueltige" + Me.cbx_nur_ungueltige.Size = New System.Drawing.Size(87, 17) + Me.cbx_nur_ungueltige.TabIndex = 29 + Me.cbx_nur_ungueltige.Text = "nur ungültige" + Me.cbx_nur_ungueltige.UseVisualStyleBackColor = True + ' + 'Label56 + ' + Me.Label56.AutoSize = True + Me.Label56.Location = New System.Drawing.Point(100, 35) + Me.Label56.Name = "Label56" + Me.Label56.Size = New System.Drawing.Size(62, 13) + Me.Label56.TabIndex = 33 + Me.Label56.Text = "Monat/Jahr" + ' + 'Label55 + ' + Me.Label55.AutoSize = True + Me.Label55.Location = New System.Drawing.Point(100, 57) + Me.Label55.Name = "Label55" + Me.Label55.Size = New System.Drawing.Size(35, 13) + Me.Label55.TabIndex = 32 + Me.Label55.Text = "Firma:" + ' + 'Label54 + ' + Me.Label54.Location = New System.Drawing.Point(100, 12) + Me.Label54.Name = "Label54" + Me.Label54.Size = New System.Drawing.Size(224, 17) + Me.Label54.TabIndex = 3 + Me.Label54.Text = "alle UID-Prüfungen" + ' + 'Button14 + ' + 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.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.Button14.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button14.Location = New System.Drawing.Point(6, 12) + Me.Button14.Name = "Button14" + Me.Button14.Size = New System.Drawing.Size(88, 36) + Me.Button14.TabIndex = 1 + Me.Button14.Text = "Excel" + Me.Button14.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button14.UseVisualStyleBackColor = True + ' 'GroupBox11 ' Me.GroupBox11.Controls.Add(Me.Label52) @@ -288,32 +369,6 @@ Partial Class usrCntlBH Me.Label51.TabIndex = 36 Me.Label51.Text = "Zinsnachberechnung" ' - 'txtnichtabrechneteKunden - ' - Me.txtnichtabrechneteKunden._DateTimeOnly = False - Me.txtnichtabrechneteKunden._numbersOnly = False - Me.txtnichtabrechneteKunden._numbersOnlyKommastellen = "" - Me.txtnichtabrechneteKunden._numbersOnlyTrennzeichen = True - Me.txtnichtabrechneteKunden._Prozent = False - Me.txtnichtabrechneteKunden._ShortDateNew = False - Me.txtnichtabrechneteKunden._ShortDateOnly = False - Me.txtnichtabrechneteKunden._TimeOnly = False - Me.txtnichtabrechneteKunden._TimeOnly_Seconds = False - Me.txtnichtabrechneteKunden._value = "0" - Me.txtnichtabrechneteKunden._Waehrung = False - Me.txtnichtabrechneteKunden._WaehrungZeichen = True - Me.txtnichtabrechneteKunden.ForeColor = System.Drawing.Color.Black - Me.txtnichtabrechneteKunden.Location = New System.Drawing.Point(698, 16) - Me.txtnichtabrechneteKunden.MaxLineLength = -1 - Me.txtnichtabrechneteKunden.MaxLines_Warning = "" - Me.txtnichtabrechneteKunden.MaxLines_Warning_Label = Nothing - Me.txtnichtabrechneteKunden.Name = "txtnichtabrechneteKunden" - Me.txtnichtabrechneteKunden.ReadOnly = True - Me.txtnichtabrechneteKunden.Size = New System.Drawing.Size(34, 20) - Me.txtnichtabrechneteKunden.TabIndex = 39 - Me.txtnichtabrechneteKunden.Text = "0" - Me.txtnichtabrechneteKunden.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'Label49 ' Me.Label49.AutoSize = True @@ -349,30 +404,6 @@ Partial Class usrCntlBH Me.Button13.Text = "Übersicht" Me.Button13.UseVisualStyleBackColor = True ' - 'txtZinssatz - ' - Me.txtZinssatz._DateTimeOnly = False - Me.txtZinssatz._numbersOnly = False - Me.txtZinssatz._numbersOnlyKommastellen = "" - Me.txtZinssatz._numbersOnlyTrennzeichen = True - Me.txtZinssatz._Prozent = False - Me.txtZinssatz._ShortDateNew = False - Me.txtZinssatz._ShortDateOnly = False - Me.txtZinssatz._TimeOnly = False - Me.txtZinssatz._TimeOnly_Seconds = False - Me.txtZinssatz._value = "9.5" - Me.txtZinssatz._Waehrung = False - Me.txtZinssatz._WaehrungZeichen = True - Me.txtZinssatz.ForeColor = System.Drawing.Color.Black - Me.txtZinssatz.Location = New System.Drawing.Point(194, 40) - Me.txtZinssatz.MaxLineLength = -1 - Me.txtZinssatz.MaxLines_Warning = "" - Me.txtZinssatz.MaxLines_Warning_Label = Nothing - Me.txtZinssatz.Name = "txtZinssatz" - Me.txtZinssatz.Size = New System.Drawing.Size(34, 20) - Me.txtZinssatz.TabIndex = 31 - Me.txtZinssatz.Text = "9.5" - ' 'lblnichtabgerechneteZNB ' Me.lblnichtabgerechneteZNB.AutoSize = True @@ -400,29 +431,6 @@ Partial Class usrCntlBH Me.Label48.TabIndex = 29 Me.Label48.Text = "Tol inTagen:" ' - 'txtKdNrvon - ' - Me.txtKdNrvon._DateTimeOnly = False - Me.txtKdNrvon._numbersOnly = False - Me.txtKdNrvon._numbersOnlyKommastellen = "" - Me.txtKdNrvon._numbersOnlyTrennzeichen = True - Me.txtKdNrvon._Prozent = False - Me.txtKdNrvon._ShortDateNew = False - Me.txtKdNrvon._ShortDateOnly = False - Me.txtKdNrvon._TimeOnly = False - Me.txtKdNrvon._TimeOnly_Seconds = False - Me.txtKdNrvon._value = Nothing - Me.txtKdNrvon._Waehrung = False - Me.txtKdNrvon._WaehrungZeichen = True - Me.txtKdNrvon.ForeColor = System.Drawing.Color.Black - Me.txtKdNrvon.Location = New System.Drawing.Point(337, 16) - Me.txtKdNrvon.MaxLineLength = -1 - Me.txtKdNrvon.MaxLines_Warning = "" - Me.txtKdNrvon.MaxLines_Warning_Label = Nothing - Me.txtKdNrvon.Name = "txtKdNrvon" - Me.txtKdNrvon.Size = New System.Drawing.Size(70, 20) - Me.txtKdNrvon.TabIndex = 32 - ' 'Label46 ' Me.Label46.AutoSize = True @@ -432,53 +440,6 @@ Partial Class usrCntlBH Me.Label46.TabIndex = 22 Me.Label46.Text = "bis:" ' - 'txtKdNrbis - ' - Me.txtKdNrbis._DateTimeOnly = False - Me.txtKdNrbis._numbersOnly = False - Me.txtKdNrbis._numbersOnlyKommastellen = "" - Me.txtKdNrbis._numbersOnlyTrennzeichen = True - Me.txtKdNrbis._Prozent = False - Me.txtKdNrbis._ShortDateNew = False - Me.txtKdNrbis._ShortDateOnly = False - Me.txtKdNrbis._TimeOnly = False - Me.txtKdNrbis._TimeOnly_Seconds = False - Me.txtKdNrbis._value = Nothing - Me.txtKdNrbis._Waehrung = False - Me.txtKdNrbis._WaehrungZeichen = True - Me.txtKdNrbis.ForeColor = System.Drawing.Color.Black - Me.txtKdNrbis.Location = New System.Drawing.Point(445, 16) - Me.txtKdNrbis.MaxLineLength = -1 - Me.txtKdNrbis.MaxLines_Warning = "" - Me.txtKdNrbis.MaxLines_Warning_Label = Nothing - Me.txtKdNrbis.Name = "txtKdNrbis" - Me.txtKdNrbis.Size = New System.Drawing.Size(70, 20) - Me.txtKdNrbis.TabIndex = 33 - ' - 'txtTolInTagen - ' - Me.txtTolInTagen._DateTimeOnly = False - Me.txtTolInTagen._numbersOnly = False - Me.txtTolInTagen._numbersOnlyKommastellen = "" - Me.txtTolInTagen._numbersOnlyTrennzeichen = True - Me.txtTolInTagen._Prozent = False - Me.txtTolInTagen._ShortDateNew = False - Me.txtTolInTagen._ShortDateOnly = False - Me.txtTolInTagen._TimeOnly = False - Me.txtTolInTagen._TimeOnly_Seconds = False - Me.txtTolInTagen._value = "0" - Me.txtTolInTagen._Waehrung = False - Me.txtTolInTagen._WaehrungZeichen = True - Me.txtTolInTagen.ForeColor = System.Drawing.Color.Black - Me.txtTolInTagen.Location = New System.Drawing.Point(194, 16) - Me.txtTolInTagen.MaxLineLength = -1 - Me.txtTolInTagen.MaxLines_Warning = "" - Me.txtTolInTagen.MaxLines_Warning_Label = Nothing - Me.txtTolInTagen.Name = "txtTolInTagen" - Me.txtTolInTagen.Size = New System.Drawing.Size(34, 20) - Me.txtTolInTagen.TabIndex = 30 - Me.txtTolInTagen.Text = "0" - ' 'Label47 ' Me.Label47.AutoSize = True @@ -497,54 +458,6 @@ Partial Class usrCntlBH Me.Label44.TabIndex = 31 Me.Label44.Text = "bis:" ' - 'txtZRvon - ' - Me.txtZRvon._DateTimeOnly = False - Me.txtZRvon._numbersOnly = False - Me.txtZRvon._numbersOnlyKommastellen = "" - Me.txtZRvon._numbersOnlyTrennzeichen = True - Me.txtZRvon._Prozent = False - Me.txtZRvon._ShortDateNew = True - Me.txtZRvon._ShortDateOnly = False - Me.txtZRvon._TimeOnly = False - Me.txtZRvon._TimeOnly_Seconds = False - Me.txtZRvon._value = "" - Me.txtZRvon._Waehrung = False - Me.txtZRvon._WaehrungZeichen = True - Me.txtZRvon.ForeColor = System.Drawing.Color.Black - Me.txtZRvon.Location = New System.Drawing.Point(337, 40) - Me.txtZRvon.MaxLength = 10 - Me.txtZRvon.MaxLineLength = -1 - Me.txtZRvon.MaxLines_Warning = "" - Me.txtZRvon.MaxLines_Warning_Label = Nothing - Me.txtZRvon.Name = "txtZRvon" - Me.txtZRvon.Size = New System.Drawing.Size(70, 20) - Me.txtZRvon.TabIndex = 34 - ' - 'txtZRbis - ' - Me.txtZRbis._DateTimeOnly = False - Me.txtZRbis._numbersOnly = False - Me.txtZRbis._numbersOnlyKommastellen = "" - Me.txtZRbis._numbersOnlyTrennzeichen = True - Me.txtZRbis._Prozent = False - Me.txtZRbis._ShortDateNew = True - Me.txtZRbis._ShortDateOnly = False - Me.txtZRbis._TimeOnly = False - Me.txtZRbis._TimeOnly_Seconds = False - Me.txtZRbis._value = "" - Me.txtZRbis._Waehrung = False - Me.txtZRbis._WaehrungZeichen = True - Me.txtZRbis.ForeColor = System.Drawing.Color.Black - Me.txtZRbis.Location = New System.Drawing.Point(445, 40) - Me.txtZRbis.MaxLength = 10 - Me.txtZRbis.MaxLineLength = -1 - Me.txtZRbis.MaxLines_Warning = "" - Me.txtZRbis.MaxLines_Warning_Label = Nothing - Me.txtZRbis.Name = "txtZRbis" - Me.txtZRbis.Size = New System.Drawing.Size(70, 20) - Me.txtZRbis.TabIndex = 35 - ' 'Label42 ' Me.Label42.AutoSize = True @@ -619,17 +532,6 @@ Partial Class usrCntlBH Me.Label36.TabIndex = 30 Me.Label36.Text = "Firma:" ' - 'cboAbfVerbFirma - ' - Me.cboAbfVerbFirma._allowedValuesFreiText = Nothing - Me.cboAbfVerbFirma._allowFreiText = False - Me.cboAbfVerbFirma._value = "" - Me.cboAbfVerbFirma.FormattingEnabled = True - Me.cboAbfVerbFirma.Location = New System.Drawing.Point(503, 27) - Me.cboAbfVerbFirma.Name = "cboAbfVerbFirma" - Me.cboAbfVerbFirma.Size = New System.Drawing.Size(132, 21) - Me.cboAbfVerbFirma.TabIndex = 29 - ' 'Button8 ' Me.Button8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center @@ -1120,27 +1022,6 @@ Partial Class usrCntlBH Me.Label23.TabIndex = 23 Me.Label23.Text = "Firmen (Debitoren):" ' - 'MyListBox1 - ' - Me.MyListBox1._value = "" - Me.MyListBox1.FormattingEnabled = True - Me.MyListBox1.Location = New System.Drawing.Point(699, 55) - Me.MyListBox1.Name = "MyListBox1" - Me.MyListBox1.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple - Me.MyListBox1.Size = New System.Drawing.Size(142, 212) - Me.MyListBox1.TabIndex = 7 - ' - 'cboSort - ' - Me.cboSort._allowedValuesFreiText = Nothing - Me.cboSort._allowFreiText = False - Me.cboSort._value = "" - Me.cboSort.FormattingEnabled = True - Me.cboSort.Location = New System.Drawing.Point(207, 205) - Me.cboSort.Name = "cboSort" - Me.cboSort.Size = New System.Drawing.Size(132, 21) - Me.cboSort.TabIndex = 22 - ' 'Label22 ' Me.Label22.AutoSize = True @@ -1185,32 +1066,6 @@ Partial Class usrCntlBH Me.Panel3.Size = New System.Drawing.Size(133, 50) Me.Panel3.TabIndex = 17 ' - 'txtBagatellgrenzeBei - ' - Me.txtBagatellgrenzeBei._DateTimeOnly = False - Me.txtBagatellgrenzeBei._numbersOnly = False - Me.txtBagatellgrenzeBei._numbersOnlyKommastellen = "" - Me.txtBagatellgrenzeBei._numbersOnlyTrennzeichen = True - Me.txtBagatellgrenzeBei._Prozent = False - Me.txtBagatellgrenzeBei._ShortDateNew = True - Me.txtBagatellgrenzeBei._ShortDateOnly = False - Me.txtBagatellgrenzeBei._TimeOnly = False - Me.txtBagatellgrenzeBei._TimeOnly_Seconds = False - Me.txtBagatellgrenzeBei._value = "" - Me.txtBagatellgrenzeBei._Waehrung = True - Me.txtBagatellgrenzeBei._WaehrungZeichen = True - Me.txtBagatellgrenzeBei.Enabled = False - Me.txtBagatellgrenzeBei.ForeColor = System.Drawing.Color.Black - Me.txtBagatellgrenzeBei.Location = New System.Drawing.Point(38, 25) - Me.txtBagatellgrenzeBei.MaxLength = 10 - Me.txtBagatellgrenzeBei.MaxLineLength = -1 - Me.txtBagatellgrenzeBei.MaxLines_Warning = "" - Me.txtBagatellgrenzeBei.MaxLines_Warning_Label = Nothing - Me.txtBagatellgrenzeBei.Name = "txtBagatellgrenzeBei" - Me.txtBagatellgrenzeBei.Size = New System.Drawing.Size(79, 20) - Me.txtBagatellgrenzeBei.TabIndex = 1 - Me.txtBagatellgrenzeBei.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'Label19 ' Me.Label19.AutoSize = True @@ -1231,17 +1086,6 @@ Partial Class usrCntlBH Me.cbxBagatellgrenze.Text = "Bagatellgrenze" Me.cbxBagatellgrenze.UseVisualStyleBackColor = True ' - 'MyComboBox1 - ' - Me.MyComboBox1._allowedValuesFreiText = Nothing - Me.MyComboBox1._allowFreiText = False - Me.MyComboBox1._value = "" - Me.MyComboBox1.FormattingEnabled = True - Me.MyComboBox1.Location = New System.Drawing.Point(532, 55) - Me.MyComboBox1.Name = "MyComboBox1" - Me.MyComboBox1.Size = New System.Drawing.Size(132, 21) - Me.MyComboBox1.TabIndex = 7 - ' 'Panel2 ' Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke @@ -1287,54 +1131,6 @@ Partial Class usrCntlBH Me.Label18.TabIndex = 17 Me.Label18.Text = "bis:" ' - 'txtOPUmsatzBetragBis - ' - Me.txtOPUmsatzBetragBis._DateTimeOnly = False - Me.txtOPUmsatzBetragBis._numbersOnly = False - Me.txtOPUmsatzBetragBis._numbersOnlyKommastellen = "" - Me.txtOPUmsatzBetragBis._numbersOnlyTrennzeichen = True - Me.txtOPUmsatzBetragBis._Prozent = False - Me.txtOPUmsatzBetragBis._ShortDateNew = False - Me.txtOPUmsatzBetragBis._ShortDateOnly = False - Me.txtOPUmsatzBetragBis._TimeOnly = False - Me.txtOPUmsatzBetragBis._TimeOnly_Seconds = False - Me.txtOPUmsatzBetragBis._value = "" - Me.txtOPUmsatzBetragBis._Waehrung = True - Me.txtOPUmsatzBetragBis._WaehrungZeichen = True - Me.txtOPUmsatzBetragBis.ForeColor = System.Drawing.Color.Black - Me.txtOPUmsatzBetragBis.Location = New System.Drawing.Point(131, 48) - Me.txtOPUmsatzBetragBis.MaxLineLength = -1 - Me.txtOPUmsatzBetragBis.MaxLines_Warning = "" - Me.txtOPUmsatzBetragBis.MaxLines_Warning_Label = Nothing - Me.txtOPUmsatzBetragBis.Name = "txtOPUmsatzBetragBis" - Me.txtOPUmsatzBetragBis.Size = New System.Drawing.Size(60, 20) - Me.txtOPUmsatzBetragBis.TabIndex = 18 - Me.txtOPUmsatzBetragBis.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtOPUmsatzBetragVon - ' - Me.txtOPUmsatzBetragVon._DateTimeOnly = False - Me.txtOPUmsatzBetragVon._numbersOnly = False - Me.txtOPUmsatzBetragVon._numbersOnlyKommastellen = "" - Me.txtOPUmsatzBetragVon._numbersOnlyTrennzeichen = True - Me.txtOPUmsatzBetragVon._Prozent = False - Me.txtOPUmsatzBetragVon._ShortDateNew = False - Me.txtOPUmsatzBetragVon._ShortDateOnly = False - Me.txtOPUmsatzBetragVon._TimeOnly = False - Me.txtOPUmsatzBetragVon._TimeOnly_Seconds = False - Me.txtOPUmsatzBetragVon._value = "" - Me.txtOPUmsatzBetragVon._Waehrung = True - Me.txtOPUmsatzBetragVon._WaehrungZeichen = True - Me.txtOPUmsatzBetragVon.ForeColor = System.Drawing.Color.Black - Me.txtOPUmsatzBetragVon.Location = New System.Drawing.Point(38, 48) - Me.txtOPUmsatzBetragVon.MaxLineLength = -1 - Me.txtOPUmsatzBetragVon.MaxLines_Warning = "" - Me.txtOPUmsatzBetragVon.MaxLines_Warning_Label = Nothing - Me.txtOPUmsatzBetragVon.Name = "txtOPUmsatzBetragVon" - Me.txtOPUmsatzBetragVon.Size = New System.Drawing.Size(60, 20) - Me.txtOPUmsatzBetragVon.TabIndex = 16 - Me.txtOPUmsatzBetragVon.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'Label16 ' Me.Label16.AutoSize = True @@ -1344,54 +1140,6 @@ Partial Class usrCntlBH Me.Label16.TabIndex = 2 Me.Label16.Text = "bis:" ' - 'txtOPUmsatzBis - ' - Me.txtOPUmsatzBis._DateTimeOnly = False - Me.txtOPUmsatzBis._numbersOnly = False - Me.txtOPUmsatzBis._numbersOnlyKommastellen = "" - Me.txtOPUmsatzBis._numbersOnlyTrennzeichen = True - Me.txtOPUmsatzBis._Prozent = False - Me.txtOPUmsatzBis._ShortDateNew = True - Me.txtOPUmsatzBis._ShortDateOnly = False - Me.txtOPUmsatzBis._TimeOnly = False - Me.txtOPUmsatzBis._TimeOnly_Seconds = False - Me.txtOPUmsatzBis._value = "" - Me.txtOPUmsatzBis._Waehrung = False - Me.txtOPUmsatzBis._WaehrungZeichen = True - Me.txtOPUmsatzBis.ForeColor = System.Drawing.Color.Black - Me.txtOPUmsatzBis.Location = New System.Drawing.Point(131, 25) - Me.txtOPUmsatzBis.MaxLength = 10 - Me.txtOPUmsatzBis.MaxLineLength = -1 - Me.txtOPUmsatzBis.MaxLines_Warning = "" - Me.txtOPUmsatzBis.MaxLines_Warning_Label = Nothing - Me.txtOPUmsatzBis.Name = "txtOPUmsatzBis" - Me.txtOPUmsatzBis.Size = New System.Drawing.Size(60, 20) - Me.txtOPUmsatzBis.TabIndex = 4 - ' - 'txtOPUmsatzVon - ' - Me.txtOPUmsatzVon._DateTimeOnly = False - Me.txtOPUmsatzVon._numbersOnly = False - Me.txtOPUmsatzVon._numbersOnlyKommastellen = "" - Me.txtOPUmsatzVon._numbersOnlyTrennzeichen = True - Me.txtOPUmsatzVon._Prozent = False - Me.txtOPUmsatzVon._ShortDateNew = True - Me.txtOPUmsatzVon._ShortDateOnly = False - Me.txtOPUmsatzVon._TimeOnly = False - Me.txtOPUmsatzVon._TimeOnly_Seconds = False - Me.txtOPUmsatzVon._value = "" - Me.txtOPUmsatzVon._Waehrung = False - Me.txtOPUmsatzVon._WaehrungZeichen = True - Me.txtOPUmsatzVon.ForeColor = System.Drawing.Color.Black - Me.txtOPUmsatzVon.Location = New System.Drawing.Point(38, 25) - Me.txtOPUmsatzVon.MaxLength = 10 - Me.txtOPUmsatzVon.MaxLineLength = -1 - Me.txtOPUmsatzVon.MaxLines_Warning = "" - Me.txtOPUmsatzVon.MaxLines_Warning_Label = Nothing - Me.txtOPUmsatzVon.Name = "txtOPUmsatzVon" - Me.txtOPUmsatzVon.Size = New System.Drawing.Size(60, 20) - Me.txtOPUmsatzVon.TabIndex = 1 - ' 'Label15 ' Me.Label15.AutoSize = True @@ -1430,30 +1178,6 @@ Partial Class usrCntlBH Me.Label14.TabIndex = 14 Me.Label14.Text = "bis:" ' - 'txtOPRisikoBetragBis - ' - Me.txtOPRisikoBetragBis._DateTimeOnly = False - Me.txtOPRisikoBetragBis._numbersOnly = False - Me.txtOPRisikoBetragBis._numbersOnlyKommastellen = "" - Me.txtOPRisikoBetragBis._numbersOnlyTrennzeichen = True - Me.txtOPRisikoBetragBis._Prozent = False - Me.txtOPRisikoBetragBis._ShortDateNew = False - Me.txtOPRisikoBetragBis._ShortDateOnly = False - Me.txtOPRisikoBetragBis._TimeOnly = False - Me.txtOPRisikoBetragBis._TimeOnly_Seconds = False - Me.txtOPRisikoBetragBis._value = "" - Me.txtOPRisikoBetragBis._Waehrung = True - Me.txtOPRisikoBetragBis._WaehrungZeichen = True - Me.txtOPRisikoBetragBis.ForeColor = System.Drawing.Color.Black - Me.txtOPRisikoBetragBis.Location = New System.Drawing.Point(416, 110) - Me.txtOPRisikoBetragBis.MaxLineLength = -1 - Me.txtOPRisikoBetragBis.MaxLines_Warning = "" - Me.txtOPRisikoBetragBis.MaxLines_Warning_Label = Nothing - Me.txtOPRisikoBetragBis.Name = "txtOPRisikoBetragBis" - Me.txtOPRisikoBetragBis.Size = New System.Drawing.Size(70, 20) - Me.txtOPRisikoBetragBis.TabIndex = 15 - Me.txtOPRisikoBetragBis.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'Button3 ' Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center @@ -1468,30 +1192,6 @@ Partial Class usrCntlBH Me.Button3.Text = " Excel" Me.Button3.UseVisualStyleBackColor = True ' - 'txtOPRisikoBetragVon - ' - Me.txtOPRisikoBetragVon._DateTimeOnly = False - Me.txtOPRisikoBetragVon._numbersOnly = False - Me.txtOPRisikoBetragVon._numbersOnlyKommastellen = "" - Me.txtOPRisikoBetragVon._numbersOnlyTrennzeichen = True - Me.txtOPRisikoBetragVon._Prozent = False - Me.txtOPRisikoBetragVon._ShortDateNew = False - Me.txtOPRisikoBetragVon._ShortDateOnly = False - Me.txtOPRisikoBetragVon._TimeOnly = False - Me.txtOPRisikoBetragVon._TimeOnly_Seconds = False - Me.txtOPRisikoBetragVon._value = "" - Me.txtOPRisikoBetragVon._Waehrung = True - Me.txtOPRisikoBetragVon._WaehrungZeichen = True - Me.txtOPRisikoBetragVon.ForeColor = System.Drawing.Color.Black - Me.txtOPRisikoBetragVon.Location = New System.Drawing.Point(308, 110) - Me.txtOPRisikoBetragVon.MaxLineLength = -1 - Me.txtOPRisikoBetragVon.MaxLines_Warning = "" - Me.txtOPRisikoBetragVon.MaxLines_Warning_Label = Nothing - Me.txtOPRisikoBetragVon.Name = "txtOPRisikoBetragVon" - Me.txtOPRisikoBetragVon.Size = New System.Drawing.Size(70, 20) - Me.txtOPRisikoBetragVon.TabIndex = 13 - Me.txtOPRisikoBetragVon.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'Label13 ' Me.Label13.AutoSize = True @@ -1510,52 +1210,6 @@ Partial Class usrCntlBH Me.Label12.TabIndex = 10 Me.Label12.Text = "bis:" ' - 'txtOPKdNrBis - ' - Me.txtOPKdNrBis._DateTimeOnly = False - Me.txtOPKdNrBis._numbersOnly = False - Me.txtOPKdNrBis._numbersOnlyKommastellen = "" - Me.txtOPKdNrBis._numbersOnlyTrennzeichen = True - Me.txtOPKdNrBis._Prozent = False - Me.txtOPKdNrBis._ShortDateNew = False - Me.txtOPKdNrBis._ShortDateOnly = False - Me.txtOPKdNrBis._TimeOnly = False - Me.txtOPKdNrBis._TimeOnly_Seconds = False - Me.txtOPKdNrBis._value = Nothing - Me.txtOPKdNrBis._Waehrung = False - Me.txtOPKdNrBis._WaehrungZeichen = True - Me.txtOPKdNrBis.ForeColor = System.Drawing.Color.Black - Me.txtOPKdNrBis.Location = New System.Drawing.Point(416, 84) - Me.txtOPKdNrBis.MaxLineLength = -1 - Me.txtOPKdNrBis.MaxLines_Warning = "" - Me.txtOPKdNrBis.MaxLines_Warning_Label = Nothing - Me.txtOPKdNrBis.Name = "txtOPKdNrBis" - Me.txtOPKdNrBis.Size = New System.Drawing.Size(70, 20) - Me.txtOPKdNrBis.TabIndex = 11 - ' - 'txtOPKdNrVon - ' - Me.txtOPKdNrVon._DateTimeOnly = False - Me.txtOPKdNrVon._numbersOnly = False - Me.txtOPKdNrVon._numbersOnlyKommastellen = "" - Me.txtOPKdNrVon._numbersOnlyTrennzeichen = True - Me.txtOPKdNrVon._Prozent = False - Me.txtOPKdNrVon._ShortDateNew = False - Me.txtOPKdNrVon._ShortDateOnly = False - Me.txtOPKdNrVon._TimeOnly = False - Me.txtOPKdNrVon._TimeOnly_Seconds = False - Me.txtOPKdNrVon._value = Nothing - Me.txtOPKdNrVon._Waehrung = False - Me.txtOPKdNrVon._WaehrungZeichen = True - Me.txtOPKdNrVon.ForeColor = System.Drawing.Color.Black - Me.txtOPKdNrVon.Location = New System.Drawing.Point(308, 84) - Me.txtOPKdNrVon.MaxLineLength = -1 - Me.txtOPKdNrVon.MaxLines_Warning = "" - Me.txtOPKdNrVon.MaxLines_Warning_Label = Nothing - Me.txtOPKdNrVon.Name = "txtOPKdNrVon" - Me.txtOPKdNrVon.Size = New System.Drawing.Size(70, 20) - Me.txtOPKdNrVon.TabIndex = 9 - ' 'Label11 ' Me.Label11.AutoSize = True @@ -1574,29 +1228,6 @@ Partial Class usrCntlBH Me.Label9.TabIndex = 4 Me.Label9.Text = "Kunde (Namenseinschränkung):" ' - 'txtOPKdName - ' - Me.txtOPKdName._DateTimeOnly = False - Me.txtOPKdName._numbersOnly = False - Me.txtOPKdName._numbersOnlyKommastellen = "" - Me.txtOPKdName._numbersOnlyTrennzeichen = True - Me.txtOPKdName._Prozent = False - Me.txtOPKdName._ShortDateNew = False - Me.txtOPKdName._ShortDateOnly = False - Me.txtOPKdName._TimeOnly = False - Me.txtOPKdName._TimeOnly_Seconds = False - Me.txtOPKdName._value = Nothing - Me.txtOPKdName._Waehrung = False - Me.txtOPKdName._WaehrungZeichen = True - Me.txtOPKdName.ForeColor = System.Drawing.Color.Black - Me.txtOPKdName.Location = New System.Drawing.Point(308, 55) - Me.txtOPKdName.MaxLineLength = -1 - Me.txtOPKdName.MaxLines_Warning = "" - Me.txtOPKdName.MaxLines_Warning_Label = Nothing - Me.txtOPKdName.Name = "txtOPKdName" - Me.txtOPKdName.Size = New System.Drawing.Size(178, 20) - Me.txtOPKdName.TabIndex = 5 - ' 'Label8 ' Me.Label8.AutoSize = True @@ -1721,30 +1352,6 @@ Partial Class usrCntlBH Me.Button10.Text = " Excel" Me.Button10.UseVisualStyleBackColor = True ' - 'txtStichtag - ' - Me.txtStichtag._DateTimeOnly = False - Me.txtStichtag._numbersOnly = False - Me.txtStichtag._numbersOnlyKommastellen = "" - Me.txtStichtag._numbersOnlyTrennzeichen = True - Me.txtStichtag._Prozent = False - Me.txtStichtag._ShortDateNew = True - Me.txtStichtag._ShortDateOnly = False - Me.txtStichtag._TimeOnly = False - Me.txtStichtag._TimeOnly_Seconds = False - Me.txtStichtag._value = "" - Me.txtStichtag._Waehrung = False - Me.txtStichtag._WaehrungZeichen = True - Me.txtStichtag.ForeColor = System.Drawing.Color.Black - Me.txtStichtag.Location = New System.Drawing.Point(67, 10) - Me.txtStichtag.MaxLength = 10 - Me.txtStichtag.MaxLineLength = -1 - Me.txtStichtag.MaxLines_Warning = "" - Me.txtStichtag.MaxLines_Warning_Label = Nothing - Me.txtStichtag.Name = "txtStichtag" - Me.txtStichtag.Size = New System.Drawing.Size(60, 20) - Me.txtStichtag.TabIndex = 21 - ' 'Label39 ' Me.Label39.AutoSize = True @@ -1843,107 +1450,13 @@ Partial Class usrCntlBH Me.Button7.Text = "Importieren" Me.Button7.UseVisualStyleBackColor = True ' - 'Label53 + 'lblUID_zupruefen ' - Me.Label53.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label53.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Me.Label53.Location = New System.Drawing.Point(479, 104) - Me.Label53.Name = "Label53" - Me.Label53.Size = New System.Drawing.Size(298, 18) - Me.Label53.TabIndex = 36 - Me.Label53.Text = "UID PRÜFUNGEN" - ' - 'GroupBox12 - ' - Me.GroupBox12.Controls.Add(Me.cbx_nur_ungueltige) - Me.GroupBox12.Controls.Add(Me.txtUID_Jahr) - Me.GroupBox12.Controls.Add(Me.txtUID_Monat) - Me.GroupBox12.Controls.Add(Me.Label56) - Me.GroupBox12.Controls.Add(Me.Label55) - Me.GroupBox12.Controls.Add(Me.Label54) - Me.GroupBox12.Controls.Add(Me.cbxFirmaUID) - Me.GroupBox12.Controls.Add(Me.Button14) - Me.GroupBox12.Location = New System.Drawing.Point(478, 116) - Me.GroupBox12.Name = "GroupBox12" - Me.GroupBox12.Size = New System.Drawing.Size(374, 77) - Me.GroupBox12.TabIndex = 37 - Me.GroupBox12.TabStop = False - ' - 'Label54 - ' - Me.Label54.Location = New System.Drawing.Point(133, 8) - Me.Label54.Name = "Label54" - Me.Label54.Size = New System.Drawing.Size(224, 17) - Me.Label54.TabIndex = 3 - Me.Label54.Text = "alle UID-Prüfungen" - ' - 'Button14 - ' - 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.Image = Global.SDL.My.Resources.Resources.Excel_logo - Me.Button14.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button14.Location = New System.Drawing.Point(6, 12) - Me.Button14.Name = "Button14" - Me.Button14.Size = New System.Drawing.Size(88, 49) - Me.Button14.TabIndex = 1 - Me.Button14.Text = "Excel" - Me.Button14.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button14.UseVisualStyleBackColor = True - ' - 'Label55 - ' - Me.Label55.AutoSize = True - Me.Label55.Location = New System.Drawing.Point(133, 53) - Me.Label55.Name = "Label55" - Me.Label55.Size = New System.Drawing.Size(35, 13) - Me.Label55.TabIndex = 32 - Me.Label55.Text = "Firma:" - ' - 'cbxFirmaUID - ' - Me.cbxFirmaUID._allowedValuesFreiText = Nothing - Me.cbxFirmaUID._allowFreiText = False - Me.cbxFirmaUID._value = "" - Me.cbxFirmaUID.FormattingEnabled = True - Me.cbxFirmaUID.Location = New System.Drawing.Point(174, 49) - Me.cbxFirmaUID.Name = "cbxFirmaUID" - Me.cbxFirmaUID.Size = New System.Drawing.Size(125, 21) - Me.cbxFirmaUID.TabIndex = 31 - ' - 'Label56 - ' - Me.Label56.AutoSize = True - Me.Label56.Location = New System.Drawing.Point(133, 31) - Me.Label56.Name = "Label56" - Me.Label56.Size = New System.Drawing.Size(62, 13) - Me.Label56.TabIndex = 33 - Me.Label56.Text = "Monat/Jahr" - ' - 'txtUID_Monat - ' - Me.txtUID_Monat._DateTimeOnly = False - Me.txtUID_Monat._numbersOnly = True - Me.txtUID_Monat._numbersOnlyKommastellen = "" - Me.txtUID_Monat._numbersOnlyTrennzeichen = False - Me.txtUID_Monat._Prozent = False - Me.txtUID_Monat._ShortDateNew = False - Me.txtUID_Monat._ShortDateOnly = False - Me.txtUID_Monat._TimeOnly = False - Me.txtUID_Monat._TimeOnly_Seconds = False - Me.txtUID_Monat._value = "" - Me.txtUID_Monat._Waehrung = False - Me.txtUID_Monat._WaehrungZeichen = False - Me.txtUID_Monat.ForeColor = System.Drawing.Color.Black - Me.txtUID_Monat.Location = New System.Drawing.Point(201, 28) - Me.txtUID_Monat.MaxLength = 2 - Me.txtUID_Monat.MaxLineLength = -1 - Me.txtUID_Monat.MaxLines_Warning = "" - Me.txtUID_Monat.MaxLines_Warning_Label = Nothing - Me.txtUID_Monat.Name = "txtUID_Monat" - Me.txtUID_Monat.Size = New System.Drawing.Size(24, 20) - Me.txtUID_Monat.TabIndex = 21 - Me.txtUID_Monat.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + Me.lblUID_zupruefen.AutoSize = True + Me.lblUID_zupruefen.Location = New System.Drawing.Point(625, 106) + Me.lblUID_zupruefen.Name = "lblUID_zupruefen" + Me.lblUID_zupruefen.Size = New System.Drawing.Size(0, 13) + Me.lblUID_zupruefen.TabIndex = 35 ' 'txtUID_Jahr ' @@ -1960,7 +1473,7 @@ Partial Class usrCntlBH Me.txtUID_Jahr._Waehrung = False Me.txtUID_Jahr._WaehrungZeichen = False Me.txtUID_Jahr.ForeColor = System.Drawing.Color.Black - Me.txtUID_Jahr.Location = New System.Drawing.Point(235, 28) + Me.txtUID_Jahr.Location = New System.Drawing.Point(202, 32) Me.txtUID_Jahr.MaxLength = 4 Me.txtUID_Jahr.MaxLineLength = -1 Me.txtUID_Jahr.MaxLines_Warning = "" @@ -1970,18 +1483,515 @@ Partial Class usrCntlBH Me.txtUID_Jahr.TabIndex = 34 Me.txtUID_Jahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' - 'cbx_nur_ungueltige + 'txtUID_Monat ' - Me.cbx_nur_ungueltige.AutoSize = True - Me.cbx_nur_ungueltige.Checked = True - Me.cbx_nur_ungueltige.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbx_nur_ungueltige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbx_nur_ungueltige.Location = New System.Drawing.Point(259, 9) - Me.cbx_nur_ungueltige.Name = "cbx_nur_ungueltige" - Me.cbx_nur_ungueltige.Size = New System.Drawing.Size(87, 17) - Me.cbx_nur_ungueltige.TabIndex = 29 - Me.cbx_nur_ungueltige.Text = "nur ungültige" - Me.cbx_nur_ungueltige.UseVisualStyleBackColor = True + Me.txtUID_Monat._DateTimeOnly = False + Me.txtUID_Monat._numbersOnly = True + Me.txtUID_Monat._numbersOnlyKommastellen = "" + Me.txtUID_Monat._numbersOnlyTrennzeichen = False + Me.txtUID_Monat._Prozent = False + Me.txtUID_Monat._ShortDateNew = False + Me.txtUID_Monat._ShortDateOnly = False + Me.txtUID_Monat._TimeOnly = False + Me.txtUID_Monat._TimeOnly_Seconds = False + Me.txtUID_Monat._value = "" + Me.txtUID_Monat._Waehrung = False + Me.txtUID_Monat._WaehrungZeichen = False + Me.txtUID_Monat.ForeColor = System.Drawing.Color.Black + Me.txtUID_Monat.Location = New System.Drawing.Point(168, 32) + Me.txtUID_Monat.MaxLength = 2 + Me.txtUID_Monat.MaxLineLength = -1 + Me.txtUID_Monat.MaxLines_Warning = "" + Me.txtUID_Monat.MaxLines_Warning_Label = Nothing + Me.txtUID_Monat.Name = "txtUID_Monat" + Me.txtUID_Monat.Size = New System.Drawing.Size(24, 20) + Me.txtUID_Monat.TabIndex = 21 + Me.txtUID_Monat.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'cbxFirmaUID + ' + Me.cbxFirmaUID._allowedValuesFreiText = Nothing + Me.cbxFirmaUID._allowFreiText = False + Me.cbxFirmaUID._value = "" + Me.cbxFirmaUID.FormattingEnabled = True + Me.cbxFirmaUID.Location = New System.Drawing.Point(141, 53) + Me.cbxFirmaUID.Name = "cbxFirmaUID" + Me.cbxFirmaUID.Size = New System.Drawing.Size(125, 21) + Me.cbxFirmaUID.TabIndex = 31 + ' + 'txtnichtabrechneteKunden + ' + Me.txtnichtabrechneteKunden._DateTimeOnly = False + Me.txtnichtabrechneteKunden._numbersOnly = False + Me.txtnichtabrechneteKunden._numbersOnlyKommastellen = "" + Me.txtnichtabrechneteKunden._numbersOnlyTrennzeichen = True + Me.txtnichtabrechneteKunden._Prozent = False + Me.txtnichtabrechneteKunden._ShortDateNew = False + Me.txtnichtabrechneteKunden._ShortDateOnly = False + Me.txtnichtabrechneteKunden._TimeOnly = False + Me.txtnichtabrechneteKunden._TimeOnly_Seconds = False + Me.txtnichtabrechneteKunden._value = "0" + Me.txtnichtabrechneteKunden._Waehrung = False + Me.txtnichtabrechneteKunden._WaehrungZeichen = True + Me.txtnichtabrechneteKunden.ForeColor = System.Drawing.Color.Black + Me.txtnichtabrechneteKunden.Location = New System.Drawing.Point(698, 16) + Me.txtnichtabrechneteKunden.MaxLineLength = -1 + Me.txtnichtabrechneteKunden.MaxLines_Warning = "" + Me.txtnichtabrechneteKunden.MaxLines_Warning_Label = Nothing + Me.txtnichtabrechneteKunden.Name = "txtnichtabrechneteKunden" + Me.txtnichtabrechneteKunden.ReadOnly = True + Me.txtnichtabrechneteKunden.Size = New System.Drawing.Size(34, 20) + Me.txtnichtabrechneteKunden.TabIndex = 39 + Me.txtnichtabrechneteKunden.Text = "0" + Me.txtnichtabrechneteKunden.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtZinssatz + ' + Me.txtZinssatz._DateTimeOnly = False + Me.txtZinssatz._numbersOnly = False + Me.txtZinssatz._numbersOnlyKommastellen = "" + Me.txtZinssatz._numbersOnlyTrennzeichen = True + Me.txtZinssatz._Prozent = False + Me.txtZinssatz._ShortDateNew = False + Me.txtZinssatz._ShortDateOnly = False + Me.txtZinssatz._TimeOnly = False + Me.txtZinssatz._TimeOnly_Seconds = False + Me.txtZinssatz._value = "9.5" + Me.txtZinssatz._Waehrung = False + Me.txtZinssatz._WaehrungZeichen = True + Me.txtZinssatz.ForeColor = System.Drawing.Color.Black + Me.txtZinssatz.Location = New System.Drawing.Point(194, 40) + Me.txtZinssatz.MaxLineLength = -1 + Me.txtZinssatz.MaxLines_Warning = "" + Me.txtZinssatz.MaxLines_Warning_Label = Nothing + Me.txtZinssatz.Name = "txtZinssatz" + Me.txtZinssatz.Size = New System.Drawing.Size(34, 20) + Me.txtZinssatz.TabIndex = 31 + Me.txtZinssatz.Text = "9.5" + ' + 'txtKdNrvon + ' + Me.txtKdNrvon._DateTimeOnly = False + Me.txtKdNrvon._numbersOnly = False + Me.txtKdNrvon._numbersOnlyKommastellen = "" + Me.txtKdNrvon._numbersOnlyTrennzeichen = True + Me.txtKdNrvon._Prozent = False + Me.txtKdNrvon._ShortDateNew = False + Me.txtKdNrvon._ShortDateOnly = False + Me.txtKdNrvon._TimeOnly = False + Me.txtKdNrvon._TimeOnly_Seconds = False + Me.txtKdNrvon._value = Nothing + Me.txtKdNrvon._Waehrung = False + Me.txtKdNrvon._WaehrungZeichen = True + Me.txtKdNrvon.ForeColor = System.Drawing.Color.Black + Me.txtKdNrvon.Location = New System.Drawing.Point(337, 16) + Me.txtKdNrvon.MaxLineLength = -1 + Me.txtKdNrvon.MaxLines_Warning = "" + Me.txtKdNrvon.MaxLines_Warning_Label = Nothing + Me.txtKdNrvon.Name = "txtKdNrvon" + Me.txtKdNrvon.Size = New System.Drawing.Size(70, 20) + Me.txtKdNrvon.TabIndex = 32 + ' + 'txtKdNrbis + ' + Me.txtKdNrbis._DateTimeOnly = False + Me.txtKdNrbis._numbersOnly = False + Me.txtKdNrbis._numbersOnlyKommastellen = "" + Me.txtKdNrbis._numbersOnlyTrennzeichen = True + Me.txtKdNrbis._Prozent = False + Me.txtKdNrbis._ShortDateNew = False + Me.txtKdNrbis._ShortDateOnly = False + Me.txtKdNrbis._TimeOnly = False + Me.txtKdNrbis._TimeOnly_Seconds = False + Me.txtKdNrbis._value = Nothing + Me.txtKdNrbis._Waehrung = False + Me.txtKdNrbis._WaehrungZeichen = True + Me.txtKdNrbis.ForeColor = System.Drawing.Color.Black + Me.txtKdNrbis.Location = New System.Drawing.Point(445, 16) + Me.txtKdNrbis.MaxLineLength = -1 + Me.txtKdNrbis.MaxLines_Warning = "" + Me.txtKdNrbis.MaxLines_Warning_Label = Nothing + Me.txtKdNrbis.Name = "txtKdNrbis" + Me.txtKdNrbis.Size = New System.Drawing.Size(70, 20) + Me.txtKdNrbis.TabIndex = 33 + ' + 'txtTolInTagen + ' + Me.txtTolInTagen._DateTimeOnly = False + Me.txtTolInTagen._numbersOnly = False + Me.txtTolInTagen._numbersOnlyKommastellen = "" + Me.txtTolInTagen._numbersOnlyTrennzeichen = True + Me.txtTolInTagen._Prozent = False + Me.txtTolInTagen._ShortDateNew = False + Me.txtTolInTagen._ShortDateOnly = False + Me.txtTolInTagen._TimeOnly = False + Me.txtTolInTagen._TimeOnly_Seconds = False + Me.txtTolInTagen._value = "0" + Me.txtTolInTagen._Waehrung = False + Me.txtTolInTagen._WaehrungZeichen = True + Me.txtTolInTagen.ForeColor = System.Drawing.Color.Black + Me.txtTolInTagen.Location = New System.Drawing.Point(194, 16) + Me.txtTolInTagen.MaxLineLength = -1 + Me.txtTolInTagen.MaxLines_Warning = "" + Me.txtTolInTagen.MaxLines_Warning_Label = Nothing + Me.txtTolInTagen.Name = "txtTolInTagen" + Me.txtTolInTagen.Size = New System.Drawing.Size(34, 20) + Me.txtTolInTagen.TabIndex = 30 + Me.txtTolInTagen.Text = "0" + ' + 'txtZRvon + ' + Me.txtZRvon._DateTimeOnly = False + Me.txtZRvon._numbersOnly = False + Me.txtZRvon._numbersOnlyKommastellen = "" + Me.txtZRvon._numbersOnlyTrennzeichen = True + Me.txtZRvon._Prozent = False + Me.txtZRvon._ShortDateNew = True + Me.txtZRvon._ShortDateOnly = False + Me.txtZRvon._TimeOnly = False + Me.txtZRvon._TimeOnly_Seconds = False + Me.txtZRvon._value = "" + Me.txtZRvon._Waehrung = False + Me.txtZRvon._WaehrungZeichen = True + Me.txtZRvon.ForeColor = System.Drawing.Color.Black + Me.txtZRvon.Location = New System.Drawing.Point(337, 40) + Me.txtZRvon.MaxLength = 10 + Me.txtZRvon.MaxLineLength = -1 + Me.txtZRvon.MaxLines_Warning = "" + Me.txtZRvon.MaxLines_Warning_Label = Nothing + Me.txtZRvon.Name = "txtZRvon" + Me.txtZRvon.Size = New System.Drawing.Size(70, 20) + Me.txtZRvon.TabIndex = 34 + ' + 'txtZRbis + ' + Me.txtZRbis._DateTimeOnly = False + Me.txtZRbis._numbersOnly = False + Me.txtZRbis._numbersOnlyKommastellen = "" + Me.txtZRbis._numbersOnlyTrennzeichen = True + Me.txtZRbis._Prozent = False + Me.txtZRbis._ShortDateNew = True + Me.txtZRbis._ShortDateOnly = False + Me.txtZRbis._TimeOnly = False + Me.txtZRbis._TimeOnly_Seconds = False + Me.txtZRbis._value = "" + Me.txtZRbis._Waehrung = False + Me.txtZRbis._WaehrungZeichen = True + Me.txtZRbis.ForeColor = System.Drawing.Color.Black + Me.txtZRbis.Location = New System.Drawing.Point(445, 40) + Me.txtZRbis.MaxLength = 10 + Me.txtZRbis.MaxLineLength = -1 + Me.txtZRbis.MaxLines_Warning = "" + Me.txtZRbis.MaxLines_Warning_Label = Nothing + Me.txtZRbis.Name = "txtZRbis" + Me.txtZRbis.Size = New System.Drawing.Size(70, 20) + Me.txtZRbis.TabIndex = 35 + ' + 'cboAbfVerbFirma + ' + Me.cboAbfVerbFirma._allowedValuesFreiText = Nothing + Me.cboAbfVerbFirma._allowFreiText = False + Me.cboAbfVerbFirma._value = "" + Me.cboAbfVerbFirma.FormattingEnabled = True + Me.cboAbfVerbFirma.Location = New System.Drawing.Point(503, 27) + Me.cboAbfVerbFirma.Name = "cboAbfVerbFirma" + Me.cboAbfVerbFirma.Size = New System.Drawing.Size(132, 21) + Me.cboAbfVerbFirma.TabIndex = 29 + ' + 'MyListBox1 + ' + Me.MyListBox1._value = "" + Me.MyListBox1.FormattingEnabled = True + Me.MyListBox1.Location = New System.Drawing.Point(699, 55) + Me.MyListBox1.Name = "MyListBox1" + Me.MyListBox1.SelectionMode = System.Windows.Forms.SelectionMode.MultiSimple + Me.MyListBox1.Size = New System.Drawing.Size(142, 212) + Me.MyListBox1.TabIndex = 7 + ' + 'cboSort + ' + Me.cboSort._allowedValuesFreiText = Nothing + Me.cboSort._allowFreiText = False + Me.cboSort._value = "" + Me.cboSort.FormattingEnabled = True + Me.cboSort.Location = New System.Drawing.Point(207, 205) + Me.cboSort.Name = "cboSort" + Me.cboSort.Size = New System.Drawing.Size(132, 21) + Me.cboSort.TabIndex = 22 + ' + 'txtBagatellgrenzeBei + ' + Me.txtBagatellgrenzeBei._DateTimeOnly = False + Me.txtBagatellgrenzeBei._numbersOnly = False + Me.txtBagatellgrenzeBei._numbersOnlyKommastellen = "" + Me.txtBagatellgrenzeBei._numbersOnlyTrennzeichen = True + Me.txtBagatellgrenzeBei._Prozent = False + Me.txtBagatellgrenzeBei._ShortDateNew = True + Me.txtBagatellgrenzeBei._ShortDateOnly = False + Me.txtBagatellgrenzeBei._TimeOnly = False + Me.txtBagatellgrenzeBei._TimeOnly_Seconds = False + Me.txtBagatellgrenzeBei._value = "" + Me.txtBagatellgrenzeBei._Waehrung = True + Me.txtBagatellgrenzeBei._WaehrungZeichen = True + Me.txtBagatellgrenzeBei.Enabled = False + Me.txtBagatellgrenzeBei.ForeColor = System.Drawing.Color.Black + Me.txtBagatellgrenzeBei.Location = New System.Drawing.Point(38, 25) + Me.txtBagatellgrenzeBei.MaxLength = 10 + Me.txtBagatellgrenzeBei.MaxLineLength = -1 + Me.txtBagatellgrenzeBei.MaxLines_Warning = "" + Me.txtBagatellgrenzeBei.MaxLines_Warning_Label = Nothing + Me.txtBagatellgrenzeBei.Name = "txtBagatellgrenzeBei" + Me.txtBagatellgrenzeBei.Size = New System.Drawing.Size(79, 20) + Me.txtBagatellgrenzeBei.TabIndex = 1 + Me.txtBagatellgrenzeBei.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'MyComboBox1 + ' + Me.MyComboBox1._allowedValuesFreiText = Nothing + Me.MyComboBox1._allowFreiText = False + Me.MyComboBox1._value = "" + Me.MyComboBox1.FormattingEnabled = True + Me.MyComboBox1.Location = New System.Drawing.Point(532, 55) + Me.MyComboBox1.Name = "MyComboBox1" + Me.MyComboBox1.Size = New System.Drawing.Size(132, 21) + Me.MyComboBox1.TabIndex = 7 + ' + 'txtOPUmsatzBetragBis + ' + Me.txtOPUmsatzBetragBis._DateTimeOnly = False + Me.txtOPUmsatzBetragBis._numbersOnly = False + Me.txtOPUmsatzBetragBis._numbersOnlyKommastellen = "" + Me.txtOPUmsatzBetragBis._numbersOnlyTrennzeichen = True + Me.txtOPUmsatzBetragBis._Prozent = False + Me.txtOPUmsatzBetragBis._ShortDateNew = False + Me.txtOPUmsatzBetragBis._ShortDateOnly = False + Me.txtOPUmsatzBetragBis._TimeOnly = False + Me.txtOPUmsatzBetragBis._TimeOnly_Seconds = False + Me.txtOPUmsatzBetragBis._value = "" + Me.txtOPUmsatzBetragBis._Waehrung = True + Me.txtOPUmsatzBetragBis._WaehrungZeichen = True + Me.txtOPUmsatzBetragBis.ForeColor = System.Drawing.Color.Black + Me.txtOPUmsatzBetragBis.Location = New System.Drawing.Point(131, 48) + Me.txtOPUmsatzBetragBis.MaxLineLength = -1 + Me.txtOPUmsatzBetragBis.MaxLines_Warning = "" + Me.txtOPUmsatzBetragBis.MaxLines_Warning_Label = Nothing + Me.txtOPUmsatzBetragBis.Name = "txtOPUmsatzBetragBis" + Me.txtOPUmsatzBetragBis.Size = New System.Drawing.Size(60, 20) + Me.txtOPUmsatzBetragBis.TabIndex = 18 + Me.txtOPUmsatzBetragBis.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtOPUmsatzBetragVon + ' + Me.txtOPUmsatzBetragVon._DateTimeOnly = False + Me.txtOPUmsatzBetragVon._numbersOnly = False + Me.txtOPUmsatzBetragVon._numbersOnlyKommastellen = "" + Me.txtOPUmsatzBetragVon._numbersOnlyTrennzeichen = True + Me.txtOPUmsatzBetragVon._Prozent = False + Me.txtOPUmsatzBetragVon._ShortDateNew = False + Me.txtOPUmsatzBetragVon._ShortDateOnly = False + Me.txtOPUmsatzBetragVon._TimeOnly = False + Me.txtOPUmsatzBetragVon._TimeOnly_Seconds = False + Me.txtOPUmsatzBetragVon._value = "" + Me.txtOPUmsatzBetragVon._Waehrung = True + Me.txtOPUmsatzBetragVon._WaehrungZeichen = True + Me.txtOPUmsatzBetragVon.ForeColor = System.Drawing.Color.Black + Me.txtOPUmsatzBetragVon.Location = New System.Drawing.Point(38, 48) + Me.txtOPUmsatzBetragVon.MaxLineLength = -1 + Me.txtOPUmsatzBetragVon.MaxLines_Warning = "" + Me.txtOPUmsatzBetragVon.MaxLines_Warning_Label = Nothing + Me.txtOPUmsatzBetragVon.Name = "txtOPUmsatzBetragVon" + Me.txtOPUmsatzBetragVon.Size = New System.Drawing.Size(60, 20) + Me.txtOPUmsatzBetragVon.TabIndex = 16 + Me.txtOPUmsatzBetragVon.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtOPUmsatzBis + ' + Me.txtOPUmsatzBis._DateTimeOnly = False + Me.txtOPUmsatzBis._numbersOnly = False + Me.txtOPUmsatzBis._numbersOnlyKommastellen = "" + Me.txtOPUmsatzBis._numbersOnlyTrennzeichen = True + Me.txtOPUmsatzBis._Prozent = False + Me.txtOPUmsatzBis._ShortDateNew = True + Me.txtOPUmsatzBis._ShortDateOnly = False + Me.txtOPUmsatzBis._TimeOnly = False + Me.txtOPUmsatzBis._TimeOnly_Seconds = False + Me.txtOPUmsatzBis._value = "" + Me.txtOPUmsatzBis._Waehrung = False + Me.txtOPUmsatzBis._WaehrungZeichen = True + Me.txtOPUmsatzBis.ForeColor = System.Drawing.Color.Black + Me.txtOPUmsatzBis.Location = New System.Drawing.Point(131, 25) + Me.txtOPUmsatzBis.MaxLength = 10 + Me.txtOPUmsatzBis.MaxLineLength = -1 + Me.txtOPUmsatzBis.MaxLines_Warning = "" + Me.txtOPUmsatzBis.MaxLines_Warning_Label = Nothing + Me.txtOPUmsatzBis.Name = "txtOPUmsatzBis" + Me.txtOPUmsatzBis.Size = New System.Drawing.Size(60, 20) + Me.txtOPUmsatzBis.TabIndex = 4 + ' + 'txtOPUmsatzVon + ' + Me.txtOPUmsatzVon._DateTimeOnly = False + Me.txtOPUmsatzVon._numbersOnly = False + Me.txtOPUmsatzVon._numbersOnlyKommastellen = "" + Me.txtOPUmsatzVon._numbersOnlyTrennzeichen = True + Me.txtOPUmsatzVon._Prozent = False + Me.txtOPUmsatzVon._ShortDateNew = True + Me.txtOPUmsatzVon._ShortDateOnly = False + Me.txtOPUmsatzVon._TimeOnly = False + Me.txtOPUmsatzVon._TimeOnly_Seconds = False + Me.txtOPUmsatzVon._value = "" + Me.txtOPUmsatzVon._Waehrung = False + Me.txtOPUmsatzVon._WaehrungZeichen = True + Me.txtOPUmsatzVon.ForeColor = System.Drawing.Color.Black + Me.txtOPUmsatzVon.Location = New System.Drawing.Point(38, 25) + Me.txtOPUmsatzVon.MaxLength = 10 + Me.txtOPUmsatzVon.MaxLineLength = -1 + Me.txtOPUmsatzVon.MaxLines_Warning = "" + Me.txtOPUmsatzVon.MaxLines_Warning_Label = Nothing + Me.txtOPUmsatzVon.Name = "txtOPUmsatzVon" + Me.txtOPUmsatzVon.Size = New System.Drawing.Size(60, 20) + Me.txtOPUmsatzVon.TabIndex = 1 + ' + 'txtOPRisikoBetragBis + ' + Me.txtOPRisikoBetragBis._DateTimeOnly = False + Me.txtOPRisikoBetragBis._numbersOnly = False + Me.txtOPRisikoBetragBis._numbersOnlyKommastellen = "" + Me.txtOPRisikoBetragBis._numbersOnlyTrennzeichen = True + Me.txtOPRisikoBetragBis._Prozent = False + Me.txtOPRisikoBetragBis._ShortDateNew = False + Me.txtOPRisikoBetragBis._ShortDateOnly = False + Me.txtOPRisikoBetragBis._TimeOnly = False + Me.txtOPRisikoBetragBis._TimeOnly_Seconds = False + Me.txtOPRisikoBetragBis._value = "" + Me.txtOPRisikoBetragBis._Waehrung = True + Me.txtOPRisikoBetragBis._WaehrungZeichen = True + Me.txtOPRisikoBetragBis.ForeColor = System.Drawing.Color.Black + Me.txtOPRisikoBetragBis.Location = New System.Drawing.Point(416, 110) + Me.txtOPRisikoBetragBis.MaxLineLength = -1 + Me.txtOPRisikoBetragBis.MaxLines_Warning = "" + Me.txtOPRisikoBetragBis.MaxLines_Warning_Label = Nothing + Me.txtOPRisikoBetragBis.Name = "txtOPRisikoBetragBis" + Me.txtOPRisikoBetragBis.Size = New System.Drawing.Size(70, 20) + Me.txtOPRisikoBetragBis.TabIndex = 15 + Me.txtOPRisikoBetragBis.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtOPRisikoBetragVon + ' + Me.txtOPRisikoBetragVon._DateTimeOnly = False + Me.txtOPRisikoBetragVon._numbersOnly = False + Me.txtOPRisikoBetragVon._numbersOnlyKommastellen = "" + Me.txtOPRisikoBetragVon._numbersOnlyTrennzeichen = True + Me.txtOPRisikoBetragVon._Prozent = False + Me.txtOPRisikoBetragVon._ShortDateNew = False + Me.txtOPRisikoBetragVon._ShortDateOnly = False + Me.txtOPRisikoBetragVon._TimeOnly = False + Me.txtOPRisikoBetragVon._TimeOnly_Seconds = False + Me.txtOPRisikoBetragVon._value = "" + Me.txtOPRisikoBetragVon._Waehrung = True + Me.txtOPRisikoBetragVon._WaehrungZeichen = True + Me.txtOPRisikoBetragVon.ForeColor = System.Drawing.Color.Black + Me.txtOPRisikoBetragVon.Location = New System.Drawing.Point(308, 110) + Me.txtOPRisikoBetragVon.MaxLineLength = -1 + Me.txtOPRisikoBetragVon.MaxLines_Warning = "" + Me.txtOPRisikoBetragVon.MaxLines_Warning_Label = Nothing + Me.txtOPRisikoBetragVon.Name = "txtOPRisikoBetragVon" + Me.txtOPRisikoBetragVon.Size = New System.Drawing.Size(70, 20) + Me.txtOPRisikoBetragVon.TabIndex = 13 + Me.txtOPRisikoBetragVon.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtOPKdNrBis + ' + Me.txtOPKdNrBis._DateTimeOnly = False + Me.txtOPKdNrBis._numbersOnly = False + Me.txtOPKdNrBis._numbersOnlyKommastellen = "" + Me.txtOPKdNrBis._numbersOnlyTrennzeichen = True + Me.txtOPKdNrBis._Prozent = False + Me.txtOPKdNrBis._ShortDateNew = False + Me.txtOPKdNrBis._ShortDateOnly = False + Me.txtOPKdNrBis._TimeOnly = False + Me.txtOPKdNrBis._TimeOnly_Seconds = False + Me.txtOPKdNrBis._value = Nothing + Me.txtOPKdNrBis._Waehrung = False + Me.txtOPKdNrBis._WaehrungZeichen = True + Me.txtOPKdNrBis.ForeColor = System.Drawing.Color.Black + Me.txtOPKdNrBis.Location = New System.Drawing.Point(416, 84) + Me.txtOPKdNrBis.MaxLineLength = -1 + Me.txtOPKdNrBis.MaxLines_Warning = "" + Me.txtOPKdNrBis.MaxLines_Warning_Label = Nothing + Me.txtOPKdNrBis.Name = "txtOPKdNrBis" + Me.txtOPKdNrBis.Size = New System.Drawing.Size(70, 20) + Me.txtOPKdNrBis.TabIndex = 11 + ' + 'txtOPKdNrVon + ' + Me.txtOPKdNrVon._DateTimeOnly = False + Me.txtOPKdNrVon._numbersOnly = False + Me.txtOPKdNrVon._numbersOnlyKommastellen = "" + Me.txtOPKdNrVon._numbersOnlyTrennzeichen = True + Me.txtOPKdNrVon._Prozent = False + Me.txtOPKdNrVon._ShortDateNew = False + Me.txtOPKdNrVon._ShortDateOnly = False + Me.txtOPKdNrVon._TimeOnly = False + Me.txtOPKdNrVon._TimeOnly_Seconds = False + Me.txtOPKdNrVon._value = Nothing + Me.txtOPKdNrVon._Waehrung = False + Me.txtOPKdNrVon._WaehrungZeichen = True + Me.txtOPKdNrVon.ForeColor = System.Drawing.Color.Black + Me.txtOPKdNrVon.Location = New System.Drawing.Point(308, 84) + Me.txtOPKdNrVon.MaxLineLength = -1 + Me.txtOPKdNrVon.MaxLines_Warning = "" + Me.txtOPKdNrVon.MaxLines_Warning_Label = Nothing + Me.txtOPKdNrVon.Name = "txtOPKdNrVon" + Me.txtOPKdNrVon.Size = New System.Drawing.Size(70, 20) + Me.txtOPKdNrVon.TabIndex = 9 + ' + 'txtOPKdName + ' + Me.txtOPKdName._DateTimeOnly = False + Me.txtOPKdName._numbersOnly = False + Me.txtOPKdName._numbersOnlyKommastellen = "" + Me.txtOPKdName._numbersOnlyTrennzeichen = True + Me.txtOPKdName._Prozent = False + Me.txtOPKdName._ShortDateNew = False + Me.txtOPKdName._ShortDateOnly = False + Me.txtOPKdName._TimeOnly = False + Me.txtOPKdName._TimeOnly_Seconds = False + Me.txtOPKdName._value = Nothing + Me.txtOPKdName._Waehrung = False + Me.txtOPKdName._WaehrungZeichen = True + Me.txtOPKdName.ForeColor = System.Drawing.Color.Black + Me.txtOPKdName.Location = New System.Drawing.Point(308, 55) + Me.txtOPKdName.MaxLineLength = -1 + Me.txtOPKdName.MaxLines_Warning = "" + Me.txtOPKdName.MaxLines_Warning_Label = Nothing + Me.txtOPKdName.Name = "txtOPKdName" + Me.txtOPKdName.Size = New System.Drawing.Size(178, 20) + Me.txtOPKdName.TabIndex = 5 + ' + 'txtStichtag + ' + Me.txtStichtag._DateTimeOnly = False + Me.txtStichtag._numbersOnly = False + Me.txtStichtag._numbersOnlyKommastellen = "" + Me.txtStichtag._numbersOnlyTrennzeichen = True + Me.txtStichtag._Prozent = False + Me.txtStichtag._ShortDateNew = True + Me.txtStichtag._ShortDateOnly = False + Me.txtStichtag._TimeOnly = False + Me.txtStichtag._TimeOnly_Seconds = False + Me.txtStichtag._value = "" + Me.txtStichtag._Waehrung = False + Me.txtStichtag._WaehrungZeichen = True + Me.txtStichtag.ForeColor = System.Drawing.Color.Black + Me.txtStichtag.Location = New System.Drawing.Point(67, 10) + Me.txtStichtag.MaxLength = 10 + Me.txtStichtag.MaxLineLength = -1 + Me.txtStichtag.MaxLines_Warning = "" + Me.txtStichtag.MaxLines_Warning_Label = Nothing + Me.txtStichtag.Name = "txtStichtag" + Me.txtStichtag.Size = New System.Drawing.Size(60, 20) + Me.txtStichtag.TabIndex = 21 ' 'usrCntlBH ' @@ -1996,6 +2006,8 @@ Partial Class usrCntlBH Me.pnl.PerformLayout() Me.TabPage1.ResumeLayout(False) Me.TabPage1.PerformLayout() + Me.GroupBox12.ResumeLayout(False) + Me.GroupBox12.PerformLayout() Me.GroupBox11.ResumeLayout(False) Me.GroupBox11.PerformLayout() Me.GroupBox10.ResumeLayout(False) @@ -2026,8 +2038,6 @@ Partial Class usrCntlBH Me.GroupBox9.PerformLayout() Me.GroupBox6.ResumeLayout(False) Me.GroupBox6.PerformLayout() - Me.GroupBox12.ResumeLayout(False) - Me.GroupBox12.PerformLayout() Me.ResumeLayout(False) End Sub @@ -2166,4 +2176,5 @@ Partial Class usrCntlBH Friend WithEvents cbxFirmaUID As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents Button14 As Button Friend WithEvents cbx_nur_ungueltige As CheckBox + Friend WithEvents lblUID_zupruefen As Label End Class diff --git a/SDL/buchhaltung/usrCntlBH.vb b/SDL/buchhaltung/usrCntlBH.vb index c94fd821..ffbd66d3 100644 --- a/SDL/buchhaltung/usrCntlBH.vb +++ b/SDL/buchhaltung/usrCntlBH.vb @@ -4,6 +4,7 @@ Imports System.Windows.Media.Animation Imports com.sun.crypto.provider Imports com.sun.xml.internal.rngom Imports GrapeCity.ActiveReports.ReportsCore.Tools +Imports jdk.nashorn.internal.objects.annotations Imports VERAG_PROG_ALLGEMEIN Public Class usrCntlBH @@ -33,7 +34,12 @@ Public Class usrCntlBH cboAbfVerbFirma.fillWithSQL(" SELECT distinct([Firma]) FROM [VERAG].[dbo].[Filialen] order by [Firma]", False, "FMZOLL", True) cboAbfVerbFirma.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) - cbxFirmaUID.fillWithSQL(" SELECT distinct([Firma]) FROM [VERAG].[dbo].[Filialen] order by [Firma]", False, "FMZOLL", True) + cbxFirmaUID.Items.Add(New MyListItem("AMBAR", "AMBAR")) + cbxFirmaUID.Items.Add(New MyListItem("IMEX", "IMEX")) + cbxFirmaUID.Items.Add(New MyListItem("ATILLA", "ATILLA")) + cbxFirmaUID.Items.Add(New MyListItem("UNISPED", "UNISPED")) + cbxFirmaUID.Items.Add(New MyListItem("VERAG", "VERAG")) + cbxFirmaUID.Items.Add(New MyListItem("", "")) cbxFirmaUID.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) txtUID_Jahr.Text = Now().Year @@ -1279,14 +1285,14 @@ Public Class usrCntlBH If txtUID_Monat.Text = "" OrElse txtUID_Monat.Text <> "" AndAlso IsNumeric(txtUID_Monat.Text) AndAlso CInt(txtUID_Monat.Text) > 0 AndAlso CInt(txtUID_Monat.Text) < 13 Then - Dim SQL_UID As String = "SELECT [uid_KundenNr] as KdNr , Adressen.[Name 1],[uid_UstIdKz] as UstIdKz,[uid_UstIdNr] as UstIdnr, case when [uid_valid] = 1 then 'GUELTIG' else 'UNGUELTIG' end as Ergebnis, cast([uid_Datum] as date) as Pruefdatum,Convert(varchar(8), [uid_Datum], 108) As Pruefzeit, [firma] as Firma, cast(Adressen.UstIdGeprüft as date) as [letzte Prüfung], uid_pruefungstool as Quelle, uid_Sachbearbeiter as Sachbearbeiter - FROM [VERAG].[dbo].[tblUIDPruefung] inner join Adressen on Adressen.AdressenNr = [uid_KundenNr] - where YEAR(uid_Datum) = " & txtUID_Jahr.Text & IIf(txtUID_Monat.Text <> "", " AND MONTH(uid_Datum) = " & txtUID_Monat.Text, "") & IIf(cbxFirmaUID._value <> "", " And [firma] = '" & cbxFirmaUID._value & "'", "") & IIf(cbx_nur_ungueltige.Checked, " AND [uid_valid] = 0 ", "") + Dim SQL_UID As String = "SELECT [uid_KundenNr] as KdNr , Adressen.[Name 1],[uid_UstIdKz] as UstIdKz,[uid_UstIdNr] as UstIdnr, case when [uid_valid] = 1 then 'GUELTIG' else 'UNGUELTIG' end as Ergebnis, cast([uid_Datum] as date) as Pruefdatum,Convert(varchar(8), [uid_Datum], 108) As Pruefzeit, [tblUIDPruefung].[firma] as Firma, cast(Adressen.UstIdGeprüft as date) as [letzte Prüfung], uid_pruefungstool as Quelle, uid_Sachbearbeiter as Sachbearbeiter, Filialen.FilialenNr + FROM [VERAG].[dbo].[tblUIDPruefung] inner join Adressen on Adressen.AdressenNr = [uid_KundenNr] inner Join kunden On KundenNr=AdressenNr inner join Filialen On Filialen.FilialenNr=Kunden.FilialenNr + where YEAR(uid_Datum) = " & txtUID_Jahr.Text & IIf(txtUID_Monat.Text <> "", " AND MONTH(uid_Datum) = " & txtUID_Monat.Text, "") & IIf(cbxFirmaUID._value <> "", " And [tblUIDPruefung].[firma] = '" & cbxFirmaUID._value & "'", "") & IIf(cbx_nur_ungueltige.Checked, " AND [uid_valid] = 0 ", "") & " ORDER BY Filialen.FilialenNr " Me.Cursor = Cursors.WaitCursor Dim dt_UID As DataTable = SQL.loadDgvBySql(SQL_UID, "FMZOLL") If dt_UID.Rows.Count > 0 Then - cProgramFunctions.genExcelFromDT_NEW(dt_UID,,,,,, True) + cProgramFunctions.genExcelFromDT_NEW(dt_UID) Me.Cursor = Cursors.Default Else MsgBox("keine Daten für den ausgewählten Zeitraum!") @@ -1303,4 +1309,43 @@ Public Class usrCntlBH Me.Cursor = Cursors.Default End Try End Sub + + Private Sub txtUID_Monat_TextChanged(sender As Object, e As EventArgs) Handles txtUID_Monat.TextChanged + calcUIDPruefungen() + End Sub + + Private Sub cbxFirmaUID_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbxFirmaUID.SelectedIndexChanged + calcUIDPruefungen() + End Sub + + Private Sub calcUIDPruefungen() + + If txtUID_Jahr.Text <> "" AndAlso IsNumeric(txtUID_Jahr.Text) AndAlso txtUID_Jahr.Text.Length = 4 Then + + If txtUID_Monat.Text = "" OrElse txtUID_Monat.Text <> "" AndAlso IsNumeric(txtUID_Monat.Text) AndAlso CInt(txtUID_Monat.Text) > 0 AndAlso CInt(txtUID_Monat.Text) < 13 Then + + Dim SQL_FIRMA As String = "" + Select Case cbxFirmaUID._value + Case "AMBAR" : SQL_FIRMA = " And Filialen.FilialenNr IN (5701)" + Case "IMEX" : SQL_FIRMA = " And Filialen.FilialenNr IN (5501)" + Case "ATILLA" : SQL_FIRMA = " And Filialen.FilialenNr IN (4801)" + Case "UNISPED" : SQL_FIRMA = " AND Filialen.firma='UNISPED' " + Case "VERAG" : SQL_FIRMA = " AND Filialen.firma='VERAG' " + Case Else : SQL_FIRMA = "" + End Select + + + Dim Month As Integer = CInt(txtUID_Monat.Text).ToString("D2") + Dim Year As Integer = CInt(txtUID_Jahr.Text) + + Dim datum = CDate("15." & Month & "." & Year).AddMonths(-1) + + Dim SQL_UID_zupruefen As String = "Select count(*) From [Adressen] inner Join kunden On KundenNr=AdressenNr inner join Filialen On Filialen.FilialenNr=Kunden.FilialenNr where(UstIdGeprüft <= '" & datum & "' OR UstIdGeprüft is null) and (Adressen.UstIdKz is not null And Auswahl='A'" & SQL_FIRMA & ")" + + lblUID_zupruefen.Text = "nicht geprüft: " & SQL.getValueTxtBySql(SQL_UID_zupruefen, "FMZOLL",,, "0") + + End If + + End If + End Sub End Class diff --git a/SDL/frmdynMailvorlage.Designer.vb b/SDL/frmdynMailvorlage.Designer.vb index 3c8842db..72bf9408 100644 --- a/SDL/frmdynMailvorlage.Designer.vb +++ b/SDL/frmdynMailvorlage.Designer.vb @@ -66,9 +66,12 @@ Partial Class frmdynMailvorlagen Me.Label3 = New System.Windows.Forms.Label() Me.cbxFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.dgvMailvorlagen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.KopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.mainPanel.SuspendLayout() Me.pnlTop.SuspendLayout() CType(Me.dgvMailvorlagen, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ContextMenuStrip1.SuspendLayout() Me.SuspendLayout() ' 'mainPanel @@ -562,6 +565,18 @@ Partial Class frmdynMailvorlagen Me.dgvMailvorlagen.Size = New System.Drawing.Size(1283, 365) Me.dgvMailvorlagen.TabIndex = 104 ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KopierenToolStripMenuItem}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(181, 48) + ' + 'KopierenToolStripMenuItem + ' + Me.KopierenToolStripMenuItem.Name = "KopierenToolStripMenuItem" + Me.KopierenToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.KopierenToolStripMenuItem.Text = "Kopieren" + ' 'frmdynMailvorlagen ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -580,6 +595,7 @@ Partial Class frmdynMailvorlagen Me.pnlTop.ResumeLayout(False) Me.pnlTop.PerformLayout() CType(Me.dgvMailvorlagen, System.ComponentModel.ISupportInitialize).EndInit() + Me.ContextMenuStrip1.ResumeLayout(False) Me.ResumeLayout(False) End Sub @@ -626,4 +642,6 @@ Partial Class frmdynMailvorlagen Friend WithEvents cbxTyp As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents Label13 As Label Friend WithEvents TextBox2 As TextBox + Friend WithEvents ContextMenuStrip1 As ContextMenuStrip + Friend WithEvents KopierenToolStripMenuItem As ToolStripMenuItem End Class diff --git a/SDL/frmdynMailvorlage.resx b/SDL/frmdynMailvorlage.resx index 1af7de15..279a4474 100644 --- a/SDL/frmdynMailvorlage.resx +++ b/SDL/frmdynMailvorlage.resx @@ -117,4 +117,7 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 17, 17 + \ No newline at end of file diff --git a/SDL/frmdynMailvorlage.vb b/SDL/frmdynMailvorlage.vb index 76c6b1e5..f702494b 100644 --- a/SDL/frmdynMailvorlage.vb +++ b/SDL/frmdynMailvorlage.vb @@ -1,8 +1,4 @@ -Imports System.Windows.Controls -Imports System.Windows.Documents -Imports DocumentFormat.OpenXml.Drawing.Charts -Imports GrapeCity.ActiveReports.SectionReportModel -Imports Microsoft.Office.Interop +Imports Microsoft.Office.Interop Imports VERAG_PROG_ALLGEMEIN Public Class frmdynMailvorlagen @@ -57,17 +53,89 @@ Public Class frmdynMailvorlagen cbxFirma.Enabled = editall btnDelete.Enabled = editall + + For Each firmen_temp In cbxFirma.Items + If firmen_temp.ToString <> "" Then + If Not KopierenToolStripMenuItem.DropDownItems.ContainsKey(firmen_temp.ToString) Then + + If Not editall AndAlso firmen_temp.ToString = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then + Dim menuItem = New ToolStripMenuItem() With {.Text = firmen_temp.ToString, .Name = firmen_temp.ToString} + KopierenToolStripMenuItem.DropDownItems.Add(menuItem) + AddHandler menuItem.Click, AddressOf mnusubItem_Click + + ElseIf editall Then + Dim menuItem = New ToolStripMenuItem() With {.Text = firmen_temp.ToString, .Name = firmen_temp.ToString} + KopierenToolStripMenuItem.DropDownItems.Add(menuItem) + AddHandler menuItem.Click, AddressOf mnusubItem_Click + + End If + + + End If + End If + + Next + initDGVMailvorlagen(cbxFirma._value,, cbxSpracheSelected._value) End Sub + + Private Sub mnusubItem_Click(sender As Object, e As EventArgs) + ContextMenuStrip1.Hide() + Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem) + + Try + Dim Info As String = "Möchten Sie diesen Mailvorlage für die Firma " & item.Name & " kopieren?" + + If dgvMailvorlagen.SelectedRows(0).Cells("txt_FIRMA").Value = item.Name Then + Info &= vbNewLine & "Die ausgewählte Vorlage existiert bereits für die Firma " & item.Name + End If + + If vbYes = MsgBox(Info, vbYesNo) Then + + + txtkonserve = New cTextkonserve(dgvMailvorlagen.SelectedRows(0).Cells("txt_id").Value) + + Dim txtkonserve_new = New cTextkonserve() + + txtkonserve_new.txt_text = txtkonserve.txt_text + txtkonserve_new.txt_bezeichnung = txtkonserve.txt_bezeichnung + txtkonserve_new.txt_betreff = txtkonserve.txt_betreff + txtkonserve_new.txt_dynMailvorlage = txtkonserve.txt_dynMailvorlage + txtkonserve_new.txt_sprache = txtkonserve.txt_sprache + txtkonserve_new.txt_sendungsvermerk = txtkonserve.txt_sendungsvermerk + txtkonserve_new.txt_sendungsvermerkId = txtkonserve.txt_sendungsvermerkId + txtkonserve_new.txt_sendungsvermerkText = txtkonserve.txt_sendungsvermerkText + txtkonserve_new.txt_fixerEmpfaengerEmail = txtkonserve.txt_fixerEmpfaengerEmail + txtkonserve_new.txt_FIRMA = item.Name + txtkonserve_new.txt_kategorie = txtkonserve.txt_kategorie + txtkonserve_new.txt_typ = txtkonserve.txt_typ + txtkonserve_new.txt_letzteAenderungUser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + txtkonserve_new.txt_letzteAenderung = DateTime.Now + + txtkonserve_new.SAVE() + initDGVMailvorlagen(item.ToString) + End If + + + Catch ex As Exception + + + + End Try + + + End sub + + Private Sub initDGVMailvorlagen(Optional firma As String = "", Optional searchparam As String = "", Optional sprache As String = "") lblWarning.Text = "" Dim SQLString As String = "SELECT * FROM [tblTextkonserve] WHERE txt_kategorie = 'FRM_MNGR_MailText'" - Dim SQLWHere = "" + Dim SQLWHere = "" If firma <> "" Then SQLWHere &= " AND txt_FIRMA = '" & firma & "'" End If @@ -464,4 +532,36 @@ Public Class frmdynMailvorlagen End Select End Sub + + Private Sub dgvMailvorlagen_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvMailvorlagen.CellMouseClick + + If e.RowIndex < 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt + If e.ColumnIndex < 0 Then Exit Sub + + DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True + If e.Button = MouseButtons.Right Then + + If dgvMailvorlagen.SelectedRows.Count = 1 Then + + If (dgvMailvorlagen.SelectedRows(0).Cells("txt_FIRMA").Value Is DBNull.Value Or dgvMailvorlagen.SelectedRows(0).Cells("txt_FIRMA").Value Is Nothing Or dgvMailvorlagen.SelectedRows(0).Cells("txt_FIRMA").Value = "") Then + + ContextMenuStrip1.Show(Cursor.Position) + + Else + + ContextMenuStrip1.Show(Cursor.Position) + + + + End If + + + End If + + + + End If + + End Sub + End Class \ No newline at end of file