Index: VerpakkingsDefinitie/WS/ProductsAgent.pas =================================================================== diff -u -r586 -r587 --- VerpakkingsDefinitie/WS/ProductsAgent.pas (.../ProductsAgent.pas) (revision 586) +++ VerpakkingsDefinitie/WS/ProductsAgent.pas (.../ProductsAgent.pas) (revision 587) @@ -456,6 +456,8 @@ pxBoxDataObj: OptiServerService.pxBoxData); var Verpakking: TProductVerpakking; + I: Integer; + NieuweVerpakkingParameter: TProductVerpakkingParameter; begin // Andere velden juist zetten ProductDetailContext.IsOK := True; @@ -483,6 +485,20 @@ Richtingen.AddRange(SplitString(pxBoxDataObj.Rotatie, '')); DefaultRichtingen.AddRange(SplitString(pxBoxDataObj.DefaultData.Rotatie, ';')); + // Verpakking parameters. haal waarden uit gewone data en default data. + Parameters.Clear(); + if (High(pxBoxDataObj.Params) = High(pxBoxDataObj.DefaultData.Params)) then + for I := 0 to High(pxBoxDataObj.Params) do + begin + NieuweVerpakkingParameter := TProductVerpakkingParameter.Create(); + NieuweVerpakkingParameter.ID := pxBoxDataObj.Params[I].ID; + NieuweVerpakkingParameter.ProgLabel := pxBoxDataObj.Params[I].ProgLabel; + NieuweVerpakkingParameter.ToolTip := pxBoxDataObj.Params[I].ToolTip; + NieuweVerpakkingParameter.Waarde := pxBoxDataObj.Params[I].Waarde; + NieuweVerpakkingParameter.DefaultWaarde := pxBoxDataObj.DefaultData.Params[I].Waarde; + Parameters.Add(NieuweVerpakkingParameter); + end; + DeelVanID := pxBoxDataObj.DeelVanID; DeelVanCaption := pxBoxDataObj.DeelVanCaption;