HADBBOR ;Halux Deur - Bouwsteen - Boren [ 02/11/2000  11:36 AM ]
OMSCHR ;Kaderdeur standaard 
EDIT(HAD,BRec,SortKey) 
 Set SortKey=$G(SortKey,0)
 If 'SortKey Do  ; Nieuw
 Else  Do  ; Edit
 Quit "BOR\1000\500\5\A\"   
 
LISTFMT(HAD,BRec) 
 Quit $P(BRec,D)