Symphony bei Notes 8.5.3 über Script füllen

Hallo zusammen ich nutze Symphony um Maskendaten in ein Dokument zu laden, nun habe ich Notes von 8.5.2 auf 8.5.3 upgedatet und nun kommt folgender fehler:

"Die Anwendung konnte nicht gestartet werden, weil sal3.dll nicht gefunden wurde. Neuinstallation der Anwendung könnte das Problem beheben."

Bei Notes 8.5.2 geht es jedoch ohne probleme.

Woran liegt es? Neuinstallation hilft leider auch nicht :-(.

Danke für eure Hilfe.

Oh aber im Script greife ich doch nicht auf Versionen zu.

Sub Click(Source As Button)Dim ws As New NotesUIWorkspaceDim uidoc As NotesUIDocumentDim application As SymphonyApplicationSet uidoc = ws.CurrentDocumentSet doc = uidoc.DocumentSet session = New NotesSessionSet purchaseorder = New PurchaseOrder(session.CurrentDatabase,doc)Dim tempfile As Stringtempfile =  purchaseOrder.GetTemplateFileSet application = New SymphonyApplicationSet document  = application.Documents.AddDocument(tempfile,True,True)Call ExportGeneralDetailCall ExportOrderItemsDim total As Doubletotal = Cdbl(purchaseorder.getSubtotal)If(Subtotal > 100) ThenCall GenerateParagraphAndSectionEnd IfDim tempDirectory As StringtempDirectory = purchaseorder.GetNotesTempDirectoryCall SaveDocument(tempDirectory+purchaseOrder.getPONumber+".odt")

dieser Code funktioniert nun.

jedoch bekomme ich probleme mit der Fehlermeldung "Type Mismatch" bei(Set userfields = document.Fields):

Function getFieldByName( fieldName As String) As SymphonyTextField
Dim userfields As SymphonyTextfields
Dim userfield As SymphonyTextField
Set userfields = document.Fields
For i = 1 To userfields.Count
Set userfield = userfields.Item(i)
If(userfield.Name=fieldName) Then
Set getFieldByName = userfield
Exit For
End If
Next
End Function

Habe dieses Problem behoben bekommen mit der 5. neuinstallation. Jedoch habe ich nun Probleme mit den Scripten, welche vorher mit der 8.5.2 gelaufen sind.