Function SHOW_CONFIG - ReportsDNA Manual

HelpConsole 2008 SP1 - ReportsDNA Manual HelpConsole 2008 SP1 - ReportsDNA Manual HelpConsole 2008 SP1 - ReportsDNA Manual HelpConsole 2008 SP1 - ReportsDNA Manual HelpConsole 2008 SP1 - ReportsDNA Manual HelpConsole 2008 SP1 - ReportsDNA Manual HelpConsole 2008 SP1 - ReportsDNA Manual HelpConsole 2008 SP1 - ReportsDNA Manual HelpConsole 2008 SP1 - ReportsDNA Manual HelpConsole 2008 SP1 - ReportsDNA Manual

Home > Extensions > How to Create an Extension > Function SHOW_CONFIG

Function SHOW_CONFIG

PUBLIC Function SHOW_CONFIG

Remarks

Purpose
A function that allows a user to configure report settings needed by the extension to generate the report. A database exension, for example, may display a form that allows the user to enter the database name, user name and password.

Description
This function is called by ReportsDNA when a user clicks on the extension name in the Source listbox.
The name of the function does NOT have to be named SHOW_CONFIG. The name is set by the extension author in the RNA_PROPERTIES function.

Mandatory: Yes

Example

Download RNA-Example Addin

Public Sub SHOW_FORM()
'MANDATORY subroutine called to display the extension's configuration form
'The name of the function does not have to be SHOW_CONFIG - the name is set in the RNA_PROPERTIES function specified by the "form" key
'ReportsDNA will store 20 extension properties numbered 1 - 20 inclusive

    Dim interpretParameters As Boolean 'flag that specifies if the parameters in a property should be returned statically (not evaluated) or dynamically (evaluated)
    interpretParameters = False         'set to FALSE to show parameter placeholders instead of their runtime values

    With frmConfig
        .TextBoxNumFields.Value = ReportsDNA.getExtensionProperty("1", interpretParameters)     'see Figure 1, #1
        .TextBoxNumRows.Value = ReportsDNA.getExtensionProperty("2", interpretParameters)       'see Figure 1, #2
        .TextBoxtParameters.Value = ReportsDNA.getExtensionProperty("3", interpretParameters)   'see Figure 1, #1
        .checkboxPromptParameters.Value = IIf(ReportsDNA.getExtensionProperty("4", interpretParameters) = "-1", True, False) 'see Figure 1, #1
        .Show
    End With

End Sub

Figure 1: Configuration Form