persistent 1 %Persistent 0 %String %String $H %String %String FOP.Addendum.emDetail array 1 1 Name 1 ======================================================================================================= 1 expression %String ======================================================================================================= 1 Name:%String %String ======================================================================================================= Geeft "" op opgegeven string terug indien taal niet gevonden Taal:%String,NotFoundGroupIndex:%String="" %String ======================================================================================================= Type:%String,Regio:%String %Boolean 0) && ('$LF(..lbPPODType,Type))) 0 Quit:(($LL(..lbPPODRegio)>0) && ('$LF(..lbPPODRegio,Regio))) 0 Quit 1 ]]> ======================================================================================================= expression Taal:%String %Integer ======================================================================================================= On New Event, alle talen reeds aanmaken initvalue:%CacheString 1 1 %Status ======================================================================================================= lbTaalToGroup:%String ======================================================================================================= QGetDetailsViaObj ======================================================================================================= 1 0 %Status 4) ;F-E heeft groupindex 1 en N-E groupindex 2 ;In de array aSmallestSortNrFromGroup staat dan het volgende: ; aSmallestSortNrFromGroup(1)=2 ; aSmallestSortNrFromGroup(2)=1 ; Deze wordt later gebruikt bij opbouw van de index New aSmallestSortNrFromGroup,Taal,emDetail Set Taal="" For Set emDetail=paAddendumObj.Details.GetNext(.Taal) Quit:(Taal="") Do . If $D(aSmallestSortNrFromGroup(emDetail.GroupIndex)) Do .. If emDetail.SortNr 1 QGetDetailsViaObjExecute 0 %Status 1 QGetDetailsViaObjExecute 0 %Status ------------------------------------------------------------------------------------------------------- %Query paAddendumObj:FOP.Addendum ======================================================================================================= %SQLQuery SELECT Name FROM FOP.Addendum ORDER BY Name %Library.CacheStorage ^FOP.AddendumD AddendumDefaultData ^FOP.AddendumD ^FOP.AddendumI ^FOP.AddendumS listnode %%CLASSNAME CreationDate GroupIndex Name Taal lbPPODRegio lbPPODType Tray1 Tray2 Details