1 TCHUI.TForm TCHUI.TKader TCHUI.TLabel TCHUI.TLabel TCHUI.TLabel TCHUI.TPopup TCHUI.TLabel TCHUI.TLijst TCHUI.TDataSetList TCHUI.TLijst TCHUI.TDataSetList TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction %Date BL.Derde.Agenda.Agenda %Integer %Integer 1 %Integer 2 %Integer 3 %Integer 4 %Integer 5 In te vullen door de GUI applicatie 0 '') &sql(OPEN GeoUsers) For &sql(FETCH GeoUsers) Quit:SQLCODE Do . Do ..poUser.DataSet.Append($LB(ID,Naam)) &sql(CLOSE GeoUsers) Do ..poUser.DefaultFrames() Set ..poUser.Selected=$LB(..pBLAgenda.User.%Id()) Set ..poUser.OnLostFocus=$LB(%this,"poUserOnLostFocus") Set ..lblDateLabel=##class(TCHUI.TLabel).Create(%this,"lblDateLabel","Datum:",4,9,1) Set ..lblDate=##class(TCHUI.TLabel).Create(%this,"lblDate",$$FormatDateTime^vhLib("Ddd dd-mm-jj",..CurrentDate),4,16,1,14,,,,$LB(,,$$$fsNoUnderline)) Set ..btnChangeDate=##class(TCHUI.TButton).Create(%this,"btnChangeDate","Change",4,..lblDate.Left+14,1,10,,,,,$$$alCenter) Set ..btnChangeDate.Action=..acChangeDate ;Button update ;Set ..btnUpdate=##class(TCHUI.TButton).Create(%this,"btnUpdate","Update",3,..Width-13,1,9,,,,,$$$alCenter) ;Set ..btnUpdate.Action=..acUpdate ;Button close Set ..btnClose=##class(TCHUI.TButton).Create(%this,"btnClose","Sluiten",4,..Width-13,1,9,,,,,$$$alCenter) Set ..btnClose.Action=..acClose Set ..btnRemoveProximity=##class(TCHUI.TButton).Create(%this,"btnRemoveProximity","DelProx",3,55,1,10,,,,,$$$alCenter) Set ..btnRemoveProximity.Action=..acRemoveProximity Set ..btnSetPrive=##class(TCHUI.TButton).Create(%this,"btnSetPRive","Prive",4,55,1,10,,,,,$$$alCenter) Set ..btnSetPrive.Action=..acSetPrive ;Tab & paint order Do ..SetTabAndPaintOrder(..lblHeader,..lblUserLabel,..poUser,..lblDateLabel,..lblDate,..lstAgenda,..lstSommatie,..btnChangeDate,..btnClose) ]]> Sender,LijstRow Sender 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