NOTESSIDAN

Allt om Lotus Notes & Domino




Hur många procent klart
Jag sitter och skriver för en kund lite agenter där det loopas igenom en hel del dokument. för att man ska veta ungefär hur lång tid det är kvar till agenten är klar brukar jag göra en liten procenträknare.

Här är 2 exempel att loopa alla dokument i en vy och visa i procent i statusraden hur långt agenten kommit. Det går naturligtvis att göra detta mycket mer komplext men denna är snabb och lätt att lägga in.

Sub Initialize Dim session As New notessession,db As notesdatabase Dim tot As Integer,i As Integer,view As notesview Set db = session.currentdatabase Set view = db.GetView("Main") tot = view.TopLevelEntryCount Set doc = view.getfirstdocument Do Until doc Is Nothing i = i + 1 Set doc = view.getnextdocument(doc) Print " Processed: " + Cstr(Cint(i/tot*100)) + "%" Loop End Sub Sub Initialize Dim view As notesview,i As Integer, session As New notessession Dim nvec As notesviewentrycollection,doc As notesdocument Set view = session.currentdatabase.getview("Main") Set nvec = view.AllEntries For i = 1 To nvec.count Set doc = nvec.getnthentry(i).document Print " Processed: " + Cstr(Cint(i/nvec.count*100)) + "%" Next End Sub


Med 6 dokument i vyn blir resultatet:

  • Processed: 17%
  • Processed: 33%
  • Processed: 50%
  • Processed: 67%
  • Processed: 83%
  • Processed: 100%



Relevanta Poster på Notessidan:



Publicerad 2006-08-24 | Kommentarer: 3 | Läsningar: 1438
Kommentarer

Johannes ( 2006-08-24 15:54:19 ) Websida
Tack, det var ett klockrent tips som jag genast kommer använda i några av våra större databaser!
Andrei Kouvchinnikov ( 2006-08-24 18:05:22 ) Websida
Jag brukar begränsa antalet print satser så att det går lite snabbare om det typ 100.000 dokument som ska processas:
While not doc is nothing
cnt=cnt+1
if cnt\100=cnt/100 then 'print on every 100th doc
Print " Processed " + Cstr(cnt) + " docs"
end if
set doc=view.getnextdocument(doc)
Wend
Thomas Adrian ( 2006-08-25 09:35:31 ) Websida
Tack Andrei



Sök på Notessidan
Thomas Adrian
ThomasCertifierad utvecklare och administratör inom Notes & Domino

Kontakta mig







Senaste Sökningarna på Notessidan
Sön - sharepoint (R:1)
Sön - räkna and antal and besökare (R:0)
Sön - browser (R:17)
Sön - stoppar and mail (R:1)
Sön - korrupt (R:3)
Sön - böcker (R:0)
Sön - kalendern (R:12)
Sön - feature (R:15)
Sön - print and mime (R:2)
Sön - länka (R:0)
Sön - databasen (R:94)
Sön - access (R:47)
Sön - outlook (R:15)
Sön - webanvändare (R:0)
Sön - google and maps (R:6)
Sön - juffe (R:2)
Sön - uidoc.print (R:1)
Sön - java and lotusscript (R:26)
Sön - besök (R:0)




Databasstatistik Blogg
Uppdateras var 15:e Minut

Antal Poster:562
Antal Kommentarer: 1381
Alla sidvisningar idag:
Unika Besökare idag:
Databasstorlek: 184,25Mb
Fixup: 2019-07-21 00:31:05
FT:2019-07-22 07:13:00
DB Procent använd: 99,8
Antal Agenter: 42
Antal Formulär: 65
Antal Vyer: 60
Antal Dokument: 7933
Antal Image Resources: 108
Antal Subformulär: 18
Antal Scriptbibliotek: 11
Totalt Antal Designelement: 576
Antal Attachments: 159
Antal Konflikter: 0
Server version 1: 405
Server version 2: Release 9.0.1FP9|August 14, 2017
Server Plattform: Windows/64
Ändrad: 2019-07-22 09:01:26
Server Tidszon: Z=-1$DO=1$DL=3 -1 1 10 -1 1$ZX=131$ZN=W. Europe
Region:
Kommentarsspam Idag: 5
Kommentarsspam Totalt: 17957


BlogRankers.com

Top Sites at iWEBTOOL.com

Fight Spam! Click Here!

Bloggtoppen.se

Listed on BlogShares

Increase website traffic

Top Internet Blogs

Site Checker