Duvida com o comando Locate?

Question

Ola meus amigos,To com uma duvida com o comando locatefiz um codigo assim:beginif not query4.LOCATE(�codigo�,edit4.TEXT,[]) then   begin   if qry5valor.value <> 0 then      begin      query1.app...

Rjun · Answer

Voc� est� usando chave prim�ria? Acontece que quando voc� da Locate, voc� esta movendo o ponteiro da query. Quando se sai do registro em que se est� fazendo a edi��o, ele tenta dar o post e nesse momento ocorre o conflito de chave prim�ria. Deve ser esse o erro que voc� esta tendo. O que voc� pode fazer � criar outra query para se fazer a busca. A�, em vez de voc� dar o locate na query em que voc� esta editando, voc� da o locate na query auxiliar.

Adriano_servitec · Answer

Desculpe o codigo estava errado eh assim:

procedure TForm6.BitBtn7Click(Sender: TObject);
begin
label13.Caption:=edit1.text+label14.caption+me1.text;
if not query4.LOCATE(�codigo�,edit5.text,[]) then
begin
if qry5valor.value <> 0 then
begin
query1.append;
query1.Edit;
query1codigo.value:=500;
query1ref.value:=edit3.text;
query1descricao.value:=�Desconto do INSS�;
query1desconto.value:=strtofloat(edit4.text);
query1.post;
query2.refresh;
query3.refresh;
query4.refresh;
end else
showmessage(�Nao ha valor informado para calculo do INSS�);
end else
begin
query1.Edit;
query1desconto.value:=strtofloat(edit4.text);
query1.post;
query2.refresh;
query3.refresh;
query4.refresh;
end;
end;

O que ocorre nesse codigo eh que em vez dele corrigir em cima no codigo 500 o valor do INSS ele coloca no ultimo valor cadastrado na dbgrid, preciso que ele corrige em cima do codigo 500

Flw!
T+

Rjun · Answer

N�o sei a estrutura de sua query, mas acho que voc� deveria fazer um locate na query1. Coloquei um coment�rio no c�digo. Outra coisa, utilize as tagas

pois facilita o entendimento do c�digo.

procedure TForm6.BitBtn7Click(Sender: TObject); 
begin 
  label13.Caption := edit1.text + label14.caption + me1.text; 
  if not (query4.LOCATE(�codigo�,edit5.text,[])) then 
  begin 
    if qry5valor.value <> 0 then 
    begin 
      query1.append; 
      query1.Edit; 
      query1codigo.value := 500; 
      query1ref.value := edit3.text; 
      query1descricao.value := �Desconto do INSS�; 
      query1desconto.value := strtofloat(edit4.text); 
      query1.post; 
      query2.refresh; 
      query3.refresh; 
      query4.refresh; 
    end  
    else 
      showmessage(�Nao ha valor informado para calculo do INSS�); 
  end 
  else 
  begin 
    // Acho que voc� deveria por um locate aqui para achar o registro com 
    // o c�digo que voc� quer
    query1.Edit; 
    query1desconto.value:=strtofloat(edit4.text); 
    query1.post; 
    query2.refresh; 
    query3.refresh; 
    query4.refresh; 
  end; 
end;

Adriano_servitec · Answer

Ola RjunNao estou usando chave primaria na queryBom a query4 eh aonde fica os dados da dbgridno banco de dados da query4 esta assim:Paradoxcodigo NDescricao A 50REF A 10Valor $Desconto $Na SQL esta assimselect * from tbsalarioorder by codigo...

Rjun · Answer

Ent�o nao entendi...se voc� usa a query4 para mostrar o grid, pq vc usa a query1 para fazer edi��o? Pq vc n�o usa somente uma query?...

Adriano_servitec · Answer

Ola amigo bem que eu quis mais preciso fazer um order by na dbgrid e nao consegui usar order by na query1 por isso coloquei a query4 para aparecer em ordem no dbgrid.

Sera que eh por isso que esta errado?

Rjun · Answer

Acontece que se voc� esta editando direto no grid, ent�o voc� esta editando a query4 e n�o a query1. Por que voc� n�o conseguiu utilizar o order by? Coloque o SQL para darmos uma olhada.

Adriano_servitec · Answer

Ola amigo,

Na query1 a SQL esta somente assim

select * from tbsalario

se eu colocar order by codigo na query1 aparece o seguinte erro na hora de gravar

Project.exe raised exception class EDataBase wuth message query1 cannot modify a read-only Dataset. Process stopped use step or run to continue

Na query1 o requestlive esta true e na query4 o requestlive esta false

Rjun · Answer

O query1 esta como readonly? Evite colocar select *. Coloque o nome dos campos. Adicione os campos na query1. Agora so pra eu entender sua interface. Ela tem o edit onde voc� informa o c�digo que voc� quer inserir e uma grade contendo os registros par edi��o. � isso?

Adriano_servitec · Answer

Desculpe minha ignorancia mais o que eh readonly?

Coloquei assim na SQL

select codfunc,codigo,descricao,ref,valor,desconto from tbsalario

verifiquei num dbnavigator se eu colocar order by codigo na query1 os botoes de gravar e deletar ficam com o enabled false, se ficar sem o order by eles ficam true.

O edit5 aonde quero que o locate procure o codigo 500 No text dele esta digitado 500

Adriano_servitec · Answer

Ola RJun, se eu fizer como vc disse pela query1 funciona perfeitamente, ele acha o codigo 500 e altera o valor, o ruim eh que nao consegui fazer o order by codigo funcionar...

Rjun · Answer

Adrianodei uma pesquisada no forum e n�o tem como voc� conseguir uma query editavel com paradox usando order by. Usando TTable com chave provavelmente voc� consegueria....

Adriano_servitec · Answer

Ola RJunAgora seu que o order by nao funciona para query q a gente precisa gravar, incluir e editar e se nao me engano o group by tambem nao funciona.Olha so como fiz.if not query1.LOCATE(�codigo�,edit5.text,[]) thenAi funciona perfeitamentePara nao usar o order by na query1 deixei o dbgrid com a query4 mesmo e ai na hora de fechar para usar o comando uso um refresh na query4 que ta ligada no datasource1 da query1Ficou perfeitoObrigado pela ajuda  e for�a amigoValeu mesmoMe ajudou muto...

F�rum Duvida com o comando Locate? #288603