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
<*> 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
