Das Notes Forum
Lotus Notes / Domino Sonstiges => Projekt Bereich => Help-Desk Applikation !!Help!! => Thema gestartet von: fridolin am 11.09.09 - 11:20:54
-
Hallo zusammen!
Ich muss vorweg gleich sagen, dass ich noch nicht soviel Erfahrung mit dem Designer habe...
Ich hab mir die Maske "HD Anfrage" kopiert und in "HD Bestellungen" umbenannt.
In den Eigenschaften dieser Maske habe ich als Name folgendes eingetragen: "HD Bestellung | Bestellung"
Dann habe ich mir eine neue Ansicht erstellt in der alle Einträge die in dieser Maske gemacht wurden angezeigt werden sollen. Dafür habe ich diese Formel genommen:
SELECT (@UpperCase(Form) = "Bestellungen")
Wenn ich jetzt die Maske ausfülle und speicher werden die Datensätze aber nicht in der Ansicht angezeigt.
Ich gehe davon aus, dass ich noch mehr irgendwo umstellen muss. Aber da ich noch nicht soviel Erfahrung habe, bitte ich um Hilfe!
Wenn ich was grundsätzliches vergessen habe, nicht gleich erschlagen.
Vielen Dank!
Gruß, Fridolin
-
@select form = "Bestellungen" .... reicht vollkommen. Das "UpperCase" ist überflüssig.
-
Hallo,
evtl. steht ja auch im Feld Form noch nicht das richtige,
dazu kannst Du Dir ja noch eine "Prüfansicht" mit "Select @All"
machen und dann in den Eigenschaften des Dokumentes das Feld prüfen.
Gruß Werner
--edit--
Sorry, ich hatte übersehen, dass es um Help geht, meine Aussage war eher allgemein.
Hier gibt es sicher noch einige Zusammenhänge mehr, die zu beachten sind.
-
Ich habs gerade selber rausgefunden...
Ich hatte in den Eigenschaften Bestellung stehen und in der Ansicht Bestellungen.. 8)
Aber Vielen Dank für die mal wieder schnellen Antworten!!!!
-
@UpperCase (Form) = "Bestellungen" ist der Schrei danach, dass auch ja nichts angezeigt wird!
Egal, was in "Form" steht - nach @UpperCase sind das alles Grossbuchstaben. Und "Bestellungen" sieht da irgendwie anders aus, oder?
Prinzipiell ist das @UpperCase keine dumme Idee ("Ein guter Programmierer schaut auch beim Überqueren einer Einbahnstrasse immer nach links *und* nach rechts!"), nur dann muss man es auch logisch umsetzen:
@UpperCase (Form) = "BESTELLUNGEN"
Vulgo: "Ein guter Programmierer denkt nach."
Bernhard
-
Wenn du das im !!HELP!! machst dann hoffe ich mal das du alle Randbedingungen wie Validation, entsprechende Sprachdokumente, Steuerung der Lese und Autoren Felder, ASubject, ..... ebenfalls mit berücksichtigt hast. Sonst bekommst du nämlich richtiges Chaos.
-
Hi,
ja da habe ich dran gedacht...
Ich habe aber noch eine Frage:
Wie bekomme ich es hin, dass er mir den Link zum Dokument per EMail mitschickt?
Vielen Dank!
Gruß, Fridolin
-
Da wir nicht wissen was du da entwickelt hast und welche eingebauten Funktionen du wo und wann nutzt (oder auch nicht), kann die Antwort eigentlich nur lauten: "Gute Frage, nächste Frage ..."
-
Ich benutze die gleiche Aktion vom Button "Send"
Hier der Quellcode:
Sub Click(Source As Button)
Dim session As New notessession
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim wksp As New NotesUIWorkspace
Dim ok As Integer
Dim sendfrom As String
Dim sendtousers As Variant
Dim copyToUsers As Variant
Dim me_Subject As String
Dim me_message As String
Dim me_embedlink As Integer
Dim me_isfrontend As Integer
Dim subject2 As String
Dim copyto As String
sendfrom = "Bestelldatenbank" 'GetConfigDocByKey("sendMailonBehalfof")
If SendFrom = "" Then
Print "Konfigurationsfehler, Key für 'sendMailonBehalfof' nicht gefunden. Noch mal! Aber erst Fehler beseitigen!!!!"
' Sorry but this was a massive failure
Exit Sub
End If
Set uidoc = wksp.CurrentDocument
subject3=uidoc.FieldGetText("user")
subject2="Neue Bestellung von "
me_subject = subject2+subject3 'uidoc.FieldGetText("user")
me_message = uidoc.FieldGetText("otherusers")
me_embedlink = True
me_isfrontend = False
subject2 = "Neue Bestellung: "
' save the document. If you do not save this document you will not have access to the rtField
Call uidoc.save()
Set doc = uidoc.Document
sendtousers = doc.supporter
copytousers = copyto
Call uidoc.Close(True)
OK = Spoofmessage(_
SendFrom,_
sendtousers, _
copytousers,_
me_subject,_
me_message,_
doc,_
subject2,_
"best_inhalt",_
False,_
False,_
"BugMail",_
"IsManualMail")
If OK = False Then
' Problem, Mail was not send due to an error in the Spoofmessage routines. Check and solve problems before trying again
Print "Das ging daneben. Noch mal! Aber erst Fehler beseitigen!!!!"
' reopen the uidoc
Call wksp.EditDocument(True, doc)
Stop
Else
' set counter for Mail was send and resave the doc
OK =itemtextexists(doc,"MailSendCounter")
If ok = True Then
doc.MailSendCounter = doc.MailSendCounter(0) + 1
Else
doc.MailSendCounter= 1
End If
Call doc.Save(True,False)
End If
End Sub
Es wird jetzt eine Mail mit den Angaben geschickt die ich benötige.
Ich hätte aber gerne den Link zu dem direkt erstellten Dokument...
Ist das möglich?
-
Schau dir mal den funktionsaufruf von Spoofmessage in der Lib.appl.functions an. Da sind die Parameter beschrieben.
Du hast das Ganze aus der Mail Form kopiert. In deiner Routine sind noch ein paar Parameter enthalten die du umstellen solltest.
Dein Sendfrom ist in dieser Form tödlich. Es hat seine Gründe warum das über Konfigurationsdokumente läuft.
Spoofmessage. Die letzten beiden Parameter steuern woher er die Ergänzungen zum Mail zieht. Da solltest du nachbessern.
Den Counter wirst du an dieser Stelle doch eher nicht verwenden wollen, denke ich.
-
Super! Danke!
Jetzt läufts! :D