* initialisation générale et menu
** Le Main.PRG. commencera avec la ligne suivante.
* à mettre en COMMENTAIRE pour les TESTS !!!
*=myInstance("nom_executable")		&& Indiquer le nom du programme exécutable (évite le double lancement de l'application)

SET DEBUG on
SET ECHO OFF
SET HELP off
SET BELL OFF
SET CENTURY ON
SET CENTURY TO 19 ROLLOVER 30
SET CONFIRM ON
SET DATE FRENCH
SET DECIMAL TO 2
SET DELETED ON
SET DEVELOPMENT ON
SET DOHISTORY on
SET ESCAPE OFF
SET FIXED ON
*SET HISTORY on
SET HOURS TO 24
*SET RESOURCE ON
SET SAFETY OFF
*SET SCOREBOARD OFF
SET STATUS OFF
*SET STATUS BAR OFF
SET STEP OFF
SET SYSFORMATS off
SET SYSMENU OFF
SET TALK OFF
SET FUNCTION 2  TO ""
SET FUNCTION 3  TO ""
SET FUNCTION 4  TO ""
SET FUNCTION 5  TO ""
SET FUNCTION 6  TO ""
SET FUNCTION 7  TO ""
SET FUNCTION 8  TO ""
SET FUNCTION 9  TO ""
SET FUNCTION 10 TO ""
SET REFRESH TO 1,10
IF WVISIBLE("command")
HIDE WINDOW ("command")
ENDIF
IF WVISIBLE("properties")
HIDE WINDOW ("properties")
ENDIF 
_SCREEN.AUTOCENTER=.T.
_SCREEN.CLOSABLE=.T.
*_SCREEN.WINDOWSTATE=2
HIDE WINDOW all 
*SET PATH TO c:\copost\ 	&& Définit le chemin d'accès à la base de données
*SET PATH TO (CURDIR( ))  	
SET PATH TO c:\dbxl\sarlfrz
SET DEFAULT TO c:\dbxl\sarlfrz
SET PROCEDURE TO procedur.prg
CLOSE DATABASES
OPEN DATABASE c:\dbxl\sarlfrz\frz SHARED
SET MULTILOCKS ON
SET TALK off
vcreationligne=.f.
v_crea=.f.
*DO WHILE TXNLEVEL() > 0
*	WAIT WINDOW "Nested Transaction ="+STR(TXNLEVEL(),3)+" Pressez une touche quelconque."
*	END TRANSACTION
*ENDDO
DO c:\dbxl\sarlfrz\uti0
*******************
IF WVISIBLE("properties")
HIDE WINDOW ("properties")
HIDE WINDOW ("command")
ENDIF 
_SCREEN.AUTOCENTER=.T.
_SCREEN.CLOSABLE=.T.

SET default TO c:\dbxl\sarlfrz
CLOSE DATABASES
OPEN DATABASE c:\dbxl\sarlfrz\frz SHARED
SET MULTILOCKS ON
SET TALK off
RELEASE WINDOWS all
*DO UTI0.PRG
SET PROC TO PROCEDUR
*DO INIT_SET
DO uti0
SET CENTURY ON
SET DELET ON
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"
IF FILE ("NUMFAC.MEM")
   RESTORE FROM NUMFAC.MEM ADDI
ENDI
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
   use
ELSE
   VBQAD="CREDIT AGRICOLE 21200 BEAUNE"
   VCOMPTEBQ="14435352 001 CLE RIB 21"
   VETAB="12106"
   VGUICHET="00004"
ENDI
VACCISE="FR 098 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"
RESERV="c:\dbxl\sarlfrz\res\reserv"
RESERVN="c:\dbxl\sarlfrz\res\reservn"
RESERV1="c:\dbxl\sarlfrz\res\reserv"
RESTORE FROM CAPS.MEM ADDI
*set print on
*? chr(27)+"E"+chr(27)+"&l0L"
*set print off
*DO WHILE .T.
  DIMENSION TVA[3]
  SELECT 1
  USE
  SELECT 2
  USE
 
 IF FILE ("tva.dbf")
      SELECT 1
      USE frz!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
      ENDIF
      use
endif
*******************
DO FORM c:\dbxl\sarlfrz\f_menu_g_frz

ON SHUTDOWN
ON ERROR
PUSH KEY CLEAR
SET SYSMENU TO DEFAULT
SET BELL ON
SET DELETED OFF
SET ESCAPE ON
*SET HISTORY ON
SET FIXED OFF
SET SCOREBOARD ON
SET STATUS ON
SET TALK ON
*QUIT
RETURN