*******************************************************************
* MOULINETTE POUR LA REEDITION DES FACTURES BENEFICIAIRES SANS ASF
*******************************************************************

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

   EXECUTE 'SELECT FACTURAIDE AVEC ActiviteFact = "M" AND AVEC PeriodeCleFactAide = "200103"'

   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=""

      i=1
      LOOP
	  UNTIL ENR_FACTURAIDE<2,i>="" DO
	  IF ENR_FACTURAIDE<2,i>="REGULARISATION CHARGES URSSAF" THEN
		ENR_FACTURAIDE=DELETE(ENR_FACTURAIDE,1,i)
		ENR_FACTURAIDE=DELETE(ENR_FACTURAIDE,2,i)
		ENR_FACTURAIDE=DELETE(ENR_FACTURAIDE,3,i)
		ENR_FACTURAIDE=DELETE(ENR_FACTURAIDE,4,i)
		ENR_FACTURAIDE=DELETE(ENR_FACTURAIDE,5,i)
		ENR_FACTURAIDE=DELETE(ENR_FACTURAIDE,6,i)
		ENR_FACTURAIDE=DELETE(ENR_FACTURAIDE,7,i)
		ENR_FACTURAIDE=DELETE(ENR_FACTURAIDE,14,i)
		i=i-1
	  END
	  i=i+1
      REPEAT

      ENR_FACTURAIDE<11>=0
      ENR_FACTURAIDE<12>=""

      WRITE ENR_FACTURAIDE ON F.FACTURAIDE,W_Cle
   REPEAT

STOP
