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

[marcoszorrilla]

Aunque te hablo de memoria, sino recuerdo mal en Dbase el ancho del campo es contando la coma y los decimales por ejemplo ancho 3 y 1 decimal=1,5
tres posciones 2 números más la coma.

Prueba así a ver y nos cuentas:

with AddFieldDef do begin
Name := 'Campo';
DataType := ftBCD;
Size := 2;
Precision := 1;
end;

Espero te sirva.

[DavidLM2007]

Gracias por la respuesta,

Nada, no funciona, pone Size 20 y dec 4, creo que es el máximo porque cuando no especificas precision ni size es lo que pone.

Por ejemplo si quiero un numerico de 5 digitos y 2 decimales pongo y funciona perfectamente

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

[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;