Index: APPS/VisiDot/impl/VHossControleurZijkant.cls.xml =================================================================== diff -u -r2104 -r2216 --- APPS/VisiDot/impl/VHossControleurZijkant.cls.xml (.../VHossControleurZijkant.cls.xml) (revision 2104) +++ APPS/VisiDot/impl/VHossControleurZijkant.cls.xml (.../VHossControleurZijkant.cls.xml) (revision 2216) @@ -174,10 +174,8 @@ Set Info = "Er ontbreken laden in volgende vakken : "_LegeSlots /// JBL uitgecommentarieerd, anders een popup ! //Do ..CaptureHelper.ZetError(##class(APPS.VisiDot.enu.FoutTypes).Waarschuwing(),"Ontbrekende laden",Info) - If ($G(^JBL.VisiDot.SlotControle)){ - Do ..CaptureHelper.ZetGebruikersInfo(Info) - Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).VHossOntbrekend()) - } + Do ..CaptureHelper.ZetGebruikersInfo(Info) + Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).VHossOntbrekend()) ]]> @@ -246,24 +244,18 @@ } Else { - If ($G(^JBL.VisiDot.SlotControle)){ - //d WLIP^vhDBG(127,"Controle aanwezig: QueueHelper : BatchID:"_BatchID_",VolgNr:"_VHossVolgNr) - //d WLIP^vhDBG(127,",Zijkant:"_VHossZijkant_",SlotNr:"_VHossSlotNr_",PRNr:"_ProductNr) - Set ExtraInfo = "" - Set Detection = DetectionHelper.GeefData() - if $IsObject(Detection){ - Set Dual = Detection.DUAL.GetAt(1) - If ($IsObject(Dual)){ - Set ExtraInfo = ExtraInfo_"Row:"_Dual.RowInPallet_",Col:"_Dual.ColInPallet - } + //d WLIP^vhDBG(127,"Controle aanwezig: QueueHelper : BatchID:"_BatchID_",VolgNr:"_VHossVolgNr) + //d WLIP^vhDBG(127,",Zijkant:"_VHossZijkant_",SlotNr:"_VHossSlotNr_",PRNr:"_ProductNr) + Set ExtraInfo = "" + Set Detection = DetectionHelper.GeefData() + if $IsObject(Detection){ + Set Dual = Detection.DUAL.GetAt(1) + If ($IsObject(Dual)){ + Set ExtraInfo = ExtraInfo_"Row:"_Dual.RowInPallet_",Col:"_Dual.ColInPallet } - Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Rood(),ExtraInfo_"Geen informatie gevonden over deze lade. BatchID:"_BatchID_", VHossVolgNr:"_VHossVolgNr_", VHossZijkant:"_VHossZijkant_", VHossSlotNr:"_VHossSlotNr_", ProductNr:"_ProductNr) - Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).VHossNoInfo()) - }Else - { - Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Rood(),"JBL (ROW ! COL). BatchID:"_BatchID_", VHossVolgNr:"_VHossVolgNr_", VHossZijkant:"_VHossZijkant_", VHossSlotNr:"_VHossSlotNr_", ProductNr:"_ProductNr) - Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Geel()) } + Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Rood(),ExtraInfo_"Geen informatie gevonden over deze lade. BatchID:"_BatchID_", VHossVolgNr:"_VHossVolgNr_", VHossZijkant:"_VHossZijkant_", VHossSlotNr:"_VHossSlotNr_", ProductNr:"_ProductNr) + Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).VHossNoInfo()) } } ]]>