********************************************************
* EDITION DES FICHES AIDEES             SPECIF. PARIS XX
*
* AOUT 2000                              STEPHANE HERVET
********************************************************

* RECAPITULATIF DES GOSUB
* 10 -> IMPRESSION DES INFORMATIONS DES DIVERSES FICHES

********************************************************
* OUVERTURE DES FICHIERS
********************************************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "BESOINSAIDE" TO F.BESOINSAIDE ELSE STOP
OPEN "CIVILAIDE" TO F.CIVILAIDE ELSE STOP
OPEN "ENVIRONAIDE" TO F.ENVIRONAIDE ELSE STOP

********************************************************
* RECUPERATION PARAMETRES PASSES A LA PROCEDURE
********************************************************
PROCREAD VARIABLES ELSE 
    STOP
END
W_RANGSELECT=INDEX(VARIABLES," ",1)
W_SELECT=VARIABLES[W_RANGSELECT+1,9999]

********************************************************
* INITIALISATION DES VARIABLES
********************************************************
W_REQVIDE="FAUX"
W_CODEAIDE=""
W_NBAIDE=0

EXECUTE 'SETPTR 0,,,0,,1,"MODE=WINDOW",DEST \\SERVEURNT\KYOCERA,"ORIENTATION=PORTRAIT",EJECT,BRIEF,NOFMT,COPIES 1'

PRINTER ON

********************************************************
* LECTURE FICHIERS                        EN BOUCLE
********************************************************

* TEST SI DOIT IMPRIMER L'ENSEMBLE DES INFOS OU SEULEMENT QQUES AIDES
IF W_SELECT="*" THEN
    EXECUTE 'SSELECT CIVILAIDE AVEC FinActiviteAide > "':DATE():'" OR = "" PAR 2 PAR 3'
    
    LOOP
         READNEXT CLE ELSE 
             W_REQVIDE="VRAI"
         END
         UNTIL W_REQVIDE="VRAI" DO

	 GOSUB 10

	 * PASSAGE PAGE SUIVANTE
	 PAGE
    REPEAT
END ELSE
    LOOP
	 UNTIL W_REQVIDE="VRAI" DO

         * RECUPERE LES CODES AIDES A IMPRIMER
	 W_RANGAIDE=INDEX(W_SELECT," ",1)
	 IF W_RANGAIDE=0 THEN W_RANGAIDE=6
         W_CODEAIDE=W_SELECT[1,W_RANGAIDE-1]
	 W_SELECT=W_SELECT[W_RANGAIDE+1,9999]

	 * SI CODE AIDE < 5 CHIFFRES
         IF LEN(W_CODEAIDE)<5 THEN
	      W_CODEAIDE=W_CODEAIDE "R%5"
	 END

	 * SI CODE AIDE > 5 CHIFFRES
	 IF LEN(W_CODEAIDE)>5 THEN
	      W_ERREURAIDE=1
	 END ELSE	
	      W_ERREURAIDE=0
	 END

	 * SI FIN DE FICHIER
         IF W_SELECT[1,1]="" THEN W_REQVIDE="VRAI"

         W_NBAIDE=W_NBAIDE+1

         CLE=W_CODEAIDE

	 IF W_ERREURAIDE=0 THEN
              GOSUB 10
  
  	      * PASSAGE PAGE SUIVANTE
	      PAGE
	 END
    REPEAT
END

PRINTER OFF
STOP

********************************************************
* IMPRESSION DES INFORMATIONS DES DIVERSES FICHES

