CBAM

VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb

@@ -1,4 +1,5 @@
 Imports System.Data.SqlClient
+Imports javax.xml.bind.annotation
 
 Public Class cSendungen
     Implements ICloneable
@@ -132,7 +133,7 @@ Public Class cSendungen
 
 
     Public Function CLEAR_ABRECHNUNG_NotLeistungen() As Boolean
-      
+
         ABRECHNUNG.RemoveAll(Function(x) x.sndabr_abrArt = "ZOLL")
         ABRECHNUNG.RemoveAll(Function(x) x.sndabr_abrArt = "EUST")
         ABRECHNUNG.RemoveAll(Function(x) x.sndabr_abrArt = "CLEARING")
@@ -295,6 +296,24 @@ Public Class cSendungen
             Return Nothing
         End If
     End Function
+    Public Shared Function getAvisoIdSendungsIdByFilialenNrAbfertigungsNr(FilialenNr As Integer, AbfertigungsNr As Integer, ByRef AvisoID As Integer, ByRef SendungID As Integer) As Boolean
+        Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
+        Dim dt = sql.loadDgvBySql("SELECT TOP 1 tblSnd_AvisoID, tblSnd_SendungID FROM tblSendungen WHERE FilialenNr='" & FilialenNr & "' AND AbfertigungsNr='" & AbfertigungsNr & "'", "AVISO")
+
+        If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+            Dim AvisopIdTmp = dt.Rows(0)("tblSnd_AvisoID")
+            Dim SendungIDTmp = dt.Rows(0)("tblSnd_SendungID")
+            If AvisopIdTmp IsNot DBNull.Value AndAlso IsNumeric(AvisopIdTmp) Then
+                AvisoID = CInt(AvisopIdTmp)
+            End If
+            If SendungIDTmp IsNot DBNull.Value AndAlso IsNumeric(SendungIDTmp) Then
+                SendungID = CInt(SendungIDTmp)
+            End If
+            Return True
+        Else
+            Return False
+        End If
+    End Function
 
     Public Function getKdAtrNr(art As String) As String
         Try