ja klar ohne code gehts schlecht...sry...
deine tipss werde ich mir mal zur gemüt führen und das mal prüfen danke...achja die ansicht ist
("(Auskunft Starter)")
Sub Click(Source As Button)
'Personensperren überprüfen - 05.07.2007
'---------------------------------------------------------------------------
Dim WS As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim psDB As notesdatabase
Dim psVW As notesview
Dim bwDB As notesdatabase
Dim bwVW As notesview
Dim BID As String
Dim TID As Long
Dim nen As String
Dim ausgabe As String
Dim errtext As String
Dim trcol As notesviewentrycollection
Dim dat As New notesdatetime(Today)
Set uidoc = WS.CurrentDocument
Set doc = uidoc.Document
Set trdb = New notesdatabase("xxx02", "Traber/Trrennen.nsf")
Set trview = trdb.getview("(Auskunft Starter)")
'Call trview.refresh
BID = Trim(doc.BesitzerID(0))
Set psDB = GetKonfigDB("","pspServer","pspFile")
If psDB Is Nothing Then Goto SilentError
If Not(psDB.IsOpen) Then Goto SilentError
Set psVW = psDB.GetView("(IDString)")
If psVW Is Nothing Then Error 1001, "Suchansicht im Personensperren nicht gefunden !"
Set psdoc = psVW.GetDocumentByKey(BID, True)
If Not psdoc Is Nothing Then
sperrkz = Sperre(BID, psDB, psVW)
If sperrkz = 1 Then
errtext = "Besitzer ist gesperrt" & Chr(13)
' Exit Sub
Else
ausgabe = ausgabe & Chr(13) & "Besitzer ist nicht gesperrt"
End If
Else
ausgabe = ausgabe & Chr(13) & "Besitzer ist nicht gesperrt"
End If
'----------------------------------------------------------------------------
'Prüfen ob es eine vorläufige Ausfuhr gibt, wenn ja dann darf die Ausfuhr nicht gemacht werden
TID = Trim(doc.TraberID(0))
Set bwDB = New notesdatabase("xxx02","Traber\Besitzwechsel.nsf")
If bwDB Is Nothing Then Goto SilentError
If Not(bwDB.IsOpen) Then Goto SilentError
Set bwVW = bwDB.GetView("(IDString)")
If bwVW Is Nothing Then Error 1001, "Suchansicht im Personensperren nicht gefunden !"
Set bwdoc = bwVW.GetDocumentByKey(Cstr(TID), True)
If Not bwdoc Is Nothing Then
bw =bwkz(TID, bwDB, bwVW)
If bw = 1 Then
errtext = errtext & "Es gibt zu diesem Traber einen vorläufigen Besitzwechsel - keine Ausfuhrerlaubnis"
'Exit Sub
Else
ausgabe = ausgabe & Chr(13) & "Keinen vorläufigen Besitzwechsel gefunden"
End If
Else
ausgabe = ausgabe & Chr(13) & "Keinen vorläufigen Besitzwechsel gefunden"
End If
'----------------------------------------------------------------------------
'Prüfen ob das Pferd zwischen heute und Ausfuhrdatum im genannt wurde"
Stop
Set trcol = trview.getallentriesbykey(Cstr(TID), True)
If trcol.count > 0 Then
dat.localtime = doc.AusfuhrDatumVon(0)
nen = Nennung(trcol, dat)
If Cstr(nen) <> "" Then
errtext = errtext &Chr(13) & "Nennung gefunden - keine Ausfuhrerlaubnis" & Chr(13) & nen
Else
ausgabe = ausgabe & Chr(13) & "Keine Starter Nennung gefunden"
End If
Else
ausgabe = ausgabe & Chr(13) & "Keine Starter Nennung gefunden"
End If
If Not errtext ="" Then
Error 1003, errtext
Else
Msgbox ausgabe
End If
'
Exit Sub
ErrorHandler:
Messagebox Error$ , 64, "Fehler:"
SilentError:
Continue = False
SaveCancel = True
Print ""
Exit Sub
End Sub
