* cloture de l'exercice
IF SUBSTR(DTOC(DATE()),1,2)="31".AND.SUBSTR(DTOC(DATE()),4,2)="08"
   TITRE ="CLOTURE EXERCICE"
   DO TITRE
   DO OUI_NON
   SET COLOR TO &C5
   @ 08,4 SAY "CETTE OPERATION EST ASSEZ LONGUE ETES VOUS SUR "
   @ 7,10 SAY "AVEZ VOUS TOUT EDITER "
   SET COLOR TO &C1
   DO UNCAR
   IF CAR =111.OR.CAR=79
      @ 7,0 CLEAR
      TITRE ="FICHIER mouvements"
      @ 7,40-(LEN(TITRE)/2)-1 TO 9,40+(LEN(TITRE)/2)+1 DOUBLE
      @ 8,40-(LEN(TITRE)/2) SAY TITRE
      ?
      SET TALK ON
      USE BGMVSTO INDEX BGMVSTO EXCLUSIVE
      ZAP
      CLOSE DATA
      SET TALK OFF
      @ 7,0 CLEAR
      TITRE ="FICHIER factures payées"
      @ 7,40-(LEN(TITRE)/2)-1 TO 9,40+(LEN(TITRE)/2)+1 DOUBLE
      @ 8,40-(LEN(TITRE)/2) SAY TITRE
      ?
      SET TALK ON
      SELE 2
      USE SDLIGNES INDEX SDLIGNES,SDLIGNE2 EXCLUSIVE
      SELE 1
      USE SDFACTUR INDEX FACTURN,SDFACTUR EXCLUSIVE
      SET FILTER TO CODEBQ #"ATT".AND.DATEFACT <DATE()+1
      GO TOP
      SKIP
      SKIP-1
      DO WHILE .NOT. EOF()
         NUM=NUMERO
         SELE 2
         DELETE ALL FOR NUMFACT=NUM
         SELE 1
         IF .NOT.EOF()
            SKIP
         ENDI
      ENDDO
      SELE 1
      DELET ALL
      PACK
      SELE 2
      PACK
      CLOSE DATA
   ENDI
endi   
   SET TALK OFF
   RETU