Caso Raro de Decimales en campo de tipo Flotante

[AGAG4]

Empezado por Lepe

intenta engañar a ZReport.

Abres una consulta con los campos, ahora recorres FieldDefs y cambia el tipo de cada campo a Float (Fieldtype a ftFloat), por último intenta asociarlo al ZReport.

Esto se llama jugar sucio... pero ojalá dé resultados .

Saludos

Ya hize pruebas a como me explica:

Código Delphi [-]
   //Caso 1
    zrReport.DataSet := Nil;
    for x:=0 to Query.FieldCount - 1 do
      if (Query.Fields.Fields[x].DataType = ftFMTBcd) then
        Query.FieldDefs[x].DataType := ftFloat;

    zrReport.DataSet := ibQuery;
   

   //Caso 2
    zrReport.DataSet := Nil;
    for x:=0 to Query.FieldCount - 1 do
      if (Query.Fields.Fields[x].DataType = ftFMTBcd) then
        Query.FieldDefs[x].DataType := ftBCD;
 
    zrReport.DataSet := ibQuery;

En ninguno de los 2 casos funciono....