diff options
| -rw-r--r-- | wizards/source/template/ModuleAgenda.xba | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/wizards/source/template/ModuleAgenda.xba b/wizards/source/template/ModuleAgenda.xba index 8a4e2dd2c939..73b0c6cfd8dc 100644 --- a/wizards/source/template/ModuleAgenda.xba +++ b/wizards/source/template/ModuleAgenda.xba @@ -21,6 +21,7 @@ Sub Initialize() DialogModel.Step = 1 LoadLanguageAgenda() DialogModel.OptAgenda2.State = TRUE + GetOptionValues() DialogExited = FALSE TemplateDialog.Execute End Sub @@ -181,12 +182,22 @@ Dim BtnFinishAgenda As Object End Sub -Sub GetOptionValues(aEvent as Object) + +Sub GetOptionValues(Optional aEvent as Object) Dim CurTag as String Dim Taglist() as String - CurTag = aEvent.Source.Model.Tag + If Not IsMissing(aEvent) Then + CurTag = aEvent.Source.Model.Tag + Else + If DialogModel.OptAgenda1.State = TRUE Then + CurTag = DialogModel.OptAgenda1.Tag + Else + CurTag = DialogModel.OptAgenda2.Tag + End If + End If Taglist() = ArrayoutOfString(CurTag, ";") Bookmarkname = TagList(0) sTrueContent = TagList(1) End Sub + </script:module>
\ No newline at end of file |