Array
(
)

Carnê - como fazer???

Maxwel Eduardo
   - 17 fev 2006

Salve, Salve Delphianos.


Estou querendo fazer uma rotina que crie carnê.

Cadastro o cliente, coloco a data de pagamento o valor das prestações e as quantidade de parcelas ae o programa automaticamento cria os carnês das parcelas e valor e data no quirck Report. para impressão...


Quem pode me ajudar....

email. pirata_pirado33@hotmail.com


Paullsoftware
   - 17 fev 2006

aqui eu gero os vencimentos, tente adaptar de acordo com sua necessidade...

#Código

procedure TForm1.Button1Click(Sender: TObject);
var
DataAtual:TDateTime;
Loop:integer;
NovaData:String;
begin
Memo1.Lines.Clear;
ListBox1.Clear;
DataAtual:=StrToDate(MaskEdit1.Text);
For loop := 0 to StrToInt(Edit1.text) do begin
NovaData := FormatDateTime(´dd/MM/YYYY´,IncMonth(DataAtual,Loop));
Memo1.Lines.Add(NovaData);
ListBox1.Items.Add(NovaData);
End
end;

1 - TButton
1 - TMemo
1 - TListBox
1 - TMaskEdit e 1 Tedit

espero ter ajudado! :wink: