txbrowse - Workarea not in use ??

[russimicro]

Code: Select all  Expand view

Buena tarde...

Continuo solicitando ayuda para detectar este error ...
es esporádico (no lo he podido replicar, se presenta con algunos clientes que tienen mucho movimiento ), y siempre es en la misma línea  

Application
===========
   Path and name: Z:\ZERUS\zeruswin.exe (32 bits)
   Size: ********* bytes
   Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20141202)
   FiveWin  Version: FWHX 15.01
   Windows version: 6.1, Build 7600

   Time from start: 0 hours 24 mins 56 secs
   Error occurred at: 05/11/2016, 12:10:17
   Error description: Error DBCMD/2001  Workarea not in use: DBGOTO

Stack Calls
===========
   Called from:  => DBGOTO( 0 )
   Called from: source\classes\xbrowse.prg => (b)TXBROWSE:SETRDD( 4168 )
   Called from: source\classes\xbrowse.prg => (b)TXBROWSE:TXBROWSE( 445 )
   Called from:  => TXBROWSE:_BOOKMARK( 0 )
   Called from: source\classes\xbrowse.prg => TXBROWSE:PAINT( 1630 )
   Called from: source\classes\xbrowse.prg => TXBROWSE:DISPLAY( 1376 )
   Called from: Source\Classes\control.prg => TCONTROL:HANDLEEVENT( 1699 )
   Called from: source\classes\xbrowse.prg => TXBROWSE:HANDLEEVENT( 12711 )
   Called from: Source\Classes\window.prg => _FWH( 3450 )
   Called from:  => SYSREFRESH( 0 )
   Called from: Source\Classes\dialog.prg => TDIALOG:END( 526 )
   Called from: Source\Classes\outl2003.prg => TOUTLOOK2003:DESTROY( 324 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: Source\Classes\control.prg => TCONTROL:HANDLEEVENT( 1733 )
   Called from: Source\Classes\outl2003.prg => TOUTLOOK2003:HANDLEEVENT( 345 )
   Called from: Source\Classes\window.prg => _FWH( 3450 )
   Called from:  => WINRUN( 0 )
   Called from: Source\Classes\window.prg => TWINDOW:ACTIVATE( 1152 )
   Called from: C:\Desarro\ZerusGes\VersionActual\FUENTES\COMUNES\FW_FUNCSST3.PRG => PRINCIPAL_METRO( 5019 )

// class xbrowse ... modificada

METHOD SetRDD( lAddColumns, lAutoOrder, aFldNames, aRows ) CLASS TXBrowse

   local oCol, aStruct
   local cAlias, cAdsKeyNo, cAdsKeyCount
   local nFields, nFor, n, uData
   local bOnSkip
   local cAliPru := ""

   if Empty( ::cAlias )
      ::cAlias := Alias()
      if Empty( ::cAlias )
         return nil
      endif
   endif

   IF SELECT(::cAlias) == 0
      RETURN NIL
   ENDIF

   SELECT(::cAlias)

   if ::lCreated
      if ::nDataType == DATATYPE_RDD
         if SameDbfStruct( Self, Alias() )
            return nil
         endif
      endif
      ::cAlias := Alias()
      ::ClearBlocks()
      ::aCols  := {}
   endif

//TRY

   DEFAULT lAddColumns      := Empty( ::aCols ) .or. ! Empty( aFldNames )
   DEFAULT lAutoOrder       := ::lAutoSort
   ::lAutoSort              := lAutoOrder

   cAlias      := ::cAlias
   if ValType( aRows ) == 'A' .and. Len( aRows ) > 0

      if ValType( aRows[ 1 ] ) == 'A'
         bOnSkip        := { | oBrw | ( oBrw:cAlias )->( DbGoTo( oBrw:aArrayData[ oBrw:nArrayAt ][ 1 ] ) ) }
      else
         bOnSkip        := { | oBrw | ( oBrw:cAlias )->( DbGoTo( oBrw:aArrayData[ oBrw:nArrayAt ] ) ) }
      endif
      ::SetArray( aRows, .f., 0, .f., bOnSkip )
      ::nDataType       := nOr( DATATYPE_RDD, DATATYPE_ARRAY )
      lAutoOrder        := .f.
   else
      ::nDataType := DATATYPE_RDD
   endif

   ::lSqlRDD := ( ( ::cAlias )->( RddName() ) == "SQLRDD" )
   if ::lSqlRDD
      DEFAULT ::bKeyNo  := { |n| 0 }
   endif


   IF SELECT(::cAlias) == 0  // JRT // si se reporta en el default:  "que el area esta cerrada -  Error description: Error DBCMD/2001  Workarea not in use: DBGOTO ", porque no marca el error aquí ??
      //BREAK
      return
   ENDIF

   cAliPru := ::cAlias    // prueba para capturar error

   SELECT(::cAlias)   // si se reporta en el default:  "que el area esta cerrada", porque no marca el error aquí ??

   DEFAULT ::bGoTop    := {|| ( ::cAlias )->( DbGoTop() ) },;
           ::bGoBottom := {|| ( ::cAlias )->( DbGoBottom() ) },;
           ::bSkip     := {| n | ( ::cAlias )->( DbSkipper( IfNil( n, 1 ) ) ) },;
           ::bBof      := {|| ( ::cAlias )->( Bof() ) },;
           ::bEof      := {|| ( ::cAlias )->( Eof() ) },;
           ::bBookMark := {| n | iif( n == nil .or. n == 0 ,;
                                     ( ::cAlias )->( RecNo() ) ,;
                                    ( ::cAlias )->( DbGoto( n ) ) )  }  // línea 4168, donde se reporta el error
 

Gracias

Johnson Russi
Colombia

 

[karinha]

Esto no te ayudo?

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=32023

[karinha]

http://fivetechsupport.com/forums/viewtopic.php?f=3&t=26008

[russimicro]

Karinha.. Gracias por responder..

Mi duda se centra en porque el error en esa línea si en la línea anterior usa el alias de la tabla activa y no marca error (siempre es la misma línea)

SELECT(::cAlias) // sin error

DEFAULT ::bGoTop := {|| ( ::cAlias )->( DbGoTop() ) },;
::bGoBottom := {|| ( ::cAlias )->( DbGoBottom() ) },;
::bSkip := {| n | ( ::cAlias )->( DbSkipper( IfNil( n, 1 ) ) ) },;
::bBof := {|| ( ::cAlias )->( Bof() ) },;
::bEof := {|| ( ::cAlias )->( Eof() ) },;
::bBookMark := {| n | iif( n == nil .or. n == 0 ,;
( ::cAlias )->( RecNo() ) ,;
( ::cAlias )->( DbGoto( n ) ) ) } // error aquí ??

en la referencia que me envías ... es lo del índice ???

Gracias


Johnson Russi

[hmpaquito]

Mi duda se centra en porque el error en esa línea si en la línea anterior usa el alias de la tabla activa y no marca error (siempre es la misma línea)

Eso es porque

Esta es ejecutada "al momento"

Code: Select all  Expand view

SELECT(::cAlias) // sin error    

Esta en cambio esta dentro de un codeblock que es ejecutado en un momento distinto.

Code: Select all  Expand view

::bBookMark := {| n | iif( n == nil .or. n == 0 ,;
( ::cAlias )->( RecNo() ) ,;
( ::cAlias )->( DbGoto( n ) ) ) } // error aquí ??

[Carlos Mora]

Mirando la pila de llamadas del error, es el metodo End de un dialogo el que invoca a paint, por lo que debe ser que el txbrowse esta pintándose cuando ya cerraste la dbf. Como no hay codigo no se como solucionarlo, pero busca en el cierre del dialogo donde se cierran las tablas, y trara de que no cierren las tablas hasta despues del dlg:end()

[russimicro]

Code: Select all  Expand view

Esta la ventana principal del sistema, inicio del sistema y despliegue del menu textual y estilo metro, en este punto no se ha invocado ningún txbrowse, y es este el activate  window del error

FUNCTION PRINCIPAL_METRO()

LOCAL oBrush,hborland,oCursor,oCursorPen,oFont, oFon
LOCAL oTimer , oSprite  , oIco,oPopup3, oPopup2
LOCAL cTipCon := "", cImaFon, SW := 0

PRIVATE lActFun := .F.

MEMVAR oBar, Omenu
PUBLIC oImageList, oToolBar, oBa1r, oBar, Omenu

CLOSE ALL

   DEFINE ICON oIco  FILENAME "IMAGENES\zeruswin.ico"

   SetResDebug(.t.)

   DEFINE WINDOW oWnd FROM 0, 0 TO 46, 128                           ;
            TITLE HB_OEMTOANSI("Russoft. Sistema de Gesti¢n Empresarial " +"(Versi¢n : "+m->cFecVerZer+")"+ " | "+ cCiaAct +" - "+ cCiaNom )    ;
            ICON oIco                                                      ;
            MENU  MenuPrincipal(oWnd)
            //MENUINFO 3
            //MDI

            oMetPri := MakeMetroPanelPrincipal( oWnd,oBrush )

            m->oMetWin := oMetPri

   ACTIVATE WINDOW oWnd MAXIMIZED  ;
                VALID ( TerminarMetro(oBrush,oMetPri), .T. ) ;
                  ON INIT ( oMetPri:Show(), oTimer := XTimers(), XTimers_2() )  // ServerSocket(),  

   // esta la línea 5019, referenciada en el error

   CHECKRES()

RETURN ( oWnd )

//***************************************************************************************




 

[karinha]

Code: Select all  Expand view

FUNCTION PRINCIPAL_METRO()

   LOCAL oBrush,hborland,oCursor,oCursorPen,oFont, oFon
   LOCAL oTimer , oSprite  , oIco,oPopup3, oPopup2
   LOCAL cTipCon := "", cImaFon, SW := 0

   PRIVATE lActFun := .F.

   MEMVAR oBar, Omenu

   PUBLIC oImageList, oToolBar, oBa1r, oBar, Omenu

   // CLOSE ALL  // Esto no es necesario. CERRAR TODO? Porque?
   // si quieres cerrar solo un BD , use:
   // CLOSE DATABASE  // mira se esta abierto mismo.

   DEFINE ICON oIco  FILENAME "IMAGENES\zeruswin.ico"

   SetResDebug(.t.)

   DEFINE WINDOW oWnd FROM 0, 0 TO 46, 128                           ;
          TITLE HB_OEMTOANSI("Russoft. Sistema de Gesti¢n Empresarial " +"(Versi¢n : "+m->cFecVerZer+")"+ " | "+ cCiaAct +" - "+ cCiaNom )    ;
          ICON oIco                                                      ;
          MENU  MenuPrincipal(oWnd)

   oMetPri := MakeMetroPanelPrincipal( oWnd,oBrush )

   m->oMetWin := oMetPri

   ACTIVATE WINDOW oWnd MAXIMIZED  ;
            VALID ( TerminarMetro(oBrush,oMetPri), .T. ) ;
            ON INIT ( oMetPri:Show(), oTimer := XTimers(), XTimers_2() )  // ServerSocket(),

   // esta la línea 5019, referenciada en el error

   CHECKRES()

RETURN ( oWnd )