HADBKAS ;Halux Deur - Bouwsteen - Kaderdeur standaard [ 02/09/2000  9:26 PM ]
 
EDIT(HAD,VolgNr) 
 Set Rec=$G(HAD("B",VolgNr))
 If $P(Rec,D)=Rec Do  ; Nieuw
 Else  Do  ; Edit
 Quit "KAS\PSA-EV\1000\500\L\\1"   
 
LISTFMT(HAD,VolgNr) 
 Set Rec=HAD("B",VolgNr)
 Quit "KAS"