*SAISIE DU FICHIER des ARTICLES en auto
*set format to pgarti
TITRE = "SAISIE DES ARTICLES "
rep="N"            
vcode=vrech
do titre
clear automem                         
@  7,  3  SAY "CODEART"
@  7, 16  say  vcode
@  7, 22  SAY "FAMILLE"
@  7, 30  GET  M->FAMILLE picture "@!"
@  7, 34  SAY ":"
@  8,  3  SAY "FOURNISSEUR"
@  8, 16  GET  M->CODEFOURN  picture "@!"
@ 10,  3  SAY "DESIGNATION"
@ 10, 16  GET  M->DESIGNART
@ 10, 59  SAY "COLISAGE"
@ 10, 70  GET  M->COLISAGE
@ 12,  3  SAY "CODE TVA"
@ 12, 15  GET  M->CODETVA
@ 12, 18  SAY ":                    PRIX D'ACHAT UNITAIRE"
@ 14,  3  SAY "PRIXVENTE 1"
@ 14, 16  GET  M->PRIXVENTE1
@ 15,  3  SAY "PRIXVENTE 2"
@ 15, 16  GET  M->PRIXVENTE2
@ 16,  3  SAY "PRIXVENTE 3"
@ 16, 16  GET  M->PRIXVENTE3
@ 17,  3  SAY "PRIXVENTE 4"
@ 17, 16  GET  M->PRIXVENTE4
@ 18,  3  SAY "PRIXVENTE 5"
@ 18, 16  GET  M->PRIXVENTE5
@ 16, 29  SAY "QUANTITE"
@ 16, 41  GET  M->QUANTITE
@ 17, 30  SAY "MINIMUM"
read
appen blank                
replace  automem
close format                           
REPLACE CODEart   WITH  VCODE
WAIT           
@ 6,0 CLEAR
DO SDPRESa.PRG
@ 23,0 SAY " "    
WAIT    
RETU