diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 4ae86500..1c32824e 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -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 diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 70432ce7..2415323f 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/USTV/usrCntlUSTV.vb b/SDL/USTV/usrCntlUSTV.vb index 29abd36a..11a58996 100644 --- a/SDL/USTV/usrCntlUSTV.vb +++ b/SDL/USTV/usrCntlUSTV.vb @@ -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() diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb index 079b4058..adb13240 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb @@ -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