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

Kundenblatt, kundenuebersicht, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-09-01 16:55:09 +02:00
parent 1a7507e868
commit 4a3c92b0dd
9 changed files with 1455 additions and 1137 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
SDL/Fakturierung/cFakturierung.vb
View File

@@ -3225,9 +3225,9 @@ Public Class cFakturierung
RK_found = True
End If
Next
MsgBox(RU_found)
MsgBox(RK_found)
MsgBox(RU_found And RK_found)
'MsgBox(RU_found)
'MsgBox(RK_found)
'MsgBox(RU_found And RK_found)
If RU_found And RK_found Then Return True
If Not RU_found And Not RK_found Then Return True

11
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlCreditreformBoniAuskunft.vb
View File

@@ -1,4 +1,6 @@
Public Class usrcntlCreditreformBoniAuskunft
Imports VERAG_PROG_ALLGEMEIN
Public Class usrcntlCreditreformBoniAuskunft
Implements FormualrInterface
Public Event CHANGED(name, value)
@@ -9,6 +11,7 @@
Public Event LOADED()
Public KdNR As Integer = -1
Public SAVED As Boolean = False
Dim creditsafe_newView As Boolean = False
Public Sub ChangeKDNr(kdnr As Integer) Implements FormualrInterface.ChangeKDNr
initKdNR(kdnr)
End Sub
@@ -86,6 +89,10 @@
cboCRArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Wien", "Wien"))
cboCRArt.SelectedIndex = 0
If KdNR > 0 Then initKdNR(KdNR)
Dim Paramslist As New cParameterList(VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID)
creditsafe_newView = Paramslist.GET_PARAMETER_VALUE_BOOL("Creditsafe_neueAnsicht")
RaiseEvent LOADED()
End Sub
@@ -138,6 +145,8 @@
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim frmBonitätsverlauf As New frmBonitätsverlauf(KdNR, Me)
frmBonitätsverlauf.newView = creditsafe_newView
frmBonitätsverlauf.Show()
End Sub

14
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -3675,9 +3675,9 @@ Public Class frmMDM_USTVAntrag
End Select
Dim path As String = PDFInvoicesPath(posID)
If path <> "" Then Mail.Attachments.Add(path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, Attachmens_Bez)
Dim fileInfo As New FileInfo(path)
If path <> "" Then Mail.Attachments.Add(path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, Attachmens_Bez & fileInfo.Extension)
'NOCH DEAKTIVIERT
If vbYes = MsgBox("Möchten Sie die Positionsliste an die Mail hinzufügen?", vbYesNoCancel) Then
Dim spedBuch As New cSpeditionsbuch(USTV_ANTRAG.FilialenNr, USTV_ANTRAG.AbfertigungsNr, 0)
@@ -3685,8 +3685,10 @@ Public Class frmMDM_USTVAntrag
If Not spedBuch.ErfassungsNr = "" Then
Dim pathPosList As String = generatePOSListe(spedBuch, posID, False)
If pathPosList <> "" Then Mail.Attachments.Add(pathPosList, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, Attachmens_Bez_POS)
If pathPosList <> "" Then
Dim fileInfoPos As New FileInfo(pathPosList)
If pathPosList <> "" Then Mail.Attachments.Add(pathPosList, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, Attachmens_Bez_POS & fileInfoPos.Extension)
End If
End If
@@ -3700,6 +3702,10 @@ Public Class frmMDM_USTVAntrag
Mail.HTMLBody = TextHTML
End If
Mail.To = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an")
Mail.CC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an")
Mail.BCC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Rechnung an")
Mail.Display()
Me.Cursor = Cursors.Default
Catch ex As Exception

104
SDL/kunden/frmBonitätsverlauf.vb
View File

