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

Zinsnachberechnung, KundeBearbeiten

Browse Source
This commit is contained in:
d.breimaier
2025-10-30 15:53:23 +01:00
parent 7b84b64bee
commit bcb15f1086
6 changed files with 99 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb generated
View File

@@ -1264,7 +1264,7 @@ Partial Public Class rptRechnungDruck_MDM
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) Me.lbl_onlyZR_ZahlungsDatUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & Me.lbl_onlyZR_ZahlungsDatUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" &
"-set: 1" "-set: 1"
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Text = "Zahlungsdatum" Me.lbl_onlyZR_ZahlungsDatUeberschrift.Text = "Zahlung"
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Top = 0.8112674! Me.lbl_onlyZR_ZahlungsDatUeberschrift.Top = 0.8112674!
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Visible = False Me.lbl_onlyZR_ZahlungsDatUeberschrift.Visible = False
Me.lbl_onlyZR_ZahlungsDatUeberschrift.Width = 0.9661421! Me.lbl_onlyZR_ZahlungsDatUeberschrift.Width = 0.9661421!

19
SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb generated
View File

@@ -39,6 +39,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.Line18 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line18 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.txt_Anmerkung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.txtREnr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtREnr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtReDat, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtReDat, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZE, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtZE, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -55,6 +56,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
CType(Me.lblZinsen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblZinsen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblVZ, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblVZ, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txt_Anmerkung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
' '
'PageHeader 'PageHeader
@@ -65,7 +67,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
'Detail 'Detail
' '
Me.Detail.CanGrow = False Me.Detail.CanGrow = False
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtREnr, Me.txtReDat, Me.txtZE, Me.txtReBetrag, Me.txtTage, Me.txtZinsen, Me.txtVZ, Me.txtFaellig}) Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txt_Anmerkung, Me.txtREnr, Me.txtReDat, Me.txtZE, Me.txtReBetrag, Me.txtTage, Me.txtZinsen, Me.txtVZ, Me.txtFaellig})
Me.Detail.Height = 0.1755249! Me.Detail.Height = 0.1755249!
Me.Detail.KeepTogether = True Me.Detail.KeepTogether = True
Me.Detail.Name = "Detail" Me.Detail.Name = "Detail"
@@ -303,6 +305,19 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
Me.Line18.Y1 = 0.09375003! Me.Line18.Y1 = 0.09375003!
Me.Line18.Y2 = 0.0937008! Me.Line18.Y2 = 0.0937008!
' '
'txt_Anmerkung
'
Me.txt_Anmerkung.Height = 0.1338583!
Me.txt_Anmerkung.Left = 1.788977!
Me.txt_Anmerkung.Name = "txt_Anmerkung"
Me.txt_Anmerkung.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.txt_Anmerkung.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" &
"ar-set: 0"
Me.txt_Anmerkung.Text = "-"
Me.txt_Anmerkung.Top = 0.02083332!
Me.txt_Anmerkung.Visible = False
Me.txt_Anmerkung.Width = 3.713779!
'
'rptRechnungMDM_AnlagenDruck_Zinsennachberechnung 'rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
' '
Me.MasterReport = False Me.MasterReport = False
@@ -340,6 +355,7 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
CType(Me.lblZinsen, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblZinsen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblVZ, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblVZ, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txt_Anmerkung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit() CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub End Sub
@@ -363,4 +379,5 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
Private WithEvents lblVZ As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents lblVZ As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtFaellig As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents txtFaellig As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txt_Anmerkung As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class End Class

24
SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb
View File

@@ -35,12 +35,29 @@ Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
txtZinsen.Text = "" txtZinsen.Text = ""
txtVZ.Text = "" txtVZ.Text = ""
txtFaellig.Text = "" txtFaellig.Text = ""
txt_Anmerkung.Text = ""
If Me.Fields.Item("clmnReNr") IsNot Nothing AndAlso Me.Fields.Item("clmnReNr").Value IsNot Nothing Then txtREnr.Text &= Me.Fields.Item("clmnReNr").Value.ToString If Me.Fields.Item("clmnReNr") IsNot Nothing AndAlso Me.Fields.Item("clmnReNr").Value IsNot Nothing Then txtREnr.Text &= Me.Fields.Item("clmnReNr").Value.ToString
If Me.Fields.Item("clmnReDatum") IsNot Nothing AndAlso Me.Fields.Item("clmnReDatum").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnReDatum").Value) Then txtReDat.Text &= CDate(Me.Fields.Item("clmnReDatum").Value).ToShortDateString If Me.Fields.Item("clmnReDatum") IsNot Nothing AndAlso Me.Fields.Item("clmnReDatum").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnReDatum").Value) Then txtReDat.Text &= CDate(Me.Fields.Item("clmnReDatum").Value).ToShortDateString
If Me.Fields.Item("clmnReBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnReBetrag").Value IsNot Nothing AndAlso IsNumeric(Me.Fields.Item("clmnReBetrag").Value) AndAlso CDbl(Me.Fields.Item("clmnReBetrag").Value) <> 0 Then txtReBetrag.Text &= CDbl(Me.Fields.Item("clmnReBetrag").Value).ToString("N2") If Me.Fields.Item("clmnReBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnReBetrag").Value IsNot Nothing AndAlso IsNumeric(Me.Fields.Item("clmnReBetrag").Value) AndAlso CDbl(Me.Fields.Item("clmnReBetrag").Value) <> 0 Then txtReBetrag.Text &= CDbl(Me.Fields.Item("clmnReBetrag").Value).ToString("N2")
If Me.Fields.Item("clmnFaellig") IsNot Nothing AndAlso Me.Fields.Item("clmnFaellig").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnFaellig").Value) Then txtFaellig.Text &= CDate(Me.Fields.Item("clmnFaellig").Value).ToShortDateString If Me.Fields.Item("clmnFaellig") IsNot Nothing AndAlso Me.Fields.Item("clmnFaellig").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnFaellig").Value) Then txtFaellig.Text &= CDate(Me.Fields.Item("clmnFaellig").Value).ToShortDateString
If Me.Fields.Item("clmnZE") IsNot Nothing AndAlso Me.Fields.Item("clmnZE").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnZE").Value) Then txtZE.Text &= CDate(Me.Fields.Item("clmnZE").Value).ToShortDateString If Me.Fields.Item("clmnZE") IsNot Nothing AndAlso Me.Fields.Item("clmnZE").Value IsNot Nothing Then
If IsDate(Me.Fields.Item("clmnZE").Value) Then
txtZE.Text &= CDate(Me.Fields.Item("clmnZE").Value).ToShortDateString
txt_Anmerkung.Visible = False
txtZE.Visible = True
txtFaellig.Visible = True
txtTage.Visible = True
txtReBetrag.Visible = True
Else
txt_Anmerkung.Text &= Me.Fields.Item("clmnZE").Value
txt_Anmerkung.Visible = True
txtZE.Visible = False
txtFaellig.Visible = False
txtTage.Visible = False
txtReBetrag.Visible = False
End If
End If
If Me.Fields.Item("clmnTage") IsNot Nothing AndAlso Me.Fields.Item("clmnTage").Value IsNot Nothing Then txtTage.Text &= Me.Fields.Item("clmnTage").Value.ToString If Me.Fields.Item("clmnTage") IsNot Nothing AndAlso Me.Fields.Item("clmnTage").Value IsNot Nothing Then txtTage.Text &= Me.Fields.Item("clmnTage").Value.ToString
If Me.Fields.Item("clmnZinsen") IsNot Nothing AndAlso Me.Fields.Item("clmnZinsen").Value IsNot Nothing AndAlso IsNumeric(Me.Fields.Item("clmnZinsen").Value) AndAlso CDbl(Me.Fields.Item("clmnZinsen").Value) <> 0 Then txtZinsen.Text &= CDbl(Me.Fields.Item("clmnZinsen").Value).ToString("N2") If Me.Fields.Item("clmnZinsen") IsNot Nothing AndAlso Me.Fields.Item("clmnZinsen").Value IsNot Nothing AndAlso IsNumeric(Me.Fields.Item("clmnZinsen").Value) AndAlso CDbl(Me.Fields.Item("clmnZinsen").Value) <> 0 Then txtZinsen.Text &= CDbl(Me.Fields.Item("clmnZinsen").Value).ToString("N2")
If Me.Fields.Item("clmnVZ") IsNot Nothing AndAlso Me.Fields.Item("clmnVZ").Value IsNot Nothing AndAlso IsNumeric(Me.Fields.Item("clmnVZ").Value) Then txtVZ.Text &= Me.Fields.Item("clmnVZ").Value.ToString() & " %" If Me.Fields.Item("clmnVZ") IsNot Nothing AndAlso Me.Fields.Item("clmnVZ").Value IsNot Nothing AndAlso IsNumeric(Me.Fields.Item("clmnVZ").Value) Then txtVZ.Text &= Me.Fields.Item("clmnVZ").Value.ToString() & " %"
@@ -67,9 +84,10 @@ Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung
If RECHNUNG.POSITIONEN.Any() Then If RECHNUNG.POSITIONEN.Any() Then
If Anzahl > 0 AndAlso LeistungsText.Contains("Zinsnachbelastung") AndAlso LeistungsText.Contains("Rabatt") AndAlso Betrag <> 0 Then If Anzahl > 0 AndAlso Betrag < 0 Then
dt.Rows.Add("0", "Rabatt", RECHNUNG.Abfertigungsdatum.ToShortDateString, LeistungsText, "", "", "", Betrag.ToString, "", "")
dt.Rows.Add("0", "Rabatt", RECHNUNG.Abfertigungsdatum.ToShortDateString, "", "", LeistungsText.ToString, "", Betrag.ToString, "", "")
'dt.Rows.Add(rg.Item("clmnID"), rg.Item("clmnReNr"), rg.Item("clmnReDatum"), rg.Item("clmnAbfNr"), rg.Item("clmnReBetrag"), rg.Item("clmnZE"), rg.Item("clmnTage"), rg.Item("clmnZinsen"), rg.Item("clmnVZ"), rg.Item("clmnFaellig")) 'dt.Rows.Add(rg.Item("clmnID"), rg.Item("clmnReNr"), rg.Item("clmnReDatum"), rg.Item("clmnAbfNr"), rg.Item("clmnReBetrag"), rg.Item("clmnZE"), rg.Item("clmnTage"), rg.Item("clmnZinsen"), rg.Item("clmnVZ"), rg.Item("clmnFaellig"))
Else Else

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

