TECH.RegisteredObject,TECH.Iterator %String "UOMConversie" 1 AX.Uitgaand.PM.impl.LoggerProductenMigratie 1 %String ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() 1 %Integer 1 %Integer 1 %Integer 1 %String 1 AX.Uitgaand.PM.UOMConversie.impl.UOMConversieDixfConverter 1 TECH.Iterator 1 AX.Uitgaand.PM.Product.impl.Product 1 TECH.Query.QueryAPI 1 TECH.ResultSet 1 AXimpl.Utils 1 QueryAPI:TECH.Query.QueryAPI="",Utils:AXimpl.Utils,AxEntiteitLogger:AX.Uitgaand.PM.impl.LoggerProductenMigratie 1 1 %Status 1 1 %Boolean 0) { Set HeeftVolgendeLijnVoorProduct = $$$True } ElseIf (..DynIterator.HasNext() > 0) { Set HeeftVolgendProduct = $$$True Set ..Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(..DynIterator.Next().GetData(1)) Set ..AantalLijnenPerProduct = ..BepaalAantalLijnenPerProduct() Set ..HuidigeLijnVanProduct = ..AantalLijnenPerProduct Set ..Piece = 1 } Quit (HeeftVolgendeLijnVoorProduct || HeeftVolgendProduct) ]]> AXdixf.UOMConversie.UOMConversie %Integer