Set UIView01 = WS.CurrentView
Set View01 = UIView01.View
Set VDoc01 = DBCU.GetDocumentByUNID ( View01.UniversalID )
Set FItem01 = VDoc01.GetFirstItem ( "$Readers" )
Success01 = False
If Not FItem01 Is Nothing Then
If FItem01.Text <> "" Then
Success01 = True
End If
End If
If Success01 = True Then
Call VDoc01.Remove ( True )
Msgbox "Ihre Ansicht wurde erneuert. Bitte schliessen Sie nun die Datenbank und öffnen Sie die Datenbank dann neu."
End If