Ver Mensaje Individual
  #11  
Antiguo 11-06-2018
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is online now
Moderador
 
Registrado: Sep 2004
Ubicación: En algún lugar.
Posts: 28.576
Reputación: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
El programa se parará justo, exactamente en una línea, en una de las que indico, aunque tú no lo hayas dicho.
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);      //   <-- ¿ Qué valor tiene descuento.text ?
  inc:=strtofloat(incremento.Text);      //   <-- ¿ Qué valor tiene incremento.text ?
  a:=strtofloat(encomienda.text);      //   <-- ¿ Qué valor tiene encomienda.text ?
  b:=strtofloat(viatico.text);      //   <-- ¿ Qué valor tiene viatico.text ?
  c:=strtofloat(gastoadm.text);      //   <-- ¿ Qué valor tiene gastoadm.text ?
  tpro:=strtofloat(total.text);      //   <-- ¿ Qué valor tiene 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);      //   <-- ¿ Qué valor tiene tpgs ?
  cot:= strtofloat(cotiza.text);      //   <-- ¿ Qué valor tiene cotiza.text ?
  tpom:= tpgs/cot;
  tpotra.text:=floattostr(tpom);      //   <-- ¿ Qué valor tiene tpom ?  
end;
Responder Con Cita