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

W_RequeteMoul=""

EXECUTE 'SELECT TPSDETAILINTERV'

EXECUTE 'SAUVE-LISTE W_RequeteMoul'
EXECUTE "LISTE W_RequeteMoul" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
   SELECT F.TPSDETAILINTERV TO W_RequeteMoul

   W_Fini="FAUX"
   LOOP
      READNEXT W_Cle FROM W_RequeteMoul ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
      READ ENR_TPSDETAILINTERV FROM F.TPSDETAILINTERV,W_Cle ELSE STOP
      W_Count=DCOUNT(ENR_TPSDETAILINTERV<2>,CHAR(253))
      FOR i = 1 TO W_Count
         ENR_TPSDETAILINTERV2=""
         W_HeureDeb=ENR_TPSDETAILINTERV<3,i>
         W_HeureDeb=W_HeureDeb "R%4"
         W_Cle2=W_Cle:ENR_TPSDETAILINTERV<2,i>:W_HeureDeb
         ENR_TPSDETAILINTERV2<1>=ENR_TPSDETAILINTERV<1>
         ENR_TPSDETAILINTERV2<4>=ENR_TPSDETAILINTERV<4,i>
         ENR_TPSDETAILINTERV2<5>=ENR_TPSDETAILINTERV<5,i>
         ENR_TPSDETAILINTERV2<6>=ENR_TPSDETAILINTERV<6>
         ENR_TPSDETAILINTERV2<7>=ENR_TPSDETAILINTERV<7>
         ENR_TPSDETAILINTERV2<8>=ENR_TPSDETAILINTERV<8,i>
         ENR_TPSDETAILINTERV2<9>=ENR_TPSDETAILINTERV<9,i>
         ENR_TPSDETAILINTERV2<10>=ENR_TPSDETAILINTERV<10,i>
         ENR_TPSDETAILINTERV2<12>=ENR_TPSDETAILINTERV<12>
         ENR_TPSDETAILINTERV2<13>=ENR_TPSDETAILINTERV<13,i>
         WRITE ENR_TPSDETAILINTERV2 ON F.TPSDETAILINTERV2,W_Cle2
      NEXT i
   REPEAT

END

STOP
