X

2019-08-23 16:28:41 +02:00
parent 1101edb939
commit 8f8b0f4252
37 changed files with 7560 additions and 254 deletions
--- a/SDL/kunden/frmLKWDetails.Designer.vb
+++ b/SDL/kunden/frmLKWDetails.Designer.vb
@@ -45,6 +45,11 @@ Partial Class frmLKWDetails
        Me.Label2 = New System.Windows.Forms.Label()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.lbl = New System.Windows.Forms.Label()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.txtBaujahr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cbxLeasing = New System.Windows.Forms.CheckBox()
+        Me.cbxMiete = New System.Windows.Forms.CheckBox()
+        Me.cbxFinanzierungBank = New System.Windows.Forms.CheckBox()
        Me.pnl.SuspendLayout()
        Me.Panel1.SuspendLayout()
        Me.SuspendLayout()
@@ -53,12 +58,16 @@ Partial Class frmLKWDetails
        '
        Me.pnl.BackColor = System.Drawing.Color.White
        Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.cbxFinanzierungBank)
+        Me.pnl.Controls.Add(Me.cbxMiete)
+        Me.pnl.Controls.Add(Me.cbxLeasing)
+        Me.pnl.Controls.Add(Me.txtBaujahr)
+        Me.pnl.Controls.Add(Me.Label8)
        Me.pnl.Controls.Add(Me.Panel1)
        Me.pnl.Controls.Add(Me.cbxKZAenderung)
        Me.pnl.Controls.Add(Me.Label5)
        Me.pnl.Controls.Add(Me.KdSearchBox1)
        Me.pnl.Controls.Add(Me.cbxAbgemeldet)
-        Me.pnl.Controls.Add(Me.cbxVerkauft)
        Me.pnl.Controls.Add(Me.txtVermerk)
        Me.pnl.Controls.Add(Me.Label3)
        Me.pnl.Controls.Add(Me.btnAbbrechen)
@@ -68,10 +77,11 @@ Partial Class frmLKWDetails
        Me.pnl.Controls.Add(Me.Label2)
        Me.pnl.Controls.Add(Me.Label1)
        Me.pnl.Controls.Add(Me.lbl)
+        Me.pnl.Controls.Add(Me.cbxVerkauft)
        Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
        Me.pnl.Location = New System.Drawing.Point(0, 0)
        Me.pnl.Name = "pnl"
-        Me.pnl.Size = New System.Drawing.Size(315, 229)
+        Me.pnl.Size = New System.Drawing.Size(411, 229)
        Me.pnl.TabIndex = 1
        '
        'Panel1
@@ -188,7 +198,7 @@ Partial Class frmLKWDetails
        Me.KdSearchBox1.nurAktive = True
        Me.KdSearchBox1.ReadOnly = True
        Me.KdSearchBox1.searchActive = True
-        Me.KdSearchBox1.Size = New System.Drawing.Size(260, 13)
+        Me.KdSearchBox1.Size = New System.Drawing.Size(348, 13)
        Me.KdSearchBox1.TabIndex = 12
        Me.KdSearchBox1.usrcntl = Nothing
        '
@@ -228,19 +238,19 @@ Partial Class frmLKWDetails
        Me.txtVermerk._WaehrungZeichen = True
        Me.txtVermerk.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtVermerk.ForeColor = System.Drawing.Color.Black
-        Me.txtVermerk.Location = New System.Drawing.Point(5, 127)
+        Me.txtVermerk.Location = New System.Drawing.Point(6, 129)
        Me.txtVermerk.MaxLength = 100
        Me.txtVermerk.MaxLineLength = -1
        Me.txtVermerk.MaxLines_Warning = ""
        Me.txtVermerk.MaxLines_Warning_Label = Nothing
        Me.txtVermerk.Name = "txtVermerk"
-        Me.txtVermerk.Size = New System.Drawing.Size(291, 23)
+        Me.txtVermerk.Size = New System.Drawing.Size(392, 23)
        Me.txtVermerk.TabIndex = 8
        '
        'Label3
        '
        Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(2, 108)
+        Me.Label3.Location = New System.Drawing.Point(3, 113)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(49, 13)
        Me.Label3.TabIndex = 7
@@ -250,7 +260,7 @@ Partial Class frmLKWDetails
        '
        Me.btnAbbrechen.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.btnAbbrechen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnAbbrechen.Location = New System.Drawing.Point(61, 156)
+        Me.btnAbbrechen.Location = New System.Drawing.Point(145, 158)
        Me.btnAbbrechen.Name = "btnAbbrechen"
        Me.btnAbbrechen.Size = New System.Drawing.Size(87, 34)
        Me.btnAbbrechen.TabIndex = 5
@@ -261,9 +271,9 @@ Partial Class frmLKWDetails
        '
        Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnOK.Location = New System.Drawing.Point(154, 156)
+        Me.btnOK.Location = New System.Drawing.Point(238, 158)
        Me.btnOK.Name = "btnOK"
-        Me.btnOK.Size = New System.Drawing.Size(142, 34)
+        Me.btnOK.Size = New System.Drawing.Size(160, 34)
        Me.btnOK.TabIndex = 6
        Me.btnOK.Text = "OK"
        Me.btnOK.UseVisualStyleBackColor = True
@@ -342,11 +352,76 @@ Partial Class frmLKWDetails
        Me.lbl.TabIndex = 0
        Me.lbl.Text = "Bitte geben Sie die Datem zum LKW ein:"
        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(302, 34)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(46, 13)
