FiveTech Software tech support forums

... evaluate to a character value only and that will remain like that in future also. It is intentional that if the codeblock evaluates to any other datatype, it results in a runtime error, pointing out the programming mistake. This is so with all the browses. It is only xbrowse that gives the flexibility ...

Quique,

ok, the problem that we find in your code is this line:

local lMatriz := ::nDataType in { DATATYPE_ARRAY, DATATYPE_HASH }

it is not supported by Harbour so we need to find a way to make it compatible

Have you tested your proposed changes with Harbour too ? thanks,

Marco, To start with the row should contain at least one row. XBrowse uses this row to examine and store information about datatype, default picture, default alignment, etc. Then from the ON INIT clause of the Dialog or Window, resize the array to 0. Example: aNames:={} ...

... oCol := oBrw:AddCol() oCol:nArrayCol := 3 // no need to write oCol:bStrData := { || cValToStr( aData[oBrw:nArrayAt][3]( } // the value can be any datatype, we do not need to convert to char value oCol:cSortOrder := 3 // automatically sorts on 3rd column

... 2, 5 ; HEADERS "First", "Second", "Third" ; OF oWnd ; ARRAY aData is enough. Even the array elements can be of any datatype, xbrowse handles the necessary conversions. If we still want to use the traditional tcbrowse command syntax, that is also possible to add columns ...

... method may be called with the array containing atleast one dummy row. This dummy row enables the browse object to assign columns with proper datatypes and widths. After oBrw:CreateFromCode(), add the two lines ASize( aData, 0 ), oBrw:Keycount(). * TXBrwColumn enhancements: a) New DATA nArrayCol. ...

Hello from Germany With all extern Browsers i know, DBAdmin, DBView and so on it is possible to switch between ANSI and OEM With some small changes in the xBrowse-Class you can do the same. It is possible, to read, edit und write in OemToAnsi-Style. with xBrowse Sample : oBrw5 := TXBrowse():New( oDl...

... docs, in the explanation for DLL32 it does not list LPLONG as a data type, though it does list LPSTR. Insofar as this seems to be a common C datatype, can LPLONG be added as a valid data type used in a C function that is included in a DLL? Specifically, I'm getting this error with the Protection ...

Gracias Manuel, finalmente pude hacer la conexión a Oracle vía ADO, tengo una pregunta que hacerte, has usado en tus querys en la clausula WHERE capos tipo fecha? y si es el caso, te funcionan bien, a mi no? Mario, Aquí estamos aprendiendo a "porrazos" y con la ayuda de todos. Por eso sería bueno n...

In the constructor method ( New ) of xbrowse, nDataType is assigned a value of DATATYPE_RDD. Even the methods SetArray or SetADO do not change the nDataType. Therefore the nDataType always remains to be DATATYPE_RDD. The Initiate method of xBrowse executes SetRDD, because nDataType is DATATYPE_RDD, ...

METHOD Report( cTitle, lPreview, aHeaders, aFooters, cCaption,lModal ) CLASS TXBrowse Local oRpt ,nCols := Len( ::acols ), oldbskip:=::bskip local odevice,cmsg:={"Print","Date","time","Page"} oDevice := TPrinter():New(cmsg[1],.t.) if odevice:hdc==0; odevice:end(); return .f.; end odevice:end() Defau...

oRpt:bSkip := { || oRpt:Cargo := ::rptSKIP( ) } Method Rptskip() class Txbrowse local n1,n1old n1old:=::skip(1) n1:=n1old IF len(::aSelected)>0 While AScan( ::aSelected, If( ::nDatatype==DATATYPE_ARRAY,::nArrayAt,eval(::bKeyno)))==0 n1+=::skip(1) if ::nDATATYPE<>DATATYPE_ARRAY if eval(::bKe...

METHOD SetMySQL(oQuery) METHOD Report( cTitle, lPreview, aheaders,afooters,oFont, nLang, cCaption, lModal ) METHOD RPTSKIP() METHOD NTOTAL() METHOD SAVE() METHOD end() INLINE ::Destroy() METHOD SetMySQL(oquery,ledit) CLASS TXBrowse ::nMarqueeStyle := MARQSTYLE_HIGHLCELL ::nColDividerStyle := LINESTY...