neu

VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb

@@ -452,12 +452,11 @@ Public Class cRechnungsausgang
             Return False
         End If
 
+
         Dim sqlstr = "   SELECT SUM(POS.SteuerfreierBetrag) AS ReverseChargeSumme "
         sqlstr &= "  FROM   Rechnungsausgang  as RA INNER JOIN RechnungsausgangPositionen as POS ON RA.RK_ID = POS.RK_ID INNER JOIN Leistungen ON POS.LeistungsNr = Leistungen.LeistungsNr INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] AS LD ON RA.RechnungsUstIdKz = LD.LandKz"
         sqlstr &= "  WHERE RA.rk_id='" & Me.RK_ID & "' AND LD.ReverseCharge = 1 AND Leistungen.ReverseCharge = 1"
 
-        'MsgBox(SQL.getValueTxtBySql(sqlstr, "FMZOLL",,, 0))
-
         If Not CBool(SQL.DLookup("isnull([MitgliedslandEU],0)", "Währungstabelle", "LandKz='" & If(RechnungsLandKz, "") & "'", "FMZOLL", 0)) Then
             Return False
         End If

VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb

@@ -370,7 +370,7 @@ Public Class cSendungen
         Try
             Me.ABRECHNUNG.Clear()
             Dim conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
-            Using cmd2 As New SqlCommand("SELECT * FROM tblSendAbrechnung WHERE sndabr_sendId=@sndabr_sendId ", conn)
+            Using cmd2 As New SqlCommand("SELECT * FROM tblSendAbrechnung WHERE sndabr_sendId=@sndabr_sendId and  sndabr_sendId>0", conn)
                 cmd2.Parameters.AddWithValue("@sndabr_sendId", Me.tblSnd_SendungID)
                 Dim dr2 = cmd2.ExecuteReader()