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

BH, nacherfassung leihgeld, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-11-04 15:26:49 +01:00
parent 18b089d9ab
commit 05edf96d95
12 changed files with 3380 additions and 143 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
SDL/Fakturierung/frmFaktEmail.vb
View File

@@ -800,8 +800,9 @@ Public Class frmFaktEmail
Dim bearbGeb As Double = 0
Dim hasVZ As Boolean = False
'todo_Prüfung ist zu spät -> früher (vor dem eintragen in die DB)!!!!
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!
If pos.UStVPo_VZ AndAlso (IsDBNull(pos.UStVPo_VZ_RKID) OrElse pos.UStVPo_VZ_RKID Is Nothing) Then 'VZ die noch nicht abgerechnet wurde!
hasVZ = True
Exit For
End If
@@ -815,15 +816,15 @@ Public Class frmFaktEmail
'nur bei NICHT VZ!
If Not hasVZ Then
Dim ANTR_ERSTATTUNG As New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen(USTV_ANTRAG.UStVAn_ID, RECHNUNG.UnterNr + 1)
If Not ANTR_ERSTATTUNG.hasEntry Then
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.SAVE()
End If
'Dim ANTR_ERSTATTUNG As New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen(USTV_ANTRAG.UStVAn_ID, RECHNUNG.UnterNr + 1)
'If Not ANTR_ERSTATTUNG.hasEntry Then
' 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.SAVE()
'End If
If IsDBNull(USTV_ANTRAG.UStVAn_VZBetrag) AndAlso IsDBNull(USTV_ANTRAG.UStVAn_VZDatum) Then