IF WVISIBLE("properties")
HIDE WINDOW ("properties")
HIDE WINDOW ("command")
ENDIF 
HIDE WINDOW all
SET EXCLUSIVE OFF
SET MULTILOCKS ON

DO FORM c:\dbxl\affrz\f_visu_dispo.scx

CLOSE data
QUIT