FiveTech Software tech support forums

... REDEFINE LISTBOX oT1oli FIELDS tMovi->Articu FIELDSIZES 78 ID 12 OF oDlg; HEADERS "Artículo"; ON CHAGE funactu() oT1oli:nclrpane:={||IIF((ORDKEYNO())%2==0,cClr1,cClr2)} La pregunta es ¿cuales clausulas me permiten ejecutar las funciones que estan resaltadas en rojo, cuando utilizo la clase ...

REQUEST OrdKeyNo

Al principio del programa

Estimados Colegas

Estoy probando compilar con xharbour .99.2 un prg donde tengo
un tsbrowse me tira este error alguien me puede orientar

Gracias
Dante
DEvwin2004@yahoo.com.ar

... := .t. aBrw:nlinestyle := 2 aBrw:nclrpane:= {|| iif( (nItem/2)-INT(nItem/2) > 0, CLR_LBLUE, CLR_LGRAY) } * oBrw:nClrPane:={|| IIF((wAlias)->(OrdKeyNo())%2==0,CLR_LBLUE,CLR_LGRAY)} aBrw:GoTop() oDlg:SetControl(aBrw) //ACTIVATE DIALOG oDlg ON INIT (aBrw:GoTop(),aBrw:Refresh(),oDlg:setsize(ANCHO,ALTO),oDlg:Move(X,Y)) ...

... ) Select Diary nOrder := IndexOrd() Set ORDER TO TAG Name DBSeek (oBrw:Cargo, .T.) Set ORDER TO nOrder oBrw:nLen := OrdKeyCount() oBrw:VSetPos( OrdKeyNo() ) oBrw:Refresh() ELSE oBrw:Cargo := "" oBrw:GoTop() ENDIF RETURN oBrw:nAT ----------------------Paste-----------------------

EnricoMaria wrote:Try using something like

oBrw:nLen = OrdKeyCount()
oBrw:VSetPos( OrdKeyNo() )
oBrw:Refresh()

EMG

Dear Enrico,

Yes it did solve the problem.

Milan.

... FW source for Twbrowse ( wbrowse.prg ) 1) Within the Setfilter() method .. add tuning for RDD's like ADS and DBFCDX to use OrdKeyCount() and OrdKeyNo() instead of RecCount() 2) Add a new method GoToCol( n ) .. 3) nFreeze( n ) .. freeze columns from N The reason I am asking is two-fold. YES ...

Try using something like

oBrw:nLen = OrdKeyCount()
oBrw:VSetPos( OrdKeyNo() )
oBrw:Refresh()

EMG

Como llamo al rdd en el prg es:

REQUEST DBFCDX, dbffpt, ordkeyno, ordkeycount
RddSetDefault( "DBFCDX" )

Algo mas??
Saludos
Rafa