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

Bonutaet, UIDPrüfung, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-06-16 16:12:14 +02:00
parent 9ebe4b84c0
commit 0ba8990907
10 changed files with 479 additions and 222 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/Fakturierung/frmFaktEmail.vb
View File

@@ -1,6 +1,4 @@
Imports System.Web.UI.HtmlControls Imports GrapeCity.DataVisualization.TypeScript
Imports System.Web.UI.WebControls.Expressions
Imports GrapeCity.DataVisualization.TypeScript
Imports Microsoft.Office.Interop Imports Microsoft.Office.Interop
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN

15
SDL/Fakturierung/frmRechnungenSuche.vb
View File

@@ -826,7 +826,12 @@ Public Class frmRechnungenSuche
End Sub End Sub
Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click, NachRechnungslandToolStripMenuItem.Click, NachLeistungsnummerToolStripMenuItem.Click, NachLeistungsnummerToolStripMenuItem.Click, NachZollabfertigungspreisenToolStripMenuItem.Click Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click, NachRechnungslandToolStripMenuItem.Click, NachLeistungsnummerToolStripMenuItem.Click, NachLeistungsnummerToolStripMenuItem.Click, NachZollabfertigungspreisenToolStripMenuItem.Click
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Auswertungen", Me) Then If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_Auswertungen", Me) Then
MsgBox("Keine Berechtigung!")
Exit Sub
End If
Dim sqlstr As String = "" Dim sqlstr As String = ""
@@ -851,6 +856,12 @@ Public Class frmRechnungenSuche
ElseIf sender Is NachLeistungsnummerToolStripMenuItem Then ElseIf sender Is NachLeistungsnummerToolStripMenuItem Then
If cboFirma._value = "" Then
MsgBox("Firma auswählen!")
cboFirma.Focus()
Exit Sub
End If
'Verag360 katt noch nicht alle Datensatze als Buchungen verfügbar, daher über die Rechnungen/Rechnungspositionen 'Verag360 katt noch nicht alle Datensatze als Buchungen verfügbar, daher über die Rechnungen/Rechnungspositionen
'------------------------------------------------------------------- '-------------------------------------------------------------------
' Select Case* FROM( SELECT Leistungsnummer, LeistungsBez, Year(Abfertigungsdatum) [Year] , ([tblTrdinProduct].[SteuerpflichtigerBetragLokal] + [tblTrdinProduct].[SteuerfreierBetragLokal]) AS [Der Wert] FROM tblTrdinInvoice ' Select Case* FROM( SELECT Leistungsnummer, LeistungsBez, Year(Abfertigungsdatum) [Year] , ([tblTrdinProduct].[SteuerpflichtigerBetragLokal] + [tblTrdinProduct].[SteuerfreierBetragLokal]) AS [Der Wert] FROM tblTrdinInvoice
@@ -969,7 +980,7 @@ Public Class frmRechnungenSuche
print.Viewer.LoadDocument(rpt) print.Viewer.LoadDocument(rpt)
print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
print.Show() print.Show()
End If
End Sub End Sub

1
SDL/SDL.vbproj
View File

@@ -3726,6 +3726,7 @@
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="Fakturierung\rptRechnungDruck.resx"> <EmbeddedResource Include="Fakturierung\rptRechnungDruck.resx">
<DependentUpon>rptRechnungDruck.vb</DependentUpon> <DependentUpon>rptRechnungDruck.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="Fakturierung\rptFaktRechnungAn.resx"> <EmbeddedResource Include="Fakturierung\rptFaktRechnungAn.resx">
<DependentUpon>rptFaktRechnungAn.vb</DependentUpon> <DependentUpon>rptFaktRechnungAn.vb</DependentUpon>

11
SDL/kunden/frmBonitaet.vb
View File

@@ -104,6 +104,7 @@ Public Class frmBonitaet
cboTool.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CreditSafe AT", "creditsafe AT")) cboTool.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CreditSafe AT", "creditsafe AT"))
cboTool.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CreditSafe", "creditsafe")) cboTool.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CreditSafe", "creditsafe"))
cboTool.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Creditreform", "creditreform")) cboTool.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Creditreform", "creditreform"))
cboTool.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Boniteti.rs", "boniteti"))
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
@@ -112,7 +113,14 @@ Public Class frmBonitaet
Case "UNISPED" : cboTool.changeItem("Creditreform") Case "UNISPED" : cboTool.changeItem("Creditreform")
Case Else : If Now.ToShortDateString >= DateTime.Parse("01/12/2022") Then Case Else : If Now.ToShortDateString >= DateTime.Parse("01/12/2022") Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID = 19 Then
cboTool.changeItem("Boniteti.rs")
Else
If ADRESSE.LandKz = "A" Or ADRESSE.LandKz = "AT" Then If ADRESSE.LandKz = "A" Or ADRESSE.LandKz = "AT" Then
cboTool.changeItem("CreditSafe AT") cboTool.changeItem("CreditSafe AT")
lblBonitätsindex.Text = "Boni-Score" lblBonitätsindex.Text = "Boni-Score"
@@ -122,6 +130,9 @@ Public Class frmBonitaet
lblBonitätsindex.Text = "Bonitätsindex:" lblBonitätsindex.Text = "Bonitätsindex:"
Label2.Visible = False Label2.Visible = False
End If End If
End If
Else Else
cboTool.changeItem("Creditreform") cboTool.changeItem("Creditreform")
lblBonitätsindex.Text = "Bonitätsindex:" lblBonitätsindex.Text = "Bonitätsindex:"

341
SDL/kunden/frmKundenblatt.Designer.vb generated
View File

