From e83dc3987056698efa0b390b4140bc80b7c11fcf Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 30 Jan 2026 09:24:54 +0100 Subject: [PATCH] div. GUI Anpassungen im BH --- SDL/buchhaltung/usrCntlBH.Designer.vb | 1 + SDL/buchhaltung/usrCntlBH.vb | 3 ++- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/SDL/buchhaltung/usrCntlBH.Designer.vb b/SDL/buchhaltung/usrCntlBH.Designer.vb index 27f90d5d..71fb0f66 100644 --- a/SDL/buchhaltung/usrCntlBH.Designer.vb +++ b/SDL/buchhaltung/usrCntlBH.Designer.vb @@ -372,6 +372,7 @@ Partial Class usrCntlBH Me.cbxFirma_RE._allowedValuesFreiText = Nothing Me.cbxFirma_RE._allowFreiText = False Me.cbxFirma_RE._value = "" + Me.cbxFirma_RE.DropDownWidth = 200 Me.cbxFirma_RE.FormattingEnabled = True Me.cbxFirma_RE.Location = New System.Drawing.Point(47, 34) Me.cbxFirma_RE.Name = "cbxFirma_RE" diff --git a/SDL/buchhaltung/usrCntlBH.vb b/SDL/buchhaltung/usrCntlBH.vb index 53f18943..9e01afb2 100644 --- a/SDL/buchhaltung/usrCntlBH.vb +++ b/SDL/buchhaltung/usrCntlBH.vb @@ -29,7 +29,7 @@ Public Class usrCntlBH cboAbfVerbFirma.fillWithSQL("SELECT distinct([Firma]) FROM [VERAG].[dbo].[Filialen] order by [Firma]", False, "FMZOLL", True) cboAbfVerbFirma.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) - cbxFirma_RE.fillWithSQL("SELECT Firma_ID, Firma_Bez FROM [VERAG].[dbo].[tblFirma] where Firmengruppe in ('VERAG', 'AMBAR', 'VERAG360', 'ATILLA')", False, "FMZOLL", True) + cbxFirma_RE.fillWithSQL("SELECT Firma_ID, Firma_Bez FROM [VERAG].[dbo].[tblFirma] where Firma_ID in (1,4,7,11,19,20,21,22,23,24,26)", False, "FMZOLL", True) txtRE_Jahr.Text = Now().Year txtRE_Monat.Text = Now().Month @@ -1473,6 +1473,7 @@ Public Class usrCntlBH Case "btnfehlendeBelege" If cbxFirma_RE._value = "" Then MsgBox("Es muss eine Firma angegeben werden!") : Exit Sub + If CInt(txtRE_Jahr.Text) < 2026 Then MsgBox("Erst ab Jahr 2026 möglich!") : Exit Sub Bezeichnung = "fehlende BELEGE von " & cbxFirma_RE.SelectedItem.Text & " Zeitraum: " & txtRE_Monat.Text & "/" & txtRE_Jahr.Text