[delphi-br] Preciso de um Help

Fri, 09 Oct 2009 06:57:54 -0700 

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]

Responder a