erro no primeiro registro a incluir!!

13/12/2005

0

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

Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

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

Aceitar