FiveTech Software tech support forums

... FWH XBrowse. Please do not spend time in writing your own functions. Save time for other things. What all required is just set this flag oBrw:lOemAnsi := .t. Please try this one line code to view the table: XBROWSER "OEM_LIST.DBF" FASTEDIT SETUP ( oBrw:lOemAnsi := .t. ) We ...

... like :ToExcel() or DbfToExcel() do not require the user to convert data into utf8. What all the work a programmer needs to do is to set oBrw:lOemAnsi := .t. or oCol:lOemAnsi := .t. for the required columns and then export to Excel. All conversions will be automatically taken care by the FWH ...

... https://imagizer.imageshack.com/v2/xq70/924/bgfpPN.png Now XBrowse also can display OEM data by converting to ANSI, if we set oBrw:lOemAnsi := .t.. If we want this conversion only for some columns but not all, we can set oCol:lOemAnsi := .t. for the required columns instead of setting ...

... ;    PICTURES '@!' , '@!', '@!' ;    ID 609 OF oDlg1;    FONT oFont1;    FOOTERS LINES CELL oBrw:lOemAnsi := .T.oBrw:nEditTypes := EDIT_GET  Do not use FIELDS clause. Use COLUMNS clause. Use oBrw:lOemAnsi or oCol:lOemAnsi Now you can inline-edit ...

... are read into ::aBuffer array whenever row is moved or modified. If .f., ::aBuffer is not used and fields are directly assessed and written. 19. lOemAnsi ( Type: "L" Default: .F. ): If .T., charactger values are converted using OemToAnsi() and AnsiToOem() while reading and saving. 20. ...

... * Price", ... work exactly the same way for different datasources. This enables use of the same code for different datasources. - New Data lOemAnsi for Column Objects also. lOemAnsi can be turned on/off for individual columns or for the entire browse dynamically. - Enhancement: Pressing ...

... aBuffer DATA bBoF, bEoF, bNetError AS CODEBLOCK 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 ...

... the columns are rearranged by the user. Accessing column data returns an array of values. Example: aHeaders := oBrw:cHeaders * xbrowse: New DATA lOemAnsi ( default .f. ): When set to .t., SetRDD method builds bEditValue codeblock for the fields converting from OemToAnsi() and AnsiToOem(). If ...

David,

A nivel de RDD de Harbour no hay ningun SET o parecido (que sepamos), pero a nivel de FWH si usas la Clase TDataBase tienes el dato lOemAnsi que automaticamente hace las conversiones:

oDataBase:lOemAnsi = lOnOff

... Load() CLASS TAdoBase local n:=0 //::aBuffer := Array( ::nFields ) for n = 1 to ::nFields ::aBuffer[ n ] := ::AdoGetValue( n - 1 ) next if ::lOemAnsi ::OemToAnsi() endif return nil /* ******************** */ METHOD SetBuffer( lOnOff ) CLASS TAdoBase DEFAULT lOnOff := .t. if lOnOff != nil ...

... ;(oBrw6:nArrayAt))),nMaxWidth)} :nEditType := EDIT_GET :bOnPostEdit:= {|oCol,xValue,nLastKey|OnEdit(obrw6,oCol,xValue, ; nLastKey, lOemAnsi ), oDlg:Update() } END AEval( oBrw6:aCols, { |oCol, nCol| oCol:cHeader := ; { "FieldName", "Typ", "Len", "Dec","Value" }[ nCol ] } ) oBrw6:aCols[ ...

... of the new DB-Tool you will find in the forum in a short time It is possible to create a formated Excel-Sheet of any DBF-File. With the parameter lOemAnsi = .T. you can convert the DBF to Ansi The needed cellwidth is calculated. The Excel-Sheet can work with 4 Windows Its quick and easy to handle. ...

... oSUCH, aSCOPE, oINDKEY LOCAL oOemAnsi, lClrFlag :=.f. LOCAL nSCOPE := 1 LOCAL cFilter := SPACE( 70 ) LOCAL cFELD := "", l_INDEX := .F. LOCAL lOemAnsi := .T., cOemAnsi := "" LOCAL cFile1 := GET_DBF2() LOCAL DBFTYP := CabDbf (cFile1) LOCAL cEXPORT := "EXPORT.DBF " // ---------------------------------------- ...

... RESOURCE "BROWSER" OF oDlg PIXEL cFile1 := GET_DBF2() // the selected Database DBFTYP := CabDbf (cFile1) // DBF-Header-Info CDX or NTX IF lOemAnsi = .T. // wants to open a Oem or Ansi - Database cOemAnsi := "ANSI" ELSE cOemAnsi := "OEM" ENDIF IF DBFTYP = "CDX" RDDSETDEFAULT( "DBFCDX" ) ...

... := .t. // ---------------------------------------------- // ---------------------- NEW ----------------------- oBrw5:lOemToAnsi := lOemAnsi // Var for Oem / Ansi .T. or .F. // --------------------------------------------- // --------------------------------------------- oBrw5:SetRDD() ...