10 *
    * LECTURE CIVILAIDE
    READ ENR_CIVILAIDE FROM F.CIVILAIDE,CLE ELSE 
	 ENR_CIVILAIDE=""
	 RETURN
    END
    * LECTURE ENVIRONAIDE
    READ ENR_ENVIRONAIDE FROM F.ENVIRONAIDE,CLE ELSE ENR_ENVIRONAIDE=""
    * LECTURE BESOINSAIDE
    READ ENR_BESOINSAIDE FROM F.BESOINSAIDE,CLE ELSE ENR_BESOINSAIDE=""

    * IMPRESSION CADRE AIDE
    PRINT "                         *****************************"
    PRINT "                         *                           *"
    PRINT "                         *      FICHE DE L'AIDE      *"
    PRINT "                         *                           *"
    PRINT "                         *****************************"
	
    PRINT " "
    PRINT " "
    PRINT " "

    PRINT "ETAT CIVIL           : ":ENR_CIVILAIDE<1>:" ":ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>
    PRINT "NOM PATRONIMIQUE     : ":ENR_CIVILAIDE<4>

    PRINT " "

    PRINT "ADRESSE              : ":ENR_CIVILAIDE<5>:" ":ENR_CIVILAIDE<6>:" ":ENR_CIVILAIDE<7>:" ":ENR_CIVILAIDE<8>
    PRINT "COMPLEMENT D'ADRESSE : ":ENR_CIVILAIDE<9>
    PRINT "CODE POSTAL - VILLE  : ":ENR_CIVILAIDE<10>:" ":ENR_CIVILAIDE<11>

    PRINT " " 

    PRINT "TELEPHONE            : ":ENR_CIVILAIDE<14>
    PRINT "OBSERVATIONS         : ":ENR_CIVILAIDE<15>

    PRINT " "

    * IMPRESSION CADRE RELATIONNEL

    PRINT " "    

    PRINT "------------------------------------------------------------------------------"
    PRINT "| NOM-PRENOM DES ENFANTS                   | DATE DE NAISS. |    TELEPHONE   |"
    PRINT "------------------------------------------------------------------------------"

    * PARCOURS TOUT LES ENFANTS DISPO

    IF ENR_ENVIRONAIDE<5,1><>"" THEN

         I=1
	 LOOP
	      UNTIL ENR_ENVIRONAIDE<5,I>="" DO

	      * SI DATE DE NAISSANCE
	      IF ENR_ENVIRONAIDE<6,I>="" THEN
        	  PRINT "| ":ENR_ENVIRONAIDE<5,I>:SPACE(40-LEN(ENR_ENVIRONAIDE<5,I>)):" | ":ENR_ENVIRONAIDE<6,I>:SPACE(14-LEN(ENR_ENVIRONAIDE<6,I>)):" | ":ENR_ENVIRONAIDE<8,I>:SPACE(14-LEN(ENR_ENVIRONAIDE<8,I>)):" |"
	      END ELSE
        	  PRINT "| ":ENR_ENVIRONAIDE<5,I>:SPACE(40-LEN(ENR_ENVIRONAIDE<5,I>)):" | ":OCONV(ENR_ENVIRONAIDE<6,I>,"D4/"):SPACE(4):" | ":ENR_ENVIRONAIDE<8,I>:SPACE(14-LEN(ENR_ENVIRONAIDE<8,I>)):" |"      
	      END
	      I=I+1
         REPEAT

         PRINT "------------------------------------------------------------------------------"

    END ELSE

         PRINT "| PAS D'ENFANTS                                                              |"
	 PRINT "------------------------------------------------------------------------------"

    END
	 
    PRINT " "
    PRINT " "
	 
    PRINT "PERSONNE A PREVENIR  : ":ENR_ENVIRONAIDE<9>
    PRINT "TELEPHONE            : ":ENR_ENVIRONAIDE<10>
    PRINT "OBSERVATIONS         : ":ENR_ENVIRONAIDE<11>

    PRINT " "

    PRINT "MEDECIN TRAITANT     : ":ENR_ENVIRONAIDE<15>
    PRINT "TELEPHONE            : ":ENR_ENVIRONAIDE<16>
    PRINT "OBSERVATIONS         : ":ENR_ENVIRONAIDE<17>

    * IMPRESSION CADRE MODALITE INTERVENTION

    PRINT " "
    PRINT " "    

    PRINT "******************************************************************************"

    PRINT " " 
    PRINT " "

    PRINT "MOD. D'INTERVENTION  : "
    PRINT ENR_BESOINSAIDE<5>
RETURN