@@ -249,6 +249,7 @@ 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.txtEmailRE2 = New System.Windows.Forms.TextBox()
Me.pnlInfo.SuspendLayout() Me.pnlInfo.SuspendLayout()
Me.tbFirmendaten.SuspendLayout() Me.tbFirmendaten.SuspendLayout()
Me.Panel4.SuspendLayout() Me.Panel4.SuspendLayout()
@@ -338,7 +339,7 @@ Partial Class frmKundenblatt
Me.tbFirmendaten.Location = New System.Drawing.Point(4, 25) Me.tbFirmendaten.Location = New System.Drawing.Point(4, 25)
Me.tbFirmendaten.Name = "tbFirmendaten" Me.tbFirmendaten.Name = "tbFirmendaten"
Me.tbFirmendaten.Padding = New System.Windows.Forms.Padding(3) Me.tbFirmendaten.Padding = New System.Windows.Forms.Padding(3)
Me.tbFirmendaten.Size = New System.Drawing.Size(1644, 945) Me.tbFirmendaten.Size = New System.Drawing.Size(1644, 962)
Me.tbFirmendaten.TabIndex = 3 Me.tbFirmendaten.TabIndex = 3
Me.tbFirmendaten.Text = "Firmendaten" Me.tbFirmendaten.Text = "Firmendaten"
' '
@@ -348,7 +349,7 @@ Partial Class frmKundenblatt
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel4.Location = New System.Drawing.Point(3, 3) Me.Panel4.Location = New System.Drawing.Point(3, 3)
Me.Panel4.Name = "Panel4" Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(1638, 939) Me.Panel4.Size = New System.Drawing.Size(1638, 956)
Me.Panel4.TabIndex = 0 Me.Panel4.TabIndex = 0
' '
'UsrcntlKundeBearbeitenFull1 'UsrcntlKundeBearbeitenFull1
@@ -358,7 +359,7 @@ Partial Class frmKundenblatt
Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0) Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0)
Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1" Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1"
Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1638, 939) Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1638, 956)
Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
' '
'tbcntrMain 'tbcntrMain
@@ -384,6 +385,7 @@ Partial Class frmKundenblatt
'tbAllgemein 'tbAllgemein
' '
Me.tbAllgemein.BackColor = System.Drawing.Color.White Me.tbAllgemein.BackColor = System.Drawing.Color.White
Me.tbAllgemein.Controls.Add(Me.txtEmailRE2)
Me.tbAllgemein.Controls.Add(Me.txtEmailRE) Me.tbAllgemein.Controls.Add(Me.txtEmailRE)
Me.tbAllgemein.Controls.Add(Me.TextBox1) Me.tbAllgemein.Controls.Add(Me.TextBox1)
Me.tbAllgemein.Controls.Add(Me.PictureBox8) Me.tbAllgemein.Controls.Add(Me.PictureBox8)
@@ -644,7 +646,7 @@ Partial Class frmKundenblatt
Me.TabPage2.Location = New System.Drawing.Point(4, 22) Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2" Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(710, 439) Me.TabPage2.Size = New System.Drawing.Size(710, 456)
Me.TabPage2.TabIndex = 1 Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Umsatzbericht" Me.TabPage2.Text = "Umsatzbericht"
Me.TabPage2.UseVisualStyleBackColor = True Me.TabPage2.UseVisualStyleBackColor = True
@@ -689,7 +691,7 @@ Partial Class frmKundenblatt
Me.dgvUmsaetze.RowHeadersDefaultCellStyle = DataGridViewCellStyle8 Me.dgvUmsaetze.RowHeadersDefaultCellStyle = DataGridViewCellStyle8
Me.dgvUmsaetze.RowHeadersVisible = False Me.dgvUmsaetze.RowHeadersVisible = False
Me.dgvUmsaetze.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvUmsaetze.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvUmsaetze.Size = New System.Drawing.Size(707, 434) Me.dgvUmsaetze.Size = New System.Drawing.Size(707, 451)
Me.dgvUmsaetze.TabIndex = 182 Me.dgvUmsaetze.TabIndex = 182
' '
'Label13 'Label13
@@ -737,7 +739,7 @@ Partial Class frmKundenblatt
Me.TabPage3.Controls.Add(Me.dgvUmsatzNachLeistngsNr) Me.TabPage3.Controls.Add(Me.dgvUmsatzNachLeistngsNr)
Me.TabPage3.Location = New System.Drawing.Point(4, 22) Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3" Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Size = New System.Drawing.Size(710, 439) Me.TabPage3.Size = New System.Drawing.Size(710, 456)
Me.TabPage3.TabIndex = 2 Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "Umsatz nach LeistungsNr" Me.TabPage3.Text = "Umsatz nach LeistungsNr"
Me.TabPage3.UseVisualStyleBackColor = True Me.TabPage3.UseVisualStyleBackColor = True
@@ -793,7 +795,7 @@ Partial Class frmKundenblatt
Me.dgvUmsatzNachLeistngsNr.RowHeadersDefaultCellStyle = DataGridViewCellStyle12 Me.dgvUmsatzNachLeistngsNr.RowHeadersDefaultCellStyle = DataGridViewCellStyle12
Me.dgvUmsatzNachLeistngsNr.RowHeadersVisible = False Me.dgvUmsatzNachLeistngsNr.RowHeadersVisible = False
Me.dgvUmsatzNachLeistngsNr.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvUmsatzNachLeistngsNr.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvUmsatzNachLeistngsNr.Size = New System.Drawing.Size(705, 433) Me.dgvUmsatzNachLeistngsNr.Size = New System.Drawing.Size(705, 450)
Me.dgvUmsatzNachLeistngsNr.TabIndex = 183 Me.dgvUmsatzNachLeistngsNr.TabIndex = 183
' '
'lblAdressenzusatz 'lblAdressenzusatz
@@ -880,7 +882,7 @@ Partial Class frmKundenblatt
Me.picLogo.Cursor = System.Windows.Forms.Cursors.Hand Me.picLogo.Cursor = System.Windows.Forms.Cursors.Hand
Me.picLogo.Image = Global.SDL.My.Resources.Resources.person_default Me.picLogo.Image = Global.SDL.My.Resources.Resources.person_default
Me.picLogo.ImageLocation = "" Me.picLogo.ImageLocation = ""
Me.picLogo.Location = New System.Drawing.Point(788, 800) Me.picLogo.Location = New System.Drawing.Point(788, 839)
Me.picLogo.Name = "picLogo" Me.picLogo.Name = "picLogo"
Me.picLogo.Size = New System.Drawing.Size(287, 114) Me.picLogo.Size = New System.Drawing.Size(287, 114)
Me.picLogo.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom Me.picLogo.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
@@ -889,11 +891,12 @@ Partial Class frmKundenblatt
' '
'Button4 'Button4
' '
Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.Image = Global.SDL.My.Resources.Resources.statistik_small Me.Button4.Image = Global.SDL.My.Resources.Resources.statistik_small
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button4.Location = New System.Drawing.Point(1058, 740) Me.Button4.Location = New System.Drawing.Point(1058, 792)
Me.Button4.Name = "Button4" Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(136, 32) Me.Button4.Size = New System.Drawing.Size(136, 32)
Me.Button4.TabIndex = 21 Me.Button4.TabIndex = 21
@@ -1048,14 +1051,14 @@ Partial Class frmKundenblatt
' '
'GroupBox5 'GroupBox5
' '
Me.GroupBox5.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Me.GroupBox5.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom 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.GroupBox5.Controls.Add(Me.lblStat_SdlLeistungen_Maut) Me.GroupBox5.Controls.Add(Me.lblStat_SdlLeistungen_Maut)
Me.GroupBox5.Controls.Add(Me.lblStat_SdlLeistungen_Diesel) Me.GroupBox5.Controls.Add(Me.lblStat_SdlLeistungen_Diesel)
Me.GroupBox5.Controls.Add(Me.lblStat_SdlLeistungen) Me.GroupBox5.Controls.Add(Me.lblStat_SdlLeistungen)
Me.GroupBox5.Controls.Add(Me.lblStat_Lkws) Me.GroupBox5.Controls.Add(Me.lblStat_Lkws)
Me.GroupBox5.Controls.Add(Me.PictureBox5) Me.GroupBox5.Controls.Add(Me.PictureBox5)
Me.GroupBox5.Location = New System.Drawing.Point(738, 793) Me.GroupBox5.Location = New System.Drawing.Point(738, 832)
Me.GroupBox5.Name = "GroupBox5" Me.GroupBox5.Name = "GroupBox5"
Me.GroupBox5.Size = New System.Drawing.Size(456, 121) Me.GroupBox5.Size = New System.Drawing.Size(456, 121)
Me.GroupBox5.TabIndex = 22 Me.GroupBox5.TabIndex = 22
@@ -1067,10 +1070,10 @@ Partial Class frmKundenblatt
' '
Me.lblStat_SdlLeistungen_Maut.AutoSize = True Me.lblStat_SdlLeistungen_Maut.AutoSize = True
Me.lblStat_SdlLeistungen_Maut.Cursor = System.Windows.Forms.Cursors.Hand Me.lblStat_SdlLeistungen_Maut.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblStat_SdlLeistungen_Maut.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblStat_SdlLeistungen_Maut.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblStat_SdlLeistungen_Maut.Location = New System.Drawing.Point(12, 90) Me.lblStat_SdlLeistungen_Maut.Location = New System.Drawing.Point(12, 90)
Me.lblStat_SdlLeistungen_Maut.Name = "lblStat_SdlLeistungen_Maut" Me.lblStat_SdlLeistungen_Maut.Name = "lblStat_SdlLeistungen_Maut"
Me.lblStat_SdlLeistungen_Maut.Size = New System.Drawing.Size(32, 20) Me.lblStat_SdlLeistungen_Maut.Size = New System.Drawing.Size(27, 16)
Me.lblStat_SdlLeistungen_Maut.TabIndex = 3 Me.lblStat_SdlLeistungen_Maut.TabIndex = 3
Me.lblStat_SdlLeistungen_Maut.Text = "Sdl" Me.lblStat_SdlLeistungen_Maut.Text = "Sdl"
' '
@@ -1078,10 +1081,10 @@ Partial Class frmKundenblatt
' '
Me.lblStat_SdlLeistungen_Diesel.AutoSize = True Me.lblStat_SdlLeistungen_Diesel.AutoSize = True
Me.lblStat_SdlLeistungen_Diesel.Cursor = System.Windows.Forms.Cursors.Hand Me.lblStat_SdlLeistungen_Diesel.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblStat_SdlLeistungen_Diesel.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblStat_SdlLeistungen_Diesel.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblStat_SdlLeistungen_Diesel.Location = New System.Drawing.Point(12, 70) Me.lblStat_SdlLeistungen_Diesel.Location = New System.Drawing.Point(12, 70)
Me.lblStat_SdlLeistungen_Diesel.Name = "lblStat_SdlLeistungen_Diesel" Me.lblStat_SdlLeistungen_Diesel.Name = "lblStat_SdlLeistungen_Diesel"
Me.lblStat_SdlLeistungen_Diesel.Size = New System.Drawing.Size(32, 20) Me.lblStat_SdlLeistungen_Diesel.Size = New System.Drawing.Size(27, 16)
Me.lblStat_SdlLeistungen_Diesel.TabIndex = 2 Me.lblStat_SdlLeistungen_Diesel.TabIndex = 2
Me.lblStat_SdlLeistungen_Diesel.Text = "Sdl" Me.lblStat_SdlLeistungen_Diesel.Text = "Sdl"
' '
@@ -1089,10 +1092,10 @@ Partial Class frmKundenblatt
' '
Me.lblStat_SdlLeistungen.AutoSize = True Me.lblStat_SdlLeistungen.AutoSize = True
Me.lblStat_SdlLeistungen.Cursor = System.Windows.Forms.Cursors.Hand Me.lblStat_SdlLeistungen.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblStat_SdlLeistungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblStat_SdlLeistungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblStat_SdlLeistungen.Location = New System.Drawing.Point(12, 50) Me.lblStat_SdlLeistungen.Location = New System.Drawing.Point(12, 50)
Me.lblStat_SdlLeistungen.Name = "lblStat_SdlLeistungen" Me.lblStat_SdlLeistungen.Name = "lblStat_SdlLeistungen"
Me.lblStat_SdlLeistungen.Size = New System.Drawing.Size(32, 20) Me.lblStat_SdlLeistungen.Size = New System.Drawing.Size(27, 16)
Me.lblStat_SdlLeistungen.TabIndex = 1 Me.lblStat_SdlLeistungen.TabIndex = 1
Me.lblStat_SdlLeistungen.Text = "Sdl" Me.lblStat_SdlLeistungen.Text = "Sdl"
' '
@@ -1100,10 +1103,10 @@ Partial Class frmKundenblatt
' '
Me.lblStat_Lkws.AutoSize = True Me.lblStat_Lkws.AutoSize = True
Me.lblStat_Lkws.Cursor = System.Windows.Forms.Cursors.Hand Me.lblStat_Lkws.Cursor = System.Windows.Forms.Cursors.Hand
Me.lblStat_Lkws.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblStat_Lkws.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblStat_Lkws.Location = New System.Drawing.Point(12, 30) Me.lblStat_Lkws.Location = New System.Drawing.Point(12, 30)
Me.lblStat_Lkws.Name = "lblStat_Lkws" Me.lblStat_Lkws.Name = "lblStat_Lkws"
Me.lblStat_Lkws.Size = New System.Drawing.Size(37, 20) Me.lblStat_Lkws.Size = New System.Drawing.Size(30, 16)
Me.lblStat_Lkws.TabIndex = 0 Me.lblStat_Lkws.TabIndex = 0
Me.lblStat_Lkws.Text = "Lkw" Me.lblStat_Lkws.Text = "Lkw"
' '
@@ -1209,7 +1212,7 @@ Partial Class frmKundenblatt
Me.tbZoll.Location = New System.Drawing.Point(4, 25) Me.tbZoll.Location = New System.Drawing.Point(4, 25)
Me.tbZoll.Name = "tbZoll" Me.tbZoll.Name = "tbZoll"
Me.tbZoll.Padding = New System.Windows.Forms.Padding(3) Me.tbZoll.Padding = New System.Windows.Forms.Padding(3)
Me.tbZoll.Size = New System.Drawing.Size(1644, 945) Me.tbZoll.Size = New System.Drawing.Size(1644, 962)
Me.tbZoll.TabIndex = 9 Me.tbZoll.TabIndex = 9
Me.tbZoll.Text = "ZOLL" Me.tbZoll.Text = "ZOLL"
Me.tbZoll.UseVisualStyleBackColor = True Me.tbZoll.UseVisualStyleBackColor = True
@@ -1221,7 +1224,7 @@ Partial Class frmKundenblatt
Me.tbcntrZOLL.Location = New System.Drawing.Point(3, 3) Me.tbcntrZOLL.Location = New System.Drawing.Point(3, 3)
Me.tbcntrZOLL.Name = "tbcntrZOLL" Me.tbcntrZOLL.Name = "tbcntrZOLL"
Me.tbcntrZOLL.SelectedIndex = 0 Me.tbcntrZOLL.SelectedIndex = 0
Me.tbcntrZOLL.Size = New System.Drawing.Size(1638, 939) Me.tbcntrZOLL.Size = New System.Drawing.Size(1638, 956)
Me.tbcntrZOLL.TabIndex = 0 Me.tbcntrZOLL.TabIndex = 0
' '
'tabZoll_Artikel 'tabZoll_Artikel
@@ -1229,7 +1232,7 @@ Partial Class frmKundenblatt
Me.tabZoll_Artikel.Location = New System.Drawing.Point(4, 22) Me.tabZoll_Artikel.Location = New System.Drawing.Point(4, 22)
Me.tabZoll_Artikel.Name = "tabZoll_Artikel" Me.tabZoll_Artikel.Name = "tabZoll_Artikel"
Me.tabZoll_Artikel.Padding = New System.Windows.Forms.Padding(3) Me.tabZoll_Artikel.Padding = New System.Windows.Forms.Padding(3)
Me.tabZoll_Artikel.Size = New System.Drawing.Size(1630, 913) Me.tabZoll_Artikel.Size = New System.Drawing.Size(1630, 930)
Me.tabZoll_Artikel.TabIndex = 1 Me.tabZoll_Artikel.TabIndex = 1
Me.tabZoll_Artikel.Text = "Artikel" Me.tabZoll_Artikel.Text = "Artikel"
Me.tabZoll_Artikel.UseVisualStyleBackColor = True Me.tabZoll_Artikel.UseVisualStyleBackColor = True
@@ -1240,7 +1243,7 @@ Partial Class frmKundenblatt
Me.tbMdm.Location = New System.Drawing.Point(4, 25) Me.tbMdm.Location = New System.Drawing.Point(4, 25)
Me.tbMdm.Name = "tbMdm" Me.tbMdm.Name = "tbMdm"
Me.tbMdm.Padding = New System.Windows.Forms.Padding(3) Me.tbMdm.Padding = New System.Windows.Forms.Padding(3)
Me.tbMdm.Size = New System.Drawing.Size(1644, 945) Me.tbMdm.Size = New System.Drawing.Size(1644, 962)
Me.tbMdm.TabIndex = 10 Me.tbMdm.TabIndex = 10
Me.tbMdm.Text = "MDM" Me.tbMdm.Text = "MDM"
Me.tbMdm.UseVisualStyleBackColor = True Me.tbMdm.UseVisualStyleBackColor = True
@@ -1259,7 +1262,7 @@ Partial Class frmKundenblatt
Me.tbcntrMDM.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrMDM.Margin = New System.Windows.Forms.Padding(0)
Me.tbcntrMDM.Name = "tbcntrMDM" Me.tbcntrMDM.Name = "tbcntrMDM"
Me.tbcntrMDM.SelectedIndex = 0 Me.tbcntrMDM.SelectedIndex = 0
Me.tbcntrMDM.Size = New System.Drawing.Size(1638, 939) Me.tbcntrMDM.Size = New System.Drawing.Size(1638, 956)
Me.tbcntrMDM.TabIndex = 0 Me.tbcntrMDM.TabIndex = 0
' '
'tbSDL 'tbSDL
@@ -1271,7 +1274,7 @@ Partial Class frmKundenblatt
Me.tbSDL.Margin = New System.Windows.Forms.Padding(0) Me.tbSDL.Margin = New System.Windows.Forms.Padding(0)
Me.tbSDL.Name = "tbSDL" Me.tbSDL.Name = "tbSDL"
Me.tbSDL.Padding = New System.Windows.Forms.Padding(3) Me.tbSDL.Padding = New System.Windows.Forms.Padding(3)
Me.tbSDL.Size = New System.Drawing.Size(1630, 913) Me.tbSDL.Size = New System.Drawing.Size(1630, 930)
Me.tbSDL.TabIndex = 5 Me.tbSDL.TabIndex = 5
Me.tbSDL.Text = "SDL-Leistungen" Me.tbSDL.Text = "SDL-Leistungen"
Me.tbSDL.UseVisualStyleBackColor = True Me.tbSDL.UseVisualStyleBackColor = True
@@ -1313,7 +1316,7 @@ Partial Class frmKundenblatt
DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle21 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, 717) Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1624, 734)
Me.dgvSDLLeistungenFull.TabIndex = 5 Me.dgvSDLLeistungenFull.TabIndex = 5
' '
'Panel6 'Panel6
@@ -1419,7 +1422,7 @@ Partial Class frmKundenblatt
Me.Panel5.Controls.Add(Me.lblLetzterSA_SDL) Me.Panel5.Controls.Add(Me.lblLetzterSA_SDL)
Me.Panel5.Controls.Add(Me.rtbVermerke) Me.Panel5.Controls.Add(Me.rtbVermerke)
Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel5.Location = New System.Drawing.Point(3, 767) Me.Panel5.Location = New System.Drawing.Point(3, 784)
Me.Panel5.Name = "Panel5" Me.Panel5.Name = "Panel5"
Me.Panel5.Size = New System.Drawing.Size(1624, 143) Me.Panel5.Size = New System.Drawing.Size(1624, 143)
Me.Panel5.TabIndex = 177 Me.Panel5.TabIndex = 177
@@ -2315,7 +2318,7 @@ Partial Class frmKundenblatt
Me.tbOfferte.Location = New System.Drawing.Point(4, 25) Me.tbOfferte.Location = New System.Drawing.Point(4, 25)
Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2) Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2)
Me.tbOfferte.Name = "tbOfferte" Me.tbOfferte.Name = "tbOfferte"
Me.tbOfferte.Size = New System.Drawing.Size(1644, 945) Me.tbOfferte.Size = New System.Drawing.Size(1644, 962)
Me.tbOfferte.TabIndex = 11 Me.tbOfferte.TabIndex = 11
Me.tbOfferte.Text = "Offerte" Me.tbOfferte.Text = "Offerte"
Me.tbOfferte.UseVisualStyleBackColor = True Me.tbOfferte.UseVisualStyleBackColor = True
@@ -2327,7 +2330,7 @@ Partial Class frmKundenblatt
Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0) Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1) Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1)
Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1644, 945) Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1644, 962)
Me.UsrCntlOfferte1.TabIndex = 0 Me.UsrCntlOfferte1.TabIndex = 0
' '
'tbUSTV 'tbUSTV
@@ -2335,7 +2338,7 @@ Partial Class frmKundenblatt
Me.tbUSTV.Controls.Add(Me.tbcntrUSTV) Me.tbUSTV.Controls.Add(Me.tbcntrUSTV)
Me.tbUSTV.Location = New System.Drawing.Point(4, 25) Me.tbUSTV.Location = New System.Drawing.Point(4, 25)
Me.tbUSTV.Name = "tbUSTV" Me.tbUSTV.Name = "tbUSTV"
Me.tbUSTV.Size = New System.Drawing.Size(1644, 945) Me.tbUSTV.Size = New System.Drawing.Size(1644, 962)
Me.tbUSTV.TabIndex = 12 Me.tbUSTV.TabIndex = 12
Me.tbUSTV.Text = "USTV" Me.tbUSTV.Text = "USTV"
Me.tbUSTV.UseVisualStyleBackColor = True Me.tbUSTV.UseVisualStyleBackColor = True
@@ -2349,7 +2352,7 @@ Partial Class frmKundenblatt
Me.tbcntrUSTV.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrUSTV.Margin = New System.Windows.Forms.Padding(0)
Me.tbcntrUSTV.Name = "tbcntrUSTV" Me.tbcntrUSTV.Name = "tbcntrUSTV"
Me.tbcntrUSTV.SelectedIndex = 0 Me.tbcntrUSTV.SelectedIndex = 0
Me.tbcntrUSTV.Size = New System.Drawing.Size(1644, 945) Me.tbcntrUSTV.Size = New System.Drawing.Size(1644, 962)
Me.tbcntrUSTV.TabIndex = 1 Me.tbcntrUSTV.TabIndex = 1
' '
'tbUSTVDokumente 'tbUSTVDokumente
@@ -2362,7 +2365,7 @@ Partial Class frmKundenblatt
Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVVollmachten) Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVVollmachten)
Me.tbUSTVDokumente.Location = New System.Drawing.Point(4, 22) Me.tbUSTVDokumente.Location = New System.Drawing.Point(4, 22)
Me.tbUSTVDokumente.Name = "tbUSTVDokumente" Me.tbUSTVDokumente.Name = "tbUSTVDokumente"
Me.tbUSTVDokumente.Size = New System.Drawing.Size(1636, 919) Me.tbUSTVDokumente.Size = New System.Drawing.Size(1636, 936)
Me.tbUSTVDokumente.TabIndex = 8 Me.tbUSTVDokumente.TabIndex = 8
Me.tbUSTVDokumente.Text = "Dokumente" Me.tbUSTVDokumente.Text = "Dokumente"
Me.tbUSTVDokumente.UseVisualStyleBackColor = True Me.tbUSTVDokumente.UseVisualStyleBackColor = True
@@ -2493,7 +2496,7 @@ Partial Class frmKundenblatt
Me.tbFIBU.Controls.Add(Me.txtFIBUKuerzel) Me.tbFIBU.Controls.Add(Me.txtFIBUKuerzel)
Me.tbFIBU.Location = New System.Drawing.Point(4, 25) Me.tbFIBU.Location = New System.Drawing.Point(4, 25)
Me.tbFIBU.Name = "tbFIBU" Me.tbFIBU.Name = "tbFIBU"
Me.tbFIBU.Size = New System.Drawing.Size(1644, 945) Me.tbFIBU.Size = New System.Drawing.Size(1644, 962)
Me.tbFIBU.TabIndex = 13 Me.tbFIBU.TabIndex = 13
Me.tbFIBU.Text = "FIBU" Me.tbFIBU.Text = "FIBU"
Me.tbFIBU.UseVisualStyleBackColor = True Me.tbFIBU.UseVisualStyleBackColor = True
@@ -2898,7 +2901,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.ToolStripMenuItem8 Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4
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"
' '
@@ -3060,6 +3063,19 @@ 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"
' '
'txtEmailRE2
'
Me.txtEmailRE2.BackColor = System.Drawing.Color.White
Me.txtEmailRE2.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtEmailRE2.Cursor = System.Windows.Forms.Cursors.Hand
Me.txtEmailRE2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtEmailRE2.Location = New System.Drawing.Point(40, 410)
Me.txtEmailRE2.Name = "txtEmailRE2"
Me.txtEmailRE2.ReadOnly = True
Me.txtEmailRE2.Size = New System.Drawing.Size(384, 19)
Me.txtEmailRE2.TabIndex = 195
Me.txtEmailRE2.Text = "email-Rechnung"
'
'frmKundenblatt 'frmKundenblatt
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -3360,4 +3376,5 @@ Partial Class frmKundenblatt
Friend WithEvents txtEmailRE As TextBox Friend WithEvents txtEmailRE As TextBox
Friend WithEvents TextBox1 As TextBox Friend WithEvents TextBox1 As TextBox
Friend WithEvents PictureBox8 As PictureBox Friend WithEvents PictureBox8 As PictureBox
Friend WithEvents txtEmailRE2 As TextBox
End Class End Class

