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