Beiträge von Stony

Habe das Script in einen völlig neuen Agenten kopiert und getestet.
Geht leider auch nicht. Nur wenn ich deinen Code vor meinen setzte geht es.

Habe auch mal alles neu kompiliert (Werkzeuge --> Lotus Script neu kompilieren).

Ich habe keine Ahnung an was es liegen könnte.... :wuet:

Vielen Dank für die bisherige Hilfe.

Gruß Jan

Hallo Diali,

jetzt verstehe ich gar nichts mehr.
Habe jetzt mal deinen Code direkt vor meinen gemacht und siehe da....auf einmal funzt mein Code!!!

Dim array1(5) As String
	Dim array2(2) As String
	Dim array3(0) As String
	Dim returnArray2

	array1(0) = "0"
	array1(1) = "1"
	array1(2) = "2"
	array1(3) = "3"
	array1(4) = "4"
	array1(5) = "5"

	array2(0) = "1"
	array2(1) = "3"
	array2(2) = "5"

	array3(0) = ""

	returnArray2 = Fulltrim(Replace(array1, array2, array3))


	Dim replaceArray(0) As Variant
	replaceArray(0)=""

	returnArray = Fulltrim(Replace(orgMSISDN, MSISDN, replaceArray))

Hier ist doch was oberfaul!!
:-? :-?

Gruß Stony

Hallo nochmal,

habe es jetzt nochmal hin und her probiert.
Fazit: Es geht immer noch nicht... :-?

Sehe eigentlich keinen Unterschied mehr zu Diali's Vorschlag und meiner "Lösung".

Danke für die bisherige Hilfe.

Gruß Stony

Immer noch Type missmatch:

Dim replaceArray(0) As Variant
	replaceArray(0)=""

	returnArray = Replace(orgMSISDN, MSISDN, replaceArray)

Hi,

ich versteh es nicht. Es kommt immer noch Type missmatch.

Habe mal den Screenshot vom Debugger beigefügt und die betroffenen werte und code rot markiert....

Danke.

Gruß Stony

Hi,

das Array ist vom Typ Variant, wobei die Werte vom Typ String sind.

Irgendwie bekomme ich das nicht hin.

Bekomme Fehlermeldung "Type missmatch"

rray1:
Wert1
Wert2
Wert3
Wert4
Wert5
Wert6

Array2 (Werte die aus Array 1 gelöscht werden sollen):
Wert1
Wert3
Wert5

Array3 =
""
""
""

returnArray:
Wert2
Wert4
Wert6

returnArray = Replace(Array1,Array2 ,Array3)

Gruß Jan

Hallo zusammen,

gibt es eine Funktion, die ein ganzes "Sub-Array" aus einem Array löschen kann?

Dachte mir das ungefähr so:

Array1:
Wert1
Wert2
Wert3
Wert4
Wert5
Wert6

Array2 (Werte die aus Array 1 gelöscht werden sollen):
Wert1
Wert3
Wert5

Rückgabearray:
Wert2
Wert4
Wert6

Kann mir hier jemand helfen? Danke schonmal im Voraus.

Gruß Stony

Hallo Taurec,

da hast du recht.

Jetzt läuft er auch

Danke. Gruß Stony

Hallo zusammen,

habe ein kleines Problem mit einem Webquerysave-Agenten.

Und zwar soll der Agent einfach das gerade submited Dokument holen.

Die docUNID steht in einem berechnetem Feld im Dokument.

Dim s As New NotesSession
	Dim curDoc As NotesDocument
	Set db = s.CurrentDatabase
	Set curDoc = s.DocumentContext
	Dim docUNID As String
	docUNID = curdoc.docUNID(0)
        Print curDoc.docUNID(0)
	'docUNID = "D9576DBB06322426C12573D20032C706"


	Set curDoc = db.GetDocumentByUNID(docUNID)

	Print curDoc.docUNID(0)

	If curDoc.valueKdnNo(0)="" Then
		Call CreateNewContract(curDoc)
	Else
		Call ModifyExistingContract(curDoc)
	End If

