EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CIVILAIDANT" TO F.CIVILAIDANT ELSE STOP
OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE STOP
OPEN "","VOC" TO F.VOC ELSE STOP

W_RequeteVoc=""

EXECUTE 'SELECT VOC AVEC F1 = "F" PAR @ID'
EXECUTE 'SAUVE-LISTE W_RequeteVoc'
EXECUTE "LISTE W_RequeteVoc" RETURNING MSGCODE
IF MSGCODE<1>=209 THEN
   STOP
END ELSE
   SELECT F.VOC TO W_RequeteVoc
END

W_ModAbs=113
W_ModAct=113
W_ModDet=113

W_Fini="VRAI"
LOOP
   READNEXT W_Cle FROM W_RequeteVoc ELSE W_Fini="FAUX"
WHILE W_Fini # "FAUX" DO
   EXECUTE 'FICSTAT ':W_Cle CAPTURING W_Stat
   IF W_Stat<25> # "" THEN
      W_Long=LEN(W_Stat<25>)-27
      W_Modulo=W_Stat<25>
      W_Modulo=W_Modulo[27,W_Long]
      BEGIN CASE
         CASE W_Cle="ABSENCESAIDE"
            W_ModAbs=W_Modulo
         CASE W_Cle="ACTIVTESAIDE"
            W_ModAct=W_Modulo
         CASE W_Cle="DETAILPREST"
            W_ModDet=W_Modulo
      END CASE
      EXECUTE 'RESIZE ':W_Cle:' ':W_Modulo
   END
REPEAT

EXECUTE 'RESIZE TAMPONDADS 113'
EXECUTE 'RESIZE TEMPVENTILEDIT 13'
EXECUTE 'RESIZE ABSENCESBISAIDE ':W_ModAbs
EXECUTE 'RESIZE DETAILABSAIDE ':W_ModAbs
EXECUTE 'RESIZE ACTIVITESBISAIDE ':W_ModAct
EXECUTE 'RESIZE DETAILPRESTINV ':W_ModDet


EXECUTE 'COMPTER CIVILAIDE AVEC 43 = ""' CAPTURING W_Nbr
W_Mod=FIELD(W_Nbr<3>," ",1)
IF W_Mod # "" THEN
   W_Mod=INT(W_Mod/3)
   EXECUTE 'RESIZE TEMPFACTURAIDE ':W_Mod
   W_Mod=INT(W_Mod * 20 / 100)
   EXECUTE 'RESIZE FACTURAIDETRIM ':W_Mod
END

EXECUTE 'COMPTER CIVILAIDANT AVEC 36 = ""' CAPTURING W_Nbr
W_Mod=FIELD(W_Nbr<3>," ",1)
IF W_Mod # "" THEN
   EXECUTE 'RESIZE TEMPO ':W_Mod
END

STOP
