systka, ustv, fakt.

SDL/Fakturierung/cFakturierung.vb

@@ -1700,10 +1700,16 @@ Public Class cFakturierung
                                                              rpt.lblZwText.Visible = True
                                                              rpt.lblZWSumme.Visible = True
 
-                                                             rpt.lblSteuersatz.Text = ""
+                                                             If RECHNUNG.Firma_ID = 19 Then 'Bei MDM ausblenden!
-                                                             rpt.lblSteuerbetrag.Text = CDbl(getReverseChargeSummeRKID(FIRMA, RECHNUNG)).ToString("N2", CultureInfo.CurrentCulture)
+                                                                 rpt.lblSteuersatz.Text = ""
-                                                             rpt.lblSteuersatz.Visible = True
+                                                                 rpt.lblSteuerbetrag.Visible = False
-                                                             rpt.lblSteuerbetrag.Visible = True
+                                                             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

SDL/My Project/AssemblyInfo.vb

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

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()
 

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")
+        FiBuBruttobetrag = curBruttobetrag.ToString("N2")
-            curDifferenzbetrag = Math.Round(curDifferenzbetrag, 2) - Math.Round(CDbl(FiBuBruttobetrag), 2)
+
-            FiBuSteuersatz = "00,00"
+        FiBuSteuersatz = "00,00"
-            FiBuSteuerbetrag = ""
+        FiBuSteuerbetrag = ""
-        'End If
+
 
         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