
OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE PRINT "OUVERTURE DETAILCALCUL" ;* en lecture
OPEN "","CONTRAT" TO F.CONTRAT ELSE PRINT "OUVERTURE CONTRAT" ;* en lecture
OPEN "","FACTURAIDE" TO F.FACTURAIDE ELSE PRINT "OUVERTURE FACTURAIDE" ;* en lecture
OPEN "","CIVILAIDANT" TO F.CIVILAIDANT ELSE PRINT "OUVERTURE CIVILAIDANT" ;* en lecture
OPEN "","AIDESARCHIVEFACT" TO F.AIDESARCHIVEFACT ELSE PRINT "OUVERTURE AIDESARCHIVEFACT" ;* en lecture

PRINT "Priode"
INPUT W_Periode 

	EXECUTE 'SELECT DETAILCALCUL AVEC 0 = "[':W_Periode:'" AND AVEC ConvColContratDetailCalcul = "02" PAR CodeAideDetailCalcul'

	W_End="FAUX"

	EXECUTE "COMO ON DIFF-BS-FACTMANDAT.TXT"
	
	LOOP
		READNEXT W_Cle ELSE W_End = "VRAI"
	WHILE W_End = "FAUX" DO
		READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,W_Cle ELSE ENR_DETAILCALCUL=""
		READ ENR_CONTRAT FROM F.CONTRAT,W_Cle[1,8] ELSE ENR_CONTRAT=""
		
		W_Aide=ENR_CONTRAT<3>
		W_Aidant=W_Cle[1,5]
		
		READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,W_Aidant ELSE ENR_CIVILAIDANT=""
		
		READ ENR_AIDESARCHIVEFACT FROM F.AIDESARCHIVEFACT,W_Aide:W_Periode[1,4] ELSE ENR_AIDESARCHIVEFACT=""	
		W_Count=DCOUNT(ENR_AIDESARCHIVEFACT<4>,CHAR(253))
		FOR i = 1 TO W_Count
			IF ENR_AIDESARCHIVEFACT<4,i>[9,1]="M" THEN
				READ ENR_FACTURAIDE FROM F.FACTURAIDE,ENR_AIDESARCHIVEFACT<4,i>:"1" THEN
					W_CleFact=ENR_AIDESARCHIVEFACT<4,i>:"1"
				END ELSE
					READ ENR_FACTURAIDE FROM F.FACTURAIDE,ENR_AIDESARCHIVEFACT<4,i>:"0" ELSE ENR_FACTURAIDE	= ""
					W_CleFact=ENR_AIDESARCHIVEFACT<4,i>:"0"					
				END
				W_CountAidant=DCOUNT(ENR_FACTURAIDE<2>,CHAR(253))
				FOR j=1 TO W_CountAidant
					IF ENR_FACTURAIDE<2,j>="SALAIRE VERSE A ":ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3> THEN
						IF ENR_FACTURAIDE<5,j> # ENR_DETAILCALCUL<21> THEN
							W_Diff=ENR_FACTURAIDE<5,j>-ENR_DETAILCALCUL<21>
							PRINT "AIDE : ":W_Aide:" - ":ENR_FACTURAIDE<2,j>: " : ":ENR_FACTURAIDE<5,j>:" - BS : ":ENR_DETAILCALCUL<21>:" - DIFF = ":W_Diff
						END
						*ENR_FACTURAIDE<16,j>="OK"
					END
				NEXT j
				*WRITE ENR_FACTURAIDE ON F.FACTURAIDE,W_CleFact
			END
		NEXT i
		
	REPEAT
	
*	EXECUTE 'SELECT FACTURAIDE AVEC 0 = "[':W_Periode:']" AND AVEC 2 = "SALAIRE VERSE A]" PAR-DECR 0'
*	
*	W_End="FAUX"
*	W_SauveAide=""
*	
*	LOOP
*		READNEXT W_Cle ELSE W_End = "VRAI"
*	WHILE W_End = "FAUX" DO
*		READ ENR_FACTURAIDE FROM F.FACTURAIDE,W_Cle ELSE ENR_FACTURAIDE=""
*		W_Aide=W_Cle[1,5]
*		
*		IF W_SauveAide # W_Cle[1,25] THEN
*
*			W_CountAidant=DCOUNT(ENR_FACTURAIDE<2>,CHAR(253))
*			FOR j=1 TO W_CountAidant
*				IF ENR_FACTURAIDE<2,j>[1,15]="SALAIRE VERSE A" AND ENR_FACTURAIDE<15,j>#"OK" THEN
*					PRINT "AIDE : ":W_Aide:" - ":ENR_FACTURAIDE<2,j>: " : ":ENR_FACTURAIDE<5,j>:" - BS : NON - DIFF = ":ENR_FACTURAIDE<5,j>
*				END
*			NEXT j
*			W_SauveAide = W_Cle[1,25]
*		END
*	REPEAT
	
    EXECUTE "COMO OFF"
	
STOP