Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   calcular campo (https://www.clubdelphi.com/foros/showthread.php?t=59330)

josi 22-08-2008 18:04:39

calcular campo
 
Estoy haciendo un proyecto de prestamos
tengo un form que se llama pagos que pagos y el problemita
es que en este form se cobran las cuotas y despues que se cobran las
cuotas se deben de restar al balance este es el codigo:
Código Delphi [-]
begin
pagosquery1.Insert;
pagosquery1.FieldByName('Num_prestamo').AsString:=edit1.Text;
pagosquery1.FieldByName('cedula').AsString:=edit2.Text;
pagosquery1.FieldByName('Nombre').AsString:=edit3.Text;
pagosquery1.FieldByName('Direccion').AsString:=edit4.Text;
pagosquery1.FieldByName('telefono').AsString:=edit5.Text;
pagosquery1.FieldByName('formadepago').AsString:=edit8.Text;
pagosquery1.FieldByName('cuotaspagas').AsString:=edit10.Text;
pagosquery1.FieldByName('cuota').AsString:=edit11.Text;
pagosquery1.FieldByName('recargo').AsString:=edit13.Text;
if checkbox1.Checked=false then
pagosquery1.FieldByName('Pagoavanzado').Text:='0'
else
pagosquery1.FieldByName('Pagoavanzado').Text:=edit12.Text;

pagosquery1.FieldByName('totalpagado').AsString:=edit16.Text;
pagosquery1.FieldByName('efectivo').AsString:=edit18.Text;

if checkbox2.Checked=false then
pagosquery1.FieldByName('notacredito').Text:= ('0')
else
pagosquery1.FieldByName('notacredito').Text:= edit15.Text;
if checkbox2.Checked=false then
pagosquery1.FieldByName('notadebito').Text:= ('0')
else
pagosquery1.FieldByName('notadebito').Text:=edit14.Text;
pagosquery1.FieldByName('totalpagado').AsString:=edit16.Text;
pagosquery1.FieldByName('efectivo').AsString:=edit18.Text;
pagosquery1.FieldByName('cambio').AsString:=edit12.Text;
pagosquery1.FieldByName('cambio').AsString:=edit17.Text;
pagosquery1.Post;
prequery1.Edit;aqui es donde trato de hacer el calculo.
prequery1.FieldByName('balanceactual').AsFloat:=(preQuery1BALANCEACTUAL.AsFloat)-(PagosQuery1Cuota.AsFloat)-(PagosQuery1Notacredito.AsFloat);
prequery1.Refresh;

espero que me entiendan estoy unando acess

Caral 22-08-2008 18:20:43

Hola
No lo entiendo pero aquí me parece que falta un post:

Código Delphi [-]
prequery1.Edit;aqui es donde trato de hacer el calculo.
prequery1.FieldByName('balanceactual').AsFloat:=(preQuery1BALANCEACTUAL.AsFloat)-(PagosQuery1Cuota.AsFloat)-(PagosQuery1Notacredito.AsFloat);
prequery1.post;
prequery1.Refresh;
Por otro lado, me parece que siempre das la información incompleta, es mi opinión.
Saludos


La franja horaria es GMT +2. Ahora son las 18:57:22.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi