Domino 9 und frühere Versionen > Entwicklung

Per Script neues Dokument erstellen (Maske selbst festlegen)

<< < (4/5) > >>

TomLudwig:
bittesehr... ich werd nicht mehr schlau draus....

Sub Click(Source As Button)
   Dim uiwork As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument   
   Dim itemDB As NotesItem
   Dim itemSRV As NotesItem   
   Dim strSrv As String
   Dim strDb As String   
   Dim db As NotesDatabase
   Dim acl As NotesACL
   Dim entry As NotesACLEntry
   Dim isSonstig As Integer
   
   Set uidoc = uiwork.CurrentDocument
   Set doc = uidoc.document
   Set itemDB = doc.GetFirstItem("DB")
   Set itemSRV = doc.GetFirstItem("Server")   
   strDb = itemDB.Text   
   strSrv = itemSRV.Text
   
   If strDb = "" Then
      returnvalue = Messagebox("Es wurde keine Datenbank ausgewählt!",MB_OK, "Keine Datenbank")
      Exit Sub
   End If
   
   If strSrv = "Lokal" Then
      strSrv = ""
   End If
   Set db = New NotesDatabase( strSrv, strDb)
   Set acl = db.ACL   
   Set entry = acl.GetFirstEntry      
   
   Dim itemPerson As NotesItem
   Dim itemServer As NotesItem
   Dim itemSonst As NotesItem
   
   Do While Not(entry Is Nothing)
      Set nname = New NotesName(entry.Name)   
      isSonstig = 0
      Select Case nname.Organization
      Case "HH"
         Set itemServer = doc.Getfirstitem("HH_ACLServer")
         Set itemPerson = doc.Getfirstitem("HH_ACLPerson")      
         Set itemSonst = doc.Getfirstitem("HH_ACLSonstiges")
      Case "IWS"
         Set itemServer = doc.Getfirstitem("IWS_ACLServer")
         Set itemPerson = doc.Getfirstitem("IWS_ACLPerson")      
         Set itemSonst = doc.Getfirstitem("IWS_ACLSonstiges")   
      Case Else
         Set itemServer = doc.Getfirstitem("Sonst_ACLServer")
         Set itemPerson = doc.Getfirstitem("Sonst_ACLPerson")      
         Set itemSonst = doc.Getfirstitem("Sonst_ACLSonstiges")   
         isSonstig = 1
      End Select      
      
      If isSonstig =1 Then
         If entry.IsPerson = True Then   
            itemPerson.appendToTextList(entry.Name)               
            itemPerson.appendToTextList(" ")      
         Elseif entry.IsServer = True Then
            itemServer.appendToTextList(entry.Name)            
            itemServer.appendToTextList(" ")                        
         Else
            itemSonst.appendToTextList(entry.Name)            
            itemSonst.appendToTextList(" ")                        
         End If   
      Else
         If entry.IsPerson = True Then   
            itemPerson.appendToTextList(nname.Common)               
         Elseif entry.IsServer = True Then
            itemServer.appendToTextList(nname.Common)            
         Else
            itemSonst.appendToTextList(entry.Name)
            itemSonst.appendToTextList(" ")      
         End If   
      End If
      
      Set entry = acl.GetNextEntry(entry)      
   Loop    
   
   
   
   Set doc = db.CreateDocument
   doc.Form = "AdvancedInfo"
   doc.Temp = "Hallo"
   Call doc.ComputeWithForm(True,False)
   If (doc.Save( True, True )) Then
      Messagebox("gespeichert")
   Else
      Messagebox("Fehler")
   End If
   
   
End Sub

Driri:
Hi,

ich habs jetzt aus Zeitgründen nur überflogen, aber mir ist aufgefallen, daß Du doc einmal oben verwendest und dort auf das UIDocument verweist und dann später im letzten Abschnitt über doc ein neues Dokument erzeugst.

Ich schau nachher noch mal drüber, wenn ich nen bißchen mehr Zeit habe.

koehlerbv:
Das sollte aber nicht weh tun ...
Wächst denn nach Ablauf des Scripts Deine DB um ein Dokument (lt. DB-Properties)? Schaust Du auch in der richtigen DB nach ? Du erzeugst das Doc ja in einer anderen DB, die Du ja über die Felder in Deinem NotesUIDocument ausliest.

Bernhard

TomLudwig:
Verdammt....

Genau des wars mit der Datenbank die ich von oben einlese! Shit!
Jezt hab ich unsere ganzen Datenbanken mit irgendeinem müll zugeschüttet.

Ich glaube jetzt müsste es funktionieren....

Semeaphoros:
Aha, man lerne:

Zuerst soll man alle Datenbanken zumüllen, wenn man das geschafft hat, dann funktionierts ......... :P

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete