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

16
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,13 +3685,15 @@ 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
End If
End If
Dim TextHTML = ""
@@ -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>

70
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,39 +3282,47 @@ 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 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
dgv.DataSource = dt
If dgv IsNot Nothing Then
frm.Size = New Size(750, 500)
dgv.Size = New Size(frm.Size.Width - 10, frm.Size.Height - 10)
dgv.Dock = DockStyle.Fill
dgv.Anchor = AnchorStyles.Left
dgv.Anchor = AnchorStyles.Top
dgv.ReadOnly = True
frm.Controls.Add(dgv)
frm.StartPosition = FormStartPosition.CenterScreen
frm.ShowDialog()
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
Else
MsgBox("Keine Creditsafe-Änderungen seit " & lastChecked.ToShortDateString)
dgv.DataSource = dt
If dgv IsNot Nothing Then
frm.Size = New Size(750, 500)
dgv.Size = New Size(frm.Size.Width - 10, frm.Size.Height - 10)
dgv.Dock = DockStyle.Fill
dgv.Anchor = AnchorStyles.Left
dgv.Anchor = AnchorStyles.Top
dgv.ReadOnly = True
frm.Controls.Add(dgv)
frm.StartPosition = FormStartPosition.CenterScreen
frm.ShowDialog()
End If
Else
MsgBox("Keine Creditsafe-Änderungen seit " & lastChecked.ToShortDateString)
End If
End If