Veririquem se tem alguma coisa errada... Por favor...

Delphi

26/02/2003

:?:

- Uso Delphi 5.0 e Paradox 7.0

- Esta sintaxe eu uso no evento ONEXIT de um DBEDIT

TbCadAss.DisableControls;
try
with TTable.Create(Self) do
try
DatabaseName := TbCadAss.DatabaseName;
SessionName := TbCadAss.SessionName;
TableName := TbCadAss.TableName;
IndexName := ´idcodass´;
Open;
try
if FindKey([DBEdit6.text]) then
begin
TbCadAss.Cancel;
TbCadAss.RecNo := RecNo;
TbCadAss.Edit;
ShowMessage(´Número de associado já existe. Veririque!´);
end
else
dbedit4.SetFocus;
finally
Close;
end;
finally
Free;
end;
finally
TbCadAss.EnableControls;
end;

- Problema: - Funciona muito bem na inclusão só q quando vou editar, ou seja, o CODIGOASS já existe, me retorna a mensagem dizendo q o associado já existe, como resolvar isso ????

Grato

Jota


Jota

Jota

Curtidas 0

Respostas

Anonymous

Anonymous

26/02/2003

Sugiro que vc verifique se o dataset está em modo edit (Para uma alteração) ou se está em modo insert (para uma inclusão), então vc dispara o código somente se estiver no modo insert.
Exemplo:

if DataSource1.Dataset.State in [dsInsert] then
VerificaSeExiste(DataSource1.Dataset.FieldByName(´Codigo´).AsInteger);


GOSTEI 0
POSTAR