* dlettre les critures d'un compte

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

PRINT "Exercice (N0/N1)"
INPUT W_Exer 

PRINT "Compte  dlettrer (13N = code entite + compte)"
INPUT W_Compte 

PRINT "Lettre a supprimer ([ENTREE] pour tout le compte)"
INPUT W_Lettre


   W_Str = 'SELECT DETAILECRITUREGENE AVEC 0 = "[':W_Exer:']" AND AVEC 3 = "':W_Compte:'"'
   IF TRIM(W_Lettre) # "" THEN
	W_Str = W_Str:' AND AVEC 11 = "':TRIM(W_Lettre):'"'
   END  

   EXECUTE W_Str

   W_End="FAUX"
   i=1

   LOOP
      READNEXT W_Cle ELSE W_End = "VRAI"
   WHILE W_End = "FAUX" DO
      READ ENR_DETAILECRITUREGENE FROM F.DETAILECRITUREGENE,W_Cle ELSE ENR_DETAILECRITUREGENE=""
     
      ENR_DETAILECRITUREGENE<11>=""

      WRITE ENR_DETAILECRITUREGENE ON F.DETAILECRITUREGENE,W_Cle

   REPEAT

STOP
