If WORD_TO_BOOL(SHR(IN:=Ver_Anf, N:=(iHM_Zaehler1))) Then

         
            Quitt_Anf                        := R_BIT_IN_WORD(ENAB:=True,IN:= Quitt_Anf,BIT_NO:=iHM_Zaehler1);
            ST_ROBVER.Rob[R_Nr].Quittierung    := R_BIT_IN_WORD(ENAB:=True,IN:= ST_ROBVER.Rob[R_Nr].Quittierung,BIT_NO:=iHM_Zaehler1);
       

            iQuelle := ST_ROBVER.Rob[R_Nr].Verriegelung[iVerAnfNr];