Fórum Gerar Notas Promissórias - URGENTE #164499
04/06/2003
0
[b:5cdce4b665][i:5cdce4b665][size=18:5cdce4b665] [/size:5cdce4b665] [color=red:5cdce4b665][/color:5cdce4b665] :idea: :?:
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:5cdce4b665][/b:5cdce4b665]
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:5cdce4b665][/b:5cdce4b665]
Christianlino
Curtir tópico
+ 0
Responder
Posts
04/06/2003
Luciano Pimenta®
Para a quant de promissórias:
for i:= 1 to Parcelas do
begin
if i <> 1 then Data_Venc:=IncMonth(Data_Venc,1);
cds_parcelas.Insert;
cds_parcelasNR_PARCELA.AsInteger:=i;
cds_parcelasVALOR_PARC.AsCurrency:=Total / Parcelas ;
cds_parcelasDATA_VENC.AsDateTime:=Data_Venc;
cds_parcelas.Post;
cds_parcelas.Next;
Parcelas=Quantidade de promissorias que vc precisa
Total=Valor total
Para incrementar a data de vencimento, coloque um DataTimePicker com o valor do vencimento da 1ª parcela, depois repasse esse valor para a variavel Data_Venc. Sobre o extenso, no site da ClubeDelphi tem um exemplo bem fácil de ser utilizado.
for i:= 1 to Parcelas do
begin
if i <> 1 then Data_Venc:=IncMonth(Data_Venc,1);
cds_parcelas.Insert;
cds_parcelasNR_PARCELA.AsInteger:=i;
cds_parcelasVALOR_PARC.AsCurrency:=Total / Parcelas ;
cds_parcelasDATA_VENC.AsDateTime:=Data_Venc;
cds_parcelas.Post;
cds_parcelas.Next;
Parcelas=Quantidade de promissorias que vc precisa
Total=Valor total
Para incrementar a data de vencimento, coloque um DataTimePicker com o valor do vencimento da 1ª parcela, depois repasse esse valor para a variavel Data_Venc. Sobre o extenso, no site da ClubeDelphi tem um exemplo bem fácil de ser utilizado.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)