DISPO/UID/usrcntlAdresse.vb

Public Class usrcntlAdresse
    Property _BeteiligterName As String = "-"
    Property ATR_ID As Integer = -1
    Property BET_ID As Integer = -1

    Public loaded = False

    Dim DISPO As New cOptionenDAL

    Private Sub usrcntlAdresse_Layout(sender As Object, e As LayoutEventArgs) Handles Me.Layout
        lblBeteiligterBez.Text = _BeteiligterName
    End Sub


    Private Sub lblChange_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblChange.LinkClicked
        DISPO.updateKundenDaten(BET_ID, txtFirma.Text, txtStr.Text, txtStrnr.Text, txtPlz.Text, txtOrt.Text, cboLand.Text)
        'If auftragID >= 0 Then btnSave.PerformClick()
        lblChange.Visible = False
    End Sub

    Private Sub txtFirma_TextChanged(sender As Object, e As EventArgs) Handles txtFirma.TextChanged
        'If pic.Visible Then lblChange.Visible = True 'probleme wenn aus versehen überschrieben
        lblNotFound.Visible = False
    End Sub

    Private Sub lblOld_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblOld.LinkClicked
        If BET_ID > 0 Then
            Dim KD As New cEntry
            If KD.LOAD(BET_ID) Then
                setByKD(KD)
            End If
        End If
    End Sub

    Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
        Dim frmSearch As New frmSearch
        If frmSearch.ShowDialog(Me) = DialogResult.OK Then
            If frmSearch.KD IsNot Nothing Then
                setByKD(frmSearch.KD)
            End If
        End If
    End Sub

    Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
        BET_ID = -1
        pic.Visible = False : lblChange.Visible = False : lblOld.Visible = False
    End Sub

    Sub setByKD(KD As cEntry)

        checkKDExists()
        loaded = False
        txtFirma.Text = KD.kd_firma
        txtStr.Text = KD.kd_str
        txtStrnr.Text = KD.kd_strnr
        cboLand.Text = KD.kd_land
        txtPlz.Text = KD.kd_plz
        txtOrt.Text = KD.kd_ort
        txtAnpsr.Text = (KD.kd_anspr1_vn & " " & KD.kd_anspr1_nn).Trim
        If KD.kd_FMZOLL_KdNr IsNot Nothing AndAlso IsNumeric(KD.kd_FMZOLL_KdNr) Then
            kdFirma.KdNr = KD.kd_FMZOLL_KdNr
        End If
        ' ATR_ID = BET_ID
        BET_ID = KD.kd_id

        pic.Visible = True
        lblChange.Visible = False
        lblOld.Visible = False
        lblNotFound.Visible = False
        loaded = True
    End Sub

    Sub setByID(id)
        checkKDExists()
        If id Is Nothing Then Exit Sub
        Dim KD As New cEntry(id)
        If Not KD.hasEntry Then Exit Sub
        loaded = False
        txtFirma.Text = KD.kd_firma
        txtStr.Text = KD.kd_str
        txtStrnr.Text = KD.kd_strnr
        cboLand.Text = KD.kd_land
        txtPlz.Text = KD.kd_plz
        txtOrt.Text = KD.kd_ort
        txtAnpsr.Text = (KD.kd_anspr1_vn & " " & KD.kd_anspr1_nn).Trim
        If KD.kd_FMZOLL_KdNr IsNot Nothing AndAlso IsNumeric(KD.kd_FMZOLL_KdNr) Then
            kdFirma.KdNr = KD.kd_FMZOLL_KdNr
        End If
        '      ATR_ID = BET_ID
        BET_ID = id

        pic.Visible = True
        lblChange.Visible = False
        lblOld.Visible = False
        lblNotFound.Visible = False
        loaded = True
    End Sub


    Sub checkKDExists()
        If BET_ID < 0 OrElse DISPO.existsKunde(BET_ID) Then
            pic.Visible = True
        Else : lblNotFound.Visible = True : End If
    End Sub

    Private Sub usrcntlAdresse_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        kdFirma.initKdBox(Me.FindForm)
        loaded = True
    End Sub

    Sub setKdNrWOEvent(kdNr)
        loaded = False
        If kdNr IsNot Nothing AndAlso IsNumeric(kdNr) Then
            kdFirma.KdNr = kdNr
        End If
        loaded = True
    End Sub

    Private Sub kdFirma_TextChanged() Handles kdFirma.PropertyChanged
        'MsgBox(loaded)
        If Not loaded Then Exit Sub 'NUR WEnn geladen!
        ' MsgBox(kdFirma.KdNrNullInt)
        If kdFirma.KdNrNullInt IsNot Nothing Then
            '  MsgBox(kdFirma.KdData_ADRESSEN)
            If kdFirma.KdData_ADRESSEN IsNot Nothing Then
                Dim AD = kdFirma.KdData_ADRESSEN
                txtFirma.Text = AD.Ordnungsbegriff
                txtStr.Text = AD.Straße
                txtPlz.Text = AD.PLZ
                txtOrt.Text = AD.Ort
                If AD.LandKz IsNot Nothing Then
                    cboLand.Text = If(AD.LandKz.ToString.Length = 1, SDL.cProgramFunctions.getISO2Land(AD.LandKz), AD.LandKz)
                End If
            End If
        End If
    End Sub

   
  
End Class