Nun kommt aber immer die Fehlermeldung im Log, dass die UNID nicht stimmt (error: Invalid universal id). Diese steht aber im berechneten Feld des Dokuments.

Wenn ich die docUNID in den Code eintrage und den Agenten per Hand starte geht es. Die ID wird auch im ersten Print-Statement angezeigt. ICh versteh das nicht.

Kann mir hier jemand helfen?

Schonmal vielen Dank im Voraus.

Gruß Stony

Hi,

vielen Dank. Das war ja einfach :-).

Ich hatte es die ganze Zeit mit Trim versucht, bin aber nicht auf FullTrim gekommen.

Gruß Stony

/edit RockWilder:
auf 'erledigt' gesetzt

Hallo zusammen,

habe folgendes Problem:

Und zwar möchte ich einen Wert an ein Array anhängen. Es kann vorkommen, dass das Array leer ist, somit erhalte ich bei folgendem Code

Set readerItem = articleDoc.ReplaceItemValue("Readers",Arrayappend(articleDoc.GetItemValue("Readers"),"[DE]"))

z.B. "",[DE].

Wie bekomme ich jetzt den leeren String daraus?

Schonmal vielen Dank.

Gruß Stony

Hallo.

Super. Das funzt. Vielen Dank.

Gruß Jan

Hallo zusammen,

wie kann ich auf das Personendokument eines angemeldeten Users auf die names.nsf verlinken?

Das hier funktioniert bereits....

<a href="notes://domino/names.nsf" border="0">Change adress data</a>

Jetzt würde ich aber ganz gerne gleich das Doc des angemeldeten user öffnen lassen.

Vielleicht kann man ja auch die names im Web öffnen und dort den User automatisch zu seinem Dokument führen...

http://domino/names.nsf

Wäre vielleicht noch schöner.

Fällt einem was ein?

Schonmal vielen Dank im Voraus.

Gruß Stony

Hallo zusammen,

ich nutze eine embeddedview im browser.
Jetzt habe ich dort eine checkbox implementiert.

Wenn nun das Browserfenster aktualisiert wird, ist der Haken aus der Box wieder weg.

Dieses wollte ich eigentlich mit der @if(dspDatasheet....) in Griff bekommen. Funzt aber leider nicht.

Kann mir jemand einen Tipp geben, warum diese Bedingung immer false ist, obwohl der Wert "yes" im Feld steht?

Hier noch ein Teil des Codes:

@If((tArticleNumber = "100944" | tArticleNumber = "100946"| tArticleNumber = "100947");
"<td><input type=checkbox name=[DspDatasheet] value=yes onClick=javascript:refreshThis()>Install</td>";
@If(DspDatasheet="yes";"<td><input type=checkbox name=[DspDatasheet] value=yes checked>Install</td>"
;"")))))

Schonmal vielen Dank für eure Hilfe.

Gruß Stony

Hallo,

vielen Dank für eure Hilfe.

Hab es jetzt mal ausprobiert und es funzt.
Werde da noch bissl dran basteln, dann sollte es passen

Hier der Code:

Dim session As New NotesSession
	Dim workspace As New NotesUIWorkspace	
	Dim db As NotesDatabase
	Dim view As NotesView	
	Dim nam As NotesName	
	Dim dc As NotesDocumentCollection
	Dim vc As NotesViewEntryCollection
	Dim uidoc As NotesUIDocument
	Dim doc As NotesDocument		
	Dim query As Variant

	Set uidoc = workspace.CurrentDocument
	Set doc = uidoc.Document
	Set db = session.CurrentDatabase

	Set view = db.GetView("Statistics")
	Set vc = view.AllEntries
	Call vc.RemoveAllFromFolder("Statistics")


	If doc.Article(0) <> "" Then
		query = doc.Article(0)
	End If

	If doc.UserName(0) <> "" Then
		If query = "" Then
			query = doc.UserName(0)
		Else
			Set nam = New NotesName(doc.UserName(0))	
			query =query + " & "+nam.Common
		End If
	End If

	If doc.Location(0) <>"" Then
		If query = "" Then
			query = doc.Location(0) 
		Else
			query = query + " & " + doc.Location(0)
		End If
	End If

	If query = "" Then Exit Sub
	Set dc = db.FTSearch(query, 0)
	If dc.Count > 0 Then
		Call dc.PutAllInFolder("Statistics",True)
	End If

	Call uidoc.Refresh

	Msgbox "Found "+Cstr(dc.Count)+ " matches"

