Domino 9 und frühere Versionen > Entwicklung

Problem mit Script

(1/2) > >>

Errormaker:
Hallo,
das folgende Script habe ich bekommen, aber leider läuft es bei mir nicht (erscheint ab den Dimensionierungen alles in rot). Beim Entwickler in einer anderen Firma läuft es aber. Gibt es bei Notes irgendwelche Einstellungen, ohne die Script nicht arbeiten kann? In VBA muss man ja z.B. erst die DAO-Libary aktivieren, damit es funzt.

Sub Click(Source As Button)   
     Dim s As New notessession
     Dim db As NotesDatabase
     Dim acl As NotesACL
     Dim person As NotesAclEntry
       
     Set db=s.currentdatabase  
     Set Person=acl.GetEntry("User  
     Qualitätssicherung/Quality/XXX")
         If ( Person Is Nothing ) Then
           Set person=acl.createaclentry("User
           Qualitätssicherung/Quality/XXX",ACLLEVEL_MANAGER)
         Else
           person.level= ACLLEVEL_MANAGER
         End If
       
     person.candeletedocuments=True          
     person.usertype=ACLTYPE_Person            
     Call acl.save
   
End Sub

Gruß
Markus

klaussal:
... das kommt davon, wenn man abkupfert  ;D

der zeilenumbruch in den set-anweisungen muss weg, also alles in eine zeile schreiben, oder den _ nehmen als fortführungszeichen  ;)

Errormaker:
Da gibt es in Wirklichkeit keinen Zeilenumbruch. Hat nur für den Eintrag nicht ganz von der Zeilenlänge gereicht.
Ich habe aber noch ein wenig rumgespielt und nun läuft die Sache.
Einfach alle Leerzeichen hinter jeder Eingabezeile entfernen und schon klappts mit dem Script.
Trotzdem danke.  ;)

klaussal:
... doch

  Set person=acl.createaclentry("User
          Qualitätssicherung/Quality/XXX",ACLLEVEL_MANAGER)

muss so aussehen:

......aclentry("User_
          Qualitätssicherung/Quality/XXX",ACLLEVEL_MANAGER)


man achte auf den unterstrich  ;D

Errormaker:
Wie schon gesagt. Das hat im Forum halt nicht in eine Zeile gepasst. Daher der Umbruch.
In meinem Script ist es eine Zeile.
Der Fehler lag woanders.

Navigation

[0] Themen-Index

[#] Nächste Seite