* ACCEPTATION DE TRAVAIL DES AIDANTS LE WEEK-END +NUIT

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","TPSAIDANTDISPO" TO F.TPSAIDANTDISPO ELSE STOP

EXECUTE 'SELECT TPSAIDANTDISPO'

W_FINI= "FAUX"
LOOP

   READNEXT CLE ELSE W_FINI= "VRAI"

WHILE W_FINI= "FAUX"

   READ ENR_TPSAIDANTDISPO FROM F.TPSAIDANTDISPO,CLE THEN
       
      ENR_TPSAIDANTDISPO<6>= "O"
      ENR_TPSAIDANTDISPO<7>= "O"
      ENR_TPSAIDANTDISPO<8>= "O"

      WRITE ENR_TPSAIDANTDISPO ON F.TPSAIDANTDISPO,CLE
   END

REPEAT

STOP
