He llegado hasta aquí :
Código Delphi
[-]var
VATTYPE1 : String;
VATTYPE2 : String;
VATTYPE3 : String;
...
procedure TBookingFrame3.Panel1Enter(Sender: TObject);
begin
DataModule1.IBQueryCheck.SQL.Clear;
DataModule1.IBQueryCheck.SQL.Add('Select * from FIXEDVALUES');
DataModule1.IBQueryCheck.Prepare;
DataModule1.IBQueryCheck.Open;
VATTYPE1 := DataModule1.IBQueryCheck.FieldByName('VAT_TYPE_1').AsString;
VATTYPE2 := DataModule1.IBQueryCheck.FieldByName('VAT_TYPE_2').AsString;
VATTYPE3 := DataModule1.IBQueryCheck.FieldByName('VAT_TYPE_3').AsString;
end;
Y en el evento OnGetText :
Código Delphi
[-]procedure TDataModule1.IBQuery7VAT_TYPEGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
Case IBQuery7VAT_TYPE.Value of
1: Text := BookFrame3.VATTYPE1;
2: Text := BookFrame3.VATTYPE2;
3: Text := BookFrame3.VATTYPE3;
end;
end;
Pero ahora bien, ni consigo poner el tipo de I.V.A. en el formato que yo quiero (999,99%), ni tampoco al crear el DBGrid por primera vez me muestra los porcentajes ya que al parecer se crea el DBGrid antes de poder ejecutar el procedimiento Panel1Enter, por lo que solo me aparecen los valores de I.V.A. después de pasar por cada fila del DBGrid con el cursor.
Un saludo a todos y gracias por vuestra ayuda !