From a1889578d8b91e7a9681d25147f466c1f597f833 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 28 Oct 2025 17:13:19 +0100 Subject: [PATCH] FIBU, cFakt, etc. --- SDL/Fakturierung/cFakturierung.vb | 4 +- SDL/buchhaltung/usrCntlBH.Designer.vb | 1196 +++++++++-------- SDL/buchhaltung/usrCntlBH.vb | 104 +- .../frmKundenZOLLVollmachten.Designer.vb | 176 ++- SDL/kunden/frmKundenZOLLVollmachten.vb | 197 ++- SDL/kunden/usrCntlKundenuebersicht.vb | 2 - .../Classes/cKundenVollmachten.vb | 2 + 7 files changed, 995 insertions(+), 686 deletions(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 3c83b755..6a55673d 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -2329,8 +2329,10 @@ Public Class cFakturierung rpt.lblLeistungUeberschrift.Text = "RechnungsNr" rpt.lblAnzahlUeberschrift.Text = "Tage" rpt.lblSteuerpflichtigUeberschrift.Alignment = GrapeCity.ActiveReports.Document.Section.TextAlignment.Center - rpt.lblSteuerfreiUeberschrift.Text = "Zinsen p.a." rpt.lblSteuerpflichtigUeberschrift.Text = "Zahlungsbetrag" + rpt.lbl_onlyZR_VZUeberschrift.Text = "Zinsen % p.a." + rpt.lblSteuerfreiUeberschrift.Text = "Verzugszinsen" + rpt.lbl_onlyZR_ReDatUeberschrift.Visible = True rpt.lbl_onlyZR_FaelligUeberschrift.Visible = True diff --git a/SDL/buchhaltung/usrCntlBH.Designer.vb b/SDL/buchhaltung/usrCntlBH.Designer.vb index 4019cf2e..f5a24ec4 100644 --- a/SDL/buchhaltung/usrCntlBH.Designer.vb +++ b/SDL/buchhaltung/usrCntlBH.Designer.vb @@ -25,26 +25,37 @@ 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.lblUID_zupruefen = New System.Windows.Forms.Label() Me.Label53 = New System.Windows.Forms.Label() Me.GroupBox12 = New System.Windows.Forms.GroupBox() Me.cbx_nur_ungueltige = New System.Windows.Forms.CheckBox() + Me.txtUID_Jahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtUID_Monat = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label56 = New System.Windows.Forms.Label() Me.Label55 = New System.Windows.Forms.Label() 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.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,6 +63,7 @@ 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() @@ -93,26 +105,39 @@ 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() @@ -123,6 +148,7 @@ 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() @@ -132,32 +158,9 @@ 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.lblUID_zupruefen = New System.Windows.Forms.Label() - Me.txtUID_Jahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - 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.txtAbBetragAbrechnen = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.btnWikiStatusmails = New System.Windows.Forms.Button() + Me.btnDel_ = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.pnl.SuspendLayout() Me.TabPage1.SuspendLayout() Me.GroupBox12.SuspendLayout() @@ -229,6 +232,14 @@ Partial Class usrCntlBH Me.TabPage1.Text = "Allgemein" Me.TabPage1.UseVisualStyleBackColor = True ' + 'lblUID_zupruefen + ' + 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 + ' 'Label53 ' Me.Label53.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -268,6 +279,56 @@ Partial Class usrCntlBH Me.cbx_nur_ungueltige.Text = "nur ungültige" Me.cbx_nur_ungueltige.UseVisualStyleBackColor = True ' + 'txtUID_Jahr + ' + Me.txtUID_Jahr._DateTimeOnly = False + Me.txtUID_Jahr._numbersOnly = True + Me.txtUID_Jahr._numbersOnlyKommastellen = "" + Me.txtUID_Jahr._numbersOnlyTrennzeichen = False + Me.txtUID_Jahr._Prozent = False + Me.txtUID_Jahr._ShortDateNew = False + Me.txtUID_Jahr._ShortDateOnly = False + Me.txtUID_Jahr._TimeOnly = False + Me.txtUID_Jahr._TimeOnly_Seconds = False + Me.txtUID_Jahr._value = "" + 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(202, 32) + Me.txtUID_Jahr.MaxLength = 4 + Me.txtUID_Jahr.MaxLineLength = -1 + Me.txtUID_Jahr.MaxLines_Warning = "" + Me.txtUID_Jahr.MaxLines_Warning_Label = Nothing + Me.txtUID_Jahr.Name = "txtUID_Jahr" + Me.txtUID_Jahr.Size = New System.Drawing.Size(64, 20) + Me.txtUID_Jahr.TabIndex = 34 + Me.txtUID_Jahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + '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(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 + ' 'Label56 ' Me.Label56.AutoSize = True @@ -294,6 +355,17 @@ Partial Class usrCntlBH Me.Label54.TabIndex = 3 Me.Label54.Text = "alle UID-Prüfungen" ' + '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 + ' 'Button14 ' Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -310,6 +382,9 @@ Partial Class usrCntlBH ' '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) @@ -338,7 +413,7 @@ Partial Class usrCntlBH 'Label52 ' Me.Label52.AutoSize = True - Me.Label52.Location = New System.Drawing.Point(554, 46) + 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 @@ -351,7 +426,7 @@ Partial Class usrCntlBH 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(743, 39) + 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 @@ -369,6 +444,32 @@ 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(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 @@ -397,17 +498,41 @@ Partial Class usrCntlBH 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(743, 10) + 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(554, 19) + 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 @@ -431,6 +556,29 @@ 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 @@ -440,6 +588,53 @@ 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 @@ -458,6 +653,54 @@ 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 @@ -532,6 +775,17 @@ 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 @@ -1022,6 +1276,27 @@ 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 @@ -1066,6 +1341,32 @@ 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 @@ -1086,6 +1387,17 @@ 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 @@ -1131,6 +1443,54 @@ 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 @@ -1140,6 +1500,54 @@ 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 @@ -1178,6 +1586,30 @@ 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 @@ -1192,6 +1624,30 @@ 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 @@ -1210,6 +1666,52 @@ 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 @@ -1228,6 +1730,29 @@ 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 @@ -1352,6 +1877,30 @@ 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 @@ -1450,548 +1999,58 @@ Partial Class usrCntlBH Me.Button7.Text = "Importieren" Me.Button7.UseVisualStyleBackColor = True ' - 'lblUID_zupruefen + 'txtAbBetragAbrechnen ' - 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 + 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 ' - 'txtUID_Jahr + 'btnWikiStatusmails ' - Me.txtUID_Jahr._DateTimeOnly = False - Me.txtUID_Jahr._numbersOnly = True - Me.txtUID_Jahr._numbersOnlyKommastellen = "" - Me.txtUID_Jahr._numbersOnlyTrennzeichen = False - Me.txtUID_Jahr._Prozent = False - Me.txtUID_Jahr._ShortDateNew = False - Me.txtUID_Jahr._ShortDateOnly = False - Me.txtUID_Jahr._TimeOnly = False - Me.txtUID_Jahr._TimeOnly_Seconds = False - Me.txtUID_Jahr._value = "" - 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(202, 32) - Me.txtUID_Jahr.MaxLength = 4 - Me.txtUID_Jahr.MaxLineLength = -1 - Me.txtUID_Jahr.MaxLines_Warning = "" - Me.txtUID_Jahr.MaxLines_Warning_Label = Nothing - Me.txtUID_Jahr.Name = "txtUID_Jahr" - Me.txtUID_Jahr.Size = New System.Drawing.Size(64, 20) - Me.txtUID_Jahr.TabIndex = 34 - Me.txtUID_Jahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + 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 ' - 'txtUID_Monat + 'btnDel_ ' - 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 + 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 ' 'usrCntlBH ' @@ -2177,4 +2236,7 @@ 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 End Class diff --git a/SDL/buchhaltung/usrCntlBH.vb b/SDL/buchhaltung/usrCntlBH.vb index ffbd66d3..8df1654e 100644 --- a/SDL/buchhaltung/usrCntlBH.vb +++ b/SDL/buchhaltung/usrCntlBH.vb @@ -61,9 +61,19 @@ Public Class usrCntlBH Dim isMDM As Boolean = False If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung = "MDM" OrElse VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_nname = "Breimaier" Then isMDM = True - If isMDM Then txtnichtabrechneteKunden.Text = SQL.getValueTxtBySql("SELECT count(distinct(kundenNr)) FROM [VERAG].[dbo].[tblMDM_Zinsberechnung] where verrechnet is null", "FMZOLL",,, "0") + If isMDM Then + txtnichtabrechneteKunden.Text = SQL.getValueTxtBySql("SELECT count(distinct(kundenNr)) FROM [VERAG].[dbo].[tblMDM_Zinsberechnung] where verrechnet is null", "FMZOLL",,, "0") + If IsNumeric(txtnichtabrechneteKunden.Text) AndAlso CInt(txtnichtabrechneteKunden.Text) > 0 Then + btnDel_.Visible = True + Else + btnDel_.Visible = False + End If - MyListBox1.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [VERAG].[dbo].[tblFirma] where Firma_ID NOT IN (20) order by [Firma_ID] ", False, "FMZOLL") + Else + + End If + + MyListBox1.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [VERAG].[dbo].[tblFirma] where Firma_ID NOT IN (20) order by [Firma_ID] ", False, "FMZOLL") For i = 0 To MyListBox1.Items.Count - 1 If isMDM Then @@ -836,30 +846,30 @@ Public Class usrCntlBH SELECT + op_debitor.i_personenkonto AS KDNR, op_debitor.c_urbelegid AS BelegNr, - op_debitor.i_personenkonto AS KundenNr, - op_debitor.d_rechnung AS Belegdatum, - --ISNULL(op_debitor.OWNFIELD_Belegdatum, '01.01.2000') AS origbelegdatum, - op_debitor.eur_bruttobetrag AS Bruttobetrag, - op_debitor.eur_zahlung AS Zahlungsbetrag, - op_debitor.d_netto AS Nettodatum, - op_debitor.c_bemerkung AS Buchungstext, + op_debitor.c_bemerkung AS Buchungstext, + op_debitor.d_rechnung AS Belegdatum, + op_debitor.d_netto AS Fällig, op_debitor.d_zahlung AS Zahlungsdatum, - ISNULL(op_debitor.c_zahlziel, '0/0/20') AS ZZ_in_OP, + --ISNULL(op_debitor.OWNFIELD_Belegdatum, '01.01.2000') AS origbelegdatum, + DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + 0 ), op_debitor.d_rechnung), op_debitor.d_zahlung) as ÜberschreitungInTagen, + op_debitor.eur_zahlung AS Zahlungsbetrag, isnull(kde_zinssatz," & zinssatz.ToString.Replace(",", ".") & ") AS Zinssatz_Kunde, - ISNULL(fibu_konto.c_zahlziel, '0/0/20') AS ZZ_in_Debitor, - ISNULL(dbo.fibu_zahlziel.si_ntage,20) as ZZinTage, - DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & "), op_debitor.d_rechnung) as ReZielZahlungsdatum, - DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + 0 ), op_debitor.d_rechnung), op_debitor.d_zahlung) as ÜberschreitungInTagen, - - case when DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) > 0 then + case when DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) > 0 then - Round(op_debitor.eur_bruttobetrag * isnull(kde_zinssatz,9.5) / 100 * DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) / 360,2) + Round(op_debitor.eur_bruttobetrag * isnull(kde_zinssatz,9.5) / 100 * DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) ), op_debitor.d_rechnung), op_debitor.d_zahlung) / 360,2) else 0 end as Zinsbetrag, + cast(0 as bit) as abgerechnet, - cast(0 as bit) as abgerechnet - + op_debitor.eur_bruttobetrag AS Bruttobetrag, + ISNULL(op_debitor.c_zahlziel, '0/0/20') AS ZZ_in_OP, + ISNULL(fibu_konto.c_zahlziel, '0/0/20') AS ZZ_in_Debitor, + ISNULL(dbo.fibu_zahlziel.si_ntage,20) as ZZinTage, + DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & "), op_debitor.d_rechnung) as ReZielZahlungsdatum + + FROM op_debitor INNER JOIN fibu_konto ON (op_debitor.i_personenkonto = fibu_konto.i_konto) inner join [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenErweitert] on kde_KundenNr = op_debitor.i_personenkonto left join fibu_zahlziel on dbo.fibu_zahlziel.i_firm_refid = dbo.op_debitor.i_firm_refid and dbo.fibu_zahlziel.c_zahlziel = ISNULL(fibu_konto.c_zahlziel, '0/0/20') @@ -871,7 +881,7 @@ Public Class usrCntlBH AND op_debitor.i_personenkonto >= @KundeVon AND op_debitor.i_personenkonto <= @KundeBis AND op_debitor.d_zahlung >= @ZahlungVon AND op_debitor.d_zahlung <= @ZahlungBis AND DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & "), op_debitor.d_rechnung), op_debitor.d_zahlung) > 0 - AND Left(op_debitor.c_bemerkung,2) <> 'AR' + AND Left(op_debitor.c_bemerkung,2) <> 'AR' AND Left(op_debitor.c_bemerkung,2) <> 'DA' AND Left(op_debitor.c_bemerkung,2) <> 'AU' AND Left(op_debitor.c_bemerkung,2) <> 'RE' AND Left(op_debitor.c_bemerkung,2) <> 'VI' AND Left(op_debitor.c_bemerkung,2) <> 'Ha' AND op_debitor.c_bemerkung not like '%nicht verzinsen%' ORDER BY op_debitor.i_personenkonto, op_debitor.c_urbelegid desc, op_debitor.d_rechnung, ISNULL(op_debitor.OWNFIELD_Belegdatum, '01.01.2000')" @@ -889,7 +899,7 @@ Public Class usrCntlBH If r.Item("Zinsbetrag") > 0 Then - Dim zins As New cMDMZinsberechnung(r.Item("KundenNr"), r.Item("BelegNr")) + Dim zins As New cMDMZinsberechnung(r.Item("KDNR"), r.Item("BelegNr")) If zins.hasEntry AndAlso zins.verrechnet IsNot Nothing Then counter += 1 @@ -928,9 +938,24 @@ Public Class usrCntlBH Dim dtTemp As New DataTable dtTemp = dt.Select("Zinsbetrag > 0").CopyToDataTable + + If dtTemp.Columns.Contains("Bruttobetrag") Then dtTemp.Columns.Remove("Bruttobetrag") + If dtTemp.Columns.Contains("ZZ_in_OP") Then dtTemp.Columns.Remove("ZZ_in_OP") + If dtTemp.Columns.Contains("ZZ_in_Debitor") Then dtTemp.Columns.Remove("ZZ_in_Debitor") + If dtTemp.Columns.Contains("ZZinTage") Then dtTemp.Columns.Remove("ZZinTage") + If dtTemp.Columns.Contains("ReZielZahlungsdatum") Then dtTemp.Columns.Remove("ReZielZahlungsdatum") + + If dtTemp.Rows.Count > 0 Then - cProgramFunctions.genExcelFromDT_NEW(dtTemp, {"D1:D" & (dt.Rows.Count + 1), "E1:E" & (dt.Rows.Count + 1), "O1:O" & (dt.Rows.Count + 1)}) + cProgramFunctions.genExcelFromDT_NEW(dtTemp, {"H1:H" & (dt.Rows.Count + 1), "J1:J" & (dt.Rows.Count + 1)}) txtnichtabrechneteKunden.Text = SQL.getValueTxtBySql("SELECT count(distinct(kundenNr)) FROM [VERAG].[dbo].[tblMDM_Zinsberechnung] where verrechnet is null", "FMZOLL",,, "0") + + If IsNumeric(txtnichtabrechneteKunden.Text) AndAlso CInt(txtnichtabrechneteKunden.Text) > 0 Then + btnDel_.Visible = True + Else + btnDel_.Visible = False + End If + End If End If @@ -1199,8 +1224,12 @@ Public Class usrCntlBH End Sub Private Sub btnZNBverrechnen_Click(sender As Object, e As EventArgs) Handles btnZNBverrechnen.Click + Dim LimitBEtrag As Integer = -1 + If txtAbBetragAbrechnen._value <> "" AndAlso IsNumeric(txtAbBetragAbrechnen._value) Then + LimitBEtrag = CInt(txtAbBetragAbrechnen._value) + End If - Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("Select [kundenNr], zahlungsperiode_start,zahlungsperiode_ende FROM [VERAG].[dbo].[tblMDM_Zinsberechnung] where [verrechnet] Is null group by [kundenNr], zahlungsperiode_start, zahlungsperiode_ende ", "FMZOLL") + Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("Select [kundenNr],SUM([zinsbetrag]) as Zinsbetrag, zahlungsperiode_start,zahlungsperiode_ende FROM [VERAG].[dbo].[tblMDM_Zinsberechnung] where [verrechnet] Is null group by [kundenNr], zahlungsperiode_start, zahlungsperiode_ende" & IIf(LimitBEtrag > 0, " having SUM([zinsbetrag]) >= " & LimitBEtrag, ""), "FMZOLL") If dt_Main.Rows.Count > 0 Then Dim kundenNr As String = "" @@ -1234,8 +1263,14 @@ Public Class usrCntlBH End If + If dt_Main.Rows.Count = 0 Then + MsgBox("keine zu verrechnenden Datensätze!") + Exit Sub + End If + + + If vbYes = MsgBox("Möchten Sie für " & dt_Main.Rows.Count & " Kunden die Zinsbelastung verrechnen?" & vbNewLine & "Es werden nur Rechnungen erstellt, deren Gesamtbelastung über " & LimitBEtrag & " EUR liegt!", vbYesNoCancel) Then - If vbYes = MsgBox("Möchten Sie für " & dt_Main.Rows.Count & " Kunden die Zinsbelastung verrechnen?", vbYesNoCancel) Then For Each R In dt_Main.Rows @@ -1311,14 +1346,14 @@ Public Class usrCntlBH End Sub Private Sub txtUID_Monat_TextChanged(sender As Object, e As EventArgs) Handles txtUID_Monat.TextChanged - calcUIDPruefungen() + countIDPruefungen() End Sub Private Sub cbxFirmaUID_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbxFirmaUID.SelectedIndexChanged - calcUIDPruefungen() + countIDPruefungen() End Sub - Private Sub calcUIDPruefungen() + Private Sub countIDPruefungen() If txtUID_Jahr.Text <> "" AndAlso IsNumeric(txtUID_Jahr.Text) AndAlso txtUID_Jahr.Text.Length = 4 Then @@ -1348,4 +1383,19 @@ Public Class usrCntlBH End If End Sub + + Private Sub btnWikiStatusmails_Click(sender As Object, e As EventArgs) Handles btnWikiStatusmails.Click + + Dim webAddress As String = "https://wiki.verag.ag/software/sdl/zinsnachberechnung" + Process.Start(webAddress) + + End Sub + + Private Sub btnDel__Click(sender As Object, e As EventArgs) Handles btnDel_.Click + + If vbYes = MsgBox("Möchten Sie die alle nicht verrechneten Zinsbelastungen löschen?", vbYesNoCancel) Then + SQL.doSQL("delete from [tblMDM_Zinsberechnung] WHERE [verrechnet] Is null", "FMZOLL") + End If + + End Sub End Class diff --git a/SDL/kunden/frmKundenZOLLVollmachten.Designer.vb b/SDL/kunden/frmKundenZOLLVollmachten.Designer.vb index 2b4abe64..f8176cac 100644 --- a/SDL/kunden/frmKundenZOLLVollmachten.Designer.vb +++ b/SDL/kunden/frmKundenZOLLVollmachten.Designer.vb @@ -29,6 +29,14 @@ Partial Class frmKundenZOLLVollmachten Me.btnNeu = New System.Windows.Forms.Button() Me.dgvVollmachtenEmbedded = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.pb_merge = New System.Windows.Forms.PictureBox() + Me.picDeletePDF2 = New System.Windows.Forms.PictureBox() + Me.picPDF2 = New System.Windows.Forms.PictureBox() + Me.picDeleteEmail = New System.Windows.Forms.PictureBox() + Me.picEmail = New System.Windows.Forms.PictureBox() + Me.picDeletePDF = New System.Windows.Forms.PictureBox() + Me.picPDF = New System.Windows.Forms.PictureBox() Me.Button1 = New System.Windows.Forms.Button() Me.Label1 = New System.Windows.Forms.Label() Me.cbxErhaltenAm = New System.Windows.Forms.CheckBox() @@ -39,11 +47,6 @@ Partial Class frmKundenZOLLVollmachten Me.cbxVMarchivieren = New System.Windows.Forms.CheckBox() Me.Label3 = New System.Windows.Forms.Label() Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Panel1 = New System.Windows.Forms.Panel() - Me.picDeleteEmail = New System.Windows.Forms.PictureBox() - Me.picEmail = New System.Windows.Forms.PictureBox() - Me.picDeletePDF = New System.Windows.Forms.PictureBox() - Me.picPDF = New System.Windows.Forms.PictureBox() Me.lblGueltigBis = New System.Windows.Forms.Label() Me.txtGueltigVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtGueltigBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() @@ -55,17 +58,21 @@ Partial Class frmKundenZOLLVollmachten Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.pnl.SuspendLayout() CType(Me.dgvVollmachtenEmbedded, System.ComponentModel.ISupportInitialize).BeginInit() - Me.pnlDetails.SuspendLayout() Me.Panel1.SuspendLayout() + CType(Me.pb_merge, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.picDeletePDF2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.picPDF2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picDeleteEmail, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picEmail, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picDeletePDF, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picPDF, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlDetails.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout() Me.SuspendLayout() ' 'pnl ' + Me.pnl.AllowDrop = True Me.pnl.BackColor = System.Drawing.Color.White Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.pnl.Controls.Add(Me.lblPDFavailable) @@ -135,6 +142,98 @@ Partial Class frmKundenZOLLVollmachten Me.MyComboBox1.TabIndex = 15 Me.MyComboBox1.Visible = False ' + 'Panel1 + ' + Me.Panel1.AllowDrop = True + Me.Panel1.Controls.Add(Me.pb_merge) + Me.Panel1.Controls.Add(Me.picDeletePDF2) + Me.Panel1.Controls.Add(Me.picPDF2) + Me.Panel1.Controls.Add(Me.picDeleteEmail) + Me.Panel1.Controls.Add(Me.picEmail) + Me.Panel1.Controls.Add(Me.picDeletePDF) + Me.Panel1.Controls.Add(Me.picPDF) + Me.Panel1.Location = New System.Drawing.Point(233, 190) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(204, 74) + Me.Panel1.TabIndex = 17 + Me.Panel1.Visible = False + ' + 'pb_merge + ' + Me.pb_merge.BackgroundImage = Global.SDL.My.Resources.Resources.picboxPrevious_Enter + Me.pb_merge.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch + Me.pb_merge.Location = New System.Drawing.Point(125, 38) + Me.pb_merge.Name = "pb_merge" + Me.pb_merge.Size = New System.Drawing.Size(19, 13) + Me.pb_merge.TabIndex = 22 + Me.pb_merge.TabStop = False + Me.pb_merge.Visible = False + ' + 'picDeletePDF2 + ' + Me.picDeletePDF2.Image = Global.SDL.My.Resources.Resources.del + Me.picDeletePDF2.Location = New System.Drawing.Point(159, 1) + Me.picDeletePDF2.Name = "picDeletePDF2" + Me.picDeletePDF2.Size = New System.Drawing.Size(20, 20) + Me.picDeletePDF2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.picDeletePDF2.TabIndex = 21 + Me.picDeletePDF2.TabStop = False + Me.picDeletePDF2.Visible = False + ' + 'picPDF2 + ' + Me.picPDF2.Image = Global.SDL.My.Resources.Resources.pdf_gray + Me.picPDF2.Location = New System.Drawing.Point(146, 23) + Me.picPDF2.Name = "picPDF2" + Me.picPDF2.Size = New System.Drawing.Size(44, 48) + Me.picPDF2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.picPDF2.TabIndex = 20 + Me.picPDF2.TabStop = False + Me.picPDF2.Visible = False + ' + 'picDeleteEmail + ' + Me.picDeleteEmail.Image = Global.SDL.My.Resources.Resources.del + Me.picDeleteEmail.Location = New System.Drawing.Point(27, 0) + Me.picDeleteEmail.Name = "picDeleteEmail" + Me.picDeleteEmail.Size = New System.Drawing.Size(20, 20) + Me.picDeleteEmail.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.picDeleteEmail.TabIndex = 19 + Me.picDeleteEmail.TabStop = False + Me.picDeleteEmail.Visible = False + ' + 'picEmail + ' + Me.picEmail.Image = Global.SDL.My.Resources.Resources.email_big_gray + Me.picEmail.Location = New System.Drawing.Point(13, 23) + Me.picEmail.Name = "picEmail" + Me.picEmail.Size = New System.Drawing.Size(44, 48) + Me.picEmail.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.picEmail.TabIndex = 18 + Me.picEmail.TabStop = False + ' + 'picDeletePDF + ' + Me.picDeletePDF.Image = Global.SDL.My.Resources.Resources.del + Me.picDeletePDF.Location = New System.Drawing.Point(90, 1) + Me.picDeletePDF.Name = "picDeletePDF" + Me.picDeletePDF.Size = New System.Drawing.Size(20, 20) + Me.picDeletePDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.picDeletePDF.TabIndex = 16 + Me.picDeletePDF.TabStop = False + Me.picDeletePDF.Visible = False + ' + 'picPDF + ' + Me.picPDF.Image = Global.SDL.My.Resources.Resources.pdf_gray + Me.picPDF.Location = New System.Drawing.Point(79, 23) + Me.picPDF.Name = "picPDF" + Me.picPDF.Size = New System.Drawing.Size(44, 48) + Me.picPDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.picPDF.TabIndex = 17 + Me.picPDF.TabStop = False + Me.picPDF.Visible = False + ' 'Button1 ' Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -265,61 +364,6 @@ Partial Class frmKundenZOLLVollmachten Me.txtVermerk.Size = New System.Drawing.Size(364, 23) Me.txtVermerk.TabIndex = 25 ' - 'Panel1 - ' - Me.Panel1.Controls.Add(Me.picDeleteEmail) - Me.Panel1.Controls.Add(Me.picEmail) - Me.Panel1.Controls.Add(Me.picDeletePDF) - Me.Panel1.Controls.Add(Me.picPDF) - Me.Panel1.Location = New System.Drawing.Point(307, 190) - Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(130, 74) - Me.Panel1.TabIndex = 17 - Me.Panel1.Visible = False - ' - 'picDeleteEmail - ' - Me.picDeleteEmail.Image = Global.SDL.My.Resources.Resources.del - Me.picDeleteEmail.Location = New System.Drawing.Point(27, 0) - Me.picDeleteEmail.Name = "picDeleteEmail" - Me.picDeleteEmail.Size = New System.Drawing.Size(20, 20) - Me.picDeleteEmail.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom - Me.picDeleteEmail.TabIndex = 19 - Me.picDeleteEmail.TabStop = False - Me.picDeleteEmail.Visible = False - ' - 'picEmail - ' - Me.picEmail.Image = Global.SDL.My.Resources.Resources.email_big_gray - Me.picEmail.Location = New System.Drawing.Point(13, 23) - Me.picEmail.Name = "picEmail" - Me.picEmail.Size = New System.Drawing.Size(44, 48) - Me.picEmail.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom - Me.picEmail.TabIndex = 18 - Me.picEmail.TabStop = False - ' - 'picDeletePDF - ' - Me.picDeletePDF.Image = Global.SDL.My.Resources.Resources.del - Me.picDeletePDF.Location = New System.Drawing.Point(90, 1) - Me.picDeletePDF.Name = "picDeletePDF" - Me.picDeletePDF.Size = New System.Drawing.Size(20, 20) - Me.picDeletePDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom - Me.picDeletePDF.TabIndex = 16 - Me.picDeletePDF.TabStop = False - Me.picDeletePDF.Visible = False - ' - 'picPDF - ' - Me.picPDF.Image = Global.SDL.My.Resources.Resources.pdf_gray - Me.picPDF.Location = New System.Drawing.Point(79, 23) - Me.picPDF.Name = "picPDF" - Me.picPDF.Size = New System.Drawing.Size(44, 48) - Me.picPDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom - Me.picPDF.TabIndex = 17 - Me.picPDF.TabStop = False - Me.picPDF.Visible = False - ' 'lblGueltigBis ' Me.lblGueltigBis.AutoSize = True @@ -448,13 +492,16 @@ Partial Class frmKundenZOLLVollmachten Me.pnl.ResumeLayout(False) Me.pnl.PerformLayout() CType(Me.dgvVollmachtenEmbedded, System.ComponentModel.ISupportInitialize).EndInit() - Me.pnlDetails.ResumeLayout(False) - Me.pnlDetails.PerformLayout() Me.Panel1.ResumeLayout(False) + CType(Me.pb_merge, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.picDeletePDF2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.picPDF2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.picDeleteEmail, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.picEmail, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.picDeletePDF, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.picPDF, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlDetails.ResumeLayout(False) + Me.pnlDetails.PerformLayout() Me.ContextMenuStrip1.ResumeLayout(False) Me.ResumeLayout(False) @@ -488,4 +535,7 @@ Partial Class frmKundenZOLLVollmachten Friend WithEvents lblWarning As Label Friend WithEvents picDeleteEmail As PictureBox Friend WithEvents picEmail As PictureBox + Friend WithEvents picDeletePDF2 As PictureBox + Friend WithEvents picPDF2 As PictureBox + Friend WithEvents pb_merge As PictureBox End Class diff --git a/SDL/kunden/frmKundenZOLLVollmachten.vb b/SDL/kunden/frmKundenZOLLVollmachten.vb index 9f9903f8..e5589997 100644 --- a/SDL/kunden/frmKundenZOLLVollmachten.vb +++ b/SDL/kunden/frmKundenZOLLVollmachten.vb @@ -1,5 +1,10 @@  +Imports System.IO +Imports System.Text +Imports GrapeCity.ActiveReports.ReportsCore.Tools +Imports GrapeCity.Viewer.Common.Model + Public Class frmKundenZOLLVollmachten Public kdnr As Integer = -1 Public filePath As String @@ -203,7 +208,7 @@ Public Class frmKundenZOLLVollmachten .Columns.Clear() - .DataSource = ksql.loadDgvBySql("SELECT abf.kdvm_Id,art.kdvma_Id, art.kdvma_Bezeichnung, abf.[kdvm_KundenNr], abf.[kdvm_erhalten],abf.[kdvm_erhalten_Datum], abf.kdvm_datenarchivId,abf.kdvm_Info, abf.[kdvm_archiviert], abf.[kdvm_gueltig_bis], abf.[kdvm_vermerk], abf.[kdvm_geloescht]" & + .DataSource = ksql.loadDgvBySql("SELECT abf.kdvm_Id,art.kdvma_Id, art.kdvma_Bezeichnung, abf.[kdvm_KundenNr], abf.[kdvm_erhalten],abf.[kdvm_erhalten_Datum], abf.kdvm_datenarchivId, kdvm_datenarchivId_2,abf.kdvm_Info, abf.[kdvm_archiviert], abf.[kdvm_gueltig_bis], abf.[kdvm_vermerk], abf.[kdvm_geloescht]" & " FROM [tblKundenVollmachtenArt] as art " & " INNER JOIN (select * from [tblKundenVollmachten]) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId]" & " WHERE art.kdvma_visible=1 AND abf.kdvm_erhalten = 1 AND ISNULL(abf.[kdvm_geloescht],0) != 1 AND [kdvm_KundenNr]='" & kdnr & "' AND [kdvm_kdvmaId]='" & vollmachtartId & "'" & where & @@ -214,6 +219,7 @@ Public Class frmKundenZOLLVollmachten .Columns("kdvma_Id").Visible = False .Columns("kdvm_KundenNr").Visible = False .Columns("kdvm_datenarchivId").Visible = False + .Columns("kdvm_datenarchivId_2").Visible = False .Columns("kdvma_Bezeichnung").Visible = False .Columns("kdvma_Bezeichnung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns("kdvma_Bezeichnung").HeaderText = "Bezeichnung" @@ -360,18 +366,48 @@ Public Class frmKundenZOLLVollmachten Sub checkPDFisPresent() + 'pdf2 nur anzeigen, wenn pdf1 befüllt! + If currentVM.kdvm_datenarchivId > 0 Then picDeletePDF.Visible = True picPDF.Visible = True picPDF.Image = My.Resources.pdf + picPDF.AllowDrop = False picPDF.Cursor = Cursors.Default + + picPDF2.Visible = True + picPDF2.Image = My.Resources.pdf_gray + picPDF2.AllowDrop = True + picPDF2.Cursor = Cursors.Hand + Else picDeletePDF.Visible = False picPDF.Visible = True picPDF.Image = My.Resources.pdf_gray + picPDF.AllowDrop = True picPDF.Cursor = Cursors.Hand + picDeletePDF2.Visible = False + picPDF2.Visible = False + End If + + If currentVM.kdvm_datenarchivId_2 > 0 Then + + picDeletePDF2.Visible = True + picPDF2.Visible = True + picPDF2.Image = My.Resources.pdf + picPDF2.AllowDrop = False + picPDF2.Cursor = Cursors.Default + + End If + + If currentVM.kdvm_datenarchivId_2 > 0 AndAlso currentVM.kdvm_datenarchivId > 0 Then + pb_merge.Visible = True + Else + pb_merge.Visible = False + End If + End Sub Sub checkEmailIsPresent() @@ -507,27 +543,52 @@ Public Class frmKundenZOLLVollmachten End Sub - Private Sub picPDF_Click(sender As Object, e As EventArgs) Handles picPDF.Click + Private Sub picPDF_Click(sender As Object, e As EventArgs) Handles picPDF.Click, picPDF2.Click If Me.MyComboBox1._value < 0 Then Exit Sub Dim DS As Object - If currentVM.kdvm_datenarchivId > 0 Then - DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_datenarchivId) - DS.OPEN_SINGLE() - 'MsgBox("Open PDF") - Else - DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & vmId, "", "", "PDF_" & MyComboBox1.Text, kdnr) - Dim path = DS.uploadDataToDATENSERVERFileDialog() + Select Case sender.Name + Case "picPDF2" + + If currentVM.kdvm_datenarchivId_2 > 0 Then + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_datenarchivId_2) + DS.OPEN_SINGLE() + 'MsgBox("Open PDF") + Else + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & vmId, "", "", "PDF_" & MyComboBox1.Text & "_2", kdnr) + Dim path = DS.uploadDataToDATENSERVERFileDialog() + + If path <> "" Then + currentVM.kdvm_datenarchivId_2 = DS.da_id + End If + + picDeletePDF2.Visible = True = (currentVM.kdvm_datenarchivId_2 > 0) + saveVM(currentVM) + End If + + Case Else + + If currentVM.kdvm_datenarchivId > 0 Then + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_datenarchivId) + DS.OPEN_SINGLE() + 'MsgBox("Open PDF") + Else + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & vmId, "", "", "PDF_" & MyComboBox1.Text, kdnr) + Dim path = DS.uploadDataToDATENSERVERFileDialog() + + If path <> "" Then + currentVM.kdvm_datenarchivId = DS.da_id + End If + + picDeletePDF.Visible = True = (currentVM.kdvm_datenarchivId > 0) + saveVM(currentVM) + End If + + End Select - If path <> "" Then - currentVM.kdvm_datenarchivId = DS.da_id - End If - picDeletePDF.Visible = True = (currentVM.kdvm_datenarchivId > 0) - saveVM(currentVM) - End If dgvVollmachtenEmbedded.GetOrder() initDGVVollmachtenEmbedded(True) @@ -535,22 +596,48 @@ Public Class frmKundenZOLLVollmachten End Sub - Private Sub picDeletePDF_Click(sender As Object, e As EventArgs) Handles picDeletePDF.Click + Private Sub picDeletePDF_Click(sender As Object, e As EventArgs) Handles picDeletePDF.Click, picDeletePDF2.Click lblPDFavailable.Cursor = Cursors.WaitCursor - If (currentVM.kdvm_datenarchivId > 0) Then - If vbYes = MsgBox("Möchten Sie das PDF wirklich löschen?", vbYesNoCancel) Then - Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_datenarchivId) - DS.DELETE_COMPLETE() + Select Case sender.Name + Case "picDeletePDF2" - currentVM.kdvm_datenarchivId = -1 - If currentVM.SAVE Then - currentVM.kdvm_datenarchivId = -1 : picDeletePDF.Visible = False - picPDF.Image = My.Resources.pdf_gray + If (currentVM.kdvm_datenarchivId_2 > 0) Then + If vbYes = MsgBox("Möchten Sie das PDF wirklich löschen?", vbYesNoCancel) Then + + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_datenarchivId_2) + DS.DELETE_COMPLETE() + + currentVM.kdvm_datenarchivId_2 = -1 + If currentVM.SAVE Then + currentVM.kdvm_datenarchivId_2 = -1 : picDeletePDF2.Visible = False + picPDF2.Image = My.Resources.pdf_gray + picPDF2.AllowDrop = True + End If + End If End If - End If - End If + + Case Else + + If (currentVM.kdvm_datenarchivId > 0) Then + If vbYes = MsgBox("Möchten Sie das PDF wirklich löschen?", vbYesNoCancel) Then + + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_datenarchivId) + DS.DELETE_COMPLETE() + + currentVM.kdvm_datenarchivId = -1 + If currentVM.SAVE Then + currentVM.kdvm_datenarchivId = -1 : picDeletePDF.Visible = False + picPDF.Image = My.Resources.pdf_gray + picPDF.AllowDrop = True + End If + End If + End If + + End Select + + lblPDFavailable.Cursor = Cursors.Default dgvVollmachtenEmbedded.GetOrder() @@ -622,9 +709,67 @@ Public Class frmKundenZOLLVollmachten picPDF.Visible = False picDeleteEmail.Visible = False picEmail.Visible = False + + picDeletePDF2.Visible = False + picPDF2.Visible = False + + pb_merge.Visible = False + End Sub Private Sub btnUploadPDF_Click(sender As Object, e As EventArgs) End Sub + + Private Sub pb_merge_Click(sender As Object, e As EventArgs) Handles pb_merge.Click + + If currentVM.kdvm_datenarchivId_2 > 0 AndAlso currentVM.kdvm_datenarchivId > 0 Then + + If vbYes = MsgBox("Möchten sie die zwei PDF-Dokumente miteinander verbinden?", vbYesNoCancel) Then + + + Dim list As New List(Of String) + + Dim path_File1 As String = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(currentVM.kdvm_datenarchivId) + Dim path_File2 As String = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(currentVM.kdvm_datenarchivId_2) + + list.Add(path_File1) + list.Add(path_File2) + + Dim pathPDF = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Vollmachten_" & Now.ToString("ddMMyyyyHHmmss") & ".pdf", ".pdf", False, False) + + If FormularManagerNEU.MergePdfFiles(list, pathPDF) Then + + Dim DS1 As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_datenarchivId) + DS1.DELETE_COMPLETE() + currentVM.kdvm_datenarchivId = -1 + + Dim DS2 As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_datenarchivId_2) + DS2.DELETE_COMPLETE() + currentVM.kdvm_datenarchivId_2 = -1 + + + Dim DS_NEW = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & vmId, "", "", "PDF_" & MyComboBox1.Text, kdnr) + If DS_NEW.uploadDataToDATENSERVER(pathPDF) Then + If pathPDF <> "" Then + currentVM.kdvm_datenarchivId = DS_NEW.da_id + End If + End If + + If currentVM.SAVE Then + currentVM.kdvm_datenarchivId_2 = -1 : picDeletePDF2.Visible = False + picPDF2.Image = My.Resources.pdf_gray + picPDF2.AllowDrop = True + End If + + picDeletePDF.Visible = True = (currentVM.kdvm_datenarchivId > 0) + checkPDFisPresent() + End If + + End If + + End If + + End Sub + End Class \ No newline at end of file diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb index 79e5864e..9cb9a5f3 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.vb +++ b/SDL/kunden/usrCntlKundenuebersicht.vb @@ -1,8 +1,6 @@ Imports System.Data.SqlClient Imports System.Globalization Imports System.IO -Imports System.ServiceModel.Configuration -Imports GrapeCity.DataVisualization.TypeScript Imports SDL.EORI Imports VERAG_PROG_ALLGEMEIN diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cKundenVollmachten.vb b/VERAG_PROG_ALLGEMEIN/Classes/cKundenVollmachten.vb index 5e8ad278..5d0a12b5 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenVollmachten.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenVollmachten.vb @@ -10,6 +10,7 @@ Public Class cKundenVollmachten Property kdvm_erhalten_Datum As Object = Nothing Property kdvm_Info As String Property kdvm_datenarchivId As Object = Nothing + Property kdvm_datenarchivId_2 As Object = Nothing Property kdvm_archiviert As Boolean = False Property kdvm_gueltig_bis As Object = Nothing Property kdvm_gueltig_ab As Object = Nothing @@ -43,6 +44,7 @@ Public Class cKundenVollmachten list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_erhalten_Datum", kdvm_erhalten_Datum)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_Info", kdvm_Info)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_datenarchivId", kdvm_datenarchivId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_datenarchivId_2", kdvm_datenarchivId_2)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_archiviert", kdvm_archiviert)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_gueltig_bis", kdvm_gueltig_bis)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_gueltig_ab", kdvm_gueltig_ab))