Código Delphi [-]
function NuevoId(D:TTable; campoIncrento:String):Integer;
var T:TQuery;
begin
try
Result:=0;
T := Tquery.Create(nil);
T.DatabaseName := D.DatabaseName;
if d.FindField(campoIncremento)= nil then
raise Exception.Create('El campo '+ campoIncremento +
'no está en la tabla '+ D.TableName;
T.sql.text := 'select '+campoIncremento + ' from '+ D.Tablename +
' order by '+CampoIncremento + ' Desc;'
T.Open;
Result := t.Fields[0].AsInteger + 1;
T.Close;
finally
Freeandnil(T);
end;
end;
Y ya podemos usar nuestra rutina para todas las tablas que queramos.
saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
|