Index: APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml =================================================================== diff -u -r1645 -r1649 --- APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml (.../UglyPickingService.cls.xml) (revision 1645) +++ APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml (.../UglyPickingService.cls.xml) (revision 1649) @@ -167,14 +167,14 @@ - + BonNr:%String,ProductID:%String,PalletID:%String -APPS.MAG.UGLYPicking.dto.Pallet +APPS.MAG.UGLYPicking.dto.PalletPickingOpdracht 1 { set AantalInVerpakking = rsVerpakkingen.Get("GrootVerpakking") - set dtoInhoud = ..BuildInhoud("Gx"_AantalInVerpakking,AantalInVerpakking,.AantalTePicken,.AantalResterend) - do dtoPallet.Inhouden.Insert(dtoInhoud) + set dtoInhoud = ..BuildInhoud(AantalInVerpakking,.AantalTePicken,.AantalResterend) + set dtoPalletPickingOpdracht.GrootVerpakking = dtoInhoud } if rsVerpakkingen.Get("NormaleVerpakking")>1 { set AantalInVerpakking = rsVerpakkingen.Get("NormaleVerpakking") - set dtoInhoud = ..BuildInhoud("Kx"_AantalInVerpakking,AantalInVerpakking,.AantalTePicken,.AantalResterend) - do dtoPallet.Inhouden.Insert(dtoInhoud) - } + set dtoInhoud = ..BuildInhoud(AantalInVerpakking,.AantalTePicken,.AantalResterend) + set dtoPalletPickingOpdracht.NormaalVerpakking = dtoInhoud + } } if AantalTePicken>0 { - set dtoInhoud=..BuildInhoud("Stuks",1,.AantalTePicken,.AantalResterend) - do dtoPallet.Inhouden.Insert(dtoInhoud) + set dtoInhoud=..BuildInhoud(1,.AantalTePicken,.AantalResterend) + set dtoPalletPickingOpdracht.StukVerpakking = dtoInhoud } - quit dtoPallet + quit dtoPalletPickingOpdracht ]]> @@ -230,12 +234,12 @@ -Omschrijving:%String,AantalInVerpakking:%Integer,AantalTePicken:%Integer,AantalResterend:%Integer +AantalInVerpakking:%Integer,AantalTePicken:%Integer,AantalResterend:%Integer 1 APPS.MAG.UGLYPicking.dto.Inhoud