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