Gerar Notas Promissórias - URGENTE

Delphi

03/06/2003

:idea: :?: [b:bafde3c891][i:bafde3c891][color=red:bafde3c891][/color:bafde3c891][size=24:bafde3c891][/size:bafde3c891]
Estou elaborando uma aplicação para gerar notas promissórias, o que eu preciso é o seguinte: depois de preencher os dados da nota, que a aplicação gerasse automaticamente a quantidade de notas que eu preciso, alterando a data de vencimento de vencimento de cada parcela (promissória) para 30 dias, e quando eu preenchesse o valor o sistema apresentasse em um dbedit o valor escrito por extenso, a aplicação é bem semelhante a de impressão de cheques, estou utilizando paradox como BD.
Desde já agradeço a colaboração.
:idea: :?: [/i:bafde3c891][/b:bafde3c891]


Christianlino

Christianlino

Curtidas 0

Respostas

Motta

Motta

03/06/2003

http://www.eugenio.com.br/delphi/

tem uma função de extenso


GOSTEI 0
Salomao

Salomao

03/06/2003

Caro amigo!
Você pode baixar uma função de Extenso aqui mesmo no Clube Delphi em funções e exemplos.
quanto a geração de promissórias é bem simples, basta você utilizar um bloco de repetições com while ou for next .
exemplo:

var contador : integer;
datavenc : tdatetime;
begin
contador := 1;
datavenc := date;
while contador <= N_promissorias do
begin

{inserir comando de inclusão no banco de dados}
datavenc := datavenc+30;
inc(contador);

end;


end;



Essa pode ser uma das maneiras!
Epero ter ajudado!
salomaosoares@bol.com.br


GOSTEI 0
POSTAR