Index: APPS/common/impl/StockNiveauService.cls.xml =================================================================== diff -u -r1651 -r1656 --- APPS/common/impl/StockNiveauService.cls.xml (.../StockNiveauService.cls.xml) (revision 1651) +++ APPS/common/impl/StockNiveauService.cls.xml (.../StockNiveauService.cls.xml) (revision 1656) @@ -16,11 +16,6 @@ 1 - -%Boolean -1 - - %Integer 1 @@ -87,7 +82,7 @@ -PRNr:%Integer,Datum:%Date="",Magazijn:APPS.common.enu.MagazijnMetStock="",InclReservatieWMS:%Boolean=1 +PRNr:%Integer,Datum:%Date="",Magazijn:APPS.common.enu.MagazijnMetStock="" 1 1 %Status @@ -99,7 +94,6 @@ set ..implStockOverKinderen = ##class(APPS.common.impl.StockOverKinderen).%New(PRNr,Datum) set ..Datum = Datum set ..Magazijn = Magazijn - set ..InclReservatieWMS = InclReservatieWMS quit $$$OK ]]> @@ -139,18 +133,14 @@ } set ..Fysisch = Result - - if ..InclReservatieWMS set ..Fysisch = ..Fysisch - ..GeefAantalInReservatie() quit Result ]]> - - +%Float + - +]]> + %Float @@ -259,7 +247,7 @@ set Result = Result + Aantal } } - + set ..AantalInReservatie = Result quit Result Index: PRODUKT4.mac.rou =================================================================== diff -u -r1654 -r1656 --- PRODUKT4.mac.rou (.../PRODUKT4.mac.rou) (revision 1654) +++ PRODUKT4.mac.rou (.../PRODUKT4.mac.rou) (revision 1656) @@ -76,14 +76,16 @@ set WMSIncl = $get(WMSIncl,1) set:$length(Week) Datum = $$INTDATE^vhDTyp(Week,"DW") set Type = $get(Type) - new StockService set StockService = ##class(APPS.common.StockNiveauService).GeefServiceViaPRNr(PRNr,Datum,,WMSIncl) + new StockService set StockService = ##class(APPS.common.StockNiveauService).GeefServiceViaPRNr(PRNr,Datum) new resGetStock + if Type="" { new dto set dto = StockService.GeefAlleStockTypeNiveaus() - set resGetStock = dto.Fysisch_"\"_dto.Praktisch_"\"_dto.Theoretisch_"\\"_dto.InReceptie_"\"_dto.InReceptieGestockeerd + set resGetStock = $select(WMSIncl:dto.FysischMinReservaties,1:dto.Fysisch)_"\"_ + dto.Praktisch_"\"_dto.Theoretisch_"\\"_dto.InReceptie_"\"_dto.InReceptieGestockeerd } elseif Type = "F" { - set resGetStock = StockService.GeefFysischeStock() + set resGetStock = $select(WMSIncl:StockService.GeefFysischeStockMinReservaties(),1:StockService.GeefFysischeStock()) } elseif Type = "P" { set resGetStock = StockService.GeefPraktischeStock() } elseif Type = "T" { Index: APPS/common/StockNiveauService.cls.xml =================================================================== diff -u -r1653 -r1656 --- APPS/common/StockNiveauService.cls.xml (.../StockNiveauService.cls.xml) (revision 1653) +++ APPS/common/StockNiveauService.cls.xml (.../StockNiveauService.cls.xml) (revision 1656) @@ -8,15 +8,15 @@ Bij de berekeningen wordt er momenteel nog geen rekening gehouden met magazijn waarin de goederen zich bevinden. 1 -Product:DOM.PM.Product,Datum:%Date="",Magazijn:APPS.common.enu.MagazijnMetStock="",InclReservatieWMS:%Boolean=1 -Product:DOM.PM.Product,Datum:%Date="",Magazijn:APPS.common.enu.MagazijnMetStock="" + 1 -PRNr:%Integer,Datum:%Date="",Magazijn:APPS.common.enu.MagazijnMetStock="",InclReservatieWMS:%Boolean=1 -PRNr:%Integer,Datum:%Date="",Magazijn:APPS.common.enu.MagazijnMetStock="" +