EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "FACTURORG" TO F.FACTURORG ELSE STOP
OPEN "", "ACCORD" TO F.ACCORD ELSE STOP
OPEN "", "ARCHIVEBORDCAISSE" TO F.ARCHIVEBORDCAISSE ELSE STOP

PRINT "Periode (AAAAMM) ?"
INPUT PERIODE

IF PERIODE = "" THEN STOP

PRINT "Code association ?"
INPUT W_CodeAsso

IF W_CodeAsso = "" THEN STOP

PRINT "Type d'activite ?"
INPUT W_TypeAct

IF W_TypeAct = "" THEN STOP

IF W_TypeAct = "m" THEN W_TypeAct = "M"
IF W_TypeAct = "p" THEN W_TypeAct = "P"


EXECUTE 'SELECT FACTURORG = "[':W_TypeAct:']" AVEC 10 = "':PERIODE:'" OR = "" AND AVEC EntiteFacturOrg = "':W_CodeAsso:'"'
W_Fin = "F"
LOOP
READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
	DELETE F.FACTURORG,W_Cle
	READ ENR_ACCORD FROM F.ACCORD, W_Cle[5,8] THEN
		i = 0
		LOOP
			i = i + 1
		WHILE ENR_ACCORD<14,i> # ""
			IF ENR_ACCORD<14,i> = W_Cle[13,6] THEN
				ENR_ACCORD=DELETE(ENR_ACCORD,14,i)
				ENR_ACCORD=DELETE(ENR_ACCORD,15,i)
				ENR_ACCORD=DELETE(ENR_ACCORD,16,i)
				ENR_ACCORD=DELETE(ENR_ACCORD,17,i)
				WRITE ENR_ACCORD ON F.ACCORD, W_Cle[5,8]
				i = 99
			END
			
		REPEAT 

	END
REPEAT

EXECUTE 'SELECT ARCHIVEBORDCAISSE = "[':W_TypeAct:']" AVEC PeriodeArchive = "':PERIODE:'" AND AVEC @ID = "':W_CodeAsso:']"'
W_Fin = "F"
LOOP
READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
	DELETE F.ARCHIVEBORDCAISSE,W_Cle
REPEAT

STOP









