duplicata com vencimento sempre para o dia 10?

Question

Ol� usei o exemplo do assunto mas estou com esse problema como eu fa�o para gerar duplicatas sempre para um dai determinado, 10,20,30 sei l�.Ser� que algu�m pode me ajudar?Valeu...

Marco Salles · Answer

nun entendi muito bemmas coloque um edit no seu form aonde sera informado o dia que voce quer..coloque um bot�o e escrava[code:1:3f2467cd35]function GerarDuplicataDetreminadaData(Dia:Word):Tdate;varano,mes,diaAtual:Word;Data:TdateTime ;begin   decodedate(date,ano,mes,diaAtual);   if TryEncodeDate(ano,mes,dia,data) then     result:=Data   else     begin      showmessage(�Sua Mensagem De Erro�);      abort;     end;end;[/code:1:3f2467cd35]para chamar a fun��o[code:1:3f2467cd35]procedure TForm1.Button1Click(Sender: TObject);varDiaVencimento:integer;begin if trystrtoint(edit1.Text,diaVencimento) then showmessage(datetostr(GerarDuplicataDetreminadaData(DiaVencimento)));end;[/code:1:3f2467cd35]...

Doni · Answer

Juniorpara controlar os proximos vencimento basta usar incMonth() de uma olhada neste comando.acredito que vai te ajudar....

Juniorprog · Answer

muito obrigado vou fazer o teste para ver se da certo....

Marco Salles · Answer

Pode ir com f� . Qualquer coisa estamos ai...

Juniorprog · Answer

Valeu marcos e doni, consegui fazer para pegar o dia deu certinho mas essa fun��o pega os valores do mes atual como consigo dar continuidade uso para criar as duplicatas o comando while ser� que algu�m pode me ajudar ou me passar alguma amostra de como usar o comando incMonth() que o doni falou?

Obrigado galera.

Marco Salles · Answer

Para dar continuidade , voce deve alem dos dia fornecer a quantidade de duplicadas a gerem geradas

Tipo isso :

function GerarDuplicataDetreminadaData(Dia:Word;Data:TDatetime):Tdate;
var
ano,mes,diaAtual:Word;
begin
   decodedate(data,ano,mes,diaAtual);
   if TryEncodeDate(ano,mes,dia,data) then
     result:=Data
   else 
     begin
      showmessage(�Sua Mensagem De Erro�);
      abort;
     end; 
end;

procedure TForm1.Button1Click(Sender: TObject);
var
DiaVencimento,QuantDeDuplicadas,i:integer;
Data:TDate;
begin
 if trystrtoint(edit1.Text,diaVencimento) then
   if trystrtoint(edit2.Text,QuantDeDuplicadas) then
     begin
       Data:=Date;
       i:=1;
       While  i<= QuantDeDuplicadas do
         begin
           showmessage(datetostr(
               GerarDuplicataDetreminadaData(DiaVencimento,
               IncMonth(Data,i))));
           i:=i+1;
         end;
     end
   else
     begin
      Showmessage(�ERROR : Digite un numero inteiro v�lido�);
      Edit2.SetFocus;
     end;
end;

Juniorprog · Answer

valeu marcos vou levar para casa e tentar, cara vc n�o imagina como esta me ajudando valeu mesmo, precisando de qualquer coisa � s� pedir velho.Valeu...

Marco Salles · Answer

[quote:e5812ebe88]Pode ir com f� . Qualquer coisa estamos ai[/quote:e5812ebe88]...

F�rum duplicata com vencimento sempre para o dia 10? #325404