SDL/SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb

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, "") 'Konvertierung in Bit-Datatyoe durchführen
        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 = "", 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 btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.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 btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
        If getvalues(BB) Then
            Me.Close()
        End If
    End Sub

    Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.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

    Private Sub UsrcntlPDFScanList1_Load(sender As Object, e As EventArgs) Handles UsrcntlPDFScanList1.Load

    End Sub

    Private Sub btnPDFReport_Click(sender As Object, e As EventArgs) Handles btnPDFReport.Click
        'Erstellung der BerichtsPDF
    End Sub
End Class