neu

SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb

@@ -0,0 +1,167 @@
+Public Class frmBesuchsberichte
+
+    Public KdNr As Integer = -1
+    Public bb_id As Integer = -1
+
+    Dim BB As New VERAG_PROG_ALLGEMEIN.cBesuchsbericht
+
+    Private Sub KdSearchBox1_TextChanged(sender As Object, e As EventArgs) Handles kdFirma.TextChanged
+        If kdFirma.KdNr_value > 0 Then
+            Dim AD = kdFirma.KdData_ADRESSEN
+            Dim KD = kdFirma.KdData_KUNDE
+
+            txtFirma.Enabled = False
+            txtFirma.Text = AD.Name_1 & If(AD.Name_2, "")
+            txtFirma.Text &= vbNewLine & If(AD.Straße, "")
+            txtFirma.Text &= vbNewLine & If(AD.LandKz, "") & If(AD.PLZ, "") & If(AD.Ort, "")
+        Else
+            txtFirma.Enabled = True
+        End If
+    End Sub
+
+    Private Sub frmBesuchsberichte_Load(sender As Object, e As EventArgs) Handles Me.Load
+        kdFirma.initKdBox(Me)
+        cboKontaktart.Items.Clear()
+        cboKontaktart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cboKontaktart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Persönlich", "PERSON"))
+        cboKontaktart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Telefonisch", "TELEFON"))
+        cboKontaktart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Videomeeting", "VIDEO"))
+        cboKontaktart.changeItem("")
+
+        cboZufrieden.Items.Clear()
+        cboZufrieden.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cboZufrieden.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("JA", "JA"))
+        cboZufrieden.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEIN", "NEIN"))
+        cboZufrieden.changeItem("")
+
+        If KdNr > 0 Then
+            kdFirma.KdNr = KdNr
+        End If
+
+        If bb_id > 0 Then
+            BB = New VERAG_PROG_ALLGEMEIN.cBesuchsbericht(bb_id)
+            setvalues(BB)
+
+            UsrcntlPDFScanList1.Enabled = True
+            UsrcntlPDFScanList1.INIT(-1, "BESUCHSBERICHTE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, bb_id)
+        Else
+            UsrcntlPDFScanList1.Enabled = False
+        End If
+
+
+    End Sub
+
+    Sub setvalues(BB As VERAG_PROG_ALLGEMEIN.cBesuchsbericht)
+        datBesuchtAm._value = BB.bb_DatumBesuch
+        txtTeilgenommen.Text = If(BB.bb_Teilnehmer, "")
+        cboKontaktart.changeItem(If(BB.bb_Kontaktart, ""))
+        If If(BB.bb_KundenNr, -1) <= 0 Then
+            txtFirma.Text = If(BB.bb_Kunde, "")
+        End If
+
+        txtGF.Text = If(BB.bb_Geschaeftsfuehrer, "")
+        txtAnsprechpartner.Text = If(BB.bb_Anpsprechpartner, "")
+        txtMail.Text = If(BB.bb_Mail, "")
+        txtTel.Text = If(BB.bb_Telefon, "")
+        txtUmsatz._value = If(BB.bb_Umsatz, "")
+        txtFuhrparkEigene.Text = If(BB.bb_FuhrparkEigentum, "")
+        txtFuhrparkLeasing.Text = If(BB.bb_FuhrparkLeasing, "")
+        cbxPlane.Checked = BB.bb_LKW_Plane
+        cbxKuehltransporte.Checked = BB.bb_LKW_Kuehltranporte
+        cbxSondertransporte.Checked = BB.bb_LKW_Sonsertransporte
+        cbxSprinter.Checked = BB.bb_LKW_Sprinter
+        cbxSiloTank.Checked = BB.bb_LKW_SiloTank
+
+        txtAuftraggeber.Text = If(BB.bb_Auftraggeber, "")
+        txtTransportRoute.Text = If(BB.bb_Route, "")
+        txtDerzeitigerLieferant.Text = If(BB.bb_DerzeitigerLieferant, "")
+        cboZufrieden.changeItem(If(BB.bb_Zufrieden, ""))
+
+        txtZufriedenNEIN.Text = If(BB.bb_ZufriedenNEIN, "")
+        txtGarantie.Text = If(BB.bb_Garantie, "")
+        txtVermerk.Text = If(BB.bb_Vermerk, "")
+
+        cbxZollabfertigung.Checked = BB.bb_Interesse_Zollabfertigung
+        cbxBrexit.Checked = BB.bb_Interesse_Zollabfertigung
+        cbxParkplatz.Checked = BB.bb_Interesse_Parkplatz
+        cbxLagerUmschlag.Checked = BB.bb_Interesse_LagerUmschlag
+        cbxRola.Checked = BB.bb_Interesse_Rola
+        cbxYesMonex.Checked = BB.bb_Interesse_YesMoney
+        cbxFerry.Checked = BB.bb_Interesse_Ferry
+    End Sub
+    Function getvalues(ByRef BB As VERAG_PROG_ALLGEMEIN.cBesuchsbericht) As Boolean
+        If Not checkValid() Then Return False
+
+        BB.bb_DatumBesuch = datBesuchtAm._value
+        BB.bb_Teilnehmer = txtTeilgenommen.Text
+        BB.bb_Kontaktart = cboKontaktart._value
+        If If(BB.bb_KundenNr, -1) <= 0 Then
+            BB.bb_Kunde = If(txtFirma.Text, "")
+        End If
+
+        BB.bb_Geschaeftsfuehrer = txtGF.Text
+        BB.bb_Anpsprechpartner = txtAnsprechpartner.Text
+        BB.bb_Mail = txtMail.Text
+        BB.bb_Telefon = txtTel.Text
+        BB.bb_Umsatz = If(txtUmsatz._value = 22, Nothing, txtUmsatz._value)
+        BB.bb_FuhrparkEigentum = txtFuhrparkEigene.Text
+        BB.bb_FuhrparkLeasing = txtFuhrparkLeasing.Text
+        BB.bb_LKW_Plane = cbxPlane.Checked
+        BB.bb_LKW_Kuehltranporte = cbxKuehltransporte.Checked
+        BB.bb_LKW_Sonsertransporte = cbxSondertransporte.Checked
+        BB.bb_LKW_Sprinter = cbxSprinter.Checked
+        BB.bb_LKW_SiloTank = cbxSiloTank.Checked
+
+        BB.bb_Auftraggeber = txtAuftraggeber.Text
+        BB.bb_Route = txtTransportRoute.Text
+        BB.bb_DerzeitigerLieferant = txtDerzeitigerLieferant.Text
+        BB.bb_Zufrieden = cboZufrieden._value
+
+        BB.bb_ZufriedenNEIN = txtZufriedenNEIN.Text
+        BB.bb_Garantie = txtGarantie.Text
+        BB.bb_Vermerk = txtVermerk.Text
+
+        BB.bb_Interesse_Zollabfertigung = cbxZollabfertigung.Checked
+        BB.bb_Interesse_Zollabfertigung = cbxBrexit.Checked
+        BB.bb_Interesse_Parkplatz = cbxParkplatz.Checked
+        BB.bb_Interesse_LagerUmschlag = cbxLagerUmschlag.Checked
+        BB.bb_Interesse_Rola = cbxRola.Checked
+        BB.bb_Interesse_YesMoney = cbxYesMonex.Checked
+        BB.bb_Interesse_Ferry = cbxFerry.Checked
+
+        BB.bb_Firma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+        BB.bb_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+        BB.bb_SachbearbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
+        Return BB.SAVE()
+    End Function
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        If getvalues(BB) Then
+            UsrcntlPDFScanList1.Enabled = True
+            UsrcntlPDFScanList1.INIT(-1, "BESUCHSBERICHTE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, bb_id)
+        End If
+    End Sub
+
+    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
+        If getvalues(BB) Then
+            Me.Close()
+        End If
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Me.Close()
+    End Sub
+
+    Function checkValid() As Boolean
+        lblErr_BesuchtAm.Visible = False
+        lblErr_Kontaktart.Visible = False
+        lblErr_Teilgenommen.Visible = False
+        lblErr_Firma.Visible = False
+        If datBesuchtAm._value = "" Then lblErr_BesuchtAm.Visible = True : Return False
+        If cboKontaktart._value = "" Then lblErr_Kontaktart.Visible = True : Return False
+        If txtTeilgenommen.Text = "" Then lblErr_Teilgenommen.Visible = True : Return False
+        If txtFirma.Text = "" Then lblErr_Firma.Visible = True : Return False
+        Return True
+    End Function
+
+End Class

SDL/mdm/Besuchsberichte/usrCntlBesuchsberichte.Designer.vb

@@ -0,0 +1,138 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrCntlBesuchsberichte
+    Inherits System.Windows.Forms.UserControl
+
+    'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Me.pnlFilter = New System.Windows.Forms.Panel()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Button14 = New System.Windows.Forms.Button()
+        Me.FlatButton2 = New System.Windows.Forms.Button()
+        Me.dgvBesuchsberichte = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.Panel1.SuspendLayout()
+        CType(Me.dgvBesuchsberichte, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'pnlFilter
+        '
+        Me.pnlFilter.BackColor = System.Drawing.Color.White
+        Me.pnlFilter.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnlFilter.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.pnlFilter.Location = New System.Drawing.Point(0, 43)
+        Me.pnlFilter.Name = "pnlFilter"
+        Me.pnlFilter.Size = New System.Drawing.Size(1072, 34)
+        Me.pnlFilter.TabIndex = 11
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Label1.Location = New System.Drawing.Point(3, 6)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(143, 20)
+        Me.Label1.TabIndex = 1
+        Me.Label1.Text = "Besuchsberichte"
+        '
+        'Panel1
+        '
+        Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.Panel1.Controls.Add(Me.Button14)
+        Me.Panel1.Controls.Add(Me.Label1)
+        Me.Panel1.Controls.Add(Me.FlatButton2)
+        Me.Panel1.Controls.Add(Me.pnlFilter)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel1.Location = New System.Drawing.Point(0, 0)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(1072, 77)
+        Me.Panel1.TabIndex = 13
+        '
+        'Button14
+        '
+        Me.Button14.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button14.ForeColor = System.Drawing.Color.Black
+        Me.Button14.Image = Global.SDL.My.Resources.Resources.plus
+        Me.Button14.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button14.Location = New System.Drawing.Point(898, 3)
+        Me.Button14.Name = "Button14"
+        Me.Button14.Size = New System.Drawing.Size(75, 39)
+        Me.Button14.TabIndex = 18
+        Me.Button14.Text = "Neu"
+        Me.Button14.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button14.UseVisualStyleBackColor = True
+        '
+        'FlatButton2
+        '
+        Me.FlatButton2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.FlatButton2.Enabled = False
+        Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.FlatButton2.ForeColor = System.Drawing.Color.Black
+        Me.FlatButton2.Image = Global.SDL.My.Resources.Resources.del
+        Me.FlatButton2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.FlatButton2.Location = New System.Drawing.Point(983, 3)
+        Me.FlatButton2.Name = "FlatButton2"
+        Me.FlatButton2.Size = New System.Drawing.Size(86, 39)
+        Me.FlatButton2.TabIndex = 19
+        Me.FlatButton2.Text = "Löschen"
+        Me.FlatButton2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.FlatButton2.UseVisualStyleBackColor = True
+        '
+        'dgvBesuchsberichte
+        '
+        Me.dgvBesuchsberichte.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvBesuchsberichte.AllowUserToAddRows = False
+        Me.dgvBesuchsberichte.AllowUserToDeleteRows = False
+        Me.dgvBesuchsberichte.AllowUserToOrderColumns = True
+        Me.dgvBesuchsberichte.AllowUserToResizeColumns = False
+        Me.dgvBesuchsberichte.AllowUserToResizeRows = False
+        Me.dgvBesuchsberichte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvBesuchsberichte.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.dgvBesuchsberichte.Location = New System.Drawing.Point(0, 77)
+        Me.dgvBesuchsberichte.Name = "dgvBesuchsberichte"
+        Me.dgvBesuchsberichte.ReadOnly = True
+        Me.dgvBesuchsberichte.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvBesuchsberichte.Size = New System.Drawing.Size(1072, 530)
+        Me.dgvBesuchsberichte.TabIndex = 15
+        '
+        'usrCntlBesuchsberichte
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.dgvBesuchsberichte)
+        Me.Controls.Add(Me.Panel1)
+        Me.Name = "usrCntlBesuchsberichte"
+        Me.Size = New System.Drawing.Size(1072, 607)
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.dgvBesuchsberichte, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents pnlFilter As System.Windows.Forms.Panel
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents Panel1 As System.Windows.Forms.Panel
+    Friend WithEvents dgvBesuchsberichte As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents Button14 As Button
+    Friend WithEvents FlatButton2 As Button
+End Class

SDL/mdm/Besuchsberichte/usrCntlBesuchsberichte.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

SDL/mdm/Besuchsberichte/usrCntlBesuchsberichte.vb

@@ -0,0 +1,80 @@
+Imports System.Data.SqlClient
+
+Public Class usrCntlBesuchsberichte
+
+    Public kdnr As Integer = -1
+    Dim SQL As New SQL
+
+    Private Sub usrCntlBesuchsberichte_Load(sender As Object, e As EventArgs) Handles Me.Load
+        initDGV()
+    End Sub
+
+
+    Sub initDGV()
+
+        With dgvBesuchsberichte
+
+            .SET_SQL("SELECT TOP (1000) [bb_Id],[bb_DatumBesuch],[bb_KundenNr],[bb_Kunde] ,[bb_Anpsprechpartner] ,[bb_Vermerk],[bb_Sachbearbeiter] FROM [VERAG].[dbo].[tblBesuchsberichte] WHERE bb_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' " & If(kdnr > 0, " AND bb_KundenNr='" & kdnr & "'", ""), "FMZOLL")
+
+            .LOAD()
+
+            If .Columns.Count > 0 Then
+                .Columns("bb_DatumBesuch").Width = 150
+                .Columns("bb_DatumBesuch").HeaderText = "Datum"
+
+                .Columns("bb_Sachbearbeiter").Width = 150
+                .Columns("bb_Sachbearbeiter").HeaderText = "Sachbearbeiter"
+
+                .Columns("bb_Kunde").Width = 200
+                .Columns("bb_Kunde").HeaderText = "Firma"
+
+                .Columns("bb_KundenNr").Width = 50
+                .Columns("bb_KundenNr").HeaderText = "KdNr"
+
+                .Columns("bb_Anpsprechpartner").Width = 150
+                .Columns("bb_Anpsprechpartner").HeaderText = "Anpsprechpartner"
+
+                .Columns("bb_Vermerk").MinimumWidth = 150
+                .Columns("bb_Vermerk").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+                .Columns("bb_Vermerk").HeaderText = "Vermerk"
+                .Columns("bb_Id").Visible = False
+
+            End If
+
+        End With
+    End Sub
+
+    Private Sub dgvBesuchsberichteDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvBesuchsberichte.CellDoubleClick
+        Try
+            Dim f As New frmBesuchsberichte()
+            Dim bb_id = dgvBesuchsberichte.Rows(e.RowIndex).Cells("bb_id").Value
+            f.ShowDialog(Me)
+            initDGV()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+
+    Private Sub Button14_Click(sender As Object, e As EventArgs)
+
+    End Sub
+
+    Private Sub FlatButton2_Click_1(sender As Object, e As EventArgs)
+
+    End Sub
+
+    Private Sub Button14_Click_1(sender As Object, e As EventArgs) Handles Button14.Click
+        Dim f As New frmBesuchsberichte
+        f.ShowDialog(Me)
+    End Sub
+
+    Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles FlatButton2.Click
+        If dgvBesuchsberichte.SelectedRows.Count > 0 Then
+            If vbYes = MsgBox("Möchten Sie den Eintrag wirklich löschen?", vbYesNoCancel) Then
+                If VERAG_PROG_ALLGEMEIN.cBesuchsbericht.DELETE(dgvBesuchsberichte.SelectedRows(0).Cells("bb_id").Value) Then
+                    initDGV()
+                End If
+            End If
+        End If
+    End Sub
+End Class

SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_IT.Designer.vb

@@ -87,6 +87,7 @@ Partial Class usrCntlSDLLeistungenPLOSE_IT
         Me.Label10.Name = "Label10"
         Me.Label10.Size = New System.Drawing.Size(69, 13)
         Me.Label10.TabIndex = 12
+        Me.Label10.Visible = False
         Me.Label10.Text = "VIA-CARD:"
         '
         'Label2
@@ -445,6 +446,7 @@ Partial Class usrCntlSDLLeistungenPLOSE_IT
         Me.txtVIACard.Name = "txtVIACard"
         Me.txtVIACard.Size = New System.Drawing.Size(183, 20)
         Me.txtVIACard.TabIndex = 2
+        Me.txtVIACard.Visible = False
         '
         'txtTelepassNr
         '

SDL/mdm/frmNewData.Designer.vb

@@ -312,6 +312,7 @@ Partial Class frmNewData
         Me.btnSDL_MautPL.Text = "MAUT PL"
         Me.btnSDL_MautPL.TextAlign = System.Drawing.ContentAlignment.BottomCenter
         Me.btnSDL_MautPL.UseVisualStyleBackColor = True
+        Me.btnSDL_MautPL.Visible = False
         '
         'btnSDL_MautIT
         '

SDL/mdm/usrCntlKartenDaten.Designer.vb

@@ -74,13 +74,13 @@ Partial Class usrCntlKartenDaten
         Me.Panel3 = New System.Windows.Forms.Panel()
         Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
         Me.dgvSDL = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.UsrCntlDatenDetails1 = New SDL.usrCntlDatenDetails()
         Me.Panel4 = New System.Windows.Forms.Panel()
         Me.pnlTest = New System.Windows.Forms.Panel()
         Me.dgvFILTER = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.UsrCntlDatenDetails1 = New SDL.usrCntlDatenDetails()
         Me.FlowLayoutPanel.SuspendLayout()
         Me.ContextMenuStrip1.SuspendLayout()
         Me.Panel1.SuspendLayout()
@@ -380,6 +380,7 @@ Partial Class usrCntlKartenDaten
         Me.btnSDL_MautPL.Text = "PL MAUT"
         Me.btnSDL_MautPL.TextAlign = System.Drawing.ContentAlignment.BottomCenter
         Me.btnSDL_MautPL.UseVisualStyleBackColor = True
+        Me.btnSDL_MautPL.Visible = False
         '
         'btnSDL_MautSI
         '
@@ -856,15 +857,6 @@ Partial Class usrCntlKartenDaten
         Me.dgvSDL.Size = New System.Drawing.Size(1354, 599)
         Me.dgvSDL.TabIndex = 29
         '
-        'UsrCntlDatenDetails1
-        '
-        Me.UsrCntlDatenDetails1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrCntlDatenDetails1.Location = New System.Drawing.Point(0, 0)
-        Me.UsrCntlDatenDetails1.Name = "UsrCntlDatenDetails1"
-        Me.UsrCntlDatenDetails1.Size = New System.Drawing.Size(1354, 234)
-        Me.UsrCntlDatenDetails1.TabIndex = 0
-        Me.UsrCntlDatenDetails1.Visible = False
-        '
         'Panel4
         '
         Me.Panel4.BackColor = System.Drawing.Color.White
@@ -923,6 +915,15 @@ Partial Class usrCntlKartenDaten
         Me.ToolStripMenuItem6.Size = New System.Drawing.Size(210, 22)
         Me.ToolStripMenuItem6.Text = "Formatiert (dauert länger)"
         '
+        'UsrCntlDatenDetails1
+        '
+        Me.UsrCntlDatenDetails1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlDatenDetails1.Location = New System.Drawing.Point(0, 0)
+        Me.UsrCntlDatenDetails1.Name = "UsrCntlDatenDetails1"
+        Me.UsrCntlDatenDetails1.Size = New System.Drawing.Size(1354, 234)
+        Me.UsrCntlDatenDetails1.TabIndex = 0
+        Me.UsrCntlDatenDetails1.Visible = False
+        '
         'usrCntlKartenDaten
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

SDL/mdm/usrCntlKartenDaten.vb

@@ -479,7 +479,7 @@ Public Class usrCntlKartenDaten
             Case 203 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=203"
             Case 213 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, OBUID, PIN, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=213"
             Case 214 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, /*KartenNr,*/ OBUID, PIN, PLOSEKundenNr, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr  WHERE SDLNr=214"
-            Case 215 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, VIACARD, [TELEPASS-Nr], PLOSEKundenNr, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr   WHERE SDLNr=215"
+            Case 215 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [TELEPASS-Nr], PLOSEKundenNr, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr   WHERE SDLNr=215"
             Case 216 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, OBUID, PIN, PLOSEKundenNr, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr   WHERE SDLNr=216"
             Case 209 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [MSE-Kd-Nr], KartenNr, Vermerk,Gesperrt, Defekt, Verloren, Gestohlen, Retourniert,  SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=209"
             Case 210 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [MSE-Kd-Nr], KartenNr, OBUID, [SERIE-Nr],Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=210"