Use o refresh após o apllyupdates.
Michelangelo V. Freitas
Fone: (51)2121-2704
Forense Consultoria Juridica
www.forenseconsultoria.com.br
----- Original Message -----
From: "cferdinandesi" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, November 05, 2004 4:06 PM
Subject: [delphi-br] Re: Query : Dataset not in edit or insert mode
Alan, continua não funcionando
--- Em [EMAIL PROTECTED], Alan <[EMAIL PROTECTED]> escreveu
> acho que isso ajuda
>
> procedure TFrmAlteraDocumento.Edit3NumDocumentoExit(Sender:
TObject);
>
> > begin
> > with DataModule1.QryConsulta do Begin
> > Close;
> > SQL.Clear;
> > SQL.Add('Select * From Db_Protocolo');
> > SQL.Add('Where Transportador
> > ='+''''+Edit1CodTransportadora.Text+'''');
> > SQL.add('And Tipo_Documento ='+''''+Edit2TpDocumento.Text+'''');
> > SQL.Add('And Documento ='+''''+Edit3NumDocumento.Text+'''');
> > DataModule1.QryConsulta.Open;
> > end;
> > if DataModule1.QryConsulta.FieldByName
('Documento').AsString<>''
> > Then
> > Begin
> > Edit4Valor.Text:= DataModule1.QryConsulta['Valor'];
> > Edit5Data.Text := DataModule1.QryConsulta['Data'];
> > end;
> >
> > with DataModule1.QryProtocolo do Begin
> > Open;
> > Edit;
> > DataModule1.QryProtocoloVALOR.AsString := Edit4Valor.Text;
> > DataModule1.QryProtocoloDATA.AsString := Edit5Data.Text;
>
> *POST*
>
> > Refresh;
> > ApplyUpdates;
> > CommitUpdates;
> > end;
> >
> > Agradeço a ajuda de vc, desde ja.
> >
> >
> > Charlles Ferdinand
> >
> >
> >
> >
> >
> >
> > --
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
