Cleber,

Vc pode utilizar o parâmetro nRecords = 1 na chamada da função CursorToXML() do VFP 7.0. Desta forma só o registro corrente será exportado para XML.

Veja o protótipo da função:

CursorToXML(nWorkArea | cTableAlias, cOutput [, nOutputFormat 
[, nFlags [, nRecords [, cSchemaName [, cSchemaLocation [, cNameSpace ]]]]]])

O código abaixo gera o XML do registro corrente da tabela "SuaTabela" na variável lcXML:

CURSORTOXML("SuaTabela", "lcXML", 1, 0, 1)

[]s

Eugênio