EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","FACTURAIDE" TO F.FACTURAIDE ELSE STOP
OPEN "","AJOUTPVT" TO F.AJOUTPVT ELSE STOP

W_Code = ""
W_Periode = ""
W_TypeAct = ""


PRINT "                        Annulation des prlevements"

LOOP WHILE LEN(W_Code) # 3 
  PRINT "Saisissez le code de l'entit juridique"
  INPUT W_Code
REPEAT

PRINT "Saisissez la priode sous la forme AAAAMM"
INPUT W_Periode

LOOP
WHILE  W_TypeAct # "P" AND W_TypeAct # "M" AND W_TypeAct # "I" AND W_TypeAct # "S"  
  PRINT "Saisissez le type d'activit (P, M, I ou S)"
  INPUT W_TypeAct
REPEAT

W_RequeteMoul=""
W_RequetePvt=""
W_RequeteFact1=""

EXECUTE 'SELECT FACTURAIDE AVEC 17 = "O" AND AVEC ActiviteFact = "':W_TypeAct:'" AND AVEC CodeEntiteFact = "':W_Code:'" AND AVEC PeriodeCleFactAide = "':W_Periode:'"'
EXECUTE 'SAUVE-LISTE W_RequeteMoul'
EXECUTE "LISTE W_RequeteMoul" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
   SELECT F.FACTURAIDE TO W_RequeteMoul

   W_Fini="FAUX"
   LOOP
      READNEXT W_Cle FROM W_RequeteMoul ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
      READ ENR_FACTURAIDE FROM F.FACTURAIDE,W_Cle ELSE STOP
      ENR_FACTURAIDE<17>=""
      WRITE ENR_FACTURAIDE ON F.FACTURAIDE,W_Cle
   REPEAT
END


	  
EXECUTE 'SELECT AJOUTPVT AVEC 0 = "[':W_Code:W_TypeAct:W_Periode:'"'
EXECUTE 'SAUVE-LISTE W_RequetePvt'
EXECUTE "LISTE W_RequetePvt" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
  SELECT F.AJOUTPVT TO W_RequetePvt

  W_Fini="FAUX"
   LOOP
      READNEXT W_CleAJOUTPVT FROM W_RequetePvt ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO	  
	  READ ENR_AJOUTPVT FROM F.AJOUTPVT,W_CleAJOUTPVT THEN
		 ENR_AJOUTPVT<2>=""
		 WRITE ENR_AJOUTPVT ON F.AJOUTPVT,W_CleAJOUTPVT
	  END
	  
   REPEAT
END

EXECUTE 'SELECT FACTURAIDE AVEC 0 = "[1" AND AVEC ActiviteFact = "':W_TypeAct:'" AND AVEC CodeEntiteFact = "':W_Code:'" AND AVEC PeriodeCleFactAide = "':W_Periode:'"'
EXECUTE 'SAUVE-LISTE W_RequeteFact1'
EXECUTE "LISTE W_RequeteFact1" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
   SELECT F.FACTURAIDE TO W_RequeteFact1

   W_Fini="FAUX"
   LOOP
      READNEXT W_CleFact1 FROM W_RequeteFact1 ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
      W_Long=LEN(W_CleFact1)-1
	  W_CleFact0=W_CleFact1[1,W_Long]:"0"

      READ ENR_FACTURAIDE FROM F.FACTURAIDE,W_CleFact0 THEN
		 ENR_FACTURAIDE<12>=""
		 WRITE ENR_FACTURAIDE ON F.FACTURAIDE,W_CleFact0
	  END
   REPEAT
END

EXECUTE 'EFFACER-LISTE W_RequeteMoul'
EXECUTE 'EFFACER-LISTE W_RequetePvt'
EXECUTE 'EFFACER-LISTE W_RequeteFact1'

STOP
