HADBKOP ;Halux Deur - Bouwsteen - Kaderdeur standaard [ 03/24/2000  2:59 PM ]
OMSCHR(Type) 
 Quit "Kaderdeur standaard"
 
EDIT(HAD,BRec,BSelKey) 
 If BRec=$P(BRec,D) Do  ; Nieuw
 .Do NIEUW^vhScherm($ZN,,,,,,3,"A")
 Else  Do  ; Edit
 .Do EDIT^vhScherm($ZN,,,,,,3)
 Quit BRec
 
LISTFMT(HAD,BRec) 
 Quit $P(BRec,D)
 
BORINGEN(HAD) 
 Do STORE^vhTERMINA()
 Write !!!
 ZWrite HAD
 Read R
 Do REFRESH^vhTERMINA()
 Quit "Boringen"