TIBquery y campos persistentes en tiempo de ejecucion

[mjjj]

Estimado, sigo sin poder resolver esto... tal como tu lo expones (en teoría debería funcionar), pero no es así, me arroja un error a pesar que las tablas son identicas.

Finalmente estoy tratando de crear los campos persistenes en ejecución con el siguiente copdigo (en diseño no existen), por ejemplo para algunos de los campos persistentes

Código Delphi [-]
..
var query: tibquery;
var field: tibbcdfield;
..
field := tibbcdfield.Create(Self);
field.Name := 'ibquery2notas';
field.FieldKind := fkdata;
field.FieldName := 'notas';
field.Size := 200;
field.DisplayWidth := 200;
field.origin := 'COMPRAS_DETALLE.NOTAS';
field.DataSet := query;
 
field := tibbcdfield.Create(Self);
field.Name := 'ibquery2noc';
field.FieldKind := fkdata;
field.FieldName := 'noc';
field.DataSet := query;

field := tibbcdfield.Create(Self);
field.Name := 'ibquery2ncorr';
field.FieldKind := fkdata;
field.FieldName := 'ncorr';
field.DataSet := query;
field := tibbcdfield.Create(Self);
field.Name := 'ibquery2nombre';
field.FieldKind := fkinternalcalc;
field.FieldName := 'nombre';
field.Size := 30;
field.DataSet := query;
field := tibbcdfield.Create(Self);
field.Name := 'ibquery2cantidad';
field.FieldKind := fkdata;
field.FieldName := 'cantidad';
field.Precision := 18;
field.Size := 4;
field.DataSet := query;
field.DisplayFormat :='#,##0';

El error que me arroja dice así:
Para el campo Notas: field 'notas' expecting: BCD actual WideString
Para el campo Noc: field 'noc' expecting: BCD actual: Largeint

asi sucecivamente para el resto de los campos.

Como puedo resolver esto?
Espero me puedan ayudar.

[ecfisa]

Hola.

Te pongo un ejemplo con tres tipos de campos que tal vez te sirva de guía:

Código Delphi [-]
...
var
  Query: TIBquery;
  QueryID: TIntegerField;
  QueryTipo: TIBStringField;
  QueryMonto: TFloatField;

procedure TForm1.btnCrearPersistentesClick(Sender: TObject);
begin
  Query:= TIBQuery.Create(Self);
  Query.Database:= IBDatabase1;
  Query.Transaction:= IBTransaction1;
  Query.SQL.Text:= 'SELECT * FROM TABLA';
  
  QueryID:= TIntegerField.Create(Query);
  with QueryID do
  begin
    FieldName:= 'ID';
    Name:= 'QueryID';
    FieldKind:= fkData;
    DisplayLabel:= 'ID';
    DataSet:= Query
  end;

  QueryTipo:= TIBStringField.Create(Query);
  with QueryTipo do
  begin
    FieldName:= 'TIPO';
    Name:= 'QueryTipo';
    FieldKind:= fkData;
    DisplayLabel:= 'TIPO';
    Size:= 1;
    DataSet:= Query
  end;

  QueryMonto:= TFloatField.Create(Query);
  with QueryMonto do
  begin
    FieldName:= 'MONTO';
    Name:= 'QueryMonto';
    FieldKind:= fkData;
    DisplayLabel:= 'MONTO';
    DisplayWidth:= 10;
    DisplayFormat:= '0.00';
    DataSet:= Query;
  end;
  Query.Open;
  ShowMessage(QueryID.AsString+' - '+QueryTipo.AsString+' - '+QueryMonto.AsString);
end;

Saludos.

[mjjj]

Vamos mejorando, todos los campos persistentes de tipo string e integer esta funcionando bien, pero los de tipo float, me arroja el siguiente error

Ibquery2: Type mismatch for firld 'CANTIDAD', expecting: FLoat actual BCD'

el código que utiliza está así

Código Delphi [-]
var queryfloat:   Tfloatfield;
..
 queryfloat:= TFloatField.Create(Query);
  with queryfloat do
  begin
    FieldName:= 'cantidad';
    Name:= 'IBquery2cantidad';
    FieldKind:= fkData;
    precision := 18;
    DisplayLabel:= 'CANTIDAD';
    DisplayWidth:= 19;
    DisplayFormat:= '#,##0';
    DataSet:= Query;
  end;

Que es BCD??
Como lo soluciono?

Gracias

[[maeyanes]]

Hola...

Yo sigo insistiendo que no necesitas crear los campos así en tiempo de ejecución. El componente TIBQuery ya crea los campos al momento de ejecutar la consulta, lo único que tienes que hacer es configurar los campos que quieras:

Código Delphi [-]
begin
  TFloatField(IBQuery2.FieldByName('CANTIDAD')).DisplayFormat := '#,##0'
end;

Saludos...

[ecfisa]

Empezado por maeyanes

Hola...

Yo sigo insistiendo que no necesitas crear los campos así en tiempo de ejecución. El componente TIBQuery ya crea los campos al momento de ejecutar la consulta, lo único que tienes que hacer es configurar los campos que quieras:

Eso es totalmente cierto, basta con hacer:

Código Delphi [-]
var
  Query: TIBQuery;
begin
  Query:= TIBQuery.Create(Self);
  with Query do
  begin
    Database:= IBdatabase1;
    Transaction:= IBTransaction1;
    SQL.Text:= 'SELECT * FROM UNA_TABLA';
    open;
  end;
  TFloatField(Query.FieldByName('CANTIDAD')).DisplayFormat := '#,##0'; // (copio código de maeyanes)
  Datasource1.DataSet:= Query;

Para que estén todos los campos disponibles. Hay que acceder con FieldByName como bién mostras en tu mensaje anterior y no por el nombre de variable del campo persistente. A mí entender es un detalle sin importancia y no amerita escribir tanto código, pero como ví que antes lo mencionaste y se continuó por el lado de la creación manual...

Saludos.

[mjjj]

Eso era todo!!

Gracias por su ayuda, esta funcionando perfecto.
Salu2