the dbf is on the root of the test
the error
- Code: Select all Expand view
- Application
===========
Path and name: C:\Work\Errori\plan_tdata\sample03.Exe (32 bits)
Size: 3,492,864 bytes
Compiler version: Harbour 3.2.0dev (r1904111533)
FiveWin version: FWH 19.05
C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
Windows version: 6.2, Build 9200
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 06/20/2019, 13:19:55
Error description: Error BASE/1002 Alias inesistente: ROOMS
Stack Calls
===========
Called from: => DBUSEAREA( 0 )
Called from: .\source\classes\DATABASE.PRG => (b)TDATABASE_USE( 424 )
Called from: .\source\classes\DATABASE.PRG => TDATABASE:TD_EXECLOOP( 2085 )
Called from: .\source\classes\DATABASE.PRG => TDATABASE:USE( 424 )
Called from: .\source\classes\DATABASE.PRG => TDATABASE:OPEN( 352 )
Called from: sample03.prg => SAMPLEPLAN:OPENDATA( 685 )
Called from: sample03.prg => SAMPLEPLAN:NEW( 86 )
Called from: sample03.prg => MAIN( 32 )
openData method
- Code: Select all Expand view
- METHOD OpenData() CLASS SamplePlan
oRooms:= TDatabase():Open( nil, "Rooms", "DBFCDX", .t. )
oRooms:setorder(1)
oRooms:gotop()
oReserva:=TDatabase():Open( nil, "Reserva", "DBFCDX", .T. )
oReserva:setorder(1)
oReserva:gotop()
return nil
where is the error ?