mostrar una columna con el número progresivo en un xBrowse

Board index FiveWin para Harbour/xHarbour mostrar una columna con el número progresivo en un xBrowse

Posts: 1335

Joined: Fri Jun 13, 2008 11:04 AM

mostrar una columna con el número progresivo en un xBrowse
Posted: Wed Nov 19, 2008 10:06 AM

Amigos,

¿Cómo puedo mostrar el progresivo no en una columna, mientras que el uso de RecordSet (ADO) con xBrowse

Sé cómo hacer esto, si un conjunto se utiliza en xBrowse oBrw: nArrayAt

Que estoy recibiendo de error cuando intento nArrayAt y nAt

Error Base/1111 Argument Error : Len From ErroSys, Line:0

Code

Code: Select all Collapse

*-----------------------------------*
FUNCTION connect()
*-----------------------------------*
Local SQL,oBrw
Local oCon := CreateObject('ADODB.Connection')
Local oRecSet := CreateObject( "ADODB.RecordSet" )

oCon:ConnectionString:= "Driver={MySQL ODBC 3.51 Driver};Server=192.168.0.170;Port=3306;Database=MyDataBase;User=MyUser;Password=MyPassword;Option=3;"
TRY
   oCon:Open()
   msgInfo("Connected to Database") 
CATCH oError
   MsgInfo("Connection Failed")
   RETURN(.F.)
END

oRecSet:CursorLocation := adUseClient
oRecSet:LockType := adLockOptimistic
oRecSet:CursorType := adOpenDynamic
oRecSet:Source := "SELECT * FROM ISSUE_TRA WHERE FIN_YEAR=2004"
oRecSet:ActiveConnection(oCon)
oRecSet:Open()

if oRecSet:BOF .AND. oRecSet:EOF
   Msginfo("No Records")
   Return .F.
Endif

oRecSet:MoveFirst()

@0,0 XBROWSE oBrw ;
     OF oWnd ;         
     OBJECT oRecSet;
     LINES CELL
 
oCol:=oBrw:AddCol()
oCol:cHeader:="No #"
oCol:bStrdata:={ || oBrw:nArrayAt }   // Problem is here

oBrw:CreateFromCode()

RETURN .T.

Gracias

Anser

Daniel Garcia-Gil

Posts: 2365

Joined: Wed Nov 02, 2005 11:46 PM

mostrar una columna con el número progresivo en un xBrowse
Posted: Wed Nov 19, 2008 02:23 PM

prueba esto...

Code: Select all Collapse

oCol:bStrData:=GenProgessNumber( oBrw )
....

function GenProgressNumber( oBrw )
return {|| oBrw:nArrayAt }

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

mostrar una columna con el número progresivo en un xBrowse
Posted: Wed Nov 19, 2008 02:41 PM

Anser:

Intenta con oRecSet:AbsolutePosition()

Code: Select all Collapse

oCol:bStrdata:={ || TRANSFORM(oRecSet:AbsolutePosition(),"@Z 99999") }

:AbsolutePosition() es el equivalente a la función RecNo() en DBF's

Saludos

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

anserkk

Posts: 1335

Joined: Fri Jun 13, 2008 11:04 AM

mostrar una columna con el número progresivo en un xBrowse
Posted: Thu Nov 20, 2008 05:57 AM

Estimado Armando

Su solución trabajado

Code: Select all Collapse

oCol:bStrdata:={ || TRANSFORM(oRecSet:AbsolutePosition(),"@Z 99999") }

Estimado mcfox

su solución no funcionó y que estaba dando error

Code: Select all Collapse

oCol:bStrData:=GenProgessNumber( oBrw )
....

function GenProgressNumber( oBrw )
return {|| oBrw:nArrayAt }

Por lo tanto, ha cambiado su código en GenProgressNumber( oBrw ) a

Code: Select all Collapse

function GenProgressNumber( oBrw )
return {|| str(oBrw:nArrayAt) }

Al añadir str I evitarse el error, pero no progresiva en el xBrowse es siempre 0 en todas las líneas.

Gracias por tu ayuda.

Me dirijo aquí que lo que he aprendido y espero que pueda ser útil para los neófitos como yo y ayudarles a reducir su curva de aprendizaje.

Así que esta es la forma de obtener un progresivo no en xBrowse

SI matriz se utiliza en xBrowse entonces

Código:

Code: Select all Collapse

oCol:bStrData: = { || oBrw:nArrayAt }

Si se utiliza DBF en xBrowse entonces

Código:

Code: Select all Collapse

oCol:bStrData: = { | | str(RecNo() ) } / / Estoy dudoso de lo que ocurre aquí si la DBF está indexado

Si se utiliza de registros en xBrowse
Código:

Code: Select all Collapse

oCol: bStrdata: = {| | TRANSFORM(oRecSet:absolutePosition(),"Z 99999 ") }
                 Oregón
oCol:bStrdata: = { | | str (oRecSet:absolutePosition() ) }

Saludas

Anser

FiveTech Support Forums

Continue the discussion