ActiveDelphi

[walsh]

Olá amigos!

necessito fazer rodar um update em uma determinada table que o valor venha de um cxTimeEdit, ou pode ser outro componente, desde que funcione hehehe.

Fiz um form para encerrar o expediente do equipamento em uma fabrica de papel para controlar paradas, produção, perdas, etc. A pessoa clica no botão encerrar e abre o form puxando a ultima hora que houve movimentação do equipamento que seria a hora de início, essa hora que a pessoa irá colocar será a hora que encerrou o expediente e irá gravar essa hora na table hora_final, até ai tudo bem, mas não estou conseguindo rodar o update.
Quando clico no botão confirmar que irá executar a query e iria jogar esse horário ele dá erro (apenas assim :. ) acredito que seja os 2 pontos da separação da hora, então acho que devo estar mandando gravar algo errado.
O codigo no botão confirmar é mais ou menos assim:

var
vrEncerra : string;
begin

vrEncerra := ' update apo_boletim_dt set boletim_hora_final = ' +strtotime(cxTimeEdit1.Text);

Já tentei com .time, TimetoStr, etc nada vai, sempre da erro igual em todos ( :. )
Fiz um teste colocando a hora manualmente no update e funcionou de boa, como abaixo:

var
vrEncerra : string;
begin

vrEncerra := ' update apo_boletim_dt set boletim_hora_final = '18:00:00';


Agradeço a ajuda de todos!
Abraço!

[leo_cj]

Da uma olhada no que está vindo do componente, além disso, dê preferência para a utilização de parâmetros, ex:

[natanbh1]

Antes do update veja se a conversão para time está ocorrendo corretamente.

Acrescente um ShowMessage antes do update :

[walsh]

Olá amigos!

Estava pensando a tarde no dia que postei que talvez funcionaria mesmo com parâmetro, porque outros campos que recebem hora desse componente vem por parâmetro.
Então consegui resolver da seguinte forma:

procedure TfrmEncerrar.cxButton2Click(Sender: TObject);
var
vrEncerra : string;
vHorafinal : TTime;
begin
vHorafinal := cxTimeEdit1.Time;

vrEncerra := ' update apo_boletim_dt set boletim_hora_final = :pHora ';
vrEncerra := vrEncerra + ' where boletim_hora_inicio = boletim_hora_final and ';
vrEncerra := vrEncerra + ' boletim_id = ' +DMGeral.ClientBoletimMSBOLETIM_ID.AsString;

QueryEncerra.Close;
QueryEncerra.SQL.Clear;
QueryEncerra.ParamByName('pHora').AsDateTime:=vHorafinal;
QueryEncerra.SQL.Text:=vrEncerra;
QueryEncerra.ExecSQL;

DMGeral.ClientBoletimDT.Refresh;

close;
end;

Muito obrigado a todos!

[leo_cj]

Como você está passando a data por parâmetro, passa o boletim_id por parâmetro também, fica mais padronizado.

As variáveis vrEncerra e vHorafinal não são necessárias, é possível fazer direto, eu pessoalmente prefiro fazer direto, porém o uso das mesmas não está errado

[natanbh1]

Concordo com leo_cj, faça apenas uma correção nesta linha: