It is working correctly here.
You made a modification to the fworm.prg as advised by Mr. Antonio.
Please make sure you have this line of code in fworm.prg (line 11)
- Code: Select all Expand view
static pDolphinSrv, pClipValue2SQL
In our tests here we are not getting any errors.
This is our test:
- Code: Select all Expand view
#include "fivewin.ch"
function Main()
local oServer
local orm, oStates
oServer := FW_DemoDB( "DLP" ) // Dolphin connection
orm := ORM_Connection():New( oServer )
oStates := orm:Table( "states" )
oStates:Browse()
oServer:End()
return nil
EXTERNAL TDOLPHINSRV