EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE PRINT "OUVERTURE DETAILCALCUL" ;* en lecture
OPEN "","RUBSAISIE" TO F.RUBSAISIE ELSE PRINT "OUVERTURE RUBSAISIE" ;* en lecture


	W_TotalRub=0
	W_TotalBrut=0

   	EXECUTE 'SELECT DETAILCALCUL AVEC PeriodeDetailCalcul = "200601" AND AVEC ConvColContratDetailCalcul # "02"'
   	W_End="FAUX"

   	LOOP
      		READNEXT W_Cle ELSE W_End = "VRAI"
  	WHILE W_End = "FAUX" DO
      		READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,W_Cle ELSE ENR_DETAILCALCUL=""

		W_Count=DCOUNT(ENR_DETAILCALCUL<2>,CHAR(253))

		W_Rub=0
		W_Brut=ENR_DETAILCALCUL<6>

		FOR i = 1 TO W_Count
      			READ ENR_RUBSAISIE FROM F.RUBSAISIE,ENR_DETAILCALCUL<2,i> ELSE ENR_RUBSAISIE=""
			IF ENR_RUBSAISIE<2>="3" OR ENR_RUBSAISIE<2>="4" OR ENR_RUBSAISIE<2>="5" THEN
				W_Rub=W_Rub+ENR_DETAILCALCUL<3,i>
			END
		NEXT i

		IF W_Brut # W_Rub THEN
			W_Diff=W_Brut-W_Rub

			PRINT W_Cle[1,5]:" Brut = ":W_Brut:" Rub = ":W_Rub:" Diff = ":W_Diff

		END

		W_TotalRub=W_TotalRub+W_Rub
		W_TotalBrut=W_TotalBrut+W_Brut


   	REPEAT

	PRINT " "
	W_Diff=W_TotalBrut-W_TotalRub
	PRINT "TOTAL Brut = ":W_TotalBrut:" Rub = ":W_TotalRub:" Diff = ":W_Diff

STOP
