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

bugfix

Browse Source
This commit is contained in:
d.breimaier
2025-08-19 08:28:07 +02:00
parent d0e2de4487
commit d3bfe37f96
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/Creditsafe/usrcntlVAT_ATEZ.vb
View File

@@ -129,7 +129,7 @@ Public Class usrcntlVAT_ATEZ
Next Next
If dgvVAT.Rows(0).Cells("total_pages").Value <> pageCpunterCheck Then 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.ForeColor = Color.Red
lblLand.Visible = True lblLand.Visible = True
Else Else

2
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
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) 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 addFields As String = ""
Dim orderby As String = " AND MDM_Staffelpreis" Dim orderby As String = ""
If addFieldsBoolean Then If addFieldsBoolean Then
addFields = ", MDM_Land as Land, MDM_RMC as RMC, MDM_Fremd as Fremd, MDM_VZ as VZ, MDM_Staffelpreis as Staffelpreis" addFields = ", MDM_Land as Land, MDM_RMC as RMC, MDM_Fremd as Fremd, MDM_VZ as VZ, MDM_Staffelpreis as Staffelpreis"