1 %RegisteredObject,%XML.Adaptor 0 %String %String %String %String 1 KlantNr:%String,Array 0 0) KortingStr=KortingStr_" + "_$J(Korting2,0,1)_" %" ..... Set PrijsStr=$S(+ProdNr=0:"",1:$P(PrijsRec,D,1)_" "_$P(PrijsRec,D,2)_$S($P(PrijsRec,D,3)="H":"%",1:"")) ..... Set pxUitzondering=..%New() ..... Do pxUitzondering.Fill(Klassificatie,ProductStr,KortingStr,PrijsStr) ..... Do Array.SetAt(pxUitzondering,Klassificatie_"."_ProdNr_"."_VolgNr) ;Klassificatie opnieuw doorlopen en iets duidelijker 'voor het menselijke oog' bewaren ; !!! Implementatie nog niet mogelijk omdat webservices whitespaces wegtrimt... /*New Key,PrevKlassificatie,Klassificatie Set Key="" Set PrevKlassificatie="" For Set pxUitzondering=Array.GetNext(.Key) Quit:(Key="") Do . Set Klassificatie=pxUitzondering.Klassificatie . Set pxUitzondering.Klassificatie="."_$$GetStrCrossSection^vhLib(PrevKlassificatie,Klassificatie,"-") . Set PrevKlassificatie=Klassificatie*/ ]]> Klassificatie,Product,Korting,Prijs