BL.EC.Common 1 TCHUI.TForm ========================================================================================================================== PROPERTIES . ========================================================================================================================== TCHUI.TLabel TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.TCheckBox TCHUI.TLijst TCHUI.TDataSetList CHUI.Derde.EC.Logging.MainForm $$$NULLOREF CHUI.Derde.EC.Toegang.MainForm $$$NULLOREF CHUI.Derde.EC.Logging.dlgStatistics $$$NULLOREF TCHUI.TMenuItem TCHUI.TMenuItem TCHUI.TMenuItem TCHUI.TMenuItem TCHUI.TMenuItem %String 0 %String 1 2 3 4 5 6 7 1 2 3 ========================================================================================================================== METHODs . ========================================================================================================================== %String FilterKlantNr:%String %Status Volgende load method enkel gebruiken bij opstarten, deze toont oa een progressbar en als de boel al gecached is gaat het toch vlugger KlantNr %Boolean ========================================================================================================================== EVENTs . ========================================================================================================================== Sender:TCHUI.TControlBasis,KeyCode:%String 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 Sender:TCHUI.TControlBasis 0) ..lstToegang.ContextMenu.AddItem(%this,"pmiLogToegangSep","-Historiek",1) ;Log ids Set MaxCnt=$S(LogCnt>9:LogCnt-9,1:1) For Loop=LogCnt:-1:MaxCnt Do ;Nieuw->Oud . Set tmpObj=##class(Derde.EC.Toegang).OpenLog(ToegangID,Loop) . Quit:(tmpObj=$$$NULLOREF) . Set Caption=Loop_". "_$S(+tmpObj.WijzigTijdStip=0:"(datum onbekend)",1:$$GetHumanDate^vhLib(tmpObj.WijzigTijdStip))_$S($IsObject(tmpObj.WijzigUser):" ("_tmpObj.WijzigUser.Naam_")",1:"") . Set tmpItem=..lstToegang.ContextMenu.AddItem(%this,"pmiLogToegang"_Loop,Caption,1,,$LB(%this,"pmiLogToegangClick")) . Set tmpItem.Tag=$LB(ToegangID,Loop) ]]> Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis