Ahi va :
FUNCTION Lectura()
LOCAL nBytes := 200
LOCAL cLeido := SPACE(200)
nBytes := InbufSize(nComm)
nRecibido += nBytes
IF nBytes > 0
cLeido = SPACE(nBytes)
InChr( nComm, nBytes, @cLeido ) // --> Esto es lo que lee el puerto
ENDIF
RETURN nil
Un saludo.