*SAISIE DU FICHIER des ARTICLES afg
SET ESCAP OFF
SELECT 1
USE afg!SDARTI ALIAS AR  INDEX SDARTI ORDER 1 shared

v_zero=.t.

SCATTER memvar


DO FORM f_presaisie_article     
use
DO FORM f_menu_g_af
RETU