Bug en TWBROWSE ( wBrowse.prg) y FIX

Bug en TWBROWSE ( wBrowse.prg) y FIX

Postby albeiroval » Fri Feb 05, 2010 2:00 am

Este es un Bug que creo que ha nadie le ha pasado...
Usando el comando LISTBOX con un Array en una aplicacion TOUCH un usuario toco la pantalla
en la esquina inferior izquierda (botton, left) del Browse y produjo el siguiente error :

Code: Select all  Expand view  RUN

Application
===========
   Path and name: C:\Proyectos\Software\WinPollosa\wincaja.exe (32 bits)
   Size: 2,007,552 bytes
   Time from start: 0 hours 2 mins 26 secs
   Error occurred at: 04/02/2010, 20:52:11
   Error description: Error DBCMD/2001  Area de trabajo no usada: ORDKEYNO
   Args:

Stack Calls
===========
   Called from:  => ORDKEYNO(0)
   Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:MOUSEMOVE(2075)
   Called from:  => TWINDOW:HANDLEEVENT(0)
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1469)
   Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:HANDLEEVENT(1652)
   Called from: .\source\classes\WINDOW.PRG => _FWH(3353)
   Called from:  => WINRUN(0)
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE(966)
   Called from: .\wincaja.PRG => MAIN(132)

System
======
   CPU type: AMD Athlon(tm) 64 X2 Dual Core Processor 5400+ 2766 Mhz
   Hardware memory: 1920 megs

   Free System resources: 90 %
        GDI    resources: 90 %
        User   resources: 90 %

   Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6406)
   Windows version: 5.1, Build 2600 Service Pack 3

   Windows total applications running: 46
      1 TF_FloatingLangBar_WndTitle
      2 CiceroUIWndFrame
      3 M
      4 Default IME
      5
      6 Menú Inicio
      7 S/PDIF IN/OUT Settings
      8 Set Device Type
      9 Mixer ToolBox
     10 Configuración de conector
     11 Pollo Sabroso C.A       [Estacion Numero = 02]      [Nombre del Cajero = VALENCIA, ALBEIRO]      [Fecha del Turno = 04/02/2010]               ( Version 21.12.09 )
     12 CamTray
     13 MCI command handling window
     14 UNCFATDMS
     15 ESET Smart Security
     16 ActiveMovie Window
     17 DDE Server Window
     18 Device Notification Window
     19 RhinoAshTray
     20 EndSessionHandling
     21 Connections Tray
     22 CDirectoryChangeWatcherHelperWindow
     23 Medidor de energía
     24 DTS Connect
     25 Dolby Home Threater
     26 Advance Setting
     27 TOOLBOX
     28 Load EQ Preset
     29 DeleteEQ
     30 Save EQ
     31 Realtek HD Audio Manager
     32 BackMain_Form
     33 Administrador de sonido Realtek HD
     34 UnlockerAssistant
     35 MS_WebcheckMonitor
     36 QTPlayer Tray Icon
     37 winvnc::IPC_Interface
     38 theAwtToolkitWindow
     39 Wrapper Controlled JVM Console ID 1868920601 (Do not close)
     40 EpfwWindow
     41 EKrnSvcWindow
     42 ATI video bios poller client
     43 ATI video bios poller
     44 GDI+ Window
     45 SysFader
     46 Program Manager

