gTest est un ASOutputQueueCollection
nResSelect est un entier = TableSelect(TABLE_CollectionASOutputQueue)
asoq est une ASOutputQueue = gTest.CollectionASOutputQueue[nResSelect]
//1 : &Oui
//2 : &Annuler
SELON Dialogue("Êtes-vous sûr(e) de vouloir mettre cette file d'attente à blanc?")
// &Oui
CAS 1
SI PAS ASOutputQueueClear(asoq, MaConnexion1) ALORS
Info(ErreurInfo(errComplet))
FIN
Proc_Gestion_ASOutQ(nResSelect)
// &Annuler
CAS 2
RETOUR
FIN