F�rum Como pegar a hora atual do servidor firebird em tempo de execu��o!! #401557

24/05/2011

Bom dia a todos!! Em um form tenho campos:data1,data2,hinicial,hfinal e htotal. Com a ajuda do colega wilson lehapan consegui criar uma fun��o para calcular o tempo entre hinial e hfinal e mostrar no campo htotal. A hinicial e data1 s�o preenchidos automaticamente quando um novo registro � salvo. O campo data1 no banco esta como current_data e o campo hinial esta como current_time e no componente de acesso SQLDataSet os campos est�o como requerid = false. Gostaria de saber com fa�o para ao clicar em um bot�o para finalizar a separa��o de mercadorias fosse inserido no campo data2 a data do servidor e no campo hfinal a hora do servidor para que ent�o a procedure que o colega wilson me passou entrasse em a��o para fazer o calculo do tempo total que um funcionario gastou ao separar uma nota.

Rogerio Sena

Curtir t�pico

+ 0

Responder

Posts

24/05/2011

Rogerio Sena

Bom dia a todos!! Em um form tenho campos:data1,data2,hinicial,hfinal e htotal. Com a ajuda do colega wilson lehapan consegui criar uma fun��o para calcular o tempo entre hinial e hfinal e mostrar no campo htotal. A hinicial e data1 s�o preenchidos automaticamente quando um novo registro � salvo. O campo data1 no banco esta como current_data e o campo hinial esta como current_time e no componente de acesso SQLDataSet os campos est�o como requerid = false. Gostaria de saber com fa�o para ao clicar em um bot�o para finalizar a separa��o de mercadorias fosse inserido no campo data2 a data do servidor e no campo hfinal a hora do servidor para que ent�o a procedure que o colega wilson me passou entrasse em a��o para fazer o calculo do tempo total que um funcionario gastou ao separar uma nota.
A colega Flavia me passou um codigo de uma procedure que deve ser feita no banco .
create procedure datatime
   returns(datatime timestamp)as
    begin
       select current_timestamp from rdb$database
       into :datetime;
   suspend;
end
 
a pergunta � se funciona como devo chamar ela no form (no botao).

Responder

Gostei + 0

24/05/2011

Wilson Junior

Olhar tamb�m t�pico https://www.devmedia.com.br/forum/viewtopic.asp?id=401387

Espero ter colaborado.

Responder

Gostei + 0

24/05/2011

Rogerio Sena

bem wilsom ainda nao consegui tentei varias formas mas ainda nada. no campo data1 beleza vem automatico e no campo hinicial tb, mas cara no data2 e hfinal to apanhando feio. nao sei se vc viu o codigo que a flavia mandou se viu oq acha e como utilizar na chamada da fun��o no click do botao finalizar. obrigado por me ajudarem como viram sou novato.

Responder

Gostei + 0

24/05/2011

Rogerio Sena

wilson a fun��o em que me ajudou esta certinha s� que os campos data2 e hfinal tenho que digitar.n�o sei se entenderam as eu quero que ao clicar no bot�o finalizar a data2 e hfinal seja preenchida automaticamente com a hora do banco pois futuramente pretendo colocar a aplica��o em rede esse projetinho pode valer uma vaga na empresa a qual eu trabalho. se quiser posso te enviar os fontes com o banco so me passar um email?

Responder

Gostei + 0

24/05/2011

Wilson Junior

Olhe este link de como utilizar uma Stored Procedure com Delphi http://www.scip.be/index.php?Page=ArticlesDelphi12&Lang=EN

Espero ter colaborado.

Responder

Gostei + 0

24/05/2011

Rafael Mattos

n�o sei sua dificuldade mas esse c�digo que vc falou da certinho
coloca um edit1 no seu form e testa esse c�digo

var
  Query : TSQLQuery;
begin
   Query := TSQLQuery.Create(Self);
   Query.SQLConnection := SQLConnection1;  // SQLCONNETION1
   Query.SQL.Add('select current_timestamp from rdb$database');
   Query.Open;
   Edit1.Text := Query.Fields[0].AsVariant;
   Query.Free;
end;

Responder

Gostei + 0

24/05/2011

Rogerio Sena

Ol� rafmatos valeu funcionou!!!!! porem aparece a data e a hora no campo como deve ficar a sql para apresentar somente a data e somente a hora. obrigado ...

Responder

Gostei + 0

24/05/2011

Rogerio Sena

rafael eu consegui assim: SQLQuery1.SQL.Add('select current_date from rdb$database'); mas tenho uma pergunta utilizando assim � buscada a data do servidor ou do esta��o cliente?

Responder

Gostei + 0

24/05/2011

Wilson Junior

Coloque assim:

CampoData.Text := FormatDateTime( 'dd/mm/yyyy', Query.Fields[0].AsDateTime );
CampoHora.Text := FormatDateTime( 'hh:nn:ss', Query.Fields[0].AsDateTime );

Espero ter colaborado.

Responder

Gostei + 0

24/05/2011

Rafael Mattos

rafael eu consegui assim: SQLQuery1.SQL.Add('select current_date from rdb$database'); mas tenho uma pergunta utilizando assim � buscada a data do servidor ou do esta��o cliente?

no servidor do banco de dados

Responder

Gostei + 0