****************************************************
* Compare les DETAILCALCUL ET HISTORCUMUL
* pour voir si difference
****************************************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","HISTORCUMUL" TO F.HISTORCUMUL ELSE STOP
OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE STOP
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP

W_RequeteMoul=""

* EXECUTE 'SETPTR 0,,,,,1, "MODE=RAW",DEST \\SERVEURINF\MATRICEPSON,NOHEAD,NOFMT,EJECT,COPIES 1,BRIEF'

* PRINTER ON

EXECUTE 'SELECT DETAILCALCUL AVEC AnneeDetailCalcul ="[2001]" PAR CodeAidantDetailCalcul PAR CodeAideDetailCalcul'

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

W_CleAnc=""
W_EmplAnc=""
W_CumulB=0
W_CumulNbH=0
W_CumulImp=0
i=0

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

   W_Fini="FAUX"
   LOOP
      READNEXT W_Cle FROM W_RequeteMoul ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
      READ ENR_CONTRAT FROM F.CONTRAT,W_Cle[1,8] ELSE PRINT "CONTRAT"
 
      PRINT W_Cle:"   ":ENR_CONTRAT<3>

      IF W_Cle[1,5] # W_CleAnc[1,5] AND ENR_CONTRAT<3> # W_EmplAnc AND W_CleAnc # "" THEN
         IF LEN(W_EmplAnc) # 6 THEN
            W_CleCumul=W_CleAnc[1,5]:"2001":W_EmplAnc
         END ELSE
            PRINT "PASSE"
            DEBUG
            W_CleCumul=W_CleAnc[1,5]:"2001":ENR_CONTRAT<2>
         END
         READ ENR_HISTORCUMUL FROM F.HISTORCUMUL,W_CleCumul THEN
            IF ENR_HISTORCUMUL<5> # W_CumulB AND ENR_HISTORCUMUL<2> # W_CumulNbH AND ENR_HISTORCUMUL<6> # W_CumulImp THEN
               PRINT ""
               PRINT "Difference : ":W_CleCumul
               PRINT "Nb Heures : ":ENR_HISTORCUMUL<2>:"    ":W_CumulNbH
               PRINT "Brut      : ":ENR_HISTORCUMUL<5>:"    ":W_CumulB
               PRINT "Imposable : ":ENR_HISTORCUMUL<6>:"    ":W_CumulImp
*               i=i+1
*               PRINT i
*               DEBUG
            END
         END ELSE
            i=i+1
            PRINT i
            PRINT "Historcumul : ":W_CleCumul:" -  Bulletin ":W_CleAnc:" -  Contrat ":W_EmplAnc
*            DEBUG
         END
         W_CumulB=0
         W_CumulNbH=0
         W_CumulImp=0
      END

      READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,W_Cle ELSE PRINT "DETAILCALCUL"
      W_CumulB=W_CumulB + ENR_DETAILCALCUL<7>
      W_CumulNbH=W_CumulNbH + ENR_DETAILCALCUL<6>
      W_CumulImp=W_CumulImp + ENR_DETAILCALCUL<15>
      
	W_CleAnc=W_Cle
      W_EmplAnc=ENR_CONTRAT<3>

   REPEAT

END

STOP

