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

Auswertung, Kundenuebersicht Credtisafe-API

Browse Source
This commit is contained in:
d.breimaier
2025-09-26 15:37:22 +02:00
parent 0871e82f58
commit 6b3ea231ed
8 changed files with 1781 additions and 1428 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
SDL/Resources/Auswertung_divers.xlsx
View File

Binary file not shown.

57
SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
View File

@@ -2833,7 +2833,7 @@ Public Class usrCntlSpeditionsBuchSuche
,Absender ,Absender
,Rechnungsbetrag Betrag ,Rechnungsbetrag Betrag
,BelegNr ,BelegNr
,[FilialenNr],[AbfertigungsNr],Speditionsbuch.Abfertigungsart,Abfertigungsbezeichnung,Speditionsbuch.Zollsystem_Land ,[FilialenNr],[AbfertigungsNr],Speditionsbuch.Abfertigungsart,Abfertigungsbezeichnung,Speditionsbuch.Zollsystem_Land, Speditionsbuch.[LKW Kennzeichen]
FROM Speditionsbuch INNER JOIN [Abfertigungsarten] ON Speditionsbuch.Abfertigungsart=Abfertigungsarten.Abfertigungsart FROM Speditionsbuch INNER JOIN [Abfertigungsarten] ON Speditionsbuch.Abfertigungsart=Abfertigungsarten.Abfertigungsart
where EmpfängerKundenNr IN (" & kdnrsrch & ") and VermittlerKundenNr IN (" & kdnrsrch & ") and Abfertigungsdatum BETWEEN '" & txtAbfertDat.Text & "' AND '" & txtAbfertDatBis.Text & "' And Speditionsbuch.Abfertigungsart IN (1,29,38)", "FMZOLL") where EmpfängerKundenNr IN (" & kdnrsrch & ") and VermittlerKundenNr IN (" & kdnrsrch & ") and Abfertigungsdatum BETWEEN '" & txtAbfertDat.Text & "' AND '" & txtAbfertDatBis.Text & "' And Speditionsbuch.Abfertigungsart IN (1,29,38)", "FMZOLL")
@@ -3012,6 +3012,54 @@ Public Class usrCntlSpeditionsBuchSuche
Datei = .Workbooks.Open(Path) 'Anpassen Datei = .Workbooks.Open(Path) 'Anpassen
Blatt = Datei.Worksheets(1) 'Anpassen Blatt = Datei.Worksheets(1) 'Anpassen
If KUNDE.KundenNr = 902452 Then 'KUNDE WILL WIEDER EXZTAWURST!!!!!!!
Blatt.Range("H1").Value = txtAbfertDat.Text & "-" & txtAbfertDatBis.Text
Blatt.Range("A" & 2).Value = "Nr"
Blatt.Range("B" & 2).Value = "Datum"
Blatt.Range("C" & 2).Value = "MRN-Nr."
Blatt.Range("D" & 2).Value = "LKW/Cont."
Blatt.Range("E" & 2).Value = "Rg.-Nr."
Blatt.Range("F" & 2).Value = "EUST"
Blatt.Range("G" & 2).Value = "Anzahl Pos."
Blatt.Range("H" & 2).Value = ""
Blatt.Range("I" & 2).Value = ""
Blatt.Range("J" & 2).Value = ""
Blatt.Range("K" & 2).Value = ""
Blatt.Range("L" & 2).Value = ""
Dim cnt = 3
For Each r In dt.Rows
Blatt.Range("A" & cnt).Value = cnt - 2
Blatt.Range("B" & cnt).Value = r("Abfertigungsdatum")
Blatt.Range("C" & cnt).Value = r("BelegNr")
Blatt.Range("D" & cnt).Value = r("LKW Kennzeichen")
Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
Try
Dim zS = If(r("Zollsystem_Land") IsNot DBNull.Value, r("Zollsystem_Land").ToString(), "")
If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False, zS) Then
Blatt.Range("E" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine)
Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.ABGABEN_EUST
Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.ANZ_POS
If If(ZOLLANMELDUNG.ATCMRN, "") <> "" Then
Blatt.Range("E" & cnt).Value = ZOLLANMELDUNG.ATCMRN
End If
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
lblKdAusFortschritt.Text = (cnt - 2) & "/" & dt.Rows.Count
Me.Refresh()
cnt += 1
Next
Else
Blatt.Range("I1").Value = txtAbfertDat.Text & "-" & txtAbfertDatBis.Text Blatt.Range("I1").Value = txtAbfertDat.Text & "-" & txtAbfertDatBis.Text
Dim cnt = 3 Dim cnt = 3
@@ -3024,6 +3072,7 @@ Public Class usrCntlSpeditionsBuchSuche
Blatt.Range("E" & cnt).Value = r("Absender") Blatt.Range("E" & cnt).Value = r("Absender")
Blatt.Range("F" & cnt).Value = "" 'r("Betrag") Blatt.Range("F" & cnt).Value = "" 'r("Betrag")
Blatt.Range("H" & cnt).Value = r("BelegNr") Blatt.Range("H" & cnt).Value = r("BelegNr")
Blatt.Range("L" & cnt).Value = r("LKW Kennzeichen")
Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
Try Try
@@ -3032,7 +3081,8 @@ Public Class usrCntlSpeditionsBuchSuche
Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.RechnungspreisohneWahrung Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.RechnungspreisohneWahrung
Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine) Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine)
Blatt.Range("I" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL Blatt.Range("I" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL
Blatt.Range("J" & cnt).Value = ZOLLANMELDUNG.ANZ_POS Blatt.Range("J" & cnt).Value = ZOLLANMELDUNG.ABGABEN_EUST
Blatt.Range("K" & cnt).Value = ZOLLANMELDUNG.ANZ_POS
If If(ZOLLANMELDUNG.ATCMRN, "") <> "" Then If If(ZOLLANMELDUNG.ATCMRN, "") <> "" Then
Blatt.Range("H" & cnt).Value = ZOLLANMELDUNG.ATCMRN Blatt.Range("H" & cnt).Value = ZOLLANMELDUNG.ATCMRN
@@ -3046,6 +3096,9 @@ Public Class usrCntlSpeditionsBuchSuche
Me.Refresh() Me.Refresh()
cnt += 1 cnt += 1
Next Next
End If
Datei.Save Datei.Save
If False Then If False Then

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

File diff suppressed because it is too large Load Diff

19
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -518,6 +518,8 @@ Public Class usrCntlKundenuebersicht
' TMPText = TMPText.Replace("/", "" & vbNewLine) ' TMPText = TMPText.Replace("/", "" & vbNewLine)
rtbAbf_Besonderheiten.Text = TMPText rtbAbf_Besonderheiten.Text = TMPText
initInsolvent(KUNDE_ERW.kde_CSinsolventAm)
' lblKreditlimit.BackColor = Color.White ' lblKreditlimit.BackColor = Color.White
lblKreditlimit.Text = checkNullNbr(KUNDE.Kreditlimit).ToString("C", CultureInfo.CurrentCulture) lblKreditlimit.Text = checkNullNbr(KUNDE.Kreditlimit).ToString("C", CultureInfo.CurrentCulture)
If KUNDE.Kreditlimit <> 0 And KUNDE.Kreditlimit <> 2600 Then If KUNDE.Kreditlimit <> 0 And KUNDE.Kreditlimit <> 2600 Then
@@ -714,6 +716,21 @@ Public Class usrCntlKundenuebersicht
End If End If
End Sub End Sub
Sub initInsolvent(insolvent)
If insolvent IsNot Nothing Then
'Me.BackColor = Color.Red
lblInsolvent.Visible = True
lblInsolvent.Text = "KUNDE INSOLVENT " & IIf(IsDate(insolvent), " SEIT " & CDate(insolvent).ToShortDateString, "")
rtbInfo.Visible = True
'lblTARIFE.ForeColor = Color.White
Else
'Me.BackColor = Color.White
lblInsolvent.Visible = False
rtbInfo.Visible = False
'lblTARIFE.ForeColor = Color.FromArgb(0, 54, 128)
End If
End Sub
Sub showForm(t As String, Optional h As String = "") Sub showForm(t As String, Optional h As String = "")
Dim f As New Form Dim f As New Form
@@ -3369,7 +3386,7 @@ Public Class usrCntlKundenuebersicht
If currentBonID > 0 Then company.csBonID = currentBonID If currentBonID > 0 Then company.csBonID = currentBonID
Dim dt As New DataTable() Dim dt As New DataTable()
If cs.getCompanyEvents(company, dt, checklastDate, True) = "Error" Then If cs.getCompanyEvents(company, dt, True, 0, checklastDate, True) = "Error" Then
Exit Sub Exit Sub
End If End If

393
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb generated
View File

@@ -23,31 +23,31 @@ Partial Class usrcntlKundeBearbeitenFull
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle33 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle34 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle35 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle36 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle37 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle38 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle39 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle40 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle41 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle42 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle43 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle44 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle45 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle46 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle47 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle48 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle49 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle50 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.tbcntrDetails = New System.Windows.Forms.TabControl() Me.tbcntrDetails = New System.Windows.Forms.TabControl()
Me.tbAbfertigung = New System.Windows.Forms.TabPage() Me.tbAbfertigung = New System.Windows.Forms.TabPage()
Me.cbxVerzolltBeiExport = New System.Windows.Forms.CheckBox() Me.cbxVerzolltBeiExport = New System.Windows.Forms.CheckBox()
@@ -265,6 +265,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtUSt_GVAusgestelltAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtUSt_GVAusgestelltAm = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtUSt_GVAngefordertAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtUSt_GVAngefordertAm = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.tbSonstiges = New System.Windows.Forms.TabPage() Me.tbSonstiges = New System.Windows.Forms.TabPage()
Me.cbxCS_Added = New System.Windows.Forms.CheckBox()
Me.Label113 = New System.Windows.Forms.Label() Me.Label113 = New System.Windows.Forms.Label()
Me.Label112 = New System.Windows.Forms.Label() Me.Label112 = New System.Windows.Forms.Label()
Me.dgvIDS_Rabatte = New System.Windows.Forms.DataGridView() Me.dgvIDS_Rabatte = New System.Windows.Forms.DataGridView()
@@ -405,7 +406,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboAuswahl = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboAuswahl = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.cbxCS_Added = New System.Windows.Forms.CheckBox() Me.cbxCSInsolvent = New System.Windows.Forms.CheckBox()
Me.tbcntrDetails.SuspendLayout() Me.tbcntrDetails.SuspendLayout()
Me.tbAbfertigung.SuspendLayout() Me.tbAbfertigung.SuspendLayout()
Me.tbcntrAbf.SuspendLayout() Me.tbcntrAbf.SuspendLayout()
@@ -3110,8 +3111,8 @@ Partial Class usrcntlKundeBearbeitenFull
Me.dgvUmsatzbericht.AllowUserToDeleteRows = False Me.dgvUmsatzbericht.AllowUserToDeleteRows = False
Me.dgvUmsatzbericht.AllowUserToOrderColumns = True Me.dgvUmsatzbericht.AllowUserToOrderColumns = True
Me.dgvUmsatzbericht.AllowUserToResizeRows = False Me.dgvUmsatzbericht.AllowUserToResizeRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle32.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle32
Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White
Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25) Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25)
@@ -3210,8 +3211,8 @@ Partial Class usrcntlKundeBearbeitenFull
Me.dgvOffenePosten.AllowUserToDeleteRows = False Me.dgvOffenePosten.AllowUserToDeleteRows = False
Me.dgvOffenePosten.AllowUserToOrderColumns = True Me.dgvOffenePosten.AllowUserToOrderColumns = True
Me.dgvOffenePosten.AllowUserToResizeRows = False Me.dgvOffenePosten.AllowUserToResizeRows = False
DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle33.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle33
Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38) Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38)
@@ -3372,41 +3373,41 @@ Partial Class usrcntlKundeBearbeitenFull
Me.dgvKreditkarten.AllowUserToDeleteRows = False Me.dgvKreditkarten.AllowUserToDeleteRows = False
Me.dgvKreditkarten.AllowUserToOrderColumns = True Me.dgvKreditkarten.AllowUserToOrderColumns = True
Me.dgvKreditkarten.AllowUserToResizeRows = False Me.dgvKreditkarten.AllowUserToResizeRows = False
DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle34.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle34
Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle35.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle35.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle35.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle35.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle35.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle35.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle35.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4 Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle35
Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle36.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle36.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle36.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle36.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle36.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle36.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle5 Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle36
Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20) Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20)
Me.dgvKreditkarten.MultiSelect = False Me.dgvKreditkarten.MultiSelect = False
Me.dgvKreditkarten.Name = "dgvKreditkarten" Me.dgvKreditkarten.Name = "dgvKreditkarten"
Me.dgvKreditkarten.ReadOnly = True Me.dgvKreditkarten.ReadOnly = True
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle37.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle37.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle37.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle37.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle37.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle37.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle37.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle6 Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle37
Me.dgvKreditkarten.RowHeadersVisible = False Me.dgvKreditkarten.RowHeadersVisible = False
DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle38.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle7 Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle38
Me.dgvKreditkarten.RowTemplate.DefaultCellStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.dgvKreditkarten.RowTemplate.DefaultCellStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.dgvKreditkarten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvKreditkarten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvKreditkarten.Size = New System.Drawing.Size(642, 312) Me.dgvKreditkarten.Size = New System.Drawing.Size(642, 312)
@@ -3486,26 +3487,26 @@ Partial Class usrcntlKundeBearbeitenFull
' '
'dgvMWST 'dgvMWST
' '
DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle39.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvMWST.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8 Me.dgvMWST.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle39
Me.dgvMWST.BackgroundColor = System.Drawing.Color.White Me.dgvMWST.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle40.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle40.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle40.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle40.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle40.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle40.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle40.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvMWST.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9 Me.dgvMWST.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle40
Me.dgvMWST.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvMWST.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle41.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle41.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle41.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle41.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle41.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle41.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle41.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvMWST.DefaultCellStyle = DataGridViewCellStyle10 Me.dgvMWST.DefaultCellStyle = DataGridViewCellStyle41
Me.dgvMWST.Location = New System.Drawing.Point(9, 359) Me.dgvMWST.Location = New System.Drawing.Point(9, 359)
Me.dgvMWST.Name = "dgvMWST" Me.dgvMWST.Name = "dgvMWST"
Me.dgvMWST.Size = New System.Drawing.Size(171, 125) Me.dgvMWST.Size = New System.Drawing.Size(171, 125)
@@ -3590,26 +3591,26 @@ Partial Class usrcntlKundeBearbeitenFull
' '
'dgvUstv_LaenderUndSteuernummern 'dgvUstv_LaenderUndSteuernummern
' '
DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle42.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11 Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle42
Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle43.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle43.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle43.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle43.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle43.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle43.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle43.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12 Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle43
Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle44.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle44.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle44.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle44.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle44.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle44.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle44.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle13 Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle44
Me.dgvUstv_LaenderUndSteuernummern.Location = New System.Drawing.Point(9, 94) Me.dgvUstv_LaenderUndSteuernummern.Location = New System.Drawing.Point(9, 94)
Me.dgvUstv_LaenderUndSteuernummern.Name = "dgvUstv_LaenderUndSteuernummern" Me.dgvUstv_LaenderUndSteuernummern.Name = "dgvUstv_LaenderUndSteuernummern"
Me.dgvUstv_LaenderUndSteuernummern.Size = New System.Drawing.Size(657, 259) Me.dgvUstv_LaenderUndSteuernummern.Size = New System.Drawing.Size(657, 259)
@@ -3745,6 +3746,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
'tbSonstiges 'tbSonstiges
' '
Me.tbSonstiges.Controls.Add(Me.cbxCSInsolvent)
Me.tbSonstiges.Controls.Add(Me.cbxCS_Added) Me.tbSonstiges.Controls.Add(Me.cbxCS_Added)
Me.tbSonstiges.Controls.Add(Me.Label113) Me.tbSonstiges.Controls.Add(Me.Label113)
Me.tbSonstiges.Controls.Add(Me.Label112) Me.tbSonstiges.Controls.Add(Me.Label112)
@@ -3791,6 +3793,15 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbSonstiges.Text = "Sonstiges" Me.tbSonstiges.Text = "Sonstiges"
Me.tbSonstiges.UseVisualStyleBackColor = True Me.tbSonstiges.UseVisualStyleBackColor = True
' '
'cbxCS_Added
'
Me.cbxCS_Added.AutoSize = True
Me.cbxCS_Added.Location = New System.Drawing.Point(406, 9)
Me.cbxCS_Added.Name = "cbxCS_Added"
Me.cbxCS_Added.Size = New System.Drawing.Size(15, 14)
Me.cbxCS_Added.TabIndex = 37
Me.cbxCS_Added.UseVisualStyleBackColor = True
'
'Label113 'Label113
' '
Me.Label113.AutoSize = True Me.Label113.AutoSize = True
@@ -3807,7 +3818,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.Label112.AutoSize = True Me.Label112.AutoSize = True
Me.Label112.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label112.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label112.Location = New System.Drawing.Point(425, 92) Me.Label112.Location = New System.Drawing.Point(425, 119)
Me.Label112.Name = "Label112" Me.Label112.Name = "Label112"
Me.Label112.Size = New System.Drawing.Size(119, 13) Me.Label112.Size = New System.Drawing.Size(119, 13)
Me.Label112.TabIndex = 35 Me.Label112.TabIndex = 35
@@ -3818,26 +3829,26 @@ Partial Class usrcntlKundeBearbeitenFull
Me.dgvIDS_Rabatte.AllowUserToAddRows = False Me.dgvIDS_Rabatte.AllowUserToAddRows = False
Me.dgvIDS_Rabatte.AllowUserToDeleteRows = False Me.dgvIDS_Rabatte.AllowUserToDeleteRows = False
Me.dgvIDS_Rabatte.AllowUserToResizeRows = False Me.dgvIDS_Rabatte.AllowUserToResizeRows = False
DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle26.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvIDS_Rabatte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14 Me.dgvIDS_Rabatte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle26
Me.dgvIDS_Rabatte.BackgroundColor = System.Drawing.Color.White Me.dgvIDS_Rabatte.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle27.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle27.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle27.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle27.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle27.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle27.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvIDS_Rabatte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15 Me.dgvIDS_Rabatte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle27
Me.dgvIDS_Rabatte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvIDS_Rabatte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle28.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle28.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle28.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle28.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle28.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle28.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvIDS_Rabatte.DefaultCellStyle = DataGridViewCellStyle16 Me.dgvIDS_Rabatte.DefaultCellStyle = DataGridViewCellStyle28
Me.dgvIDS_Rabatte.Location = New System.Drawing.Point(9, 317) Me.dgvIDS_Rabatte.Location = New System.Drawing.Point(9, 317)
Me.dgvIDS_Rabatte.MultiSelect = False Me.dgvIDS_Rabatte.MultiSelect = False
Me.dgvIDS_Rabatte.Name = "dgvIDS_Rabatte" Me.dgvIDS_Rabatte.Name = "dgvIDS_Rabatte"
@@ -3925,7 +3936,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
'txtSonst_KdNrTOBB 'txtSonst_KdNrTOBB
' '
Me.txtSonst_KdNrTOBB.Location = New System.Drawing.Point(540, 50) Me.txtSonst_KdNrTOBB.Location = New System.Drawing.Point(540, 71)
Me.txtSonst_KdNrTOBB.MaxLength = 20 Me.txtSonst_KdNrTOBB.MaxLength = 20
Me.txtSonst_KdNrTOBB.Name = "txtSonst_KdNrTOBB" Me.txtSonst_KdNrTOBB.Name = "txtSonst_KdNrTOBB"
Me.txtSonst_KdNrTOBB.Size = New System.Drawing.Size(122, 20) Me.txtSonst_KdNrTOBB.Size = New System.Drawing.Size(122, 20)
@@ -3937,7 +3948,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label96.AutoSize = True Me.Label96.AutoSize = True
Me.Label96.Enabled = False Me.Label96.Enabled = False
Me.Label96.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label96.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label96.Location = New System.Drawing.Point(427, 53) Me.Label96.Location = New System.Drawing.Point(427, 74)
Me.Label96.Name = "Label96" Me.Label96.Name = "Label96"
Me.Label96.Size = New System.Drawing.Size(83, 13) Me.Label96.Size = New System.Drawing.Size(83, 13)
Me.Label96.TabIndex = 21 Me.Label96.TabIndex = 21
@@ -3978,26 +3989,26 @@ Partial Class usrcntlKundeBearbeitenFull
Me.dgvSonst_IDSKunden.AllowUserToAddRows = False Me.dgvSonst_IDSKunden.AllowUserToAddRows = False
Me.dgvSonst_IDSKunden.AllowUserToDeleteRows = False Me.dgvSonst_IDSKunden.AllowUserToDeleteRows = False
Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False
DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle29.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17 Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle29
Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle30.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle30.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle30.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle30.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle30.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle30.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle30.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle18 Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle30
Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle31.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle31.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle31.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle31.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle31.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle31.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle19 Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle31
Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 214) Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 214)
Me.dgvSonst_IDSKunden.MultiSelect = False Me.dgvSonst_IDSKunden.MultiSelect = False
Me.dgvSonst_IDSKunden.Name = "dgvSonst_IDSKunden" Me.dgvSonst_IDSKunden.Name = "dgvSonst_IDSKunden"
@@ -4007,37 +4018,37 @@ Partial Class usrcntlKundeBearbeitenFull
'cbxSonst_CsvAsfinag 'cbxSonst_CsvAsfinag
' '
Me.cbxSonst_CsvAsfinag.AutoSize = True Me.cbxSonst_CsvAsfinag.AutoSize = True
Me.cbxSonst_CsvAsfinag.Location = New System.Drawing.Point(428, 131) Me.cbxSonst_CsvAsfinag.Location = New System.Drawing.Point(504, 165)
Me.cbxSonst_CsvAsfinag.Name = "cbxSonst_CsvAsfinag" Me.cbxSonst_CsvAsfinag.Name = "cbxSonst_CsvAsfinag"
Me.cbxSonst_CsvAsfinag.Size = New System.Drawing.Size(136, 17) Me.cbxSonst_CsvAsfinag.Size = New System.Drawing.Size(62, 17)
Me.cbxSonst_CsvAsfinag.TabIndex = 15 Me.cbxSonst_CsvAsfinag.TabIndex = 15
Me.cbxSonst_CsvAsfinag.Text = "AT-Abrechnungsdaten " Me.cbxSonst_CsvAsfinag.Text = "AT-Abr."
Me.cbxSonst_CsvAsfinag.UseVisualStyleBackColor = True Me.cbxSonst_CsvAsfinag.UseVisualStyleBackColor = True
' '
'cbxSonst_CsvUTA 'cbxSonst_CsvUTA
' '
Me.cbxSonst_CsvUTA.AutoSize = True Me.cbxSonst_CsvUTA.AutoSize = True
Me.cbxSonst_CsvUTA.Location = New System.Drawing.Point(428, 177) Me.cbxSonst_CsvUTA.Location = New System.Drawing.Point(572, 165)
Me.cbxSonst_CsvUTA.Name = "cbxSonst_CsvUTA" Me.cbxSonst_CsvUTA.Name = "cbxSonst_CsvUTA"
Me.cbxSonst_CsvUTA.Size = New System.Drawing.Size(144, 17) Me.cbxSonst_CsvUTA.Size = New System.Drawing.Size(73, 17)
Me.cbxSonst_CsvUTA.TabIndex = 14 Me.cbxSonst_CsvUTA.TabIndex = 14
Me.cbxSonst_CsvUTA.Text = "UTA-Abrechnungsdaten " Me.cbxSonst_CsvUTA.Text = "UTA-Abr. "
Me.cbxSonst_CsvUTA.UseVisualStyleBackColor = True Me.cbxSonst_CsvUTA.UseVisualStyleBackColor = True
' '
'cbxSonst_CsvMSE 'cbxSonst_CsvMSE
' '
Me.cbxSonst_CsvMSE.AutoSize = True Me.cbxSonst_CsvMSE.AutoSize = True
Me.cbxSonst_CsvMSE.Location = New System.Drawing.Point(428, 154) Me.cbxSonst_CsvMSE.Location = New System.Drawing.Point(428, 165)
Me.cbxSonst_CsvMSE.Name = "cbxSonst_CsvMSE" Me.cbxSonst_CsvMSE.Name = "cbxSonst_CsvMSE"
Me.cbxSonst_CsvMSE.Size = New System.Drawing.Size(142, 17) Me.cbxSonst_CsvMSE.Size = New System.Drawing.Size(71, 17)
Me.cbxSonst_CsvMSE.TabIndex = 9 Me.cbxSonst_CsvMSE.TabIndex = 9
Me.cbxSonst_CsvMSE.Text = "MSE-Abrechnungsdaten" Me.cbxSonst_CsvMSE.Text = "MSE-Abr."
Me.cbxSonst_CsvMSE.UseVisualStyleBackColor = True Me.cbxSonst_CsvMSE.UseVisualStyleBackColor = True
' '
'cbxSonst_CsvMautbericht 'cbxSonst_CsvMautbericht
' '
Me.cbxSonst_CsvMautbericht.AutoSize = True Me.cbxSonst_CsvMautbericht.AutoSize = True
Me.cbxSonst_CsvMautbericht.Location = New System.Drawing.Point(428, 111) Me.cbxSonst_CsvMautbericht.Location = New System.Drawing.Point(428, 141)
Me.cbxSonst_CsvMautbericht.Name = "cbxSonst_CsvMautbericht" Me.cbxSonst_CsvMautbericht.Name = "cbxSonst_CsvMautbericht"
Me.cbxSonst_CsvMautbericht.Size = New System.Drawing.Size(82, 17) Me.cbxSonst_CsvMautbericht.Size = New System.Drawing.Size(82, 17)
Me.cbxSonst_CsvMautbericht.TabIndex = 2 Me.cbxSonst_CsvMautbericht.TabIndex = 2
@@ -4063,7 +4074,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
'txtSonst_KdNrTelepass 'txtSonst_KdNrTelepass
' '
Me.txtSonst_KdNrTelepass.Location = New System.Drawing.Point(540, 73) Me.txtSonst_KdNrTelepass.Location = New System.Drawing.Point(540, 94)
Me.txtSonst_KdNrTelepass.Name = "txtSonst_KdNrTelepass" Me.txtSonst_KdNrTelepass.Name = "txtSonst_KdNrTelepass"
Me.txtSonst_KdNrTelepass.Size = New System.Drawing.Size(122, 20) Me.txtSonst_KdNrTelepass.Size = New System.Drawing.Size(122, 20)
Me.txtSonst_KdNrTelepass.TabIndex = 11 Me.txtSonst_KdNrTelepass.TabIndex = 11
@@ -4072,7 +4083,7 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.Label74.AutoSize = True Me.Label74.AutoSize = True
Me.Label74.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label74.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label74.Location = New System.Drawing.Point(425, 76) Me.Label74.Location = New System.Drawing.Point(425, 97)
Me.Label74.Name = "Label74" Me.Label74.Name = "Label74"
Me.Label74.Size = New System.Drawing.Size(109, 13) Me.Label74.Size = New System.Drawing.Size(109, 13)
Me.Label74.TabIndex = 10 Me.Label74.TabIndex = 10
@@ -4115,7 +4126,7 @@ Partial Class usrcntlKundeBearbeitenFull
'txtSonst_KdNrIDS 'txtSonst_KdNrIDS
' '
Me.txtSonst_KdNrIDS.Enabled = False Me.txtSonst_KdNrIDS.Enabled = False
Me.txtSonst_KdNrIDS.Location = New System.Drawing.Point(540, 28) Me.txtSonst_KdNrIDS.Location = New System.Drawing.Point(540, 49)
Me.txtSonst_KdNrIDS.Name = "txtSonst_KdNrIDS" Me.txtSonst_KdNrIDS.Name = "txtSonst_KdNrIDS"
Me.txtSonst_KdNrIDS.Size = New System.Drawing.Size(122, 20) Me.txtSonst_KdNrIDS.Size = New System.Drawing.Size(122, 20)
Me.txtSonst_KdNrIDS.TabIndex = 4 Me.txtSonst_KdNrIDS.TabIndex = 4
@@ -4126,7 +4137,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label70.AutoSize = True Me.Label70.AutoSize = True
Me.Label70.Enabled = False Me.Label70.Enabled = False
Me.Label70.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label70.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label70.Location = New System.Drawing.Point(427, 28) Me.Label70.Location = New System.Drawing.Point(427, 49)
Me.Label70.Name = "Label70" Me.Label70.Name = "Label70"
Me.Label70.Size = New System.Drawing.Size(72, 13) Me.Label70.Size = New System.Drawing.Size(72, 13)
Me.Label70.TabIndex = 3 Me.Label70.TabIndex = 3
@@ -4308,26 +4319,26 @@ Partial Class usrcntlKundeBearbeitenFull
'DataGridView1 'DataGridView1
' '
Me.DataGridView1.AllowUserToResizeRows = False Me.DataGridView1.AllowUserToResizeRows = False
DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle45.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20 Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle45
Me.DataGridView1.BackgroundColor = System.Drawing.Color.White Me.DataGridView1.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle46.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle21.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle46.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle46.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle21.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle46.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle21.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle46.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle21.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle46.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle46.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle21 Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle46
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle47.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle22.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle47.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle47.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle22.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle47.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle47.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle47.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle47.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle22 Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle47
Me.DataGridView1.Enabled = False Me.DataGridView1.Enabled = False
Me.DataGridView1.Location = New System.Drawing.Point(6, 111) Me.DataGridView1.Location = New System.Drawing.Point(6, 111)
Me.DataGridView1.MultiSelect = False Me.DataGridView1.MultiSelect = False
@@ -4381,26 +4392,26 @@ Partial Class usrcntlKundeBearbeitenFull
' '
Me.dgvBankverbindungen.AllowUserToDeleteRows = False Me.dgvBankverbindungen.AllowUserToDeleteRows = False
Me.dgvBankverbindungen.AllowUserToResizeRows = False Me.dgvBankverbindungen.AllowUserToResizeRows = False
DataGridViewCellStyle23.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle48.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvBankverbindungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle23 Me.dgvBankverbindungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle48
Me.dgvBankverbindungen.BackgroundColor = System.Drawing.Color.White Me.dgvBankverbindungen.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle49.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle24.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle49.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle49.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle24.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle49.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle24.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle49.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle24.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle49.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle49.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle24 Me.dgvBankverbindungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle49
Me.dgvBankverbindungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvBankverbindungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle25.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle50.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle25.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle50.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle50.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle25.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle50.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle25.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle50.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle25.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle50.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle25.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle50.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvBankverbindungen.DefaultCellStyle = DataGridViewCellStyle25 Me.dgvBankverbindungen.DefaultCellStyle = DataGridViewCellStyle50
Me.dgvBankverbindungen.Location = New System.Drawing.Point(3, 40) Me.dgvBankverbindungen.Location = New System.Drawing.Point(3, 40)
Me.dgvBankverbindungen.MultiSelect = False Me.dgvBankverbindungen.MultiSelect = False
Me.dgvBankverbindungen.Name = "dgvBankverbindungen" Me.dgvBankverbindungen.Name = "dgvBankverbindungen"
@@ -5529,14 +5540,15 @@ Partial Class usrcntlKundeBearbeitenFull
Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail" Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
' '
'cbxCS_Added 'cbxCSInsolvent
' '
Me.cbxCS_Added.AutoSize = True Me.cbxCSInsolvent.AutoSize = True
Me.cbxCS_Added.Location = New System.Drawing.Point(406, 9) Me.cbxCSInsolvent.Location = New System.Drawing.Point(406, 26)
Me.cbxCS_Added.Name = "cbxCS_Added" Me.cbxCSInsolvent.Name = "cbxCSInsolvent"
Me.cbxCS_Added.Size = New System.Drawing.Size(15, 14) Me.cbxCSInsolvent.Size = New System.Drawing.Size(102, 17)
Me.cbxCS_Added.TabIndex = 37 Me.cbxCSInsolvent.TabIndex = 39
Me.cbxCS_Added.UseVisualStyleBackColor = True Me.cbxCSInsolvent.Text = "Kunde insolvent"
Me.cbxCSInsolvent.UseVisualStyleBackColor = True
' '
'usrcntlKundeBearbeitenFull 'usrcntlKundeBearbeitenFull
' '
@@ -5997,4 +6009,5 @@ Partial Class usrcntlKundeBearbeitenFull
Friend WithEvents cbxErstattungsart As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cbxErstattungsart As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cbpKopfsammelrechnung As CheckBox Friend WithEvents cbpKopfsammelrechnung As CheckBox
Friend WithEvents cbxCS_Added As CheckBox Friend WithEvents cbxCS_Added As CheckBox
Friend WithEvents cbxCSInsolvent As CheckBox
End Class End Class

18
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -213,6 +213,7 @@
txtVorauszahlung.Text = loadValue(KUNDE_ERW.kde_AnmerkungVZ, "") txtVorauszahlung.Text = loadValue(KUNDE_ERW.kde_AnmerkungVZ, "")
cbxFR.Checked = loadValue(KUNDE_ERW.kde_FR, False) cbxFR.Checked = loadValue(KUNDE_ERW.kde_FR, False)
cbxCS_Added.Checked = loadValue(KUNDE_ERW.kde_CSPortfolioAdded, False) cbxCS_Added.Checked = loadValue(KUNDE_ERW.kde_CSPortfolioAdded, False)
cbxCSInsolvent.Checked = IIf(Not IsDBNull(KUNDE_ERW.kde_CSinsolventAm), True, False)
txtFR.Text = loadValue(KUNDE_ERW.kde_AnmerkungFR, "") txtFR.Text = loadValue(KUNDE_ERW.kde_AnmerkungFR, "")
cbpKopfsammelrechnung.Checked = KUNDE_ERW.kde_Kopfsammelrechnung cbpKopfsammelrechnung.Checked = KUNDE_ERW.kde_Kopfsammelrechnung
txtAnmerkungAntraege.Text = loadValue(KUNDE_ERW.kde_AnmerkungAntrag, "") txtAnmerkungAntraege.Text = loadValue(KUNDE_ERW.kde_AnmerkungAntrag, "")
@@ -716,6 +717,7 @@
KUNDE_ERW.kde_txtVersicherungDeckungsquote = isLeerNothingDbl(txtVersicherungDeckungsquote._value) KUNDE_ERW.kde_txtVersicherungDeckungsquote = isLeerNothingDbl(txtVersicherungDeckungsquote._value)
KUNDE_ERW.kde_txtVersicherungNichtVersicherbar = cbxNichtVersicherbar.Checked KUNDE_ERW.kde_txtVersicherungNichtVersicherbar = cbxNichtVersicherbar.Checked
KUNDE_ERW.kde_CSPortfolioAdded = cbxCS_Added.Checked KUNDE_ERW.kde_CSPortfolioAdded = cbxCS_Added.Checked
KUNDE_ERW.kde_Versicherung_GemeldeterBetrag = isLeerNothingDbl(txtVersicherung_GemeldeterBetrag._value) KUNDE_ERW.kde_Versicherung_GemeldeterBetrag = isLeerNothingDbl(txtVersicherung_GemeldeterBetrag._value)
KUNDE_ERW.kde_txtVersicherungEHNr = isLeerNothing(txtVers_EHNr._value) KUNDE_ERW.kde_txtVersicherungEHNr = isLeerNothing(txtVers_EHNr._value)
@@ -2349,5 +2351,21 @@
If Not cbxVorauszahlung.Checked Then txtVorauszahlung.Text = "" If Not cbxVorauszahlung.Checked Then txtVorauszahlung.Text = ""
End Sub End Sub
Private Sub cbxCSInsolvent_CheckedChanged(sender As Object, e As EventArgs) Handles cbxCSInsolvent.CheckedChanged
If KUNDE_ERW.kde_CSinsolventAm IsNot Nothing AndAlso Not cbxCSInsolvent.Checked Then
If vbYes = MsgBox("Möchten Sie die Anmerkung der Insolvent deaktivieren?" & vbNewLine & " Diese Anmerkung wurde automatisch über die Creditsafe-API eingelesen!", vbYesNoCancel) Then
cbxCSInsolvent.Checked = False
KUNDE_ERW.kde_CSinsolventAm = Nothing
KUNDE_ERW.SAVE()
Else
cbxCSInsolvent.Checked = True
End If
ElseIf KUNDE_ERW.kde_CSinsolventAm Is Nothing And cbxCSInsolvent.Checked Then
MsgBox("Wert kann nicht manuell gesetzt werden!")
cbxCSInsolvent.Checked = False
End If
End Sub
End Class End Class

