Index: VerpakkingsDefinitie/WS/ProductsAgent.pas =================================================================== diff -u -r605 -r606 --- VerpakkingsDefinitie/WS/ProductsAgent.pas (.../ProductsAgent.pas) (revision 605) +++ VerpakkingsDefinitie/WS/ProductsAgent.pas (.../ProductsAgent.pas) (revision 606) @@ -501,7 +501,7 @@ for ProductVerpakking in TempProductVerpakkingen do begin if ProductVerpakking.DeelVanID <> '' then - for ProductVerpakkingAndere in ProductVerpakkingenContext.ProductVerpakkingen do + for ProductVerpakkingAndere in TempProductVerpakkingen do if ProductVerpakking.DeelVanID = ProductVerpakkingAndere.ID then ProductVerpakking.DeelVan := ProductVerpakkingAndere; end; @@ -641,8 +641,15 @@ procedure TProductsAgent.OpslaanGewijzigdeProductVerpakking(ProductVerpakking: TProductVerpakking; UserContext: TUserContext; ProductVerpakkingenContext: TProductVerpakkingenContext); +var + TempProductVerpakking: TProductVerpakking; begin OpslaanProductVerpakking(ProductVerpakking, UserContext, ProductVerpakkingenContext); + // We vervangen sommige productverpakking gegevens met de door de server aangepaste gegevens + // Anders krijgen we geen correcte 'deel van' caption van de server zelf + TempProductVerpakking := GeefVerpakkingMetID(ProductVerpakking.ID, UserContext, ProductVerpakkingenContext); + ProductVerpakking.DeelVanCaption := TempProductVerpakking.DeelVanCaption; + ProductVerpakkingenContext.NotifyChanged(); end; @@ -801,7 +808,6 @@ DefaultHoogte := pxBoxDataObj.DefaultData.Hoogte; DefaultBreedte := pxBoxDataObj.DefaultData.Breedte; DefaultDiepte := pxBoxDataObj.DefaultData.Diepte; - { TODO : aantal en Max comb aantal default waarden } DefaultPosities.AddRange(SplitString(pxBoxDataObj.DefaultData.Positie, ';')); DefaultRichtingen.AddRange(SplitString(pxBoxDataObj.DefaultData.Rotatie, ';'));