cwSTATDEL ;Sporadisch verwijderen van leveringsbons
 
DELONEBON
 Write @F11,@F1
 For  Do  Quit:'BONNr
 . Read !!!,"Bon? ",BONNr
 . Do:BONNr
 . . Set KLNr=$P($G(^KU1(BONNr,"F")),D)
 . . If KLNr Do
 . . . Write " van ",$P(^KKL(^KK1(KLNr),0),D,2),!!
 . . . ZWrite ^KUL(KLNr,"G",BONNr,1),^KUL(KLNr,"M",BONNr,1),^KUL(KLNr,"T",BONNr,1)
 . . . Do DELONEBON^STATDEL(BONNr)
 . . Else  Write " <--- onbekend!"
 . . Write !,$TR($J("",80)," ","-")