FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Sobre TSBrowse SOLUCIONADO
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Sobre TSBrowse SOLUCIONADO
Posted: Wed Feb 17, 2010 12:59 AM
Hola Amigos:

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

Code (fw): Select all Collapse
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 (fw): Select all Collapse
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 :-) :-)
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 205
Joined: Wed Sep 02, 2009 03:11 AM
Re: Sobre TSBrowse
Posted: Wed Feb 17, 2010 02:20 AM

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

saludos

Posts: 782
Joined: Wed Dec 19, 2007 07:50 AM
Re: Sobre TSBrowse
Posted: Wed Feb 17, 2010 03:54 PM
Hola Armando:
Armando wrote: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.
manuelmercado at prodigy dot net dot mx
Posts: 883
Joined: Thu Dec 24, 2009 12:46 AM
Re: Sobre TSBrowse
Posted: Wed Feb 17, 2010 07:52 PM

Armando,

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

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Sobre TSBrowse SOLUCIONADO
Posted: Thu Feb 18, 2010 12:17 AM

Amigos:

Como dec铆a Jack el destripador, vamos por partes :lol:

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

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Continue the discussion