Ver Mensaje Individual
  #6  
Antiguo 20-02-2015
Ian_Martinez Ian_Martinez is offline
Registrado
NULL
 
Registrado: feb 2015
Posts: 4
Reputación: 0
Ian_Martinez Va por buen camino
Salu2

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;

Última edición por ecfisa fecha: 20-02-2015 a las 15:45:46. Razón: Agregar etiquetas [DELPHI]
Responder Con Cita