Carnê - como fazer???

17/02/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


Maxwel Eduardo

Respostas

17/02/2006

Paullsoftware

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

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:


Responder Citar