Ich wollte nochmal explizit Danke sagen =)
so eine Auswertung wünscht sich doch jeder oder nicht ?
mit ein paar anpassungen und das ganze schön im tabellenformat kam das was wirklich brauchbares bei rum. Notes gefällt mir immer mehr muss ich ja zugeben!
Genial =)
das mit den keys funktioniert einwandfrei.
ich muss nur noch der view das erstelungsdatum mitgeben, aber das sollte ja kein prob sein, ich hatte da vorher einfach nur @month ohne @created mitgegeben, aber dabei nicht bedacht da da ja das aktuelle datum mitgegeben wird anstatt dem erstellungsdatum =)
ist die formatierung nciht standardmäßig auf string bei soner spalte ?
und dann kann ich das set item auch gut anwenden.
ist das setitem von der anzahl abhängig ? oder würde das auch felder anlegen wenn azahl = 0 ist ? denn der agent läuft fehlerfrei ab, erstellt aber keine felder ?
P.S. : Sorry für die doofen fragen 
jaja da hättet ihr schön was zu lachen gehabt was ? ;P
ja ich weiß ich bin ein ideales opfer für alles =)
bin ja noch nicht solang an Notes dran. und ich probiere mehr als das ichs wirklich schon kann =)
noch kurz was zu den keys im view.getalldocumentsbykey (key,true)
muss ich da was besonderes beachten ? denn im debugger liest er mir die keys nicht aus die stehten also auf "". er liest sie also nicht ein.
( und ich möchte von euch keinen kompletten Quellcode haben. ich möcht viel eher alle möglichkeiten von notes kennenlernen =)
vorweg EDV ist nur ein beispiel ;P
nun ja ziel ist es aus allen dokumenten in eben dieser view ein Profildokument zu füllen.
im monat Januar gabs 5 neue Dokumente in der EDV Abteilung
und im januaer gabs 3 neue aus der buchhaltung.
Dazu hab ich den counter gebastelt. Der counter ist quasi die ausgabe an das Profildokument.
Meine laaange Schleife tut das ja aber der queltext ist mir zu lang und gefällt mir auch nicht =)
Da ich ja nicht wirklich jeden Fall abfangen kann(will) müsste ich da variablen haben oder so etwas die das ganze verkürzen. Beispiel :
Fall 1: EDV im Januar
Fall 2: EDV im Februar
.
.
.
Fall 12: EDV im Dezember
------------------------------------
Fall 13 Buchhaltung Januar
Fall 14: Buchhaltung Februar
.
.
Fall 24 Buchhaltung im dezember.
--------------------
Das dann für jede Abteilung oder Nutzer ? das wäre echt unschick.
Verstehste was ich mein ?
Ich kann mir nicht helfen es macht nich klick nd die richtige Idee kommt einfach nicht =)
wenn ich das jetzt richtig deute lese ich dann nur noch den deklarierten key aus und bau eine schleife mit allen ABteilungen, Monaten und Usern ( die auswerungskriterien) und setzt das feld im profildokument wenn die bedingung zutrifft.
If monat = Januar und Abteilung = EDV dann Counter +1
Feld Januar_EDV= Counter.
If Monat = Februar und Abteilung = EDV dann Counter +1
feld Februar_EDV = counter.
bei usern:
If User = Testuser und Monat = Januar dann Counter + 1
Feld Testuser_Januar = Counter
If User = Testuser und Monat = Februar dann Counter + 1
feld Testuser_Januar = Counter
(vereinfacht dargestellt)
Vielleicht denk ich auch noch zu kompliziert. (das ist bei mir meist so)
aber dann müsste ich ja auch jeden Case abfangen ?
denn das ist es ja was iich umgehen möchte.
Aber ich stimme zu das mit der view ist schon mal besser
Hallo Ich hab nocheinmal eine Frage.
Wenn ich eine Schleife programmiere und immer ein Feld einlese und dann definiere in welche ich das eingelesen Wieder ausgeben will kann ich ja unter Umstönden eine riesen Ansammlung von schleifen anhäufen. Wie mache ich mir das einfacher??? Ich lasse euch mal ein Beispiel da.
Dim AnfJan As Notesdatetime
Set AnfJan =New NotesDateTime("01/01/08")
Dim AnfFeb As NotesDateTime
Set AnfFeb = New NotesDateTime("01/02/08")
' UND IMMER SO WEITER
Set db =session.CurrentDatabase
Set view = db.GetView("Fehler_ID")
Set doc_temp = view.GetFirstDocument
Set statistik=New Notesdocument(db)
statistik.Form="Profildokument"
statistik.doctype="Profildokument"
Set collection = db.AllDocuments
zaehler = 0
Dim DokDat As Notesdatetime
For a = 1 To collection.Count
Set doc_temp2=collection.GetnthDocument(a)
Set DokDat = New NotesDateTime (doc_temp2.Fehlerdatum(0))
If DokDat.TimeDifference(AnfFeb)< 0 Then
If (doc_temp2.Fehler_Abteilung(0)="EDV") Then
zaehler=zaehler +1
Profildokument.Feldname = zaehler
End If
End If
NextDiese Schleife prüft die Datenbank ab und sucht nach allen DOkumenten. Diese werden dann nach Datum und nach ihrem Inhalt gezählt und der Zähler wird an das Profildokument übergeben. Nun wenn ichd en weg weiterverfolge kommt da einiges zusammen. aber ich würd das lieber flexibler und näher am Objekt haben. Sprich KÜRZER!.
ich weiß nur nicht wie ichd a am besten vorgehe.
Danke
Hiho Ich nochmal.
Ich hab mal weiter rumprobiert und mit dem Datum hab ichs wohl =)
Ich wollte gern ein Datum in einer Mask auslesen, um dann je nach Feldbezeichnung eine bestimmte Anzahl Tage draufrechnen. Dazu hab ich dann einen Agenten erstellt, der folgendermaßen in auszügen aussieht:
Sub Initialize
Dim session As New NotesSession
Dim db As notesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim Dat As NotesDateTime
Set db =session.CurrentDatabase
Set collection = db.AllDocuments
For a = 1 To collection.Count
Set doc = collection.GetNthDocument(a)
Set Dat = NewNotesDateTime(doc.VORGEGEBENES DATUMFELD(0))
If doc.VORGABEFELD_PRIORITÄT(0)=("sehr gering") Then
Dat.AdjustDay( 4 )
call doc.ReplaceItemValue("Ausgabefeld",Dat)
Endif
Call doc.Save(True,Save)Nun der Agent gibt mir keinen Fehler zurück, aber im debugger stellte ich fest das der Agent sich wohl das Datum aus dem Vorgabdatum feld zieht. aber er gibt es nicht an das Ausgabefeld zurück
Könnt ihr mich bitte mit dem Vorschlaghammer auf meinen Fehler hinweisen ?
*EDIT* alles klar ahb den Vorschlaghammer selbst gefunden. oben nun statt dem falschen der korrekt Code.
japp ich habs auch schon durch testen rausgefunden. Das ganz sieht nun so aus und funktioniert einwandfrei:
[color=990000]Dim DokDat as NotesDateTime[/color]
Dim AnfJan as NotesDateTime
Set AnfJan = NewNotesdatetime("01/01/08")
DimAnfFeb As NotesDateTime
Set AnfFeb = New NotesDatetime("01/02/08")
etc.
For a = 1 to collection.count
Set doc_temp = collection.GetNthDocument(a)
[color=990000]Set DokDat = New NotesDateTime(doc_temp.Datumsfeld(0))[/color]
If DokDat.TimeDifference(AnfFeb)<0 Then
etc, etc....(weiterer Quelltext hier aber überflüssig)
zaehler = zaehler +1
End If
In diesem Fall ist das die Abfrage für den Monat JANUAR
Danke ihr wart wie immer eine große Hilfe
japp das ist gut verständlich und ich denke so werd ichs auch machen.
nur eins noch in deinem Beispiel:
dim date1 as NotesDateTime
dim date2 as NotesDateTime
[color=990000]set date1 = new NotesDateTime(now())[/color]
set date2 = new NotesDateTime(MeinProfilDokument.DatumsFeld(0))
hast du date1 als Now() gesetzt, kann ich da auch ein festes Datum eingeben, oder sollte ich das mit einem neuen DatumsFeld in meinem Profildokument regeln ? wie gesagt, ich möchte gern prüfen, ob der 15.01.2008 zwischen dem 01.01.2008 und dem 31.01.2008 liegt. ( was er in diesem Fall ja tut)
Vielen Dank nochmal
okay danke schau ich mir an. die sache ist nur ich möchte kein datum erstellen, sondern ich möchte das VORGEGEBENE Datum in einem Feld mit einem vorgegebenen Wert ( monatlich vergleichen und anhand dieses Vergleiches den Datensatz oder die Maske zuordnen. Wenn das mit deiner Methode geklappt hab geb ich nochmal bescheid
Hallo.
Kurze Frage, die für so alte Hunde kein Problem sein dürfte.
Ich habe einen Agenten, der Dokumente anhand von verschiedenen Kriterien von Feldinhalten auswertet. (läuft auch)
so nun muss dort aber noch ein monatlicher Aspekt hinzu. Mein bisheriger Versuch sah so aus:
For a = 1 To collection.CountSet doc_temp2=collection.GetnthDocument(a)'If (doc_temp2.(Feldname_Datum) >= "01.01.2008") And (doc_temp2.Feldname_Datum(0) < "01.02.2008") ThenIf (doc_temp2.Feldname2(0)="Feldinhalt") Thenzaehler=zaehler +1Form.Feldname = zaehlerEnd If'End IfNextIch arbeite hier mit einem Profildokument, welches als Vorlage zum füllen anhand von vorhandenen Daten in anderen Masken der Datenbank dient.
Beispiel:
Set Formname=New Notesdocument(db)
Formname.Form="Profildokument"
Formname.doctype="Profildokument"
Set collection = db.AllDocumentsNun soll eben monatlich soetwas erstellt werden. Ich habe gehört man kann ein datum in eine Zahl umwandeln und dann gut damit rechnen ? oder wie baue ich das Datum richtig in die Syntax mit ein ?
hab geguckt....
besten dank =)
Hallo eine kurze Frage nur:
Felder aus einer Maske zu löschen, bedeutet das auch glecihzeitig, sie aus den Referenzen zu löschen ? oder muss man das extra machen ?
Denn Felder die ich bisher gelöscht haben tauchen dort immer noch auf, zwar ohne Inhalt aber die Übersicht leidet dort doch etwas drunter. ( Auch Neustart etc hilft da nicht)
(Referenzn= im Programierfenster einer MAske oder Feldes der Reiter Referenzen mit Auswahl auf Datenbankfelder ) zum bsp.
Danke =)
nunja Notes ist seeeehr vielfältig =) da denkt man man ist nen schritt weiter und dann merkt man das man noch 50 machen muss um den letzten schritt zu verstehen ;P
Ist das dein Workshop ? =)
irgendwann werde ich sowas bestimmt machen (müssen). aber solange ich noch hier meine möglichkeiten teste, warte ich noch ab. nun ja meine Frage ist eigentlich sehr simpel:
Ist das von mir beschriebene überhaupt möglich?
Mit welchem mittel? Java in Agent oder Lotus Script?
Danke schön
naja gut. ich geb zu ich hab mich durch das New verraten ;P ich bin noch sehr stark andere Programmiersprachen gewohnt.
Die Sache mit Excel ist ja wunderbar und so mach ich es bisher ja auch. ( dazu müsste man nicht mal nen script haben, das macht es aber doch schon sehr komfortabel.) ;P
Ich würde halt einfach gern im Notes bleiben.
1. Ich möchte gleichnamige Felder innerhalb einer Ansicht pro Dokument Auslesen
2. Diese Felder dann Zählen ( Bei Text) oder Summieren ( Bei Zahl)
3. Diese Summierten oder gezählten Werte in eine dritte Maske schreiben.
das dann in etwa so:
Fotomontage:
[img align=left width=300]http://www.funpic.de/bilder/fo…79f2d4dc4e59aee7c476c.jpg[/img]
Wobei die 0,00 Werte die Felder sein sollen, die die Wert ausgeben.
naja die felder sind einfache (noch) bearbeitbare Felder je nach zweck des Feldes in text oder Zahl formatiert. Habe das ja zu testzwecken erstmal angelegt. Das script habe ich schon wieder rausgenommen. Das war ein totales desaster hab ich selbst festgestellt =)
Ich dachte mir erstmal ne funktion schreiben, hier meine dklarationen.
und dann eine dazugehörige Sub schreiben.
Function GetAnzahl as Integer
Dim Session as New Notessesion
Dim Collection as New NotesDocumentcollection
Dim Selection as String
Dim View as NotesViewalso ich möchte gern nochmal konkreter werden:
Ich habe eine neue Maske mit einer Tabelle angelegt, wobei jede Zelle der Tabelle ein Feld enthält. Monate stehen auf der X- Achse und das auswerungskriterium auf der Y_achse. Nun hatte ich vor mithilfe eines Agenten und Lotus Script die Felder von Dokumenten Auszulesen, die selben Felder aus verschiedenen Dokumenten zu zählen oder die Zahlen darin zu summieren, doch leider passiert einfach gar nix. Nun könnt ihr mir die frage beantworten, wie ich das richtig bewerkställige, wenn das so überhaupt möglich ist.??
ja notes sql hab ich immoment im einsatz. funktioniert auch tadellos. ich wollte mich dann auch mal über die internen möglichkeiten von notes hier informieren, und wie man sowas am besten realisieren kann. und nun weiiß ich ja wonach in der hilfe gucken kann ;P
Aber so vorgaben bietet notes nicht direkt ? man muss da einfach tabellen und Felder erstellen, die Zählen, Summieren etc ?,sich also auf die Dokumente in der DB beziehen, und das ganze mithilfe einer Maske innerhalb einer Ansicht aufrufen? also so würde ich da jetzt ran gehen
also die DB liegt auf dem Server im Data Verzeichniss.
Notes://Servername/Datenbank.nsf/Maskenname?OpenForm
das hab ich eingegeben und dann as Lesezeichen in die Leiste gezogen. Klappt wunderbar. Es sei denn ich überseh da wieder was.