Domino 9 und frühere Versionen > ND6: Entwicklung

per Script Schablonen erstellen

<< < (4/6) > >>

bikerboy:
so .... was muss ich beim signieren von DBs beachten.


Bekomme hier die Meldung Design Note nicht gefunden, aber was bedeutet es ?

bikerboy:
Hmmm also habe nochmal ein bisschen gecodet, aber nichts ändert sich.


--- Code: --- For i = i To Ubound(varDBList)

serverPath = Strtoken(varDBList(i),"~",1)
filePath = Strtoken(varDBList(i),"~",2)

Set dbTarget = session.GetDatabase(serverPath,filePath)

newFileName = tmpPrefix + "-"  + Replace(dbtarget.FileName,".nsf",".ntf")
targetServer = currentDoc.GetItemValue("targetServer")(0)
targetFilePath = currentDoc.GetItemValue("targetFilePath")(0)
targetFilename = targetFilePath + Cstr(currentDoc.GetItemValue("tmpPrefix")(0)) + newFileName

Set dbTemplate = dbTarget.CreateCopy(targetServer,targetFilename)
Set designDoc = dbTemplate.CreateDocument

designDoc.~$TemplateBuildName = newFileName
designDoc.~$TemplateBuild = tmpBuild
designDoc.~$TemplateBuildDate =  tmpDate
Call designDoc.Save(True,False,False)

'Call dbTemplate.Sign(32767,False,signerName,False)

Next

--- Ende Code ---

Die Schablonen werden sauber erstellt , landen da wo sie hingehören, aber ich bekomme diesen vermaledeiten Stempel nicht drauf. Das verwirrende für mich ist, dass wenn ich die Schablone mit dem Tool einlese meine Daten richtig drin stehen. Aber warum ??? *heul*

bikerboy:
hmmm habe nun gesehen, dass meine Schablone doch nicht so sauber ist.

Nun meine Frage wie würdet ihr ne Schablone per Code erstellen?

Ich bin hingegangen, habe die Quelldatenbank im Zugriff, habe einen neuen Namen und Endung vergeben, aber jetzt kommts die Datei die am Ende herauskommt wird nicht als Schablone geführt wo man anhaken kann das designänderungen mit übernommen werden sollen. Was muss ich dabei beachten ?

bikerboy:

--- Code: ---Set dbTarget = session.GetDatabase(serverPath,filePath)

newFileName = tmpPrefix + "-"  + Replace(dbtarget.FileName,".nsf",".ntf")
targetServer = currentDoc.GetItemValue("targetServer")(0)
targetFilePath = currentDoc.GetItemValue("targetFilePath")(0)
targetFilename = targetFilePath + Cstr(currentDoc.GetItemValue("tmpPrefix")(0)) + newFileName

Set dbTemplate = dbTarget.CreateCopy(targetServer,targetFilename)
--- Ende Code ---


Für Codenatiker :P

bikerboy:
hmmm

eine Frage wenn ich über die session mir ne DB hole, wieso kann ich sie nicht kopieren?

Er meckert immer das die DB noch nicht geöffnet sei, aber wie öffne ich sie denn im Backentd? Das widerspricht sich doch schon wenn ich die Frage stelle.

Naja und wie bekäme ich es denn hin dass sie als vollwertige Schablonen annerkannt werden ? Also das ich den haken setzen kann , dass zukünftige Änderungen mit übernommen werden?

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete