Ver Mensaje Individual
  #3  
Antiguo 11-06-2018
benegas benegas is offline
Registrado
NULL
 
Registrado: jun 2018
Posts: 5
Reputación: 0
benegas Va por buen camino
Código Delphi [-]

procedure TForm1.Button7Click(Sender: TObject);
var
  a,b,c,tpro,des,cot,inc,tpom,t,tpgs:real;
begin
  des:=strtofloat (descuento.text);
  inc:=strtofloat(incremento.Text);
  a:=strtofloat(encomienda.text);
  b:=strtofloat(viatico.text);
  c:=strtofloat(gastoadm.text);
  tpro:=strtofloat(total.text);
  t:= a+b+c+tpro;

  if (descuento.Enabled=true) then
  
    tpgs:= t-des;

  if(incremento.enabled=true) then
   begin
    tpgs:= t+inc;
   end;
  
  tp.text:= floattostr(tpgs);  aca me indica el error
  cot:= strtofloat(cotiza.text);
  tpom:= tpgs/cot;
  tpotra.text:=floattostr(tpom);
  
end;

end.

Última edición por Neftali [Germán.Estévez] fecha: 11-06-2018 a las 16:29:19.
Responder Con Cita