Carnê - como fazer???

17/02/2006

0

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

Maxwel Eduardo

Responder

Posts

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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar