Urgente Error en xBrowse ORDKEYCOUNT(0) en la FWH10.10

[Blessed]

Saludos necesito realmente ayuda, estoy implementando una aplicacion y cuando los usuarios estan trabajando con el xBrowse, da el siguiente error:

Application
===========
Path and name: C:\Adm_Com\Adm_com.exe (32 bits)
Size: 3,827,200 bytes
Time from start: 0 hours 9 mins 16 secs
Error occurred at: 26/10/2011, 16:26:36
Error description: Error DBCMD/2001 Area de trabajo no usada: ORDKEYCOUNT

Stack Calls
===========
Called from: => ORDKEYCOUNT(0)
Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE:SETRDD(3696)
Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE:TXBROWSE(383)
Called from: => TXBROWSE:KEYCOUNT(0)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:REFRESH(1127)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:MOUSELEAVE(3225)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT(11047)
Called from: .\source\classes\WINDOW.PRG => _FWH(3394)
Called from: => SYSREFRESH(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:END(531)
Called from: Prg\objects.prg => (b)CONSULTAMDS(1677)
Called from: .\source\classes\BUTTON.PRG => TBUTTON:CLICK(176)
Called from: Prg\objects.prg => (b)CONSULTAMDS(1671)
Called from: .\source\classes\WINDOW.PRG => TWINDOW:LDBLCLICK(1872)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:LDBLCLICK(1514)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:LDBLCLICK(3463)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1499)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT(11050)
Called from: .\source\classes\WINDOW.PRG => _FWH(3394)
Called from: => DIALOGBOX(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
Called from: Prg\objects.prg => CONSULTAMDS(1701)
Called from: Prg\Inv_Mov.prg => VAL_ARTICULO(1049)
Called from: Prg\Inv_Mov.prg => (b)MOVI_AGREDIT(1018)
Called from: .\source\classes\TGET.PRG => TGET:LVALID(1209)
Called from: .\source\classes\CONTROL.PRG => TGET:FWLOSTFOCUS(924)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1468)
Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT(598)
Called from: .\source\classes\WINDOW.PRG => _FWH(3394)
Called from: => SYSREFRESH(0)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:KEYCHAR(731)
Called from: .\source\classes\TGET.PRG => TGET:KEYCHAR(1117)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1499)
Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT(598)
Called from: .\source\classes\WINDOW.PRG => _FWH(3394)
Called from: => DIALOGBOX(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
Called from: Prg\Inv_Mov.prg => MOVI_AGREDIT(1034)
Called from: Prg\Inv_Mov.prg => (b)IN_MOVI(394)
Called from: .\source\classes\BUTTON.PRG => TBUTTON:CLICK(176)
Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT(1447)
Called from: .\source\classes\WINDOW.PRG => _FWH(3394)
Called from: => SENDMESSAGE(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND(408)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT(944)
Called from: => DIALOGBOX(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
Called from: Prg\Inv_Mov.prg => IN_MOVI(461)
Called from: Prg\Inv_Mov.prg => (b)MOVTOOL(212)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK(463)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP(658)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1489)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT(1450)
Called from: .\source\classes\WINDOW.PRG => _FWH(3394)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE(978)
Called from: Prg\Admin.prg => MAIN(104)

El codigo que he ingresado para el xbrowse es:

Code: Select all

FUNCTION Ajust_xBrws( oxBrw, nID )

    With Object oxBrw
       oxBrw:lRecordSelector     = .F.
       oxBrw:lAllowRowSizing     = .F.
       oxBrw:nRowDividerStyle    = LINESTYLE_NOLINES
       oxBrw:nColDividerStyle    = LINESTYLE_NOLINES
       oxBrw:nMarqueeStyle       = MARQSTYLE_HIGHLROW
        oxBrw:lColDividerComplete = .T.
      oxBrw:bClrSelFocus        = oApp:bxBrowSel
      oxBrw:bClrSel             = oApp:bxBrowSel
    oxBrw:bClrGrad            = oApp:bGradient 
    IF ( oxBrw:cAlias )->(RddName()) != "DBFCDX"
        oxBrw:bKeyNo              = oxBrw:bBookMark
        oxBrw:bKeyCount           = {|| ( oxBrw:cAlias )->( LastRec() ) }
    ENDIF
    oxBrw:SetBackGround( "Fondos\Gradient.bmp" )
    oxBrw:CreateFromResource(nID)
    End

    RETURN NIL
 

Alguna idea

[MarioG]

Blessed;
según el msg de error: Error DBCMD/2001 Area de trabajo no usada: ORDKEYCOUNT
en algún proceso se desconecta de la DB, quizás deberías buscar por ahí

[Blessed]

Gracias Mario

He visto que este problema para SQLRDD se arreglo con la FWH 11.09, asi que estoy planeando actualizarme esta semana que viene.

Un saludo

[Blessed]

Saludos amigos
He tenido que retomar este asunto, y hoy me esta dando el error con archivos temporales DBFCDX, no con SQLRDD.
Cuando reviso el programa la tabla esta en uso, y tiene que ver con SETRDD.

Alguna idea

[Antonio Linares]

_,

Busca OrdKeyCount() que solo se usa una vez dentro de xbrowse.prg:

::bKeyCount := {|| ( ::cAlias )->( OrdKeyCount() ) }

y cámbialo por:

::bKeyCount := {|| If( Select( ::cAlias ) != 0, ( ::cAlias )->( OrdKeyCount() ), 0 ) }

[Blessed]

Antonio Gracias

Intenare y estare viendo los resultados en un par de das, ya que este error es muy raro que se de, cada dos dias en una PC de 12.
Raro no

Saludos