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

fakt, ustva, etc

Browse Source
This commit is contained in:
d.breimaier
2026-09-03 16:05:30 +02:00
parent 19e698bc53
commit df5a69ae64
5 changed files with 44 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
SDL/Fakturierung/cFakturierung.vb
View File

@@ -2627,12 +2627,20 @@ Public Class cFakturierung
If listVZMonth.Count > 0 Then
If listVZMonth.Count = 1 Then
MonthStart = IIf(CDate(MWSTAntrag.UStVAn_ReDatVon).Month < 10, "0", "") & listVZMonth(0).ToString
MonthStart = IIf(listVZMonth(0) < 10, "0", "") & listVZMonth(0).ToString
MonthEnd = ""
Else
MonthStart = IIf(CDate(MWSTAntrag.UStVAn_ReDatVon).Month < 10, "0", "") & listVZMonth(0).ToString
MonthEnd = IIf(CDate(MWSTAntrag.UStVAn_ReDatBis).Month < 10, "0", "") & listVZMonth(listVZMonth.Count - 1).ToString
MonthStart = IIf(listVZMonth(0) < 10, "0", "") & listVZMonth(0).ToString
MonthEnd = IIf(listVZMonth(listVZMonth.Count - 1) < 10, "0", "") & listVZMonth(listVZMonth.Count - 1).ToString
End If
'If listVZMonth.Count = 1 Then
' MonthStart = IIf(CDate(MWSTAntrag.UStVAn_ReDatVon).Month < 10, "0", "") & listVZMonth(0).ToString
' MonthEnd = ""
'Else
' MonthStart = IIf(CDate(MWSTAntrag.UStVAn_ReDatVon).Month < 10, "0", "") & listVZMonth(0).ToString
' MonthEnd = IIf(CDate(MWSTAntrag.UStVAn_ReDatBis).Month < 10, "0", "") & listVZMonth(listVZMonth.Count - 1).ToString
'End If
End If

19
SDL/Fakturierung/frmFaktEmail.vb
View File

@@ -832,14 +832,6 @@ Public Class frmFaktEmail
End If
'Dim ANTR_ERSTATTUNG As New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen(USTV_ANTRAG.UStVAn_ID, RECHNUNG.RechnungsNr, CDate(RECHNUNG.RechnungsDatum))
'If Not ANTR_ERSTATTUNG.hasEntry Then
' ANTR_ERSTATTUNG.UStVEr_ID = ANTR_ERSTATTUNG.getMaxPosNr()
' ANTR_ERSTATTUNG.GutschriftsDatum = RECHNUNG.RechnungsDatum
' ANTR_ERSTATTUNG.GutschriftsNr = RECHNUNG.RechnungsNr
' ANTR_ERSTATTUNG.UStVEr_RK_ID = RECHNUNG.RK_ID
' ANTR_ERSTATTUNG.SAVE()
'End If
If durchREWurdeVZAbgerechnet Then
@@ -858,6 +850,17 @@ Public Class frmFaktEmail
USTV_ANTRAG.SAVE()
End If
Else
Dim ANTR_ERSTATTUNG As New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen(USTV_ANTRAG.UStVAn_ID, RECHNUNG.RechnungsNr, CDate(RECHNUNG.RechnungsDatum))
If Not ANTR_ERSTATTUNG.hasEntry Then
ANTR_ERSTATTUNG.UStVEr_ID = ANTR_ERSTATTUNG.getMaxPosNr()
ANTR_ERSTATTUNG.GutschriftsDatum = RECHNUNG.RechnungsDatum
ANTR_ERSTATTUNG.GutschriftsNr = RECHNUNG.RechnungsNr
ANTR_ERSTATTUNG.UStVEr_RK_ID = RECHNUNG.RK_ID
ANTR_ERSTATTUNG.SAVE()
End If
End If
If hatNichtAbgerechneteVZ Then

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.5.7.7")>
<Assembly: AssemblyFileVersion("1.5.7.7")>
<Assembly: AssemblyVersion("1.5.7.8")>
<Assembly: AssemblyFileVersion("1.5.7.8")>

26
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -3321,25 +3321,27 @@ Public Class frmMDM_USTVAntrag
Dim kunde As New cKunde(USTV_ANTRAG.UStVAn_KuNr)
Dim kunde_erw As New cKundenErweitert(USTV_ANTRAG.UStVAn_KuNr)
Dim BezAntrag = USTV_ANTRAG.UStVAn_AntragArt & "-Rückerstattung "
Dim BezAntrag = USTV_ANTRAG.UStVAn_AntragArt & "-Rückerstattung " & IIf(kunde_erw.kde_VZ, "VZ ", "")
If kunde_erw IsNot Nothing Then
If USTV_ANTRAG.UStVAn_AntragArt = "MÖST" Then
'NICHT ÜBERSETZEN
Select Case kunde_erw.kde_Fakturierung_Sprache
Case "EN", "TR" : BezAntrag = "Excise duty "
Case "RO" : BezAntrag = "Rambursare acciza "
End Select
'If USTV_ANTRAG.UStVAn_AntragArt = "MÖST" Then
Else
' Select Case kunde_erw.kde_Fakturierung_Sprache
' Case "EN", "TR" : BezAntrag = "Excise duty "
' Case "RO" : BezAntrag = "Rambursare acciza "
' End Select
Select Case kunde_erw.kde_Fakturierung_Sprache
Case "EN", "TR" : BezAntrag = "VAT refund "
Case "RO" : BezAntrag = "Rambursare TVA "
End Select
'Else
End If
' Select Case kunde_erw.kde_Fakturierung_Sprache
' Case "EN", "TR" : BezAntrag = "VAT refund "
' Case "RO" : BezAntrag = "Rambursare TVA "
' End Select
'End If
End If