

LOOP

	PRINT "Saisissez le nom du repertoire ou se trouve le fichier DADS-CRC"
	INPUT NomRep
		
	W_DADSAbsente = "Faux"
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
	OPEN "", NomRep TO F.DADS ELSE W_DADSAbsente = "Vrai"

IF W_DADSAbsente = "Vrai" THEN
	PRINT "Le rpertoire que vous avez saisi est introuvable dans la base."
	
END ELSE

	PRINT "Saisissez le nom du fichier  l'intrieur de ce rpertoire"
	INPUT NomFichier

	W_FichierAbsent = "Faux"
	READ ENR_DADS FROM F.DADS, NomFichier ELSE W_FichierAbsent = "Vrai"

	IF W_FichierAbsent = "Vrai" THEN
		PRINT "Le fichier ":NomFichier:" est introuvable dans ":NomRep
	END 

END

WHILE W_DADSAbsente = "Vrai" OR W_FichierAbsent = "Vrai"
REPEAT

W_Ind = 0

W_TotalEtab = 0
W_TotalEntreprise = 0

W_TabDetail<1> = 369
W_TabDetail<2> = 377
W_TabDetail<3> = 385
W_TabDetail<4> = 393
W_TabDetail<5> = 401
W_TabDetail<6> = 409
W_TabDetail<7> = 417
W_TabDetail<8> = 425
W_TabDetail<9> = 433

W_TabEtab<1> = 30
W_TabEtab<2> = 43
W_TabEtab<3> = 56
W_TabEtab<4> = 69
W_TabEtab<5> = 82
W_TabEtab<6> = 95
W_TabEtab<7> = 108
W_TabEtab<8> = 121
W_TabEtab<9> = 134

W_TabEntrep<1> = 35
W_TabEntrep<2> = 48
W_TabEntrep<3> = 61
W_TabEntrep<4> = 74
W_TabEntrep<5> = 87
W_TabEntrep<6> = 100
W_TabEntrep<7> = 113
W_TabEntrep<8> = 126
W_TabEntrep<9> = 139

* Description des tableaux W_Total :
*
* 1 : Salaires totaux
* 2 : Tranche A
* 3 : Tranche B
* 4 : Tranche C
* 5 : Sommes isoles
* 6 : Salaires reconstitus
* 7 : Assiettes forfaitaires
* 8 : Avenants A49 AGIRC
* 9 : Indemnits prvoyance
*

LOOP

	W_Ind = W_Ind + 1

WHILE ENR_DADS<W_Ind> # ""
	W_Enr = ENR_DADS<W_Ind>
	BEGIN CASE
		CASE W_Enr[20,3] = "200"
		* Dtail salari
			GOSUB 100
		CASE W_Enr[20,3] = "300"
		* Total tablissement
			GOSUB 200
		CASE W_Enr[20,3] = "310"
		* Total entreprise
			GOSUB 300
	END CASE	
	ENR_DADS<W_Ind> = W_Enr	
REPEAT

WRITE ENR_DADS ON F.DADS, NomFichier:"e"
STOP

* Lignes dtail
100
W_Longueur = LEN(W_Enr)
FOR I=1 TO 9
W_Montant = W_Enr[W_TabDetail<I>,7]
W_Montant = INT(W_Montant / 655957 * 100000 + 1/2)
W_TotalEtab<I> = W_TotalEtab<I> + W_Montant
W_Montant = W_Montant"R%7"
W_Enr = W_Enr[1,W_TabDetail<I>-1]:W_Montant:W_Enr[W_TabDetail<I> + 7, W_Longueur -(W_TabDetail<I> + 7)+1] 
NEXT I
RETURN

* Lignes total tablissement
200
W_Longueur = LEN(W_Enr)
FOR I=1 TO 9
W_TotalEntreprise<I> = W_TotalEntreprise<I> + W_TotalEtab<I>
W_TotalEtab<I> = W_TotalEtab<I>"R%12"
W_Enr = W_Enr[1,W_TabEtab<I>-1]:W_TotalEtab<I>:W_Enr[W_TabEtab<I> + 12, W_Longueur -(W_TabEtab<I> + 12)+1]
W_TotalEtab<I> = 0
NEXT I
RETURN

* Ligne total entreprise
300
W_Longueur = LEN(W_Enr)
FOR I=1 TO 9
W_TotalEntreprise<I> = W_TotalEntreprise<I>"R%12"
W_Enr = W_Enr[1,W_TabEntrep<I>-1]:W_TotalEntreprise<I>:W_Enr[W_TabEntrep<I> + 12, W_Longueur -(W_TabEntrep<I> + 12)+1]
NEXT I
RETURN
