>PROCEDURE Opendata as VOID > IF ! DBUSED('C:\Temp\Northwind\northwind.dbc') > OPEN DATABASE 'C:\Temp\Northwind\northwind.dbc' > ENDIF >ENDPROCpor
PROCEDURE Opendata as VOID OPEN DATABASE 'C:\Temp\Northwind\northwind.dbc' ENDPROCAdemás, siempre es una buena práctica preguntar por el resultado de CursorFill(). Si devuelve FALSE, aerror() te devuelve el detalle del problema, que luego debes ver cómo subir a las capas superiores. Una alternativa sería cargar todo en una string y devolver eso en lugar del XML.