* recherche les critures qui ne seraient pas chaines dans le fichier BALANCEGENE

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

*   EXECUTE 'SETPTR 0,,,,,1, "MODE=RAW",DEST \\SERVEURNT\MATRICEPSON,NOHEAD,NOFMT,EJECT,COPIES 1,BRIEF'

*   PRINTER ON

   PRINT "CODE ENTITE"
   INPUT W_ENTITE

   EXECUTE 'SELECT DETAILECRITUREGENE AVEC @ID = "':W_ENTITE:']"'

   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=""
      W_CleBal=W_Cle[6,2]:ENR_DETAILECRITUREGENE<3>
      READ ENR_BALANCEGENE FROM F.BALANCEGENE,W_CleBal ELSE ENR_BALANCEGENE=""
     
      W_Passe="FAUX"

      IF INDEX(ENR_BALANCEGENE<9>,W_Cle,1) # 0 THEN W_Passe = "VRAI"

      IF W_Passe = "FAUX" THEN
         PRINT W_Cle
      END

   REPEAT

*   PRINTER OFF
*   PRINTER CLOSE

STOP
