Hola Amigos !
Tengo en una tabla FIXEDVALUES grabados tres valores de tipo de I.V.A. (en InterBase tipo DECIMAL(5,2)) que al abrir un Form intento incluir en unas variables globales :
Código Delphi
[-]public
var
VATTYPE1 : Real;
VATTYPE2 : Real;
VATTYPE3 : Real;
...
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').Value;
VATTYPE2 := DataModule1.IBQueryCheck.FieldByName('VAT_TYPE_2').Value;
VATTYPE3 := DataModule1.IBQueryCheck.FieldByName('VAT_TYPE_3').Value;
end;
Después deseo incluir los valores correspondientes en el DBGrid, por lo que en el evento OnGetText del campo que está asignado a la columna correspondiente he incluido lo siguiente ya que en la Tabla Principal no se graban los correspondientes porcentajes de I.V.A. sino 1,2 o 3 según el tipo de I..V.A. asignado :
Código Delphi
[-]procedure TDataModule1.IBQuery7VAT_TYPEGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
Case IBQuery7VAT_TYPE.Value of
1: Text := TBookingFrame3.VATTYPE1;
2: Text := TBookingFrame3.VATTYPE2;
3: Text := TBookingFrame3.VATTYPE3;
end;
end;
Sé que me falta la conversión de tipo Real a Texto y creo que algo más para que me compile bien. Por ello os pido vuestra ayuda.