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

LeistungenFIBU, Abrechungsmaske, ZE-Buttons, creditsafe, bugfix PLOSE (bei Rechnungsausgang)

Browse Source
This commit is contained in:
d.breimaier
2024-06-20 10:01:00 +02:00
parent e928df34a0
commit fe4b4304bc
23 changed files with 1646 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
View File

@@ -743,8 +743,8 @@ Public Class cRechnungsausgang
l.SteuerpflichtigerBetrag = l.Preis
l.Preis = l.Preis
Else
Dim steuersatz = SQL.DLookup("Steuertabelle.[Steuersatz %] ", "[Kunden] inner join Steuertabelle on Steuertabelle.Steuerschlüssel=kunden.Steuerschlüssel", "KundenNr='" & Me.RechnungsKundenNr & "'",, "0")
L.SteuerfreierBetrag = l.Preis + (l.Preis * steuersatz)
Dim steuersatz = SQL.DLookup("Steuertabelle.[Steuersatz %] ", "[Kunden] inner join Steuertabelle on Steuertabelle.Steuerschlüssel=kunden.Steuerschlüssel", "KundenNr='" & Me.RechnungsKundenNr & "'", "FMZOLL", "0")
l.SteuerfreierBetrag = l.Preis + (l.Preis * steuersatz)
l.Preis = l.Preis + (l.Preis * steuersatz)
End If