BL.Derde.Kennis,CHUI.KB 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.TLabel TCHUI.TLabel TCHUI.TMemo TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.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(TCHUI.TButton).CreateSet(%this,"btnCancel","Sluiten",%Screen.Height,%Screen.Width-14,1,13,,,,,$$$alCenter) Set ..btnCancel.Action=..acCancel Do ##class(TCHUI.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:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis