Brauche Hilfe bei neuem Formular

[fridolin]

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

[klaussal]

@select form = "Bestellungen"  .... reicht vollkommen. Das "UpperCase" ist überflüssig.

[WernerMo]

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.

[fridolin]

Ich habs gerade selber rausgefunden...
Ich hatte in den Eigenschaften Bestellung stehen und in der Ansicht Bestellungen..

Aber Vielen Dank für die mal wieder schnellen Antworten!!!!

[koehlerbv]

@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

[Thomas Schulte]

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.

[fridolin]

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

[Thomas Schulte]

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 ..."

[fridolin]

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?

[Thomas Schulte]

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.

[fridolin]

Super! Danke!
Jetzt läufts!