BL.Derde.Kennis,CHUI.KB 1 %CHUI.TForm 61628,39904.541697 60745,61786.772933 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.TLabel %CHUI.TLabel %CHUI.TMemo %CHUI.TAction %CHUI.TAction %CHUI.TAction %CHUI.TAction %CHUI.TAction %CHUI.TAction %CHUI.TAction %CHUI.TButton %CHUI.TButton %CHUI.TButton %CHUI.TButton %CHUI.TButton Derde.Kennis.Kennis $$$NULLOREF CHUI.Derde.KB.dlgModify 1 %Boolean ========================================================================================================================== METHODs ========================================================================================================================== ",%Screen.Height,..btnPrevious.Left+..btnPrevious.Width+1,1,12,,,,,$$$alCenter) Set ..btnNext.Action=..acNext Do ##class(%CHUI.TButton).CreateSet(%this,"btnCancel","Sluiten",%Screen.Height,%Screen.Width-14,1,13,,,,,$$$alCenter) Set ..btnCancel.Action=..acCancel Do ##class(%CHUI.TButton).CreateSet(%this,"btnRevised","Geverifieerd",%Screen.Height,%Screen.Width-33,1,14,,,,,$$$alCenter) Set ..btnRevised.Action=..acRevised ;Item toevoegen aan defaultmenu (dit laten we niet auto aanmaken, maar manueel zodat we reeds hmiDefault ;kunnen gebruiken, bij auto wordt deze achter createcontrols aangemaakt) Set ..opCreateDefaultMenu=0 Do ..CreateDefaultMenu() Do ..hmiDefault.AddItem(%this,"miRaadpleegKlant","Raadpleeg klant",1,,,..acRaadpleegKlant) ;Tab & paint order Do ..SetTabAndPaintOrder(..btnCancel,..btnModify,..btnPrevious,..btnNext,..btnRevised) ]]> %String KennisID:%String,ForRevision:%Boolean=0 %String Interface Do ..FiREAD() //Logging Do ##class(BL.Derde.Kennis.Kennis).AddToLog(..KennisObj.%Id(),$$$kbaRead,%Application.User.%Id()) Quit "" ]]> KennisObj:Derde.Kennis.Kennis 1 ",1:"") Set ..btnModify.Enabled='..btnNext.Enabled Set ..btnModify.Caption=$S(..btnModify.Enabled:"Wijzig",1:"") Quit ]]> SubTitle:%String %String ========================================================================================================================== EVENTs ========================================================================================================================== Sender:%CHUI.TControlBasis Sender:%CHUI.TControlBasis Sender:%CHUI.TControlBasis Sender:%CHUI.TControlBasis Sender:%CHUI.TControlBasis Sender:%CHUI.TControlBasis Sender:%CHUI.TControlBasis