BL.Derde.Kennis,CHUI.KB 1 TCHUI.TForm ========================================================================================================================== PROPERTIES . ========================================================================================================================== TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TAction TCHUI.TLabel TCHUI.TLabel TCHUI.TButton TCHUI.TButton TCHUI.TButton TCHUI.TMemo TCHUI.TLijst TCHUI.TDataSetList %String 1 %String 1 %Boolean 0 Parameters 2 3 4 5 6 7 rdMain ========================================================================================================================== METHODs . ========================================================================================================================== SubTitle:%String %String lbCreationUser %String lbRegio:%String,KlantID:%String,lbKlassificatie:%String,lbActionDomain:%String,lbCreationUser:%String,DateFrom:%Date,DateTo:%Date,MsgSearchStr:%String,lbSort:%String,SearchAutoShow:%String %String 0) Criterion=$S(Criterion="":"",1:Criterion_$$$NL)_"Klassificatie: "_$$$cmKennis.ShowKlassificatieSmall(lbKlassificatie) Set:($LL(lbActionDomain)>0) Criterion=$S(Criterion="":"",1:Criterion_$$$NL)_"Actiedomein: "_$$ListToPieces^vhLib(lbActionDomain) Set:($LL(lbCreationUser)>0) Criterion=$S(Criterion="":"",1:Criterion_$$$NL)_"Aanmaker: "_$$ListToPieces^vhLib(..CreationUserListToInitialen(lbCreationUser)) Set:(MsgSearchStr'="") Criterion=$S(Criterion="":"",1:Criterion_$$$NL)_"Tekst: "_MsgSearchStr If SearchAutoShow=$$$sasShowNotActiveOnly Do . Set Criterion=$S(Criterion="":"",1:Criterion_$$$NL)_"Niet-actieve ankers" Else Do . Set Criterion=$S(Criterion="":"",1:Criterion_$$$NL)_"Actieve ankers" Set ..mmoCriterion.Text=Criterion ;SQL string opvragen, onthouden voor in QueryInit functie Set ..FSearchSQL=$$$cmKennis.GetSearchSQL(lbRegio,KlantID,lbKlassificatie,lbActionDomain,lbCreationUser,DateFrom,DateTo,MsgSearchStr,lbSort,SearchAutoShow) ;Volgende method roept QueryInit op Set ResultStr=..lstResult.RefreshTop() Quit ResultStr ]]> dlgSearchResults is de mainform, deze zal criterie scherm oproepen, indien daar cancel wo gekozen, dan zal de main ook direct worden afgesloten %Boolean KlantID:%String="" %String ========================================================================================================================== EVENTs . ========================================================================================================================== Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis,ResultStr:%String AANMAKER '"_##class(Res.InternePersoon).GetFullName(RS.Data("CreationUserID"))_"' IS NIET MEER ACTIEF"_$C(13,10) . Do ..dslResult.SetData(Cnt,$LB(RS.Data("CreationDateAndTime"),##class(BL.Derde.Kennis.Kennis).GetKlantNrNaamWoonplaats(RS.Data("Klant")),$$$cmKennis.ShowKlassificatieSmall(RS.Data("lbKlassificatie")),$$ListToPieces^vhLib(RS.Data("lbActionDomain")),RS.Data("ID"),MsgPrefix_$S(RS.Data("HasHistory"):"[...] ",1:"")_RS.Data("Msg"))) . Set Cnt=Cnt+1 If ..FSearchSQL=$$$spRevision Do . Set ..Caption=..GetFormTitle("Revisie - "_Cnt_" gevonden") . Set:(Cnt=0) ResultStr="Er werden geen kennisankers gevonden om te herzien." Else Do . Set ..Caption=..GetFormTitle("Zoekresultaten - "_Cnt_" gevonden") . Set:(Cnt=0) ResultStr="De opgegeven zoekcriteria leverde geen resultaten op." Quit ]]> Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis Sender:TCHUI.TControlBasis