**********
* CHATEAUROUX ASMAD : REGUL REPRISE PROV CP SUITE A RESTAURATION AVANT CALCUL MAIS FICHIER CONTRAT PAS RESTAURE
**********

OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "","CONTRATOK" TO F.CONTRATOK ELSE STOP
OPEN "","FUSION" TO F.FUSION ELSE STOP
OPEN "","COMPLFACT" TO F.COMPLFACT ELSE STOP

EXECUTE 'COMO ON REGULREPPROVCP'
READ ENRFUSIONFAUX FROM F.FUSION,"LISTFACTAIDE001M201305-FAUX.csv" ELSE STOP
READ ENRFUSIONOK FROM F.FUSION,"LISTFACTAIDE001M201305-OK.csv" ELSE STOP

I=1
LOOP
   LIGNE=ENRFUSIONOK<I>
UNTIL LIGNE="" DO
   CODEAIDEOK=FIELD(ENRFUSIONOK<I>,";",1)
   CODEAIDEFAUX=FIELD(ENRFUSIONFAUX<I>,";",1)
   IF CODEAIDEOK#CODEAIDEFAUX THEN
      PRINT "DECALAGE DANS LES AIDES - FIN DU PGM :":CODEAIDEOK:" ":CODEAIDEFAUX
      STOP
   END
   MONTREPPROVCPOK=FIELD(ENRFUSIONOK<I>,";",16)
   MONTREPPROVCPFAUX=FIELD(ENRFUSIONFAUX<I>,";",16)
   MONTREPPROVCPOK=MONTREPPROVCPOK*100
   MONTREPPROVCPFAUX=MONTREPPROVCPFAUX*100
   IF MONTREPPROVCPOK#MONTREPPROVCPFAUX THEN      
      ENRCOMPLFACT=""
      ENRCOMPLFACT<1,1>="SOLDE REPRISE PROVISION FIN MAI"
      ENRCOMPLFACT<2,1>=""
      ENRCOMPLFACT<3,1>=""
      ENRCOMPLFACT<4,1>=MONTREPPROVCPOK-MONTREPPROVCPFAUX
      ENRCOMPLFACT<5,1>="4193000000"
      ENRCOMPLFACT<6,1>=""
      ENRCOMPLFACT<7,1>="0"
      ENRCOMPLFACT<8,1>=""
      ENRCOMPLFACT<9,1>="201305"
      ENRCOMPLFACT<10,1>="1"
      WRITE ENRCOMPLFACT ON F.COMPLFACT,CODEAIDEOK:"001M"
      PRINT CODEAIDEOK:" OK ":MONTREPPROVCPOK:"   FAUX ":MONTREPPROVCPFAUX:"   DIFF ":MONTREPPROVCPOK-MONTREPPROVCPFAUX
   END
   I=I+1
REPEAT

EXECUTE 'SELECT CONTRAT AVEC 1 = "02" AND AVEC 63 = "201305" AND AVEC 65 = ""'
10 READNEXT CLE ELSE
   EXECUTE 'COMO OFF'
   STOP
END
READ ENRCONTRAT FROM F.CONTRAT,CLE ELSE GOTO 10
READ ENRCONTRATOK FROM F.CONTRATOK,CLE ELSE
   PRINT "CONTRAT NON TROUVE DANS OK ":CLE
   GOTO 10
END
PRINT CLE:" ":ENRCONTRAT<3>:"   PROV AV ":ENRCONTRAT<85>:"   PROV AP ":ENRCONTRATOK<86>:"   PROV COURS ":ENRCONTRAT<86>
ENRCONTRAT<85>=ENRCONTRATOK<86>
WRITE ENRCONTRAT ON F.CONTRAT,CLE
GOTO 10

STOP