Projektdateien hinzufügen.

Aviso/usrCntlSND_NCTSFiskalEndempf.vb

@@ -0,0 +1,22 @@
+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