BL.PPS.TBX.Common 1 %RegisteredObject 0 %Integer %String 1 APPS.Halux.common.BatchService APPS.VisiDot.dto.CaptureInfo APPS.VisiDot.impl.CaptureHelper APPS.VisiDot.dto.Sequence APPS.VisiDot.impl.ProductionHelper BatchID %Status VHossNr,Zijkant VHossNr,Zijkant VHossNr,Zijkant VHossNr,Zijkant VHossNr,Zijkant 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 R",Dual.RowInPallet," C",Dual.ColInPallet,! Quit 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()) } ]]> SlotNr 1 0 { Set Detection=Photo.Detection.GetAt(Photo.Detection.Count()) ;do Detection.XMLExport(,"literal,indent") r k Set Dual=..BuildDual(SlotNr) Do Detection.DUAL.RemoveAt(1) Do Detection.DUAL.Insert(Dual) ;do Detection.XMLExport(,"literal,indent") r k } ]]> SlotNr 1 VHossNr,Zijkant,SlotNr 1