Definir campo en dbase num(1,0) / ftBCD

[DavidLM2007]

Os cuento mas pruebas

Si pongo:

with AddFieldDef do begin
Name := 'TCasado';
DataType := ftBCD;
Size := 0;
Precision := 2;
end;

Lo genera prefectamente.

Si pongo:

with AddFieldDef do begin
Name := 'TCasado';
DataType := ftBCD;
Size := 2;
Precision := 5;
end;

y luego en el campo (directamente en el DB Desktop) introduzco el valor

236,23 -> se convierte en 236,20
16,24 -> se convierte en 16,24
12345,62 -> se convierte en 12346,00

[DavidLM2007]

Sigo haciendo pruebas..

Si pongo
Precision: 1, size: 0 --> 20, 4 ,
Precision: 1, size: 1 --> 20,4 ,
Precision: 2, size: 1 --> Error Invalid field descriptor

Creo que lo que pasa es que por lo menos tenemos que definir dos de precsion porque la coma cuenta tambien.

Cualquier pista, ayuda sera bienvenidad

necesito crear el campo numeric 1,0 !!!!


GRacias.

[Jose_Pérez]

Ya sé que ha llovido mucho desde que hiciste tu consulta. Pero he tenido tu mismo problemas y navegando había llegado hasta aquí. Y como posteriormente he dado con una solución, aquí la dejo. Más vale tarde que nunca.

Pues resulta que, al menos en el formato dBase III+, utilizando AddFieldDef no deja crear un campo binario, es decir, num(1,0). ¿Solución? Lo creamos, como num(2,0) y, una vez creada la tabla, abrimos el archivo y reescribimos la longitud deseada.

Código Delphi [-]

With AddFieldDef Do
     begin
     Name:= 'Campo';
     DataType:= ftBCD;
     Size:= 0;
     Precision:=2;
     end;

Tabla.CreateTable;

// Posición es la que ocupa el campo en la descripción de la estructura de la tabla.
SetLengthBinary('c:\NombreTabla.dbf',Posicion);

Código Delphi [-]
procedure TfrmEstructura.SetLengthBinary(dbFile: String; PosicionCampo: Integer);
const
  Value: Byte=1;
var
  F: File of byte;
begin

  AssignFile(F,dbFile);
  Reset(F);
  Seek(F,(PosicionCampo*32)+16);
  Write(F,Value);
  CloseFile(F);

end;