********************************************************************
*  MOULINETTE POUR CONTROLER LE LETTRAGE DES ECRITURES GENERALES   *
*  VANESSA                                                         *
*  JANVIER 2003                                                    *
********************************************************************
* OUVERTURES DES FICHIERS

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DETAILECRITUREGENE" TO F.DETAILECRITUREGENE ELSE PRINT "OUVERTURE DETAILECRITUREGENE" ;* en lecture criture
********************************************************************
* PROGRAMME PRINCIPAL

   EXECUTE 'SSELECT DETAILECRITUREGENE AVEC 0 = "001]" AND AVEC 11 # "" PAR 3 PAR 11'

   W_Fini="FAUX"
   W_SauveCpte=""
   W_Credit=""
   W_Debit=""
   W_TabDyn=""

   LOOP
      READNEXT W_Cle ELSE W_Fini="VRAI"
   WHILE W_Fini = "FAUX" DO
      READ ENR_DETAILECRITUREGENE FROM F.DETAILECRITUREGENE,W_Cle ELSE ENR_DETAILECRITUREGENE=""
      W_TabDyn = ENR_DETAILECRITUREGENE


         IF W_SauveCpte = W_TabDyn<3> THEN
            * rupture sur la lettre
 
            IF W_TabDyn<6> # "" THEN
               W_Debit = W_Debit + W_TabDyn<6>
	    END
            IF W_TabDyn<7> # "" THEN
               W_Credit = W_Credit + W_TabDyn<7>
	    END

         END ELSE
            IF W_Debit # W_Credit THEN
               PRINT W_SauveCpte
            END

            W_SauveCpte = W_TabDyn<3>
            W_Credit=""
            W_Debit=""

            IF W_TabDyn<6> # "" THEN
               W_Debit = W_Debit + W_TabDyn<6>
	    END
            IF W_TabDyn<7> # "" THEN
               W_Credit = W_Credit + W_TabDyn<7>
	    END

         END

   REPEAT

   IF W_Debit # W_Credit THEN
      PRINT W_SauveCpte
   END

STOP