12
VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
View File

@@ -17,7 +17,6 @@ Public Class cKundenErweitert
'Property kde_Hoechstkredit As Object = Nothing 'Property kde_Hoechstkredit As Object = Nothing
Property kde_Versicherung_Deckungsstopp As Boolean = False Property kde_Versicherung_Deckungsstopp As Boolean = False
Property kde_Versicherung_DeckungsstoppDatum As Object = Nothing Property kde_Versicherung_DeckungsstoppDatum As Object = Nothing
Property kde_Versicherung_Uebergeben As Boolean = False Property kde_Versicherung_Uebergeben As Boolean = False
Property kde_Versicherung_UebergebenAm As Object = Nothing Property kde_Versicherung_UebergebenAm As Object = Nothing
Property kde_Versicherung_AnerkennungVersicherungsfall As Boolean = False Property kde_Versicherung_AnerkennungVersicherungsfall As Boolean = False
@@ -28,7 +27,6 @@ Public Class cKundenErweitert
Property kde_Versicherung_GemeldeterBetrag As Object = Nothing Property kde_Versicherung_GemeldeterBetrag As Object = Nothing
Property kde_txtVersicherungEHNr As Object = Nothing Property kde_txtVersicherungEHNr As Object = Nothing
Property kde_Leihgeld_Provision As Object = Nothing Property kde_Leihgeld_Provision As Object = Nothing
Property kde_Leihgeld_ProvisionPreisstaffel As Object = Nothing Property kde_Leihgeld_ProvisionPreisstaffel As Object = Nothing
Property kde_Leihgeld_ProvisionAuftraggeber As Object = Nothing Property kde_Leihgeld_ProvisionAuftraggeber As Object = Nothing
@@ -44,7 +42,6 @@ Public Class cKundenErweitert
Property Email_AVM As Boolean = False Property Email_AVM As Boolean = False
Property Depot_Kunde As Boolean = False Property Depot_Kunde As Boolean = False
Property FiBuSchnittstelleLG As Boolean = False Property FiBuSchnittstelleLG As Boolean = False
Property Zahlungsziel2 As Object = Nothing Property Zahlungsziel2 As Object = Nothing
Property Zahlungsziel3 As Object = Nothing Property Zahlungsziel3 As Object = Nothing
Property EmailAnkunft_Export As Boolean = False Property EmailAnkunft_Export As Boolean = False
@@ -53,7 +50,6 @@ Public Class cKundenErweitert
Property kde_CreditSaveBonitaetsklasse As Object = Nothing Property kde_CreditSaveBonitaetsklasse As Object = Nothing
Property kde_CreditSaveBonitaetsIndex As Object = Nothing Property kde_CreditSaveBonitaetsIndex As Object = Nothing
Property kde_CreditSaveBonitaetsScore As Object = Nothing Property kde_CreditSaveBonitaetsScore As Object = Nothing
Property kde_CreditSaveId As String = "" Property kde_CreditSaveId As String = ""
Property kde_CreditSaveNo As String = "" Property kde_CreditSaveNo As String = ""
Property kde_Inkasso_Uebergeben As Boolean = False Property kde_Inkasso_Uebergeben As Boolean = False
@@ -98,13 +94,8 @@ Public Class cKundenErweitert
Property kde_Erstattungsart As Object = Nothing Property kde_Erstattungsart As Object = Nothing
Property kde_BezFIBU As Object = Nothing Property kde_BezFIBU As Object = Nothing
Property kde_Kopfsammelrechnung As Boolean = False Property kde_Kopfsammelrechnung As Boolean = False
Property kde_CSPortfolioAdded As Boolean = False Property kde_CSPortfolioAdded As Boolean = False
Property kde_CSinsolventAm As Object = Nothing
Dim SQL As New SQL Dim SQL As New SQL
@@ -205,6 +196,7 @@ Public Class cKundenErweitert
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_BezFIBU", kde_BezFIBU)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_BezFIBU", kde_BezFIBU))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Kopfsammelrechnung", kde_Kopfsammelrechnung)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Kopfsammelrechnung", kde_Kopfsammelrechnung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CSPortfolioAdded", kde_CSPortfolioAdded)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CSPortfolioAdded", kde_CSPortfolioAdded))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CSinsolventAm", kde_CSinsolventAm))
Return list Return list
End Function End Function

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

