OPEN "","MT" TO F.MT ELSE STOP
OPEN "", "FACTURAIDE" TO F.FACTURAIDE ELSE STOP
OPEN "","MT2" TO F.MT2 ELSE STOP
OPEN "","FACTURORG" TO F.FACTURORG ELSE STOP
OPEN "","MT3" TO F.MT3 ELSE STOP
EXECUTE 'COMO ON VerifFact.txt'
EXECUTE 'SELECT FACTURAIDE = "[P200707]" PAR @ID'
W_Fin = "F"
LOOP
READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
	READ ENR_FACTURAIDE FROM F.FACTURAIDE, W_Cle THEN
	READ ENR_MT FROM F.MT, W_Cle[1,5] THEN
		READ ENR_MT3 FROM F.MT3, ENR_MT<1> THEN
			IF ENR_MT3 # ENR_FACTURAIDE THEN
				PRINT "Aide : ":W_Cle[1,5]: " - Factures diffrentes !":W_Cle:" - ":ENR_MT<1>
			END 
		END
	END ELSE
		PRINT "Aide : ":W_Cle[1,5]: " - PAs de facture precedente !"
	END
	END
REPEAT
EXECUTE 'SELECT FACTURORG AVEC 10 = ""'
W_Fin = "F"
LOOP
READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
READ ENR_FACTURORG FROM F.FACTURORG, W_Cle THEN
	READ ENR_MT2 FROM F.MT2, W_Cle THEN
		IF ENR_MT2 # ENR_FACTURORG THEN
		   PRINT "Aide : ":W_Cle[1,5]: " - Factures caisse diffrentes !":W_Cle	
		END 
		ENR_MT2<20> = "1"
		WRITE ENR_MT2 ON F.MT2, W_Cle
	END ELSE
		PRINT "Aide : ":W_Cle: " - PAs de facture caisse precedente !"	
	END
END
REPEAT
EXECUTE 'LISTER MT2 AVEC 20 # "1"'
EXECUTE 'COMO OFF'
STOP
