***********************************************************
*
* TRANSPOSITION DU FICHIER ACCORD D'UN MODULE FACTURE
* VERS FICHIER ACCORD
*
* NOVEMBRE 1998                           DIDIER
***********************************************************
EXECUTE 'DATE.FORMAT'
PROCREAD VARIABLES ELSE STOP
MODULE=FIELD(VARIABLES," ",2)
OPEN "","PARAMASSO" TO F.PARAMASSO ELSE STOP
READ ENRPARAMASSO FROM F.PARAMASSO,"1" ELSE STOP
I=1
J=0
MODULEASSOCIE=""
LOOP
 COMPTE=EXTRACT(ENRPARAMASSO,1,I)
 UNTIL COMPTE="" DO
  IF COMPTE=MODULE THEN
   MODULEASSOCIE=EXTRACT(ENRPARAMASSO,5,I)
   J=I
  END
  I=I+1
REPEAT
I=J
CODEACTIVITE=EXTRACT(ENRPARAMASSO,2,I):EXTRACT(ENRPARAMASSO,3,I)
IF MODULEASSOCIE="" THEN STOP
OPEN "","VOC" TO F.VOC ELSE STOP
ENRVOC=""
ENRVOC=REPLACE(ENRVOC,1;"F")
CHEMIN="D:\TRANSFERT\":MODULEASSOCIE
ENRVOC=REPLACE(ENRVOC,2;CHEMIN:"\P.AIDEES")
ENRVOC=REPLACE(ENRVOC,3;CHEMIN:"\D_P.AIDEES")
WRITE ENRVOC ON F.VOC,"P.AIDEES"
ENRVOC=REPLACE(ENRVOC,2;CHEMIN:"\ATTENTE")
ENRVOC=REPLACE(ENRVOC,3;CHEMIN:"\D_ATTENTE")
WRITE ENRVOC ON F.VOC,"ATTENTE"

OPEN "","ATTENTE" TO F.ATTENTE ELSE STOP
OPEN "","P.AIDEES" TO F.PAIDEES ELSE STOP
OPEN "","HRESATTENTE" TO F.HRESATTENTE ELSE STOP
OPEN "","HRESHISTOR" TO F.HRESHISTOR ELSE STOP

*** TRAITEMENT
EXECUTE 'TSELECT ATTENTE'
10 READNEXT CLEATT ELSE
 DELETE F.VOC,"ATTENTE"
 DELETE F.VOC,"P.AIDEES"
 STOP
END
READ ENRATTENTE FROM F.ATTENTE,CLEATT ELSE GOTO 10
CODEPB=CLEATT[1,4]
PERIODE=CLEATT[5,4]
AA=PERIODE[1,2]
IF AA<80 THEN PERIODE="20":PERIODE ELSE PERIODE="19":PERIODE

READ ENRBENEF FROM F.PAIDEES,CODEPB ELSE ENRBENEF=""
CLECIVILAIDE=EXTRACT(ENRBENEF,50)

ENRHRESATTENTE=""
HEURES=EXTRACT(ENRATTENTE,1)
READ ENRHRESHISTOR FROM F.HRESHISTOR,CLECIVILAIDE:CODEACTIVITE[1,3]:PERIODE THEN
 CODEAIDANT=EXTRACT(ENRHRESHISTOR,1,1)
END ELSE
 CODEAIDANT="00001"
END
ENRHRESATTENTE<1>=CODEAIDANT
ENRHRESATTENTE<2>="019"
ENRHRESATTENTE<3>=HEURES
ENRHRESATTENTE<4>=CODEACTIVITE

WRITE ENRHRESATTENTE ON F.HRESATTENTE,CLECIVILAIDE:CODEACTIVITE[1,3]:PERIODE:"P"
GOTO 10