Conterraneo,
Também não funcionou LocateSuccess := TblInsumos.Locate('CODEINSUMO' ,
'03TR0542', []);
Sds
Jose Newton
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Gildenor - Autogere Informática
Enviada em: sexta-feira, 9 de outubro de 2009 11:11
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Preciso de um Help
Jose Newton
O seu locate apresenta um "vicio" em funcao do loPartialKey,
tire-o dentre as chaves.
deixe assim:
LocateSuccess := TblInsumos.Locate('CODEINSUMO'
, '03TR0542',
[]);
--
Gildenor Teixeira
Autogere - Sistemas de Automação e Gestão
61 9985-9008
2009/10/9 Jose Newton Araujo <jose.new...@jnewton.com.br
<mailto:jose.newton%40jnewton.com.br> >
>
>
> Quem pode me dizer o que esta errado que não funciona ? Que besteira estou
> fazendo aqui:
>
> TblInsumos.Close;
>
> TblInsumos.Open;
>
> TblInsumos.First;
>
> LocateSuccess := TblInsumos.Locate('CODEINSUMO', '03TR0542',
> [loPartialKey]);
>
> if LocateSuccess = FALSE then ShowMessage('Verifique o Status do
> Transporte Coletivo Urbano...') else
>
> if not VarIsNull(TblInsumos['PREUNTSUMO']) then EditPUOnibusCol.Text :=
> FloatToStr(TblInsumos['PREUNTSUMO']);
>
> TblInsumos.First;
>
> LocateSuccess := TblInsumos.Locate('CODEINSUMO', '03TR0543',
> [loPartialKey]);
>
> if LocateSuccess = FALSE then ShowMEssage('Verifique o Status do
> Transporte Coletivo - Metro Urbano...') else
>
> if not VarIsNull(TblInsumos['PREUNTSUMO']) then EditPUMetro.Text :=
> FloatToStr(TblInsumos['PREUNTSUMO']);
>
> TblInsumos.Close;
>
> Nota: o Table existe ligado no Dataset, e todos os campos caregados.
>
> Obrigado
>
> Jose Newton
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
