From 4e6e44e72eef02b29b0eef1c24e644c9d70e082b Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 24 Oct 2025 17:01:01 +0200 Subject: [PATCH] UID-Pruefung, etc. --- SDL/My Project/AssemblyInfo.vb | 4 +- SDL/buchhaltung/usrCntlBH.Designer.vb | 317 +++++++++++++----- SDL/buchhaltung/usrCntlBH.vb | 47 ++- VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb | 10 +- .../Finanzonline/cFinanzOnlineWebService.vb | 4 +- 5 files changed, 296 insertions(+), 86 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 29046b6f..f55a8895 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/buchhaltung/usrCntlBH.Designer.vb b/SDL/buchhaltung/usrCntlBH.Designer.vb index abb31705..61da13b3 100644 --- a/SDL/buchhaltung/usrCntlBH.Designer.vb +++ b/SDL/buchhaltung/usrCntlBH.Designer.vb @@ -26,10 +26,15 @@ Partial Class usrCntlBH Me.pnl = New System.Windows.Forms.Panel() Me.TabPage1 = New System.Windows.Forms.TabPage() 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() @@ -42,12 +47,8 @@ Partial Class usrCntlBH Me.txtZRbis = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label42 = New System.Windows.Forms.Label() Me.GroupBox10 = New System.Windows.Forms.GroupBox() - Me.btnZNBverrechnen = New System.Windows.Forms.Button() - Me.txtnichtabrechneteKunden = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label43 = New System.Windows.Forms.Label() - Me.Button13 = New System.Windows.Forms.Button() Me.Button12 = New System.Windows.Forms.Button() - Me.lblnichtabgerechneteZNB = New System.Windows.Forms.Label() Me.Label34 = New System.Windows.Forms.Label() Me.GroupBox8 = New System.Windows.Forms.GroupBox() Me.Label36 = New System.Windows.Forms.Label() @@ -146,7 +147,16 @@ 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.Label52 = New System.Windows.Forms.Label() + Me.Label53 = New System.Windows.Forms.Label() + Me.GroupBox12 = New System.Windows.Forms.GroupBox() + Me.Label54 = New System.Windows.Forms.Label() + Me.Button14 = New System.Windows.Forms.Button() + Me.Label55 = New System.Windows.Forms.Label() + Me.cbxFirmaUID = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label56 = New System.Windows.Forms.Label() + Me.txtUID_Monat = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtUID_Jahr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbx_nur_ungueltige = New System.Windows.Forms.CheckBox() Me.pnl.SuspendLayout() Me.TabPage1.SuspendLayout() Me.GroupBox11.SuspendLayout() @@ -165,6 +175,7 @@ Partial Class usrCntlBH Me.TabPage5.SuspendLayout() Me.GroupBox9.SuspendLayout() Me.GroupBox6.SuspendLayout() + Me.GroupBox12.SuspendLayout() Me.SuspendLayout() ' 'Label6 @@ -190,6 +201,8 @@ Partial Class usrCntlBH 'TabPage1 ' Me.TabPage1.AutoScroll = True + 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) @@ -241,6 +254,29 @@ Partial Class usrCntlBH Me.GroupBox11.TabIndex = 35 Me.GroupBox11.TabStop = False ' + 'Label52 + ' + Me.Label52.AutoSize = True + Me.Label52.Location = New System.Drawing.Point(554, 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(743, 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 @@ -252,6 +288,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(698, 16) + Me.txtnichtabrechneteKunden.MaxLineLength = -1 + Me.txtnichtabrechneteKunden.MaxLines_Warning = "" + Me.txtnichtabrechneteKunden.MaxLines_Warning_Label = Nothing + Me.txtnichtabrechneteKunden.Name = "txtnichtabrechneteKunden" + Me.txtnichtabrechneteKunden.ReadOnly = True + Me.txtnichtabrechneteKunden.Size = New System.Drawing.Size(34, 20) + Me.txtnichtabrechneteKunden.TabIndex = 39 + Me.txtnichtabrechneteKunden.Text = "0" + Me.txtnichtabrechneteKunden.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'Label49 ' Me.Label49.AutoSize = True @@ -274,6 +336,19 @@ Partial Class usrCntlBH 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(743, 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 @@ -298,6 +373,15 @@ Partial Class usrCntlBH 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.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 @@ -482,46 +566,6 @@ Partial Class usrCntlBH Me.GroupBox10.TabIndex = 18 Me.GroupBox10.TabStop = False ' - '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(743, 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(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 - ' 'Label43 ' Me.Label43.AutoSize = True @@ -531,19 +575,6 @@ Partial Class usrCntlBH Me.Label43.TabIndex = 2 Me.Label43.Text = "Sachkontenzuweisung für Syska." ' - '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(743, 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 - ' 'Button12 ' Me.Button12.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center @@ -557,15 +588,6 @@ Partial Class usrCntlBH Me.Button12.Text = "Sachkonten" Me.Button12.UseVisualStyleBackColor = True ' - 'lblnichtabgerechneteZNB - ' - Me.lblnichtabgerechneteZNB.AutoSize = True - Me.lblnichtabgerechneteZNB.Location = New System.Drawing.Point(554, 19) - Me.lblnichtabgerechneteZNB.Name = "lblnichtabgerechneteZNB" - Me.lblnichtabgerechneteZNB.Size = New System.Drawing.Size(144, 13) - Me.lblnichtabgerechneteZNB.TabIndex = 37 - Me.lblnichtabgerechneteZNB.Text = "Nicht abgerechnete Kunden:" - ' 'Label34 ' Me.Label34.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -646,7 +668,7 @@ Partial Class usrCntlBH Me.GroupBox7.Controls.Add(Me.Button6) Me.GroupBox7.Location = New System.Drawing.Point(6, 116) Me.GroupBox7.Name = "GroupBox7" - Me.GroupBox7.Size = New System.Drawing.Size(847, 69) + Me.GroupBox7.Size = New System.Drawing.Size(369, 69) Me.GroupBox7.TabIndex = 13 Me.GroupBox7.TabStop = False ' @@ -654,7 +676,7 @@ Partial Class usrCntlBH ' Me.Label33.Location = New System.Drawing.Point(145, 30) Me.Label33.Name = "Label33" - Me.Label33.Size = New System.Drawing.Size(327, 17) + Me.Label33.Size = New System.Drawing.Size(224, 17) Me.Label33.TabIndex = 3 Me.Label33.Text = "Mahnsystem gekoppelt mit der FIBU (Syska)" ' @@ -1821,14 +1843,145 @@ Partial Class usrCntlBH Me.Button7.Text = "Importieren" Me.Button7.UseVisualStyleBackColor = True ' - 'Label52 + 'Label53 ' - Me.Label52.AutoSize = True - Me.Label52.Location = New System.Drawing.Point(554, 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" + Me.Label53.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label53.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label53.Location = New System.Drawing.Point(479, 104) + Me.Label53.Name = "Label53" + Me.Label53.Size = New System.Drawing.Size(298, 18) + Me.Label53.TabIndex = 36 + Me.Label53.Text = "UID PRÜFUNGEN" + ' + 'GroupBox12 + ' + Me.GroupBox12.Controls.Add(Me.cbx_nur_ungueltige) + Me.GroupBox12.Controls.Add(Me.txtUID_Jahr) + Me.GroupBox12.Controls.Add(Me.txtUID_Monat) + Me.GroupBox12.Controls.Add(Me.Label56) + Me.GroupBox12.Controls.Add(Me.Label55) + Me.GroupBox12.Controls.Add(Me.Label54) + Me.GroupBox12.Controls.Add(Me.cbxFirmaUID) + Me.GroupBox12.Controls.Add(Me.Button14) + Me.GroupBox12.Location = New System.Drawing.Point(478, 116) + Me.GroupBox12.Name = "GroupBox12" + Me.GroupBox12.Size = New System.Drawing.Size(374, 77) + Me.GroupBox12.TabIndex = 37 + Me.GroupBox12.TabStop = False + ' + 'Label54 + ' + Me.Label54.Location = New System.Drawing.Point(133, 8) + Me.Label54.Name = "Label54" + Me.Label54.Size = New System.Drawing.Size(224, 17) + Me.Label54.TabIndex = 3 + Me.Label54.Text = "alle UID-Prüfungen" + ' + 'Button14 + ' + Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button14.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.Button14.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button14.Location = New System.Drawing.Point(6, 12) + Me.Button14.Name = "Button14" + Me.Button14.Size = New System.Drawing.Size(88, 49) + Me.Button14.TabIndex = 1 + Me.Button14.Text = "Excel" + Me.Button14.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button14.UseVisualStyleBackColor = True + ' + 'Label55 + ' + Me.Label55.AutoSize = True + Me.Label55.Location = New System.Drawing.Point(133, 53) + Me.Label55.Name = "Label55" + Me.Label55.Size = New System.Drawing.Size(35, 13) + Me.Label55.TabIndex = 32 + Me.Label55.Text = "Firma:" + ' + 'cbxFirmaUID + ' + Me.cbxFirmaUID._allowedValuesFreiText = Nothing + Me.cbxFirmaUID._allowFreiText = False + Me.cbxFirmaUID._value = "" + Me.cbxFirmaUID.FormattingEnabled = True + Me.cbxFirmaUID.Location = New System.Drawing.Point(174, 49) + Me.cbxFirmaUID.Name = "cbxFirmaUID" + Me.cbxFirmaUID.Size = New System.Drawing.Size(125, 21) + Me.cbxFirmaUID.TabIndex = 31 + ' + 'Label56 + ' + Me.Label56.AutoSize = True + Me.Label56.Location = New System.Drawing.Point(133, 31) + Me.Label56.Name = "Label56" + Me.Label56.Size = New System.Drawing.Size(62, 13) + Me.Label56.TabIndex = 33 + Me.Label56.Text = "Monat/Jahr" + ' + 'txtUID_Monat + ' + Me.txtUID_Monat._DateTimeOnly = False + Me.txtUID_Monat._numbersOnly = True + Me.txtUID_Monat._numbersOnlyKommastellen = "" + Me.txtUID_Monat._numbersOnlyTrennzeichen = False + Me.txtUID_Monat._Prozent = False + Me.txtUID_Monat._ShortDateNew = False + Me.txtUID_Monat._ShortDateOnly = False + Me.txtUID_Monat._TimeOnly = False + Me.txtUID_Monat._TimeOnly_Seconds = False + Me.txtUID_Monat._value = "" + Me.txtUID_Monat._Waehrung = False + Me.txtUID_Monat._WaehrungZeichen = False + Me.txtUID_Monat.ForeColor = System.Drawing.Color.Black + Me.txtUID_Monat.Location = New System.Drawing.Point(201, 28) + Me.txtUID_Monat.MaxLength = 2 + Me.txtUID_Monat.MaxLineLength = -1 + Me.txtUID_Monat.MaxLines_Warning = "" + Me.txtUID_Monat.MaxLines_Warning_Label = Nothing + Me.txtUID_Monat.Name = "txtUID_Monat" + Me.txtUID_Monat.Size = New System.Drawing.Size(24, 20) + Me.txtUID_Monat.TabIndex = 21 + Me.txtUID_Monat.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + '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(235, 28) + 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 + ' + 'cbx_nur_ungueltige + ' + Me.cbx_nur_ungueltige.AutoSize = True + Me.cbx_nur_ungueltige.Checked = True + Me.cbx_nur_ungueltige.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbx_nur_ungueltige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbx_nur_ungueltige.Location = New System.Drawing.Point(259, 9) + Me.cbx_nur_ungueltige.Name = "cbx_nur_ungueltige" + Me.cbx_nur_ungueltige.Size = New System.Drawing.Size(87, 17) + Me.cbx_nur_ungueltige.TabIndex = 29 + Me.cbx_nur_ungueltige.Text = "nur ungültige" + Me.cbx_nur_ungueltige.UseVisualStyleBackColor = True ' 'usrCntlBH ' @@ -1873,6 +2026,8 @@ Partial Class usrCntlBH Me.GroupBox9.PerformLayout() Me.GroupBox6.ResumeLayout(False) Me.GroupBox6.PerformLayout() + Me.GroupBox12.ResumeLayout(False) + Me.GroupBox12.PerformLayout() Me.ResumeLayout(False) End Sub @@ -2001,4 +2156,14 @@ Partial Class usrCntlBH 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 + Friend WithEvents txtUID_Monat As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label56 As Label + Friend WithEvents Label55 As Label + Friend WithEvents Label54 As Label + Friend WithEvents cbxFirmaUID As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Button14 As Button + Friend WithEvents cbx_nur_ungueltige As CheckBox End Class diff --git a/SDL/buchhaltung/usrCntlBH.vb b/SDL/buchhaltung/usrCntlBH.vb index cd4097ee..c94fd821 100644 --- a/SDL/buchhaltung/usrCntlBH.vb +++ b/SDL/buchhaltung/usrCntlBH.vb @@ -1,5 +1,7 @@ Imports System.Globalization Imports System.Text +Imports System.Windows.Media.Animation +Imports com.sun.crypto.provider Imports com.sun.xml.internal.rngom Imports GrapeCity.ActiveReports.ReportsCore.Tools Imports VERAG_PROG_ALLGEMEIN @@ -28,11 +30,15 @@ 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.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) + cbxFirmaUID.fillWithSQL(" SELECT distinct([Firma]) FROM [VERAG].[dbo].[Filialen] order by [Firma]", False, "FMZOLL", True) + cbxFirmaUID.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) + + txtUID_Jahr.Text = Now().Year + txtUID_Monat.Text = Now().Month + MyComboBox1.fillWithSQL(" SELECT Währungstabelle.LandKz, [Länderverzeichnis für die Außenhandelsstatistik].LandKz + ' - ' + [Länderverzeichnis für die Außenhandelsstatistik].LandBez AS LandKzISO2 " & " FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN Währungstabelle ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = Währungstabelle.Währungsschlüssel " & " where [Länderverzeichnis für die Außenhandelsstatistik].LandKz IN ('DE','AT','BA','BE','BG','FR','HR','MK','MD','ME','NL','RO','CH','SK','SI','RS','TR','HU') " & @@ -926,7 +932,7 @@ Public Class usrCntlBH - End If + End If End Sub Function gen_SPEDBUCH_ByKdNr(KdNr As String, ByRef SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, Optional abrechnugsdatum As Date = Nothing, Optional Vermerk As String = "") @@ -1223,7 +1229,7 @@ Public Class usrCntlBH End If - If vbYes = MsgBox("Möchten Sie für " & dt_Main.Rows.Count & " Kunden die Zinsbelastung verrechnen?", 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 @@ -1263,5 +1269,38 @@ Public Class usrCntlBH End Sub + Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click + 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, [firma] as Firma, cast(Adressen.UstIdGeprüft as date) as [letzte Prüfung], uid_pruefungstool as Quelle, uid_Sachbearbeiter as Sachbearbeiter + FROM [VERAG].[dbo].[tblUIDPruefung] inner join Adressen on Adressen.AdressenNr = [uid_KundenNr] + where YEAR(uid_Datum) = " & txtUID_Jahr.Text & IIf(txtUID_Monat.Text <> "", " AND MONTH(uid_Datum) = " & txtUID_Monat.Text, "") & IIf(cbxFirmaUID._value <> "", " And [firma] = '" & cbxFirmaUID._value & "'", "") & IIf(cbx_nur_ungueltige.Checked, " AND [uid_valid] = 0 ", "") + + Me.Cursor = Cursors.WaitCursor + Dim dt_UID As DataTable = SQL.loadDgvBySql(SQL_UID, "FMZOLL") + If dt_UID.Rows.Count > 0 Then + cProgramFunctions.genExcelFromDT_NEW(dt_UID,,,,,, True) + Me.Cursor = Cursors.Default + Else + MsgBox("keine Daten für den ausgewählten Zeitraum!") + Me.Cursor = Cursors.Default + End If + + End If + + End If + + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + Me.Cursor = Cursors.Default + End Try + End Sub End Class diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb b/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb index 01ad1d4a..62b5116a 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb @@ -33,6 +33,8 @@ Public Class cUIDPruefung Property uid_adr5 As Object = Nothing Property uid_adr6 As Object = Nothing + Property uid_pruefungstool As Object = Nothing + Shared SQL As New SQL @@ -68,6 +70,8 @@ Public Class cUIDPruefung list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_adr4", uid_adr4)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_adr5", uid_adr5)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_adr6", uid_adr6)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uid_pruefungstool", uid_pruefungstool)) Return list End Function @@ -198,7 +202,7 @@ Public Class cUIDPruefung Case "EUROPE" For Each r As DataRow In dt.Rows - Dim UID_TMP = doUIDPruefung(r("KdNr"),, SaveErgInAdressen, showErr) + Dim UID_TMP = doUIDPruefung(r("KdNr"),, SaveErgInAdressen, showErr, ART) If UID_TMP IsNot Nothing Then If UID_TMP.uid_valid Then r("Ergebnis") = "OK" @@ -293,7 +297,7 @@ Public Class cUIDPruefung End Function - Public Shared Function doUIDPruefung(ba_KundenNr, Optional AskIfDouble = False, Optional SaveErgInAdressen = True, Optional showErr = True) As cUIDPruefung + Public Shared Function doUIDPruefung(ba_KundenNr, Optional AskIfDouble = False, Optional SaveErgInAdressen = True, Optional showErr = True, Optional Art = "") As cUIDPruefung Dim AD As New cAdressen(ba_KundenNr) If AD IsNot Nothing Then @@ -370,7 +374,7 @@ Public Class cUIDPruefung UID_TMP.uid_UstIdNr = AD.UstIdNr UID_TMP.uid_stufe = 1 UID_TMP.Firma = If(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, "VERAG") - + UID_TMP.uid_pruefungstool = Art.ToString UID_TMP.uid_abfrageUid = requesterCountryCode & requesterVatNumber ' UID.uid_firma = ' UID.uid_strasse)) diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/Finanzonline/cFinanzOnlineWebService.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/Finanzonline/cFinanzOnlineWebService.vb index dcf4681d..c22a47b7 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/Finanzonline/cFinanzOnlineWebService.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/Finanzonline/cFinanzOnlineWebService.vb @@ -169,6 +169,8 @@ Public Class cFinanzOnlineWebService UID_TMP.uid_stufe = Stufe + UID_TMP.uid_pruefungstool = "FINANZONLINE" + UID_TMP.SAVE() If multiUID Then @@ -203,7 +205,7 @@ Public Class cFinanzOnlineWebService UID_TMP_new.uid_adr6 = adrz6 UID_TMP_new.uid_stufe = Stufe - + UID_TMP.uid_pruefungstool = "FINANZONLINE" UID_TMP_new.SAVE() If (UID_TMP.uid_valid) Then 'OK