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

BH, Kundenkontakte, MD;

Browse Source
This commit is contained in:
d.breimaier
2024-09-11 11:58:25 +02:00
parent 3ad1e4dbfc
commit d3174821d3
28 changed files with 1149 additions and 784 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
View File

@@ -740,11 +740,13 @@ Public Class cRechnungsausgang
'l.BGebBgl = l.Preis
If Not l.Steuerpflichtig Then
l.SteuerpflichtigerBetrag = l.Preis
'l.SteuerpflichtigerBetrag = l.Preis 'alt
l.SteuerfreierBetrag = l.Preis 'neu
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 & "'", "FMZOLL", "0")
l.SteuerfreierBetrag = l.Preis + (l.Preis * steuersatz)
'l.SteuerfreierBetrag = l.Preis + (l.Preis * steuersatz) 'alt
l.SteuerpflichtigerBetrag = l.Preis + (l.Preis * steuersatz) 'neu
l.Preis = l.Preis + (l.Preis * steuersatz)
End If