10
SDL/kunden/frmKundenblatt.vb
View File

@@ -738,7 +738,7 @@ Public Class frmKundenblatt
KUNDE = New VERAG_PROG_ALLGEMEIN.cKunde(kdNr) 'kundenSQL.getKundeByKdNr(kdNr) KUNDE = New VERAG_PROG_ALLGEMEIN.cKunde(kdNr) 'kundenSQL.getKundeByKdNr(kdNr)
ADRESSE = New VERAG_PROG_ALLGEMEIN.cAdressen(kdNr) 'kundenSQL.getKundeByKdNr(kdNr) ADRESSE = New VERAG_PROG_ALLGEMEIN.cAdressen(kdNr) 'kundenSQL.getKundeByKdNr(kdNr)
KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr) KUNDE_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr)
KUNDE_K = New VERAG_PROG_ALLGEMEIN.cKundenKontakte(kdNr) KUNDE_K = New VERAG_PROG_ALLGEMEIN.cKundenKontakte(8, kdNr)
'Me.dataAdapterFirma = Nothing 'Me.dataAdapterFirma = Nothing
' Me.dataFirma.Clear() ' Me.dataFirma.Clear()
'SDL! 'SDL!
@@ -771,8 +771,10 @@ Public Class frmKundenblatt
lblEmail2.Text = checkNullStr(ADRESSE.E_Mail2) lblEmail2.Text = checkNullStr(ADRESSE.E_Mail2)
txtEmailRE.Text = "-" txtEmailRE.Text = "-"
If KUNDE_K.kkd_kkaId = 8 Then 'Rechnung an txtEmailRE2.Text = ""
txtEmailRE.Text = KUNDE_K.kkd_Email & " " & KUNDE_K.kkd_EmailCC If KUNDE_K.hasEntry Then 'Rechnung an
txtEmailRE.Text = KUNDE_K.kkd_Email
txtEmailRE2.Text &= KUNDE_K.kkd_EmailCC
End If End If
@@ -2292,7 +2294,7 @@ Public Class frmKundenblatt
Dim dt As DataTable = dtUmsatzNachLeistungsNr() Dim dt As DataTable = dtUmsatzNachLeistungsNr()
If dt.Rows.Count > 0 Then If dt.Rows.Count > 0 Then
cProgramFunctions.genExcelFromDT_NEW(dt, {"C1:C" & (dt.Rows.Count + 1), "D1:D" & (dt.Rows.Count + 1), "E1:E" & (dt.Rows.Count + 1), "F1:F" & (dt.Rows.Count + 1), "G1:G" & (dt.Rows.Count + 1), "H1:H" & (dt.Rows.Count + 1), "I1:I" & (dt.Rows.Count + 1), "J1:J" & (dt.Rows.Count + 1), "K1:K" & (dt.Rows.Count + 1)}, False,,,) cProgramFunctions.genExcelFromDT_NEW(dt, {"C1:C" & (dt.Rows.Count + 1), "D1:D" & (dt.Rows.Count + 1), "E1:E" & (dt.Rows.Count + 1), "F1:F" & (dt.Rows.Count + 1), "G1:G" & (dt.Rows.Count + 1), "H1:H" & (dt.Rows.Count + 1), "I1:I" & (dt.Rows.Count + 1), "J1:J" & (dt.Rows.Count + 1), "K1:K" & (dt.Rows.Count + 1)}, False)
End If End If

