Derjenige, der das Script ausführt hat Editor-rechte, der im Fefls Authornames_T steht hat Authorrechte auf die DB.
Eigentlich ging die DB die ganze Zeit reibungslos, diejenigen, welche die Rolle [XTeam] oder [DBManager] hatten waren immer Editor und konnten das Dokument egal in welcher Phase bearbeiten. Dann wurde der Server der DB hardwareseitig vom Provider ausgetauscht und seitdem geht es nicht mehr. Leider bekomme ich auch keinen Support vom Provider?!?
Ron
Auf der DB hat er dei Rolle [XTeam] und [DBManager] auf das Dokument, keine Ahnung, da hat doch nur Ron Kaputzki Rechte oder?
Ron
Hallo,
ich möchte gerne das Authorenfeld wieder mit neuen Weretn besetzen, da das Dokument derzeit nicht bearbeitbar ist.
habe hier ein Script, was bei anderen Feldern funktioneirt nur hier nicht, was ist daran falsch? Hoffe jemand kann mir hier weiterhelfen.
Feld Field Name: Authornames_T
Data Type: Text
Data Length: 40 bytes
Seq Num: 1
Dup Item ID: 0
Field Flags: SUMMARY READ/WRITE-ACCESS NAMES
"CN=Ron Kaputzki/OU=DE/OU=Firma/O=Company"
Mit diesem Script möchte ich den Wert [DBManager] einefügen, was nicht geht:
Sub Initialize
Dim session As New notessession
Dim doc As notesdocument
Dim dc As notesdocumentcollection
Dim db As notesdatabase
Dim strFieldName As String
Dim strNewValue As String
Dim item As NotesItem
Dim Gefunden As Variant
Dim FieldFound As Variant
Dim counter As Integer
Dim intIndex As Integer
Dim strArray() As String
Dim j As Integer
strFieldName = Inputbox ("Enter a field name", "Field Name", "" , 0 , 0 )
If strFieldName = "" Then
Messagebox "Please enter a field name!", 16, "Error Enter Fieldname"
Exit Sub
End If
strNewValue = Inputbox ("Enter the new value", "New value", "" , 0 , 0 )
If strNewValue = "" Then
Messagebox "Please enter a value!", 16, "Error new value"
Exit Sub
End If
Set db = session.currentdatabase
Set dc = db.UnprocessedDocuments
For j = 1 To dc.Count
Set doc = dc.GetNthDocument(j)
Gefunden = False
counter = 0
FieldFound = False
' Prüfen ob der gesuchte Feldname im Dokument vorhanden ist
If Not (doc Is Nothing) Then
Forall itemName In doc.items
If itemname.name = strFieldName Then
FieldFound = True
Exit Forall
End If
End Forall
End If
If FieldFound = False Then
Goto NextDoc
End If
' Auf das Feld positionieren
Set item = doc.getFirstItem(strFieldName)
Gefunden = False
' Wenn gefunden dann Wert ersetzen
If Gefunden Then
Redim strArray(1 To counter)
counter = 0
Forall x In item.values
counter = counter + 1
If counter = intIndex Then
strArray(counter) = strNewValue
Else
strArray(Counter) = x
End If
End Forall
item.values = strArray
End If
Call doc.Save(True,False)
NextDoc:
Next
End Sub%edit
Code in Tags gesetzt/diali
Danke Dirk, hat funktioniert, leider sind meine privaten Ansichten
damit auch verloren gegangen. Gibt es da eine Möglichkeit diese zu sichern, falls ich nochmals in den sauren Apfel beißen muss?
Ron
Hallo,
eine Ansicht wird nur auf meinem PC nicht korrekt angezeigt,
ein Refresch der Indixe (Shift+F9), ein Rebbot war bisher erfolglos. Besondere Rechte sind nicht vergeben. Wenn ich eine private Ansicht erstelle (basierend auf der vorhandenen nicht korrekt angezeigten) wird mir diese korrekt angezeigt, ratlos??
Ron
Nein, habe ich erst acuh gedacht, ist aber nicht der Fall.
Ron
Das Problem ist nur, er kann Private Ansichten erstellen, nur die alten nicht mehr verändern. Gibt es da eventuell Einträge in der INI-Datei ?
Ron
Die Fehlermeldung lautet:
Für diesen Vorgang haben Sie nicht die nötigen Zugriffsrechte
Bin für jeden Tipp dankbar.
Ron
Hallo,
ich stehe da vor einem Problem, ein Kollege welcher für die gleiche DB identische Rechte hat, kann auf einmal seine privaten Ansichten nicht mehr verändern. Neue kann eer jedoch erstellen.
Woran könnte das liegen?
Ron
Es ist kein Fehler im Script, es hat etwas mit der lokalen Insatllation des Notes-Client zu tun, ich habe die Sache nun an meine Kollegen bzw. unserem Provider auf der anderen Seite des Ozeans gegeben.
Ron
Die Feldnamen in der CSv-Datei und Maske stimmen alle überein, keine Umlaute.
Bei der Eingreung des Fehlers, bin ich soweit wie oben beschrieben. Es muss etwas mit der Einstellung der Workstation zu tun haben, soweit meine Eingrenzung.
Ron
Es kommt keine spezifische Fehlernmeldung. Das Script ist ein Standard script aus dem Netz:
http://www.openntf.org/Project…2F75581698625726700715FCA
Das Script steigt aus beim Vergleich der in der CSV-Datei bezeichneten Feldnamen des Formulars, angeblich stimmen die Namen nicht überein.
<<<
If Not flag=1 Then
msg="The field name "& fd(i) &" does not appear in the form you have chosen. Exiting import."
Msgbox msg
Goto ErrorHandler
End If 'flag=1
<<<
diese Sache habe ich jedoch schon im Forum Development diskutriert. Am Script ist kein Fehler. Der Fehler muss entweder in der Registry oder INI-Datei sein, aber wo??
Ron
Hallo,
eine Frage zu spezifischen Einstellungen einer Workstation (PC). Ein Agent (Import von CSV-Daten in ein Formular) läuft in einer Domäne (A) unter User X der Domäne (A) einwandfrei.
Die DB mit Agent existiert auf zwei Domänen (wird täglich repliziert). User (Y) der Domäne (B) können den Agent auf einem Rechner innerhalb der Domöne (B) nicht ohne Fehler ausführen.
Führt jedoch der User (y) der Domäne (B) das Script auf einem Rechner innerhalb der Domäne (A) aus, wird das Script einwandfrei ohne Fehler ausgeführt.
Da ECL-Einstellungen bei beiden Rechner gleich sind, wird vermutet, dass es eine Einstellung am lokalen Rechner der Domäne (B) liegt.
Hat jemand eine Ideee?
Ron
Mir ist das Prinzip schon klar, nur habe ich keinen Zugriff mit dem Designer auf die produktive DB. Ein neues Design wird mittels eines umfangreichen Prozesses überspielt. Auch habe ich keine Admin-Rechte auf die DB, den Server oder sonstiges.
Ron
Also die ECL scheint OK zu sein, ich habe beim User jeden Eintrag von "What others do" überprüft. Alle hatten unter <Allow access to> "external programs" aktiviert.
Ich bin absolut ratlos?
Ron
Zur Begriffserläuterung Workstation ist gleich PC des Users?
Also muss der User schaun, bei dem der Agent nicht geht, wie seine ECL aussieht, korrekt?
Ron
Sorry, aber irgend wie hänge ich mit der ECL. Wenn ich das Richtig verstanden habe prüfe ich da nur wer an meiner Workstation etwas darf, als mein PC, gibt es so etwas auch für den Server worauf die DB liegt, be der der Agent nicht ausgeführt wird? Hier komme ich als normaler User nicht drauf!
Ron
Wenn ich es richtig verstanden habe, muss hier der User der anderen Domöne checken, ob er das recht hat wenn ein Agent nicht unterzeichnet ist externe Programme zu starten, oder?
Denn ich muss mich mit meinem Passwort authentifizieren und sehe dann dass ich xterne Applicationen ausführen darf-
File -> Security -User Security ?? What others can do using workstations? ==> Allow access to external Programms ??
Oder wo gibt es Hilfe zur ECL??
Ron
Wie kann ich die ECL überprüfen als normaler Anwender ohne Amdin-Rechte?
Ron
Ja gerne, das Script ist im Anhang und hier wird ausgestiegen:
=====================
If Not flag=1 Then
msg="The field name "& fd(i) &" does not appear in the form you have chosen. Exiting import."
Msgbox msg
Goto ErrorHandler
End If 'flag=1
Skip:
Next 'For i=1 To cols
End If 'row=1
=====================
Ich dachte, dass der Anwender aus de randeren Domäne vielleicht eine andere Excelversion nutzt, aber beide nutzen Excel 2003
Ron