Index: APPS/VisiDot/impl/EndAfhandelaar.cls.xml =================================================================== diff -u -r2858 -r2860 --- APPS/VisiDot/impl/EndAfhandelaar.cls.xml (.../EndAfhandelaar.cls.xml) (revision 2858) +++ APPS/VisiDot/impl/EndAfhandelaar.cls.xml (.../EndAfhandelaar.cls.xml) (revision 2860) @@ -63,10 +63,16 @@ Set ReceptieGroepID = "VisiDot" Set LocatieTransit = "04020101" + Set QueueIterator = ProductionHelper.GeefBatchIterator(BatchID) + /// Nieuwe bufferVolgNr opbouwen - Set ..bfrVolgNr = ##class(BL.MB.UGLYPicking.Receptie).CreateNewBuffer(ReceptieGroepID,UserID) + If QueueIterator.HasNext() { + Set ..bfrVolgNr = ##class(BL.MB.UGLYPicking.Receptie).CreateNewBuffer(ReceptieGroepID,UserID) + }Else{ + Set Bericht = "De QueueIterator heeft geen elementen voor BatchID : '"_BatchID_"'" + Do ##class(vhLib.Logger).%New("VisiDot").Warning("Recepteer Producten",Bericht) + } - Set QueueIterator = ProductionHelper.GeefBatchIterator(BatchID) While QueueIterator.HasNext() { /// QueueElement As DS.PPS.TBX.Queue