edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Revert "cbam"

Browse Source 
This reverts commit dff516b9df.
This commit is contained in:
d.breimaier
2026-01-15 11:15:59 +01:00
parent ad6a34f9c3
commit 0e3299e219
12 changed files with 396 additions and 788 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
VERAG_PROG_ALLGEMEIN/Classes/cKundenVertraege.vb
View File

@@ -52,38 +52,6 @@ Public Class cKundenVertraege
Public Shared Function LOAD_LIST(KundenNr As Integer) As DataTable
Return (New SQL).loadDgvBySql("SELECT [kv_Id],[kv_KundenNr],[kv_erhalten_Datum],[kv_vertragArtId],kva_Bezeichnung,[kv_Info],[kv_datenarchivId],[kv_datenarchivId_mail],[kv_gueltig],kv_gueltigBis_Datum FROM tblKundenVertraege INNER JOIN tblKundenVertraegeArten ON kv_vertragArtId=kva_id WHERE kv_KundenNr=" & KundenNr, "FMZOLL")
End Function
Public Shared Function LOAD_LISTOF(KundenNr As Integer) As List(Of cKundenVertraege)
Dim LIST As New List(Of cKundenVertraege)
Try
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("Select * FROM tblKundenVertraege WHERE kv_KundenNr=@KundenNr ", conn)
cmd.Parameters.AddWithValue("@KundenNr", KundenNr)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
Dim VERTR As New cKundenVertraege
For Each li In VERTR.getParameterList()
Dim propInfo As PropertyInfo = VERTR.GetType.GetProperty(li.Scalarvariable)
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(VERTR, Nothing)
Else
propInfo.SetValue(VERTR, dr.Item(li.Text))
End If
Next
VERTR.hasEntry = True
LIST.Add(VERTR)
End If
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return List
End Function
Public Shared Function ENTRY_Exists(KundenNr As Integer, kv_vertragArtId As Integer) As Boolean
Return (CInt((New SQL).getValueTxtBySql("SELECT count(*) FROM tblKundenVertraege WHERE kv_KundenNr=" & KundenNr & " AND kv_vertragArtId='" & kv_vertragArtId & "'", "FMZOLL")) > 0)