neu

VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb

@@ -213,7 +213,14 @@ Public Class cSpeditionsbuch
     End Function
 
 
-  
+
+    Public Shared Function existsSpedBuch(FilialenNr As Integer, AbfertigungsNr As Integer) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
+        If FilialenNr <= 0 Then Return False
+        If AbfertigungsNr <= 0 Then Return False
+        Dim SQL As New SQL
+        Return (CInt(SQL.getValueTxtBySql(" SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "' ", "FMZOLL")) > 0)
+    End Function
+
 
     Public Function SAVE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
         Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()