This commit is contained in:
2025-08-19 08:28:07 +02:00
parent d0e2de4487
commit d3bfe37f96
2 changed files with 2 additions and 2 deletions

View File

@@ -129,7 +129,7 @@ Public Class usrcntlVAT_ATEZ
Next
If dgvVAT.Rows(0).Cells("total_pages").Value <> pageCpunterCheck Then
lblLand.Text = "ACHTUNG, es wurden nur " & pageCpunterCheck & " von möglichen " & dgvVAT.Rows(0).Cells("total_pages").Value & " per KI ausgelesen, das kann uU zu fehlern beim Aufsplitten der Seiten führen!"
lblLand.Text = "ACHTUNG, es wurden nur " & pageCpunterCheck & " von möglichen " & dgvVAT.Rows(0).Cells("total_pages").Value & " Seiten per KI ausgelesen, das kann uU zu fehlern beim Aufsplitten der Seiten führen!"
lblLand.ForeColor = Color.Red
lblLand.Visible = True
Else

View File

@@ -1186,7 +1186,7 @@ Public Class usrCntlFaktAbrechnung
If FIRMA IsNot Nothing AndAlso FIRMA.Firma_ID = 19 AndAlso SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.FilialenNr = 4817 Then landBez = CheckLandNr_getLandBezFromAntrag(landNr, antrag)
Dim addFields As String = ""
Dim orderby As String = " AND MDM_Staffelpreis"
Dim orderby As String = ""
If addFieldsBoolean Then
addFields = ", MDM_Land as Land, MDM_RMC as RMC, MDM_Fremd as Fremd, MDM_VZ as VZ, MDM_Staffelpreis as Staffelpreis"