FiveTech Software tech support forums

... yo lo hago asi WITH OBJECT :COCHE :AddResource( "#1006" ) :AddResource( "#1007" ) :bBmpData := { || if ( ALLTRIM((oP:Situavl:fieldget(12)) ) == "FS" , 1, 2 ) } :nHeadStrAlign = AL_CENTER :oHeaderFont = fontB1 :oDataFont = fontB1 END suerte..

... de variables en un arreglo Do while .t. WITH OBJECT oP:Queryavl :GetRow() ******* Carga en variable el primer registro Data1:= oP:Queryavl:FieldGet( "datos" ) ********* Desglosa registro cUsuario := substr(Data1,1,4 ) cfecha :=substr(Data1,5,10 ) chora :=substr(Data1,19,10,) cPLaca ...

... aParadasida[oP:Cuantoshay,4] Local aParadasvue[oP:Cuantoshay,4] do while .t. Puntero:=oP:QueryPara:recno() aParadasida[Puntero,1]:=oP:QueryPara:FieldGet("latIDA") aParadasida[Puntero,2]:=oP:QueryPara:FieldGet("lonIDA") aParadasida[Puntero,3]:=oP:QueryPara:FieldGet("nlargo") ...

... "No se ha podido calcular la distancia error en datos ") RETURN END oP:GpSDistancia :REFRESH() Op:GpSresultado := oP:GpSDistancia :FieldGet(1) Alert(Op:GpSresultado ) Return ********************************************************************************* Veamos la soluciónd e una ...

Hello ,

It is ok , i was confused using VALTYPE(Fieldget(1)) , giving 'N'

Frank

... FieldDec(<nFieldPos>)->nDecimalPlaces FieldDeci(<cFieldName>|<nFieldPos>)->nDecimals FieldGet(<nField>)->ValueField FieldGetArr([<nRecNo>])-><aFieldValues> FieldLen(<nFieldPos>)->nFieldLength FieldName(<nPosition>)->cFieldName ...

... ErrorNew ErrorSys Eval ExeName Exp Expand Exponent Fact Fahrenheit FClose FCount FCreate FErase FError Field FieldBlock FieldDec FieldDeci FieldGet FieldGetArr FieldLen FieldName FieldNum FieldPos FieldPos FieldPut FieldPutArr FieldSize FieldType FieldWBlock File FileAttr FileCopy FileDate ...

...      for n = 1 to Len( ::aBuffer )         ::aBuffer[ n ] = ( ::cAlias )->( FieldGet( n ) )      next  In other words, after the skip(), a load() is issued for the contents of the record. IF n ...

... not like one of the values in the date fields it sees. It fails at line 1048: for n = 1 to Len( ::aBuffer ) ::aBuffer[ n ] = ( ::cAlias )->( FieldGet( n ) ) next SO ... Any thoughts on a strategy here to trap in invalid date existing in a field ? All ideas will be appreciated.

... value to be used for the field while appending new data. Default values are first saved to DBF before saving data in aBuffer( FWH 17.08) 34. FieldGet( nPos/FieldName ) --> uValue 1. Parameter can be field number, field name, alternative name or virtual field name. Returns value of the ...

... important to improve the safety of tdatabase class. This is implemented in 17.08. If you example is tried with 17.08, oStates:GoTop(), oStates:FieldGet(1), oStates:FieldPut(), etc. produce runtime error as they should. The same example runs without runtime errors with all versions upto 17.07, ...

... (Char Type) , but the browse will take field 9 (num data) and put a '0' in the field, because he thinks it is a fieldnum field. The code is using fieldget(n), but I think it should take the fieldname of the 6th colom ?    @ 450,870 XBROWSE oBrw4 SIZE 550,250 ;      PIXEL OF oWnd font oFont3;  ...

... := "CxC" aoCols[6]:AddBmpHandle( "Chk_T" ) aoCols[6]:AddBmpHandle( "Chk_F" ) aoCols[6]:bBmpData := {|| IF(oQry:FieldGet("escxc"), 1, 2) } aoCols[6]:nDataStrAlign := AL_CENTER aoCols[6]:nHeadStrAlign := AL_CENTER Saludos

And with one array of colors for use with one parameter passed of codeblock and ("KUNDE")->fieldget( n ) instead of the field name

Sorry my english

... in the aStrcture are converted suitably while accessing and assignment. - Expressions like "QUANTITY * PRICE" can be used. Eg: ? oData:FieldGet( "QUANTITY * PRICE" ) - Sorting: Method SetOrder( fieldname, nil, lDescend ) - SetOrder is possible only with single fieldname. - ...