DHF Artikel API; AuditFlow

2025-08-20 13:48:34 +02:00
parent 35fd4fbd99
commit feaec7a290
9 changed files with 1946 additions and 24 deletions
--- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/DHF/cDHF_Artikel.vb
+++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/DHF/cDHF_Artikel.vb
@@ -1,5 +1,6 @@
-Imports System.Reflection
-Imports System.Data.SqlClient
+Imports System.Data.SqlClient
+Imports System.Reflection
+Imports com.sun.org.apache.xml.internal.security.transforms

 ' ========================
 ' 📦 Hauptklasse: DHF_Artikel
@@ -28,14 +29,22 @@ Public Class DHF_Artikel

    Public Function Save() As Boolean
        Dim result = db.Save("imArtikel", GetParameterList())
-        For Each tarif In ArtikelTarife
-            tarif.LizenzNr = LizenzNr
-            tarif.FremdAdressID = FremdAdressID
-            tarif.FremdKennung = FremdKennung
-            tarif.ArtikelCode = ArtikelCode
-            tarif.Save()
-        Next
-        Return result
+        If result = False Then
+            Return False ' Fehler beim Speichern der Hauptdaten
+        Else
+
+            For Each tarif In ArtikelTarife
+                tarif.LizenzNr = LizenzNr
+                tarif.FremdAdressID = FremdAdressID
+                tarif.FremdKennung = FremdKennung
+                tarif.ArtikelCode = ArtikelCode
+                tarif.Save()
+            Next
+            'DatenKomplete setzten -> Das Triggert die Verarbeitung der ArtikelTarife in Zolaris
+            db.UpdateDatenKomplett("imArtikel", GetParameterList())
+
+            Return result
+        End If
    End Function

    Public Function Delete() As Boolean
@@ -45,13 +54,36 @@ Public Class DHF_Artikel
        Return db.Delete("imArtikel", GetParameterList())
    End Function

-    Public Shared Function Delete_KD(KdNr As String) As Boolean
+    Public Shared Function Delete_KD(FremdAdressID As String, Optional LizenzNr As String = "S01122") As Boolean ' FremdAdressID= VERAG KdNr
+        '   Dim AdressID_DHF As Integer = -1
        Dim db As New DHF_DBHelper
-        db.DeleteByFremdAdressID("imArtikelTarifZucodes", KdNr)
-        db.DeleteByFremdAdressID("imArtikelTarif", KdNr)
-        Return db.DeleteByFremdAdressID("imArtikel", KdNr)
+        ' AdressID_DHF = (New VERAG_PROG_ALLGEMEIN.SQL).DLookup("AdressID", "zzAdressen", "FremdAdressID='" & KdNr & "' ", "EZOLL", -1)
+
+        If FremdAdressID <> "" Then
+            db.DeleteByFremdAdressID("imArtikelTarifZucodes", FremdAdressID, LizenzNr)
+            db.DeleteByFremdAdressID("imArtikelTarif", FremdAdressID, LizenzNr)
+            Return db.DeleteByFremdAdressID("imArtikel", FremdAdressID, LizenzNr)
+        Else
+            Return False
+        End If
+
    End Function

