Ok, it is so much code I did not want to burden anyone with it.
My fundamental question is how my code can cause a label to show another text than it's text property.
That is beyond the rules whatever the code is I would think.
UpdateContext({TextNoData:"Gegevens ophalen.."})
;Select(IcnCacheRelocatedVerblijven)
;UpdateContext({lBusyCollectData:true})
//;3;"Daten lesen.."
;UpdateContext({ltext:"-"})
;UpdateContext({lEventFilter:-1})
;UpdateContext({lFutureEvents:false})
;Set(SelectedDierEventGallleryItem,Blank())
;Reset(SearchBoxDocanummer)
;UpdateContext({lTijd:Now()})
;Clear(cProcTiming)
;UpdateContext({lStartTime:Now()})
//;;UpdateContext({lStage:1})
;Set(vTimedProcess,"CollectData")
;Collect(cProcTiming,{ProcessFinished:"Start collect data",Time:0,Stage:CountRows(cProcTiming)+1,Proc:1})
;UpdateContext({lCollectBtnCount:lCollectBtnCount+1})
;If(
!lNavigation
,UpdateContext({BrowseTeller:0})
)
//;;Set(gDierRecord;Blank())
/*
;;If(
BrowseTeller<>0
;UpdateContext({ZoekDatum:DateAdd(ZoekDatum;BrowseTeller;Days)})
)
*/
//;;UpdateContext({lParameters:Split(Right(vvZoekterm;Len(vvZoekterm)-Find(":";vvZoekterm));";")})
;If(
BrowseTeller=0
,UpdateContext({lpDatum1:DateTimeValue("01-01-1950","fr")})
;UpdateContext({lpDatum2:DateTimeValue("01-01-1950","fr")})
;Set(vvZoekDierNr,0)
;UpdateContext({lLastZoekterm:vvZoekterm})
;UpdateContext({lCommandString:""})
;UpdateContext({ViewMode:0})
;UpdateContext({lGroupToExpand:Blank()})
;If(
Left(vvZoekterm,1)="/" And (Find(":",vvZoekterm) > 0)
,UpdateContext({lCommandString:Mid(vvZoekterm,2,Find(":",vvZoekterm)-2)})
;UpdateContext({lCommandLineParameters:Split(Right(vvZoekterm,Len(vvZoekterm)-Find(":",vvZoekterm)),";")})
;UpdateContext({lParameter1:First(lCommandLineParameters).Result})
;If(
CountRows(lCommandLineParameters)>1
,UpdateContext({lParameter2:First(LastN(lCommandLineParameters,CountRows(lCommandLineParameters)-1)).Result})
,UpdateContext({lParameter2:""})
)
;If(
CountRows(lCommandLineParameters)>2
,UpdateContext({lParameter3:First(LastN(lCommandLineParameters,CountRows(lCommandLineParameters)-2)).Result})
,UpdateContext({lParameter3:""})
)
;UpdateContext({lpDatum1:IfError(DateTimeValue(lParameter1,"fr") ,DateTimeValue("01-01-1950","fr"))})
;UpdateContext({lpDatum2:IfError(DateTimeValue(lParameter2,"fr") ,DateTimeValue("01-01-1950","fr"))})
)
;UpdateContext({lZoekTermIsSyntax:Left(vvZoekterm,1)="/"})
;UpdateContext({lZoekTermIsDate:IsMatch(vvZoekterm,"(0[1-9]|[12][0-9]|3[01])[- \/.](0[1-9]|1[012])[- \/.](19|20)\d\d") And !IsError(DateValue(vvZoekterm,"fr"))})
;UpdateContext({lVerblijvenCached:CountRows(cAanwezigeVerblijven) > 10})
;If(
lZoekTermIsDate
,UpdateContext({lpDatum1:DateValue(vvZoekterm,"fr")})
)
;UpdateContext({lZoekTermIsChip:
IsMatch(vvZoekterm
,Digit & Digit & Digit &
Digit & Digit & Digit &
Digit & Digit & Digit &
Digit & Digit & Digit &
Digit & Digit & Digit
)
})
//[11;12;13;19;24]
;UpdateContext(
{ViewMode:
Switch(
Lower(lCommandString)
,"taken",11
,"ptaken",12
,"ttaken",12
,"kaart",5
,"titel",22
,"mijntaken",13
,"pplanningen",15
,"tplanningen",15
,"planningen",17
,"openplan",16
,"openbestel",18
,"takennu",19
,"p&t3d",20
,"dezekaart",23
,"diersoorttakennu",24
,"okplan",25
,"diagnose",26
,"parameter",27
,"produkt",28
//;"planagenda";21
,If(
IsNumeric(vvZoekterm)
,1
,lZoekTermIsDate
,2
,IsMatch(vvZoekterm,Letter & Letter & Digit)
,21
,1
)
)
}
)
;If(
ViewMode in [5,26,27,28]
,UpdateContext({lCommandString:Mid(vvZoekterm,2,Find(":",vvZoekterm)-2)})
;UpdateContext({lCommandLineParameters:Split(Right(vvZoekterm,Len(vvZoekterm)-Find(":",vvZoekterm)),";")})
;If(
CountRows(lCommandLineParameters) > 2
,UpdateContext({lParameter0:First(lCommandLineParameters).Result})
;UpdateContext({lParameter1:Last(FirstN(lCommandLineParameters,2)).Result})
;UpdateContext({lParameter2:Last(FirstN(lCommandLineParameters,3)).Result})
;If(DateTimeValue(lParameter1,"fr") > DateTimeValue("01-01-1950","fr"),UpdateContext({lpDatum1:DateTimeValue(lParameter1,"fr")}))
;If(DateTimeValue(lParameter2,"fr") > DateTimeValue("01-01-1950","fr"),UpdateContext({lpDatum2:DateTimeValue(lParameter2,"fr")}))
;UpdateContext({lParameter0IsGUID: Len(lParameter0)=36 And CountRows(Split(lParameter0,"-"))= 5})
,CountRows(lCommandLineParameters) = 0
;UpdateContext({lParameter0:lParameter1})
,UpdateContext({lParameter0:First(lCommandLineParameters).Result})
)
)
;If(
(ViewMode=21)
,UpdateContext({tZoekDiersoorten
:If(
Left(Upper(LastInputString),1) = "H"
,[1]
,[2,6]
)
})
;UpdateContext({
ZoekKennelGroepAsielId
:LookUp(
CachedKennelGroepAsiel
,Mid(Trim(Upper(vvZoekterm)),2) in naam And diersoort_id in tZoekDiersoorten
,kennel_groep_asiel_id
)
})
//;;UpdateContext({cZoekterm:LastInputString & "-" & Text(ZoekDatum;"dd-mm-yy")})
)
)
;Clear(DitDierEvents)
;Collect(cProcTiming,{ProcessFinished:"command interpret",Time:Now()-lStartTime,Stage:CountRows(cProcTiming)+1,Proc:1})
//;;Set(vvZoekDierNr;Value(vvZoekterm))
;If(
ViewMode=1
,If(
(BrowseTeller=0) And IsMatch(Left(vvZoekterm,1),"\p{L}")
,UpdateContext({TextNoData:"Zoeken naam"})
;If(
lVerblijvenCached
,UpdateContext({ldier_id:First(
SortByColumns(
Filter(cAanwezigeVerblijven
,vvZoekterm in naam
)
,"dier_id"
,Descending
)
)._dier_id})
,UpdateContext({ldier_id:First(FirstN(SortByColumns(Filter('[dbo].[dier]',vvZoekterm in naam),"dier_id",Descending),1)).dier_id})
)
;Set(gDierRecord,LookUp('[dbo].[dier]',dier_id=ldier_id))
;Set(vvZoekDierNr,If(!IsBlank(gDierRecord),gDierRecord.dier_id,0))
;Select(BtnRegHistory)
,(BrowseTeller<>0) And IsMatch(Left(vvZoekterm,1),"\p{L}")
,UpdateContext({TextNoData:"Volgende/vorige zoeken naam"})
;Set(vvZoekDierNr,If(!IsBlank(gDierRecord),gDierRecord.dier_id,0))
,lZoekTermIsChip
,Set(gDierRecord,First(FirstN(SortByColumns(Filter('[dbo].[dier]',chip_pasnummer = vvZoekterm),"identificatie_nummer_asiel",Descending),1)))
;Set(vvZoekDierNr,If(!IsBlank(gDierRecord),gDierRecord.dier_id,0))
,IsNumeric(vvZoekterm)
,Set(vvZoekDierNr,Value(vvZoekterm))
;If(
IsBlankOrError(gDierRecord) Or gDierRecord.dier_id<>vvZoekDierNr
,Set(gDierRecord,LookUp('[dbo].[dier]',dier_id=vvZoekDierNr))
)
,Set(vvZoekDierNr,0)
;Set(gDierRecord,Blank())
)
)
;Collect(cProcTiming,{ProcessFinished:"set dierecord",Time:Now()-lStartTime,Stage:CountRows(cProcTiming)+1,Proc:1})
;If((vvZoekDierNr=0) And (ViewMode=1),UpdateContext({ViewMode:0}))
//;;If(!(ViewMode in [1;21]);UpdateContext({BrowseTeller:0}))
;Clear(DitDierEvents)
;If(
ViewMode <> 23
//;Set(gDierRecord;Defaults(CachedDieren))
//;Set(gAsiel_verblijf;Blank())
,Set(gKennel_asiel,Blank())
;Set(rDierExtra,Blank())
;Set(DitDierVerblijfStatus,-4)
;Set(gAsiel_verblijf_extra,Blank())
;Set(gKennel_groep_asiel,Blank())
;Set(gPleeg_verblijf,Blank())
;Set(gPensionVerblijf,Blank())
;Clear(cAsielVerblijven)
)
//
;Collect(cProcTiming,{ProcessFinished:"init gRecords",Time:Now()-lStartTime,Stage:CountRows(cProcTiming)+1,Proc:1})
;If(
!(ViewMode> 1)
,Select(IcnRegDierSelect)
)
//;;UpdateContext({MonitorViewMode:ViewMode})
;Clear(ThisDierEvents3)
;Reset(GalleryDierEvents)
//=================================================================================
;If(
ViewMode=0
,ClearCollect(ThisDierEvents2,Filter(DierEvent,cra27_eventtypeid<0))
,ViewMode=1 And !lLaadHeleKaart //!lToonVerborgenEvents
,ClearCollect(
ThisDierEvents3
,Filter(
DierEvent
,cra27_docadierid = vvZoekDierNr And cr856_verberg<>'Verberg (DierEvent)'.'1' And cr856_calcshowtime < DateAdd(Today(),1)
)
)
;Set(vMainGalleryDierId,vvZoekDierNr)
;UpdateContext({lHeleKaartGeladen:false})
;UpdateContext(
{lFutureEvents
:!IsBlank(
LookUp(DierEvent,cr856_calcshowtime >= DateAdd(Today(),1) And cra27_docadierid = vvZoekDierNr)
)
}
)
,ViewMode=1 And lLaadHeleKaart//lToonVerborgenEvents
,ClearCollect(
ThisDierEvents3
,Filter(
DierEvent
,cra27_docadierid = vvZoekDierNr
)
)
;Set(vMainGalleryDierId,vvZoekDierNr)
;UpdateContext({lHeleKaartGeladen:true})
,ViewMode=2 //And (DateValue(vvZoekterm;"fr") > DateValue("01-01-1900";"fr"))//IsMatch(vvZoekterm;Digit & Digit & Hyphen & Digit & Digit & Hyphen & Digit & Digit & Digit & Digit)
,ClearCollect(
ThisDierEvents3
,Filter(
DierEvent
//;(EventDatum >= DateValue(vvZoekterm;"fr"))
//And (EventDatum < DateAdd(DateValue(vvZoekterm;"fr");1))
,(cra27_eventdatum >= lpDatum1)
And (cra27_eventdatum < DateAdd(lpDatum1,1))
)
)
,ViewMode=12,
ClearCollect(
ThisDierEvents3
,Filter(
DierEvent
,cra27_planstatus=0 And cra27_plantarget = lParameter1
)
)
,ViewMode=13,
ClearCollect(
ThisDierEvents3
,Filter(
DierEvent
,cra27_planstatus=0 And (cra27_plantarget = lParameter1 Or cra27_useremail = lParameter1)
)
)
,ViewMode=14 And IsMatch(lParameter1,Digit & Digit & Hyphen & Digit & Digit & Hyphen & Digit & Digit & Digit & Digit)
,ClearCollect(
ThisDierEvents3
,Filter(
DierEvent
,cra27_eventtypeid=97
And (cra27_planmoment >= DateAdd(DateValue(lParameter1,"fr"),0))
And (cra27_planmoment < DateAdd(DateValue(lParameter1,"fr"),1))
)
)
,ViewMode=15,
ClearCollect(
ThisDierEvents3
,Filter(
DierEvent
,cra27_eventtypeid=97
And (IsBlank(cra27_planmoment) Or (cra27_planmoment > DateAdd(Today(),-1)))
And (cra27_plantarget = lParameter1 Or cra27_useremail = lParameter1)
)
)
,ViewMode=16,
ClearCollect(
ThisDierEvents3
,Filter(
DierEvent
,cra27_eventtypeid=97
And (IsBlank(cra27_planmoment))
)
)
,ViewMode=17,
ClearCollect(
ThisDierEvents3
,Filter(
DierEvent
,cra27_eventtypeid=97
And (IsBlank(cra27_planmoment)) Or (cra27_planmoment > DateAdd(Now(),-1))
)
)
,ViewMode=11,
ClearCollect(
ThisDierEvents3
,Filter(
DierEvent
,
cra27_eventtypeid = 0 And cr856_calcduetime = Blank() And cra27_planstatus=0
And (
(cra27_plantarget = Blank())
Or (cra27_plantarget = vDefaultTaskTarget)
Or (cra27_plantarget = User().Email)
)
)
)
,ViewMode=19,
ClearCollect(
ThisDierEvents3
,Filter(
DierEvent
,
cra27_eventtypeid <> 97 And cr856_calcduetime< DateAdd(Today(),BrowseTeller+1)
And (
(IsBlank(cra27_plantarget))
Or (cra27_plantarget = vDefaultTaskTarget)
Or (cra27_plantarget = User().Email)
)
)
)
/*
;ViewMode=19;
ClearCollect(
ThisDierEvents3
;Filter(
FirstN(
Filter(
DierEvent
;
((cra27_planstatus=0) And (cra27_eventtypeid <> 97) And (cra27_planmoment < DateAdd(Today();BrowseTeller+1)))
Or
((cra27_eventtypeid in [6;100]) And (cra27_eventdatum < DateAdd(Today();1)) And (cra27_planstatus <> 1))
)//filter
;500
)
; (Lower(Trim(lParameter1)) = Lower(Trim(cra27_plantarget)))
Or (cra27_plantarget = "*")
Or (lParameter1 = "*")
Or IsBlank(cra27_plantarget)
Or Lower(cra27_plantarget) = Lower(cra27_useremail)
)
)
*/
,ViewMode=18,
ClearCollect(
ThisDierEvents3
,Filter(
DierEvent
,cra27_eventtypeid = 5
)
)
,ViewMode=5,
ClearCollect(
ThisDierEvents3
,Filter(
Filter(
DierEvent
,(lParameter0 in cra27_memo Or lParameter0 in cra27_primaryname)// And cra27_eventtypeid=97
)
,CountRows(lCommandLineParameters)<3
Or
(cra27_eventdatum >= lpDatum1 And cra27_eventdatum <= lpDatum2)
)
)
,ViewMode=26,UpdateContext({
lDiagnose
:If(
lParameter0IsGUID
,LookUp(Diagnosen,cra27_diagnosenid=GUID(lParameter0))
,LookUp(Diagnosen,cra27_primaryname=lParameter0)
)
})
;If(
!IsBlank(lDiagnose)
,ClearCollect(
ThisDierEvents3
,
Filter(
DierEvent
,
cr856_Diagnose.cra27_diagnosenid=lDiagnose.cra27_diagnosenid
And
(
CountRows(lCommandLineParameters)<3
Or
(cra27_eventdatum >= lpDatum1 And cra27_eventdatum <= lpDatum2)
)
)
)
)
,ViewMode=27,UpdateContext({
lParameter
:If(
lParameter0IsGUID
,LookUp(Parameters,cra27_parametersid=GUID(lParameter0))
,LookUp(Parameters,cra27_naam=lParameter0)
)
})
;If(
!IsBlank(lParameter)
,ClearCollect(
ThisDierEvents3
,
Filter(
DierEvent
,
cra27_eventtypeid=4
And
cra27_Parameter.cra27_parametersid=lParameter.cra27_parametersid
And
(
CountRows(lCommandLineParameters)<3
Or
(cra27_eventdatum >= lpDatum1 And cra27_eventdatum <= lpDatum2)
)
)
)
)
//;ViewMode=28;UpdateContext({lProdukt:LookUp(Produkt;Name=lParameter0)})
,ViewMode=28 And !lParameter0IsGUID
,ClearCollect(
ThisDierEvents3
,Filter(
DierEvent
,lParameter0 in cra27_primaryname
And
cra27_eventtypeid=3
And
(
CountRows(lCommandLineParameters)<3
Or
(cra27_eventdatum >= lpDatum1 And cra27_eventdatum <= lpDatum2)
)
)
)
,ViewMode=28 And lParameter0IsGUID
,UpdateContext({
lProdukt
:LookUp(Produkt,cra27_produktid=GUID(lParameter0))
})
;If(
!IsBlank(lProdukt)
,ClearCollect(
ThisDierEvents3
,
Filter(
DierEvent
,
cra27_Produkt.cra27_produktid=lProdukt.cra27_produktid
And
(
CountRows(lCommandLineParameters)<3
Or
(cra27_eventdatum >= lpDatum1 And cra27_eventdatum <= lpDatum2)
)
)
)
)
,ViewMode=23,
ClearCollect(
ThisDierEvents3
,Filter(
DierEvent
,cra27_docadierid = gDierRecord.dier_id And (lParameter1 in cra27_memo Or lParameter1 in cra27_primaryname)
)
)
,ViewMode=25
,ClearCollect(
ThisDierEvents3
,Filter(
DierEvent
,cra27_planmoment >= DateAdd(lpDatum1,0)
And cra27_planmoment < DateAdd(lpDatum1,1)
And (cra27_eventtypeid=97)
)
)
,ViewMode=22,
ClearCollect(
ThisDierEvents3
,Filter(
DierEvent
,lParameter1 in cra27_primaryname
)
)
,ViewMode=0,
ClearCollect(
ThisDierEvents3
,Filter(
DierEvent
,cra27_useremail = lParameter1 And cra27_eventdatum > DateAdd(Today(),-3) And (cra27_eventtypeid=97 Or (cra27_eventtypeid=0 And cra27_planstatus in [0,1]))
)
)
,ViewMode=21 And !IsBlankOrError(ZoekDatum)
,ClearCollect(
ThisDierEvents3
,Filter(
DierEvent
,(cra27_eventdatum >= DateAdd(ZoekDatum,BrowseTeller))
And (cra27_eventdatum < DateAdd(ZoekDatum,1+BrowseTeller))
)
)
,ViewMode=24
,UpdateContext({ZoekDatum:If(!IsBlank(lParameter2),DateValue(lParameter2),Today())})
;ClearCollect(
ThisDierEvents3
,Filter(
AddColumns(
FirstN(
Filter(
DierEvent
,
((cra27_planstatus=0) And (cra27_eventtypeid <> 97) And (cra27_planmoment < DateAdd(ZoekDatum,1)))
Or
((cra27_eventtypeid in [6,100]) And (cra27_eventdatum < DateAdd(ZoekDatum,1)) And (cra27_planstatus <> 1))
)//filter
,500
)
,"DiersoortId",LookUp('[dbo].[dier]',dier_id=cra27_docadierid,diersoort_id)
)
, If(
Value(lParameter1) > 0
,DiersoortId=Value(lParameter1)
,Not(DiersoortId in [1,2,6])//DiersoortId > 2 And DiersoortId <> 6
)
)
)
)
;Collect(cProcTiming,{ProcessFinished:"main filter data",Time:Now()-lStartTime,Stage:CountRows(cProcTiming)+1,Proc:1})
//==================================================================================
/*
;;UpdateContext(
{
DitDier:
LookUp('[dbo].[dier]';dier_id=Value(vvZoekterm))
}
)
*/
;If(
!lLaadHeleKaart And CountRows(ThisDierEvents3) > lKaartAantalLaden And ViewMode=1
,UpdateContext({lAantalTDE3:CountRows(ThisDierEvents3)})
;ClearCollect(ThisDierEvents3b,Filter(LastN(SortByColumns(ThisDierEvents3,"cra27_eventdatum",Descending),lAantalTDE3-lKaartAantalLaden),cra27_ishighlight Or cra27_eventtypeid in [8,9]))
;ClearCollect(ThisDierEvents3,FirstN(SortByColumns(ThisDierEvents3,"cra27_eventdatum",Descending),lKaartAantalLaden))
;Collect(ThisDierEvents3,ThisDierEvents3b)
;UpdateContext({lHeleKaartGeladen:false})
,UpdateContext({lHeleKaartGeladen:true})
)
;Collect(cProcTiming,{ProcessFinished:"filter x recent",Time:Now()-lStartTime,Stage:CountRows(cProcTiming)+1,Proc:1})
;ClearCollect(TempGroupIds,{Id:Text(GUID())})//verzameling voorkomende groep id's
;ForAll(
ThisDierEvents3
,If(
!IsBlank(cra27_groepid) And IsBlank(LookUp(TempGroupIds,Id=cra27_groepid))
,Collect(TempGroupIds,{Id:cra27_groepid})
)
)
;Collect(cProcTiming,{ProcessFinished:"collect tempgroepids",Time:Now()-lStartTime,Stage:CountRows(cProcTiming)+1,Proc:1})
;UpdateContext({TempViewMode:ViewMode})
//hier update aanwezigeverblijven
;ClearCollect(
DitDierEvents3a
,
//GroupBy(
AddColumns(
ThisDierEvents3
,"ParameterGUID",cra27_Parameter.cra27_parametersid
,"ProduktGUID",GUID(Trim(cra27_Produkt.cra27_produktid))
,"Visibility",0
,"LineGUID",GUID()
,"GroepGUID",If(IsBlank(cra27_groepid),GUID(),cra27_groepid)
,"fDierRecord",If(
ViewMode<>1
,If(
IsBlank(LookUp(CachedLastDieren,dier_id=cra27_docadierid))
,LookUp('[dbo].[dier]',dier_id=cra27_docadierid)
,LookUp(CachedLastDieren,dier_id=cra27_docadierid)
)
,gDierRecord
)
,"rec_current_asiel_verblijf",
If(
lVerblijvenCached
,With(
{
rVerblijf
:LookUp(cAanwezigeVerblijven,dier_id=cra27_docadierid)
}
, {
kennel_asiel_id:rVerblijf.kennel_asiel_id
,locatienaam:rVerblijf.locatienaam
,_kennel_groep_id:rVerblijf._kennel_groep_id
}
)
,With(
{
r_asiel_verblijf
:LookUp(
//FirstN(
Filter('[dbo].[asiel_verblijf]',dier_id=cra27_docadierid)
//;100
//)
,vertrek_datum=Blank() And opname_datum<>Blank()
)
}
, {
kennel_asiel_id:r_asiel_verblijf.kennel_asiel_id
,locatienaam:LookUp(CachedKennelAsiel,kennel_asiel_id=r_asiel_verblijf.kennel_asiel_id,naam)
,_kennel_groep_id:LookUp(CachedKennelAsiel,kennel_asiel_id=r_asiel_verblijf.kennel_asiel_id,kennel_groep_asiel_id)
}
)
)
//;"ShowTime"; If(IsBlank(PlanMoment);EventDatum;PlanMoment)
)
// ;"GroepGUID"
// ;"SumCol"
// )
)
//;;Clear(ThisDierEvents3)
;Collect(cProcTiming,{ProcessFinished:"addcolumns associated records",Time:Now()-lStartTime,Stage:CountRows(cProcTiming)+1,Proc:1})
;ForAll(
TempGroupIds As TGI
,Patch(
DitDierEvents3a
,If(IsBlank(LookUp(DitDierEvents3a,cra27_groepid=TGI.Id And cra27_Protocol.cra27_groeperenhistorie And cra27_planstatus <> 1))
,LookUp(DitDierEvents3a,cra27_groepid=TGI.Id And cra27_Protocol.cra27_groeperenhistorie)
,LookUp(DitDierEvents3a,cra27_groepid=TGI.Id And cra27_Protocol.cra27_groeperenhistorie And cra27_planstatus <> 1)
)
,{Visibility:1}
)
)//Alle items hebben visibility 0, door lookup krijgen de eerste van een groep visibilty 1
//>>>>
;If(
ViewMode=1
,ForAll(
TempGroupIds As TGI
,UpdateIf(
DitDierEvents3a
,cra27_groepid=TGI.Id And Visibility=0 And (cra27_Protocol.cra27_groeperenhistorie='GroeperenHistorie (Protocol)'.'1') And (cra27_eventtypeid <> 100)//'VerbergenHistorie (DierEvent)'.Ja
,{Visibility:-1}
)
)
)//Alle items die de vorige ronde niet van 0->1 zijn geworden, worden nu van 0->-1 (-1 onzichtbaar, 0 neutraal zichtbaar, 1 geforceerd zichtbaar)
/*
;;UpdateIf(
DitDierEvents3a
;cra27_eventtypeid=100 And cra27_eventdatum > DateAdd(Today();1)
;{Visibility:If(lToonVerborgenEvents;1;-1)}
)
// And PlanMoment > DateAdd(Today();1);1If(ToonVerborgenEvents;1;-1))
;;Collect(cProcTiming;{ProcessFinished:"set visibility group items";Time:Now()-lStartTime;Stage:CountRows(cProcTiming)+1;Proc:1})
*/
;ClearCollect(
DitDierEvents
,SortByColumns(AddColumns(
DitDierEvents3a
//;"item_rec_asiel_verblijf";Last(Filter(SortByColumns(CachedAsielVerblijf;"asiel_verblijf_id";Ascending);dier_id=cra27_docadierid))
,"coll_LocatieAsstring",""
,"Diernaam",fDierRecord.naam
/*
;If(
IsBlank(fDierRecord)
;LookUp('[dbo].[dier]';dier_id=cra27_docadierid;naam)
;fDierRecord.naam
)
*/
,"Kennel",cra27_locatieasstring
,"DierSoortId",If(ViewMode=1,gDierRecord.diersoort_id,fDierRecord.diersoort_id)
,"FileExtension",
Lower(
If(
cra27_eventtypeid<>98
,""
,Lower(Last(Split(Trim(cra27_memo), ".")).Result)//Last(Split(Memo, ".")).Result
))
,"AgeMonths",If(!IsBlank(fDierRecord.geboortedatum) And !IsBlank(cra27_eventdatum),DateDiff(fDierRecord.geboortedatum,cra27_eventdatum,Months),0)
,"AgeDays",If(!IsBlank(fDierRecord.geboortedatum) And !IsBlank(cra27_eventdatum),DateDiff(fDierRecord.geboortedatum,cra27_eventdatum,Days),0)
,"Overleden",fDierRecord.overleden
,"ToonLocatie",
If(lVerblijvenCached
,rec_current_asiel_verblijf.locatienaam
,If(
IsBlank(rec_current_asiel_verblijf.locatienaam)
,"Extern"
,Switch(
fDierRecord.diersoort_id
,1,"H"
,2,"K"
,6,"Ko"
,Left(Proper(LookUp(CachedDiersoort,diersoort_id=fDierRecord.diersoort_id,naam)),2)
)
&
Substitute(
Substitute(
Substitute(
Upper(rec_current_asiel_verblijf.locatienaam)
,"HOND"
,""
)
,"KONIJN"
,""
)
," - "
,"."
)
)
)
,"coll_kennel_asiel_id",rec_current_asiel_verblijf.kennel_asiel_id
,"coll_kennel_groep_asiel_id",rec_current_asiel_verblijf._kennel_groep_id
,"LookUpEenheid",
If(
(cra27_eventtypeid = 4) And !IsBlank(cra27_Parameter)
,ThisRecord.cra27_Parameter.cra27_eenheid
,(cra27_eventtypeid in [3,5,6]) And !IsBlank(ThisRecord.cra27_Produkt)
,ThisRecord.cra27_Produkt.cra27_eenheid
,""
)
/*If(
(cra27_eventtypeid = 4) And !IsBlank(cra27_Parameter)
;LookUp(
CachedParameters
;cra27_parametersid=ParameterGUID//Parameters[@cra27_parametersid]=Parameter.Parameters
//;cra27_parametersid[@cra27_parametersid]=ParameterGUID//Parameters[@cra27_parametersid]=Parameter.Parameters
;cra27_eenheid
)
;(cra27_eventtypeid in [3;5;6]) And !IsBlank(ThisRecord.cra27_Produkt)
;LookUp([@CachedProdukt];cra27_produktid=ProduktGUID;cra27_eenheid)
;""
)*/
,"SortNr",0
),"cr856_calcshowtime"
,If(
SortDescending1,
Descending,
Ascending
)))
;Clear(DitDierEvents3a)
;Collect(cProcTiming,{ProcessFinished:"addcolumns dier en verblijfdata",Time:Now()-lStartTime,Stage:CountRows(cProcTiming)+1,Proc:1})
;If(
ViewMode > 1// And lVerblijvenCached
,UpdateIf(
DitDierEvents
,!IsBlank(Trim(LocatieAsstring))
,{
ToonLocatie:LocatieAsstring //& "!"
}
)
//
;UpdateIf(
DitDierEvents
,true
,{
ToonLocatie:
If(
fDierRecord.overleden
//LookUp(cAanwezigeVerblijven;dier_id=cra27_docadierid;recDier.overleden) = true
,"RIP"
,IsBlank(rec_current_asiel_verblijf)// And IsBlank(cra27_locatieasstring)
,"EXTERN"
,IsBlank(ToonLocatie)
,"?"
,DierSoortId=1 And !(Upper(Left(Trim(ToonLocatie),1)) = "H")
,"H" & ToonLocatie
,DierSoortId=2 And !(Upper(Left(Trim(ToonLocatie),1)) = "K")
,"K" & ToonLocatie
,DierSoortId=6 And !(Upper(Left(Trim(ToonLocatie),1)) = "K")
,"K" & ToonLocatie
,ToonLocatie
)
}
)
)
;Collect(cProcTiming,{ProcessFinished:"set locatiedata",Time:Now()-lStartTime,Stage:CountRows(cProcTiming)+1,Proc:1})
;If(
ViewMode in [21]
,ClearCollect(
DitDierEvents
,Filter(
DitDierEvents
,coll_kennel_groep_asiel_id = ZoekKennelGroepAsielId And ! (cra27_eventtypeid in [4])
)
)
)
;Collect(cProcTiming,{ProcessFinished:"filter if kennelview",Time:Now()-lStartTime,Stage:CountRows(cProcTiming)+1,Proc:1})
//;;ClearCollect(DitDierEvents;DitDierEvents3)
/*
;;Clear(DitDierEvents)
;;ForAll(
DitDierEvents3
;Collect(DitDierEvents;
Last(FirstN(AddColumns(DitDierEvents3;
"SortNr";
CountRows(DitDierEvents)+1
);
CountRows(DitDierEvents)+1
)
)
)
)
*/
;ClearCollect(DitDierEvents,
ForAll(
Sequence(CountRows(DitDierEvents))
,Patch(
Last(FirstN(DitDierEvents, Value))
,{SortNr: Value}
)
)
)
;Collect(cProcTiming,{ProcessFinished:"set sort data",Time:Now()-lStartTime,Stage:CountRows(cProcTiming)+1,Proc:1})
/*
;;UpdateIf(
DitDierEvents
;Protocol.GroeperenHistorie And !(LineGUID =
First(
Filter(
DitDierEvents
;DitDierEvents[@GroepId]=ThisRecord.GroepId
)
).LineGUID
)
;{HideLine:true}
)
*/
//;;Clear(TempGrouIds)
/*
;;ClearCollect(TempGroupIds;{Id:Text(GUID())})
;;ForAll(
DitDierEvents
;If(
!IsBlank(LookUp(TempGroupIds;Id=GroepGUID))
;Patch(ThisRecord;{HideLine:true})
)
;;If(
IsBlank(LookUp(TempGroupIds;Id=GroepGUID))
;Collect(TempGroupIds;{Id:GroepGUID})
)
)
;;ForAll(
DitDierEvents
;If(
IsBlank(LookUp(TempGroupIds;Id=GroepGUID))
//;Collect(TempGroupIds;{Id:ThisRecord.GroepGUID})
;Patch(ThisRecord;{HideLine:false})
;Patch(ThisRecord;{HideLine:true})
)
)
*/
/*
;;UpdateIf(
DitDierEvents
;Protocol.GroeperenHistorie And (ThisRecord.DierEvent =
First(
Filter(
DitDierEvents
;GroepId=ThisRecord.GroepId
)
).DierEvent
)
;{HideLine:false}
)
*/
//;;UpdateContext({LastGalleryNr:gDierRecord.identificatie_nummer_asiel})
;UpdateContext({DebugText:"GalleryUpdated " & SearchBoxDocanummer.Text & vvZoekterm})
;UpdateContext({InputSet:false})
;UpdateContext({Loadcount:Loadcount+1})
//;;UpdateContext({CommandString:""})
;If(
CountRows(DitDierEvents)=0
,If(
ViewMode > 1 Or (ViewMode=1 And Value(vvZoekterm)>0)
,UpdateContext({TextNoData:Switch(Taal,2,"No data",3,"Kein daten","Geen gegevens")})
,UpdateContext({TextNoData:Switch(Taal,2,"Not found",3,"Nicht gefunden","Niet gevonden")})
)
)
;Set(ZoekDocaNummerChanged,false)
;Set(RefreshEvents,false)
;UpdateContext({lNavigation:false})
;UpdateContext({lBusyCollectData:false})
;UpdateContext({lLaadHeleKaart:false})
;If(ViewMode in [11,12,13,19,18,25],UpdateContext({lListSortCol:4}))
;If(ViewMode in [11,12,13,19,18,25],UpdateContext({lListSortDirection:Ascending}))
;Collect(cProcTiming,{ProcessFinished:"iconcollectdata finished",Time:Now()-lStartTime,Stage:CountRows(cProcTiming)+1,Proc:1})
// 0;If(IsBlank(LookUp(CachedLastDieren;dier_id=cra27_docadierid));LookUp('[dbo].[dier]';dier_id=cra27_docadierid;diersoort_id);LookUp(CachedLastDieren;dier_id=cra27_docadierid;diersoort_id)))
And here is the text property
The "With" statement in the text property is actually a tryout if that works. In the original version I was working with ThisItem... in stead of DDE...
With(
{DDE:LookUp(DitDierEvents,DierEvent=ThisItem.DierEvent)}
,If(
(ViewMode=1)// And (!IsBlank(gDierRecord.dier_id))
,Text(DDE.cr856_calcshowtime,"[$-nl-NL]d-m-yyyy hh:mm dddd",Switch(Taal,2,"en-US",3,"de-DE","nl-NL"))
& If(
DDE.AgeDays<1
,""
,DDE.AgeDays>120
," (" & Text(RoundDown(DDE.AgeMonths/12,0)) & "j " & Text(Mod(DDE.AgeMonths,12)) & "m)"
," (" & Text(RoundDown(DDE.AgeDays/7,0)) & "w " & Text(Mod(DDE.AgeDays,7)) & "d)"
)
,ViewMode=Blank()
,Text(DDE.cr856_calcshowtime,"[$-nl-NL]d-m-yyyy hh:mm dddd",Switch(Taal,2,"en-US",3,"de-DE","nl-NL"))
,ViewMode in [18,19,14]
,Text(DDE.cr856_calcshowtime,"[$-nl-NL]d-m hh" & "u",Switch(Taal,2,"en-US",3,"de-DE","nl-NL"))
& " "
& Text(DDE.cra27_docadierid) & " "
& DDE.Diernaam
& " "
& LookUp(CachedDiersoort,diersoort_id=DDE.DierSoortId,naam)
& " "
& Left(LookUp(CachedKennelAsiel,kennel_asiel_id=DDE.coll_kennel_asiel_id).naam,3)
& " "
& Left(DDE.cra27_useremail,Find("@",DDE.cra27_useremail)-1)
,Text(DDE.cr856_calcshowtime,"[$-nl-NL]d-m-yyyy hh:mm dddd",Switch(Taal,2,"en-US",3,"de-DE","nl-NL"))
& " - "
& Text(DDE.cra27_docadierid) & " "
& DDE.Diernaam
& " "
& LookUp(CachedDiersoort,diersoort_id=DDE.DierSoortId,naam)
& " "
& LookUp(CachedKennelAsiel,kennel_asiel_id=DDE.coll_kennel_asiel_id).naam
)
)
//& ThisItem.cra27_docadierid
//& ThisItem.LocatieAsstring
//&Text(ThisItem.Parameter.Parameters)
//& IsBlank(LookUp(CachedLastDieren;dier_id=ThisItem.DocaDierId))
//& ThisItem.PlanTarget in [Blank();"";vDefaultTaskTarget;User().Email]
//& ThisItem.Visibility
//& If(ThisItem.EventDatum > Today();"J";"N")
//&ThisItem.PlanStatus
//&IsBlank(ThisItem.Verberg)
//&ThisItem.EventtypeId
//& If(IsBlank(ThisItem.Protocol);"blank";ThisItem.Protocol.VerbergenHistorie;"verberg";"toon")
//& IsBlank(ThisItem.fDierRecord)//.vertrek_datum
//& ThisItem.Omschrijving
//& IsBlank(ThisItem.ChildProtocol)
//& ThisItem.PlanStatus & ThisItem.EventtypeId
//&IsBlank(LookUp(DitDierEvents;SortNr=ThisItem.SortNr-1))
//& DateDiff(LookUp(DitDierEvents;SortNr=ThisItem.SortNr-1;EventDatum);ThisItem.EventDatum;Minutes)
//& "-" & ThisItem.coll_kennel_groep_asiel_id
/*
&ThisItem.EventtypeId & "-" & ThisItem.PlanStatus
*/
Sorry I left the commented out bits in. The editor could not keep up with me when I tried to remove them and garbled the code into errorland.
