FiveTech Software tech support forums

He is using database object.
But he is not looking for DbGoBottom()
He is looking for

Code: Select all  Expand view

SEEK cSeek LAST // i.e., DBSEEK( cSeek, nil, .T. )

which is totally different from "GoBottom()"

... on a dialog @ nRow, ncol SCROLLBAR oScrollInizio HORIZONTAL SIZE 400,20 PIXEL OF oDlg ; RANGE 1,reccount() ; ON DOWN ( dbSkip(),; If( EoF(), dbGoBottom(),) ); ON UP ( dbSkip( -1 ) ) this run ok but the thmbpos is not stuck where it should be How I can set the command ON THUMBPOS so that when ...

... es la sentencia que uso: {"Aceptar.bmp","Modifico Registro " , "Cobrar" , {||editapago(nporciento, dfliq,nncons),dbgobottom(),oBrw:Refresh(),oBrw:SetFocus(),DbGoTop(),oBrw:Refresh(),oBrw:SetFocus() },VK_RETURN,"<Return>" } como se debe repintar ...

I have tested with this sample with FWH20.04. I found the scrollbar working properly and if we execute DBGOBOTTOM() before invoking the browse, the vertical scrollbar is positioned at the bottom. Please try this sample on your server, by changing the password, etc. This is ...

Muchas gracias por tu respuesta.

El problema es que con SQLRRD, al hacer dbgobottom() no baja la barra de scroll, ni tampoco funciona el método para forzarlo, ni sendmsg.

Just define the needed position from inside the used DBF
and not from a defined xBrowse row-position like :

activate dialog oDlg centered ;
on init DBGOBOTTOM() // seek or anything else

// on init ( oBrw:VGoBottom(), oBrw:oVScroll:SendMsg( VK_DOWN ) )

regards
Uwe

... you have sent me, it is possible to navigate in the xBrowse by moving the vertical scroll bar. The only remaining problem is if I perform a DbGoBottom() and then call xBrowse, the vertical scroll bar still appears on top. OrdKeyCount() works perfect under SQLRDD, but OrdKeyNo() is not supported, ...

... OrdScope( 1, Nil ) ) ? COUNT TO nDuplicados FOR FIELD->NUMERO == nNumero ? COUNT TO nRegistros si DBCLEARFILTER si DbDelete si DbDelete() si DbGoBottom() si Dbgoto( nregistro ) si Dbseek( nCodigo ) si dbSelectArea si DbSetOrder(1) si DBSKIP si DBSKIP() ? DELETE ALL FOR EMPTY( FIELD->CODIGO ...

... aquí todo perfecto..., pero cuando hago un olistbox:refresh() o un olistbox:gobottom(), me genera un error del tipo: Area de trabajo no usada: DBGOBOTTOM ... y no es capaz de seleccionar la tabla 36, cuando realmente ya se lo indico anteriormente. Supongo que la solución pasa por rearmar nuevamente ...

... aIng:=array(2) aIng:={1,Space(30)} lPasar:=.F. endif if ContarReg(BEN)>0 nInd:=Benefi->(Indexord()) Benefi->(dbSetorder(1)) Benefi->(dbGoBottom()) aIng[1]:=Benefi->(Fieldget(2))+1 Benefi->(dbSetorder(nInd)) endif DEFINE DIALOG oDlg RESOURCE "INGBEN" FONT oLetra REDEFINE ...

... application. In the old management (dbf share) I created the customer code in this way: IF lNew (ODCli) -> (DbSetOrder (1)) (ODCli) -> (DbGoBottom ()) CCLI: = StrZero (Val ((oDCli) -> NumCli) +1.4) (ODCli) -> (DbGoTo (NREC)) (here the other fields) ELSE CCLI: = (oDCli) -> NumCli ...

... DBFilePut(<nFieldPos>,<cSourceFile>,[<Mode>])->lSuccess DBFilter()->cFilter DBFSize()->nFileSize DBGoBottom()->Nil DBGoTo(<nRecordNumber>)->Nil DBGoTop()->Nil DBInfo(<nDefine>,[<xNewSetting>])->xCurrentSetting DBJoin(<cAlias>,<cDatabase>,[<aFields>],[<bFor>])->lSuccess ...

... DBCopyExtStruct DBCopyStruct DBCreate DBCreateIndex DBDelete DBDrop DBEdit DBEval DBExists DBF DBFieldInfo DBFileGet DBFilePut DBFilter DBFSize DBGoBottom DBGoTo DBGoTop DBInfo DBJoin DBList DBOrderInfo DBPack DBRecall DBRecordInfo DBReindex DBRelation dbRename DBRLock DBRLockList DBRSelect ...

... cRegis:=RECNO() ORD_ACT = INDEXORD() SET ORDER TO XORDEN DBSEEK((XCLAVE)) IF FOUND() .AND. !DELETED() RET = EVAL(FIELDBLOCK(XCAMPO)) ELSE DBGOBOTTOM() RET = SPACE(LEN(EVAL(FIELDBLOCK(XCAMPO)))) ENDIF SET ORDER TO ORD_ACT DBGOTO(cRegis) SELECT(AREA_ACT) RETURN RET Regards, Daniel Puente

... es la misma línea) SELECT(::cAlias) // sin error DEFAULT ::bGoTop := {|| ( ::cAlias )->( DbGoTop() ) },; ::bGoBottom := {|| ( ::cAlias )->( DbGoBottom() ) },; ::bSkip := {| n | ( ::cAlias )->( DbSkipper( IfNil( n, 1 ) ) ) },; ::bBof := {|| ( ::cAlias )->( Bof() ) },; ::bEof := {|| ...