@@ -31,10 +31,6 @@ Partial Class frmKundenblatt
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
@@ -44,6 +40,14 @@ Partial Class frmKundenblatt
Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKundenblatt)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKundenblatt))
Me.pnlInfo = New System.Windows.Forms.Panel() Me.pnlInfo = New System.Windows.Forms.Panel()
Me.txtInfotext = New System.Windows.Forms.Label() Me.txtInfotext = New System.Windows.Forms.Label()
@@ -205,6 +209,12 @@ Partial Class frmKundenblatt
Me.tbiKartenverwaltung = New System.Windows.Forms.ToolStripMenuItem() Me.tbiKartenverwaltung = New System.Windows.Forms.ToolStripMenuItem()
Me.tbiLKW = New System.Windows.Forms.ToolStripMenuItem() Me.tbiLKW = New System.Windows.Forms.ToolStripMenuItem()
Me.tbiVERAGCard = New System.Windows.Forms.ToolStripMenuItem() Me.tbiVERAGCard = New System.Windows.Forms.ToolStripMenuItem()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.dgvUmsatzNachLeistngsNr = New System.Windows.Forms.DataGridView()
Me.btnBonitaetBearbeiten = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.FlatButton6 = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.lblBonitaet = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label39 = New System.Windows.Forms.Label()
Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull() Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull()
Me.usrcntlKarten = New SDL.usrCntlKartenDaten() Me.usrcntlKarten = New SDL.usrCntlKartenDaten()
Me.UsrCntlLKW1 = New SDL.usrCntlLKW() Me.UsrCntlLKW1 = New SDL.usrCntlLKW()
@@ -260,6 +270,8 @@ Partial Class frmKundenblatt
Me.ContextMenuStrip3.SuspendLayout() Me.ContextMenuStrip3.SuspendLayout()
Me.mne.SuspendLayout() Me.mne.SuspendLayout()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
Me.TabPage3.SuspendLayout()
CType(Me.dgvUmsatzNachLeistngsNr, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'pnlInfo 'pnlInfo
@@ -324,6 +336,10 @@ Partial Class frmKundenblatt
'tbAllgemein 'tbAllgemein
' '
Me.tbAllgemein.BackColor = System.Drawing.Color.White Me.tbAllgemein.BackColor = System.Drawing.Color.White
Me.tbAllgemein.Controls.Add(Me.FlatButton6)
Me.tbAllgemein.Controls.Add(Me.lblBonitaet)
Me.tbAllgemein.Controls.Add(Me.Label39)
Me.tbAllgemein.Controls.Add(Me.btnBonitaetBearbeiten)
Me.tbAllgemein.Controls.Add(Me.TabControl1) Me.tbAllgemein.Controls.Add(Me.TabControl1)
Me.tbAllgemein.Controls.Add(Me.lblAdressenzusatz) Me.tbAllgemein.Controls.Add(Me.lblAdressenzusatz)
Me.tbAllgemein.Controls.Add(Me.Label11) Me.tbAllgemein.Controls.Add(Me.Label11)
@@ -363,6 +379,7 @@ Partial Class frmKundenblatt
' '
Me.TabControl1.Controls.Add(Me.TabPage1) Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2) Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Controls.Add(Me.TabPage3)
Me.TabControl1.Location = New System.Drawing.Point(8, 582) Me.TabControl1.Location = New System.Drawing.Point(8, 582)
Me.TabControl1.Name = "TabControl1" Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0 Me.TabControl1.SelectedIndex = 0
@@ -602,34 +619,34 @@ Partial Class frmKundenblatt
'dgvOfferte 'dgvOfferte
' '
Me.dgvOfferte.BackgroundColor = System.Drawing.Color.White Me.dgvOfferte.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle13.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)) DataGridViewCellStyle13.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 DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvOfferte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9 Me.dgvOfferte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle13
Me.dgvOfferte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvOfferte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle14.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)) DataGridViewCellStyle14.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 DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvOfferte.DefaultCellStyle = DataGridViewCellStyle10 Me.dgvOfferte.DefaultCellStyle = DataGridViewCellStyle14
Me.dgvOfferte.Location = New System.Drawing.Point(433, 37) Me.dgvOfferte.Location = New System.Drawing.Point(433, 37)
Me.dgvOfferte.Name = "dgvOfferte" Me.dgvOfferte.Name = "dgvOfferte"
Me.dgvOfferte.ReadOnly = True Me.dgvOfferte.ReadOnly = True
DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvOfferte.RowHeadersDefaultCellStyle = DataGridViewCellStyle11 Me.dgvOfferte.RowHeadersDefaultCellStyle = DataGridViewCellStyle15
Me.dgvOfferte.Size = New System.Drawing.Size(293, 320) Me.dgvOfferte.Size = New System.Drawing.Size(293, 320)
Me.dgvOfferte.TabIndex = 12 Me.dgvOfferte.TabIndex = 12
' '
@@ -893,27 +910,27 @@ Partial Class frmKundenblatt
Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.dgvSperrliste.BackgroundColor = System.Drawing.Color.White Me.dgvSperrliste.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle16.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)) DataGridViewCellStyle16.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 DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSperrliste.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12 Me.dgvSperrliste.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle16
Me.dgvSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle17.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)) DataGridViewCellStyle17.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.Color.Black DataGridViewCellStyle17.ForeColor = System.Drawing.Color.Black
DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvSperrliste.DefaultCellStyle = DataGridViewCellStyle13 Me.dgvSperrliste.DefaultCellStyle = DataGridViewCellStyle17
Me.dgvSperrliste.Location = New System.Drawing.Point(732, 36) Me.dgvSperrliste.Location = New System.Drawing.Point(732, 36)
Me.dgvSperrliste.Name = "dgvSperrliste" Me.dgvSperrliste.Name = "dgvSperrliste"
Me.dgvSperrliste.ReadOnly = True Me.dgvSperrliste.ReadOnly = True
Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle11 Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle15
Me.dgvSperrliste.Size = New System.Drawing.Size(446, 1126) Me.dgvSperrliste.Size = New System.Drawing.Size(446, 1126)
Me.dgvSperrliste.TabIndex = 23 Me.dgvSperrliste.TabIndex = 23
' '
@@ -1039,38 +1056,38 @@ Partial Class frmKundenblatt
' '
Me.dgvSDLLeistungenFull.AllowUserToAddRows = False Me.dgvSDLLeistungenFull.AllowUserToAddRows = False
Me.dgvSDLLeistungenFull.AllowUserToResizeRows = False Me.dgvSDLLeistungenFull.AllowUserToResizeRows = False
DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvSDLLeistungenFull.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14 Me.dgvSDLLeistungenFull.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle18
Me.dgvSDLLeistungenFull.BackgroundColor = System.Drawing.Color.White Me.dgvSDLLeistungenFull.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle19.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)) DataGridViewCellStyle19.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 DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSDLLeistungenFull.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15 Me.dgvSDLLeistungenFull.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle19
Me.dgvSDLLeistungenFull.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvSDLLeistungenFull.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle20.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle20.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)) DataGridViewCellStyle20.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 DataGridViewCellStyle20.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle20.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle20.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvSDLLeistungenFull.DefaultCellStyle = DataGridViewCellStyle16 Me.dgvSDLLeistungenFull.DefaultCellStyle = DataGridViewCellStyle20
Me.dgvSDLLeistungenFull.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvSDLLeistungenFull.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvSDLLeistungenFull.Location = New System.Drawing.Point(3, 50) Me.dgvSDLLeistungenFull.Location = New System.Drawing.Point(3, 50)
Me.dgvSDLLeistungenFull.Name = "dgvSDLLeistungenFull" Me.dgvSDLLeistungenFull.Name = "dgvSDLLeistungenFull"
Me.dgvSDLLeistungenFull.ReadOnly = True Me.dgvSDLLeistungenFull.ReadOnly = True
DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle21.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle21.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle21.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle21.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle17 Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle21
Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1624, 941) Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1624, 941)
Me.dgvSDLLeistungenFull.TabIndex = 5 Me.dgvSDLLeistungenFull.TabIndex = 5
@@ -1603,38 +1620,38 @@ Partial Class frmKundenblatt
' '
Me.dgvLKW.AllowUserToAddRows = False Me.dgvLKW.AllowUserToAddRows = False
Me.dgvLKW.AllowUserToDeleteRows = False Me.dgvLKW.AllowUserToDeleteRows = False
DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle22.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvLKW.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle18 Me.dgvLKW.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle22
Me.dgvLKW.BackgroundColor = System.Drawing.Color.White Me.dgvLKW.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle23.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle23.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle23.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.WindowText DataGridViewCellStyle23.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle23.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle23.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle23.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvLKW.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle19 Me.dgvLKW.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle23
Me.dgvLKW.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvLKW.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle20.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle20.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle24.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle20.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle24.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle20.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle24.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle20.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle24.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvLKW.DefaultCellStyle = DataGridViewCellStyle20 Me.dgvLKW.DefaultCellStyle = DataGridViewCellStyle24
Me.dgvLKW.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvLKW.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvLKW.Location = New System.Drawing.Point(0, 62) Me.dgvLKW.Location = New System.Drawing.Point(0, 62)
Me.dgvLKW.Name = "dgvLKW" Me.dgvLKW.Name = "dgvLKW"
Me.dgvLKW.ReadOnly = True Me.dgvLKW.ReadOnly = True
DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle25.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle21.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle25.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)) DataGridViewCellStyle25.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 DataGridViewCellStyle25.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle21.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle25.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle21.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle25.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle25.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle21 Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle25
Me.dgvLKW.RowHeadersVisible = False Me.dgvLKW.RowHeadersVisible = False
Me.dgvLKW.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvLKW.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvLKW.Size = New System.Drawing.Size(306, 957) Me.dgvLKW.Size = New System.Drawing.Size(306, 957)
@@ -2325,7 +2342,7 @@ Partial Class frmKundenblatt
' '
Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24) Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM" Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM"
Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4 Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8
Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4) Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4)
Me.cntxtCntxtMDM.Text = "cntxtMDM" Me.cntxtCntxtMDM.Text = "cntxtMDM"
' '
@@ -2459,6 +2476,126 @@ Partial Class frmKundenblatt
Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22) Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22)
Me.tbiVERAGCard.Text = "VERAG Card" Me.tbiVERAGCard.Text = "VERAG Card"
' '
'TabPage3
'
Me.TabPage3.Controls.Add(Me.dgvUmsatzNachLeistngsNr)
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Size = New System.Drawing.Size(710, 524)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "Umsatz nach LeistungsNr"
Me.TabPage3.UseVisualStyleBackColor = True
'
'dgvUmsatzNachLeistngsNr
'
Me.dgvUmsatzNachLeistngsNr.AllowUserToAddRows = False
Me.dgvUmsatzNachLeistngsNr.AllowUserToDeleteRows = False
Me.dgvUmsatzNachLeistngsNr.AllowUserToResizeRows = False
DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUmsatzNachLeistngsNr.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
Me.dgvUmsatzNachLeistngsNr.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.dgvUmsatzNachLeistngsNr.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle10.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.WindowText
DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvUmsatzNachLeistngsNr.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle10
Me.dgvUmsatzNachLeistngsNr.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvUmsatzNachLeistngsNr.DefaultCellStyle = DataGridViewCellStyle11
Me.dgvUmsatzNachLeistngsNr.Location = New System.Drawing.Point(2, 20)
Me.dgvUmsatzNachLeistngsNr.Name = "dgvUmsatzNachLeistngsNr"
Me.dgvUmsatzNachLeistngsNr.ReadOnly = True
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle12.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))
DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvUmsatzNachLeistngsNr.RowHeadersDefaultCellStyle = DataGridViewCellStyle12
Me.dgvUmsatzNachLeistngsNr.RowHeadersVisible = False
Me.dgvUmsatzNachLeistngsNr.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvUmsatzNachLeistngsNr.Size = New System.Drawing.Size(707, 484)
Me.dgvUmsatzNachLeistngsNr.TabIndex = 183
'
'btnBonitaetBearbeiten
'
Me.btnBonitaetBearbeiten.allowBorder = False
Me.btnBonitaetBearbeiten.BackgroundImage = Global.SDL.My.Resources.Resources.plus
Me.btnBonitaetBearbeiten.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnBonitaetBearbeiten.FlatAppearance.BorderSize = 0
Me.btnBonitaetBearbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBonitaetBearbeiten.ForeColor = System.Drawing.Color.Black
Me.btnBonitaetBearbeiten.Location = New System.Drawing.Point(568, 546)
Me.btnBonitaetBearbeiten.Name = "btnBonitaetBearbeiten"
Me.btnBonitaetBearbeiten.Size = New System.Drawing.Size(15, 12)
Me.btnBonitaetBearbeiten.TabIndex = 187
Me.btnBonitaetBearbeiten.UseVisualStyleBackColor = True
Me.btnBonitaetBearbeiten.Visible = False
'
'FlatButton6
'
Me.FlatButton6.allowBorder = False
Me.FlatButton6.BackgroundImage = Global.SDL.My.Resources.Resources.list
Me.FlatButton6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.FlatButton6.FlatAppearance.BorderSize = 0
Me.FlatButton6.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton6.ForeColor = System.Drawing.Color.Black
Me.FlatButton6.Location = New System.Drawing.Point(708, 547)
Me.FlatButton6.Name = "FlatButton6"
Me.FlatButton6.Size = New System.Drawing.Size(15, 12)
Me.FlatButton6.TabIndex = 191
Me.FlatButton6.UseVisualStyleBackColor = True
'
'lblBonitaet
'
Me.lblBonitaet._DateTimeOnly = False
Me.lblBonitaet._numbersOnly = False
Me.lblBonitaet._numbersOnlyKommastellen = ""
Me.lblBonitaet._numbersOnlyTrennzeichen = True
Me.lblBonitaet._Prozent = False
Me.lblBonitaet._ShortDateNew = False
Me.lblBonitaet._ShortDateOnly = False
Me.lblBonitaet._TimeOnly = False
Me.lblBonitaet._TimeOnly_Seconds = False
Me.lblBonitaet._value = Nothing
Me.lblBonitaet._Waehrung = False
Me.lblBonitaet._WaehrungZeichen = True
Me.lblBonitaet.BackColor = System.Drawing.Color.WhiteSmoke
Me.lblBonitaet.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.lblBonitaet.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblBonitaet.ForeColor = System.Drawing.Color.Black
Me.lblBonitaet.Location = New System.Drawing.Point(648, 546)
Me.lblBonitaet.MaxLineLength = -1
Me.lblBonitaet.MaxLines_Warning = ""
Me.lblBonitaet.MaxLines_Warning_Label = Nothing
Me.lblBonitaet.Name = "lblBonitaet"
Me.lblBonitaet.ReadOnly = True
Me.lblBonitaet.Size = New System.Drawing.Size(54, 13)
Me.lblBonitaet.TabIndex = 189
Me.lblBonitaet.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'Label39
'
Me.Label39.AutoSize = True
Me.Label39.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label39.Location = New System.Drawing.Point(591, 546)
Me.Label39.Name = "Label39"
Me.Label39.Size = New System.Drawing.Size(43, 13)
Me.Label39.TabIndex = 188
Me.Label39.Text = "Bonität:"
'
'UsrcntlKundeBearbeitenFull1 'UsrcntlKundeBearbeitenFull1
' '
Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White
@@ -2595,6 +2732,8 @@ Partial Class frmKundenblatt
Me.mne.PerformLayout() Me.mne.PerformLayout()
Me.pnl.ResumeLayout(False) Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout() Me.pnl.PerformLayout()
Me.TabPage3.ResumeLayout(False)
CType(Me.dgvUmsatzNachLeistngsNr, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@@ -2764,4 +2903,10 @@ Partial Class frmKundenblatt
Friend WithEvents TabPage1 As TabPage Friend WithEvents TabPage1 As TabPage
Friend WithEvents TabPage2 As TabPage Friend WithEvents TabPage2 As TabPage
Friend WithEvents Label13 As Label Friend WithEvents Label13 As Label
Friend WithEvents TabPage3 As TabPage
Friend WithEvents dgvUmsatzNachLeistngsNr As DataGridView
Friend WithEvents btnBonitaetBearbeiten As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents FlatButton6 As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents lblBonitaet As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label39 As Label
End Class End Class

73
SDL/kunden/frmKundenblatt.vb
View File

@@ -116,6 +116,10 @@ Public Class frmKundenblatt
If FilialeNr > 0 Then If FilialeNr > 0 Then
UsrcntlKundeBearbeitenFull1.Filiale = FilialeNr UsrcntlKundeBearbeitenFull1.Filiale = FilialeNr
End If End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Bonität_Bearbeiten", "SDL") Then
btnBonitaetBearbeiten.Visible = True
End If
'UsrcntlKundeBearbeitenFull1.BERECHTIGUNEN = BERECHTIGUNEN 'UsrcntlKundeBearbeitenFull1.BERECHTIGUNEN = BERECHTIGUNEN
Me.KeyPreview = True Me.KeyPreview = True
pnlInfo.Height = 0 pnlInfo.Height = 0
@@ -239,6 +243,7 @@ Public Class frmKundenblatt
End If End If
lblBonitaet.Text = If(KUNDE.Bonität, "")
Else Else
UsrcntlKundeBearbeitenFull1.Enabled = False UsrcntlKundeBearbeitenFull1.Enabled = False
@@ -2033,6 +2038,7 @@ Public Class frmKundenblatt
If loaded Then If loaded Then
initDGVOffenePosten() initDGVOffenePosten()
initDGVUmsatz() initDGVUmsatz()
initDGVUmsatzNachLeistungsNr()
End If End If
End Sub End Sub
@@ -2102,5 +2108,72 @@ Public Class frmKundenblatt
End Sub End Sub
Sub initDGVUmsatzNachLeistungsNr()
With dgvUmsatzNachLeistngsNr
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige Is Nothing Then Exit Sub
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige = "" Then Exit Sub
Dim where = ""
If cboFirmaFMZOLL._value <> "" Then
where = " AND [VermittlerKundenNr] = " & kdNr & " AND Firma_ID=" & cboFirmaFMZOLL._value
Else
where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN(" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ")")
where &= " AND [VermittlerKundenNr] = " & kdNr
End If
Dim sqlstr = ""
sqlstr &= " SELECT * FROM ( SELECT Leistungen.LeistungsNr, Leistungen.LeistungsBez,YEAR(Abfertigungsdatum ) [Year] , (RechnungsausgangPositionen.SteuerpflichtigerBetrag+RechnungsausgangPositionen.SteuerfreierBetrag ) AS "
sqlstr &= " [Der Wert] FROM Rechnungsausgang INNER JOIN (RechnungsausgangPositionen LEFT JOIN Leistungen ON RechnungsausgangPositionen.LeistungsNr = Leistungen.LeistungsNr) ON (Rechnungsausgang.RK_ID = RechnungsausgangPositionen.RK_ID) "
sqlstr &= " WHERE 1 = 1 "
sqlstr &= where
sqlstr &= " ) AS Rg"
sqlstr &= " PIVOT( SUM([Der Wert]) FOR [Year] IN (" & getJahrString() & ")) AS MNamePivot"
sqlstr &= " order by LeistungsNr"
.DataSource = SQL.loadDgvBySql(sqlstr, "FMZOLL")
If .DataSource Is Nothing Then Exit Sub
If .Columns.Count = 0 Then Exit Sub
For i = 0 To dgvUmsatzNachLeistngsNr.ColumnCount - 1
If i = 0 Then
.Columns(i).Width = 50
End If
If i > 1 Then
.Columns(i).Width = 75
.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
End If
Next
End With
End Sub
Function getJahrString() As String
getJahrString = ""
For j = Now.Year To 2010 Step -1
getJahrString &= "[" & j & "],"
Next
getJahrString = getJahrString.Substring(0, getJahrString.Length - 1)
End Function
Private Sub btnBonitaetBearbeiten_Click(sender As Object, e As EventArgs) Handles btnBonitaetBearbeiten.Click
Dim f1 As New frmBonitaet(kdNr)
f1.ShowDialog(Me)
KdSearchBox1.KdNr = kdNr 'aktualisieren
End Sub
Private Sub FlatButton6_Click(sender As Object, e As EventArgs) Handles FlatButton6.Click
Dim f As New frmBonitätsverlauf(kdNr)
f.Show()
AddHandler f.FormClosed, Sub()
KdSearchBox1.KdNr = kdNr
End Sub
End Sub
End Class End Class

160
SDL/kunden/usrCntlKundenuebersicht.resx
View File

@@ -123,90 +123,90 @@
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="Button4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="Button4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACQpJREFUaEPl iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACPhJREFUaEPl
mXlMlOkdx612m02brFe7bVNbNY2yXtHEVK1p0672Dw/wRAVFxFbARdAC4qICwkaqgqLoAoIgLvWEVRY8 mXtQk9kZh79qt7PTzqy3dttObdXpIKvi6IxTtUw77Wr/UK4KKKgI2Aq4CFpAXBSIsCPVBUVRAYkgLvUK
i+B6ACqnLCjHyDFcAzMc43AzM3z7e553GJhlAHWA2WS/ySeQ4Z3n9/2+z/tcL6N+9DIxmfMLMzOLDUPI qyx4LQILcpH7ZUGBIJeQQMgFiOFOLr/OOTRZkiAiAdOZfWeegQlfzvs+Oef7ct4Dw/zQw9R09c+srZ12
p5qmR1ZhYXGtMlkjhoro6CRQs9OF1kdQFKQNQ6jY2EcsyGKh9RHU2wbp6uqCSt2FTqUa7Z0qtHYo0dym zCCf6uZ4L8Fmpw+Kxb2YKVJSssEwzHLdPLMebHb6EGYw0tLyiIi5bp5Zj6mKqFQqKJQqjMqVGB5VYHBE
hKK1E/KWDjQ0dfDrjBYkOPj6oEHeJkSdop1fGxPzwDhBTp++OmCQtw0hlQvNXL2aYJwgAQEX+w3yLiFq jv4hOWSDo5AOjKCnb4ReZzSR2Ni7bxWZioRENkyvTU3NMY7IhQu3JxWZqoRIOjbM7duZxhGJirr+RpF3
Glv5dy5dumOcIH5+kXqDvGuI6gYhSFTUTeME8fUN6xPkfUJUypr5d8+fjzVOEB+fYJ0g7xuivFbBv3/u kejqHaTvuXHjkXFEIiKSJhR5V4nOnjGR5OT7xhEJD2friUxHgi/up++9ejXNOCJhYbFaItOVaBfK6Puv
XIxxgnh6BmqDGBKiTCLnbZw9e8U4QfbvP8GDGBqipLKeB/nyy4vGCeLmdpQHUVMQQ0IUl8t4kMDAC8YJ XEk1jkhISLRGxBCJNoGUjnH58i3jiBw7dpaKGCrRwu+mIpcuXTeOSEDAaSqiVBkm0dwupiLR0deMI+Lr
4ux8WAhCvWFICFFpLQ8SEBAx8kGWLVsW7ujoqWYGVGq1QSEKiyU8iL9/KJYuXZozYcKEX2nKDJ/GjRv3 e3JMRKkySKKpVUhFoqIS37/Ili1bEry9Q5SkAIVSaZBEY7OAikRGxmPz5s01Cxcu/IVuvhmP+fPn/2jr
k+XLl8c4ODjA0dGDG1Cq1AaFyC+q4u0cPRqE27dvY8WKFZg8efLvNCUN18SJEz9ctWqV38qVK9sIdGNp 1q2pXl5e8PYOpgXIFUqDJOo5HXSc06dj8PDhQ1hYWGDJkiW/0c097Vi0aNGHNjY2EZaWlkOWlpZQs2vX
uRkSSQ127HDjBtj4MCTEy4IK3s7hw6cREREBV1c3ba1eJE2bNu3PGmtvJ/rCX01NTcHw9z+J3FwRyspq bggEXdi/P4AWQO4PQyReNPDoOCdPXkBiYiL8/QM0ucaRbWJi8kfdGicNExOTP1tZWYEQGXkOtbVNaGvr
dBCLxbCx+Tc30EFBDAmR+1LM2/H2DoCTk1OfWqWlEnz11WWsX2/OPVGPRWus9q/Fixebs4sLCkpRXi7t 0oLL5cLN7Z+0gBG50iCJ2hdcOk5oaBR8fHz0crW2CvDVVzdhb+9Aa7KwsEjRrVkvzM3NHcjFDQ2taG8X
lxs3bsDKyokbYAPdkBA5uaW8HU9Pf7BHViqV663ZjYODIwuj0FjWLzMzM7q4FpWVsgHx8vLCWPMbGLPh vZF79+7B2dmHFkBudEMkampb6TghIZEgS1YkkurlG4+XlzeRkenWrhXW1tZobxeCzxdPCovFwjyHe5i7
AUycUvGpVybMj+dgR/BL7I4owL6oIhy8LOIcuV7CYb8fuCSCS2Qhdp3Lh/XpPJj+JxuL3NPw8T8f46fm IwemPkX4lFUBhzM12B/7AocSG3A0mYOgm02UU3dbKOT34zea4JfUiINX6uFyoQ5W/6rCxsBSfPz3Z/ix
CbxH5PJmFBZWoKioEsXF1bxXKiqkOvXXrFmDKVOmOGts64p6Y6e9/U5UV9cNiFTaCGdnZ5TJlUPOv5wO QyadEam0H42NPHA4fDQ3d9JZ4fFEWvm3bduGpUuX+urWT8Pc3PyAp+cBdHZKJkUk6oWvry/apPIZ5x8+
oLNTiYyMwgF59CgTNH67yPZowX0vrV69urOwsBQ1NQ0D0tTUir179+JpteqdSSXui5X45rUSVws7EfVK xzE6Kkd5eeOk5OVVwMbGRsUwzBxdD8bW1na0sbEVXV09k9LXN4gjR47geafinSnqVOApV45vXslxu3EU
F/sT8dQTRXjx4rWWtIx8BD2JRXhCgs7n5JetO58I7nuJdVdtbeOgKJVKWO89gevF6kG5WqTCsUwlPk99 yS+18TybAQ6Hg+rqVxpKy+sRk5+GhMxMrddtbW3J984nuh4MmS6hsPetyOVyuBw5i7vNyrdym6PAlxVy
O6yv1yEuLo4mmBItScmZsPjfKRwKi9T5fMuWLZg0aZKrxn6P1q5dC5lMPihSqRSfhaUgKE+tl8Dv1NiW fF40NVzuSpCeno7a2hYN2QUVcPrPeZxgJ2m9vmfPHixevNhf14PZvn07xGLpWxGJRPiMXYiYOuWERH+n
pMLqu++Hv78/8vPFg3LmzFksWrQoUWNf0IwZM36/bt061Ne/6ZfS0mqIRBVITk7GrsQ2eKV16bA7WY1P hGu2AraPp0dkZCTq67lv5eLFy9i4cWOWlsSKFSt+a2dnh+7u12+ktbUTTU08FBQU4GDWEFilKi0OFSjx
rhgOm0jKyoRaA5GamgGanKSaCIIoiNmhQz5obGzqQ01NPQ/RzYULF/DZky4tdo+68OG5LnwQNjTYup9E yS3DIQ+StraxXJNRVFQOa2trka6I9YkTYejt7dOjq6ubSqi5du0aPstXafDIU+HDKyp8wJ4Z3APPQSKR
XZ1cp6Y+SkqqaG1Zz8bJz4UUpJkzZ+4KCQnFmzfNOlRWsrm7VktFRS18fX1hdx+cP10CRgUMLQs8HqC1 auWciJaWDtjb25P75KcakZUrVx6Mi4vH69f9WvD55Nkt1MDjCREeHg6Pp6D84QbARM0s64NzMDg4rJX3
tV2nbn+Ym5uzIBOEFCQKctDFxZ2M10KhaKaZqYX3RHW1TAf2iG33iIDdLWCCHxX2GXrGfF6Hjo6OPrW7 TTg4OBCRheNFgvz8AsHnCyGT9aOvb4DORGenWAuyxPYFJ8LjAbAwAmDCZp65n0swMjKil1uNQCCGVCpD
kUhktNYokJhIa5cQ5NdCChIF8XRz86AZI4WTlVVEgZqoixtpcDdoaWtrx/pj6RjvRUVpqzVcFBYW6tRl VlaFWuSX40VCAgKCkZ5eSKms5EAm64NE0guRqEfD0NAw7L8swwIWwATMHo2NjVp5Cb29MrS3d+H+/SJN
NDYqqBdqcPNmqtbnhg0bWJDfCilIs2bNcnZ13a+9oDc5OSLqIfaoKaBSqTDDS45RtDsZThJozWB3vbm5 nTt27CAiv9aIrFq1ytff/5jmgvHU1DShr48sNRkUCgVWsKRgfDCrZGZm0k+9v7+f3g+PH5fo1UXYuXMn
mY+Hu3ef6/W2ceNGFuQ3QgoSBbHavdsV8fGpA3Lr1jNajER0h+rR1NyKey/kOH5XAatwBeZ61+Nj10Z8 EfnVeBHnQ4f8kZFRNCkPHhSjuroJIlE3+voH8aRaijOPZXBOkGFNaDc+9u/FB4dG9QrTRoV5vn0wOd6N
sLtTr7keujDWuQnTDtRj2ckGeMe34XJKA8plrfwpKCoqx4MH2Xrr94YF2bRpEwvySyEFafbs2X+xtbXH Led6EJoxhJuFPWgXD9JVwOG0IyenSi+3LkTE0dGRiPxcI2JmZvYnd3dPPHlSOk3KUFhYSyUbGrj0UyT3
vXtp70k6UlJyeciCAjG/i2y8SSR1tIjW85/s+RaLJXzqzM0txvPnr/hzrr+9wYmJSWA90k72PxJSkKhH m0AggVDYTX+S9c3lCuijs7a2GSUlL+k61x9raqSmZpIZGWYY5qPxM/KRk5MTsrMr/6/IyirXe01NUlIK
PrKwsEBSUtYPisTEDL2fMyIjo9l+q4Ds/0xIoZGlpSWePPlOLw8fZmLhwoUjjoeHt14/jOPHv8SCBQtu 2W81MAzzE40IiV27diE//7sJyc2twIYNG947wcGherWoOXPmEtavX/9QS4LE7t27UVz8ckKePMnDpk2b
a+z3aPPmzXj27JVe7t17hCVLlow4Bw966fXDcHbei6lTp3pr7PeIbcKyskR6iY6OZdsBLXfu3KHuTRoW 3jtBQSy9WtT4+h7BsmXLQnU9GLIJq6xsmpCUlDSyHdDw6NEjZGdnzwrj87BYoXq1qCH1MgxjoetBRKqz
etfx8vLW64fB/JLtFYL7XqI/vEhMTMHLl2V9CAuLoLO6pZaMjIxhIyQkRFvH2/sLvX4YVlZWLMgiwX0v sgrx4kWbHmx2IsjSU1NeXj5rxMXFafKEhn6hV4saZ2dnIrJR14NZvXq1Q3j4aTQ3d+iRnPxvxMTEIjr6
zZkzx9zX9yidyqr6EBX1XwQFBSMw8AyuXIlBXl4ezVA5yM5+QXcnG5mZ2WQiC+npWUhLyyQyaFZKp0cg Im7dSkVdXR2qq2tQVVWNysoqVFRUoby8EmVllSgtrUBpaTlKSspQXFyG589LUVhIKEFBQTHy84vx7Nlz
HU+fptGMxnhOG85n9Hw/w+PHT+lwlEpjLwXffptC0y0jmWazPNphy+ik6MLrnT8fyU+H3/dTVFTBgqjJ 5OUVITe3EN9+W4icHEIBamvrIBaL4ePjR/NdvZpEu0PdejgcHhFRMgzzO10PGnv37tVra8dz504W7a/p
9h8E99/T1q1btcdJfVy7lsjP10wdHZ200nfwfVFLSzstXm380KVQtPB9Gjuysk1nfb2CdghvNEcAOT/T ocPIKIaGRui+aGBgGP39Q7TpkskG6D6NtKxk09ndLYNE8vp/LYCU9jSkQRMIyBZIgo4OCR2b9ONCYQ8d
sAOaRMK2QHWoqqrjbbPzeG1tA297376jfWr3Jjg4FPPmzbtElvueEJkopTgnJ5/ugkwv4eE3eSF2HB3q ++jR03q5xxMbG4+1a9femLBDJOHs7MytqakHjyeekISE+zQRaUdnWoLLFdL+nERbGx9paU/18qtxcXEh
EGJxLT+fM5WVVSI29r5eDwxra2v2WP1DcN2Ptm3b1hUeHsUXrVevxFoePsymwlJeaLhCsFc/rC0me3t3 y+pvuvVrhaurqyohIZl+ab18ydWQm1uFjg4RTTRbEuToh4xFwtMzUCs/ISMjE+7uHjA1NT2n9Y3+ppgz
nfqM+PgE2NrawcTE5CRZ7VnR+9Po0aMX0GofRoetPAqmtrGxQWjoN7yAmr0iHaYQJSUSGgPVvM7Fizdg Z856MzMztp2dXZ2rq6vSzc0N8fHf0ARKckQ6SxItLQJ6ckLi+vV7cHPbB5Lb0dGxdd26dV8vWLDAnWGY
Y7OdsGFbkdL58+d/PX78eFuy9zdiHDf6rpo+ffbYhITnvMBwh3j9uoq/GGfauNGuksqPJcZwI4YqNDTu v5BDT92apxTLl5vNy8wsoQlmW+LVqw56ME5i504PPsMw8xiGmatb07QiPj79Ifk/CInZlmhq4tO/k/Dw
Nvs/CNNwhxCJKvnfmezs9rGx0HPeMFRhYXG8YaVSxceHMEY6eKiWljZtMHYgE8K1aMMxGhqEkOxg1hO0 OKrdbxgabHY6HVguV9D7Y+weGaFSAwNDGjHSkI3JDWjkCD09Y5KkMfte9PuTGbXsmHA3FSbB43VgzZoN
581Md1ghcD0PzFRRUYW5cxeGaGwYJjMzi8Vsa20sWVjsZL1i+KNlamrxd9Yj+jh7NpYWrq9x5sw1nDp1 cbr1TCusrZ3MydbaWOHkdIDMiuFLy8rK6a9kRibi8uU0xMR8jYsX7+D8+Zs4ezYZERFJOHUqASdPxiMs
GSdORMHPLxJHjoTj8OFQ+PgE0TbjNO2ZTsLd/Tjc3I7BxcUXe/Z8AUfHQ3BwOMhnJ/Zmf/t2F5pW99DW LAYs1gUEBZ1DYOAZBAR8CT+/cBw+/AW8vU/AyyuIPp3Iyf6+fX5wcTmMPXsO0uLVODp6jjIM83vduqYb
Yxc3382mTfadZOOPghvDxbbK443Ij0WjRv0fxAMdlKK/XzcAAAAASUVORK5CYII= ZKu8wIj8cOK/xAMdlNTj9YkAAAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="Button5.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="Button5.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACQpJREFUaEPl iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACPhJREFUaEPl
mXlMlOkdx612m02brFe7bVNbNY2yXtHEVK1p0672Dw/wRAVFxFbARdAC4qICwkaqgqLoAoIgLvWEVRY8 mXtQk9kZh79qt7PTzqy3dttObdXpIKvi6IxTtUw77Wr/UK4KKKgI2Aq4CFpAXBSIsCPVBUVRAYkgLvUK
i+B6ACqnLCjHyDFcAzMc43AzM3z7e553GJhlAHWA2WS/ySeQ4Z3n9/2+z/tcL6N+9DIxmfMLMzOLDUPI qyx4LQILcpH7ZUGBIJeQQMgFiOFOLr/OOTRZkiAiAdOZfWeegQlfzvs+Oef7ct4Dw/zQw9R09c+srZ12
p5qmR1ZhYXGtMlkjhoro6CRQs9OF1kdQFKQNQ6jY2EcsyGKh9RHU2wbp6uqCSt2FTqUa7Z0qtHYo0dym zCCf6uZ4L8Fmpw+Kxb2YKVJSssEwzHLdPLMebHb6EGYw0tLyiIi5bp5Zj6mKqFQqKJQqjMqVGB5VYHBE
hKK1E/KWDjQ0dfDrjBYkOPj6oEHeJkSdop1fGxPzwDhBTp++OmCQtw0hlQvNXL2aYJwgAQEX+w3yLiFq jv4hOWSDo5AOjKCnb4ReZzSR2Ni7bxWZioRENkyvTU3NMY7IhQu3JxWZqoRIOjbM7duZxhGJirr+RpF3
Glv5dy5dumOcIH5+kXqDvGuI6gYhSFTUTeME8fUN6xPkfUJUypr5d8+fjzVOEB+fYJ0g7xuivFbBv3/u kejqHaTvuXHjkXFEIiKSJhR5V4nOnjGR5OT7xhEJD2friUxHgi/up++9ejXNOCJhYbFaItOVaBfK6Puv
XIxxgnh6BmqDGBKiTCLnbZw9e8U4QfbvP8GDGBqipLKeB/nyy4vGCeLmdpQHUVMQQ0IUl8t4kMDAC8YJ XEk1jkhISLRGxBCJNoGUjnH58i3jiBw7dpaKGCrRwu+mIpcuXTeOSEDAaSqiVBkm0dwupiLR0deMI+Lr
4ux8WAhCvWFICFFpLQ8SEBAx8kGWLVsW7ujoqWYGVGq1QSEKiyU8iL9/KJYuXZozYcKEX2nKDJ/GjRv3 e3JMRKkySKKpVUhFoqIS37/Ili1bEry9Q5SkAIVSaZBEY7OAikRGxmPz5s01Cxcu/IVuvhmP+fPn/2jr
k+XLl8c4ODjA0dGDG1Cq1AaFyC+q4u0cPRqE27dvY8WKFZg8efLvNCUN18SJEz9ctWqV38qVK9sIdGNp 1q2pXl5e8PYOpgXIFUqDJOo5HXSc06dj8PDhQ1hYWGDJkiW/0c097Vi0aNGHNjY2EZaWlkOWlpZQs2vX
uRkSSQ127HDjBtj4MCTEy4IK3s7hw6cREREBV1c3ba1eJE2bNu3PGmtvJ/rCX01NTcHw9z+J3FwRyspq bggEXdi/P4AWQO4PQyReNPDoOCdPXkBiYiL8/QM0ucaRbWJi8kfdGicNExOTP1tZWYEQGXkOtbVNaGvr
dBCLxbCx+Tc30EFBDAmR+1LM2/H2DoCTk1OfWqWlEnz11WWsX2/OPVGPRWus9q/Fixebs4sLCkpRXi7t 0oLL5cLN7Z+0gBG50iCJ2hdcOk5oaBR8fHz0crW2CvDVVzdhb+9Aa7KwsEjRrVkvzM3NHcjFDQ2taG8X
lxs3bsDKyokbYAPdkBA5uaW8HU9Pf7BHViqV663ZjYODIwuj0FjWLzMzM7q4FpWVsgHx8vLCWPMbGLPh vZF79+7B2dmHFkBudEMkampb6TghIZEgS1YkkurlG4+XlzeRkenWrhXW1tZobxeCzxdPCovFwjyHe5i7
AUycUvGpVybMj+dgR/BL7I4owL6oIhy8LOIcuV7CYb8fuCSCS2Qhdp3Lh/XpPJj+JxuL3NPw8T8f46fm IwemPkX4lFUBhzM12B/7AocSG3A0mYOgm02UU3dbKOT34zea4JfUiINX6uFyoQ5W/6rCxsBSfPz3Z/ix
CbxH5PJmFBZWoKioEsXF1bxXKiqkOvXXrFmDKVOmOGts64p6Y6e9/U5UV9cNiFTaCGdnZ5TJlUPOv5wO QyadEam0H42NPHA4fDQ3d9JZ4fFEWvm3bduGpUuX+urWT8Pc3PyAp+cBdHZKJkUk6oWvry/apPIZ5x8+
oLNTiYyMwgF59CgTNH67yPZowX0vrV69urOwsBQ1NQ0D0tTUir179+JpteqdSSXui5X45rUSVws7EfVK xzE6Kkd5eeOk5OVVwMbGRsUwzBxdD8bW1na0sbEVXV09k9LXN4gjR47geafinSnqVOApV45vXslxu3EU
F/sT8dQTRXjx4rWWtIx8BD2JRXhCgs7n5JetO58I7nuJdVdtbeOgKJVKWO89gevF6kG5WqTCsUwlPk99 yS+18TybAQ6Hg+rqVxpKy+sRk5+GhMxMrddtbW3J984nuh4MmS6hsPetyOVyuBw5i7vNyrdym6PAlxVy
O6yv1yEuLo4mmBItScmZsPjfKRwKi9T5fMuWLZg0aZKrxn6P1q5dC5lMPihSqRSfhaUgKE+tl8Dv1NiW fF40NVzuSpCeno7a2hYN2QUVcPrPeZxgJ2m9vmfPHixevNhf14PZvn07xGLpWxGJRPiMXYiYOuWERH+n
pMLqu++Hv78/8vPFg3LmzFksWrQoUWNf0IwZM36/bt061Ne/6ZfS0mqIRBVITk7GrsQ2eKV16bA7WY1P hGu2AraPp0dkZCTq67lv5eLFy9i4cWOWlsSKFSt+a2dnh+7u12+ktbUTTU08FBQU4GDWEFilKi0OFSjx
rhgOm0jKyoRaA5GamgGanKSaCIIoiNmhQz5obGzqQ01NPQ/RzYULF/DZky4tdo+68OG5LnwQNjTYup9E yS3DIQ+StraxXJNRVFQOa2trka6I9YkTYejt7dOjq6ubSqi5du0aPstXafDIU+HDKyp8wJ4Z3APPQSKR
XZ1cp6Y+SkqqaG1Zz8bJz4UUpJkzZ+4KCQnFmzfNOlRWsrm7VktFRS18fX1hdx+cP10CRgUMLQs8HqC1 auWciJaWDtjb25P75KcakZUrVx6Mi4vH69f9WvD55Nkt1MDjCREeHg6Pp6D84QbARM0s64NzMDg4rJX3
tV2nbn+Ym5uzIBOEFCQKctDFxZ2M10KhaKaZqYX3RHW1TAf2iG33iIDdLWCCHxX2GXrGfF6Hjo6OPrW7 TTg4OBCRheNFgvz8AsHnCyGT9aOvb4DORGenWAuyxPYFJ8LjAbAwAmDCZp65n0swMjKil1uNQCCGVCpD
kUhktNYokJhIa5cQ5NdCChIF8XRz86AZI4WTlVVEgZqoixtpcDdoaWtrx/pj6RjvRUVpqzVcFBYW6tRl VlaFWuSX40VCAgKCkZ5eSKms5EAm64NE0guRqEfD0NAw7L8swwIWwATMHo2NjVp5Cb29MrS3d+H+/SJN
NDYqqBdqcPNmqtbnhg0bWJDfCilIs2bNcnZ13a+9oDc5OSLqIfaoKaBSqTDDS45RtDsZThJozWB3vbm5 nTt27CAiv9aIrFq1ytff/5jmgvHU1DShr48sNRkUCgVWsKRgfDCrZGZm0k+9v7+f3g+PH5fo1UXYuXMn
mY+Hu3ef6/W2ceNGFuQ3QgoSBbHavdsV8fGpA3Lr1jNajER0h+rR1NyKey/kOH5XAatwBeZ61+Nj10Z8 EfnVeBHnQ4f8kZFRNCkPHhSjuroJIlE3+voH8aRaijOPZXBOkGFNaDc+9u/FB4dG9QrTRoV5vn0wOd6N
sLtTr7keujDWuQnTDtRj2ckGeMe34XJKA8plrfwpKCoqx4MH2Xrr94YF2bRpEwvySyEFafbs2X+xtbXH Led6EJoxhJuFPWgXD9JVwOG0IyenSi+3LkTE0dGRiPxcI2JmZvYnd3dPPHlSOk3KUFhYSyUbGrj0UyT3
vXtp70k6UlJyeciCAjG/i2y8SSR1tIjW85/s+RaLJXzqzM0txvPnr/hzrr+9wYmJSWA90k72PxJSkKhH m0AggVDYTX+S9c3lCuijs7a2GSUlL+k61x9raqSmZpIZGWYY5qPxM/KRk5MTsrMr/6/IyirXe01NUlIK
PrKwsEBSUtYPisTEDL2fMyIjo9l+q4Ds/0xIoZGlpSWePPlOLw8fZmLhwoUjjoeHt14/jOPHv8SCBQtu 2W81MAzzE40IiV27diE//7sJyc2twIYNG947wcGherWoOXPmEtavX/9QS4LE7t27UVz8ckKePMnDpk2b
a+z3aPPmzXj27JVe7t17hCVLlow4Bw966fXDcHbei6lTp3pr7PeIbcKyskR6iY6OZdsBLXfu3KHuTRoW 3jtBQSy9WtT4+h7BsmXLQnU9GLIJq6xsmpCUlDSyHdDw6NEjZGdnzwrj87BYoXq1qCH1MgxjoetBRKqz
etfx8vLW64fB/JLtFYL7XqI/vEhMTMHLl2V9CAuLoLO6pZaMjIxhIyQkRFvH2/sLvX4YVlZWLMgiwX0v sgrx4kWbHmx2IsjSU1NeXj5rxMXFafKEhn6hV4saZ2dnIrJR14NZvXq1Q3j4aTQ3d+iRnPxvxMTEIjr6
zZkzx9zX9yidyqr6EBX1XwQFBSMw8AyuXIlBXl4ezVA5yM5+QXcnG5mZ2WQiC+npWUhLyyQyaFZKp0cg Im7dSkVdXR2qq2tQVVWNysoqVFRUoby8EmVllSgtrUBpaTlKSspQXFyG589LUVhIKEFBQTHy84vx7Nlz
HU+fptGMxnhOG85n9Hw/w+PHT+lwlEpjLwXffptC0y0jmWazPNphy+ik6MLrnT8fyU+H3/dTVFTBgqjJ 5OUVITe3EN9+W4icHEIBamvrIBaL4ePjR/NdvZpEu0PdejgcHhFRMgzzO10PGnv37tVra8dz504W7a/p
9h8E99/T1q1btcdJfVy7lsjP10wdHZ200nfwfVFLSzstXm380KVQtPB9Gjuysk1nfb2CdghvNEcAOT/T ocPIKIaGRui+aGBgGP39Q7TpkskG6D6NtKxk09ndLYNE8vp/LYCU9jSkQRMIyBZIgo4OCR2b9ONCYQ8d
sAOaRMK2QHWoqqrjbbPzeG1tA297376jfWr3Jjg4FPPmzbtElvueEJkopTgnJ5/ugkwv4eE3eSF2HB3q ++jR03q5xxMbG4+1a9femLBDJOHs7MytqakHjyeekISE+zQRaUdnWoLLFdL+nERbGx9paU/18qtxcXEh
EGJxLT+fM5WVVSI29r5eDwxra2v2WP1DcN2Ptm3b1hUeHsUXrVevxFoePsymwlJeaLhCsFc/rC0me3t3 y+pvuvVrhaurqyohIZl+ab18ydWQm1uFjg4RTTRbEuToh4xFwtMzUCs/ISMjE+7uHjA1NT2n9Y3+ppgz
nfqM+PgE2NrawcTE5CRZ7VnR+9Po0aMX0GofRoetPAqmtrGxQWjoN7yAmr0iHaYQJSUSGgPVvM7Fizdg Z856MzMztp2dXZ2rq6vSzc0N8fHf0ARKckQ6SxItLQJ6ckLi+vV7cHPbB5Lb0dGxdd26dV8vWLDAnWGY
Y7OdsGFbkdL58+d/PX78eFuy9zdiHDf6rpo+ffbYhITnvMBwh3j9uoq/GGfauNGuksqPJcZwI4YqNDTu v5BDT92apxTLl5vNy8wsoQlmW+LVqw56ME5i504PPsMw8xiGmatb07QiPj79Ifk/CInZlmhq4tO/k/Dw
Nvs/CNNwhxCJKvnfmezs9rGx0HPeMFRhYXG8YaVSxceHMEY6eKiWljZtMHYgE8K1aMMxGhqEkOxg1hO0 OKrdbxgabHY6HVguV9D7Y+weGaFSAwNDGjHSkI3JDWjkCD09Y5KkMfte9PuTGbXsmHA3FSbB43VgzZoN
581Md1ghcD0PzFRRUYW5cxeGaGwYJjMzi8Vsa20sWVjsZL1i+KNlamrxd9Yj+jh7NpYWrq9x5sw1nDp1 cbr1TCusrZ3MydbaWOHkdIDMiuFLy8rK6a9kRibi8uU0xMR8jYsX7+D8+Zs4ezYZERFJOHUqASdPxiMs
GSdORMHPLxJHjoTj8OFQ+PgE0TbjNO2ZTsLd/Tjc3I7BxcUXe/Z8AUfHQ3BwOMhnJ/Zmf/t2F5pW99DW LAYs1gUEBZ1DYOAZBAR8CT+/cBw+/AW8vU/AyyuIPp3Iyf6+fX5wcTmMPXsO0uLVODp6jjIM83vduqYb
Yxc3382mTfadZOOPghvDxbbK443Ij0WjRv0fxAMdlKK/XzcAAAAASUVORK5CYII= ZKu8wIj8cOK/xAMdlNTj9YkAAAAASUVORK5CYII=
</value> </value>
</data> </data>
<metadata name="KtoId.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="KtoId.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">

12
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -3256,4 +3256,16 @@ Public Class usrCntlKundenuebersicht
End If End If
End If End If
End Sub End Sub
Private Sub lblBonitaet_TextChanged(sender As Object, e As EventArgs) Handles lblBonitaet.TextChanged
End Sub
Private Sub lblBonitaetRisikostufe_TextChanged(sender As Object, e As EventArgs) Handles lblBonitaetRisikostufe.TextChanged
End Sub
Private Sub Label39_Click(sender As Object, e As EventArgs) Handles Label39.Click
End Sub
End Class End Class

2
SDL/seriendruck/usrCntlFakturierung.vb
View File

@@ -78,7 +78,7 @@ Public Class usrcntlFakturierung
btnLieferantenrechnungen.Enabled = True btnLieferantenrechnungen.Enabled = True
btnMDMSammelrechnung.Enabled = False btnMDMSammelrechnung.Enabled = False
btnFakturierung.Enabled = False btnFakturierung.Enabled = False
btnRechnugnsdaten.Enabled = False btnRechnugnsdaten.Enabled = True
End If End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then

12
VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb
View File

@@ -2,6 +2,7 @@
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports System.Reflection Imports System.Reflection
Imports System.Threading Imports System.Threading
Imports com.sun.org.apache.xalan.internal.xsltc.compiler.util
Imports VERAG_PROG_ALLGEMEIN.UIDPruefung Imports VERAG_PROG_ALLGEMEIN.UIDPruefung
'Imports SDL.eu.europa.ec 'Imports SDL.eu.europa.ec
@@ -147,7 +148,7 @@ Public Class cUIDPruefung
End Function End Function
Public Shared Function doUIDPruefungALL(Optional datum As Object = Nothing, Optional SaveErgInAdressen As Boolean = True, Optional Sciherheitsabfrage As Boolean = True, Optional MaxEintraege As Integer = -1, Optional showErr As Boolean = True) As DataTable Public Shared Function doUIDPruefungALL(Optional datum As Object = Nothing, Optional SaveErgInAdressen As Boolean = True, Optional Sciherheitsabfrage As Boolean = True, Optional MaxEintraege As Integer = -1, Optional showErr As Boolean = True, Optional finanzOnline As Boolean = True) As DataTable
Dim dt As DataTable = Nothing Dim dt As DataTable = Nothing
If datum = Nothing Then datum = CDate("15." & Now.ToString("MM.yyyy")).AddMonths(-1) If datum = Nothing Then datum = CDate("15." & Now.ToString("MM.yyyy")).AddMonths(-1)
@@ -191,7 +192,7 @@ Public Class cUIDPruefung
'------------------------------------------------ '------------------------------------------------
'ENTWEDER ÜBER EU-KOMISSION ODER FINANZONLINE:::: 'ENTWEDER ÜBER EU-KOMISSION ODER FINANZONLINE::::
Dim ART = "FINANZONLINE" Dim ART = IIf(finanzOnline, "FINANZONLINE", "EUROPE")
'------------------------------------------------ '------------------------------------------------
Select Case ART Select Case ART
Case "EUROPE" Case "EUROPE"
@@ -201,6 +202,11 @@ Public Class cUIDPruefung
If UID_TMP IsNot Nothing Then If UID_TMP IsNot Nothing Then
If UID_TMP.uid_valid Then If UID_TMP.uid_valid Then
r("Ergebnis") = "OK" r("Ergebnis") = "OK"
For Each row As DataRow In dt.Select("UstIdnr = '" & r("UstIdnr") & "' AND UstIdKz ='" & r("UstIdKz") & "'")
row("Ergebnis") = r("Ergebnis")
Next
Else Else
r("Ergebnis") = "UNGÜLTIG" r("Ergebnis") = "UNGÜLTIG"
End If End If
@@ -225,7 +231,7 @@ Public Class cUIDPruefung
counter += 1 counter += 1
Dim errorCode = -99 Dim errorCode = -99
Dim errormsg = "" Dim errormsg = ""
Dim UID_TMP = FO.Call_Web_Service_MethodUID_Abfrage_NEU2020(r("KdNr"),, SaveErgInAdressen, showErr,, errorCode, errorMsg) Dim UID_TMP = FO.Call_Web_Service_MethodUID_Abfrage_NEU2020(r("KdNr"),, SaveErgInAdressen, showErr,, errorCode, errormsg)
If UID_TMP IsNot Nothing Then If UID_TMP IsNot Nothing Then
If UID_TMP.uid_valid Then If UID_TMP.uid_valid Then
r("Ergebnis") = "OK" r("Ergebnis") = "OK"