Index: APPS/common/impl/StockNiveauService.cls.xml =================================================================== diff -u -r946 -r949 --- APPS/common/impl/StockNiveauService.cls.xml (.../StockNiveauService.cls.xml) (revision 946) +++ APPS/common/impl/StockNiveauService.cls.xml (.../StockNiveauService.cls.xml) (revision 949) @@ -1,10 +1,10 @@ - + TECH.Error 1 APPS.common.StockNiveauService,%RegisteredObject -62173,33961.755646 +62173,41115.064929 0 @@ -175,7 +175,7 @@ set Result = 0 if $length(..Datum) { - set itProductOrderLijnen = ##class(APPS.PM.DataMProductOrderLijnIterator).%New(..PRNr) + set itProductOrderLijnen = ##class(APPS.PM.ProductOpOrderLijnIt).%New(..PRNr) while itProductOrderLijnen.HasNext() { set OrderLijn = itProductOrderLijnen.Next() continue:($$$Not(OrderLijn.IsInReservatie())) @@ -184,7 +184,7 @@ } } else { - set Result = +$piece(^PRSTOCK("D",..PRNr),"\",2) + set Result = +$piece($get(^PRSTOCK("D",..PRNr)),"\",2) } set ..AantalInReservatie = Result @@ -199,7 +199,7 @@ set Result = 0 if $length(..Datum) { - set itProductToelevLijnen = ##class(APPS.PM.DataMProductToelevLijnIterator).%New(..PRNr) + set itProductToelevLijnen = ##class(APPS.PM.ProductOpToeleveringLijnIt).%New(..PRNr) while itProductToelevLijnen.HasNext() { set ToelevLijn = itProductToelevLijnen.Next() continue:( ( $length(..Datum) ) && ( ToelevLijn.GeefLeverdag()>(..Datum) ) ) @@ -221,20 +221,20 @@ set Result = 0 if $length(..Datum) { - set itProductOrderLijnen = ##class(APPS.PM.DataMProductOrderLijnIterator).%New(..PRNr) + set itProductOrderLijnen = ##class(APPS.PM.ProductOpOrderLijnIt).%New(..PRNr) while itProductOrderLijnen.HasNext() { set OrderLijn = itProductOrderLijnen.Next() continue:(OrderLijn.IsInReservatie()) continue:( ( $length(..Datum) ) && ( OrderLijn.GeefLeverdag()>(..Datum) ) ) set Result = Result + OrderLijn.GeefAantal() } } - else { set Result = +$piece(^PRSTOCK("D",..PRNr),"\",3) } + else { set Result = +$piece($get(^PRSTOCK("D",..PRNr)),"\",3) } set ..AantalInOrder = Result quit Result ]]> - +