neu

VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb

@@ -240,8 +240,8 @@ Public Class cSendungen
 
     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()
-
-        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [tblSendungen] WITH(updlock,serializable) WHERE tblSnd_SendungID=@tblSnd_SendungID) " &
+        'WITH(updlock,serializable) 
+        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [tblSendungen] WHERE tblSnd_SendungID=@tblSnd_SendungID) " &
                        " BEGIN " & getUpdateCmd() & " END " &
                        " Else " &
                        " BEGIN " & getInsertCmd() & " END " &
@@ -254,12 +254,21 @@ Public Class cSendungen
         Return False
     End Function
 
+    'WITH(updlock,serializable) 
     Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
-        Dim sqlstr = " DELETE FROM [tblSendungen] WITH(updlock,serializable) WHERE tblSnd_SendungID=" & Me.tblSnd_SendungID
+        Dim sqlstr = " DELETE FROM [tblSendungen] WHERE tblSnd_SendungID=" & Me.tblSnd_SendungID
         Return SQL.doSQL(sqlstr, "AVISO")
     End Function
 
-
+    Public Shared Function LOADByFilialenNrAbfertigungsNr(FilialenNr As Integer, AbfertigungsNr As Integer) As cSendungen
+        Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
+        Dim tblSnd_SendungID = sql.getValueTxtBySql("SELECT TOP 1 tblSnd_SendungID FROM tblSendungen WHERE FilialenNr='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "'", "AVISO")
+        If tblSnd_SendungID <> "" Then
+            Return New cSendungen(tblSnd_SendungID)
+        Else
+            Return Nothing
+        End If
+    End Function
 
     Public Sub LOAD(tblSnd_SendungID As Integer)
         Try