Index: APPS/VisiDot/impl/VHossControleurZijkant.cls.xml =================================================================== diff -u -r2047 -r2079 --- APPS/VisiDot/impl/VHossControleurZijkant.cls.xml (.../VHossControleurZijkant.cls.xml) (revision 2047) +++ APPS/VisiDot/impl/VHossControleurZijkant.cls.xml (.../VHossControleurZijkant.cls.xml) (revision 2079) @@ -83,7 +83,6 @@ If (..BatchID) && (..VHossVolgNr) && (..VHossZijkant) && (..FrameDetectionHelper) { ; Stap 2 - d WLIP^vhDBG(127,"BatchID :"_..BatchID_", VHOssVolgNr: "_..VHossVolgNr_", VhossZijkant:"_..VHossZijkant) Do ..ProductionHelper.InitCache(..BatchID,..VHossVolgNr,..VHossZijkant) Do ..ControleAanwezigeLades() ; de gedetecteerde lades zijn correct Do ..ProductionHelper.SaveCache() @@ -132,7 +131,7 @@ Set DetectionHelper=it.Next() If ..CaptureHelper.IsLegeDetection(DetectionHelper.GeefData()) { - //Do ..ControleLegeSlot(DetectionHelper) + Do ..ControleLegeSlot(DetectionHelper) } } ]]> @@ -148,7 +147,7 @@ Set QueueHelper=it.Next() If QueueHelper.GeefVHossSlotNr()=VHossSlotNr { - Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Rood(),"Ontbrekende lade") + Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Oranje(),"Ontbrekende lade") Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).VHossLadeOntbrekend()) Do QueueHelper.GeefInfo(.Toelevering,.DossierNr,.Omschrijving) Do DetectionHelper.ZetInfo(Toelevering,DossierNr,Omschrijving) @@ -172,6 +171,7 @@ } Quit:LegeSlots="" Set Info = "Er ontbreken laden in volgende vakken : "_LegeSlots + /// JBL Tijdelijk uitgecommentarieerd, anders een popup ! Do ..CaptureHelper.ZetError(##class(APPS.VisiDot.enu.FoutTypes).Waarschuwing(),"Ontbrekende laden",Info) Do ..CaptureHelper.ZetGebruikersInfo(Info) Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).VHossOntbrekend()) @@ -237,13 +237,14 @@ } Else { - Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Rood(),"Lade reeds gedetecteerd in ander frame "_FrameID_" "_QueueHelper.GeefTijdStip) + /// JBL TEMP TIJDSTIP UITGECOMMENTARIEERD ! + Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Rood(),"Lade reeds gedetecteerd in ander frame "_FrameID) //_" "_QueueHelper.GeefTijdStip) Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).VHossReedsGedetecteerd()) } } Else { - Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Rood(),"Geen informatie gevonden over deze lade") + Do DetectionHelper.ZetStatus(##class(APPS.VisiDot.enu.DetectionKleur).Rood(),"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()) } } @@ -315,6 +316,7 @@ Do ..CaptureHelper.ZetError(##class(APPS.VisiDot.enu.FoutTypes).Fout(),"Geen VHoss-lade gevonden","Geen enkele barcode gevonden van een VHoss-lade") Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).VHossGeenLaden()) } + ElseIf ..FrameDetectionHelper="" { Do ..CaptureHelper.ZetError(##class(APPS.VisiDot.enu.FoutTypes).Fout(),"Ontbrekend frame code","Geen enkele frame identificatie gedetecteerd")