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/cKundenKontakte.vb
View File

@@ -101,6 +101,10 @@ Public Class cKundenKontakte
Property kkd_Adresse As Object = Nothing
Property kkd_GebDatum As Object = Nothing
Property kkd_Land As Object = Nothing
Property kkd_Passgueltigbis As Object = Nothing
Property kkd_Firmenname As Object = Nothing
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -136,6 +140,8 @@ Public Class cKundenKontakte
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_PLZ", kkd_PLZ))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_GebDatum", kkd_GebDatum))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Land", kkd_Land))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Passgueltigbis", kkd_Passgueltigbis))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Firmenname", kkd_Firmenname))
Return list

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