Public Class usrCntlSND_NCTSFiskalEndempf

    Private Sub LinkLabel4_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel4.LinkClicked
        Try
            If Me.FindForm.GetType Is GetType(frmSendungsdetailsNEU) Then
                Dim f = DirectCast(Me.FindForm, frmSendungsdetailsNEU)
                If f.txtEmpfaenger.KdNr > 0 AndAlso f.txtEmpfaenger.KdData_ADRESSEN IsNot Nothing Then
                    ' rtbFiskalEndempf.Text = (If(f.txtEmpfaenger.KdData_ADRESSEN.Name_1, "") & " " & If(f.txtEmpfaenger.KdData_ADRESSEN.Name_2, "")).trim
                    rtbFiskalEndempf.Text = If(f.txtEmpfaenger.KdData_ADRESSEN.Ordnungsbegriff, "")
                Else
                    rtbFiskalEndempf.Text = f.txtEmpfaenger.Text
                End If
            End If
        Catch ex As Exception

        End Try
    End Sub
    Public Sub reset()
        rtbFiskalEndempf.Text = ""
       
    End Sub
End Class