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

USTVA

Browse Source
This commit is contained in:
d.breimaier
2025-07-31 17:32:17 +02:00
parent 58b4968d89
commit aa7aaf8013
1 changed files with 34 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
SDL/Fakturierung/frmFaktEmail.vb
View File

@@ -800,12 +800,20 @@ Public Class frmFaktEmail
ANTR_ERSTATTUNG.GutschriftsDatum = RECHNUNG.RechnungsDatum
ANTR_ERSTATTUNG.GutschriftsNr = RECHNUNG.RechnungsNr
ANTR_ERSTATTUNG.UStVEr_Umrechnungskurs = 1
ANTR_ERSTATTUNG.UStVEr_USteuerbetrag = bearbGeb
ANTR_ERSTATTUNG.UStVEr_USteuerbetragEUR = bearbGeb
ANTR_ERSTATTUNG.UStVEr_USteuerbetrag = bearbGeb * -1
ANTR_ERSTATTUNG.UStVEr_USteuerbetragEUR = bearbGeb * -1
ANTR_ERSTATTUNG.SAVE()
End If
If IsDBNull(USTV_ANTRAG.UStVAn_VZBetrag) AndAlso IsDBNull(USTV_ANTRAG.UStVAn_VZDatum) Then
USTV_ANTRAG.UStVAn_VZBetrag = bearbGeb * -1
USTV_ANTRAG.UStVAn_VZDatum = RECHNUNG.RechnungsDatum
USTV_ANTRAG.SAVE()
End If
Dim hasVZ As Boolean = False
For Each pos In USTV_ANTRAG.POSITIONEN
If pos.UStVPo_VZ AndAlso (IsDBNull(pos.UStVPo_VZ_RKID) Or pos.UStVPo_VZ_RKID Is Nothing) Then 'VZ die noch nicht abgerechnet wurde!