*
DO UTI0.PRG
SET PROC TO PROCEDUR
DO INIT_SET
set century on
SET DELET ON
*dO LOGO_GAM.PRG
SOCIETE="FRANCOIS PARENT CHATEAU DES GUETTES"
vtelsoc="03 80 22 61 85"
vnumagre="AGRE 99 DR 032 29 "
veuro=6.55957
village="BEAUNE"
adresse =" "
cp="21200"
*PARAMETRAGE
IF file ("COULEUR.MEM")
RESTOR FROM couleur ADDI
ENDI
PRN="LPT1"
DIMENSION TVA[3]
IF FILE ("NUMFAC.MEM")
RESTORE FROM NUMFAC.MEM ADDI
ENDI
*dO LOGO_GAM.PRG
if file ("bgbanque.dbf")
sele 1
use bgbanque index bgbanque alias bq
VCOMPTEBQ=bq->numerocpt +" RIB "+bq->CLErib  
vETAB=bq->etab  
vGUICHET=bq->guichet  
vbqad=trim(bq->nombanque)+" "+bq->cpbq+" "+bq->villebq
close data
else
vbqad="CREDIT AGRICOLE 21200 BEAUNE"
VCOMPTEBQ="14435352 001 CLE RIB 21"  
vETAB="12106"  
vGUICHET="00004"  
endi
vaccise="FR 98 117 E 0150"  
vidtva="FR14420425969"  
cldb="c:\dbxl\datacom\pgclient.dbf"  
clndx1="c:\dbxl\datacom\pgclinom"  
clndx2="c:\dbxl\datacom\pgclicod"  
repdb="c:\dbxl\datacom\pgrep"  
repndx2="c:\dbxl\datacom\pgrepcd"  
repndx1="c:\dbxl\datacom\pgrepnm"  
RESTORE FROM CAPS.MEM ADDI
set print on
? chr(27)+"E"+chr(27)+"&l0L"
set print off
DO WHILE .T.
IF file ("tva.dbf")
use TVA
go bott
if date()>=tva->datedeb
tva[1]=tva->taux1/100
tva[2]=tva->taux2/100
else
skip-1
tva[1]=tva->taux1/100
tva[2]=tva->taux2/100
close data
ENDI
endi
NIVEAU=1
CAR=INKEY()
IF CAR=0
TITRE="Menu g‚n‚ral"
TOUCHE1="Sous menu"
TOUCHE2="Saisie ARTICLES"
TOUCHE3="Saisie FOURNISSEURS"
TOUCHE4="Saisie CLIENTS"
TOUCHE5="Saisie FACTURES"
TOUCHE6="M … J REGLEMENTS"
TOUCHE7="Modification date facture"
TOUCHE8="date"
TOUCHE9="LISTE DES VENTES  "
TOUCHE10="Utilitaires"
TOUCHE11=""
TOUCHE12=""
DO TITRE
DO FKEY
DO UNCAR
ENDI
DO CASE
CASE CAR=KEYESC
@6,0CLEA
DO OUI_NON
SET COLO TO &C5
@8,10 SAY "Voulez vous r‚ellement quitter"
DO UNCAR
IF CAR=111.OR.CAR=79
CLOS DATA
SET COLO TO W/N
@6,0 CLEA
DO FIN_SET
CLOS PROC
@6,0SAY "Ex‚cution termin‚e"
EXIT
ENDI
CASE CAR=KEYF1
DO SOUSMENU.PRG
CASE CAR=KEYF10
DO UTI.PRG
CASE CAR=KEYF2
DO sdSART0.PRG
CASE CAR = KEYF3
DO sdSFOUR0.PRG
CASE CAR=KEYF4
DO bgSCLI0.PRG
CASE car = keyf5
DO bgsfac0.prg
CASE car=keyf6
DO bgRGT0.PRG
CASE car = keyf7
DO bgdatfac.prg
CASE CAR=KEYF8
CLEAR
! date
CASE car = keyf9
DO BGJV0.prg
OTHE
?? CHR(7)
ENDC
ENDD
RETU