FiveTech Software tech support forums

... lines of code in a single sequence. For instance, I think the methods should be placed in separate classes: METHOD SetDolphin( oMysql, lAddCols, lAutoOrder, aFldNames ) METHOD SetMySql( oMysql, lAddCols, lAutoOrder, aFldNames ) // TMySql object METHOD SetColFromMySQL( cnCol, cHeader ) // used ...

... lines of code in a single sequence. For instance, I think the methods should be placed in separate classes: METHOD SetDolphin( oMysql, lAddCols, lAutoOrder, aFldNames ) METHOD SetMySql( oMysql, lAddCols, lAutoOrder, aFldNames ) // TMySql object METHOD SetColFromMySQL( cnCol, cHeader ) // used ...

... de más de 10.000 registro, por lo que comentando estas líneas (marcadas con *) en XBrowse.prg el problema se resuelve METHOD SetRDD( lAddColumns, lAutoOrder, aFldNames, aRows ) CLASS TXBrowse :::::: else if ( ( ::cAlias )->( RDDName() ) == "DBFCDX" ) * if ( ::cAlias )->( LASTREC() ...

... line: ::bGoBottom := {|| If( ::oRs:RecordCount() > 0, ::oRs:MoveLast(), nil ) },; Can you please verify at METHOD SetAdO( oRs, lAddCols, lAutoOrder, aFldNames ) CLASS TXBrowse that oRs is not nil?. Thank you.

Te había contestado sin saber quien eras!!!

A ver si quedamos un día por Dos Hermans o en Utrera no?

Creo que el metodo tiene lo que tu quieres:
SetRDD( lAddColumns, lAutoOrder, aFldNames, aRows )

Sólo tendrías que crear los arrays pertinentes

Creo que usando el método SetRDD, este es el prototipo: SetRDD( lAddColumns, lAutoOrder, aFldNames, aRows ) Ningun parametro es obligatorio asi que haz la siguiente prueba: SELECT Cliente oBrw:setRDD() oBrw:refresh() Luego podrás probar con parametros :D En los ...

... kind of error shown in the log. ( where nil is used as logical ) erro: ( ::cAlias )->( DbInfo( DBI_ISREADONLY ) ) METHOD SetRDD( lAddColumns, lAutoOrder, aFldNames, aRows ) CLASS TXBrowse ... ::lReadOnly := ( ::cAlias )->( DbInfo( DBI_ISREADONLY ) ) ... erro: ::oBrw:lReadOnly METHOD Value( ...

Thanks for your recommendation to use SetRDD before assigning DATA or codeblocks, that solves the problem due after executing SetRDD I can change the codeblocks, and Initiate will not run again SetRdd. That is how XBrowse is intended to be used. Any further developments assume xbrowse is used the w...

Hi, many thanks for your answer. Thanks for your recommendation to use SetRDD before assigning DATA or codeblocks, that solves the problem due after executing SetRDD I can change the codeblocks, and Initiate will not run again SetRdd. After reviewing the xBrowse class, another alternative is to defi...

It is highly desirable to first call oBrw:cAlias := <youralias> oBrw:SetRdd( .... ) before assigning any of your data and codeblocks. If you do not explicitly call SetRdd( .. ) initially in the program, XBrowse at the time of initializing by default calls SetRdd(), but this is not recommended....

... en el metodo SetRdd, que se llama siempre desde el metodo initiate. Antes habia un if, que hoy aparece comentado, en la linea 3979. //   if lAutoOrder      (::cAlias)->( OrderTagInfo( aStruct, 8 ) )      for nFor := 1 to Len( ::aCols )         if ( ...

Rick, revisa el METHOD SetArray( aData, lAutoOrder, nColOrder, aCols, bOnSkip ) CLASS TXBrowse, saludos... :shock: DEFAULT ::bGoTop := { || ::nArrayAt := Min( 1, Eval( ::bKeyCount ) ), Eval( ::bOnSkip, Self ) }, ; ::bGoBottom := { || ::nArrayAt ...

... as RecNo() and DbGoTo() functions, we may set oBrw:bkeyNo := oBrw:bBookMark 2. oBrw:bSeek: If we specify AUTOSORT clause in command syntax or lAutoOrder ( 2nd parameter ) as .t. in SetRDD( cAlias, .t. ) method, XBrowse automatically creates the bSeek codeblock. This codeblock is quite advanced ...

oxBrw:bSeek := {|c| (::cAlias)->(DbSeek( Upper( c ) )) } Even this fails if no order is set. XBrowse assigns a default bSeek only when lAutoOrder is specified. When we specify lAutoOrder, it is better to leave the responsibility of defining bSeek to XBrowse. If lAutoOrder is not specified ...

Otto,

Try this:

oxBrw:bSeek := {|c| (::cAlias)->(DbSeek( Upper( c ) )) }

Take a look at TXBrowse:setRDD(). If you use that and set lAutoOrder =.t. then you bSeek will be set automatically by xbrowse.

James