* programme qui lance toutes les phrases franais pour vrifier l'quilibre de la compta
* rsultat dans un fichier O_VERIFCOMPTA + cl entit qui se trouve dans le rpertoire
* _PH_ de la base

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","ASSOCIATION" TO F.ASSOCIATION ELSE STOP
OPEN "","BALANCEAUX" TO F.DETAILECRITUREAUX ELSE STOP
OPEN "","BALANCEGENE" TO F.DETAILECRITUREGENE ELSE STOP
OPEN "","DETAILECRITUREAUX" TO F.DETAILECRITUREAUX ELSE STOP
OPEN "","DETAILECRITUREGENE" TO F.DETAILECRITUREGENE ELSE STOP
OPEN "","PARAMENTITECOMPTA" TO F.PARAMENTITECOMPTA ELSE STOP

W_CpteCentral=""

EXECUTE 'SELECT ASSOCIATION PAR 0'

W_FINI="FAUX"

LOOP

   READNEXT CLE ELSE W_FINI="VRAI"

WHILE W_FINI="FAUX" DO

   READ ENR_ASSOCIATION FROM F.ASSOCIATION,CLE ELSE ENR_ASSOCIATION=""


   EXECUTE "COMO ON VERIFCOMPTA":CLE:".TXT"

   PRINT "ENTITE : ":CLE:" ":ENR_ASSOCIATION<1>

   PRINT " "
   PRINT "VERIFICATION DE LA BALANCE GENERALE"

   EXECUTE 'LISTER DETAILECRITUREGENE AVEC 0 = "':CLE:"]":'" TOTAL 6 TOTAL 7 SUPP-DET'

   EXECUTE 'LISTER BALANCEGENE AVEC EntiteBalGene = "':CLE:'" TOTAL 1 TOTAL 2 TOTAL 5 TOTAL 6 SUPP-DET'

   PRINT " "
   PRINT "VERIFICATION DE LA BALANCE AUXILIAIRE"

   EXECUTE 'LISTER DETAILECRITUREAUX AVEC 0 = "':CLE:"]":'" TOTAL 6 TOTAL 7 SUPP-DET'

   EXECUTE 'LISTER BALANCEAUX AVEC EntiteBalAux = "':CLE:'" TOTAL 1 TOTAL 2 TOTAL 5 TOTAL 6 SUPP-DET'

   READ ENR_PARAMENTITE FROM F.PARAMENTITECOMPTA,CLE ELSE ENR_PARAMENTITECOMPTA=""
   W_CpteCentral=CLE:ENR_PARAMENTITE<16>

   EXECUTE 'LISTER DETAILECRITUREGENE AVEC 3 = "':W_CpteCentral:'" TOTAL 6 TOTAL 7 SUPP-DET'

   PRINT " "
   PRINT "VERIFICATION DE LA BALANCE ANALYTIQUE"

   EXECUTE 'LISTER DETAILECRITUREGENE AVEC 3 = "':CLE:"6]":'" OR = "':CLE:"7]":'" TOTAL 6 TOTAL 7 SUPP-DET'

   EXECUTE 'LISTER BALANCEANAL AVEC EntiteBalAnal = "':CLE:'" TOTAL 1 TOTAL 2 TOTAL 5 TOTAL 6 SUPP-DET'

   EXECUTE "COMO OFF"

REPEAT

STOP
