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

Bugfic Veranlagungen

Browse Source
This commit is contained in:
d.breimaier
2024-10-23 16:08:22 +02:00
parent ca19bbfa09
commit f41c40a72d
2 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
SDL/zoll/usrCntlAuswertungenEV_Veranlagungen.vb
View File

@@ -131,8 +131,9 @@
Select Case r("FilialenNr")
Case "5501"
'EUST
Dim where = " and telnam_aktuellsteNachricht = 1" 'only latest status
Dim dtEUST = SQL.loadDgvBySql(" select sum(base) Base,sum(Amnt)Amnt FROM tblTelotec_Anmeldung as TC inner join tblTelotec_PositionsdatenAbgaben as AGB on AGB.telposAbg_telanmId=TC.telanm_id
where Ty IN ('5EV') and tc.telanm_BezugsNr LIKE '" & BezugsNr & "' AND telanm_Status between 50 and 60", "FMZOLL")
where Ty IN ('5EV') and tc.telanm_BezugsNr LIKE '" & BezugsNr & "' AND telanm_Status between 50 and 60 " & where, "FMZOLL")
If dtEUST IsNot Nothing AndAlso dtEUST.Rows.Count >= 0 Then
If dtEUST(0)("Base") IsNot DBNull.Value Then EUST_Basis = dtEUST(0)("Base")
If dtEUST(0)("Amnt") IsNot DBNull.Value Then EUST_5EV = dtEUST(0)("Amnt")