''not a valid floating point value

[Ian_Martinez]

Después de haber revisado nuevamente está claro que no tiene nada que ver el master detalle cómo me comentabas, el problema está en unos onChange que yo realizo al introducir los datos para insertarlos ya que los deshabilite todos y se eliminó el error: El problema está ahora en que tengo que hacerlo los OnChange, aquí te dejo uno de eso Ellos para ver si está bien esa forma de validarlo. Saludos y Gracias por su Cooperación.

Código Delphi [-]
procedure TForm_Principal.DBEdit10Change(Sender: TObject);
var
  cpg, vi, tp, k, a, resultado: Currency;
begin
  if (DBEdit10.Text  '') and (DBEdit11.Text  '') and (DBEdit8.Text  '')
     and (DBEdit9.Text  '') then
  begin
    cpg := StrToCurr(ComboBox1.Text);
    vi := StrToCurr(DBEdit10.Text) * 1000;
    tp := StrToCurr(DBEdit11.Text) / 100;
    k := StrToCurr(DBEdit8.Text);
    a := StrToCurr(DBEdit9.Text);
    resultado := cpg * vi * tp * (k * a);
    DBEdit12.Text := CurrToStr(SimpleRoundTo(resultado,0));
  end;
end;

[ecfisa]

Hola Ian.

Cuando incluyas código en la consulta usa las etiquetas del siguiente modo para que se visualize mejor:



Ya edité tu mensaje agregándolas.

Saludos y gracias por tu colaboración

[ecfisa]

Hola de nuevo.

Para poder sugerirte una mejor opción, sería importante saber que hace el código y de que tipo son los campos relacionados a los DBEdits.

Pero así, a simple vista, creo que te faltaría evaluar el valor del combo, vg.:

Código Delphi [-]
  if (DBEdit1.Text > '') and ... and (ComboBox1.ItemIndex <> -1) then
  ...

Saludos