FiveTech Software tech support forums

... T. ) // Generates PRG code using dialog units.
content_copy
download
Use code with caution.
Harbour

11. SetRDD( lAddColumns, lAutoOrder, aFldNames, aRows )

Description: Sets the data source to an RDD (e.g., DBF database).

Parameters:

lAddColumns: LOGICAL - .T. to automatically add columns ...

... 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 internally from ...

... 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 internally from ...

... Local anchos,j,lFormato:=.F.
//Local Mas_n:={}
local aTable:={}
local nRow,ncol

Local oRtf,aMarca, cOutFile :="Plata.RTF", Sob1
Local aFldNames:= {" Ok ", " 2", " 3", "4","5","6", "7", "8", "9"}

AaDd(aTable,{1,,23,,44,,61,,80} )
AaDd(aTable,{,16,,36,,59,68,,89} )
AaDd(aTable,{,,28,,49 ...

... Local anchos,j,lFormato:=.F.
//Local Mas_n:={}
local aTable:={}
local nRow,ncol

Local oRtf,aMarca, cOutFile :="Plata.RTF", Sob1
Local aFldNames:= {" Ok ", " 2", " 3", "4","5","6", "7", "8", "9"}

AaDd(aTable,{1,,23,,44,,61,,80} )
AaDd(aTable,{,16,,36,,59,68,,89} )
AaDd(aTable,{,,28,,49 ...

... 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() ) > 10000 .and ...

... Se define el MESSAGE de una columna para tomar y dar valores.

static function GenDataField( oADODb, nPos )

Local cNameMethod := oADODb:aFldNames[ nPos ]

//#ifdef __HARBOUR__
local nClassH := oADODb:ClassH

__clsAddMsg( nClassH, cNameMethod, ;
{ | oADODb | oADODb:_FieldGet( nPos ...

DATAS

1. aBuffer ( ReadOnly Type: "A" ): Array holding the field values of the current record when ::lBuffer is .T.

2. aFldNames ( ReadOnly Type: "A" ): Array containing field names of DBF

3. aStruct ( ReadOnly Type: "A" ): Structure of the table, similar to DBSTRUCT(). aStruct has additional ...

... 4556 )
Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE( 438 )



Offending 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.

... these modifications:

1. delete all columns as in your code.
then
oBrw:lAdjusted := .f. // new
oBrw:SetADO( oRsNew ) // You may use last param aFldNames if you want specific fields

// Here you insert other code like changing bEditValue, SetCheck() etc.

Finally,
oBrw:Adjust() // new

I like your ...

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

En los ejemplos de FWH hay uno que se llama ...

... 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( uNew ) CLASS ...

... DATA cAlias, cFile, cDriver AS String INIT ""
DATA lReadOnly AS LOGICAL INIT .f.
DATA lOemAnsi
DATA lTenChars AS LOGICAL INIT .t.
DATA aFldNames AS Array
DATA oBookMark AS OBJECT
DATA lBlank AS LOGICAL INIT .f.

METHOD New( cAlias ) CONSTRUCTOR

METHOD Activate()

METHOD AddIndex ...

... local n

logfile("log.txt",{ ::recno(), "modified" } )

logfile("log.txt",{ "FieldGet", ::FieldGet( 1 ) } )


for n := 1 to Len( ::aFldNames )

if ! ( ::cAlias )->( FieldGet( n ) ) == ::aBuffer[ n ]
msginfo(( ::cAlias )->( FieldGet( n ) ))
msginfo(::aBuffer[ n ])
return .t ...