*****************************************************
* MOULINETTE DE COMPARAISON ENTRE 1 RUBRIQUE DES    *
* DETAILCALCUL ET LA MEME RUBRIQUE DANS HISTORCUMUL *
*                                                   *
* 19/07/01                          STEPHANE HERVET *
*****************************************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE STOP
OPEN "","HISTORCUMUL" TO F.HISTORCUMUL ELSE STOP

PRINT "ANNEE DE REFERENCE="
INPUT W_ANNEE
 
PRINT "ENTITE="
INPUT W_ENTITE

PRINT "RUBRIQUE A COMPARER="
INPUT W_RUBRIQUE

PRINT "TYPE ACTIVITE="
INPUT W_ACTIVITE

EXECUTE 'SSELECT DETAILCALCUL AVEC PeriodeDetailCalcul = "':W_ANNEE:']" AND AVEC CodAssoContratDetailCalcul = "':W_ENTITE:'" AND AVEC TypeActivite = "':W_ACTIVITE:'" AND AVEC 8 = "':W_RUBRIQUE:'" PAR CodeAidantDetailCalcul PAR CodeAideDetailCalcul PAR 0'

W_FIN=0
W_DIFF=0
W_AIDANT=""
W_CONTRAT=""
W_EMPL=""
W_TOTALDC=0
W_TOTALHC=0

PRINTER ON

LOOP
     READNEXT CLE ELSE W_FIN=1
     UNTIL W_FIN=1 DO

     READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,CLE ELSE ENR_DETAILCALCUL=""
     READ ENR_CONTRAT FROM F.CONTRAT,CLE[1,8] ELSE ENR_CONTRAT=""

     IF W_EMPL<>ENR_CONTRAT<3> AND W_EMPL<>"" THEN	;* SI MANDATAIRE
**     IF W_AIDANT<>CLE[1,5] AND W_AIDANT<>"" THEN      ;* SI PRESTATAIRE

	  READ ENR_HISTORCUMUL FROM F.HISTORCUMUL,W_AIDANT:W_ANNEE:W_EMPL ELSE ENR_HISTORCUMUL=""

          * RECHERCHE RUB DANS HISTORCUMUL
          J=1
          LOOP 	
   	      UNTIL ENR_HISTORCUMUL<15,J>=W_RUBRIQUE OR ENR_HISTORCUMUL<15,J>="" DO
	      J=J+1
          REPEAT
          IF ENR_HISTORCUMUL<15,J>=W_RUBRIQUE THEN W_TOTALHC=ENR_HISTORCUMUL<17,J>

	  IF W_TOTALDC<>W_TOTALHC THEN	
		W_DIFF=W_TOTALHC-W_TOTALDC
		PRINT "AIDANT=":W_CONTRAT:"/TOTAL DETAILCALCUL=":W_TOTALDC:"/TOTAL HISTORCUMUL=":W_TOTALHC:"/DIFF=":W_DIFF
	  END		

	  W_TOTALDC=0
	  W_TOTALHC=0
     END

     W_AIDANT=CLE[1,5]
     W_CONTRAT=CLE[1,8]
     IF W_ACTIVITE="P" THEN 
         W_EMPL=ENR_CONTRAT<2>
     END ELSE
         W_EMPL=ENR_CONTRAT<3>
     END

     * RECHERCHE RUB DANS DETAILCALCUL
     I=1
     LOOP 	
	  UNTIL ENR_DETAILCALCUL<8,I>=W_RUBRIQUE OR ENR_DETAILCALCUL<8,I>="" DO
	  I=I+1
     REPEAT

     IF ENR_DETAILCALCUL<8,I>=W_RUBRIQUE THEN W_TOTALDC=W_TOTALDC+ENR_DETAILCALCUL<9,I>
REPEAT

IF W_EMPL<>"" THEN	   ;* SI MANDATAIRE
**IF W_AIDANT<>CLE[1,5] THEN       ;* SI PRESTATAIRE
     * RECHERCHE RUB DANS HISTORCUMUL
     READ ENR_HISTORCUMUL FROM F.HISTORCUMUL,W_AIDANT:W_ANNEE:W_EMPL ELSE ENR_HISTORCUMUL=""
     J=1
     LOOP 	
	  UNTIL ENR_HISTORCUMUL<15,J>=W_RUBRIQUE OR ENR_HISTORCUMUL<15,J>="" DO
	  J=J+1
     REPEAT
     IF ENR_HISTORCUMUL<15,J>=W_RUBRIQUE THEN W_TOTALHC=ENR_HISTORCUMUL<17,J>

     IF W_TOTALDC<>W_TOTALHC THEN	
	  W_DIFF=W_TOTALHC-W_TOTALDC
  	  PRINT "AIDANT=":W_CONTRAT:"/TOTAL DETAILCALCUL=":W_TOTALDC:"/TOTAL HISTORCUMUL=":W_TOTALHC:"/DIFF=":W_DIFF
     END		

     W_TOTALDC=0
     W_TOTALHC=0
END

STOP
