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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-02-02 21:19:23 +01:00
parent 595851ec3c
commit 3aaf328ce6
16 changed files with 59 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.vb
View File

@@ -78,7 +78,7 @@ Public Class usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER
Dim betrag As Double = CDbl(line.Substring(63, 16).Trim)
' Dim fakturiert = CDbl(SQL.DLookup("Betrag", "Zkteing", "[Status]='F' AND [Registriernummer]='" & atc & "' AND [AKTO]=" & AKTONr & "", "FMZOLL", "0"))
Dim fakturiert = CDbl(SQL.DLookup("sum(Preis)", "Rechnungsausgang inner join [RechnungsausgangPositionen] On Rechnungsausgang.RK_ID=[RechnungsausgangPositionen].RK_ID", " [Status]<>0 and DruckDatumZeit is not null and left([RechnungsausgangPositionen].Belegdaten,21)='" & atc & "' ", "FMZOLL", "0"))
Dim fakturiert = CDbl(SQL.DLookup("sum(Preis)", "Rechnungsausgang inner join [RechnungsausgangPositionen] On Rechnungsausgang.RK_ID=[RechnungsausgangPositionen].RK_ID", " [Status]<>0 and DruckDatumZeit is not null and left([RechnungsausgangPositionen].Belegdaten,21)='" & atc & "' AND [AufschubkontoNr]='" & AKTO & "'", "FMZOLL", "0"))
Dim differenz = fakturiert - betrag