TIBquery y campos persistentes en tiempo de ejecucion

[mjjj]

Hola, este tema no se si deberia estar aca, pero tiene que ver con una consulta y campos persistentes (o al menos creo que se llaman asi).

Tengo una aplicación que utiliza TIBQuery para cunsultar a una BD Firebird. En tiempo de diseño he creado algunos campos persistentes (propios de la query en cuestion "Fields Editor"). La aplicacion puede consultar a 2 BD distintas, lo cual se selecciona con un radiobutton. En el evento OnClick del radiobutton tengo el siguiente codigo.

Código Delphi [-]
ibquery2.destroy;
query := tibquery.Create(self);
query.Name := 'ibquery2';
query.SQL.add('select notas, noc, ncorr, t.nombre, cantidad, unitario, descuento, cantidad * unitario as subtotal,');
query.SQL.add('cantidad * unitario - descuento afecto from COMPRAS_detalle d');
query.SQL.add('inner join insumos_servicios t on t. id = d.id_item and d.que_es = t.que_es');
query.SQL.add('where noc =:noc order by ncorr');
query.DataSource := datasource1;
datasource2.DataSet := query;
 
if radiobutton3.checked then
begin
ibquery2.Database:=    mainform.DB_empresa_server;
ibquery2.Transaction:= mainform.TR_empresa_server;
end else
begin
ibquery2.Database:=    mainform.DB_empresa_local;
ibquery2.Transaction:= mainform.TR_empresa_local;
end;

Esto funciona perfecto, el problema es que los campos persistentes definidos en tiempo de diseño no se asignan al query creado nuevamente, a pesar que tiene el mismmo nombre. Algun de estos son IBQuery2SUBTOTAL, IBQuery2CANTIDAD, etc. La idea des esto es poder darle un formato "lindo" al campo en cuestión, lo que defino en diseño así:

Código Delphi [-]
IBQuery2CANTIDAD.displayformat := '#,##0';

Como puedo resolver esto?
Existe alguna forma de asignar los campos persistentes, después de volver a crear al query.

Nota: Anteriormente solo cambiaba la BD del query despues de cerrarla, pero al volver abrirla me arrojaba un error, por eso decidí destruir el componente y volver a crearlo.

Espero me puedan ayudar.

[[maeyanes]]

Hola...

Tendrías que crear de nuevo los campos un tiempo de ejecución.

Para hacer lo que deseas, puedes hacerlo en tiempo de ejecución (sin crear los campos persistente en tiempo de diseño), más o menos así:

Código Delphi [-]
var
  IntField: TIntegerField;

begin
  IntField := IBQuery2.FieldByName('CANTIDAD') as TIntegerField;
  IntField.DisplayFormat := '#,##0'
end;

Saludos...

[mjjj]

No hay caso, no logro resolver esto.
Una cosa que me percaté es que al destruir el query, no se destruyen los campos persistentes.

Una idea... podré volver asignar esos campos al query nuevo creado en ejecución? como lo hago?

Ayuda porfa.

[[maeyanes]]

Hola...

¿Leiste las recomendaciones que te hice?


Saludos...

[mjjj]

claro que si, pero no logro que esto funcione.

Recuerda que en el evento onclick del radiobutton, destruyo el query. En ese mismo evento destruyo los campos persistentes y vuelvo a crearlos con las propiedades correctas, sin embargo, me arroja un error que no concuerda el tipo de dato... espera BCD y es wildstring, en un campo de varchar de 200.

Código Delphi [-]
var field: tibbcdfield;
begin
...
ibquery2notas.Destroy;
ibquery2.destroy;
 
field := tibbcdfield.Create(Self);
field.Name := 'ibquery2notas';
field.FieldKind := fkdata;
field.FieldName := 'notas';
field.Size := 200;
field.DisplayWidth := 200;
field.DataSet := query;
...
end;

Además tengo que hacerlo con cada campo, y son varios... tiene que existir una mejor forma de hacerlo.

[[maeyanes]]

Hola...

Leyendo mejor tu duda, veo que estás haciendo mal algunas cosas. Primero, veo que destruyes el objeto ibquery2 y creas un nuevo objeto y lo asignas a la variable ibquery al cual le pones como nombre 'ibquery2'. Esto no significa que automáticamente los campos persistentes van a reconocer el nuevo objeto como padre. Y todo esto sin contar con el detalle de los tipos de campos.

Para lograr lo que deseas, podrías hacer algo como:

Código Delphi [-]
begin
  ibquery2.Close;
  // Asignas los objetos de base de datos y transacción de acuerdo al checkbox
  if radiobutton3.checked then
  begin
    ibquery2.Database:=    mainform.DB_empresa_server;
    ibquery2.Transaction:= mainform.TR_empresa_server
  end
  else
  begin
    ibquery2.Database:=    mainform.DB_empresa_local;
    ibquery2.Transaction:= mainform.TR_empresa_local
  end;
  // Aquí podrías crear la nueva consulta o asignar parámetros.
  ibquery2.Open
end

Si las tablas son exactamente iguales en ambas bases de datos, no deberías tener problemas. Ahora, esto nunca lo he hecho así y el código que te pongo no lo he probado.


Saludos...