FiveTech Software tech support forums

... default add/edit dialog is fixed. (e) Improvement: While saving ADO RecordSet, if length of character value assigned is greater than the field's DefinedSize, the value is truncated to avoid runtime error. * Enhancement: TBtnFlat: (a) Improved painting of multi-line prompt (b) If width spedified ...

oRs:Fields( 1 ):DefinedSize is giving me the correct sise of a CHAR-field, but for numeric fields Precision gives not a correct value and NumericScale is always 255. Works fine for me. Please note that you have to define the field ...

Enrico, Thanks for the usefull link to http://www.w3schools.com/ado/ado_datatypes.asp oRs:Fields( 1 ):DefinedSize is giving me the correct sise of a CHAR-field, but for numeric fields Precision gives not a correct value and NumericScale is always 255. I think it's not possible ...

wmormar wrote:oRecord:field:name // nombre
oRecord:field:type // tipo
oRecord:field:definedsize // longitud

Gracias William, por allí encontré también NumericScale para las posiciones decimales.

Un abrazo.

Manuel Mercado

... el nombre, tipo, longitud y decimales de los campos. Gracias Manuel Mercado oRecord:field:name // nombre oRecord:field:type // tipo oRecord:field:definedsize // longitud bueno, por ahi la cosa saludos

Mr Carlos I totally agree with you. And my personal code is more elaborate. We need to examine the Type first and then decide whether to use DefinedSize or Precision and Scale. This code would be much longer and I gave the above code which is simpler for demonstrative purpose. That is the reason, ...

... xbrAdoSetField( oBrw, oRs, cnFld ) local oCol := oBrw:AddCol() local nwidth := oRs:Fields( cnFld ):DefinedSize WITH OBJECT oCol :cHeader := oRs:Fields(cnFld):Name :bStrData := { || If( oRs:Eof, Space( ...

... PUBLIC codigo,uf,municipio IF tipo="A" codigo=Tabela:Fields("codigo"):Value uf=ESPANTES(Tabela:Fields("uf"):Value,Tabela:Fields("municipio"):DefinedSize) municipio:=ESPANTES(Tabela:Fields("municipio"):Value,Tabela:Fields("municipio"):DefinedSize) ENDIF IF tipo="I" codigo=0 uf=SPACE(2) municipio=SPACE(30) ...

... oADO:Fields( i - 1 ):Type ) aField[ UR_FI_TYPEEXT ] := 0 aField[ UR_FI_LEN ] := ADO_GETFIELDSIZE( aField[ UR_FI_TYPE ], oADO:Fields( i - 1 ):DefinedSize )// 80 // set any arbitrary length - the real size will be differ aField[ UR_FI_DEC ] := 0 UR_SUPER_ADDFIELD( nWA, aField ) NEXT nResult ...