@@ -5,7 +5,6 @@ Imports System.Net
Imports System.Reflection Imports System.Reflection
Imports System.Text.RegularExpressions Imports System.Text.RegularExpressions
Imports System.Threading Imports System.Threading
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
Public Class cCreditSafeAPI Public Class cCreditSafeAPI
@@ -471,9 +470,10 @@ Public Class cCreditSafeAPI
End Function End Function
Shared Function getCompanyEventsDetails(company As Company, ByRef dtEvents As DataTable, Optional checklastChecked As Boolean = False, Optional updateKunden As Boolean = False, Optional showError As Boolean = False, Optional getTotalNr As Boolean = False, Optional setzeKundenbesonderheiten As Boolean = False, Optional sendMail As Boolean = False, Optional firma As String = "VERAG") As String
Shared Function getCompanyEvents(company As Company, ByRef dtEvents As DataTable, ByRef companyDetailEvents As Boolean, ByRef maxPages As Integer, Optional checklastChecked As Boolean = False, Optional updateKunden As Boolean = False, Optional showError As Boolean = False, Optional getTotalNr As Boolean = False, Optional setzeKundenbesonderheiten As Boolean = False, Optional sendMail As Boolean = False, Optional firma As String = "VERAG", Optional page As Integer = 0) As String
'------------------------------- PRO KUNDE
'rest.AddQueryParam("from", Today().AddDays(-1)) 'rest.AddQueryParam("from", Today().AddDays(-1))
@@ -486,17 +486,8 @@ Public Class cCreditSafeAPI
End If End If
Dim failureDesc As String Dim failureDesc As String
Dim myUrl As String = API_STRING & "/v1/monitoring/companies/" & company.creditSafeId & "/events" & IIf(checklastChecked, "?startDate=" & checkDate, "")
Dim myUrl As String = "" Dim jsonRespString = SendGetRequestWithAuthHeader(myUrl, company, "application/json", "GET", token, failureDesc)
If Not companyDetailEvents Then
myUrl = API_STRING & "/v1/monitoring/portfolios/1662419/notificationEvents"
Else
myUrl = API_STRING & "/v1/monitoring/companies/" & company.creditSafeId & "/events" & IIf(checklastChecked, "?startDate=" & checkDate, "")
End If
Dim jsonRespString = SendGetRequestWithAuthHeader(myUrl, company, "application/json", "GET", token, failureDesc, Not companyDetailEvents,,, Not companyDetailEvents, page)
If failureDesc <> "" Then If failureDesc <> "" Then
If showError Then MsgBox(failureDesc) If showError Then MsgBox(failureDesc)
@@ -535,15 +526,6 @@ Public Class cCreditSafeAPI
Return "data not found." Return "data not found."
End If End If
Dim pagination As Chilkat.JsonObject = json.ObjectOf("pagination")
If Not (json.LastMethodSuccess = False) Then
Dim Lastpage As String = pagination.StringOf("last")
If IsNumeric(Lastpage) Then maxPages = Lastpage
End If
Dim numCompanies As Integer = companieData.Size Dim numCompanies As Integer = companieData.Size
Dim defaultCL As Double = -10000000 Dim defaultCL As Double = -10000000
@@ -585,51 +567,11 @@ Public Class cCreditSafeAPI
R("eventDate") = dateTime.GetAsTimestamp(getAsLocal) R("eventDate") = dateTime.GetAsTimestamp(getAsLocal)
R("createdDate") = dateTime.GetAsTimestamp(getAsLocal) R("createdDate") = dateTime.GetAsTimestamp(getAsLocal)
If IsDBNull(R("companyId")) Then
Dim compObjHead As Chilkat.JsonObject = compObj.ObjectOf("company")
R("companyId") = compObjHead.StringOf("id")
If IsDBNull(R("portfolioId")) Then R("portfolioId") = compObjHead.StringOf("portfolioId")
End If
dtEvents.Rows.Add(R) dtEvents.Rows.Add(R)
Dim dtKundenNr As New DataTable
If company.kdNr = 0 Then
dtKundenNr = SQL.loadDgvBySql("select distinct(ba_KundenNr),f.Firma from Kunden
inner join tblKundenErweitert on Kunden.KundenNr = kde_KundenNr
inner join Filialen as f on f.FilialenNr = Kunden.FilialenNr
inner join tblBonitaetsauskunft on ba_KundenNr = kde_KundenNr
where isnull(tblKundenErweitert.kde_CreditSaveId,'') ='" & R("companyId") & "'", "FMZOLL")
End If
If dtKundenNr.Rows.Count > 0 Then
For Each row As DataRow In dtKundenNr.Rows
company.kdNr = row("ba_KundenNr")
company.creditSafeId = R("companyId")
firma = row("Firma")
Dim currentBonID As String = (New SQL).getValueTxtBySql("Select Top(1) isnull(ba_id, -1) FROM [tblBonitaetsauskunft] where ba_KundenNr = " & company.kdNr & " AND [ba_Pruefungstool] = 'creditsafe API' ORDER BY ba_Datum DESC", "FMZOLL")
If currentBonID <> "" AndAlso IsNumeric(currentBonID) AndAlso currentBonID > 0 Then
company.csBonID = currentBonID
End If
createEvents(R, company.kdNr, company, CL, CR, CL_Datum, CR_Datum) createEvents(R, company.kdNr, company, CL, CR, CL_Datum, CR_Datum)
updateKundenWithEvent(company, CL, CR, CL_Datum, CR_Datum, setzeKundenbesonderheiten, defaultCR, defaultCL, updateKunden, sendMail, firma)
Next
company.kdNr = 0 'wichtig, wieder zurücksetzen!
Else
If company.kdNr <> 0 Then
createEvents(R, company.kdNr, company, CL, CR, CL_Datum, CR_Datum)
End If
End If
j = j + 1 j = j + 1
End While End While
'Next 'Next
@@ -640,21 +582,334 @@ Public Class cCreditSafeAPI
'viewEvents = New DataView(dtEvents, "localEventCode IN ('CL','CR') or e.globalEventCode IN ('CL','CR')", "", DataViewRowState.CurrentRows) 'viewEvents = New DataView(dtEvents, "localEventCode IN ('CL','CR') or e.globalEventCode IN ('CL','CR')", "", DataViewRowState.CurrentRows)
End If End If
If company.kdNr <> 0 AndAlso companyDetailEvents Then updateKundenWithEvent(company, CL, CR, CL_Datum, CR_Datum, setzeKundenbesonderheiten, defaultCR, defaultCL, updateKunden, sendMail, firma) Dim triggerMail As Boolean = False
Dim KUNDE As New cKunde(company.kdNr)
Dim Mailtext As String = ""
updateKundenWithEvent(KUNDE, company, CL, CR, CL_Datum, CR_Datum, setzeKundenbesonderheiten, defaultCR, defaultCL, updateKunden, sendMail, triggerMail, Mailtext, firma)
'If company.kdNr > 0 AndAlso (CR <> -1000000 Or CL <> -1000000) Then
' Dim KUNDE As New cKunde(company.kdNr)
' Dim Mailtext As String = ""
' If KUNDE.Bonitätsdatum <= CL_Datum Or KUNDE.Bonitätsdatum <= CR_Datum Then
' Dim Index As Double = -1
' Dim ADR As New cAdressen(KUNDE.KundenNr)
' Dim riskClass As String = ""
' Dim riskClassChanged As Boolean = False
' Dim KUNDE_ERW As New cKundenErweitert(KUNDE.KundenNr)
' If Not (ADR.LandKz = "AT" Or ADR.LandKz = "A") Then 'bei nicht österr. den Index nehmen, sonst den Score
' Index = IIf(CR = defaultCL, -1, calculatedBonIndexFromBonScore(CR, riskClass))
' Else
' If CR <> defaultCL Then calculatedBonIndexFromBonScore(CR, riskClass)
' End If
' If Index <> -1 Then
' If KUNDE_ERW.kde_CreditSaveBonitaetsIndex <> Index Then
' createInfo("B-INDEX", KUNDE_ERW, KUNDE, Index, riskClass, Mailtext, triggerMail, setzeKundenbesonderheiten)
' KUNDE_ERW.kde_CreditSaveBonitaetsIndex = Index
' KUNDE_ERW.kde_CreditSaveBonitaetsklasse = riskClass
' KUNDE.Bonitätsdatum = Today()
' End If
' Else
' If KUNDE_ERW.kde_CreditSaveBonitaetsScore <> CR AndAlso CR <> defaultCR Then
' createInfo("B-SCORE", KUNDE_ERW, KUNDE, CR, riskClass, Mailtext, triggerMail, setzeKundenbesonderheiten)
' KUNDE_ERW.kde_CreditSaveBonitaetsScore = CR
' KUNDE_ERW.kde_CreditSaveBonitaetsklasse = riskClass
' KUNDE.Bonitätsdatum = Today()
' End If
' End If
' If KUNDE.Höchstkredit <> CL AndAlso CL <> defaultCL Then
' createInfo("KREDITLIMIT", KUNDE_ERW, KUNDE, CL, riskClass, Mailtext, triggerMail, setzeKundenbesonderheiten)
' KUNDE.Höchstkredit = CL
' If KUNDE.Bonitätsdatum <= CDate(CL_Datum) Then
' KUNDE.Bonitätsdatum = Today()
' End If
' End If
' If updateKunden Then KUNDE_ERW.SAVE()
' End If
' If updateKunden Then KUNDE.SAVE()
If triggerMail AndAlso sendMail Then
Dim ADR As New cAdressen(KUNDE.KundenNr)
Dim empfanegerMail As String = "as@verag.ag"
Select Case firma
Case "VERAG" : empfanegerMail = "as@verag.ag"
Case "IMEX" : empfanegerMail = "Viktoria.Leirich@imex-group.at"
'Case "AMBAR" : empfanegerMail = "Buchhaltung@ambarlog.com"
'Case "UNISPED" : empfanegerMail = "sabine.muehlboeck@unisped.at"
End Select
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then empfanegerMail = "d.breimaier@verag.ag"
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfanegerMail, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "CREDITSAFE " & KUNDE.KundenNr, "Änderungen der Creditsafe-Daten von Kunden " & KUNDE.KundenNr & " " & ADR.Ordnungsbegriff & Mailtext.ToString & "<br><br>" & "*Automatic generated e-mail*",,,,, "d.breimaier@verag.ag")
End If
'End if
Return "Anzahl gefundener Datensätze: " & numCompanies Return "Anzahl gefundener Datensätze: " & numCompanies
End Function End Function
Private Shared Sub updateKundenWithEvent(company As Company, CL As Integer, CR As Integer, CL_Datum As Date, CR_Datum As Date, setzeKundenbesonderheiten As Boolean, defaultCR As Integer, defaultCL As Integer, updateKunden As Boolean, sendMail As Boolean, Optional firma As String = "VERAG")
Shared Function getCompanyEvents(company As Company, ByRef dtEvents As DataTable, ByRef companyDetailEvents As Boolean, ByRef maxPages As Integer, Optional checklastChecked As Boolean = False, Optional updateKunden As Boolean = False, Optional showError As Boolean = False, Optional getTotalNr As Boolean = False, Optional setzeKundenbesonderheiten As Boolean = False, Optional sendMail As Boolean = False, Optional firma As String = "VERAG", Optional page As Integer = 0) As String
'------------------------------- ALLE KUNDEN
Dim checkDate As String = ""
If company IsNot Nothing AndAlso IsDate(company.lastChecked) Then
checkDate = company.lastChecked.ToString("yyyy-MM-ddTHH:mm:ss")
Else
checkDate = Today().AddDays(-30).ToString("yyyy-MM-ddTHH:mm:ss")
End If
Dim failureDesc As String
Dim myUrl As String = API_STRING & "/v1/monitoring/portfolios/1662419/notificationEvents"
Dim jsonRespString = SendGetRequestWithAuthHeader(myUrl, company, "application/json", "GET", token, failureDesc, Not companyDetailEvents,,, Not companyDetailEvents, page)
If failureDesc <> "" Then
If showError Then MsgBox(failureDesc)
Return "Error" & vbNewLine & failureDesc & vbNewLine & myUrl
End If
Dim json As New Chilkat.JsonObject
Dim success As Boolean = json.Load(jsonRespString)
If (success <> True) Then
Debug.WriteLine(json.LastErrorText)
Return "Verbindungsfehler" & vbNewLine & json.LastErrorText
End If
If dtEvents.Columns.Count = 0 Then
dtEvents.Columns.Add("eventId", GetType(String))
dtEvents.Columns.Add("companyId", GetType(String))
dtEvents.Columns.Add("portfolioId", GetType(String))
dtEvents.Columns.Add("ruleName", GetType(String))
dtEvents.Columns.Add("localEventCode", GetType(String))
dtEvents.Columns.Add("globalEventCode", GetType(String))
dtEvents.Columns.Add("newValue", GetType(String))
dtEvents.Columns.Add("oldValue", GetType(String))
dtEvents.Columns.Add("eventDate", GetType(DateTime))
dtEvents.Columns.Add("createdDate", GetType(DateTime))
End If
dtEvents.Rows.Clear()
Dim num As Integer = json.SizeOfArray("data")
If num = 0 OrElse getTotalNr Then
Return json.StringOf("totalCount")
End If
Dim companieData As Chilkat.JsonArray = json.ArrayOf("data")
If (json.LastMethodSuccess = False) Then
Return "data not found."
End If
Dim pagination As Chilkat.JsonObject = json.ObjectOf("paging")
If Not (json.LastMethodSuccess = False) Then
Dim Lastpage As String = pagination.StringOf("last")
If IsNumeric(Lastpage) Then maxPages = Lastpage
End If
Dim numCompanies As Integer = companieData.Size
Dim defaultCL As Double = -10000000
Dim defaultCR As Integer = -10000000
Dim CL As Double = defaultCL
Dim CR As Integer = defaultCR
Dim CL_Datum As Date = company.lastChecked
Dim CR_Datum As Date = company.lastChecked
Dim j As Integer = 0
Dim lastcompanyID As String = ""
Dim Mailtext As String = ""
Dim triggerMail As Boolean = False Dim triggerMail As Boolean = False
If company.kdNr > 0 AndAlso (CR <> -1000000 Or CL <> -1000000) Then Dim triggerMailEnd As Boolean = False
Dim KUNDE As New cKunde(company.kdNr) Dim MailtextEnd As String = ""
Dim Mailtext As String = "" While j < numCompanies
Dim compObj As Chilkat.JsonObject = companieData.ObjectAt(j)
Dim compObjNext As Chilkat.JsonObject = Nothing
If (j + 1) < numCompanies Then
compObjNext = companieData.ObjectAt(j + 1)
Else
compObjNext = companieData.ObjectAt(j)
End If
Dim companychanges As Boolean = False
Dim index = companieData.FindString("eventId", False)
Dim dateTime As New Chilkat.CkDateTime
Dim dt As New Chilkat.DtObj
Dim getAsLocal As Boolean = False
success = compObj.DateOf("eventDate", dateTime)
success = compObj.DateOf("createdDate", dateTime)
Debug.WriteLine(dateTime.GetAsTimestamp(getAsLocal))
Dim R As DataRow = dtEvents.NewRow
R("eventId") = compObj.StringOf("eventId")
R("companyId") = compObj.StringOf("companyId")
R("portfolioId") = compObj.StringOf("portfolioId")
R("ruleName") = compObj.StringOf("ruleName")
R("localEventCode") = compObj.StringOf("localEventCode")
R("globalEventCode") = compObj.StringOf("globalEventCode")
R("oldValue") = compObj.StringOf("oldValue")
R("newValue") = compObj.StringOf("newValue")
R("eventDate") = dateTime.GetAsTimestamp(getAsLocal)
R("createdDate") = dateTime.GetAsTimestamp(getAsLocal)
If IsDBNull(R("companyId")) Then
Dim compObjHead As Chilkat.JsonObject = compObj.ObjectOf("company")
R("companyId") = compObjHead.StringOf("id")
If IsDBNull(R("portfolioId")) Then R("portfolioId") = compObjHead.StringOf("portfolioId")
End If
Dim nextcompid = ""
If compObjNext IsNot Nothing Then
Dim nextcompObjHead As Chilkat.JsonObject = compObjNext.ObjectOf("company")
nextcompid = nextcompObjHead.StringOf("id")
If nextcompid <> R("companyId") Then
companychanges = True
Else
companychanges = False
End If
End If
'dtEvents.Rows.Add(R)
Dim dtKundenNr As New DataTable
'If company.kdNr = 0 Then
dtKundenNr = SQL.loadDgvBySql("select distinct(ba_KundenNr),f.Firma from Kunden
inner join tblKundenErweitert on Kunden.KundenNr = kde_KundenNr
inner join Filialen as f on f.FilialenNr = Kunden.FilialenNr
inner join tblBonitaetsauskunft on ba_KundenNr = kde_KundenNr
where isnull(tblKundenErweitert.kde_CreditSaveId,'') ='" & R("companyId") & "'", "FMZOLL")
'End If
Dim dtFirmen As New DataTable()
If dtFirmen.Columns.Count = 0 Then dtFirmen.Columns.Add("Firma", GetType(String))
If dtKundenNr.Rows.Count > 0 Then
For Each row As DataRow In dtKundenNr.Rows
company.kdNr = row("ba_KundenNr")
company.creditSafeId = R("companyId")
firma = row("Firma")
Dim firmRow As DataRow = dtFirmen.NewRow
firmRow("Firma") = firma
dtFirmen.Rows.Add(firmRow)
Dim currentBonID As String = (New SQL).getValueTxtBySql("Select Top(1) isnull(ba_id, -1) FROM [tblBonitaetsauskunft] where ba_KundenNr = " & company.kdNr & " AND [ba_Pruefungstool] = 'creditsafe API' ORDER BY ba_Datum DESC", "FMZOLL")
If currentBonID <> "" AndAlso IsNumeric(currentBonID) AndAlso currentBonID > 0 Then
company.csBonID = currentBonID
End If
createEvents(R, company.kdNr, company, CL, CR, CL_Datum, CR_Datum)
Next
End If
'--------------------------------------------------------------------
If companychanges Then
If dtKundenNr.Rows.Count > 0 Then
For Each row As DataRow In dtKundenNr.Rows
Dim KUNDE As New cKunde(row("ba_KundenNr"))
company.kdNr = row("ba_KundenNr")
company.creditSafeId = R("companyId")
firma = row("Firma")
updateKundenWithEvent(KUNDE, company, CL, CR, CL_Datum, CR_Datum, setzeKundenbesonderheiten, defaultCR, defaultCL, updateKunden, sendMail, triggerMail, Mailtext, firma)
If company.kdNr <> 0 Then
If triggerMail AndAlso sendMail AndAlso Mailtext <> "" Then
Dim ADR As New cAdressen(company.kdNr)
Dim empfanegerMail = "as@verag.ag"
For Each firmRowTemp As DataRow In dtFirmen.Rows
Select Case firmRowTemp("Firma")
Case "VERAG" : empfanegerMail = "as@verag.ag"
Case "IMEX" : empfanegerMail = "Viktoria.Leirich@imex-group.at"
'Case "AMBAR" : empfanegerMail = "Buchhaltung@ambarlog.com"
'Case "UNISPED" : empfanegerMail = "sabine.muehlboeck@unisped.at"
End Select
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then empfanegerMail = "d.breimaier@verag.ag"
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfanegerMail, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "CREDITSAFE " & KUNDE.KundenNr & " (" & firmRowTemp("Firma") & ")", "Änderungen der Creditsafe-Daten von Kunden " & KUNDE.KundenNr & " " & ADR.Ordnungsbegriff & Mailtext.ToString & "<br><br>" & "*Automatic generated e-mail*",,,,, "d.breimaier@verag.ag")
Next
Mailtext = ""
End If
End If
Next
End If
'wichtig, alles wieder zurücksetzen!!!!!
CL = defaultCL
CR = defaultCR
CL_Datum = company.lastChecked
CR_Datum = company.lastChecked
company.kdNr = 0
triggerMail = False
Mailtext = ""
company.BANKRUPT_REGISTERED = False
End If
'--------------------------------------------------------------------
j = j + 1
End While
Return "Anzahl gefundener Datensätze: " & numCompanies
End Function
Private Shared Sub resetValues(com As Company)
End Sub
Private Shared Sub updateKundenWithEvent(KUNDE As cKunde, company As Company, CL As Integer, CR As Integer, CL_Datum As Date, CR_Datum As Date, setzeKundenbesonderheiten As Boolean, defaultCR As Integer, defaultCL As Integer, updateKunden As Boolean, sendMail As Boolean, ByRef triggerMail As Boolean, ByRef MailText As String, Optional firma As String = "VERAG")
If company.kdNr > 0 AndAlso (CR <> -1000000 Or CL <> -1000000) Then
If KUNDE.Bonitätsdatum <= CL_Datum Or KUNDE.Bonitätsdatum <= CR_Datum Then If KUNDE.Bonitätsdatum <= CL_Datum Or KUNDE.Bonitätsdatum <= CR_Datum Then
@@ -672,14 +927,14 @@ Public Class cCreditSafeAPI
If Index <> -1 Then If Index <> -1 Then
If KUNDE_ERW.kde_CreditSaveBonitaetsIndex <> Index Then If KUNDE_ERW.kde_CreditSaveBonitaetsIndex <> Index Then
createInfo("B-INDEX", KUNDE_ERW, KUNDE, Index, riskClass, Mailtext, triggerMail, setzeKundenbesonderheiten) createInfo("B-INDEX", KUNDE_ERW, KUNDE, Index, riskClass, MailText, triggerMail, setzeKundenbesonderheiten)
KUNDE_ERW.kde_CreditSaveBonitaetsIndex = Index KUNDE_ERW.kde_CreditSaveBonitaetsIndex = Index
KUNDE_ERW.kde_CreditSaveBonitaetsklasse = riskClass KUNDE_ERW.kde_CreditSaveBonitaetsklasse = riskClass
KUNDE.Bonitätsdatum = Today() KUNDE.Bonitätsdatum = Today()
End If End If
Else Else
If KUNDE_ERW.kde_CreditSaveBonitaetsScore <> CR AndAlso CR <> defaultCR Then If KUNDE_ERW.kde_CreditSaveBonitaetsScore <> CR AndAlso CR <> defaultCR Then
createInfo("B-SCORE", KUNDE_ERW, KUNDE, CR, riskClass, Mailtext, triggerMail, setzeKundenbesonderheiten) createInfo("B-SCORE", KUNDE_ERW, KUNDE, CR, riskClass, MailText, triggerMail, setzeKundenbesonderheiten)
KUNDE_ERW.kde_CreditSaveBonitaetsScore = CR KUNDE_ERW.kde_CreditSaveBonitaetsScore = CR
KUNDE_ERW.kde_CreditSaveBonitaetsklasse = riskClass KUNDE_ERW.kde_CreditSaveBonitaetsklasse = riskClass
KUNDE.Bonitätsdatum = Today() KUNDE.Bonitätsdatum = Today()
@@ -687,15 +942,16 @@ Public Class cCreditSafeAPI
End If End If
If KUNDE.Höchstkredit <> CL AndAlso CL <> defaultCL Then If KUNDE.Höchstkredit <> CL AndAlso CL <> defaultCL Then
createInfo("KREDITLIMIT", KUNDE_ERW, KUNDE, CL, riskClass, Mailtext, triggerMail, setzeKundenbesonderheiten) createInfo("KREDITLIMIT", KUNDE_ERW, KUNDE, CL, riskClass, MailText, triggerMail, setzeKundenbesonderheiten)
KUNDE.Höchstkredit = CL KUNDE.Höchstkredit = CL
If KUNDE.Bonitätsdatum <= CDate(CL_Datum) Then If KUNDE.Bonitätsdatum <= CDate(CL_Datum) Then
KUNDE.Bonitätsdatum = Today() KUNDE.Bonitätsdatum = Today()
End If End If
End If End If
If company.BANKRUPT_REGISTERED Then If company.BANKRUPT_REGISTERED AndAlso Not MailText.Contains("FÜR INSOLVENT ERKLÄRT") Then
createInfo("BANKRUPT_REGISTERED", KUNDE_ERW, KUNDE, CL, riskClass, Mailtext, triggerMail, setzeKundenbesonderheiten, company) createInfo("BANKRUPT_REGISTERED", KUNDE_ERW, KUNDE, CL, riskClass, MailText, triggerMail, setzeKundenbesonderheiten, company)
KUNDE_ERW.kde_CSinsolventAm = company.BANKRUPT_REGISTERED_DATE
End If End If
If updateKunden Then KUNDE_ERW.SAVE() If updateKunden Then KUNDE_ERW.SAVE()
@@ -703,24 +959,11 @@ Public Class cCreditSafeAPI
If updateKunden Then KUNDE.SAVE() If updateKunden Then KUNDE.SAVE()
If triggerMail AndAlso sendMail Then
Dim ADR As New cAdressen(KUNDE.KundenNr)
Dim empfanegerMail = IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "d.breimaier@verag.ag", "as@verag.ag")
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
Select Case firma
Case "VERAG" : empfanegerMail = "as@verag.ag"
Case "IMEX" : empfanegerMail = "Viktoria.Leirich@imex-group.at"
Case "AMBAR" : empfanegerMail = "Buchhaltung@ambarlog.com"
Case "UNISPED" : empfanegerMail = "sabine.muehlboeck@unisped.at"
End Select
End If
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfanegerMail, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "CREDITSAFE " & KUNDE.KundenNr, "Änderungen der Creditsafe-Daten von Kunden " & KUNDE.KundenNr & " " & ADR.Ordnungsbegriff & Mailtext.ToString & "<br><br>" & "*Automatic generated e-mail*",,,,, "d.breimaier@verag.ag")
End If
End If End If
End Sub End Sub
Private Shared Sub createEvents(R As DataRow, KundeNr As Integer, company As Company, CL As Integer, CR As Integer, ByRef CL_Datum As Date, ByRef CR_Datum As Date) Private Shared Sub createEvents(R As DataRow, KundeNr As Integer, company As Company, ByRef CL As Integer, ByRef CR As Integer, ByRef CL_Datum As Date, ByRef CR_Datum As Date)
Dim cEvent As New cCreditsafeEvent(CLng(R("eventId")), KundeNr) Dim cEvent As New cCreditsafeEvent(CLng(R("eventId")), KundeNr)
@@ -732,6 +975,8 @@ Public Class cCreditSafeAPI
Select Case R("localEventCode").trim() Select Case R("localEventCode").trim()
Case "DECREASE_LIMIT", "INCREASE_LIMIT" : globaleventcode = "CL" Case "DECREASE_LIMIT", "INCREASE_LIMIT" : globaleventcode = "CL"
Case "DECREASE_RATING", "INCREASE_RATING" : globaleventcode = "CR" Case "DECREASE_RATING", "INCREASE_RATING" : globaleventcode = "CR"
Case "55" : If R("companyId").ToString.StartsWith("NL") Then globaleventcode = "CR" 'nur Holland!
Case "56" : If R("companyId").ToString.StartsWith("NL") Then globaleventcode = "CL" 'nur Holland!
End Select End Select
End If End If
@@ -813,8 +1058,6 @@ Public Class cCreditSafeAPI
cEvent.kundenNr = company.kdNr cEvent.kundenNr = company.kdNr
cEvent.SAVE() cEvent.SAVE()
End Sub End Sub
@@ -1412,7 +1655,7 @@ Public Class cCreditSafeAPI
Select Case typ Select Case typ
Case "B-INDEX", "B-SCORE", "KREDITLIMIT" : textVermerk &= "ACHTUNG, Veränderung des " & typ & " von " & oldValue.ToString & " auf " & newValue.ToString & " ( um " & changedInProzent.ToString("F2") & "% ) " & Risk Case "B-INDEX", "B-SCORE", "KREDITLIMIT" : textVermerk &= "ACHTUNG, Veränderung des " & typ & " von " & oldValue.ToString & " auf " & newValue.ToString & " ( um " & changedInProzent.ToString("F2") & "% ) " & Risk
Case "BANKRUPT_REGISTERED" : textVermerk &= " KUNDE WURDE LAUT CREDITSAFE " & IIf(company IsNot Nothing, " AM " & company.BANKRUPT_REGISTERED_DATE.ToShortDateString, "") & " FÜR INSOLVENT ERKLÄRT " Case "BANKRUPT_REGISTERED" : textVermerk &= " KUNDE WURDE LAUT CREDITSAFE " & IIf(company IsNot Nothing, " AM " & company.BANKRUPT_REGISTERED_DATE.ToShortDateString, "") & " FÜR INSOLVENT ERKLÄRT " & Risk
End Select End Select
mailText &= "<br><br>" & textVermerk mailText &= "<br><br>" & textVermerk