Ajuda Locate no ClientDataSet n�o localizando os dados da tabela

17/04/2014

Boa Tarde!

Pessoal tenho uma tabela Tempor�ria do cds que preciso localizar ums dados para confina��o ..
segue C�digo:

For x := 1 to 3 do
begin
  lGrava := True ;
  if DataModuleGeral.cdsHonorariosRelC.Locate('NOME_ADV', DataModuleGeral.tbHonorariosConsulta.FieldByName('ADVOGADO_ASSISTENTE'+IntToStr(x)).AsString,[]) then
    while DataModuleGeral.cdsHonorariosRelCNOME_ADV.AsString = DataModuleGeral.tbHonorariosConsulta.FieldByName('ADVOGADO_ASSISTENTE'+IntToStr(x)).AsString do
    begin
      if DataModuleGeral.tbHonorariosConsultaNUMERO_PROCESSO.AsString = DataModuleGeral.cdsHonorariosRelCNUMERO_PROCESSO.AsString then
      begin
        lGrava := False;
        Break;
      end;
      DataModuleGeral.cdsHonorariosRelC.Next;
    end;
...
DataModuleGeral.cdsHonorariosRelC.Post;
end;

� assim no sistema eu garbo nesta tabela para gerar um relat�rio.
ai preciso localizar o no cds se j� tem o nome advogado gravado na tabela caso j� tenha ele passa a vari�vel como falso e sai se n�o tem o advogado ele passa vari�vel como Verdadeiro e grava o dado no campo s� que ele n�o esta fazendo isso.
na tabela ele fazendo assim

advogado Proc vlrHono_total vlorHono_Pago
A 123 1000,00 100,00 1� parcela
A 123 150,00 2� parcela
B 123 1000,00 100,00 1� parcela
B 123 150,00 2� parcela
C 123 1000,00 100,00 1� parcela
C 123 1000,00 150,00 2� parcela <= ta o erro n�o consigo ver o porque dele gravar o vlrHono_total 2x para o memo advogado.

Eduardo Mendon�a

Curtir t�pico + 0

Responder

Posts

17/04/2014

Wilton J�nior

Tenta fazer a mesma rotina mas tirando o datamodulo tipo:
if clientdataset1.locate('campo',edit1.text,[]) then

tenta assim.

Responder

Gostei + 0

** Ajuda ** Locate no ClientDataSet n�o localizando os dados da tabela

Ajuda Locate no ClientDataSet n�o localizando os dados da tabela