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

kasse, abrechnung

Browse Source
This commit is contained in:
d.breimaier
2026-08-31 17:05:54 +02:00
parent 3a5c58de71
commit 27765bcf12
2 changed files with 15 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -5261,13 +5261,19 @@ mwst:
r.Cells("Preis").Value = sumVZAntrag r.Cells("Preis").Value = sumVZAntrag
Else Else
Dim GesamtUSteuerEUR As Double = SQL.DLookup("isnull(sum(UStVPo_USteuerbetragEUR),0)", "tblUStVPositionen", "UStVAn_ID='" & antrag.UStVAn_ID & "'", "FMZOLL", "0") 'vorher wurde der Differenzbetrag zuerst verrechnet und dann erst ausgetragen, nun umgekehrt!
Dim GesamtErstattungEUR As Double = SQL.DLookup("isnull(sum(UStVEr_USteuerbetragEUR),0)", "tblUStVErstattung", "UStVAn_ID='" & antrag.UStVAn_ID & "'", "FMZOLL", "0") 'Dim GesamtUSteuerEUR As Double = SQL.DLookup("isnull(sum(UStVPo_USteuerbetragEUR),0)", "tblUStVPositionen", "UStVAn_ID='" & antrag.UStVAn_ID & "'", "FMZOLL", "0")
Dim DiffernezbetragEUR As Double = GesamtUSteuerEUR - GesamtErstattungEUR 'Dim GesamtErstattungEUR As Double = SQL.DLookup("isnull(sum(UStVEr_USteuerbetragEUR),0)", "tblUStVErstattung", "UStVAn_ID='" & antrag.UStVAn_ID & "'", "FMZOLL", "0")
'Dim DiffernezbetragEUR As Double = GesamtUSteuerEUR - GesamtErstattungEUR
'If DiffernezbetragEUR <> 0 Then
' r.Cells("Preis").Value = DiffernezbetragEUR
'Else
' r.Cells("Preis").Value = 0
'End If
'quickfix!
r.Cells("Preis").Value = sumFremdAntrag + sumRMCAntrag
If DiffernezbetragEUR <> 0 Then
r.Cells("Preis").Value = DiffernezbetragEUR
End If
End If End If
@@ -5286,6 +5292,8 @@ mwst:
If Not IsDBNull(r.Cells("Preis").Value) Then If Not IsDBNull(r.Cells("Preis").Value) Then
Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(IIf(RECHNUNG.RechnungsKundenNr > 0, RECHNUNG.RechnungsKundenNr, kdFirmaRechnungAn.KdNr), OffertNr, True) Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(IIf(RECHNUNG.RechnungsKundenNr > 0, RECHNUNG.RechnungsKundenNr, kdFirmaRechnungAn.KdNr), OffertNr, True)
Call prBearbGeb_NEW(r, OFFERTE, RECHNUNG, r.Cells("BGebLeistungsNr").Value, r.Cells("BGebProzent").Value, IIf(Not IsDBNull(r.Cells("BGebMinBetrag").Value), r.Cells("BGebMinBetrag").Value, 0), r.Cells("Preis").Value * If(RECHNUNG.Vorzeichen = "-", -1, 1), summeRMC, summeFremd, OFFERT_RMC, OFFERT_FREMD, FremdUndRMC, changed, sumRMCAntrag, sumOffertRMC, sumFremdAntrag, sumOffertFremd, sumVZAntrag, POSChanged) Call prBearbGeb_NEW(r, OFFERTE, RECHNUNG, r.Cells("BGebLeistungsNr").Value, r.Cells("BGebProzent").Value, IIf(Not IsDBNull(r.Cells("BGebMinBetrag").Value), r.Cells("BGebMinBetrag").Value, 0), r.Cells("Preis").Value * If(RECHNUNG.Vorzeichen = "-", -1, 1), summeRMC, summeFremd, OFFERT_RMC, OFFERT_FREMD, FremdUndRMC, changed, sumRMCAntrag, sumOffertRMC, sumFremdAntrag, sumOffertFremd, sumVZAntrag, POSChanged)
Else
'MsgBox("kein Preis im Offert hinterlegt!")
End If End If
End If End If

1
SDL/kassenbuch/frmBelegNeu.vb
View File

@@ -420,6 +420,7 @@ Public Class frmBelegNeu
End If End If
If PERSONAL.Niederlassung = "SBG" Then where = "Preislisten_visibleSBG = 1" If PERSONAL.Niederlassung = "SBG" Then where = "Preislisten_visibleSBG = 1"
If PERSONAL.Niederlassung = "WAI" Then where = "Preislisten_visibleWAI = 1" If PERSONAL.Niederlassung = "WAI" Then where = "Preislisten_visibleWAI = 1"
If PERSONAL.Niederlassung = "KLP" Then where = "Preislisten_visibleWAI = 1"
If PERSONAL.Niederlassung = "NKD" Then where = "Preislisten_visibleNKD = 1" If PERSONAL.Niederlassung = "NKD" Then where = "Preislisten_visibleNKD = 1"
If PERSONAL.Niederlassung = "IME" Then If PERSONAL.Niederlassung = "IME" Then
where = "Preislisten_visibleIMEX = 1" where = "Preislisten_visibleIMEX = 1"