Variables in use
================
   Procedure     Type   Value
   ==========================
   ORDKEYNO
     Local   1:    U    
     Local   2:    U    
   TWBROWSE:MOUSEMOVE
     Param   1:    N    199
     Param   2:    N    667
     Param   3:    N    1
     Local   1:    O    Class: TWBROWSE
     Local   2:    N    0
     Local   3:    N    1
     Local   4:    N    0
     Local   5:    N    6
     Local   6:    U    
     Local   7:    N    9
     Local   8:    N    3
     Local   9:    N    1
   TWINDOW:HANDLEEVENT
     Param   1:    N    512
     Param   2:    N    1
     Param   3:    N    13042331
   TCONTROL:HANDLEEVENT
     Param   1:    N    512
     Param   2:    N    1
     Param   3:    N    13042331
     Local   1:    O    Class: TWBROWSE
     Local   2:    U    
   TWBROWSE:HANDLEEVENT
     Param   1:    N    512
     Param   2:    N    1
     Param   3:    N    13042331
     Local   1:    O    Class: TWBROWSE
   _FWH
     Param   1:    N    13042331
     Param   2:    N    512
     Param   3:    N    1
     Param   4:    N    13042331
     Param   5:    N    3
     Local   1:    O    Class: TWBROWSE
   WINRUN
     Param   1:    N    6422844
   TWINDOW:ACTIVATE
     Param   1:    C    "MAXIMIZED"
     Param   2:    U    
     Param   3:    U    
     Param   4:    U    
     Param   5:    U    
     Param   6:    U    
     Param   7:    U    
     Param   8:    U    
     Param   9:    U    
     Param  10:    U    
     Param  11:    U    
     Param  12:    U    
     Param  13:    U    
     Param  14:    U    
     Param  15:    U    
     Param  16:    U    
     Param  17:    B    {|| ... }
     Param  18:    U    
     Param  19:    U    
     Local   1:    O    Class: TWINDOW
     Local   2:    U    
     Local   3:    U    
   MAIN
     Local   1:    O    Class: TFACTURA
     Local   2:    O    Class: TWINDOW
     Local   3:    O    Class: TFONT
     Local   4:    O    Class: TFONT
     Local   5:    O    Class: TFONT
     Local   6:    U    
     Local   7:    O    Class: TWBROWSE
     Local   8:    O    Class: TBRUSH
     Local   9:    N    3735552

Linked RDDs
===========
   DBF
   DBFFPT
   DBFBLOB
   DBFNTX

DataBases in use
================

Classes in use:
===============
     1 ERROR
     2 HASHENTRY
     3 HBCLASS
     4 HBOBJECT
     5 TSISTEMA
     6 TFACTURA
     7 TFONT
     8 TBRUSH
     9 TWINDOW
    10 TDIALOG
    11 TCONTROL
    12 TICON
    13 TSAY
    14 TBTNBMP
    15 TKEYBOARD
    16 TGET
    17 GET
    18 TCLIPGET
    19 TBUTTON
    20 TMSGBAR
    21 TRECT
    22 TMSGITEM
    23 TTIMER
    24 TWBROWSE
    25 TSCROLLBAR
    26 TGROUP
    27 TREG32

Memory Analysis
===============
      163 Static variables

   Dynamic memory consume:
      Actual  Value:          0 bytes
      Highest Value:          0 bytes

 


Edite el codigo de xBrowse.Prg en el metodo => TWBROWSE:MOUSEMOVE linea 2075
y agregue lo siguiente :

Code: Select all  Expand view  RUN


          if ! Empty( ::cAlias )           // Inicio del cambio
             if ( ::nLen - ::nRowCount() + ::nRowPos + 1)  <= ( ::cAlias )->( OrdKeyNo() )
                ( ::cAlias )->( DbSkip( -1 ) )
             endif
          endif                                 // Final  del Cambio

 


Compile el Prg y lo reemplaze en Fivehx.Lib ... y listo se corrigio el problema...
Esto solo cuando se usa la clase para trabajar con Arrays...

Espero Sirva...

Saludos...

Pdta : no logre poner la imagen del error pues aun no se como insertarla en este Tema..

:)
Saludos,
Regards,

Albeiro Valencia
www.avcsistemas.com
User avatar
albeiroval
 
Posts: 383
Joined: Tue Oct 16, 2007 5:51 pm
Location: Barquisimeto - Venezuela

Re: Bug en TWBROWSE ( wBrowse.prg) y FIX

Postby albeiroval » Tue Feb 09, 2010 2:41 am

Image

Aqui muestro la posicion donde se produce el error el error ... antes del Fix.
Saludos,
Regards,

Albeiro Valencia
www.avcsistemas.com
User avatar
albeiroval
 
Posts: 383
Joined: Tue Oct 16, 2007 5:51 pm
Location: Barquisimeto - Venezuela

Re: Bug en TWBROWSE ( wBrowse.prg) y FIX

Postby Daniel Garcia-Gil » Tue Feb 09, 2010 3:06 am

Gracias Albeiro...

que version de fivewin estas usando??
User avatar
Daniel Garcia-Gil
 
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 pm
Location: Isla de Margarita

Re: Bug en TWBROWSE ( wBrowse.prg) y FIX

Postby albeiroval » Tue Feb 09, 2010 3:32 pm

Daniel..

Uso la version 9.11.

Saludos..
Saludos,
Regards,

Albeiro Valencia
www.avcsistemas.com
User avatar
albeiroval
 
Posts: 383
Joined: Tue Oct 16, 2007 5:51 pm
Location: Barquisimeto - Venezuela


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 26 guests

cron