@@ -1,6 +1,10 @@
Public Class frmBonitätsverlauf
Imports GrapeCity.DataVisualization.Chart
Imports VERAG_PROG_ALLGEMEIN
Public Class frmBonitätsverlauf
Public kdnr = -1
Public newView As Boolean = False
Sub New(kdnr)
InitializeComponent()
Me.kdnr = kdnr
@@ -39,7 +43,86 @@
If KdSearchBox1.KdNr_value > 0 Then
With MyDatagridview1
Dim sqlstr As String = ""
sqlstr &= "SELECT * FROM [tblBonitaetsauskunft] where ba_KundenNr=" & KdSearchBox1.KdNr_value & " ORDER BY ba_Datum DESC"
Dim KD_ERW As New cKundenErweitert(KdSearchBox1.KdNr_value)
If KD_ERW.kde_CreditSaveId IsNot Nothing AndAlso KD_ERW.kde_CreditSaveId <> "" AndAlso newView Then
Dim sqlIndex As String = ""
If KD_ERW.kde_CreditSaveId.ToLower.Contains("at") Then
sqlIndex = ",ba_CreditSaveBonitaetsScore"
Else
sqlIndex = ",ba_CreditSaveBonitaetsIndex"
End If
sqlstr &= "
SELECT ba_Datum" & sqlIndex & ",ba_GruendundsDatum,ba_Umsatz,ba_Mitarbeiter,ba_Hoechstkredit,ba_Sachbearbeiter,ba_Zahlungsweise,ba_GFName,ba_Risikostufe,ba_CreditSaveRisikoklasse,ba_Pruefungstool,ba_GSName,ba_Geschaeftszweck,ba_datenarchivId
FROM tblBonitaetsauskunft
where ba_KundenNr= " & KdSearchBox1.KdNr_value & "
UNION ALL
SELECT
cast(e.eventDate as Date),
MAX(e.crValue) AS TotalCR,
NULL,
NULL,
NULL,
MAX(e.clValue) AS TotalCL,
MAX(sachbearbeiter),
NULL,
NULL,
NULL,
NULL,
Source,
NULL,
NULL,
NULL
FROM (SELECT
e.companyId,
e.portfolioId,
e.eventDate,
e.sachbearbeiter,
CASE WHEN e.localEventCode = 'CR' OR e.globalEventCode ='CR' THEN e.newValueCR ELSE 0 END AS crValue,
CASE WHEN e.localEventCode = 'CL' OR e.globalEventCode ='CL' THEN e.newValueCL ELSE 0 END AS clValue,
'creditsafe API' AS Source
FROM [VERAG].[dbo].[tblCreditsafeEvents] e
INNER JOIN [VERAG].[dbo].[tblBonitaetsauskunft] b
ON e.bonId = b.ba_id
WHERE b.ba_KundenNr = " & KdSearchBox1.KdNr_value & "
AND b.ba_Pruefungstool = 'creditsafe API'
AND (e.localEventCode IN ('CL','CR') or e.globalEventCode IN ('CL','CR'))
) e
GROUP BY e.companyId, e.portfolioId, cast(e.eventDate as Date), Source
order by ba_Datum desc"
Else
sqlstr &= "SELECT ba_Datum
,ba_Sachbearbeiter
,ba_BonitaetsIndex
,ba_CreditSaveBonitaetsIndex
,ba_CreditSaveBonitaetsScore
,ba_GruendundsDatum
,ba_Umsatz
,ba_Mitarbeiter
,ba_Hoechstkredit
,ba_Zahlungsweise
,ba_GFName
,ba_Risikostufe
,ba_CreditSaveRisikoklasse
,ba_Pruefungstool
,ba_GSName
,ba_Geschaeftszweck
,ba_datenarchivId
FROM tblBonitaetsauskunft where ba_KundenNr=" & KdSearchBox1.KdNr_value & " ORDER BY ba_Datum DESC"
End If
.SET_SQL(sqlstr, "FMZOLL")
.LOAD()
@@ -49,24 +132,9 @@
.ReadOnly = True
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.MultiSelect = False
.Columns("ba_id").Visible = False
.Columns("ba_KundenNr").Visible = False
.Columns("ba_MaId").Visible = False
.Columns("ba_CRArt").Visible = False
.Columns("ba_CRAnsprechpartnerHerrFrau").Visible = False
.Columns("ba_CRAnsprechpartner").Visible = False
.Columns("ba_Firma").Visible = False
.Columns("ba_Adresse1").Visible = False
.Columns("ba_Adresse2").Visible = False
.Columns("ba_LetztesBearbeitungsDatum").Visible = False
.Columns("ba_Bankverbindung").Visible = False
.Columns("ba_Sonstiges").Visible = False
.Columns("ba_datenarchivId").Visible = False
.Columns("ba_Umsatz").DefaultCellStyle.Format = "C2"
.Columns("ba_Hoechstkredit").DefaultCellStyle.Format = "C2"
.Columns("ba_datenarchivId").Visible = False
Dim c As New DataGridViewImageColumn
c.Name = "PDF" : c.HeaderText = "Bericht"

