cbam-checkliste, Kundenuebersicht, etc.
This commit is contained in:
324
SDL/kunden/usrCntlKundenuebersicht.Designer.vb
generated
324
SDL/kunden/usrCntlKundenuebersicht.Designer.vb
generated
@@ -23,19 +23,19 @@ Partial Class usrCntlKundenuebersicht
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle6 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 DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlKundenuebersicht))
|
||||
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 DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle11 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 DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Me.cntxtAddVM = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.DToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.btnExcel = New System.Windows.Forms.Button()
|
||||
@@ -105,7 +105,6 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.lblFisk = New System.Windows.Forms.Label()
|
||||
Me.txtAbf_ErsteAbfertigung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label41 = New System.Windows.Forms.Label()
|
||||
Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox()
|
||||
Me.lblBesonderheiten = New System.Windows.Forms.Label()
|
||||
Me.Panel4 = New System.Windows.Forms.Panel()
|
||||
Me.pbCreditsafeChanges = New System.Windows.Forms.PictureBox()
|
||||
@@ -133,10 +132,12 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.Label18 = New System.Windows.Forms.Label()
|
||||
Me.txtOPNichtFaellig = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Panel7 = New System.Windows.Forms.Panel()
|
||||
Me.lblKreditlimit = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.txtProforma = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label24 = New System.Windows.Forms.Label()
|
||||
Me.txtKdSicherheiten = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label23 = New System.Windows.Forms.Label()
|
||||
Me.txtKdSicherheiten = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label24 = New System.Windows.Forms.Label()
|
||||
Me.txtOffenePosten2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label22 = New System.Windows.Forms.Label()
|
||||
Me.Panel10 = New System.Windows.Forms.Panel()
|
||||
@@ -144,13 +145,12 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.txtRisiko = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtOVK = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label19 = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.lblKreditlimit = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.lblVorkasse = New System.Windows.Forms.Label()
|
||||
Me.txtZahlungsziel = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtVeranlKd = New System.Windows.Forms.TextBox()
|
||||
Me.lblVeranlKd = New System.Windows.Forms.Label()
|
||||
Me.txtUmsatzJahr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox()
|
||||
Me.lblInsolvent = New System.Windows.Forms.Label()
|
||||
Me.grpAdresse = New System.Windows.Forms.GroupBox()
|
||||
Me.tbKontakt = New System.Windows.Forms.TabControl()
|
||||
@@ -270,8 +270,12 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.PDFToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.MailToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.PDFToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.MailToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.GültigungültigToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.btnReloadOP = New System.Windows.Forms.Button()
|
||||
Me.btnOP = New System.Windows.Forms.Button()
|
||||
@@ -442,8 +446,8 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.dgvOfferteDetailsUebersicht.AllowUserToDeleteRows = False
|
||||
Me.dgvOfferteDetailsUebersicht.AllowUserToOrderColumns = True
|
||||
Me.dgvOfferteDetailsUebersicht.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
|
||||
DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
|
||||
Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
|
||||
Me.dgvOfferteDetailsUebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
@@ -463,8 +467,8 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.dgvOffertenSperrliste.AllowUserToDeleteRows = False
|
||||
Me.dgvOffertenSperrliste.AllowUserToOrderColumns = True
|
||||
Me.dgvOffertenSperrliste.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvOffertenSperrliste.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
|
||||
DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvOffertenSperrliste.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
|
||||
Me.dgvOffertenSperrliste.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvOffertenSperrliste.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
|
||||
Me.dgvOffertenSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
@@ -474,10 +478,10 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.dgvOffertenSperrliste.Name = "dgvOffertenSperrliste"
|
||||
Me.dgvOffertenSperrliste.ReadOnly = True
|
||||
Me.dgvOffertenSperrliste.RowHeadersVisible = False
|
||||
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer))
|
||||
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.Color.Black
|
||||
Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle3
|
||||
DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle15.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer))
|
||||
DataGridViewCellStyle15.SelectionForeColor = System.Drawing.Color.Black
|
||||
Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle15
|
||||
Me.dgvOffertenSperrliste.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
Me.dgvOffertenSperrliste.Size = New System.Drawing.Size(173, 257)
|
||||
Me.dgvOffertenSperrliste.TabIndex = 0
|
||||
@@ -615,8 +619,8 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.dgvOffenePosten.AllowUserToAddRows = False
|
||||
Me.dgvOffenePosten.AllowUserToDeleteRows = False
|
||||
Me.dgvOffenePosten.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
|
||||
DataGridViewCellStyle16.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16
|
||||
Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvOffenePosten.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
@@ -696,8 +700,8 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.dgvUmsatzbericht.AllowUserToDeleteRows = False
|
||||
Me.dgvUmsatzbericht.AllowUserToOrderColumns = True
|
||||
Me.dgvUmsatzbericht.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
|
||||
DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
|
||||
Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvUmsatzbericht.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
@@ -760,8 +764,8 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.dgvAnhaenge.AllowUserToAddRows = False
|
||||
Me.dgvAnhaenge.AllowUserToDeleteRows = False
|
||||
Me.dgvAnhaenge.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvAnhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
|
||||
DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvAnhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle18
|
||||
Me.dgvAnhaenge.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
@@ -1367,22 +1371,6 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.Label41.Text = "Erste Abfertigung:"
|
||||
Me.Label41.Visible = False
|
||||
'
|
||||
'rtbAbf_Besonderheiten
|
||||
'
|
||||
Me.rtbAbf_Besonderheiten.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.rtbAbf_Besonderheiten.BackColor = System.Drawing.Color.White
|
||||
Me.rtbAbf_Besonderheiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.rtbAbf_Besonderheiten.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.rtbAbf_Besonderheiten.Location = New System.Drawing.Point(7, 32)
|
||||
Me.rtbAbf_Besonderheiten.Name = "rtbAbf_Besonderheiten"
|
||||
Me.rtbAbf_Besonderheiten.ReadOnly = True
|
||||
Me.rtbAbf_Besonderheiten.ShowSelectionMargin = True
|
||||
Me.rtbAbf_Besonderheiten.Size = New System.Drawing.Size(660, 193)
|
||||
Me.rtbAbf_Besonderheiten.TabIndex = 7
|
||||
Me.rtbAbf_Besonderheiten.Text = ""
|
||||
'
|
||||
'lblBesonderheiten
|
||||
'
|
||||
Me.lblBesonderheiten.AutoSize = True
|
||||
@@ -1850,6 +1838,44 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.Panel7.Size = New System.Drawing.Size(253, 132)
|
||||
Me.Panel7.TabIndex = 43
|
||||
'
|
||||
'lblKreditlimit
|
||||
'
|
||||
Me.lblKreditlimit._DateTimeOnly = False
|
||||
Me.lblKreditlimit._numbersOnly = False
|
||||
Me.lblKreditlimit._numbersOnlyKommastellen = ""
|
||||
Me.lblKreditlimit._numbersOnlyTrennzeichen = True
|
||||
Me.lblKreditlimit._Prozent = False
|
||||
Me.lblKreditlimit._ShortDateNew = False
|
||||
Me.lblKreditlimit._ShortDateOnly = False
|
||||
Me.lblKreditlimit._TimeOnly = False
|
||||
Me.lblKreditlimit._TimeOnly_Seconds = False
|
||||
Me.lblKreditlimit._value = Nothing
|
||||
Me.lblKreditlimit._Waehrung = False
|
||||
Me.lblKreditlimit._WaehrungZeichen = True
|
||||
Me.lblKreditlimit.BackColor = System.Drawing.Color.AntiqueWhite
|
||||
Me.lblKreditlimit.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
Me.lblKreditlimit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblKreditlimit.ForeColor = System.Drawing.Color.Black
|
||||
Me.lblKreditlimit.Location = New System.Drawing.Point(135, 111)
|
||||
Me.lblKreditlimit.MaxLineLength = -1
|
||||
Me.lblKreditlimit.MaxLines_Warning = ""
|
||||
Me.lblKreditlimit.MaxLines_Warning_Label = Nothing
|
||||
Me.lblKreditlimit.Name = "lblKreditlimit"
|
||||
Me.lblKreditlimit.ReadOnly = True
|
||||
Me.lblKreditlimit.Size = New System.Drawing.Size(108, 13)
|
||||
Me.lblKreditlimit.TabIndex = 20
|
||||
Me.lblKreditlimit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label1.Location = New System.Drawing.Point(6, 111)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(66, 13)
|
||||
Me.Label1.TabIndex = 19
|
||||
Me.Label1.Text = "Kreditlimit:"
|
||||
'
|
||||
'txtProforma
|
||||
'
|
||||
Me.txtProforma._DateTimeOnly = False
|
||||
@@ -1879,16 +1905,16 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.txtProforma.TabIndex = 53
|
||||
Me.txtProforma.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
'
|
||||
'Label24
|
||||
'Label23
|
||||
'
|
||||
Me.Label24.AutoSize = True
|
||||
Me.Label24.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label24.Location = New System.Drawing.Point(8, 46)
|
||||
Me.Label24.Name = "Label24"
|
||||
Me.Label24.Size = New System.Drawing.Size(120, 13)
|
||||
Me.Label24.TabIndex = 52
|
||||
Me.Label24.Text = "- Proforma-Rechnungen"
|
||||
Me.Label23.AutoSize = True
|
||||
Me.Label23.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label23.Location = New System.Drawing.Point(8, 26)
|
||||
Me.Label23.Name = "Label23"
|
||||
Me.Label23.Size = New System.Drawing.Size(113, 13)
|
||||
Me.Label23.TabIndex = 50
|
||||
Me.Label23.Text = "- offene Vorauskassen"
|
||||
'
|
||||
'txtKdSicherheiten
|
||||
'
|
||||
@@ -1919,16 +1945,16 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.txtKdSicherheiten.TabIndex = 51
|
||||
Me.txtKdSicherheiten.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
'
|
||||
'Label23
|
||||
'Label24
|
||||
'
|
||||
Me.Label23.AutoSize = True
|
||||
Me.Label23.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label23.Location = New System.Drawing.Point(8, 26)
|
||||
Me.Label23.Name = "Label23"
|
||||
Me.Label23.Size = New System.Drawing.Size(113, 13)
|
||||
Me.Label23.TabIndex = 50
|
||||
Me.Label23.Text = "- offene Vorauskassen"
|
||||
Me.Label24.AutoSize = True
|
||||
Me.Label24.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label24.Location = New System.Drawing.Point(8, 46)
|
||||
Me.Label24.Name = "Label24"
|
||||
Me.Label24.Size = New System.Drawing.Size(120, 13)
|
||||
Me.Label24.TabIndex = 52
|
||||
Me.Label24.Text = "- Proforma-Rechnungen"
|
||||
'
|
||||
'txtOffenePosten2
|
||||
'
|
||||
@@ -2056,44 +2082,6 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.Label19.TabIndex = 43
|
||||
Me.Label19.Text = "+ Sicherheiten"
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label1.Location = New System.Drawing.Point(6, 111)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(66, 13)
|
||||
Me.Label1.TabIndex = 19
|
||||
Me.Label1.Text = "Kreditlimit:"
|
||||
'
|
||||
'lblKreditlimit
|
||||
'
|
||||
Me.lblKreditlimit._DateTimeOnly = False
|
||||
Me.lblKreditlimit._numbersOnly = False
|
||||
Me.lblKreditlimit._numbersOnlyKommastellen = ""
|
||||
Me.lblKreditlimit._numbersOnlyTrennzeichen = True
|
||||
Me.lblKreditlimit._Prozent = False
|
||||
Me.lblKreditlimit._ShortDateNew = False
|
||||
Me.lblKreditlimit._ShortDateOnly = False
|
||||
Me.lblKreditlimit._TimeOnly = False
|
||||
Me.lblKreditlimit._TimeOnly_Seconds = False
|
||||
Me.lblKreditlimit._value = Nothing
|
||||
Me.lblKreditlimit._Waehrung = False
|
||||
Me.lblKreditlimit._WaehrungZeichen = True
|
||||
Me.lblKreditlimit.BackColor = System.Drawing.Color.AntiqueWhite
|
||||
Me.lblKreditlimit.BorderStyle = System.Windows.Forms.BorderStyle.None
|
||||
Me.lblKreditlimit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblKreditlimit.ForeColor = System.Drawing.Color.Black
|
||||
Me.lblKreditlimit.Location = New System.Drawing.Point(135, 111)
|
||||
Me.lblKreditlimit.MaxLineLength = -1
|
||||
Me.lblKreditlimit.MaxLines_Warning = ""
|
||||
Me.lblKreditlimit.MaxLines_Warning_Label = Nothing
|
||||
Me.lblKreditlimit.Name = "lblKreditlimit"
|
||||
Me.lblKreditlimit.ReadOnly = True
|
||||
Me.lblKreditlimit.Size = New System.Drawing.Size(108, 13)
|
||||
Me.lblKreditlimit.TabIndex = 20
|
||||
Me.lblKreditlimit.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
'
|
||||
'lblVorkasse
|
||||
'
|
||||
Me.lblVorkasse.Location = New System.Drawing.Point(492, 230)
|
||||
@@ -2180,6 +2168,22 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.txtUmsatzJahr.TabIndex = 32
|
||||
Me.txtUmsatzJahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
|
||||
'
|
||||
'rtbAbf_Besonderheiten
|
||||
'
|
||||
Me.rtbAbf_Besonderheiten.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.rtbAbf_Besonderheiten.BackColor = System.Drawing.Color.White
|
||||
Me.rtbAbf_Besonderheiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.rtbAbf_Besonderheiten.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.rtbAbf_Besonderheiten.Location = New System.Drawing.Point(7, 32)
|
||||
Me.rtbAbf_Besonderheiten.Name = "rtbAbf_Besonderheiten"
|
||||
Me.rtbAbf_Besonderheiten.ReadOnly = True
|
||||
Me.rtbAbf_Besonderheiten.ShowSelectionMargin = True
|
||||
Me.rtbAbf_Besonderheiten.Size = New System.Drawing.Size(660, 193)
|
||||
Me.rtbAbf_Besonderheiten.TabIndex = 7
|
||||
Me.rtbAbf_Besonderheiten.Text = ""
|
||||
'
|
||||
'lblInsolvent
|
||||
'
|
||||
Me.lblInsolvent.BackColor = System.Drawing.Color.Red
|
||||
@@ -2741,8 +2745,8 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.dgvVollmachten.AllowUserToDeleteRows = False
|
||||
Me.dgvVollmachten.AllowUserToOrderColumns = True
|
||||
Me.dgvVollmachten.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvVollmachten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
|
||||
DataGridViewCellStyle19.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvVollmachten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19
|
||||
Me.dgvVollmachten.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvVollmachten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvVollmachten.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
@@ -2795,8 +2799,8 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.dgvVertraege.AllowUserToDeleteRows = False
|
||||
Me.dgvVertraege.AllowUserToOrderColumns = True
|
||||
Me.dgvVertraege.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvVertraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
|
||||
DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvVertraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20
|
||||
Me.dgvVertraege.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvVertraege.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvVertraege.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
@@ -2996,8 +3000,8 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.dgvGestGarantie.AllowUserToDeleteRows = False
|
||||
Me.dgvGestGarantie.AllowUserToOrderColumns = True
|
||||
Me.dgvGestGarantie.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvGestGarantie.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
|
||||
DataGridViewCellStyle21.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvGestGarantie.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle21
|
||||
Me.dgvGestGarantie.BackgroundColor = System.Drawing.Color.White
|
||||
Me.dgvGestGarantie.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvGestGarantie.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
@@ -3487,24 +3491,24 @@ Partial Class usrCntlKundenuebersicht
|
||||
Me.dgvAufschub.AllowUserToResizeColumns = False
|
||||
Me.dgvAufschub.AllowUserToResizeRows = False
|
||||
Me.dgvAufschub.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.dgvAufschub.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle10
|
||||
DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle22.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle22.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.dgvAufschub.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle22
|
||||
Me.dgvAufschub.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvAufschub.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.KtoId, Me.Art, Me.HZA, Me.KontoNr, Me.EORI, Me.NL, Me.BIN})
|
||||
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Window
|
||||
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.ControlText
|
||||
DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvAufschub.DefaultCellStyle = DataGridViewCellStyle12
|
||||
DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle24.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle24.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle24.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle24.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvAufschub.DefaultCellStyle = DataGridViewCellStyle24
|
||||
Me.dgvAufschub.Location = New System.Drawing.Point(13, 61)
|
||||
Me.dgvAufschub.MultiSelect = False
|
||||
Me.dgvAufschub.Name = "dgvAufschub"
|
||||
@@ -3531,8 +3535,8 @@ Partial Class usrCntlKundenuebersicht
|
||||
'
|
||||
'HZA
|
||||
'
|
||||
DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
|
||||
Me.HZA.DefaultCellStyle = DataGridViewCellStyle11
|
||||
DataGridViewCellStyle23.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
|
||||
Me.HZA.DefaultCellStyle = DataGridViewCellStyle23
|
||||
Me.HZA.HeaderText = "HZA"
|
||||
Me.HZA.Name = "HZA"
|
||||
Me.HZA.ReadOnly = True
|
||||
@@ -3645,48 +3649,78 @@ Partial Class usrCntlKundenuebersicht
|
||||
'
|
||||
'ContextMenuStrip4
|
||||
'
|
||||
Me.ContextMenuStrip4.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.ToolStripMenuItem6, Me.ToolStripMenuItem7, Me.GültigungültigToolStripMenuItem})
|
||||
Me.ContextMenuStrip4.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.ToolStripMenuItem7, Me.ToolStripMenuItem6, Me.GültigungültigToolStripMenuItem})
|
||||
Me.ContextMenuStrip4.Name = "ContextMenuStrip1"
|
||||
Me.ContextMenuStrip4.Size = New System.Drawing.Size(156, 136)
|
||||
Me.ContextMenuStrip4.Size = New System.Drawing.Size(159, 136)
|
||||
'
|
||||
'ToolStripMenuItem1
|
||||
'
|
||||
Me.ToolStripMenuItem1.Image = Global.SDL.My.Resources.Resources.del
|
||||
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
|
||||
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(155, 22)
|
||||
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(158, 22)
|
||||
Me.ToolStripMenuItem1.Text = "Löschen"
|
||||
'
|
||||
'ToolStripMenuItem4
|
||||
'
|
||||
Me.ToolStripMenuItem4.Image = Global.SDL.My.Resources.Resources.stift
|
||||
Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
|
||||
Me.ToolStripMenuItem4.Size = New System.Drawing.Size(155, 22)
|
||||
Me.ToolStripMenuItem4.Size = New System.Drawing.Size(158, 22)
|
||||
Me.ToolStripMenuItem4.Text = "Ändern"
|
||||
'
|
||||
'ToolStripMenuItem5
|
||||
'
|
||||
Me.ToolStripMenuItem5.Image = Global.SDL.My.Resources.Resources.pdf
|
||||
Me.ToolStripMenuItem5.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PDFToolStripMenuItem, Me.MailToolStripMenuItem})
|
||||
Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5"
|
||||
Me.ToolStripMenuItem5.Size = New System.Drawing.Size(155, 22)
|
||||
Me.ToolStripMenuItem5.Text = "Hochladen"
|
||||
Me.ToolStripMenuItem5.Size = New System.Drawing.Size(158, 22)
|
||||
Me.ToolStripMenuItem5.Text = "Anh. hochladen"
|
||||
'
|
||||
'PDFToolStripMenuItem
|
||||
'
|
||||
Me.PDFToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.pdf
|
||||
Me.PDFToolStripMenuItem.Name = "PDFToolStripMenuItem"
|
||||
Me.PDFToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
|
||||
Me.PDFToolStripMenuItem.Text = "PDF"
|
||||
'
|
||||
'MailToolStripMenuItem
|
||||
'
|
||||
Me.MailToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.email_big1
|
||||
Me.MailToolStripMenuItem.Name = "MailToolStripMenuItem"
|
||||
Me.MailToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
|
||||
Me.MailToolStripMenuItem.Text = "Mail"
|
||||
'
|
||||
'ToolStripMenuItem7
|
||||
'
|
||||
Me.ToolStripMenuItem7.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PDFToolStripMenuItem1, Me.MailToolStripMenuItem1})
|
||||
Me.ToolStripMenuItem7.Image = Global.SDL.My.Resources.Resources.del
|
||||
Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7"
|
||||
Me.ToolStripMenuItem7.Size = New System.Drawing.Size(158, 22)
|
||||
Me.ToolStripMenuItem7.Text = "Anh. löschen"
|
||||
'
|
||||
'PDFToolStripMenuItem1
|
||||
'
|
||||
Me.PDFToolStripMenuItem1.Image = Global.SDL.My.Resources.Resources.pdf
|
||||
Me.PDFToolStripMenuItem1.Name = "PDFToolStripMenuItem1"
|
||||
Me.PDFToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
|
||||
Me.PDFToolStripMenuItem1.Text = "PDF"
|
||||
'
|
||||
'MailToolStripMenuItem1
|
||||
'
|
||||
Me.MailToolStripMenuItem1.Image = Global.SDL.My.Resources.Resources.email_big1
|
||||
Me.MailToolStripMenuItem1.Name = "MailToolStripMenuItem1"
|
||||
Me.MailToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
|
||||
Me.MailToolStripMenuItem1.Text = "Mail"
|
||||
'
|
||||
'ToolStripMenuItem6
|
||||
'
|
||||
Me.ToolStripMenuItem6.Image = Global.SDL.My.Resources.Resources.scanner1
|
||||
Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6"
|
||||
Me.ToolStripMenuItem6.Size = New System.Drawing.Size(155, 22)
|
||||
Me.ToolStripMenuItem6.Size = New System.Drawing.Size(158, 22)
|
||||
Me.ToolStripMenuItem6.Text = "Scannen"
|
||||
'
|
||||
'ToolStripMenuItem7
|
||||
'
|
||||
Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7"
|
||||
Me.ToolStripMenuItem7.Size = New System.Drawing.Size(155, 22)
|
||||
Me.ToolStripMenuItem7.Text = "PDF löschen"
|
||||
'
|
||||
'GültigungültigToolStripMenuItem
|
||||
'
|
||||
Me.GültigungültigToolStripMenuItem.Name = "GültigungültigToolStripMenuItem"
|
||||
Me.GültigungültigToolStripMenuItem.Size = New System.Drawing.Size(155, 22)
|
||||
Me.GültigungültigToolStripMenuItem.Size = New System.Drawing.Size(158, 22)
|
||||
Me.GültigungültigToolStripMenuItem.Text = "gültig/ungültig"
|
||||
'
|
||||
'btnReloadOP
|
||||
@@ -4089,4 +4123,8 @@ Partial Class usrCntlKundenuebersicht
|
||||
Friend WithEvents txtRisiko As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents txtProforma As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label24 As Label
|
||||
Friend WithEvents PDFToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents MailToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents PDFToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents MailToolStripMenuItem1 As ToolStripMenuItem
|
||||
End Class
|
||||
|
||||
@@ -1061,7 +1061,6 @@ Public Class usrCntlKundenuebersicht
|
||||
With dgvVertraege
|
||||
.Columns.Clear()
|
||||
|
||||
|
||||
.DataSource = VERAG_PROG_ALLGEMEIN.cKundenVertraege.LOAD_LIST(kdNr)
|
||||
If .Columns.Count = 0 Then Exit Sub
|
||||
|
||||
@@ -1069,6 +1068,7 @@ Public Class usrCntlKundenuebersicht
|
||||
.Columns("kv_KundenNr").Visible = False
|
||||
.Columns("kv_vertragArtId").Visible = False
|
||||
.Columns("kv_datenarchivId").Visible = False
|
||||
.Columns("kv_datenarchivId_mail").Visible = False
|
||||
.Columns("kv_erhalten_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||
.Columns("kv_erhalten_Datum").Width = 65
|
||||
.Columns("kv_erhalten_Datum").HeaderText = "Datum"
|
||||
@@ -1089,10 +1089,23 @@ Public Class usrCntlKundenuebersicht
|
||||
c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
|
||||
c.DefaultCellStyle.Tag = "PDF anzeigen"
|
||||
.Columns.Add(c)
|
||||
|
||||
Dim cMail As New DataGridViewImageColumn
|
||||
cMail.Name = "clmnMail" : cMail.HeaderText = "Mail"
|
||||
cMail.Image = Nothing : cMail.DefaultCellStyle.NullValue = Nothing
|
||||
cMail.ImageLayout = DataGridViewImageCellLayout.Zoom
|
||||
cMail.Width = 40 : cMail.DefaultCellStyle.Padding = New Padding(2) : cMail.DefaultCellStyle.BackColor = Color.White
|
||||
cMail.DefaultCellStyle.Tag = "Mail anzeigen"
|
||||
.Columns.Add(cMail)
|
||||
|
||||
For Each r As DataGridViewRow In .Rows
|
||||
If r.Cells("kv_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("kv_datenarchivId").Value) > 0 Then
|
||||
DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
|
||||
End If
|
||||
If r.Cells("kv_datenarchivId_mail").Value IsNot DBNull.Value AndAlso CInt(r.Cells("kv_datenarchivId_mail").Value) > 0 Then
|
||||
DirectCast(r.Cells("clmnMail"), DataGridViewImageCell).Value = My.Resources.email_big1
|
||||
End If
|
||||
|
||||
If (r.Cells("kv_gueltigBis_Datum").Value IsNot DBNull.Value AndAlso CDate(r.Cells("kv_gueltigBis_Datum").Value) <= CDate(Now.ToShortDateString)) OrElse
|
||||
(Not CBool(r.Cells("kv_gueltig").Value)) Then
|
||||
r.DefaultCellStyle.ForeColor = Color.Red
|
||||
@@ -1745,14 +1758,41 @@ Public Class usrCntlKundenuebersicht
|
||||
End Sub
|
||||
|
||||
Private Sub dgvVertraege_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVertraege.CellDoubleClick
|
||||
If dgvVertraege.SelectedRows.Count = 1 Then
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVertraege.SelectedRows(0).Cells("kv_datenarchivId").Value)
|
||||
If DS.hasITEMS Then
|
||||
For Each i In DS.DATA_LIST.LIST
|
||||
Process.Start(i.coll_pfad)
|
||||
Next
|
||||
|
||||
Dim tmprowindex As Integer = e.RowIndex
|
||||
|
||||
If dgvVertraege.Columns(e.ColumnIndex).Name = "clmnPDF" Then
|
||||
|
||||
If dgvVertraege.Rows(e.RowIndex).Cells("kv_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(dgvVertraege.Rows(e.RowIndex).Cells("kv_datenarchivId").Value) > 0 Then
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVertraege.Rows(tmprowindex).Cells("kv_datenarchivId").Value)
|
||||
If DS.hasITEMS Then
|
||||
For Each i In DS.DATA_LIST.LIST
|
||||
Process.Start(i.coll_pfad)
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
ElseIf dgvVertraege.Columns(e.ColumnIndex).Name = "clmnMail" Then
|
||||
|
||||
If dgvVertraege.Rows(e.RowIndex).Cells("kv_datenarchivId_mail").Value IsNot DBNull.Value AndAlso CInt(dgvVertraege.Rows(e.RowIndex).Cells("kv_datenarchivId_mail").Value) > 0 Then
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVertraege.Rows(tmprowindex).Cells("kv_datenarchivId_mail").Value)
|
||||
If DS.hasITEMS Then
|
||||
For Each i In DS.DATA_LIST.LIST
|
||||
Process.Start(i.coll_pfad)
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
'If dgvVertraege.SelectedRows.Count = 1 Then
|
||||
' Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVertraege.SelectedRows(0).Cells("kv_datenarchivId").Value)
|
||||
' If DS.hasITEMS Then
|
||||
' For Each i In DS.DATA_LIST.LIST
|
||||
' Process.Start(i.coll_pfad)
|
||||
' Next
|
||||
' End If
|
||||
'End If
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -2672,17 +2712,40 @@ Public Class usrCntlKundenuebersicht
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem5.Click
|
||||
Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles PDFToolStripMenuItem.Click, MailToolStripMenuItem.Click
|
||||
|
||||
If dgvVertraege.SelectedRows.Count = 1 Then
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & dgvVertraege.SelectedRows(0).Cells("kv_id").Value, kdNr)
|
||||
If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then
|
||||
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
|
||||
KV.kv_datenarchivId = DS.da_id
|
||||
KV.SAVE()
|
||||
initDGVVertraege()
|
||||
End If
|
||||
End If
|
||||
|
||||
Select Case sender.Name
|
||||
Case "PDFToolStripMenuItem"
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & dgvVertraege.SelectedRows(0).Cells("kv_id").Value, kdNr)
|
||||
If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then
|
||||
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
|
||||
KV.kv_datenarchivId = DS.da_id
|
||||
KV.SAVE()
|
||||
initDGVVertraege()
|
||||
End If
|
||||
End If
|
||||
|
||||
Case "MailToolStripMenuItem"
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_Mail_" & dgvVertraege.SelectedRows(0).Cells("kv_id").Value, kdNr)
|
||||
If DS.uploadDataToDATENSERVERFileDialog() Then
|
||||
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
|
||||
KV.kv_datenarchivId_mail = DS.da_id
|
||||
KV.SAVE()
|
||||
initDGVVertraege()
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End Select
|
||||
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -2710,20 +2773,45 @@ Public Class usrCntlKundenuebersicht
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click
|
||||
Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles PDFToolStripMenuItem1.Click, MailToolStripMenuItem1.Click
|
||||
If dgvVertraege.SelectedRows.Count = 1 Then
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
|
||||
If vbYes = MsgBox("Möchten Sie das PDF wirklich löschen?", vbYesNoCancel) Then
|
||||
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & dgvVertraege.SelectedRows(0).Cells("kv_id").Value, kdNr)
|
||||
DS.DELETE_COMPLETE()
|
||||
Select Case sender.Name
|
||||
Case "PDFToolStripMenuItem1"
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
|
||||
If vbYes = MsgBox("Möchten Sie das PDF wirklich löschen?", vbYesNoCancel) Then
|
||||
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & dgvVertraege.SelectedRows(0).Cells("kv_id").Value, kdNr)
|
||||
DS.DELETE_COMPLETE()
|
||||
|
||||
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
|
||||
KV.kv_datenarchivId = Nothing
|
||||
KV.SAVE()
|
||||
initDGVVertraege()
|
||||
End If
|
||||
End If
|
||||
|
||||
Case "MailToolStripMenuItem1"
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
|
||||
If vbYes = MsgBox("Möchten Sie die Mail wirklich löschen?", vbYesNoCancel) Then
|
||||
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_Mail_" & dgvVertraege.SelectedRows(0).Cells("kv_id").Value, kdNr)
|
||||
DS.DELETE_COMPLETE()
|
||||
|
||||
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
|
||||
KV.kv_datenarchivId_mail = Nothing
|
||||
KV.SAVE()
|
||||
initDGVVertraege()
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End Select
|
||||
|
||||
|
||||
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
|
||||
KV.kv_datenarchivId = Nothing
|
||||
KV.SAVE()
|
||||
initDGVVertraege()
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -3538,6 +3626,5 @@ Public Class usrCntlKundenuebersicht
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user