23 lines
960 B
VB.net
23 lines
960 B
VB.net
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
|