div. Änderungen, etc.

VERAG_PROG_ALLGEMEIN/cSicherheiten.vb

@@ -467,4 +467,40 @@ Public Class cSicherheiten
 
     End Function
 
+    Public Shared Function getDifferenz_alleAusgetragen(gs_gsnr As Integer) As Double
+
+        Dim SQL_Query = "SELECT CASE
+                           WHEN EXISTS (
+                               SELECT 1
+                               FROM tblGesamtsicherheit gs_waiting
+                               INNER JOIN tblGesamtsicherheitsPositionen gsp_waiting
+                                   ON gs_waiting.gs_gsId = gsp_waiting.gsp_gsId
+                               WHERE gs_waiting.gs_gsnr = 32041
+                                 AND gs_waiting.gs_dakoyimport = 1
+                                 AND gsp_waiting.gsp_freitext = 'DAKOSY-WAITING'
+                           )
+                           THEN 0
+                
+                           WHEN MAX(CASE WHEN gs.gs_isRundungsdiff = 1 THEN 1 ELSE 0 END) = 1
+                           THEN 0
+                
+                           ELSE SUM(gs.gs_sicherheitsbetrag)
+                                - SUM(gsp.gsp_sicherheitsbetrag)
+                       END AS Differenzbetrag
+                FROM tblGesamtsicherheit gs
+                INNER JOIN tblGesamtsicherheitsPositionen gsp
+                    ON gs.gs_gsId = gsp.gsp_gsId
+                WHERE gs.gs_gsnr = " & gs_gsnr & "
+                  AND gs.gs_dakoyimport = 1
+                GROUP BY gs.gs_gsnr"
+
+        If gs_gsnr > 0 Then
+            Return CDbl((New SQL).getValueTxtBySql(SQL_Query, "AVISO",,, 0))
+        Else
+            Return 0
+        End If
+
+    End Function
+
+
 End Class