Index: VerpakkingsDefinitie/UI/VerpakkingDetailScherm.pas =================================================================== diff -u -r615 -r616 --- VerpakkingsDefinitie/UI/VerpakkingDetailScherm.pas (.../VerpakkingDetailScherm.pas) (revision 615) +++ VerpakkingsDefinitie/UI/VerpakkingDetailScherm.pas (.../VerpakkingDetailScherm.pas) (revision 616) @@ -245,21 +245,18 @@ // Breedte, Diepte, Hoogte. // Default waarde altijd als placeholder instellen EditBreedte.TextHint := ProductVerpakking.DefaultBreedte; // Default - if ProductVerpakking.Breedte = '' then - EditBreedte.Text := '' - else if ProductVerpakking.Breedte <> ProductVerpakking.DefaultBreedte then + EditBreedte.Text := ''; + if ProductVerpakking.Breedte <> ProductVerpakking.DefaultBreedte then EditBreedte.Text := ProductVerpakking.Breedte; EditDiepte.TextHint := ProductVerpakking.DefaultDiepte; // Default - if ProductVerpakking.Diepte = '' then - EditDiepte.Text := '' - else if ProductVerpakking.Diepte <> ProductVerpakking.DefaultDiepte then + EditDiepte.Text := ''; + if ProductVerpakking.Diepte <> ProductVerpakking.DefaultDiepte then EditDiepte.Text := ProductVerpakking.Diepte; EditHoogte.TextHint := ProductVerpakking.DefaultHoogte; // Default - if ProductVerpakking.Hoogte = '' then - EditHoogte.Text := '' - else if ProductVerpakking.Hoogte <> ProductVerpakking.DefaultHoogte then + EditHoogte.Text := ''; + if ProductVerpakking.Hoogte <> ProductVerpakking.DefaultHoogte then EditHoogte.Text := ProductVerpakking.Hoogte; // Max.Comb.Aantal Index: VerpakkingsDefinitie/WS/ProductsAgent.pas =================================================================== diff -u -r612 -r616 --- VerpakkingsDefinitie/WS/ProductsAgent.pas (.../ProductsAgent.pas) (revision 612) +++ VerpakkingsDefinitie/WS/ProductsAgent.pas (.../ProductsAgent.pas) (revision 616) @@ -856,6 +856,7 @@ pxBoxDataObj: OptiServerService.pxBoxData); var i: Integer; + TempStr: string; DefaultDataObj: OptiServerService.pxBoxData; TempParams: ArrayOfpxemDataParampxemDataParam; begin @@ -893,14 +894,28 @@ // Normale properties // Positie, letters aan elkaar plakken in 1 string - Positie := ReplaceStr(JoinStrings(ProductVerpakking.Posities.ToArray(), '-'), '-', ''); - OptiType := ProductVerpakking.OptiType; + TempStr := ReplaceStr(JoinStrings(ProductVerpakking.Posities.ToArray(), '-'), '-', ''); + if TempStr <> DefaultDataObj.Positie then + Positie := TempStr; + // OptiType + if OptiType <> DefaultDataObj.OptiType then + OptiType := ProductVerpakking.OptiType; // Richting, letters aan elkaar plakken in 1 string - Rotatie := ReplaceStr(JoinStrings(ProductVerpakking.Richtingen.ToArray(), '-'), '-', ''); - Plaatsing := ProductVerpakking.Plaatsing; - Hoogte := ProductVerpakking.Hoogte; - Breedte := ProductVerpakking.Breedte; - Diepte := ProductVerpakking.Diepte; + TempStr := ReplaceStr(JoinStrings(ProductVerpakking.Richtingen.ToArray(), '-'), '-', ''); + // Rotatie + if TempStr <> DefaultDataObj.Rotatie then + Rotatie := TempStr; + // Plaatsing + if ProductVerpakking.Plaatsing <> DefaultDataObj.Plaatsing then + Plaatsing := ProductVerpakking.Plaatsing; + // Hoogte, breedte, diepte + if ProductVerpakking.Hoogte <> DefaultDataObj.Hoogte then + Hoogte := ProductVerpakking.Hoogte; + if ProductVerpakking.Breedte <> DefaultDataObj.Breedte then + Breedte := ProductVerpakking.Breedte; + if ProductVerpakking.Diepte <> DefaultDataObj.Diepte then + Diepte := ProductVerpakking.Diepte; + // Aantal, MaxCombinAantal, hebben geen default data Aantal := ProductVerpakking.Aantal; MaxCombinAantal := ProductVerpakking.MaxCombinAantal;