BL.EC.Common 1 TCHUI.TForm ========================================================================================================================== PROPERTIES . ========================================================================================================================== TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.Ctrl.TKlantEdit TCHUI.TEdit TCHUI.TEdit TCHUI.TCheckBox TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.TPopup TCHUI.Ctrl.TInternePersoonPopup TCHUI.TPopup TCHUI.TPopup TCHUI.TPopup TCHUI.TPopup TCHUI.Ctrl.TTaalPopup TCHUI.Ctrl.TInternePersoonPopup TCHUI.TLijn TCHUI.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(TCHUI.Ctrl.TTaalPopup).Create(%this,"pmLanguage","Taal",21,18,,25) Do ..pmLanguage.SkipLanguages("D","E") Set ..pmLanguage.OnSetFocus=$LB(%this,"pmLanguageSetFocus") Set ..pmAccessGroup=##class(TCHUI.TPopup).Create(%this,"pmAccessGroup","Groep",13,54,,25) Do ..pmAccessGroup.InitSpec(,,,10) Do ..pmAccessGroup.DefaultFrames() Set ..pmAccessGroup.OnLostFocus=$LB(%this,"pmAccessGroupLostFocus") Set ..pmAccess=##class(TCHUI.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(TCHUI.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(TCHUI.Ctrl.TInternePersoonPopup).Create(%this,"pmInternPerson","Interne persoon",7,13,,25) Do ..pmInternPerson.InitSpec(,,,10) Do ..pmInternPerson.Fill() Do ..pmInternPerson.DefaultFrames() Set ..pmPerson=##class(TCHUI.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(TCHUI.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(TCHUI.TLijn).CreateLijn($$$loHorizontal,%this,"lnMid",11,3,76) Set ..lnBottom=##class(TCHUI.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:TCHUI.TLabel 1 lbList:%List,Label:TCHUI.TLabel 1 List:%List,Label:TCHUI.TLabel 1 Label:TCHUI.TLabel 1 1 1 1 1 %String %String KlantNr %Boolean ID:%String,RevNr:%Integer %Boolean ID:%String %Boolean KlantNr:%String %String ========================================================================================================================== EVENTs . ========================================================================================================================== Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis,CanClose:%Boolean