ERROR EN TSBROWSE

[EASYSOFT]

Buenos días amigos de foro
Es un error en el que hay que tener mucha punteria para detectarlo.. pero mis clientes la tienen
sucede cuando uno le da doble click en la barra horinzontal izquierda del browse al intentar seleccionar un item del mismo,
no se si le ha pasado.

Gracias

Application
===========
Path and name: C:\fwh\BERTERO\easysoft.exe (32 bits)
Size: 2,066,432 bytes
Time from start: 0 hours 0 mins 13 secs
Error occurred at: 2009/03/04, 10:20:45
Error description: Error BASE/1132 Bound error: array access
Args:
[ 1] = A { ... }
[ 2] = N 0

Stack Calls
===========
Called from TWINDOW:LBUTTONDOWN(5616)
Called from TWINDOW:HANDLEEVENT(0)
Called from TWINDOW:HANDLEEVENT(0)
Called from TWINDOW:HANDLEEVENT(6149)
Called from _FWH(0)
Called from DIALOGBOX(0)
Called from TDIALOG:ACTIVATE(0)
Called from FACTURA(273)
Called from (b)MIC5MENU(223)
Called from TC5MENU:COMMAND(715)
Called from TWINDOW:COMMAND(0)
Called from TWINDOW:HANDLEEVENT(0)
Called from _FWH(0)
Called from WINRUN(0)
Called from TWINDOW:ACTIVATE(0)
Called from MAIN(134)

[mmercado]

Es un error en el que hay que tener mucha punteria para detectarlo.. pero mis clientes la tienen
sucede cuando uno le da doble click en la barra horinzontal izquierda del browse al intentar seleccionar un item del mismo,
no se si le ha pasado.

Hola Oscar:

Discúlpame pero no entiendo cual es la "barra horizontal izquierda", por favor explícame para tratar de reproducir el error, de ser posible muéstrame la parte de tu código donde defines el Browse.

Un abrazo.

Manuel Mercado

[EASYSOFT]

Sr. Mercado gracias por su interes, perdon no es horizontal es vertical izquierda
Por favor intente dando doble click en la esquina superior izquierda del browse


FUNCTION busper(codper)
local oDlgperb,Obrw,lOk

DEFINE DIALOG odlgperb RESOURCE "dperson"
dbselectarea("clients")
ordSetfocus("modmae2")
dbgotop()

REDEFINE COLUMN BROWSE oBrw ID 15 OF oDlgperb CELLED;
ON DBLCLICK( lOk := .T. , odlgperb:End())

ADD COLUMN TO BROWSE oBrw DATA oBrw:nAt ; // array element number
HEADER "No";
SIZE 50

ADD COLUMN TO oBrw;
HEADER oemtoansi("C‚dula");
SIZE 120 ;
DATA FieldWBlock(ansitooem( "cl_ci"), Select() ) ;
ALIGN DT_LEFT, DT_CENTER ;
3DLOOK TRUE MOVE DT_MOVE_RIGHT;
order "modmae3"

ADD COLUMN TO oBrw;
HEADER oemtoansi("C¢digo");
SIZE 120 ;
DATA FieldWBlock(ansitooem( "cl_cod"), Select() ) ;
ALIGN DT_LEFT, DT_CENTER ;
3DLOOK TRUE MOVE DT_MOVE_RIGHT;
order "modmae"

ADD COLUMN TO oBrw;
HEADER "Apellido Paterno" ;
SIZE 250 ;
DATA FieldWBlock(ansitooem( "cl_razon"), Select() ) ;
ALIGN DT_LEFT, DT_CENTER ;
3DLOOK TRUE MOVE DT_MOVE_RIGHT;
order "modmae2"

oBrw:lSeek := .T.

oBrw:SetColor( { 1, 2, 3, 4, 5, 6, 15 }, ;
{ CLR_WHITE, nRGB(128,0,255), CLR_WHITE, CLR_BLACK, ;
CLR_BLACK, nRGB(236,160,19), CLR_BLACK } )

oBrw:Look3d( .T., , , .F. ) // ( lOnOff, nColumn, nLevel, lPhantomGrid )

oBrw:bKeyDown := { | nKey | If( nKey == VK_RETURN .or. nKey == VK_ESCAPE, ;
oDlgperb:End(), Nil ), lOk := nKey != VK_ESCAPE }


oBrw:Refresh()
SysRefresh()


ACTIVATE DIALOG odlgperb CENTERED
oDlgperb:refresh()
codper:= clients->cl_cod
lOk := .T.
return If( lOk, codper, cEstado )