Domino 9 und frühere Versionen > Entwicklung

von LN DB in Word

(1/2) > >>

DomAdmin:
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

doliman:
Hi,

gucks Du hier:
http://www-10.lotus.com/ldd/sandbox.nsf/ecc552f1ab6e46e4852568a90055c4cd/39d365d1d269d5a588256af40051d9bb?OpenDocument

DomAdmin:
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

luna:

--- Zitat ---Hi,

gucks Du hier:
http://www-10.lotus.com/ldd/sandbox.nsf/ecc552f1ab6e46e4852568a90055c4cd/39d365d1d269d5a588256af40051d9bb?OpenDocument
--- Ende Zitat ---

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

Till_21:
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

Navigation

[0] Themen-Index

[#] Nächste Seite