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

systka, ustv, fakt.

Browse Source
This commit is contained in:
d.breimaier
2025-08-12 10:48:36 +02:00
parent 09ce4ef8f0
commit c14f3e0014
4 changed files with 29 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
SDL/Fakturierung/cFakturierung.vb
View File

@@ -1700,10 +1700,16 @@ Public Class cFakturierung
rpt.lblZwText.Visible = True
rpt.lblZWSumme.Visible = True
rpt.lblSteuersatz.Text = ""
rpt.lblSteuerbetrag.Text = CDbl(getReverseChargeSummeRKID(FIRMA, RECHNUNG)).ToString("N2", CultureInfo.CurrentCulture)
rpt.lblSteuersatz.Visible = True
rpt.lblSteuerbetrag.Visible = True
If RECHNUNG.Firma_ID = 19 Then 'Bei MDM ausblenden!
rpt.lblSteuersatz.Text = ""
rpt.lblSteuerbetrag.Visible = False
Else
rpt.lblSteuerbetrag.Text = CDbl(getReverseChargeSummeRKID(FIRMA, RECHNUNG)).ToString("N2", CultureInfo.CurrentCulture)
rpt.lblSteuersatz.Visible = True
rpt.lblSteuerbetrag.Visible = True
End If
Else
If sumSteuerfrei = 0 Or sumSteuerpflichtig = 0 Then
@@ -1718,6 +1724,7 @@ Public Class cFakturierung
'rpt.lblSteuersatz.Visible = False
'rpt.lblSteuerbetrag.Visible = False
rpt.lblSteuerpflichtigGes.Visible = False
rpt.lblSteuerfreiGes.Visible = False
rpt.lblZwText.Visible = False

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.4.3.3")>
<Assembly: AssemblyFileVersion("1.4.3.3")>
<Assembly: AssemblyVersion("1.4.3.4")>
<Assembly: AssemblyFileVersion("1.4.3.4")>

12
SDL/USTV/usrCntlUSTV.vb
View File

@@ -25,12 +25,15 @@ Public Class usrCntlUSTV
KdSearchBox1.Enabled = False
setInfo(kdNr)
Else
setInfo(KdSearchBox1.KdNr)
If KdSearchBox1 IsNot Nothing Then
If KdSearchBox1.KdNr > 0 Then
setInfo(KdSearchBox1.KdNr)
End If
btnPLOSEAlle.Enabled = KdSearchBox1.KdNr > 0
End If
End If
btnPLOSEAlle.Enabled = KdSearchBox1.KdNr > 0
With dgvUSTV
.ClearSelection()
@@ -358,7 +361,6 @@ Public Class usrCntlUSTV
Private Sub KdSearchBox1_PropertyChanged(sender As Object, e As PropertyChangedEventArgs) Handles KdSearchBox1.PropertyChanged
If loaded = False Then Exit Sub
init()
filterAntragsLand()

28
VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb
View File

@@ -825,7 +825,7 @@ Public Class cSyska_Interface
End Function
Public Shared Function genBuchungsZeileVZ(row As DataRow, ByRef SummeBuchungen As Double, ByRef Geschäftsjahr As Integer, ByRef FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, ByRef curDifferenzbetrag As Double, Optional ambargubuchungen As Boolean = False) As String
Public Shared Function genBuchungsZeileVZ(row As DataRow, ByRef SummeBuchungen As Double, ByRef Geschäftsjahr As Integer, ByRef FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, Optional ambargubuchungen As Boolean = False) As String
Dim curSteuerbetrag As Double
Dim curNettobetrag As Double
@@ -849,7 +849,7 @@ Public Class cSyska_Interface
Select Case row("BelegartenNr")
Case 71 'Gutschrift
Case 71 'nur bei Gutschrift!
If Not ambargubuchungen Then
Select Case row("KundenNrZentrale")
@@ -870,23 +870,12 @@ Public Class cSyska_Interface
End Select
'If CBool(row("steuerpflichtig")) Then
' curSteuerbetrag = CLng(curNettobetrag * CDbl(row("Steuersatz")) * 100) / 100
' curBruttobetrag = curNettobetrag + curSteuerbetrag
' FiBuBruttobetrag = curBruttobetrag.ToString("N2")
' curDifferenzbetrag = Math.Round(curDifferenzbetrag, 2) - Math.Round(CDbl(FiBuBruttobetrag), 2)
' FiBuSteuersatz = Format(CDbl(row("Steuersatz")) * 100, "00.00")
' ' Die folgende Zeile führt zu Buchungsfehler bei Fremdwährung,
' ' Buchungssatz.FiBuSteuerbetrag = Format(curSteuerbetrag, "########0.00")
' ' deshalb nur Steuerprozent und keinen Steuerbetrag übergeben.
' FiBuSteuerbetrag = ""
'Else
curBruttobetrag = curNettobetrag
FiBuBruttobetrag = curBruttobetrag.ToString("N2")
curDifferenzbetrag = Math.Round(curDifferenzbetrag, 2) - Math.Round(CDbl(FiBuBruttobetrag), 2)
FiBuSteuersatz = "00,00"
FiBuSteuerbetrag = ""
'End If
FiBuBruttobetrag = curBruttobetrag.ToString("N2")
FiBuSteuersatz = "00,00"
FiBuSteuerbetrag = ""
If row("WährungFremd") Is DBNull.Value Then
FiBuEigenbruttobetrag = CDbl(row("RechnungsbetragLokal")) 'Bruttobetrag
@@ -902,7 +891,8 @@ Public Class cSyska_Interface
genBuchungsZeileVZ &= FiBuSollkontonummer & vbTab
genBuchungsZeileVZ &= FiBuHabenkontonummer & vbTab
genBuchungsZeileVZ &= ANTRAG.UStVAn_KuNr & " " & IIf(Not IsDBNull(KUNDE_ERW.kde_BezFIBU), KUNDE_ERW.kde_BezFIBU, "") & " / " & ANTRAG.UStVAn_LandKz & " " & MonthStart & "-" & MonthEnd & "/" & CDate(ANTRAG.UStVAn_ReDatBis).Year.ToString.Substring(2) & " VZ" & vbTab
Dim Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & ANTRAG.UStVAn_LandNr & "'", "FMZOLL")
genBuchungsZeileVZ &= ANTRAG.UStVAn_KuNr & " " & IIf(Not IsDBNull(KUNDE_ERW.kde_BezFIBU), KUNDE_ERW.kde_BezFIBU, "") & " / " & Antrag_LandKz & " " & MonthStart & "-" & MonthEnd & "/" & CDate(ANTRAG.UStVAn_ReDatBis).Year.ToString.Substring(2) & " VZ" & vbTab
genBuchungsZeileVZ &= Format(CDbl(FiBuBruttobetrag), fmt) & vbTab
genBuchungsZeileVZ &= Format(CDbl(FiBuSteuersatz), fmt) & vbTab 'FiBuSteuersatz