procedure TFOrdProd.ADOQuery1BeforePost(DataSet: TDataSet);
begin
Query1.Sql.text:= 'Select Max(No) form Clientes';
Query1.Open;
If Edit1.Text = IntToStr(Query.Fields[0].asinteger) then
begin
if MessageBox(Handle,
PChar('Esta tratando de poner un numero que ya existe' + #13#10 +
'Desea cambiarlo ?'),
PChar('Numero Repetido'),
MB_OKCANCEL + MB_ICONQUESTION + MB_DEFBUTTON1 + MB_APPLMODAL) = IDOK then
begin
Query1.Sql.text:= 'Select Max(No) form Clientes';
Query1.Open;
Edit1.Text = IntToStr(Query.Fields[0].asinteger+1);
end;
end;
end;