BL.EC.Common 1 %CHUI.TForm 0 ========================================================================================================================== PROPERTIES . ========================================================================================================================== %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.TLabel %CHUI.Ctrl.TKlantEdit %CHUI.TEdit %CHUI.TEdit %CHUI.TCheckBox %CHUI.TButton %CHUI.TButton %CHUI.TButton %CHUI.TButton %CHUI.TButton %CHUI.TPopup %CHUI.Ctrl.TInternePersoonPopup %CHUI.TPopup %CHUI.TPopup %CHUI.TPopup %CHUI.TPopup %CHUI.Ctrl.TTaalPopup %CHUI.Ctrl.TInternePersoonPopup %CHUI.TLijn %CHUI.TLijn Derde.EC.Toegang %String CHUI.Derde.EC.Toegang.dlgMeerKlanten $$$NULLOREF %String 1 %String 1 %String 1 %String 1 %String %Boolean 1 ========================================================================================================================== METHODs . ========================================================================================================================== ook aanpassen in FEnableInterface!!! Set ..pmLanguage=##class(%CHUI.Ctrl.TTaalPopup).Create(%this,"pmLanguage","Taal",21,18,,25) Do ..pmLanguage.SkipLanguages("D","E") Set ..pmLanguage.OnSetFocus=$LB(%this,"pmLanguageSetFocus") Set ..pmAccessGroup=##class(%CHUI.TPopup).Create(%this,"pmAccessGroup","Groep",13,54,,25) Do ..pmAccessGroup.InitSpec(,,,10) Do ..pmAccessGroup.DefaultFrames() Set ..pmAccessGroup.OnLostFocus=$LB(%this,"pmAccessGroupLostFocus") Set ..pmAccess=##class(%CHUI.TPopup).Create(%this,"pmAccess","Toegang",15,54,4,25) Set ..pmAccess.TextWhenEmpty="(default)" Set ..pmAccess.opMultiSelect=1 Do ..pmAccess.BecomeTreeView(,,30) Do ..pmAccess.AddDelimitedTreeResource("DERDE.EC","ACCESS") Set ..pmOptions=##class(%CHUI.TPopup).Create(%this,"pmOptions","Opties",20,54,2,25) Set ..pmOptions.TextWhenEmpty="(default)" Set ..pmOptions.opMultiSelect=1 Do ..pmOptions.InitSpec(,,,10) Do ..pmOptions.AddResource("DERDE.EC","OPTIONS") Do ..pmOptions.DefaultFrames() Set ..pmInternPerson=##class(%CHUI.Ctrl.TInternePersoonPopup).Create(%this,"pmInternPerson","Interne persoon",7,13,,25) Do ..pmInternPerson.InitSpec(,,,10) Do ..pmInternPerson.Fill() Do ..pmInternPerson.DefaultFrames() Set ..pmPerson=##class(%CHUI.TPopup).Create(%this,"pmPerson","Persoon",5,13,,25) Do ..pmPerson.InitSpec(,,,10) Do ..pmPerson.DefaultFrames() Set ..pmPerson.OnSetFocus=$LB(%this,"pmPersonSetFocus") Set ..pmPerson.OnLostFocus=$LB(%this,"pmPersonLostFocus") Set ..pmAgenda=##class(%CHUI.Ctrl.TInternePersoonPopup).Create(%this,"pmAgenda","Agenda",17,18,,25) Set ..pmAgenda.opMultiSelect=1 Do ..pmAgenda.InitSpec(,,,10) Do ..pmAgenda.Fill() Do ..pmAgenda.DefaultFrames() Set ..pmAgenda.Enabled=0 ;dit aanpassen=>ook aanpassen in FEnableInterface!!! //Lines Set ..lnMid=##class(%CHUI.TLijn).CreateLijn($$$loHorizontal,%this,"lnMid",11,3,76) Set ..lnBottom=##class(%CHUI.TLijn).CreateLijn($$$loHorizontal,%this,"lnBottom",23,3,76) //HoofdMenuItem ;Default MainMenu, buttons uit controls aan toevoegen Set ..opCreateDefaultMenu=0 ;We maken het default menu zelf aan, waarin het mainmenu wordt gecreëerd dat gebruikt wordt voor het extramenu Do ..CreateDefaultMenu() Set hmiExtra=..MainMenu.AddItem(%this,"hmiExtra","Extra",1,"X","","") //Clean old log Set miTemp=hmiExtra.AddItem(%this,"miUnlockInterface","Blokkering opheffen",1,,$LB(%this,"miUnlockInterfaceClick")) Do ..SetTabAndPaintOrder(..txtAssocKlant,..pmPerson,..pmInternPerson,..txtEmail,..btnMeerKlanten,..txtUserName,..btnChangePwd,..btnShowPwd,..pmAgenda,..pmDomain,..pmLanguage,..pmAccessGroup,..pmAccess,..pmOptions,..chkHasAccess,..btnOk,..btnCancel) Quit ]]> SubTitle:%String %String ID:%String,RevNr:%Integer %String ID:%String 1 %String 1 %String 1 %Boolean 0) && (..pmAccessGroup.Value'=$$$tggVHIntern) Do . Do $$$ShowMsgBoxSimple(..Caption,"OPMERKING: U hebt agenda-medewerkers opgegeven, maar de toegangsgroep is niet ingesteld op 'intern'.") Quit 1 ]]> 1 %Boolean 1 %Boolean List:%List,Label:%CHUI.TLabel 1 lbList:%List,Label:%CHUI.TLabel 1 List:%List,Label:%CHUI.TLabel 1 Label:%CHUI.TLabel 1 1 1 1 1 %String %String KlantNr %Boolean ID:%String,RevNr:%Integer %Boolean ID:%String %Boolean KlantNr:%String %String ========================================================================================================================== EVENTs . ========================================================================================================================== Sender:%CHUI.TControlBasis Sender:%CHUI.TControlBasis Sender:%CHUI.TControlBasis Sender:%CHUI.TControlBasis Sender:%CHUI.TControlBasis Sender:%CHUI.TControlBasis Sender:%CHUI.TControlBasis Sender:%CHUI.TControlBasis Sender:%CHUI.TControlBasis Sender:%CHUI.TControlBasis Sender:%CHUI.TControlBasis,CanClose:%Boolean