+        Me.Label8.TabIndex = 16
+        Me.Label8.Text = "Baujahr:"
+        '
+        'txtBaujahr
+        '
+        Me.txtBaujahr._DateTimeOnly = False
+        Me.txtBaujahr._numbersOnly = False
+        Me.txtBaujahr._numbersOnlyKommastellen = ""
+        Me.txtBaujahr._Prozent = False
+        Me.txtBaujahr._ShortDateNew = True
+        Me.txtBaujahr._ShortDateOnly = False
+        Me.txtBaujahr._TimeOnly = False
+        Me.txtBaujahr._value = Nothing
+        Me.txtBaujahr._Waehrung = False
+        Me.txtBaujahr._WaehrungZeichen = True
+        Me.txtBaujahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtBaujahr.ForeColor = System.Drawing.Color.Black
+        Me.txtBaujahr.Location = New System.Drawing.Point(302, 51)
+        Me.txtBaujahr.MaxLength = 10
+        Me.txtBaujahr.MaxLineLength = -1
+        Me.txtBaujahr.MaxLines_Warning = ""
+        Me.txtBaujahr.MaxLines_Warning_Label = Nothing
+        Me.txtBaujahr.Name = "txtBaujahr"
+        Me.txtBaujahr.Size = New System.Drawing.Size(96, 26)
+        Me.txtBaujahr.TabIndex = 17
+        '
+        'cbxLeasing
+        '
+        Me.cbxLeasing.AutoSize = True
+        Me.cbxLeasing.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxLeasing.Location = New System.Drawing.Point(236, 83)
+        Me.cbxLeasing.Name = "cbxLeasing"
+        Me.cbxLeasing.Size = New System.Drawing.Size(63, 17)
+        Me.cbxLeasing.TabIndex = 18
+        Me.cbxLeasing.Text = "Leasing"
+        Me.cbxLeasing.UseVisualStyleBackColor = True
+        '
+        'cbxMiete
+        '
+        Me.cbxMiete.AutoSize = True
+        Me.cbxMiete.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxMiete.Location = New System.Drawing.Point(302, 83)
+        Me.cbxMiete.Name = "cbxMiete"
+        Me.cbxMiete.Size = New System.Drawing.Size(52, 17)
+        Me.cbxMiete.TabIndex = 19
+        Me.cbxMiete.Text = "Miete"
+        Me.cbxMiete.UseVisualStyleBackColor = True
+        '
+        'cbxFinanzierungBank
+        '
+        Me.cbxFinanzierungBank.AutoSize = True
+        Me.cbxFinanzierungBank.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxFinanzierungBank.Location = New System.Drawing.Point(236, 106)
+        Me.cbxFinanzierungBank.Name = "cbxFinanzierungBank"
+        Me.cbxFinanzierungBank.Size = New System.Drawing.Size(114, 17)
+        Me.cbxFinanzierungBank.TabIndex = 20
+        Me.cbxFinanzierungBank.Text = "Finanzierung Bank"
+        Me.cbxFinanzierungBank.UseVisualStyleBackColor = True
+        '
        'frmLKWDetails
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(315, 229)
+        Me.ClientSize = New System.Drawing.Size(411, 229)
        Me.Controls.Add(Me.pnl)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.KeyPreview = True
@@ -382,4 +457,9 @@ Partial Class frmLKWDetails
    Friend WithEvents KdSearchBox1 As VERAG_PROG_ALLGEMEIN.KdSearchBox
    Friend WithEvents cbxKZAenderung As System.Windows.Forms.CheckBox
    Friend WithEvents Panel1 As System.Windows.Forms.Panel
+    Friend WithEvents cbxFinanzierungBank As CheckBox
+    Friend WithEvents cbxMiete As CheckBox
+    Friend WithEvents cbxLeasing As CheckBox
+    Public WithEvents txtBaujahr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label8 As Label
 End Class
--- a/SDL/kunden/frmLKWDetails.vb
+++ b/SDL/kunden/frmLKWDetails.vb
@@ -68,6 +68,11 @@
            lblSachbearb.DataBindings.Add(New Binding("Text", s.bindingSource, "Sachbearbeiter", True, DataSourceUpdateMode.OnPropertyChanged, ""))


+            txtBaujahr.DataBindings.Add(New Binding("Text", s.bindingSource, "Baujahr", True, DataSourceUpdateMode.OnPropertyChanged, ""))
+            cbxMiete.DataBindings.Add(New Binding("Checked", s.bindingSource, "KzMiete", True, DataSourceUpdateMode.OnPropertyChanged, False))
+            cbxLeasing.DataBindings.Add(New Binding("Checked", s.bindingSource, "KzLeasing", True, DataSourceUpdateMode.OnPropertyChanged, False))
+            cbxFinanzierungBank.DataBindings.Add(New Binding("Checked", s.bindingSource, "KzFinanzierungBank", True, DataSourceUpdateMode.OnPropertyChanged, False))
+
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
@@ -119,7 +124,7 @@
    End Sub

    Private Sub frmLKWDetails_Load(sender As Object, e As EventArgs) Handles Me.Load
-        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me) Then
+        If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_LKW_bearbeiten", Me) Then
            MsgBox("Keine Berechtigung!")
            Me.Close()
        End If