**********************************************************
*  PR spcifique Beauvais pour dition des bordereau prvoyance prestataire
*  Vanessa
*  avril 2002
**********************************************************

* Ouvertures des fichiers

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DETAILINDEMBIS" TO F.DETAILINDEMBIS ELSE PRINT "OUVERTURE DETAILINDEMBIS" ;* en lecture
OPEN "","DETAILINDEM" TO F.DETAILINDEM ELSE PRINT "OUVERTURE DETAILINDEM" ;* en lecture criture
OPEN "","CONTRATSPREV" TO F.CONTRATSPREV ELSE PRINT "OUVERTURE CONTRATSPREV" ;* en lecture criture
*********************************************************
* initialisation des variables

W_Taux=""
ENR_DETAILINDEM	= ""
j=0
*********************************************************
* Recuperation des arguments

PROCREAD ARGUMENTS ELSE STOP
W_NomPr=ARGUMENTS[1,1]

*********************************************************
* PROGRAMME PRINCIPAL

   READ ENR_CONTRATSPREV FROM F.CONTRATSPREV,"03" ELSE ENR_CONTRATSPREV=""
   IF W_NomPr="M" THEN
      ENR_CONTRATSPREV<1>="GARANTIE MAINTIEN"
      W_Taux = "90"
   END ELSE
      ENR_CONTRATSPREV<1>="GARANTIE INCAPACITE M.G.P."
      W_Taux = "75"
   END

   WRITE ENR_CONTRATSPREV ON F.CONTRATSPREV,"03"

   W_End = "FAUX"

   LOOP
      READNEXT W_Cle ELSE W_End = "VRAI"
   WHILE W_End = "FAUX" DO
      READ ENR_DETAILINDEMBIS FROM F.DETAILINDEMBIS,W_Cle ELSE ENR_DETAILINDEMBIS=""

      ENR_DETAILINDEM = ""
      W_Count=DCOUNT(ENR_DETAILINDEMBIS<3>,CHAR(253))
      j=1

      FOR i = 1 TO W_Count
         IF ENR_DETAILINDEMBIS<3,i>=W_Taux THEN
            ENR_DETAILINDEM<1,j> = ENR_DETAILINDEMBIS<1,i>
            ENR_DETAILINDEM<2,j> = ENR_DETAILINDEMBIS<2,i>
            ENR_DETAILINDEM<3,j> = ENR_DETAILINDEMBIS<3,i>
            ENR_DETAILINDEM<4,j> = ENR_DETAILINDEMBIS<4,i>
            ENR_DETAILINDEM<5,j> = ENR_DETAILINDEMBIS<5,i>
            j=j+1
         END
      NEXT i
      ENR_DETAILINDEM<6> = ENR_DETAILINDEMBIS<6>
      ENR_DETAILINDEM<7> = ENR_DETAILINDEMBIS<7>
      WRITE ENR_DETAILINDEM ON F.DETAILINDEM,W_Cle
   REPEAT

STOP
