FiveTech Software tech support forums

Otto wrote:Yes, see this line.

oGet[1]:bGotFocus := {|| (oGet[1]:cText := STR(VAL(oGet[1]:cText) *100,6), oGet[1]:Refresh(),oGet[1]:SelectAll()) }
Cesar, changed the GETs to character that you get the inputstyle you wanted.

Yes but nvar Is text array but i have numbers no texts

... de un inicio Tengo que #include "Fivewin.ch"#include "xbrowse.ch"FUNCTION Main()LOCAL oDlg1, oGet := array(4), nVar := {'     0','     0','     0','     0'}, oBot1SET CONFIRM ON      DEFINE DIALOG oDlg1 TITLE "Ingreso de datos" SIZE 300,100 ...

... with "@Z 999.99" but it doesn't work, that is, at the beginning I see 0.00 in the get instead of just a zero. @ 60,20 GET aGet[2] VAR nVar SIZE 100,24 PIXEL PICTURE "@Z 999.99" OF oDlg RIGHT it run ok but I see 0.00 on the get but I wish see only a zero at right

... pero al compilar con HARBOUR no me avisa cuando una variable no existe, por ejemplo, si tengo declarada LOCAL cVar y mas adelante la llamo como nVar , el compilador no arroja error de variable indefinida . Compila sin problemas. Solo al ejecutar muestra el error. a que puede deberse esto? con ...

... TYPE local aElemento :={"Testo","Immagine","Barcode"} local aTipoData :={"Campo","Valore"} local nvar:=1 local nVar:=2 @ 8, 5 Say "Tipo Elemento " SIZE 80,14 PIXEL OF oDlg TRANSPARENT @ 8, 75 COMBOBOX aGet[1] VAR nVar1 ITEMS aElemento ...

... DEFINE FONT oFont1 NAME "TAHOMA" SIZE 0,-14 DEFINE FONT oFont2 NAME "TAHOMA" SIZE 0,-14 UNDERLINE @ 10,10 COMBOBOX oCbx VAR nVar Items aType Size 50,40 PIXEL of oDlg ; on CHANGE ( IIF( nVar=1, ( nRow-=12, oSay[1]:SetFont (oFont1 )), ( nRow+=12, oSay[1]:SetFont (oFont2 ) )), ...

Silvio,

just try :

@ 10,10 COMBOBOX oCbx VAR nVar Items aType Size 50,40 PIXEL of oDlg ;
on CHANGE ( IIF( nVar=1, nRow-=12, nRow+=12 ), ;
oSay[1]:Move( nRow ) , oSay[1]:refresh() )



best regards
Uwe

... into the database. This makes it easy to assign the contents of text/binary/image files to memo fields of database. * New function cNumToChar( nVar ) --> cVar This is similar to cValToChar( u ) but preserves the full accuracy of the number unlike cValToChar() Example: n := 35/16 // the value ...

field is also is a declaration just like local, static. When we declare field CITY,AGE local nVar, cVar Then wherever we use CITY, AGE the compiler understands that it is a field name and when we use nvar and cvar it understands that it is a local variable. This declaration ...

... ..... before starting to index. Why is that ? field is also is a declaration just like local, static. When we declare field CITY,AGE local nVar, cVar Then wherever we use CITY, AGE the compiler understands that it is a field name and when we use nvar and cvar it understands that it is a ...

... que su valor por defecto es NULL, revisa eso haber, estas declarando los objetos al valor de si mismo, eso no lo entiendo local cVar := space(n) o nVar := 0 local oGet1, oGet2 @ x, y GET oGet1 VAR cVar...... usas el mismo objeto como var @ 1.4,0.5 GET cIp VAR cIp SIZE 115,10

... pensando que es en alguna variable que no esta reconociendo tipo caracter o numerico ,en alltrim(str(nFnd)) ,es una cuestion mia. cVar:= SPACE() nVar:= 0 Saludos Atte: Adrian C. C.

... decimal tengo que teclear "0." Con la mascara que nos dice JoseLuis tampoco me funciona Saludos. Estan inicializando la Var en cero.? nVar := 0, asi inicializo mis VAR numericas y hasta ahora me trabaja todo como uds quieren, saludos... :shock:    REDEFINE GET aGet[6] ...

... table are "ID","FCODE","FNAME". Also if we use hungarian notation, we can easily identify a field variable. if nVar, cVar, lVar denote numeric, character and logical variables, fName indicates a field variable. Incidentally, this also avoids conflict with "ID".

... vayas a grabar en la base de datos. A la inversa, la libreria Dolphin los deja preparado para que harbour lo entienda, simplemente asignandolo: nVar := oQry:codigo. Yo no soy ni lejos un experto en Mysql, y es una buena oportunidad para que los expertos expongan cuales son los mejores tipos ...