Fórum Saber se um código existe em um ClientDataSet #454910

11/09/2013

0

Delphi

Olá tenho alguns produtos em um ClientDataSet em memória.
Adicionei-os através de um POST.
Ao adicionar um produto novo, se o código dele já existir no ClientDataSetatual eu preciso apresentar uma mensagem na tela dizendo que o mesmo já existe e aumentar a quantidade deste produto adicionando 1.
Como posso resolver este problema? Não quero me posicionar neste registro e sim saber se ele já existe no ClientDataSet.
Claudio Junior

Claudio Junior

Responder

Posts

11/09/2013

Marcos Oliveira

Cláudio, não sei se é possível fazer isso que você quer, sem posicionar o registro no ClientDataSet.
Você pode fazer da seguinte forma:
if ClientDataSetatual.Locate('campo','texto_a_procurar',[loCaseInsensitive]) then
begin
      // Mensagem informando que já existe...
      ClientDataSetatual.Edit;
      ClientDataSetatual.FieldByName('qtde').AsFloat := ClientDataSetatual.FieldByName('qtde').AsFloat + 1;
      ClientDataSetatual.Post;
end;


Lógico, que o código é só um exemplo... Você deve adaptar ao seu programa.

Att,

Marcos
Responder

Gostei + 0

11/09/2013

Marco Salles

Sem posicionar o registro , vc pode utilizar o CloneCursor , que mantém um cursor independente dos dados

[]sds
Responder

Gostei + 0

11/09/2013

Claudio Junior

Sem posicionar o registro , vc pode utilizar o CloneCursor , que mantém um cursor independente dos dados

[]sds


Obrigado o CloneCursor resolveu meu problema da seguinte forma:

Cds.CloneCursor(CdsItensVenda, True);
if Cds.Locate('IDPRODUTO', parambyname('IDPRODUTO').AsString, [loCaseInsensitive]) then
    ShowMessage('Item já escolhido!');




Abraços
Responder

Gostei + 0

12/09/2013

Marco Salles

Que bom Claudio

abraços e sds

Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar