Revert "commit"

2024-10-02 08:59:41 +00:00
parent 298156bc8d
commit a39d888c67
2987 changed files with 174 additions and 13775 deletions
--- a/SDL/kunden/frmKundenKontakteDetails.vb
+++ b/SDL/kunden/frmKundenKontakteDetails.vb
@@ -0,0 +1,129 @@
+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, "")
+
+        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 cbxLand.changeItem(KD_KONTAKT.kkd_Geburtsland)
+
+    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()
+        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