KFBLOK ;MODULE TOELATING VOOR ORDERVERWERKING [ 05/10/2000  1:31 PM ]
 ;
 New R,WachtW
 Set:'$$LOCK(KC) K="-" Set R=$$WAARDIG^KREDIET(KC)
 Do:'R
 .Set WachtW="ORDER"
 .If $P(R,D,3),$P(R,D,3)'>$P(R,D,2) Set WachtW="KREDIETLIMIET"
 .Set:'$$WACHTW^KREDIET(KC,,WachtW,0) K="-"
 Quit
 ;
LOCK(KC) 
 New %TC,Lock
 Do ADD^vhLock("^KKL(^KK1(KC))")
 If %TC Do
 .Set Lock=1
 .Do REMOVE^vhLock("^KKL(^KK1(KC))")
 Else  Do LDISP^vhLock("^KKL(^KK1(KC))","Klant "_$P(^KKL(^KK1(KC),0),D,2))
 Quit $G(Lock)
 ;