FiveTech Software tech support forums

... ADO, we can use appropriate connection string from http://www.connectionstrings.com ------------------------------- > oCol:bStrData := { || str(field1 + field2 + field3) } > it is not any more necessary in xbrowse to covert values as character values. Use of bStrData is deprecated according ...

How about something like:

oCol:bStrData := { || str(field1 + field2 + field3) }

... Días foro, estoy haciendo pruebas y me gustaría saber ¿cómo puedo conocer la existencia de un data de una clase?, es decir. class myclass data field1 data field2 data field3 .... end class quiero saber si existe por ejemplo clase:field3. He probado: if type('clase:field3') == "UI",con valtype, ...

Thank for answer
I don't think is a "str()" problem because
padl(field1,8,"0") returns "0000****"
and
padr(field1,8,"0") returns "****0000"
and this happen with xharbour december build and ONLY with ADT tables

Gianni,

This looks Post:
http://fivetechsoft.com/forums/viewtopic.php?t=9079&highlight=

The problem is the function str()
Used str( field1, 11) instead of str( field1 )

... those fields in the browse you wish to view .. SELECT * from table can get UGLY if you have a lot of records and lots of fields .. consider SELECT field1,field2,field3 from table order by field1... and I would highly consider you stay away from a full table scan and include a where clause for only ...

... strange behaviour. This is my code : ------------------------------------- PRIVATE Niv := 1 DEFINE DIALOG DiaDlg NAME "DIALOG" REDEFINE oGET1 VAR FIELD1 ID 101 OF DiaDlg PICTURE "XXX" ... REDEFINE oGET9 VAR FIELD9 ID 109 OF DiaDlg PICTURE "XXX" REDEFINE BUTTON ID 200 OF DiaDlg ACTION(Niv:=9,DiaDlg:End()) ...

Hello, I notice a problem with the focus in the GET-class which didn't happen in FW16. The code : REDEFINE GET oGET1 VAR FIELD1 PICTURE "XXX" .... REDEFINE GET oGET6 VAR FIELD6 PICTURE "999" VALID !EMPTY(FIELD7) .OR. ACTGEM() REDEFINE GET oGET7 VAR FIELD7 PICTURE "XXX" where : ACTGEM() ...

... the environment too because I have good experience in php+mysql development If I do a connection to a table with no records, TDatabase method oDB:Field1 returns a empty value, this is good for me. The same thing in a empty table with TAdo method oQry:oRs:Fields ('field1'):value returns an error ...

... net path mapping. So I open both exe file and dbf file from PPC on LAN. USE (CurDir()+"\dbffile") new shared alias wd if wd->(rLock()) wd->field1:="any value" Else msgInfo("LAN error") EndIf use ("\\192.168.0.15\share\customer") shared -> display "open error" on my PPC regards Eugeniusz

... oSheet := oBook:Worksheets(1) nLine:=1 (cDBFILE)->(DBGOTOP()) DO WHILE !(cDBFILE)->(EOF()) oSheet:Cells( nLine, 1 ):Value = (cDBFILE)->Field1 oSheet:Cells( nLine, 2 ):Value = (cDBFILE)->Field2 nLine:=nLine+1 (cDBFILE)->(DBSKIP(1)) ENDDO oExcel:Visible := .T.

... " select * into #temo from dbf " ) sqlarea -> ( DBCLOSEAREA() ) ADSCreateSQLStatement("SQLarea",3) AdsExecuteSqlDirect( " update #temp set field1=field2" ) esto va miles que digo millones de veces mas rapido que raro?????????? creo que debere escribir al foro de xHarbour, solo que mi problema ...

Felipe: Usa vectores para la definicion del browse: Local VEC_FIELD1 := { {|| ART->COD} ,; { || ART->CLAVE } ,; VEC_ENC1 := { OEMTOANSI("C¢d."),; " Clave",; VEC_SIZE1 := {70,109,226,77,77,64,109,73,40,110,52,52,52,90,90},; VEC_JUSTIF := {2,2,0,2,2,2,0,0,0,0,0,2,2,0,0},; Solo que en tu caso hac...

... myfile.dbf shared new DATABASE oMyfile As a test I open a dialog with some gets and test SAVE and CANCEL. oMyFile:Load() Redefine Get.... oMyfile:Field1 etc.... If the user selects SAVE I issue a oMyfile:Save() So far it works they way I expect. Now I ran my program twice (2 copies at the same ...

Leonor: Respecto al error en el bloque, si, el operador & tiene un limite. Tendrias que dividir su contenido o llamar a una funcion que haga el trabajo y devuelva un valor. Tampoco es necesario que todas las definiciones de las columnas del browse las tengas en un codigo de bloque, prodrias usa...