Después de los USE y antes del GOTOP ( en el codigo inicial que pusiste ), prueba a poner
- Code: Select all Expand view
cAlias := cGetNewAlias( "CONSORC" )
y
dime si se soluciona: evidentemente a partir de ahí usa ( cAlias )->( .... ), al igual que en el xbrowse también usas cAlias