*******************************************************************
* MOULINETTE POUR LA REEDITION DES BORDEREAUX AUX CAISSES
*******************************************************************

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

   EXECUTE 'SSELECT FACTURAIDE AVEC PeriodeCleFactAide = "200202" AND AVEC ActiviteFact = "M"'

   W_End="FAUX"

   LOOP
      READNEXT W_Cle ELSE W_End = "VRAI"
   WHILE W_End = "FAUX" DO
      READ ENR_FACTURAIDE FROM F.FACTURAIDE,W_Cle ELSE ENR_FACTURAIDE=""
	
	IFact = 1

	LOOP
	WHILE ENR_FACTURAIDE<2,IFact> # "" DO
		IF ENR_FACTURAIDE<2,IFact> = "REGUL PRISE EN CHARGE SDAS 01/02" THEN
			ENR_FACTURAIDE<5,IFact> = (ENR_FACTURAIDE<5,IFact> * (-1))
			IF ENR_FACTURAIDE<5,IFact> => 0 THEN
				ENR_FACTURAIDE<5,IFact> = ENR_FACTURAIDE<5,IFact> + 1
			END ELSE
				ENR_FACTURAIDE<5,IFact> = ENR_FACTURAIDE<5,IFact> - 1
			END
      		ENR_FACTURAIDE<11>=""
		END
		IFact = IFact + 1
	REPEAT
	
      WRITE ENR_FACTURAIDE ON F.FACTURAIDE,W_Cle
   REPEAT

STOP