+    Public Shared Function Delete_KDLiveDate(FremdAdressID As String, Optional LizenzNr As String = "S01122") As Boolean ' FremdAdressID= VERAG KdNr
+        Dim AdressID_DHF As Integer = -1
+        Dim db As New DHF_DBHelper
+        AdressID_DHF = (New VERAG_PROG_ALLGEMEIN.SQL).DLookup("AdressID", "zzAdressen", "FremdAdressID='" & FremdAdressID & "' AND LizenzNr='" & LizenzNr & "'", "EZOLL", -1)
+        Console.WriteLine(AdressID_DHF)
+        If AdressID_DHF > 0 Then
+            db.DeleteByAdressID("zzArtikelTarifZucodes", AdressID_DHF, LizenzNr)
+            db.DeleteByAdressID("zzArtikelTarif", AdressID_DHF, LizenzNr)
+            Return db.DeleteByAdressID("zzArtikel", AdressID_DHF, LizenzNr)
+        Else
+            Return False
+        End If
+    End Function
+
+
    Private Function GetParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
        Return New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) From {
            New VERAG_PROG_ALLGEMEIN.SQLVariable("LizenzNr", LizenzNr, , True),
@@ -164,6 +196,14 @@ End Class
 Public Class DHF_DBHelper
    Private SQL As New SQL

+    Public Function SaveandDatenKomplete(tableName As String, params As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)) As Boolean
+        If Save(tableName, params) Then
+            UpdateDatenKomplett(tableName, params)
+            Return True
+        End If
+        Return False
+    End Function
+
    Public Function Save(tableName As String, params As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)) As Boolean
        Dim whereClause = GetPrimaryKeyWhere(params)
        Dim existsSQL = "SELECT COUNT(*) FROM [" & tableName & "] WHERE " & whereClause
@@ -184,19 +224,37 @@ Public Class DHF_DBHelper
            sqlCmd = GetInsertCmd(tableName, params)
        End If

+
        Return SQL.doSQLVarList(sqlCmd, "EZOLL", , params)
    End Function

+    Public Function UpdateDatenKomplett(tableName As String, params As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)) As Boolean
+        Return SQL.doSQLVarList("update [" & tableName & "] set [DatenKomplett]=1 where 
+                                lizenzNr=@LizenzNr AND FremdAdressID=@FremdAdressID AND FremdKennung=@FremdKennung
+                                and ArtikelCode=@ArtikelCode", "EZOLL", , params)
+    End Function
+
    Public Function Delete(tableName As String, params As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)) As Boolean
        Dim whereClause = GetPrimaryKeyWhere(params)
        Dim sqlstr = "DELETE FROM [" & tableName & "] WHERE " & whereClause
        Return SQL.doSQLVarList(sqlstr, "EZOLL", , params)
    End Function

-    Public Function DeleteByFremdAdressID(tableName As String, fremdAdressID As String) As Boolean
-        Dim sqlstr = "DELETE FROM [" & tableName & "] WHERE [FremdAdressID]=@FID"
+    Public Function DeleteByFremdAdressID(tableName As String, fremdAdressID As String, Optional LizenzNr As String = "S01122") As Boolean
+        Dim sqlstr = "DELETE FROM [" & tableName & "] WHERE [FremdAdressID]=@FID AND  LizenzNr=@LizenzNr "
        Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) From {
-            New VERAG_PROG_ALLGEMEIN.SQLVariable("FID", fremdAdressID)
+            New VERAG_PROG_ALLGEMEIN.SQLVariable("FID", fremdAdressID),
+            New VERAG_PROG_ALLGEMEIN.SQLVariable("LizenzNr", LizenzNr)
+        }
+        Return SQL.doSQLVarList(sqlstr, "EZOLL", , list)
+    End Function
+
+
+    Public Function DeleteByAdressID(tableName As String, AdressID As String, Optional LizenzNr As String = "S01122") As Boolean
+        Dim sqlstr = "DELETE FROM [" & tableName & "] WHERE [AdressID]=@FID AND  LizenzNr=@LizenzNr "
+        Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) From {
+            New VERAG_PROG_ALLGEMEIN.SQLVariable("FID", AdressID),
+            New VERAG_PROG_ALLGEMEIN.SQLVariable("LizenzNr", LizenzNr)
        }
        Return SQL.doSQLVarList(sqlstr, "EZOLL", , list)
    End Function
@@ -230,7 +288,6 @@ Public Class DHF_ArtikelBeispiel

        DHF_Artikel.Delete_KD(KdNr)

-        MsgBox("del")

        Dim artikel As New DHF_Artikel With {
            .LizenzNr = "S01122",