PBMiner

$PBExportHeader$n_svc_wizard.sru
$PBExportComments$Wizard service
forward
global type n_svc_wizard from n_svc_base
end type
end forward

global type n_svc_wizard from n_svc_base
end type
global n_svc_wizard n_svc_wizard

type variables
protected:

any ia_ret
end variables

forward prototypes
public function any of_showwizard (readonly string as_wizardclassname, readonly str_wizard astr_wizard)
public function any of_showwizard (readonly string as_classname, readonly window aw_parentwindow, readonly any aa_parameter)
end prototypes

public function any of_showwizard (readonly string as_wizardclassname, readonly str_wizard astr_wizard);n_base_wizard lnv
any la_ret

TRY
   lnv = CREATE USING as_wizardclassname
   lnv.of_SetParameter(astr_wizard)
   la_ret = lnv.of_ShowWizard()
   DESTROY lnv
   
CATCH (runtimeerror err)
   MessageBox(Classname(), err.GetMessage(), Stopsign!)
   SetNull(la_ret)
FINALLY
   RETURN la_ret
END TRY
end function

public function any of_showwizard (readonly string as_classname, readonly window aw_parentwindow, readonly any aa_parameter);str_wizard lstr

lstr.parentwindow = aw_parentwindow
lstr.parameter = aa_parameter

RETURN this.of_showwizard(as_classname, lstr)
end function

on n_svc_wizard.create
call super::create
end on

on n_svc_wizard.destroy
call super::destroy
end on