asoq est une ASOutputQueue = gTest[nResSelectedQ]
aswtr est un ASWriterDetailed = asoq.WriterCollection[nResSelectedWtr]
SI aswtr.messageKey <> 0 ET aswtr.messageKey <> -1 ALORS
asmsg est un ASMessage
SI PAS ASMessageReceive(asmsg, aswtr.msgQName, aswtr.msgQLibName, aswtr.messageKey,MaConnexion1) ALORS
Info(ErreurInfo(errComplet))
RETOUR
FIN