Ver Mensaje Individual
  #10  
Antiguo 08-03-2017
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Reputación: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Código Delphi [-]
procedure TT_UT.ButtonUtClick(Sender: TObject);
begin
  T_UT.DBISAMQueryUT.SQL.Clear;
  T_UT.DBISAMQueryUT.SQL.Add('UPDATE');
  T_UT.DBISAMQueryUT.SQL.Add('STipoRetencionDetalle SET FRETD_MAYORQUE =:ValorUt');
  T_UT.DBISAMQueryUT.SQL.Add('WHERE FRETD_PERSONA = 0');
  // T_UT.DBISAMQueryUT.Params.CreateParam(ftString,'ValorUt'); // esta linea no va
  T_UT.DBISAMQueryUT.ParamByName('ValorUt').AsFloat := 1.23; // en un principio ve por lo mas simple,
  // deberia funcionar a la primera con esto. Si funciona ya luego quitas esta linea tambien 
  T_UT.DBISAMQueryUT.ParamByName('ValorUt').AsFloat := FloatToStr(T_UT.EditUt.Text); // y dejas esta
  T_UT.DBISAMQueryUT.ExecSQL;
end;

Ten cuidado con la conversion: FloatToStr convierte usando la configuracion regional del equipo. Existen formas de utilizar formatos definidos por el programador.

Esto se puede hacer usando la version sobrecargada que acepta un parametro de tipo TFormatSettings; o bien utilizando una funcion llamada FloatToStrF
Responder Con Cita