6
SDL/kunden/frmKundenblatt.vb
View File

@@ -45,6 +45,7 @@ Public Class frmKundenblatt
Private WithEvents timShow As New Timer With {.Interval = 10}
Private WithEvents timHide As New Timer With {.Interval = 10}
Dim isVerag360 As Boolean = False
Dim creditsafe_newView As Boolean = False
Sub New()
@@ -122,6 +123,10 @@ Public Class frmKundenblatt
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Bonität_Bearbeiten", "SDL") Then
btnBonitaetBearbeiten.Visible = True
End If
Dim Paramslist As New cParameterList(VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID)
creditsafe_newView = Paramslist.GET_PARAMETER_VALUE_BOOL("Creditsafe_neueAnsicht")
'UsrcntlKundeBearbeitenFull1.BERECHTIGUNEN = BERECHTIGUNEN
Me.KeyPreview = True
pnlInfo.Height = 0
@@ -2188,6 +2193,7 @@ Public Class frmKundenblatt
Private Sub FlatButton6_Click(sender As Object, e As EventArgs) Handles FlatButton6.Click
Dim f As New frmBonitätsverlauf(kdNr)
f.newView = creditsafe_newView
f.Show()
AddHandler f.FormClosed, Sub()
KdSearchBox1.KdNr = kdNr

2160
SDL/kunden/usrCntlKundenuebersicht.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

6
SDL/kunden/usrCntlKundenuebersicht.resx
View File

@@ -242,10 +242,10 @@
<metadata name="ContextMenuStrip4.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1303, 17</value>
</metadata>
<metadata name="SessionService1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="ContextMenuStrip5.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>153, 56</value>
</metadata>
<metadata name="SessionService1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
</root>

24
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -55,6 +55,7 @@ Public Class usrCntlKundenuebersicht
Dim PDF_Attach_TMP_VERTRAEGE = ""
Property BER_STUFE = 99
Private datenarchivId = -1
Dim creditsafe_newView As Boolean = False
Public Sub New()
Try
@@ -233,6 +234,9 @@ Public Class usrCntlKundenuebersicht
End Select
Dim Paramslist As New cParameterList(VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID)
creditsafe_newView = Paramslist.GET_PARAMETER_VALUE_BOOL("Creditsafe_neueAnsicht")
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("UID_EORI_Prüfung", "SDL") Then
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
Button1.Visible = True
@@ -672,7 +676,7 @@ Public Class usrCntlKundenuebersicht
' Button4.Visible = False
' Button5.Visible = False
pbCreditsafeChanges.Visible = IIf(KUNDE_ERW.kde_CreditSaveId <> "", True, False) AndAlso False 'aktuell noch deaktiviert!!
pbCreditsafeChanges.Visible = IIf(KUNDE_ERW.kde_CreditSaveId <> "", True, False) AndAlso creditsafe_newView
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Es ist ein Fehler beim Laden der Firmendaten - Allgemein aufgetreten!")
@@ -2173,7 +2177,11 @@ Public Class usrCntlKundenuebersicht
Private Sub FlatButton6_Click(sender As Object, e As EventArgs) Handles FlatButton6.Click
Dim f As New frmBonitätsverlauf(kdNr)
f.newView = creditsafe_newView
f.Show()
AddHandler f.FormClosed, Sub()
setKD(kdNr)
@@ -2928,7 +2936,7 @@ Public Class usrCntlKundenuebersicht
cBonitaetsauskunft.ba_CSmax = csmax
cBonitaetsauskunft.ba_CScountry = cscountry
' Öster. Unternemen -> Creditscore, sonst Index
' Öster. Unternehmen -> Creditscore, sonst Index
If (IsNumeric(company.csIndex)) Then
company.csIndex = company.csIndex.Replace(".", ",")
cBonitaetsauskunft.ba_CreditSaveBonitaetsIndex = CDbl(company.csIndex)
@@ -2977,6 +2985,8 @@ Public Class usrCntlKundenuebersicht
If cBonitaetsauskunft.SAVE Then
SQL.doSQL("UPDATE Kunden SET Bonität='" & cBonitaetsauskunft.ba_BonitaetsIndex & "', Bonitätsdatum='" & cBonitaetsauskunft.ba_Datum & "', Höchstkredit=" & If(cBonitaetsauskunft.ba_Hoechstkredit Is Nothing, "null", "'" & cBonitaetsauskunft.ba_Hoechstkredit & "'") & " WHERE KundenNr='" & cBonitaetsauskunft.ba_KundenNr & "'", "FMZOLL")
company.csBonID = cBonitaetsauskunft.ba_id
Dim KDERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr)
KDERW.kde_CreditSaveBonitaetsIndex = cBonitaetsauskunft.ba_CreditSaveBonitaetsIndex
KDERW.kde_CreditSaveBonitaetsScore = cBonitaetsauskunft.ba_CreditSaveBonitaetsScore
@@ -3272,19 +3282,27 @@ Public Class usrCntlKundenuebersicht
If cs.authenticate() = "200" Then
Dim company As New cCreditSafeAPI.Company("", "", "", "", KUNDE_ERW.kde_CreditSaveNo, KUNDE_ERW.kde_CreditSaveId, Nothing, "", "", "", "", "", "", "", "", "")
company.lastChecked = IIf(IsDate(lastChecked), lastChecked, Today().AddDays(-1))
Dim currentBonID As Integer = SQL.getValueTxtBySql("Select Top(1) isnull(ba_id, -1) FROM [tblBonitaetsauskunft] where ba_KundenNr = " & KUNDE.KundenNr & " AND [ba_Pruefungstool] = 'creditsafe API' ORDER BY ba_Datum DESC", "FMZOLL")
If currentBonID > 0 Then company.csBonID = currentBonID
Dim dt As New DataTable()
cs.getCompanyEvents(company, dt, True)
cs.getCompanyEvents(company, dt, False)
If dt.Rows.Count > 0 Then
Dim frm As New Form
Dim dgv As New DataGridView()
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("ADMIN", "AVISO") Then
If dt.Columns.Contains("eventid") Then dt.Columns("eventid").ColumnMapping = MappingType.Hidden
If dt.Columns.Contains("companyId") Then dt.Columns("companyId").ColumnMapping = MappingType.Hidden
If dt.Columns.Contains("portfolioId") Then dt.Columns("portfolioId").ColumnMapping = MappingType.Hidden
If dt.Columns.Contains("localEventCode") Then dt.Columns("localEventCode").ColumnMapping = MappingType.Hidden
If dt.Columns.Contains("globalEventCode") Then dt.Columns("globalEventCode").ColumnMapping = MappingType.Hidden
If dt.Columns.Contains("createdDate") Then dt.Columns("createdDate").ColumnMapping = MappingType.Hidden
End If
dgv.DataSource = dt

