Domino 9 und frühere Versionen > Entwicklung

Festwert durch eine Variable ersetzen

<< < (2/2)

klaussal:
... an den schuljungen,  ;)

1) @-befehlen sind formelsprache und NICHT Lotus-script.
2) ich habe den hinweis auf die designer-hilfe gegeben. dort stehen reichlich beispiele drin.
3) ich halte es nicht für gut, jemandem eine fertiges konzept zu geben, wenn der keine bzw. wenig ahnung hat. ein grundwissen sollte schon vorhanden sein.
4) wir helfen alle im forum gerne. ich weiss von vielen, die mit mir, was pkt 3 betrifft, da einer meinung sind.

5) du hast es nicht anders gewollt:  :P

Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim session As New notessession
Dim db As notesdatabase
Dim doc As notesdocument
Dim varDummy As Variant
   
Set uidoc = workspace.CurrentDocument   
Set doc = uidoc.document
Set db = session.currentDatabase   

If doc.genehmigt_fb(0) <> "" Then
   varDummy = workspace.Prompt(      
   PROMPT_YESNO, "Ablehnen", "Sie wollen einen bereits    
   genehmigten/abgelehnten VV ablehnen " _
   & Chr(13) & "Möchten Sie wirklich fortfahren ?")
   If Not Cstr(varDummy) = "1" Then
      Exit Sub
   End If
End If
   
Call uidoc.FieldSetText("genehmigt_fb", "nein")
Call uidoc.FieldSetText("fb_zustaendig",doc.fachbereich_1(0))
Call workspace.DialogBox("Ablehnung", True, True, True )
   
doc.ablehnung = doc.tempKommentar(0)   
If doc.ablehnung(0) = "" Then
  Msgbox "ACHTUNG" & Chr(13) & "Kommentar nicht eingegeben !"
  & Chr(13) & "Status NICHT geändert !!"
  Exit Sub
End If
doc.tempKommentar = ""
doc.praemie_fb = ""
doc.praemie = ""
doc.kommentar_fb = ""
   
varDummy = workspace.Prompt(  
 PROMPT_YESNO, "Ablehnen", "Möchten Sie ein Mail an den Ersteller  schicken ? ")
If Not Cstr(varDummy) = "1" Then
  Goto Ende
End If
varDummy =  ablehnung(uidoc)
If Not varDummy Then
   Goto Ende
End If
Msgbox "Mail wurde verschickt"
   
Ende:
Call uidoc.Refresh
Call uidoc.RefreshHideFormulas
   
Call uidoc.save
Call uidoc.Close
   
End Sub

animate:
nimm für den Anfang mal die Inputbox-Funktion. Näheres dazu in der Hilfe. Schau dir am besten das Beispiel dazu an

webchild:
In der Designer Hilfe findest du unter dem Suchstring "OpenFileDialog method" alles was du brauchst!

Ein Beispiel:

varFile = workspace.OpenFileDialog(True, "Bitte ein Serienbriefdokument auswählen:", "Word-Dateien (*.doc)|*.doc|Alle Dateien|*", "N:")

Grüsse, Krista

Navigation

[0] Themen-Index

[*] Vorherige Sete