edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

div. GUI Anpassungen im BH

Browse Source
This commit is contained in:
d.breimaier
2026-01-30 09:24:54 +01:00
parent f8e20b5f60
commit e83dc39870
2 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
SDL/buchhaltung/usrCntlBH.Designer.vb generated
View File

@@ -372,6 +372,7 @@ Partial Class usrCntlBH
Me.cbxFirma_RE._allowedValuesFreiText = Nothing Me.cbxFirma_RE._allowedValuesFreiText = Nothing
Me.cbxFirma_RE._allowFreiText = False Me.cbxFirma_RE._allowFreiText = False
Me.cbxFirma_RE._value = "" Me.cbxFirma_RE._value = ""
Me.cbxFirma_RE.DropDownWidth = 200
Me.cbxFirma_RE.FormattingEnabled = True Me.cbxFirma_RE.FormattingEnabled = True
Me.cbxFirma_RE.Location = New System.Drawing.Point(47, 34) Me.cbxFirma_RE.Location = New System.Drawing.Point(47, 34)
Me.cbxFirma_RE.Name = "cbxFirma_RE" Me.cbxFirma_RE.Name = "cbxFirma_RE"

3
SDL/buchhaltung/usrCntlBH.vb
View File

@@ -29,7 +29,7 @@ Public Class usrCntlBH
cboAbfVerbFirma.fillWithSQL("SELECT distinct([Firma]) FROM [VERAG].[dbo].[Filialen] order by [Firma]", False, "FMZOLL", True) cboAbfVerbFirma.fillWithSQL("SELECT distinct([Firma]) FROM [VERAG].[dbo].[Filialen] order by [Firma]", False, "FMZOLL", True)
cboAbfVerbFirma.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) 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_Jahr.Text = Now().Year
txtRE_Monat.Text = Now().Month txtRE_Monat.Text = Now().Month
@@ -1473,6 +1473,7 @@ Public Class usrCntlBH
Case "btnfehlendeBelege" Case "btnfehlendeBelege"
If cbxFirma_RE._value = "" Then MsgBox("Es muss eine Firma angegeben werden!") : Exit Sub 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 Bezeichnung = "fehlende BELEGE von " & cbxFirma_RE.SelectedItem.Text & " Zeitraum: " & txtRE_Monat.Text & "/" & txtRE_Jahr.Text