213
VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb
View File

@@ -1,6 +1,13 @@

Imports System.Data.SqlClient
Imports System.Net
Imports System.Numerics
Imports System.Reflection
Imports System.Runtime.InteropServices.ComTypes
Imports System.Text.RegularExpressions
Imports System.Threading
Imports System.Web.UI
Imports Microsoft.VisualBasic.ApplicationServices
Public Class cCreditSafeAPI
@@ -429,8 +436,75 @@ Public Class cCreditSafeAPI
R("newValue") = compObj.StringOf("newValue")
R("eventDate") = dateTime.GetAsTimestamp(getAsLocal)
R("createdDate") = dateTime.GetAsTimestamp(getAsLocal)
dtEvents.Rows.Add(R)
Dim cEvent As New cCreditsafeEvent(CLng(R("eventId")))
cEvent.eventId = R("eventId")
cEvent.companyId = R("companyId")
cEvent.portfolioId = R("portfolioId")
cEvent.ruleName = R("ruleName")
cEvent.localEventCode = R("localEventCode").trim()
cEvent.globalEventCode = R("globalEventCode").trim()
cEvent.eventDate = R("eventDate")
cEvent.createdDate = R("createdDate")
cEvent.importDate = Now()
cEvent.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
cEvent.oldValue = R("oldValue")
cEvent.newValue = R("newValue")
'OLD-VALUES
If cEvent.oldValue IsNot Nothing AndAlso IsNumeric(cEvent.oldValue) AndAlso Not cEvent.oldValue.ToString.Contains("€") Then
If cEvent.localEventCode = "CL" Or cEvent.globalEventCode = "CL" Then
cEvent.oldValueCL = cEvent.oldValue
ElseIf cEvent.localEventCode = "CR" Or cEvent.globalEventCode = "CR" Then
cEvent.oldValueCR = cEvent.oldValue
End If
Else
If cEvent.localEventCode = "CL" Or cEvent.globalEventCode = "CL" Then
cEvent.oldValue = Regex.Replace(cEvent.oldValue, "\s+", "")
cEvent.oldValue = Regex.Replace(cEvent.oldValue, "[^\d]", "")
cEvent.oldValueCL = cEvent.oldValue
ElseIf cEvent.localEventCode = "CR" Or cEvent.globalEventCode = "CR" Then
cEvent.oldValue = Regex.Replace(cEvent.oldValue, "\s+", "")
cEvent.oldValue = Regex.Replace(cEvent.oldValue, "[^\d]", "")
cEvent.oldValueCR = cEvent.oldValue
End If
End If
'NEW-VALUES
If cEvent.newValue IsNot Nothing AndAlso IsNumeric(cEvent.newValue) AndAlso Not cEvent.newValue.ToString.Contains("€") Then
If cEvent.localEventCode = "CL" Or cEvent.globalEventCode = "CL" Then
cEvent.newValueCL = cEvent.newValue
ElseIf cEvent.localEventCode = "CR" Or cEvent.globalEventCode = "CR" Then
cEvent.newValueCR = cEvent.newValue
End If
Else
If cEvent.localEventCode = "CL" Or cEvent.globalEventCode = "CL" Then
cEvent.newValue = Regex.Replace(cEvent.newValue, "\s+", "")
cEvent.newValue = Regex.Replace(cEvent.newValue, "[^\d]", "")
cEvent.newValueCL = cEvent.newValue
ElseIf cEvent.localEventCode = "CR" Or cEvent.globalEventCode = "CR" Then
cEvent.newValue = Regex.Replace(cEvent.newValue, "\s+", "")
cEvent.newValue = Regex.Replace(cEvent.newValue, "[^\d]", "")
cEvent.newValueCR = cEvent.newValue
End If
End If
If cEvent.bonId Is Nothing AndAlso company.csBonID > 0 Then
cEvent.bonId = company.csBonID
End If
cEvent.SAVE()
j = j + 1
End While
Next
@@ -824,8 +898,8 @@ Public Class cCreditSafeAPI
Public Property csCEO As String
Public Property csTurnover As String
Public Property language As String
Public Property csBank As String
Public Property csBonID As Integer = -1
@@ -852,4 +926,141 @@ Public Class cCreditSafeAPI
End Sub
End Class
Public Class cCreditsafeEvent
Property eventId As Long
Property companyId As Object = Nothing
Property portfolioId As Object = Nothing
Property ruleName As Object = Nothing
Property localEventCode As Object = Nothing
Property globalEventCode As Object = Nothing
Property oldValue As Object = Nothing
Property newValue As Object = Nothing
Property eventDate As Object = Nothing
Property createdDate As Object = Nothing
Property importDate As Object = Nothing
Property bonId As Object = Nothing
Property Sachbearbeiter As Object = Nothing
Property oldValueCR As Object = Nothing
Property newValueCR As Object = Nothing
Property oldValueCL As Object = Nothing
Property newValueCL As Object = Nothing
Public hasEntry = False
Sub New(eventId)
Me.eventId = eventId
LOAD()
End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eventId", eventId,, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("companyId", companyId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("portfolioId", portfolioId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ruleName", ruleName))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("localEventCode", localEventCode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("globalEventCode", globalEventCode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("oldValue", oldValue))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("newValue", newValue))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eventDate", eventDate))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("createdDate", createdDate))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("importDate", importDate))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bonId", bonId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("oldValueCR", oldValueCR))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("newValueCR", newValueCR))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("oldValueCL", oldValueCL))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("newValueCL", newValueCL))
Return list
End Function
Public Function SAVE() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblCreditsafeEvents WHERE eventId=@eventId) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
" commit tran "
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
End Function
Public Sub LOAD()
Try
hasEntry = False
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT * FROM tblCreditsafeEvents WHERE eventId=@eventId ", conn)
cmd.Parameters.AddWithValue("@eventId", eventId)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each li In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
If dr.Item(li.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(li.Text))
End If
Next
hasEntry = True
End If
dr.Close()
End Using
End Using
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Public Function getUpdateCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
Return (" UPDATE tblCreditsafeEvents SET " & str & " WHERE eventId=@eventId ")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return ""
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
'If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
'End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblCreditsafeEvents (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return ""
End Function
End Class
End Class