Gruß Stony

Hallo zusammen,

ich bin gerade dabei, eine Suchmaske zu bauen.
Dies funktioniert auch schon, wenn ich alle Felder ausfülle.
Lasse ich das erste Feld leer (also SearchArray(0)="") dann bekomme ich keine Ergebnisse geliefert. Gibt es eine Möglichkeit hier irgendwie sowas wie "*" einzubauen, wenn ein Key = ""?

Hier noch der Code:

Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim view As NotesView
	Dim vc As NotesViewEntryCollection
	Dim searchArray(2) As String
	Dim workspace As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Dim doc As NotesDocument	
	Dim nam As NotesName	
	Set uidoc = workspace.CurrentDocument
	Set doc = uidoc.Document

	Set db = session.CurrentDatabase

	Set view = db.GetView("Statistics")
	Set vc = view.AllEntries
	Call vc.RemoveAllFromFolder("Statistics")

	Set view = db.GetView("lvwStatistics")
	searchArray(0)=doc.ArticleNumber(0) 
	Set nam = New NotesName(doc.UserName(0)) 
	searchArray(1)=nam.Common
	searchArray(2)=doc.Location(0) 
	Set vc = view.GetAllEntriesByKey(searchArray)

	Call vc.PutAllInFolder("Statistics",True)

	Call uidoc.Refresh	

	Msgbox "Found "+Cstr(vc.Count)+ " matches"

Die Lookupview besteht aus folgenden Spalten:
ArticleNumber, User, Location.

Vielleicht kann mir ja auch jemand einen Tipp geben, wie man die Suche anders umsetzen könnte.

Schonmal vielen Dank im Voraus.

Gruß Stony

Stimmt da hast du recht. Eigentlich dürfte es nicht langsamer werden.

Werde es mal umsetzen.

Danke für die Antworten.

Gruß Stony

Hmm,

wenn ich da jetzt einen Vergleich der Zeichen mache, habe ich Angst, dass mir das Script inperformant wird.

Gibts denn keine andere Möglichkeit?

Aber schonmal vielen Dank für die Antwort.

Gruß Jan

Hallo zusammen,

ich habe ein Search-Array mit dem ich in einer View nach Dokumenten suche. Leider ist ja GetDocumentByKey nicht case-sensitive.

Zitat

Matches are not case-sensitive. For example, "Turban" matches "turban." In an exact match, "cat" matches "cat" but does not match "category," while "20" matches "20" but does not match "201." In a partial match, "T" matches "Tim" or "turkey," but does not match "attic," while "cat" matches "catalog" or "category," but does not match "coat" or "bobcat."

Was ich bräuchte wäre etwas ähnliches wie GetDocumentByKey, aber es muss halt Groß- und Kleinschreibung beachtet werden.

Hier mal ein Teil des jetztigen Codes.

searchKey(0) = articleDoc.ArticleNumber(0)
searchKey(1) = articleDoc.CompareString(0)
searchKey(2) = articleDoc.DeliveryTime(0)

Set searchDoc = view.GetDocumentByKey(searchKey, True)

If searchDoc Is Nothing Then
..........

Kann mir dabei jemand helfen?

Schonmal vielen Dank im Voraus.

Gruß Stony