Buenas tardes,
ya estoy por aquí de nuevo, tuve que seguir con otras cosas y deje de lado lo del cuadro de amortización pero ya he llegado a este punto y necesito continuar con ello.
Estoy haciendo algo mal pero no veo qué. Pretendo que a través del For... se generen las lineas del cuadro de amortización menos la última y eso sí sale bien, pero después de esas líneas tengo que generar la última donde se indica el importe amortizado de tal manera que el capital pendiente quede a cero.
No entiendo porqué pero no consigo generar esa última línea.
Pongo el código y adjunto el fichero por si alguien ve algo que no este haciendo bien y pudiese orientarme para solucionarlo.
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
Lineas : Integer;
NumPlazos : Integer;
ImporteCuota : Double;
ImporteIntereses : Double;
ImporteAmortizacion : Double;
ImporteAmortizado : Double;
ImportePendiente : Double;
begin
if Plazos.Text = '' then
ShowMessage('Debe indicar el número de plazos del préstamo')
Else
Begin
NumPlazos := Strtoint(Plazos.Text) ;
ImporteCuota := StrToFloat(ImportePrestamo.Text)*(StrtoFloat(TipodeInteres.Text)/12)/100;
ImportePendiente := StrtoFloat(ImportePrestamo.Text);
CuadrodeAmortizacion.RowCount := NumPlazos ;
For Lineas := 1 to NumPlazos do
Begin
CuadrodeAmortizacion.Cells[0,Lineas] := InttoStr(Lineas);
CuadrodeAmortizacion.Cells[1,Lineas] := FormatFloat('#,##0.00 €',ImporteCuota);
CuadrodeAmortizacion.Cells[2,Lineas] := FormatFloat('#,##0.00 €',ImporteCuota);
CuadrodeAmortizacion.Cells[3,Lineas] := '0';
CuadrodeAmortizacion.Cells[4,Lineas] := '0';
CuadrodeAmortizacion.Cells[5,Lineas] := FormatFloat('#,##0.00 €',ImportePendiente);
End;
end;
Lineas := Lineas-1;
CuadrodeAmortizacion.Cells[0,Lineas] := InttoStr(Lineas);
CuadrodeAmortizacion.Cells[1,Lineas] := FormatFloat('#,##0.00 €',ImporteCuota+ImportePendiente);
CuadrodeAmortizacion.Cells[2,Lineas] := FormatFloat('#,##0.00 €',ImporteCuota);
CuadrodeAmortizacion.Cells[3,Lineas] := FormatFloat('#,##0.00 €',ImportePendiente);
CuadrodeAmortizacion.Cells[4,Lineas] := FormatFloat('#,##0.00 €',ImportePendiente);
CuadrodeAmortizacion.Cells[5,Lineas] := '0';
end;