For Set ORDNr=$O(@MarkRef@("A",ORDNr)) Quit:ORDNr="" Do
.Lock +^KOD(KLNr,"F",ORDNr)
.If $$ReedsDoorgestuurdOrderlijnen(CONSNr,.MarkRef) Do Quit
.. Lock -^KOD(KLNr,"F",ORDNr) ; Eerst Lock terug vrijgeven, dan Quit uit de For-loop
.Kill ^ORDW("AUTO",ORDNr)