Index: APPS/VisiDot/impl/VHossControleurEnd.cls.xml =================================================================== diff -u -r2855 -r3128 --- APPS/VisiDot/impl/VHossControleurEnd.cls.xml (.../VHossControleurEnd.cls.xml) (revision 2855) +++ APPS/VisiDot/impl/VHossControleurEnd.cls.xml (.../VHossControleurEnd.cls.xml) (revision 3128) @@ -108,20 +108,25 @@ Set AndereVHossSeqEnZijkant=it.Next() Set VHossSeqEnZijkant=it.Key() Continue:$D(..Captured(VHossSeqEnZijkant)) + Set VHOSSVolgNr = $Piece(VHossSeqEnZijkant,".") + Set VHOSSZijkant = $Piece(VHossSeqEnZijkant,".",2) + If VHOSSZijkant = 1 Set VHOSSZijkant = "A" + If VHOSSZijkant = 2 Set VHOSSZijkant = "B" + If $D(..Captured(AndereVHossSeqEnZijkant)) { ; andere zijkant wel - Do ..CaptureHelper.ZetError(##class(APPS.VisiDot.enu.FoutTypes).Fout(),"Ontbrekende zijkant","Zijkant met sequentie "_VHossSeqEnZijkant_" is niet ingelezen, de andere kant echter wel") + Do ..CaptureHelper.ZetError(##class(APPS.VisiDot.enu.FoutTypes).Fout(),"Ontbrekende zijkant","VHOSS "_VHOSSVolgNr_" kant "_VHOSSZijkant_" is niet ingelezen, de andere kant is wel ingelezen.") } ElseIf $D(..NotCaptured(AndereVHossSeqEnZijkant)) { ; andere zijkant ook niet - Do ..CaptureHelper.ZetError(##class(APPS.VisiDot.enu.FoutTypes).Fout(),"Ontbrekende zijkant","Zijkant met sequentie "_VHossSeqEnZijkant_" is niet ingelezen, de andere kant ook niet") + Do ..CaptureHelper.ZetError(##class(APPS.VisiDot.enu.FoutTypes).Fout(),"Ontbrekende zijkant","VHOSS "_VHOSSVolgNr_" kant "_VHOSSZijkant_" is niet ingelezen, de andere kant ook niet.") } Else { ; heeft geen andere zijkant - Do ..CaptureHelper.ZetError(##class(APPS.VisiDot.enu.FoutTypes).Fout(),"Ontbrekende zijkant","Zijkant met sequentie "_VHossSeqEnZijkant_" is niet ingelezen (een andere kant is er niet)") + Do ..CaptureHelper.ZetError(##class(APPS.VisiDot.enu.FoutTypes).Fout(),"Ontbrekende zijkant","VHOSS "_VHOSSVolgNr_" kant "_VHOSSZijkant_" is niet ingelezen, de andere kant is leeg.") } Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).VHossOntbrekendeFrame())