*************************************************************
* PERMET DE MODIFIER LE MTT SUR LA FACTURATION
* Mikael 01/03/2010
*************************************************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"


ENR_FACTURAIDE=""
i = ""

OPEN "","COMPLFACT" TO F.COMPLFACT ELSE STOP

EXECUTE 'SELECT COMPLFACT '

EXECUTE 'SAUVE-LISTE W_Requete'
EXECUTE "LISTE W_Requete" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
   SELECT F.COMPLFACT TO W_Requete
W_TOTBASE = 0
   W_Fini="FAUX"
   LOOP
      	READNEXT W_Cle FROM W_Requete ELSE W_Fini="VRAI"
   WHILE W_Fini="FAUX" DO
     	READ ENR_COMPLFACT FROM F.COMPLFACT,W_Cle THEN
			IF ENR_COMPLFACT<1>="" THEN
				* il existe des cls  vide donc ne pas mettre de tva
				ENR_COMPLFACT<10>=""
			END ELSE
			
				W_Count=DCOUNT(ENR_COMPLFACT<10>,CHAR(253))
				
				FOR i = 1 TO W_Count
					ENR_COMPLFACT<10,i>="1"
				NEXT i
			END
			
			WRITE ENR_COMPLFACT ON F.COMPLFACT, W_Cle
			
		END
   REPEAT
END
STOP