diff --git a/SDL/buchhaltung/usrCntlBH.Designer.vb b/SDL/buchhaltung/usrCntlBH.Designer.vb index 6eb3df5d..2cbae264 100644 --- a/SDL/buchhaltung/usrCntlBH.Designer.vb +++ b/SDL/buchhaltung/usrCntlBH.Designer.vb @@ -25,6 +25,7 @@ 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.btn_fehlendeUID = New System.Windows.Forms.Button() Me.lblUID_zupruefen = New System.Windows.Forms.Label() Me.Label53 = New System.Windows.Forms.Label() Me.GroupBox12 = New System.Windows.Forms.GroupBox() @@ -36,29 +37,6 @@ Partial Class usrCntlBH Me.Label54 = New System.Windows.Forms.Label() Me.cbxFirmaUID = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Button14 = New System.Windows.Forms.Button() - Me.GroupBox11 = New System.Windows.Forms.GroupBox() - Me.btnDel_ = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.btnWikiStatusmails = New System.Windows.Forms.Button() - Me.txtAbBetragAbrechnen = New VERAG_PROG_ALLGEMEIN.MyTextBox() - 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() @@ -161,11 +139,34 @@ 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.btn_fehlendeUID = New System.Windows.Forms.Button() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.GroupBox11 = New System.Windows.Forms.GroupBox() + Me.Label57 = New System.Windows.Forms.Label() + Me.btnDel_ = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.btnWikiStatusmails = New System.Windows.Forms.Button() + Me.txtAbBetragAbrechnen = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label52 = New System.Windows.Forms.Label() + Me.btnZNBverrechnen = New System.Windows.Forms.Button() + 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.Label51 = New System.Windows.Forms.Label() Me.pnl.SuspendLayout() Me.TabPage1.SuspendLayout() Me.GroupBox12.SuspendLayout() - Me.GroupBox11.SuspendLayout() Me.GroupBox10.SuspendLayout() Me.GroupBox8.SuspendLayout() Me.GroupBox7.SuspendLayout() @@ -181,6 +182,8 @@ Partial Class usrCntlBH Me.TabPage5.SuspendLayout() Me.GroupBox9.SuspendLayout() Me.GroupBox6.SuspendLayout() + Me.TabPage2.SuspendLayout() + Me.GroupBox11.SuspendLayout() Me.SuspendLayout() ' 'Label6 @@ -210,7 +213,6 @@ Partial Class usrCntlBH 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) Me.TabPage1.Controls.Add(Me.Label42) Me.TabPage1.Controls.Add(Me.GroupBox10) Me.TabPage1.Controls.Add(Me.Label34) @@ -229,11 +231,24 @@ Partial Class usrCntlBH Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Name = "TabPage1" Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage1.Size = New System.Drawing.Size(956, 968) + Me.TabPage1.Size = New System.Drawing.Size(956, 879) Me.TabPage1.TabIndex = 0 Me.TabPage1.Text = "Allgemein" Me.TabPage1.UseVisualStyleBackColor = True ' + 'btn_fehlendeUID + ' + Me.btn_fehlendeUID.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn_fehlendeUID.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.btn_fehlendeUID.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.btn_fehlendeUID.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btn_fehlendeUID.Location = New System.Drawing.Point(810, 102) + Me.btn_fehlendeUID.Name = "btn_fehlendeUID" + Me.btn_fehlendeUID.Size = New System.Drawing.Size(43, 20) + Me.btn_fehlendeUID.TabIndex = 35 + Me.btn_fehlendeUID.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btn_fehlendeUID.UseVisualStyleBackColor = True + ' 'lblUID_zupruefen ' Me.lblUID_zupruefen.AutoSize = True @@ -382,380 +397,6 @@ Partial Class usrCntlBH Me.Button14.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button14.UseVisualStyleBackColor = True ' - 'GroupBox11 - ' - Me.GroupBox11.Controls.Add(Me.btnDel_) - Me.GroupBox11.Controls.Add(Me.btnWikiStatusmails) - Me.GroupBox11.Controls.Add(Me.txtAbBetragAbrechnen) - Me.GroupBox11.Controls.Add(Me.Label52) - Me.GroupBox11.Controls.Add(Me.btnZNBverrechnen) - Me.GroupBox11.Controls.Add(Me.Label51) - Me.GroupBox11.Controls.Add(Me.txtnichtabrechneteKunden) - Me.GroupBox11.Controls.Add(Me.Label49) - Me.GroupBox11.Controls.Add(Me.btnZinsbelastung) - Me.GroupBox11.Controls.Add(Me.Button13) - Me.GroupBox11.Controls.Add(Me.txtZinssatz) - Me.GroupBox11.Controls.Add(Me.lblnichtabgerechneteZNB) - Me.GroupBox11.Controls.Add(Me.Label45) - Me.GroupBox11.Controls.Add(Me.Label48) - Me.GroupBox11.Controls.Add(Me.txtKdNrvon) - Me.GroupBox11.Controls.Add(Me.Label46) - Me.GroupBox11.Controls.Add(Me.txtKdNrbis) - Me.GroupBox11.Controls.Add(Me.txtTolInTagen) - Me.GroupBox11.Controls.Add(Me.Label47) - Me.GroupBox11.Controls.Add(Me.Label44) - Me.GroupBox11.Controls.Add(Me.txtZRvon) - Me.GroupBox11.Controls.Add(Me.txtZRbis) - Me.GroupBox11.Location = New System.Drawing.Point(5, 874) - Me.GroupBox11.Name = "GroupBox11" - Me.GroupBox11.Size = New System.Drawing.Size(847, 69) - Me.GroupBox11.TabIndex = 35 - Me.GroupBox11.TabStop = False - ' - 'btnDel_ - ' - Me.btnDel_.allowBorder = False - Me.btnDel_.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnDel_.BackgroundImage = Global.SDL.My.Resources.Resources.del - Me.btnDel_.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btnDel_.FlatAppearance.BorderSize = 0 - Me.btnDel_.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnDel_.ForeColor = System.Drawing.Color.Black - Me.btnDel_.Location = New System.Drawing.Point(814, 42) - Me.btnDel_.Name = "btnDel_" - Me.btnDel_.Size = New System.Drawing.Size(20, 20) - Me.btnDel_.TabIndex = 74 - Me.btnDel_.UseVisualStyleBackColor = True - Me.btnDel_.Visible = False - ' - 'btnWikiStatusmails - ' - Me.btnWikiStatusmails.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen - Me.btnWikiStatusmails.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btnWikiStatusmails.FlatAppearance.BorderSize = 0 - Me.btnWikiStatusmails.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnWikiStatusmails.Location = New System.Drawing.Point(814, 10) - Me.btnWikiStatusmails.Name = "btnWikiStatusmails" - Me.btnWikiStatusmails.Size = New System.Drawing.Size(25, 20) - Me.btnWikiStatusmails.TabIndex = 73 - Me.btnWikiStatusmails.UseVisualStyleBackColor = True - ' - 'txtAbBetragAbrechnen - ' - Me.txtAbBetragAbrechnen._DateTimeOnly = False - Me.txtAbBetragAbrechnen._numbersOnly = True - Me.txtAbBetragAbrechnen._numbersOnlyKommastellen = "" - Me.txtAbBetragAbrechnen._numbersOnlyTrennzeichen = True - Me.txtAbBetragAbrechnen._Prozent = False - Me.txtAbBetragAbrechnen._ShortDateNew = False - Me.txtAbBetragAbrechnen._ShortDateOnly = False - Me.txtAbBetragAbrechnen._TimeOnly = False - Me.txtAbBetragAbrechnen._TimeOnly_Seconds = False - Me.txtAbBetragAbrechnen._value = "0" - Me.txtAbBetragAbrechnen._Waehrung = False - Me.txtAbBetragAbrechnen._WaehrungZeichen = False - Me.txtAbBetragAbrechnen.ForeColor = System.Drawing.Color.Black - Me.txtAbBetragAbrechnen.Location = New System.Drawing.Point(665, 43) - Me.txtAbBetragAbrechnen.MaxLineLength = -1 - Me.txtAbBetragAbrechnen.MaxLines_Warning = "" - Me.txtAbBetragAbrechnen.MaxLines_Warning_Label = Nothing - Me.txtAbBetragAbrechnen.Name = "txtAbBetragAbrechnen" - Me.txtAbBetragAbrechnen.Size = New System.Drawing.Size(34, 20) - Me.txtAbBetragAbrechnen.TabIndex = 42 - Me.txtAbBetragAbrechnen.Text = "20" - Me.txtAbBetragAbrechnen.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'Label52 - ' - Me.Label52.AutoSize = True - Me.Label52.Location = New System.Drawing.Point(521, 46) - Me.Label52.Name = "Label52" - Me.Label52.Size = New System.Drawing.Size(138, 13) - Me.Label52.TabIndex = 41 - Me.Label52.Text = "*wenn nicht im Kd hinterlegt" - ' - 'btnZNBverrechnen - ' - Me.btnZNBverrechnen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center - Me.btnZNBverrechnen.Enabled = False - Me.btnZNBverrechnen.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnZNBverrechnen.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.btnZNBverrechnen.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnZNBverrechnen.Location = New System.Drawing.Point(710, 39) - Me.btnZNBverrechnen.Name = "btnZNBverrechnen" - Me.btnZNBverrechnen.Size = New System.Drawing.Size(98, 26) - Me.btnZNBverrechnen.TabIndex = 40 - Me.btnZNBverrechnen.Text = "verrechnen" - Me.btnZNBverrechnen.UseVisualStyleBackColor = True - ' - 'Label51 - ' - Me.Label51.AutoSize = True - Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label51.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Me.Label51.Location = New System.Drawing.Point(2, -4) - Me.Label51.Name = "Label51" - Me.Label51.Size = New System.Drawing.Size(160, 17) - 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(665, 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 - Me.Label49.Location = New System.Drawing.Point(123, 45) - Me.Label49.Name = "Label49" - Me.Label49.Size = New System.Drawing.Size(53, 13) - Me.Label49.TabIndex = 33 - Me.Label49.Text = "Zinssatz*:" - ' - 'btnZinsbelastung - ' - Me.btnZinsbelastung.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center - Me.btnZinsbelastung.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnZinsbelastung.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.btnZinsbelastung.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnZinsbelastung.Location = New System.Drawing.Point(5, 19) - Me.btnZinsbelastung.Name = "btnZinsbelastung" - Me.btnZinsbelastung.Size = New System.Drawing.Size(98, 44) - Me.btnZinsbelastung.TabIndex = 8 - Me.btnZinsbelastung.Text = "Zinsbelastung erstellen" - Me.btnZinsbelastung.UseVisualStyleBackColor = True - ' - 'Button13 - ' - Me.Button13.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center - Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button13.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Button13.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button13.Location = New System.Drawing.Point(710, 10) - Me.Button13.Name = "Button13" - Me.Button13.Size = New System.Drawing.Size(98, 26) - Me.Button13.TabIndex = 38 - 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 - Me.lblnichtabgerechneteZNB.Location = New System.Drawing.Point(521, 19) - Me.lblnichtabgerechneteZNB.Name = "lblnichtabgerechneteZNB" - Me.lblnichtabgerechneteZNB.Size = New System.Drawing.Size(144, 13) - Me.lblnichtabgerechneteZNB.TabIndex = 37 - Me.lblnichtabgerechneteZNB.Text = "Nicht abgerechnete Kunden:" - ' - 'Label45 - ' - Me.Label45.AutoSize = True - Me.Label45.Location = New System.Drawing.Point(252, 19) - Me.Label45.Name = "Label45" - Me.Label45.Size = New System.Drawing.Size(82, 13) - Me.Label45.TabIndex = 29 - Me.Label45.Text = "Kunden-Nr von:" - ' - 'Label48 - ' - Me.Label48.AutoSize = True - Me.Label48.Location = New System.Drawing.Point(123, 21) - Me.Label48.Name = "Label48" - Me.Label48.Size = New System.Drawing.Size(67, 13) - 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 - Me.Label46.Location = New System.Drawing.Point(418, 43) - Me.Label46.Name = "Label46" - Me.Label46.Size = New System.Drawing.Size(23, 13) - 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 - Me.Label47.Location = New System.Drawing.Point(252, 43) - Me.Label47.Name = "Label47" - Me.Label47.Size = New System.Drawing.Size(82, 13) - Me.Label47.TabIndex = 23 - Me.Label47.Text = "Zahlungen von:" - ' - 'Label44 - ' - Me.Label44.AutoSize = True - Me.Label44.Location = New System.Drawing.Point(416, 19) - Me.Label44.Name = "Label44" - Me.Label44.Size = New System.Drawing.Size(23, 13) - 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 @@ -1833,11 +1474,12 @@ Partial Class usrCntlBH ' Me.tbcntr.Controls.Add(Me.TabPage1) Me.tbcntr.Controls.Add(Me.TabPage5) + Me.tbcntr.Controls.Add(Me.TabPage2) Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Fill Me.tbcntr.Location = New System.Drawing.Point(0, 52) Me.tbcntr.Name = "tbcntr" Me.tbcntr.SelectedIndex = 0 - Me.tbcntr.Size = New System.Drawing.Size(964, 994) + Me.tbcntr.Size = New System.Drawing.Size(964, 905) Me.tbcntr.TabIndex = 25 ' 'TabPage5 @@ -1848,7 +1490,7 @@ Partial Class usrCntlBH Me.TabPage5.Controls.Add(Me.GroupBox6) Me.TabPage5.Location = New System.Drawing.Point(4, 22) Me.TabPage5.Name = "TabPage5" - Me.TabPage5.Size = New System.Drawing.Size(956, 968) + Me.TabPage5.Size = New System.Drawing.Size(956, 879) Me.TabPage5.TabIndex = 1 Me.TabPage5.Text = "IMEX" Me.TabPage5.UseVisualStyleBackColor = True @@ -2054,18 +1696,399 @@ Partial Class usrCntlBH Me.Button7.Text = "Importieren" Me.Button7.UseVisualStyleBackColor = True ' - 'btn_fehlendeUID + 'TabPage2 ' - Me.btn_fehlendeUID.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btn_fehlendeUID.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.btn_fehlendeUID.Image = Global.SDL.My.Resources.Resources.Excel_logo - Me.btn_fehlendeUID.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btn_fehlendeUID.Location = New System.Drawing.Point(810, 102) - Me.btn_fehlendeUID.Name = "btn_fehlendeUID" - Me.btn_fehlendeUID.Size = New System.Drawing.Size(43, 20) - Me.btn_fehlendeUID.TabIndex = 35 - Me.btn_fehlendeUID.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btn_fehlendeUID.UseVisualStyleBackColor = True + Me.TabPage2.Controls.Add(Me.GroupBox11) + Me.TabPage2.Controls.Add(Me.Label51) + Me.TabPage2.Location = New System.Drawing.Point(4, 22) + Me.TabPage2.Name = "TabPage2" + Me.TabPage2.Size = New System.Drawing.Size(956, 879) + Me.TabPage2.TabIndex = 2 + Me.TabPage2.Text = "MDM" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'GroupBox11 + ' + Me.GroupBox11.Controls.Add(Me.Label57) + Me.GroupBox11.Controls.Add(Me.btnDel_) + Me.GroupBox11.Controls.Add(Me.btnWikiStatusmails) + Me.GroupBox11.Controls.Add(Me.txtAbBetragAbrechnen) + Me.GroupBox11.Controls.Add(Me.Label52) + Me.GroupBox11.Controls.Add(Me.btnZNBverrechnen) + Me.GroupBox11.Controls.Add(Me.txtnichtabrechneteKunden) + Me.GroupBox11.Controls.Add(Me.Label49) + Me.GroupBox11.Controls.Add(Me.btnZinsbelastung) + Me.GroupBox11.Controls.Add(Me.Button13) + Me.GroupBox11.Controls.Add(Me.txtZinssatz) + Me.GroupBox11.Controls.Add(Me.lblnichtabgerechneteZNB) + Me.GroupBox11.Controls.Add(Me.Label45) + Me.GroupBox11.Controls.Add(Me.Label48) + Me.GroupBox11.Controls.Add(Me.txtKdNrvon) + Me.GroupBox11.Controls.Add(Me.Label46) + Me.GroupBox11.Controls.Add(Me.txtKdNrbis) + Me.GroupBox11.Controls.Add(Me.txtTolInTagen) + Me.GroupBox11.Controls.Add(Me.Label47) + Me.GroupBox11.Controls.Add(Me.Label44) + Me.GroupBox11.Controls.Add(Me.txtZRvon) + Me.GroupBox11.Controls.Add(Me.txtZRbis) + Me.GroupBox11.Location = New System.Drawing.Point(14, 30) + Me.GroupBox11.Name = "GroupBox11" + Me.GroupBox11.Size = New System.Drawing.Size(847, 88) + Me.GroupBox11.TabIndex = 36 + Me.GroupBox11.TabStop = False + ' + 'Label57 + ' + Me.Label57.AutoSize = True + Me.Label57.Location = New System.Drawing.Point(553, 47) + Me.Label57.Name = "Label57" + Me.Label57.Size = New System.Drawing.Size(109, 13) + Me.Label57.TabIndex = 75 + Me.Label57.Text = "Rechnung ab Betrag:" + ' + 'btnDel_ + ' + Me.btnDel_.allowBorder = False + Me.btnDel_.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnDel_.BackgroundImage = Global.SDL.My.Resources.Resources.del + Me.btnDel_.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnDel_.FlatAppearance.BorderSize = 0 + Me.btnDel_.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDel_.ForeColor = System.Drawing.Color.Black + Me.btnDel_.Location = New System.Drawing.Point(814, 42) + Me.btnDel_.Name = "btnDel_" + Me.btnDel_.Size = New System.Drawing.Size(20, 20) + Me.btnDel_.TabIndex = 74 + Me.btnDel_.UseVisualStyleBackColor = True + Me.btnDel_.Visible = False + ' + 'btnWikiStatusmails + ' + Me.btnWikiStatusmails.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen + Me.btnWikiStatusmails.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnWikiStatusmails.FlatAppearance.BorderSize = 0 + Me.btnWikiStatusmails.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnWikiStatusmails.Location = New System.Drawing.Point(814, 10) + Me.btnWikiStatusmails.Name = "btnWikiStatusmails" + Me.btnWikiStatusmails.Size = New System.Drawing.Size(25, 20) + Me.btnWikiStatusmails.TabIndex = 73 + Me.btnWikiStatusmails.UseVisualStyleBackColor = True + ' + 'txtAbBetragAbrechnen + ' + Me.txtAbBetragAbrechnen._DateTimeOnly = False + Me.txtAbBetragAbrechnen._numbersOnly = True + Me.txtAbBetragAbrechnen._numbersOnlyKommastellen = "" + Me.txtAbBetragAbrechnen._numbersOnlyTrennzeichen = True + Me.txtAbBetragAbrechnen._Prozent = False + Me.txtAbBetragAbrechnen._ShortDateNew = False + Me.txtAbBetragAbrechnen._ShortDateOnly = False + Me.txtAbBetragAbrechnen._TimeOnly = False + Me.txtAbBetragAbrechnen._TimeOnly_Seconds = False + Me.txtAbBetragAbrechnen._value = "0" + Me.txtAbBetragAbrechnen._Waehrung = False + Me.txtAbBetragAbrechnen._WaehrungZeichen = False + Me.txtAbBetragAbrechnen.ForeColor = System.Drawing.Color.Black + Me.txtAbBetragAbrechnen.Location = New System.Drawing.Point(665, 43) + Me.txtAbBetragAbrechnen.MaxLineLength = -1 + Me.txtAbBetragAbrechnen.MaxLines_Warning = "" + Me.txtAbBetragAbrechnen.MaxLines_Warning_Label = Nothing + Me.txtAbBetragAbrechnen.Name = "txtAbBetragAbrechnen" + Me.txtAbBetragAbrechnen.Size = New System.Drawing.Size(34, 20) + Me.txtAbBetragAbrechnen.TabIndex = 42 + Me.txtAbBetragAbrechnen.Text = "20" + Me.txtAbBetragAbrechnen.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'Label52 + ' + Me.Label52.AutoSize = True + Me.Label52.Location = New System.Drawing.Point(123, 63) + Me.Label52.Name = "Label52" + Me.Label52.Size = New System.Drawing.Size(138, 13) + Me.Label52.TabIndex = 41 + Me.Label52.Text = "*wenn nicht im Kd hinterlegt" + ' + 'btnZNBverrechnen + ' + Me.btnZNBverrechnen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnZNBverrechnen.Enabled = False + Me.btnZNBverrechnen.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnZNBverrechnen.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.btnZNBverrechnen.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnZNBverrechnen.Location = New System.Drawing.Point(710, 39) + Me.btnZNBverrechnen.Name = "btnZNBverrechnen" + Me.btnZNBverrechnen.Size = New System.Drawing.Size(98, 26) + Me.btnZNBverrechnen.TabIndex = 40 + Me.btnZNBverrechnen.Text = "verrechnen" + Me.btnZNBverrechnen.UseVisualStyleBackColor = True + ' + '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(665, 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 + Me.Label49.Location = New System.Drawing.Point(123, 45) + Me.Label49.Name = "Label49" + Me.Label49.Size = New System.Drawing.Size(53, 13) + Me.Label49.TabIndex = 33 + Me.Label49.Text = "Zinssatz*:" + ' + 'btnZinsbelastung + ' + Me.btnZinsbelastung.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnZinsbelastung.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnZinsbelastung.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.btnZinsbelastung.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnZinsbelastung.Location = New System.Drawing.Point(6, 18) + Me.btnZinsbelastung.Name = "btnZinsbelastung" + Me.btnZinsbelastung.Size = New System.Drawing.Size(98, 44) + Me.btnZinsbelastung.TabIndex = 8 + Me.btnZinsbelastung.Text = "Zinsbelastung erstellen" + Me.btnZinsbelastung.UseVisualStyleBackColor = True + ' + 'Button13 + ' + Me.Button13.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button13.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button13.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button13.Location = New System.Drawing.Point(710, 10) + Me.Button13.Name = "Button13" + Me.Button13.Size = New System.Drawing.Size(98, 26) + Me.Button13.TabIndex = 38 + 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 + Me.lblnichtabgerechneteZNB.Location = New System.Drawing.Point(521, 19) + Me.lblnichtabgerechneteZNB.Name = "lblnichtabgerechneteZNB" + Me.lblnichtabgerechneteZNB.Size = New System.Drawing.Size(144, 13) + Me.lblnichtabgerechneteZNB.TabIndex = 37 + Me.lblnichtabgerechneteZNB.Text = "Nicht abgerechnete Kunden:" + ' + 'Label45 + ' + Me.Label45.AutoSize = True + Me.Label45.Location = New System.Drawing.Point(252, 19) + Me.Label45.Name = "Label45" + Me.Label45.Size = New System.Drawing.Size(82, 13) + Me.Label45.TabIndex = 29 + Me.Label45.Text = "Kunden-Nr von:" + ' + 'Label48 + ' + Me.Label48.AutoSize = True + Me.Label48.Location = New System.Drawing.Point(123, 21) + Me.Label48.Name = "Label48" + Me.Label48.Size = New System.Drawing.Size(67, 13) + 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 + Me.Label46.Location = New System.Drawing.Point(418, 43) + Me.Label46.Name = "Label46" + Me.Label46.Size = New System.Drawing.Size(23, 13) + 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 + Me.Label47.Location = New System.Drawing.Point(252, 43) + Me.Label47.Name = "Label47" + Me.Label47.Size = New System.Drawing.Size(82, 13) + Me.Label47.TabIndex = 23 + Me.Label47.Text = "Zahlungen von:" + ' + 'Label44 + ' + Me.Label44.AutoSize = True + Me.Label44.Location = New System.Drawing.Point(416, 19) + Me.Label44.Name = "Label44" + Me.Label44.Size = New System.Drawing.Size(23, 13) + 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 + ' + 'Label51 + ' + Me.Label51.AutoSize = True + Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label51.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label51.Location = New System.Drawing.Point(11, 10) + Me.Label51.Name = "Label51" + Me.Label51.Size = New System.Drawing.Size(160, 17) + Me.Label51.TabIndex = 36 + Me.Label51.Text = "Zinsnachberechnung" ' 'usrCntlBH ' @@ -2075,15 +2098,13 @@ Partial Class usrCntlBH Me.Controls.Add(Me.tbcntr) Me.Controls.Add(Me.pnl) Me.Name = "usrCntlBH" - Me.Size = New System.Drawing.Size(964, 1046) + Me.Size = New System.Drawing.Size(964, 957) Me.pnl.ResumeLayout(False) 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) Me.GroupBox10.PerformLayout() Me.GroupBox8.ResumeLayout(False) @@ -2112,6 +2133,10 @@ Partial Class usrCntlBH Me.GroupBox9.PerformLayout() Me.GroupBox6.ResumeLayout(False) Me.GroupBox6.PerformLayout() + Me.TabPage2.ResumeLayout(False) + Me.TabPage2.PerformLayout() + Me.GroupBox11.ResumeLayout(False) + Me.GroupBox11.PerformLayout() Me.ResumeLayout(False) End Sub @@ -2209,20 +2234,6 @@ Partial Class usrCntlBH Friend WithEvents GroupBox10 As GroupBox Friend WithEvents Label43 As Label Friend WithEvents Button12 As Button - Friend WithEvents btnZinsbelastung As Button - Friend WithEvents Label46 As Label - Friend WithEvents Label44 As Label - Friend WithEvents txtZRbis As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents txtZRvon As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label47 As Label - Friend WithEvents txtKdNrbis As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents txtKdNrvon As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label45 As Label - Friend WithEvents Label49 As Label - Friend WithEvents txtZinssatz As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents Label48 As Label - Friend WithEvents txtTolInTagen As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents GroupBox11 As GroupBox Friend WithEvents Label37 As Label Friend WithEvents GroupBox9 As GroupBox Friend WithEvents Label41 As Label @@ -2233,13 +2244,7 @@ Partial Class usrCntlBH Friend WithEvents Label39 As Label Friend WithEvents Label38 As Label Friend WithEvents Button9 As Button - Friend WithEvents Button13 As Button - Friend WithEvents lblnichtabgerechneteZNB As Label - Friend WithEvents Label51 As Label Friend WithEvents Label50 As Label - Friend WithEvents txtnichtabrechneteKunden As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents btnZNBverrechnen As Button - Friend WithEvents Label52 As Label Friend WithEvents Label53 As Label Friend WithEvents GroupBox12 As GroupBox Friend WithEvents txtUID_Jahr As VERAG_PROG_ALLGEMEIN.MyTextBox @@ -2251,8 +2256,30 @@ Partial Class usrCntlBH Friend WithEvents Button14 As Button Friend WithEvents cbx_nur_ungueltige As CheckBox Friend WithEvents lblUID_zupruefen As Label - Friend WithEvents txtAbBetragAbrechnen As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents btnWikiStatusmails As Button - Friend WithEvents btnDel_ As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents btn_fehlendeUID As Button + Friend WithEvents TabPage2 As TabPage + Friend WithEvents GroupBox11 As GroupBox + Friend WithEvents Label57 As Label + Friend WithEvents btnDel_ As VERAG_PROG_ALLGEMEIN.FlatButton + Friend WithEvents btnWikiStatusmails As Button + Friend WithEvents txtAbBetragAbrechnen As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label52 As Label + Friend WithEvents btnZNBverrechnen As Button + Friend WithEvents txtnichtabrechneteKunden As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label49 As Label + Friend WithEvents btnZinsbelastung As Button + Friend WithEvents Button13 As Button + Friend WithEvents txtZinssatz As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents lblnichtabgerechneteZNB As Label + Friend WithEvents Label45 As Label + Friend WithEvents Label48 As Label + Friend WithEvents txtKdNrvon As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label46 As Label + Friend WithEvents txtKdNrbis As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtTolInTagen As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label47 As Label + Friend WithEvents Label44 As Label + Friend WithEvents txtZRvon As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtZRbis As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label51 As Label End Class diff --git a/SDL/buchhaltung/usrCntlBH.vb b/SDL/buchhaltung/usrCntlBH.vb index 09ed86b6..de9adef0 100644 --- a/SDL/buchhaltung/usrCntlBH.vb +++ b/SDL/buchhaltung/usrCntlBH.vb @@ -31,7 +31,7 @@ Public Class usrCntlBH Private Sub usrCntlBH_Load(sender As Object, e As EventArgs) Handles Me.Load 'MyComboBox1.fillWithSQL(" SELECT tblUStVAntrag.UStVAn_LandKz,tblUStVAntrag.UStVAn_LandKz FROM tblUStVAntrag GROUP BY tblUStVAntrag.UStVAn_LandKz HAVING (((tblUStVAntrag.UStVAn_LandKz) Is Not Null)) ", False, "FMZOLL", True) - cboAbfVerbFirma.fillWithSQL(" SELECT distinct([Firma]) FROM [VERAG].[dbo].[Filialen] order by [Firma]", False, "FMZOLL", True) + cboAbfVerbFirma.fillWithSQL("SELECT distinct([Firma]) FROM [VERAG].[dbo].[Filialen] order by [Firma]", False, "FMZOLL", True) cboAbfVerbFirma.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) cbxFirmaUID.Items.Add(New MyListItem("AMBAR", "AMBAR")) @@ -84,8 +84,6 @@ Public Class usrCntlBH Next End Select - ' If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung = "MDM" Then CheckBox1.Checked = True : cbxSDLLeistungenSperre.Checked = True 'VERALTET - 'txtOPRisikoBetragVon._value = "" txtOPUmsatzVon.Text = "01.01." & (Now.Year - 1) txtOPUmsatzBis.Text = "31.12." & (Now.Year - 1) txtBagatellgrenzeBei._value = 800 @@ -797,7 +795,7 @@ Public Class usrCntlBH f.ShowDialog(Me) End Sub - Private Sub Button13_Click(sender As Object, e As EventArgs) Handles btnZinsbelastung.Click + Private Sub btnZinsbelastung_Click(sender As Object, e As EventArgs) Handles btnZinsbelastung.Click If txtKdNrvon.Text = "" OrElse Not IsNumeric(txtKdNrvon.Text) Then txtKdNrvon.Focus() @@ -1341,15 +1339,13 @@ Public Class usrCntlBH Try - - 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_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 " + where YEAR(uid_Datum) = " & txtUID_Jahr.Text & IIf(txtUID_Monat.Text <> "", " AND MONTH(uid_Datum) = " & txtUID_Monat.Text, "") & IIf(cbxFirmaUID._value <> "", " And Filialen.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") @@ -1435,4 +1431,6 @@ Public Class usrCntlBH Try : Process.Start(sender.tag) : Catch : End Try End If End Sub + + End Class diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb b/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb index 30de0832..b53a7623 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb @@ -219,7 +219,7 @@ Public Class cUIDPruefung Case "FINANZONLINE" Dim FO As New VERAG_PROG_ALLGEMEIN.cFinanzOnlineWebService - 'VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" WARUM? + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "" Then VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" FO.initValues() Dim counter = 0 Dim errorCounter As Integer = 0