* SAISIE DES BANQUES
SET ESCAP OFF
SELECT 1
USE BGBANQUE INDEX BGBANQUE  ALIAS BQ
TITRE = "SAISIE DES BANQUES"
rep="N"            
DO WHILE .T.
vcode=space(4)
do titre
@ 7,12 SAY "CODEBANQUE" GET VCODE PICTURE "@!"
READ
IF VCODE  =SPACE(4)
 exit
endi
vcode = trim(vcode)
SET EXACT OFF
seek Vcode
SET EXACT ON
IF EOF()
rep="N"
@ 10,12 SAY "CETTE BANQUE est inexistante "
@ 12,12 SAY "VOULEZ VOUS LA CREER O/N " GET REP
READ
IF UPPER(REP)="O"
CLEAR AUTOMEM
appen blank  
set format to BGSBQ
read
close format                           
REPLACE CDBQ WITH  VCODE
WAIT           
@ 6,0 CLEAR
ELSE
LOOP
ENDI
DO BGPRESBQ.PRG
@ 23,0 SAY " "    
WAIT    
LOOP    
ENDI
PRG="BGPRESBQ.PRG"
DO SDFICAVA.PRG     
REP="N"                               
@ 23,0 SAY "MODIF O/N " GET REP
READ     
IF UPPER(REP)="O"
SET FORMAT TO BGSBQ.FMT
READ    
CLOSE FORMAT
WAIT
ENDI
ENDDO
CLOSE DATA
RETU