FiveTech Software tech support forums

... olbx101c:acols[3]:bEditWhen:= { || olbx101c:aArrayData[olbx101c:nArrayAt][5]="C" } olbx101c:acols[3]:bOnPostEdit:= { |o,nval| hola(@acDescriptor,@acTemporal,olbx101c,nval) } olbx101c:acols[4]:nEditType:=EDIT_GET_LISTBOX olbx101c:aCols[4]:addbmpfile("\QASVE\config\bmp\BUSCAR16X16.bmp") ...

AScan( ASort( AClone( a ) ), { | n, nPos | n := cToD(a:cargo["fecha"]), If( nVal < n, nResult := AScan( a, n) ) - 1,), cToD(n) > nVal } )

estás seguro de que ese código te funciona bien ?

Gracias a ambos. tomo como ejemplo este: AScan( ASort( AClone( a ) ), { | n, nPos | If( nVal < n, nResult := AScan( a, n ) - 1,), n > nVal } ) en mi caso "n" voy a usarlo asi: cToD(a:cargo["fecha"]) Mi consulta: para que el codigo no quede ...

... European, "A" for American and others // .t. for showing thousand separators * New function nStrToNum( cNumericVal, [lEuropean] ) --> nVal Optional Parameter lEuropean defaults to FWNumFormat()[ 1 ] == "E". Converts any number formatted as string using either European notation ...

... bloque de código bSetGet como variable. Esto ayuda al programador a mejorar las capacidades del Get. Por ejemplo: bSetGet := { |x| If( x == nil, nVal * 100, nVal := x / 100 ) } @ r,c GET bSetGet <clauses,...> * XBROWSE: - Se espera que oCol:bBmpData devuelva un valor numérico, que es el ...

... possible to use a bSetGet codeblock as variable. This helps the programmer to enhance the capabilities of Get. Eg: bSetGet := { |x| If( x == nil, nVal * 100, nVal := x / 100 ) } @ r,c GET bSetGet <clauses,...> * XBROWSE: - oCol:bBmpData is expected to return a numeric values, which is the ...

DATA nMaximum

METHOD SetMaximum( nVal ) INLINE ::nMaximum := nVal

METHOD GetMaximum() INLINE ::nMaximum

The simplest way uses to be the best one

MsgCalc( nInitValue ) --> nVal

... funcion mia propia Dbzap() Select('wfprodu') __Dbtrans( select('Productos'),,{|| !Deleted() }, {|| nCount++, if( nCount >= 500 ,( oMeter:Set(nVal++),Sysrefresh(),nCount:=0,.T.),.T.)} ) Espero te sea de utilidad, Saludos Mariano

Mr. Rao, the problem is a index numeric + text + text I changed STR(nVal) to cValtoChar(nVal) and that seems to work :shock: But now my external dbf-editor shows a errormessage because he doesn't know -> cValtoChar I want to sort the two defined filters ...

Did You define a BAR-SEPERATOR

oGraph:nBarSep := nVal // Bar Separator

regards
Uwe

there is a bug on harbour
not run round function
but now I tried with
#xtranslate round(<nVal>,<nDec>) => val(str(<nVal>,20,<nDec>))
and run ok

converting my applications to Harbor made me waste only a lot of precious time

there is a bug on harbour
not run round function
but now I tried with
#xtranslate round(<nVal>,<nDec>) => val(str(<nVal>,20,<nDec>))
and run ok

Hello Silvio,
have you seen this line:
#xtranslate round(<nVal>,<nDec>) => val(str(<nVal>,20,<nDec>)) ?

Best regards,
Otto

... text containing formatted numbers either in American /European format are properly untranformed and pasted into the Get. * New function cNumToStr( nVal ) --> cVal. \fwh\source\function\valtostr.prg. Converts a numeric value retaining full decimal precision and formatting as specified in FWNumFormat(). ...