***********************************************************
*
* TRANSPOSITION DU FICHIER ACCORD D'UN MODULE FACTURE
* VERS FICHIER ACCORD
*
* NOVEMBRE 1998                           DIDIER
***********************************************************
OPEN "","HRESHISTOR" TO F.HRESHISTOR ELSE STOP
OPEN "","STATACTAIDE" TO F.STATACTAIDE ELSE STOP
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "","ACTIVITESAIDE" TO F.ACTIVITESAIDE ELSE STOP
CODEPB1=""
PRESENCETF="NON"
PRESENCEAMF="NON"
*** TRAITEMENT
EXECUTE 'TSELECT HRESHISTOR AVEC PeriodeHresHistor = "2000]" AND AVEC EntiteHresHistor = "001" PAR @ID'
EXECUTE 'SAUVE-LISTE W_HIST'
EXECUTE "LISTE W_HIST" RETURNING MSGCODE
SELECT F.HRESHISTOR TO W_HIST
10 READNEXT CLEHIST FROM W_HIST ELSE STOP

CODEPB=CLEHIST[1,5]
IF CODEPB1="" THEN CODEPB1=CODEPB
IF CODEPB#CODEPB1 THEN
 PRINT CODEPB1
 IF PRESENCETF="OUI" THEN
  READ ENRACTIVITESAIDE FROM F.ACTIVITESAIDE,CODEPB1 ELSE GOTO 10
  J=1
  LOOP
   ACTIVITE=EXTRACT(ENRACTIVITESAIDE,1,J)
   UNTIL ACTIVITE="" OR ACTIVITE="001001" DO
    J=J+1
  REPEAT
  IF PRESENCEAMF="NON" THEN
   IF ACTIVITE="" THEN
    PRINT "AIDE SANS ACTIVITE AMF AU DEPART1 ":CODEPB1
   END ELSE
    ENRACTIVITESAIDE=REPLACE(ENRACTIVITESAIDE,1,J;"001002")
    WRITE ENRACTIVITESAIDE ON F.ACTIVITESAIDE,CODEPB1
   END
  END ELSE
   IF ACTIVITE="" THEN
    PRINT "AIDE SANS ACTIVITE AMF AU DEPART2 ":CODEPB1
   END ELSE
    ENRACTIVITESAIDE=REPLACE(ENRACTIVITESAIDE,1,-1;"001002")
    DEBUTACTIVITE=EXTRACT(ENRACTIVITESAIDE,2,J)
    FINACTIVITE=EXTRACT(ENRACTIVITESAIDE,3,J)
    MOTIFACTIVITE=EXTRACT(ENRACTIVITESAIDE,4,J)
    ENRACTIVITESAIDE=REPLACE(ENRACTIVITESAIDE,2,-1;DEBUTACTIVITE)
    ENRACTIVITESAIDE=REPLACE(ENRACTIVITESAIDE,3,-1;FINACTIVITE)
    ENRACTIVITESAIDE=REPLACE(ENRACTIVITESAIDE,4,-1;MOTIFACTIVITE)
    WRITE ENRACTIVITESAIDE ON F.ACTIVITESAIDE,CODEPB1
   END
  END
 END
 CODEPB1=CODEPB
 PRESENCETF="NON"
 PRESENCEAMF="NON"
END

READ ENRHRESHISTOR FROM F.HRESHISTOR,CLEHIST ELSE GOTO 10
PERIODE=CLEHIST[9,6]
HEURESAMF=0
HEURESTF=0
I=1
LOOP
 CODAIDANT=EXTRACT(ENRHRESHISTOR,1,I)
 HEURES=EXTRACT(ENRHRESHISTOR,2,I)
 UNTIL CODAIDANT="" DO

  EXECUTE 'SELECT CONTRAT AVEC @ID = "':CODAIDANT:']" AND AVEC 1 # "02" PAR-DECR 7'
  EXECUTE 'SAUVE-LISTE W_CONTRAT'
  EXECUTE "LISTE W_CONTRAT" RETURNING MSGCODE
  SELECT F.CONTRAT TO W_CONTRAT

  READNEXT CLECONTRAT FROM W_CONTRAT THEN
   READ ENRCONTRAT FROM F.CONTRAT,CLECONTRAT THEN
    PROFIL=EXTRACT(ENRCONTRAT,26)
    IF PROFIL="003" THEN
     PRESENCETF="OUI"
     HEURESTF=HEURESTF+HEURES
    END ELSE
     PRESENCEAMF="OUI"
     HEURESAMF=HEURESAMF+HEURES
    END
   END
  END ELSE
   PRINT "PAS CONTRAT POUR CODE AIDANT ":CODAIDANT:"   AIDE ":CODEPB1
  END
  I=I+1
REPEAT
ENRSTATACTAIDE=""
IF HEURESAMF#0 THEN
 ENRSTATACTAIDE<1,1>="001001"
 ENRSTATACTAIDE<2,1>=HEURESAMF
 IF HEURESTF#0 THEN
  ENRSTATACTAIDE<1,2>="001002"
  ENRSTATACTAIDE<2,2>=HEURESTF
 END
END ELSE
 IF HEURESTF#0 THEN
  ENRSTATACTAIDE<1,1>="001002"
  ENRSTATACTAIDE<2,1>=HEURESTF
 END
END
WRITE ENRSTATACTAIDE ON F.STATACTAIDE,CODEPB1:"001":PERIODE
GOTO 10
