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

Änderung der Logik der Vollmachtsverwaltung im Kunden (nun können pro VM-Typ mehrere Vollmachten hinterlegt werden). Weiters wurde die GUI der Vollmachten überarbeitet

Browse Source
This commit is contained in:
d.breimaier
2022-09-19 08:29:11 +02:00
parent 780d763ba4
commit 5d324634de
399 changed files with 259205 additions and 1386 deletions
Download Patch File Download Diff File Expand all files Collapse all files

63
SDL/cSqlDb.vb
View File

@@ -1751,28 +1751,33 @@ Public Class kundenSQL
Public Function setVollmacht(ByVal kdvm_KundenNr As Integer, ByVal kdvm_kdvmaId As Integer, ByVal kdvm_erhalten As Boolean, ByVal kdvm_erhalten_Datum As Object, ByVal kdvm_Info As String, ByVal kdvm_datenarchivId As Integer) As Boolean
Public Function setVollmacht(ByVal kdvm_KundenNr As Integer, ByVal kdvm_kdvmaId As Integer, ByVal kdvm_erhalten As Boolean, ByVal kdvm_archiviert As Boolean, ByVal kdvm_erhalten_Datum As Object, ByVal kdvm_gueltig_bis As Object, ByVal kdvm_vermerk As String, ByVal kdvm_Info As String, ByVal kdvm_datenarchivId As Integer, kdvm_Id As Integer) As Boolean
Try
Dim d As String = ""
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("begin tran if exists (select * from tblKundenVollmachten with (updlock,serializable) where [kdvm_KundenNr]=@kdvm_KundenNr AND kdvm_kdvmaId =@kdvm_kdvmaId ) " &
Using cmd As New SqlCommand("begin tran if exists (select * from tblKundenVollmachten with (updlock,serializable) where [kdvm_KundenNr]=@kdvm_KundenNr AND kdvm_Id=@kdvm_Id AND kdvm_Id <> '-1' ) " &
" begin " &
"UPDATE [tblKundenVollmachten] SET [kdvm_erhalten]=@kdvm_erhalten,[kdvm_erhalten_Datum]=@kdvm_erhalten_Datum,[kdvm_Info]=@kdvm_Info,[kdvm_datenarchivId]=@kdvm_datenarchivId WHERE [kdvm_KundenNr]=@kdvm_KundenNr AND kdvm_kdvmaId =@kdvm_kdvmaId " &
"UPDATE [tblKundenVollmachten] SET [kdvm_erhalten]=@kdvm_erhalten,[kdvm_archiviert]=@kdvm_archiviert,[kdvm_erhalten_Datum]=@kdvm_erhalten_Datum,[kdvm_gueltig_bis]=@kdvm_gueltig_bis,[kdvm_vermerk]=@kdvm_vermerk,[kdvm_Info]=@kdvm_Info,[kdvm_datenarchivId]=@kdvm_datenarchivId WHERE [kdvm_KundenNr]=@kdvm_KundenNr AND kdvm_Id =@kdvm_Id " &
" End " &
" Else " &
" begin " &
"INSERT INTO tblKundenVollmachten " &
" ([kdvm_KundenNr],[kdvm_kdvmaId] ,[kdvm_erhalten],[kdvm_erhalten_Datum],[kdvm_Info],[kdvm_datenarchivId]) " &
" VALUES (@kdvm_KundenNr,@kdvm_kdvmaId ,@kdvm_erhalten ,@kdvm_erhalten_Datum,@kdvm_Info,@kdvm_datenarchivId) " &
" ([kdvm_KundenNr],[kdvm_kdvmaId],[kdvm_erhalten],[kdvm_archiviert],[kdvm_erhalten_Datum],[kdvm_gueltig_bis],[kdvm_vermerk],[kdvm_Info],[kdvm_datenarchivId]) " &
" VALUES (@kdvm_KundenNr,@kdvm_kdvmaId ,@kdvm_erhalten ,@kdvm_archiviert ,@kdvm_erhalten_Datum,@kdvm_gueltig_bis,@kdvm_vermerk,@kdvm_Info,@kdvm_datenarchivId) " &
" End " &
" commit tran ", conn)
cmd.Parameters.AddWithValue("@kdvm_KundenNr", kdvm_KundenNr)
cmd.Parameters.AddWithValue("@kdvm_kdvmaId", kdvm_kdvmaId)
cmd.Parameters.AddWithValue("@kdvm_erhalten", kdvm_erhalten)
cmd.Parameters.AddWithValue("@kdvm_archiviert", kdvm_archiviert)
cmd.Parameters.AddWithValue("@kdvm_erhalten_Datum", If(kdvm_erhalten_Datum Is Nothing, DBNull.Value, CDate(kdvm_erhalten_Datum)))
cmd.Parameters.AddWithValue("@kdvm_gueltig_bis", If(kdvm_gueltig_bis Is Nothing, DBNull.Value, CDate(kdvm_gueltig_bis)))
cmd.Parameters.AddWithValue("@kdvm_vermerk", kdvm_vermerk)
cmd.Parameters.AddWithValue("@kdvm_Info", kdvm_Info)
cmd.Parameters.AddWithValue("@kdvm_datenarchivId", kdvm_datenarchivId)
cmd.Parameters.AddWithValue("@kdvm_Id", kdvm_Id)
cmd.ExecuteNonQuery()
Return True
End Using
@@ -1783,14 +1788,14 @@ Public Class kundenSQL
Return False
End Function
Public Function setVollmacht_DSId(ByVal kdvm_KundenNr As Integer, ByVal kdvm_kdvmaId As Integer, ByVal kdvm_datenarchivId As Integer) As Boolean
Public Function setVollmacht_DSId(ByVal kdvm_KundenNr As Integer, ByVal kdvm_Id As Integer, ByVal kdvm_datenarchivId As Integer) As Boolean
Try
Dim d As String = ""
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("UPDATE [tblKundenVollmachten] SET [kdvm_datenarchivId]=@kdvm_datenarchivId WHERE [kdvm_KundenNr]=@kdvm_KundenNr AND kdvm_kdvmaId =@kdvm_kdvmaId ", conn)
Using cmd As New SqlCommand("UPDATE [tblKundenVollmachten] SET [kdvm_datenarchivId]=@kdvm_datenarchivId WHERE [kdvm_KundenNr]=@kdvm_KundenNr AND kdvm_Id =@kdvm_Id ", conn)
cmd.Parameters.AddWithValue("@kdvm_KundenNr", kdvm_KundenNr)
cmd.Parameters.AddWithValue("@kdvm_kdvmaId", kdvm_kdvmaId)
cmd.Parameters.AddWithValue("@kdvm_Id", kdvm_Id)
cmd.Parameters.AddWithValue("@kdvm_datenarchivId", kdvm_datenarchivId)
cmd.ExecuteNonQuery()
Return True
@@ -1802,6 +1807,48 @@ Public Class kundenSQL
Return False
End Function
Public Function setVollmachtarchivieren(ByVal kdvm_KundenNr As Integer, ByVal kdvm_kdvmaId As Integer) As Boolean
Try
Dim d As String = ""
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("UPDATE [tblKundenVollmachten] SET kdvm_archiviert = 1 WHERE [kdvm_KundenNr]=@kdvm_KundenNr AND kdvm_kdvmaId =@kdvm_kdvmaId ", conn)
cmd.Parameters.AddWithValue("@kdvm_KundenNr", kdvm_KundenNr)
cmd.Parameters.AddWithValue("@kdvm_kdvmaId", kdvm_kdvmaId)
cmd.ExecuteNonQuery()
Return True
End Using
End Using
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
End Try
Return False
End Function
Public Function setVollmachtgeloescht(ByVal kdvm_KundenNr As Integer, ByVal kdvm_Id As Integer, ByVal kdvm_geloescht As Integer) As Boolean
Try
Dim d As String = ""
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("UPDATE [tblKundenVollmachten] SET kdvm_geloescht = @kdvm_geloescht WHERE [kdvm_KundenNr]=@kdvm_KundenNr AND kdvm_Id =@kdvm_Id ", conn)
cmd.Parameters.AddWithValue("@kdvm_KundenNr", kdvm_KundenNr)
cmd.Parameters.AddWithValue("@kdvm_Id", kdvm_Id)
cmd.Parameters.AddWithValue("@kdvm_geloescht", kdvm_geloescht)
cmd.ExecuteNonQuery()
Return True
End Using
End Using
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
End Try
Return False
End Function
Public Function setPartnerKdNrFromFMZOLL(ByVal columnName As String, ByVal value As Object, ByVal AdressenNr As String) As Boolean
Dim sql = "UPDATE Adressen " &
" SET [" & columnName & "]=@value " &