Die docs im view bewegen

29. Oktober 2007

Hallo ,

Alle meine Dokumente aus einer DB gehen aufs Web. Der Kunde will das er entscheiden kann wie sie im Web sortiert sind. Das heisst er will das er ein Dokument das im LotusNotes View ist hoch und runter bewegen kann.

Zb. Ein Dokument liegt auf dem 3. Platz vom oben und er will(egal wie) das es auf den 6. Platz versetzt wird.

Wie kann man das am besten realizieren? Man muss auch berucksichtigen das Dokumente geloescht und neugemacht werden.

Irgenwelche Vorschlaege. Jeder Rat ist willkomen!

Danke

taurec · 29. Oktober 2007

Dann wirst du den Dokumenten wohl ein internes Sortierkriterium verpassen müssen, z.B. eine fortlaufende Nummer und diese dann beim Verschieben entsprechend anpassen

30. Oktober 2007

Ich habe es mir so vorgestellt das die aktion im Doc ist und sie fragt den User auf welchen Platz das Doc soll.

Danach wird in einer Schleife aus dem view, der nach dem Feld Platz sortiert ist, das erste doc genomen und ihm wird die nummer 1 zugeteilt der Proces wiederholt sich so lang bis die Schleife das doc ereicht das die aktion gerufen hat dan wird das document uebersprungen und den naechsten doc wird seine nummer gegeben. Das geht dan weiter bis das doc ereicht wird das die nummer hat auf die das userDoc soll dan wird dem userDoc die nummer zugeteilt und dem anderen Doc eine nummer hoeher, und dann werden den restlichen docs im view auch neue nummern zugetragen.
So soll es gehen wenn die neue nummer des Docs groesser ist als die alte.

Und diesen code habe ich dafuer geschrieben:

Code

If oldNum<newNum Then	
		num=oldNum+1

		Set doc = view.GetDocumentByKey(num,True)

		Do While Not (doc  Is Nothing)
			If Not num=newNum Then			
				a=num-1
				Call 	doc.ReplaceItemValue("place",a)
				Call doc.ComputeWithForm(True,True)
				Call doc.Save(True,True)
				num = num+1
			Else
				Call doc.ReplaceItemValue("place",oldNum)
				Call doc.Save(True,False)
				Call doc.ComputeWithForm(True,True)
				uidoc.EditMode=True
				Call uidoc.fieldsettext("place",newNum)
				Call uidoc.Save
				ReArrange=1
			End If

			Set doc = view.GetDocumentByKey(num,True)
		Loop
	Else
		ReArrange=1
	End If

Alles anzeigen

Das problem ist das alle docs die bearbeitet werden die nummer 2 erhalten obwohl wenn es im debuger lauft es scheint das sie die richtige nummer erhalten

31. Oktober 2007

Hallo meine function zum vertauschen von platzen im NotesView ist fertig und funktioniert.

Wenn jemand kommentare oder tips zur verbesserung hat sind sie vilkommen.

Danke

Code

Function ReArrange(oldNum As Integer,newNum As Integer, uidoc As notesuidocument, view As notesview) As Integer
	Dim doc As NotesDocument
	Dim num As Integer
	Dim doc2 As NotesDocument
	Dim stra As String

	If oldNum<newNum Then	
		num=oldNum+1
		Set doc = view.GetDocumentByKey(num,True)
		Do While Not doc  Is Nothing
			If Not num=newNum Then		
				stra = doc.naziv(0)
				Call doc.ReplaceItemValue("place",oldNum)
				Call doc.ComputeWithForm(True,True)
				Call doc.Save(True,False)
				num = num+1
				oldNum=oldNum+1
			Else
				Call doc.ReplaceItemValue("place",oldNum)
				Call doc.ComputeWithForm(True,True)
				Call doc.Save(True,False)
				Set doc2 = uidoc.Document
				Call doc2.ReplaceItemValue("place",newNum)
				Call doc2.Save(True,False)
				ReArrange=1
				Exit Function
			End If
			Set doc = view.GetDocumentByKey(num,True)
		Loop
	Else
		num=oldNum-1
		Set doc = view.GetDocumentByKey(num,True)

		Do While Not doc  Is Nothing
			If Not num=newNum Then		
				stra = doc.naziv(0)
				Call doc.ReplaceItemValue("place",oldNum)
				Call doc.ComputeWithForm(True,True)
				Call doc.Save(True,False)
				num = num-1
				oldNum=oldNum-1
			Else
				Call doc.ReplaceItemValue("place",oldNum)
				Call doc.ComputeWithForm(True,True)
				Call doc.Save(True,False)
				Set doc2 = uidoc.Document
				Call doc2.ReplaceItemValue("place",newNum)
				Call doc2.Save(True,False)
				ReArrange=1
				Exit Function
			End If
			Set doc = view.GetDocumentByKey(num,True)
		Loop
	End If	




	ReArrange=0
End Function

Alles anzeigen

Teilen