Index: VerpakkingsDefinitie/WS/ProductsAgent.pas =================================================================== diff -u -r602 -r603 --- VerpakkingsDefinitie/WS/ProductsAgent.pas (.../ProductsAgent.pas) (revision 602) +++ VerpakkingsDefinitie/WS/ProductsAgent.pas (.../ProductsAgent.pas) (revision 603) @@ -136,7 +136,7 @@ begin // Andere velden leegmaken UiInstellingenContext.Posities.Clear(); - UiInstellingenContext.Plaatsing.Clear(); + UiInstellingenContext.Plaatsingen.Clear(); UiInstellingenContext.Richtingen.Clear(); UiInstellingenContext.IsOK := pxStatusObj.IsOK; @@ -186,15 +186,15 @@ end; end; - UiInstellingenContext.Plaatsing.Clear(); + UiInstellingenContext.Plaatsingen.Clear(); UiInstellingenContext.PlaatsingByValue.Clear(); if Instellingen.Plaatsing <> nil then begin for i := 0 to Instellingen.Plaatsing.Count - 1 do begin Node := Instellingen.Plaatsing[i]; KeyStr := Node.GetAttributeNS('Key', ''); - UiInstellingenContext.Plaatsing.Add(KeyStr, Node.Text); + UiInstellingenContext.Plaatsingen.Add(KeyStr, Node.Text); UiInstellingenContext.PlaatsingByValue.Add(Node.Text, KeyStr); end; end; @@ -747,6 +747,7 @@ ProductVerpakking: TProductVerpakking); var i: Integer; + CharItem: Char; TempNieuweVerpakkingParameters: TList; NieuweVerpakkingParameter: TProductVerpakkingParameter; begin @@ -780,9 +781,18 @@ Aantal := pxBoxDataObj.Aantal; MaxCombinAantal := pxBoxDataObj.MaxCombinAantal; - Posities.AddRange(SplitString(pxBoxDataObj.Positie, '')); - Richtingen.AddRange(SplitString(pxBoxDataObj.Rotatie, '')); + // Positie + for CharItem in pxBoxDataObj.Positie do + begin + Posities.Add(string(CharItem)); + end; + // Richting + for CharItem in pxBoxDataObj.Rotatie do + begin + Richtingen.Add(string(CharItem)); + end; + // Default data instellen als deze aanwezig is. if pxBoxDataObj.DefaultData <> nil then begin @@ -861,9 +871,11 @@ DefaultData := DefaultDataObj; // Normale properties - Positie := JoinStrings(ProductVerpakking.Posities.ToArray(), #0); // Positie + // Positie, letters aan elkaar plakken in 1 string + Positie := ReplaceStr(JoinStrings(ProductVerpakking.Posities.ToArray(), '-'), '-', ''); OptiType := ProductVerpakking.OptiType; - Rotatie := JoinStrings(ProductVerpakking.Richtingen.ToArray(), #0); // Richting + // Richting, letters aan elkaar plakken in 1 string + Rotatie := ReplaceStr(JoinStrings(ProductVerpakking.Richtingen.ToArray(), '-'), '-', ''); Plaatsing := ProductVerpakking.Plaatsing; Hoogte := ProductVerpakking.Hoogte; Breedte := ProductVerpakking.Breedte;