SDL/SDL/kunden/frmKundenKontakteDetails.vb

Public Class frmKundenKontakteDetails

    Dim kdNr As Integer
    Dim kkd_id As Integer
    Dim KD_KONTAKT As VERAG_PROG_ALLGEMEIN.cKundenKontakte = Nothing

    Sub New(kdNr)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
        Me.kdNr = kdNr
    End Sub

    Sub New(kdNr, kkd_id)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
        Me.kkd_id = kkd_id
        Me.kdNr = kdNr

    End Sub

    Private Sub frmKundenKontakteDetails_Load(sender As Object, e As EventArgs) Handles Me.Load


        cboMannFrau.Items.Clear()
        cboMannFrau.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
        cboMannFrau.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Herr", "Herr"))
        cboMannFrau.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Frau", "Frau"))

        cboKontaktArt.fillWithSQL("SELECT [kka_id],[kka_Bezeichnung]  FROM [tblKundenKontaktArten]", False, "FMZOLL", False)
        cbxLand.fillWithSQL(" select distinct landkz, Währungstabelle.Land  from   Währungstabelle  where landkz is not null  order by LandKz", , "FMZOLL", True)
        cbxLand.changeItem("")

        cbxGeburtsland.Items.AddRange(cbxLand.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
        cbxGeburtsland.changeItem("")

        If cboKontaktArt.Items.Count > 0 Then cboKontaktArt.SelectedIndex = 0

        If kkd_id > 0 Then
            KD_KONTAKT = New VERAG_PROG_ALLGEMEIN.cKundenKontakte(kkd_id)
        Else
            KD_KONTAKT = Nothing
        End If
        setvalue()
    End Sub

    Sub setvalue()
        If KD_KONTAKT Is Nothing Then KD_KONTAKT = New VERAG_PROG_ALLGEMEIN.cKundenKontakte

        cboMannFrau.changeItem(If(KD_KONTAKT.kkd_AnsprechpartnerAnrede, ""))
        cboKontaktArt.changeItem(If(KD_KONTAKT.kkd_kkaId, ""))

        lblAnsprechpartnerVN.Text = If(KD_KONTAKT.kkd_AnsprechpartnerVorname, "")
        lblAnsprechpartnerNN.Text = If(KD_KONTAKT.kkd_AnsprechpartnerNachname, "")

        lblTel.Text = If(KD_KONTAKT.kkd_Tel, "")
        lblFax.Text = If(KD_KONTAKT.kkd_Fax, "")
        lblEmail.Text = If(KD_KONTAKT.kkd_Email, "")
        lblEmailCC.Text = If(KD_KONTAKT.kkd_EmailCC, "")
        lblEmailBCC.Text = If(KD_KONTAKT.kkd_EmailBCC, "")
        lblMobil.Text = If(KD_KONTAKT.kkd_Mobil, "")
        txtOrt.Text = If(KD_KONTAKT.kkd_Ort, "")
        txtStrasse.Text = If(KD_KONTAKT.kkd_Adresse, "")
        txtPLZ.Text = If(KD_KONTAKT.kkd_PLZ, "")
        txtKorrAdd.Text = If(KD_KONTAKT.kkd_Firmenname, "")

        Dim mailfalse = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(lblEmail.Text)
        If mailfalse <> "" Then lblEmail.ForeColor = Color.Red

        Dim mailfalsecc = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(lblEmailCC.Text)
        If mailfalsecc <> "" Then lblEmail.ForeColor = Color.Red

        Dim mailfalsebcc = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(lblEmailBCC.Text)
        If mailfalsebcc <> "" Then lblEmail.ForeColor = Color.Red

        txtGebDatum.Text = IIf(Not IsDBNull(KD_KONTAKT.kkd_GebDatum) AndAlso IsDate(KD_KONTAKT.kkd_GebDatum), CDate(KD_KONTAKT.kkd_GebDatum), "")
        txtPassgueltigbis.Text = IIf(Not IsDBNull(KD_KONTAKT.kkd_Passgueltigbis) AndAlso IsDate(KD_KONTAKT.kkd_Passgueltigbis), CDate(KD_KONTAKT.kkd_Passgueltigbis), "")
        txtGeburtsort.Text = If(KD_KONTAKT.kkd_Geburtsort, "")

        If Not IsDBNull(KD_KONTAKT.kkd_Land) Then cbxLand.changeItem(KD_KONTAKT.kkd_Land)
        If Not IsDBNull(KD_KONTAKT.kkd_Geburtsland) Then cbxGeburtsland.changeItem(KD_KONTAKT.kkd_Geburtsland)

        If Not IsDBNull(KD_KONTAKT.kkd_letzteAenderung) AndAlso IsDate(KD_KONTAKT.kkd_letzteAenderung) AndAlso CDate(KD_KONTAKT.kkd_letzteAenderung) > New Date("01.01.2000") Then lblAenderung.Text = KD_KONTAKT.kkd_letzteAenderung
        If Not IsDBNull(KD_KONTAKT.kkd_letzteAenderungUser) Then lblSachbearbeiter.Text = KD_KONTAKT.kkd_letzteAenderungUser

    End Sub

    Sub getvalue()
        If KD_KONTAKT Is Nothing Then KD_KONTAKT = New VERAG_PROG_ALLGEMEIN.cKundenKontakte

        KD_KONTAKT.kkd_AnsprechpartnerAnrede = cboMannFrau._value
        KD_KONTAKT.kkd_kkaId = cboKontaktArt._value
        KD_KONTAKT.kkd_kkaBez = cboKontaktArt.Text
        KD_KONTAKT.kkd_KundenNr = kdNr

        KD_KONTAKT.kkd_AnsprechpartnerVorname = lblAnsprechpartnerVN.Text
        KD_KONTAKT.kkd_AnsprechpartnerNachname = lblAnsprechpartnerNN.Text

        KD_KONTAKT.kkd_Tel = lblTel.Text
        KD_KONTAKT.kkd_Fax = lblFax.Text
        KD_KONTAKT.kkd_Email = lblEmail.Text
        KD_KONTAKT.kkd_EmailCC = lblEmailCC.Text
        KD_KONTAKT.kkd_EmailBCC = lblEmailBCC.Text
        KD_KONTAKT.kkd_Mobil = lblMobil.Text

        KD_KONTAKT.kkd_GebDatum = IIf(txtGebDatum.Text <> "" AndAlso IsDate(txtGebDatum.Text), txtGebDatum.Text, "")
        KD_KONTAKT.kkd_Passgueltigbis = IIf(txtPassgueltigbis.Text <> "" AndAlso IsDate(txtPassgueltigbis.Text), txtPassgueltigbis.Text, "")
        KD_KONTAKT.kkd_Firmenname = txtKorrAdd.Text
        KD_KONTAKT.kkd_Ort = txtOrt.Text
        KD_KONTAKT.kkd_Land = cbxLand._value
        KD_KONTAKT.kkd_PLZ = txtPLZ.Text
        KD_KONTAKT.kkd_Adresse = txtStrasse.Text

        KD_KONTAKT.kkd_Geburtsland = cbxGeburtsland._value
        KD_KONTAKT.kkd_Geburtsort = txtGeburtsort.Text

    End Sub

    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
        getvalue()



        Dim mailfalse = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(KD_KONTAKT.kkd_Email)
        If mailfalse <> "" Then
            lblEmail.ForeColor = Color.Red
            MsgBox("Mailadresse: " & mailfalse & " fehlerhaft!")
            lblEmail.Focus()
            Exit Sub

        Else
            lblEmail.ForeColor = Color.Black
        End If

        Dim mailfalsecc = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(KD_KONTAKT.kkd_EmailCC)
        If mailfalsecc <> "" Then
            lblEmailCC.ForeColor = Color.Red
            MsgBox("Mailadresse: " & mailfalsecc & " fehlerhaft!")
            lblEmailCC.Focus()
            Exit Sub
        Else
            lblEmailCC.ForeColor = Color.Black
        End If

        Dim mailfalsebcc = VERAG_PROG_ALLGEMEIN.cProgramFunctions.checkifMailisOK(KD_KONTAKT.kkd_EmailBCC)
        If mailfalsebcc <> "" Then
            lblEmailBCC.ForeColor = Color.Red
            MsgBox("Mailadresse: " & mailfalsebcc & " fehlerhaft!")
            lblEmailBCC.Focus()
            Exit Sub
        Else
            lblEmailBCC.ForeColor = Color.Black
        End If

        KD_KONTAKT.kkd_letzteAenderung = DateTime.Now
        KD_KONTAKT.kkd_letzteAenderungUser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
        KD_KONTAKT.SAVE()
        Me.Close()
    End Sub

    Private Sub cboKontaktArt_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboKontaktArt.SelectedIndexChanged


        If cboKontaktArt._value = "13" Then
            pnlGeschaeftsfuehrer.Visible = True
        Else
            pnlGeschaeftsfuehrer.Visible = False
        End If

    End Sub

End Class