Sobre TSBrowse SOLUCIONADO

[Armando]

Hola Amigos:

En especial a Manuel Mercado, en una aplicación de 16bits uso el siguiente código

Code: Select all  Expand view

oBrw:blDblClick := {|nRowPix, nColPix, nFlags|;
(nCol := oBrw:nAtCol(nColPix),nRen := oBrw:nTSBrow(nRowPix),;
IIF(nColPix > 130,Editar(oWindow,oDlg,oDbf,oBrw,nRen,nCol),))}
 

y me funciona a la perfección, pero ahora que estoy migrandola a 32bits
me tira un error en el código

Code: Select all  Expand view

nRen := oBrw:nTSBrow(nRowPix)
 

El error es el siguiente:

Application
===========
Path and name: C:\TIbarrola\SiaWin.Exe (32 bits)
Size: 1,222,144 bytes
Time from start: 0 hours 0 mins 4 secs
Error occurred at: 16/02/2010, 18:58:13
Error description: Error BASE/1004 Message not found: TSBROWSE:NTSBROW

Stack Calls
===========
Called from: source\rtl\tobject.prg => TSBROWSE:ERROR(172)
Called from: source\rtl\tobject.prg => TSBROWSE:MSGNOTFOUND(205)
Called from: source\rtl\tobject.prg => TSBROWSE:NTSBROW(0)
Called from: C:\TIbarrola\Prgs\siawin1f.prg => (b)ENTRA(245)
Called from: C:\LIBSFWH810\TSBROWSE70\Prgs\TSBROWSE.PRG => TSBROWSE:LDBLCLICK(5940)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(0)
Called from: C:\LIBSFWH810\TSBROWSE70\Prgs\TSBROWSE.PRG => TSBROWSE:HANDLEEVENT(6150)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => DIALOGBOX(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(0)
Called from: C:\TIbarrola\Prgs\siawin1f.prg => ENTRA(259)
Called from: C:\TIbarrola\Prgs\siawin1f.prg => (b)SIAWIN1F(77)
Called from: .\source\classes\BUTTON.PRG => TBUTTON:CLICK(0)
Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => SENDMESSAGE(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT(0)
Called from: => DIALOGBOX(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(0)
Called from: C:\TIbarrola\Prgs\siawin1f.prg => SIAWIN1F(83)
Called from: C:\TIbarrola\Prgs\siawin.prg => (b)LABARRA(209)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK(0)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(0)
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE(0)
Called from: C:\TIbarrola\Prgs\siawin.prg => MAIN(154)

Manuel, me puedes ayudar con este error ?

Saludos y muchas gracias

[JoseGS]

Tal vez si nos indicas que intentas hacer con dicho codigo te podamos ayudar mejor.

saludos

[mmercado]

Hola Armando:

y me funciona a la perfección, pero ahora que estoy migrandola a 32bits
me tira un error en el código
nRen := oBrw:nTSBrow(nRowPix)

TSBrows en 32 bits cambia bastante en relación con la versión de 16 bits.

Prueba cambiando obrw:nTSBrow(nRowPix) por:
oBrw:GetTxtRow( nRowPix )

Te estoy enviando a tu correo TSBrowse V.9.0 Beta para que hagas tus pruebas y me hagas llegar tus observaciones (especialmente con ADO/RecordSets).

Un abrazo.

[Bayron]

Armando,

No sera que estas enlazando el TSBrowse despues de las librerias de Fivewin, a mi me dio el mismo error con TWBrowse....

[Armando]

Amigos:

Como decía Jack el destripador, vamos por partes

Manuel:
Una vez más con tu sapiencia me has sacado del atolladero, con tu sugerencia todo vuelve a funcionar.

Recibí la nueva versión y haré mis pruebas con ADO y records sets y te dejaré saber los resultados, por el momento estoy metido en pasar la aplicación de 16 a32bits, muchas gracias Manuel, un abrazo.

JoseGS:
El código me sirve para identificar en que columna y renglón el usuario da un clic, en otras palabras me sirve para identificar la celda donde el usuario hace el clic.

Bayron:
Muchas gracias por tu interés, hice el cambio como lo sugeriste pero no, el error persistia.

Saludos a todos