Fórum A linha não pode ser localizada para atualização .... #575008

id := DSTARLEAD.DATASET.FIELDBYNAME('ID').ASSTRING;
DM.qTarefaHis.Close;
DM.qTarefaHis.SQL.Text :=('SELECT * FROM GTELHIS LEFT OUTER JOIN GTELTAREFA ON (GTELTAREFA.ID = GTELHIS.ID_TAREFA) WHERE GTELHIS.ID_TAREFA=:WID');
DM.qTarefaHis.Parameters.ParamByName('WID').VALUE := id;
DM.qTarefaHis.Open;

tarefaid := DSTARLEAD.DataSet.FieldByName('ID').value;

qPesUsu.Close;
qPesUsu.SQL.Text :='Select * FROM GTELOPE';
qPesUsu.Open;

end;

if DSTARLEAD.DataSet.FieldByName('COD_CLIENTE').asinteger>0 then
 begin
   codcl := DSTARLEAD.DataSet.FieldByName('COD_CLIENTE').value;
   DM.BuscaCliente(DSTARLEAD.DataSet.FieldByName('COD_CLIENTE').asinteger);
   bRegistrar.Enabled := true;
   bitbtn2.Enabled := true;
   // BuscaCliente := DSCLI.DataSet.fieldbyname('CODCLICL').asinteger;

end;

if DSTARLEAD.DataSet.FieldByName('COD_CLIENTE').asinteger=0 then
begin
  ShowMessage('Cliente Não Encontrado');
end;