Estou testando o sqlwin para postgres e já tenho várias funções funcionando. Agora estou tentando fazer "UR_RECINFO" funcionar, mas quando acrescento as linhas abaixo, me é retornado um erro de GPF.
Code: Select all | Expand
function SQLWIN_GETFUNCTABLE( pFuncCount, pFuncTable, pSuperTable, nRddID )... aSQLFunc[ UR_RECINFO ] := ( @SQL_RECINFO() )...STATIC FUNCTION SQL_RECINFO( nWA, nRecord, nInfoType, uInfo ) LOCAL nResult := SUCCESS local aWAData := USRRDD_AREADATA( nWA ) local cRddSep := SQLGetCurrentSep( aWAData[ WA_SYSTEMID ] ) local nSysID := aWAData[ WA_SYSTEMID ]MSGSTOP( "NÃO CHEGA AQUI" ) DO CASE CASE nInfoType == UR_DBRI_DELETED uInfo := .F. CASE nInfoType == UR_DBRI_LOCKED uInfo := .T. CASE nInfoType == UR_DBRI_RECSIZE CASE nInfoType == UR_DBRI_RECNO nResult := SQL_RECID( nWA, @nRecord ) CASE nInfoType == UR_DBRI_UPDATED uInfo := .F. CASE nInfoType == UR_DBRI_ENCRYPTED uInfo := .F. CASE nInfoType == UR_DBRI_RAWRECORD uInfo := "" CASE nInfoType == UR_DBRI_RAWMEMOS uInfo := "" CASE nInfoType == UR_DBRI_RAWDATA nResult := SQL_GOTOID( nWA, nRecord ) uInfo := "" ENDCASERETURN nResult
Funções que já estão funcionando:
Code: Select all | Expand
dbgotop()dbgobottom()skip()use()goto()dbappend()alias()eof()bof()recno()reccount()__dbzap()__dbpack()fieldget()fieldput()fieldname()fieldsize()dbcommit()
Alguém poderia me ajudar ?
Antonio: Se quiser lhe envio o sqlwin com minhas mudanças ok ?

Obrigado,