HADBVPK ;Halux Deur - Bouwsteen - Verpakking [ 03/22/2000  8:59 AM ]
 
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)