BL.PPS.TBX.Common 1 %RegisteredObject %Integer %String 1 APPS.Halux.common.impl.BatchService APPS.VisiDot.dto.CaptureInfo APPS.VisiDot.impl.CaptureHelper APPS.VisiDot.dto.Sequence APPS.VisiDot.impl.ProductionHelper BatchID %Status VHossNr,Zijkant APPS.VisiDot.dto.CaptureInfo VHossNr,Zijkant APPS.VisiDot.dto.CaptureInfo VHossNr,Zijkant,AantalPosities:%Integer APPS.VisiDot.dto.CaptureInfo VHossNr,Zijkant APPS.VisiDot.dto.CaptureInfo VHossNr,Zijkant,ProductID:%String="418581" APPS.VisiDot.dto.CaptureInfo VHossNr,Zijkant,ProductID:%String="418581" APPS.VisiDot.dto.CaptureInfo VHossNr,Zijkant APPS.VisiDot.dto.CaptureInfo VHossNr,Zijkant 1 1 VHossID,ZijkantNr 1 Queue 1 Queue 1 Set Director=##class(APPS.VisiDot.dto.Director).%New() Set Director.AssetID=Queue.WPVerpak.SlotNr Set Director.AssetType="VHossSlot" Quit Director ]]> SlotNr 1 APPS.VisiDot.dto.DUAL Detection,SlotNr 1 10:1,1:2)) Set Photo=Camera.Photo.GetAt(1) Do Photo.Detection.Insert(Detection) If (SlotNr>10) && (SlotNr<21) && (Detection.Selected=##class(APPS.VisiDot.enu.DetectionTypes).Lade()) ; dubbel { Set DubbelDetection=Detection.%ConstructClone(1) Set DubbelDetection.Selected=##class(APPS.VisiDot.enu.DetectionTypes).Dubbel() Set Camera=..Sequence.Camera.GetAt(2) Set Photo=Camera.Photo.GetAt(1) Do Photo.Detection.Insert(DubbelDetection) } ]]> 1 0 { Do Photo.Detection.RemoveAt(Photo.Detection.Count()) } ]]> AantalPosities:%Integer 1 0 { #dim Detection As APPS.VisiDot.dto.Detection = Photo.Detection.GetAt(Photo.Detection.Count()) Set Detection.DUAL.GetAt(1).ColInPallet = Detection.DUAL.GetAt(1).ColInPallet + AantalPosities } ]]> SlotNr1:%Integer,SlotNr2:%Integer 1 Dual:APPS.VisiDot.dto.DUAL,SlotNr1:%String,SlotNr2:%String 1 %Boolean SlotNr 1 VHossNr,Zijkant,SlotNr,ProductID:%String=418581 1