gTest est un ASOutputQueueCollection
nResSelectedQ est un entier = TableSelect(TABLE_CollectionASOutputQueue)
nResSelectedWtr est un entier = TableSelect(TABLE_CollectionASWriter)
asoq est une ASOutputQueue = gTest[nResSelectedQ]
aswtr est un ASWriterDetailed = asoq.WriterCollection[nResSelectedWtr]
SI PAS ASWriterStartRemote(aswtr, MaConnexion1) ALORS
Info(ErreurInfo(errComplet))
FIN