4
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -2234,7 +2234,7 @@ Public Class usrcntlKundeBearbeitenFull
Dim dt_IDS_Rabatte As DataTable = sql.loadDgvBySql("SELECT P.ProductDescription, C.OutletCountry, S.OutletName, RW.Rechenwert, Kz, RW.KategorieNr as KatNr FROM [VERAG].[dbo].[tbl_IDS_Rechenwerte] as RW Dim dt_IDS_Rabatte As DataTable = sql.loadDgvBySql("SELECT P.ProductDescription, C.OutletCountry, S.OutletName, RW.Rechenwert, Kz, RW.KategorieNr as KatNr FROM [VERAG].[dbo].[tbl_IDS_Rechenwerte] as RW
left join [VERAG].[dbo].[tbl_IDS_Produkte] as P on P.ProductTypeCode = RW.ProductTypeCode left join [VERAG].[dbo].[tbl_IDS_Produkte] as P on P.ProductTypeCode = RW.ProductTypeCode
left join [VERAG].[dbo].[tbl_IDS_Länder] as C on C.OutletCountryCode = RW.OutletCountryCode left join [VERAG].[dbo].[tbl_IDS_Länder] as C on C.OutletCountryCode = RW.OutletCountryCode
left join [VERAG].[dbo].[tbl_IDS_Stationen] as S on S.[OutletCode] = RW.OutletCode where CustomerCode =" & KUNDE.KundenNr & " AND RW.Rechenwert <> 0 order by Kz", "FMZOLL") left join [VERAG].[dbo].[tbl_IDS_Stationen] as S on S.[OutletCode] = RW.OutletCode where CustomerCode =" & KUNDE.KundenNr & " order by Kz", "FMZOLL")
With dgvIDS_Rabatte With dgvIDS_Rabatte
@@ -2265,7 +2265,7 @@ Public Class usrcntlKundeBearbeitenFull
Dim dt_IDS As DataTable = sql.loadDgvBySql("SELECT P.ProductDescription, C.OutletCountry, S.OutletName, RW.Rechenwert, Kz, RW.KategorieNr as KatNr FROM [VERAG].[dbo].[tbl_IDS_Rechenwerte] as RW Dim dt_IDS As DataTable = sql.loadDgvBySql("SELECT P.ProductDescription, C.OutletCountry, S.OutletName, RW.Rechenwert, Kz, RW.KategorieNr as KatNr FROM [VERAG].[dbo].[tbl_IDS_Rechenwerte] as RW
left join [VERAG].[dbo].[tbl_IDS_Produkte] as P on P.ProductTypeCode = RW.ProductTypeCode left join [VERAG].[dbo].[tbl_IDS_Produkte] as P on P.ProductTypeCode = RW.ProductTypeCode
left join [VERAG].[dbo].[tbl_IDS_Länder] as C on C.OutletCountryCode = RW.OutletCountryCode left join [VERAG].[dbo].[tbl_IDS_Länder] as C on C.OutletCountryCode = RW.OutletCountryCode
left join [VERAG].[dbo].[tbl_IDS_Stationen] as S on S.[OutletCode] = RW.OutletCode where CustomerCode is null and RW.Rechenwert <> 0 order by KZ", "FMZOLL") left join [VERAG].[dbo].[tbl_IDS_Stationen] as S on S.[OutletCode] = RW.OutletCode where CustomerCode is null order by KZ", "FMZOLL")
With dgvIDS_Standard With dgvIDS_Standard
.DataSource = dt_IDS .DataSource = dt_IDS