erro no primeiro registro a incluir!!

Delphi

13/12/2005

Boa tarde pessoal estou com uma problema aqui que tá me tirando a concentração!!
é o seguinte.. seleciono a data de movimento e faço o filtro
Dados.AIIP2.Filtered := False;
Dados.AIIP2.Filter:= ´DATA_MOVIMENTO =´+ QUOTEDSTR(EdDataMovimento.Text)+ ´ AND ANALISE_ID =´+QUOTEDSTR(´0´);
Dados.AIIP2.Filtered := True;

ele me retorna todos os registros..
qdo chega num lookup ele não faz o codigo direito..

If (Key = #27) Then
Begin
edhorainfracao.SetFocus;
end;

If (Ord(Key)=13) and (TRIM(edanalise.Text) <> ´´) Then
BEGIN
ANA:= Dados.AnaliseANALISE_ID.AsInteger;
IF (ANA = 1) AND (FLAGIMAGEM = FALSE) THEN
BEGIN
SHOWMESSAGE(´Analise Inválida !!!´ );
Exit;
END;

IF ANA = 4 THEN
BEGIN
edobs.Enabled := True;
edobs.SETFOCUS
END;

IF ANA = 6 THEN
BEGIN
edobs.KeyValue := 16;
edobs.Enabled := True;
edobs.SETFOCUS;
OK.Enabled:=TRUE;
OK.SetFocus;
END;

IF ((ANA <> 4) AND (ANA <>6)) THEN
BEGIN
Dados.Observacao.First;
edobs.KeyValue := 17;
edobs.Update;
OK.Enabled:=TRUE;
OK.SetFocus;
END;
END;
end;


qdo é a primeira vez que vou fazer o registro ou seja..qdo abro o formulário sempre o primeiro registro o edobs cai em 17.. mesmo debugando ele passa pelo 16;; mas depois cai lá no lookup como 17.. e ná proxima já funciona normalmente..

o que será isso


Eric.miranda

Eric.miranda

Curtidas 0
POSTAR