Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: DomAdmin am 18.07.02 - 11:47:03
-
Hallo Leute,
ich düse immer mal so durch euer Forum und hab schon so manches für mich gefunden !
Jetzt aber mal zu meinem Problem:
-Hab ne "Aktivitäten-DB" gebastelt, in der eingetragen wird, wenn wir etwas für unsere Lizenznehmer gemacht haben, so mit Soll-/Ist-Zeiten, einzelnen Berechnungen usw... .
Weil die Maske so groß ist, hab ich auch schon die Möglichkeit gebastelt eine kleine "Übersicht" mit rein errechneten Feldern zu generieren.
-> Wie kann ich über eine Aktion oder wie auch immen diese Übersicht in Word exportieren ? So z.B. wenn ich die Felder in eine Word-Vorlage für ne Rechnung übernehme !
Momentan müssen wir noch alles abtippen, und ... :o irren ist menschlich ... kommt es immer mal wieder zu Tippfehlern, was ärgerlich ist ! :-/
Bitte helft mir weiter ! :'(
Grüße
DomAdmin
-
Hi,
gucks Du hier:
http://www-10.lotus.com/ldd/sandbox.nsf/ecc552f1ab6e46e4852568a90055c4cd/39d365d1d269d5a588256af40051d9bb?OpenDocument
-
Danke,
hab es schon runtergeladen ! ::)
Mal sehen, wie ich das mache !
Mist ! Ich verstehe es einfach nicht !! Kann mir das bitte jemand auf deutsch erkären ??
MfG
DomAdmin
-
Hi,
gucks Du hier:
http://www-10.lotus.com/ldd/sandbox.nsf/ecc552f1ab6e46e4852568a90055c4cd/39d365d1d269d5a588256af40051d9bb?OpenDocument
hallo doliman,
super sache das. bins seit gestern am ausprobieren. muss naemlich aus der inventur datenbank oefters eine rechnung schreiben. hab mal angefangen, mein eigenes formular zu verwenden, und alles rausgeschmissen, was ich nicht brauche. bis jetzt scheint das gut zu funzen, jedoch komm ich mit einer sache nicht klar: im script steht als REM, dass man die woerter durch die werte der felder ersetzen kann, ich weiss aber nicht wie. meine formel bis jetzt:
Sub Click(Source As Button)
Dim s As New notessession
Dim todaydate As New notesdatetime("Today")
Dim word As Variant
Dim wordoc As Variant
Dim user As String
Dim inventory_number As String
'Predefined values: (replace with field values from uidoc)
user = "user"
inventory_number = "inventory_number"
'Create the Word object:
Set word = CreateObject("Word.Application") 'Create Word object
Call word.documents.add("Rechnung_altPC.dot") 'Create a new document based on the template "Return and Uplift.Dot"
Set worddoc = word.activedocument 'Get a handle for the active document
'Assign the field values:
worddoc.FormFields(3).result = todaysdate
worddoc.FormFields(4).result = user
worddoc.FormFields(5).result = inventory_number
worddoc.saveas(user) 'save the document with the filename of "John Doe.doc"
word.visible = True 'Comment this line if you don't want to show Word.
'word.quit 'remove comment if you want to close rather than show Word.
End Sub
dort, wo steht user = "user" sollte stehen, user = FELDWERT AUS DEM FELD USER. ich will den wert aus dem feld user meiner maske da stehen haben, und nicht das wort "user".
kannst du mir da helfen?
danke und gruss,
daniela
-
hi luna,
du startest den code ja aus der maske,
dekla und initialisiere den notesuiworkspace, damit kommst du dann auch an das uidocument, und hier kannst du mittels der methode fieldgettext den inhalt aus dem feld "User" auslesen und in die variable User reinpumpen...
till
-
hallo till,
boh, cool. dankeschoen. hab jetzt dies dazugefuegt:
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
und dies:
user = uidoc.FieldGetText("user")
und es geht, jetzt steht tatsaechlich der username im rechnungsformular drin. ich haette zwar nach meiner anfaenger script schulung von alleine draufkommen muessen, aber immerhin konnte ich das umsetzen, was du mir in stichpunkten geschrieben hast.
vielen dank und gruss,
daniela :D
-
Hallo LUNA,
dein Tipp ist Gold wert !
Ich habe das gerade ausprobiert, es macht aber mehr
sinn, wenn man die Felder mit Namen anspricht.
BENUTZERNAME wäre der Name des Feldes in der Wordformatvorlage.
also statt :
worddoc.FormFields(1).result = user
lieber:
worddoc.FormFields("Benutzername").result = user
pascal